IMD 1.16: 31/08/2008 11:14:48 84-93980-03 a200 nm4 coral 66 release diskette 19/jan/82    @0|)wwЀЀtQql)  " }gA `_4M@IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIOS4 MF181012009365904810120093659 810120093659) =`;nrgy w"G,{Kq1 A&}E*`(t@% ;c  765y342(.OS:: SYS"iwvc Bc A@6<# Ic B# gIjHc rOVicEdDanoZ0G p@ *€* ڣkj ~ @+`"A `A A# BCpD@`EEDkjEEIDDEBpCDp@``B@pkjB"# BC D FĎE @E F *EŒFR EE# CAkA'ʓʺpÏ`PV |P` kj P* kj kjSTOP: $!}BK kjBkjkjBkjSTOP % N  Z F BOF # GETBYTE: `} @@``%'`@# PUTBYTE: q } @@`Dh%'`@# %   kj# 6# P c# # # P*# P*# P*# P*# P# OB GG@# D2 CD`@# A200 ( ;,&h%y:X9DFG  [\]^HZ/_# p*FG d›kj+Hardware Trap %x4 Produced at Location %x4 8BC` G # kjI a z ٞ0#  6# ؄BC·ңkjDkjBƀCŀDM<# kj 9# BIC CC kjCBkjI,ϛQR =OI<ϕQL %II ϏQF CHωQBCkj#  II#I/RI I!&I$JGB@`KC ǸBikjCkjó˰ @Ckj# B@`KC @ IˡǠBGkjÖ˓ @Ckj# BBkjB# I'IJ#I'J+I)Q@`KB C!kj瞓ICCMkjCB kjI QCBCĀRBPkj# ` B IĀDBBkj# kj kj Aq +s -slI$J8I# # kjBukjBCK# B@̣kjɃɣkj# @`K)@@`K kKj HEkKjI kKjcBIĀ` IǧkKjkKjI,ϊQ kKjI&II)I9I%JB III!P3JHI/JQIII0R =jCI_slX07Q}ۜأkKjkKj CH Q hD# BCkjBCH@kj kj# BCIkjF@`KG)}` @`KIBkjxDόEIGkjxFIGk &I3J{JOLjxA# ICqkjwI)yτОIFF)yπCbkjr)FBkjv)yKОhfFIBkjx# # @`KB` C@`KD` (E@`K3F†Dž )9Ϟ%JJ))9ϫx )9Kπ tHσχI *ʣkKj@ƣkHj.2D)=EЀCBFkHj2EkHjHǭ­EkHjB32kHjE+kHjÊQC *IXHJIJI[kHj؀BekHjBkHjEZkHjE)=I,ģkHjkHjF k9OPjǞ)9ϨFkJj)9 ):ϞqokHj-kHjD%kHjHǐ•DkHjDkHj  JJJZ kHjԀCkHjCkHjECkHjţkHjIƒCJǽTq@`KJ)9` P@kVj):ϣkVjkYjC)Kτ)9τ0kVjKkVjFQE!JII 24HJIJ]kVjF kGOPj)GϨFkXj)G )HϞqokVjkVjkHj# @`KB @B­ăBB©ąBB¥ćBB¡ĉBBčBUkjVUIJJJJJJKKKK#K*K3KJLʣkjIRRBVRa`kjWVkjRKRM iBUKJkjVUkjIϝQł9kjØkjÔkjkj#  KS KrKyKKKKBB # KKHIit 17NV9D\WU+ JFile spec too longToo many filesToo many defaulted filesToo many CG options Error: %S Bad Command LineCORAL COMMAND LINE, PLEASE: %Code generator option string too longUnknown option Syntax error Error %N with file %S A200TEMP.OCD CORAL (%S) .XRF.ASM%C%S.LST.CRL91 COMPILED BY CORAL (%S) LISTING OF %S ON %S AT %S THE CODEGENERATOR OPTIONS ARE: M 1 B S BNO BRACKETTED COMMENT (P)SYNTAX ANALYSIS (C)!VARIABLE NUMBER OF PARAMETERS (V)NO LIBRARY FILES (N)S SOURCELIST#MACRO EXPANSION (X) "PRIMES" (K)RCROSS REFERENCING-ALLOW FLOATING PRESETS IN INTEGER CONTEXT (I)NO NON-LOCALS (S)= THE OPTIONS USED IN THIS COMPILATION ARE: %S IS %S %S IS %S M %S IS %S TDOUBLE PRECISION  ESCAPE CHARACTER (E) IS %C R CODEGENERATOR SELECTED IS %S M TREESIZE SPECIFIED IS %N TRUE FALSE wBC DBCkjDQDkjC@kjRkjI(IIDkjأkjAMãkjDkjɣkj=# BBX@# kjºǺkj÷kjkjÝQNkj kjkjk KKK KKI:0@j __kj]kjPWUkjìLkj kjGEkj>kjÛQEkjÎ/kjEkj#  KKCK  X ]I: K9 TREE SIZE %N 1  AE TREE  1 SF/CG4.SYSo SY:BOBO.SAV Error with %S: device full ?m COMPILED OK %N ERRORS  uBCEBS񞁞@kj@kjF CIFQǠBkj FIB@kj FCIFQ F -kjBK@kj FIB@kj \F̠BKLkjI]FQԠB GH GB k jG G d KKNH^\DCQƂУekj٠ByG IGFVkj HGIk jC IJKJE?k jJ JJKsq2k jGHQ‚ CEHB CDN@k jH HKKLLLI=;#  K [%N;%N;%N]#%N&c OP%NE*-  ! Y B   rBICkj !x kj ǣM➅գkjѣkjBJBBkj BFͣkjCICQ B =kj U4 kjkjCRIHIÜJC ~kjkjkjCT4 _IEH, jV/3@1AFLC\j QFIV kjbDCkjECK JIEKDLI @OkjFkjCAJQC [=I?kj ZCţkjkj &kjI^"QE!kjI_Qãkj hG:BDWW[js W ;kjjIQQIV ckjʏģkjþ ãkj E Ukj  PHkjd BkjDIϟQE akjEkjDQFIU T&kj IǍ c ;4,T_ <O3Q]PIq łɣqkj XiAlIXeQLdʣckj_kjIXSW ģkjçJǥ @ǡǡÜ< ŃkjÖQG  + c^ I8-9K=Y S ^Q )kje  T PkjȜkjģkjøǼ    & ^ }kj=  +  kj. ^ >kj%kj   > T<, 4I;O;[ u b ` _Xkj  2U 6TIdzKLȣIkjHEQ  =8kj GI 4QD bI"-QEkj@G/ 0__"K@kj IĀ @kkj  ". { ^X3' C Y C    C C                           C  C ףkj Ҟ Q# BBBSEkj# Q }Bģkjkj I)BQ )kj { }kjV# kjB  SB TB PB BB  BB******# 4T,;: ; <I; 1LBN1B@GrCDD kjEãڀIDk ܣkj BĀǁDąDIĒFE EG ĀE EEFqoB|,# ` BIC B VICCCB &IU T3XJgi/0C51)2h>sBmĂC BID jhfCaca^I)πCО)ϨB)ϠͫP)KОqo# BDCCC CDCBQC# 6kjkjBƂkj Iā# _C+BBCՄG ңkjłΣokjGɄGāGńGăGFBǺCDǸ4/HEQBE# Bíǯ C IDEDCBID @D DDEomnj\# I:b-89K=LYB BCDEFB՞ӣ kjEQT̏IBB @ýĀkj "EFQG 'ÄFI,ϧQCQDQ (ICC [IDD )njCCJC ]ÌDž,/TI=?8DJD 'iQFfI"_QEIBBY @VVkjPBĀB@Jkj B# BCIDǃDICC IBDā CIECFIWv'KkjEDCEQ ) ,9ODh ) CI,Q > CFkjkjE EEFXVDW# I<_T@1B}CDE F;GnI<p[+ QEkj  섀IQţkjkj އ@أkjI Q PQ ЇQH ʂʣkjöǹ@2# FkjˣkjèJBCIBˤ @kjB BBCqoIϕDQB‚E, 6=-.8*9&I7LL L LL'L-WFEDdkj# BIC DEFţŃUSJ £kj ЄG ICCð G2Gǫ!GG Hǥ .IBQA[ BDB ! A [מMa0/OTPQ_ M{ .ICQBϜ dEIC \ICQE CBTF DIQ CI+ϱQC -ICQA -HD CI766 @IBQ 'ţ-kj ^kj BI.σ_,I>UQAwkj C ]okjŃkjIBQ C ó GD FBFǫ EI˦E EGHIG˛ @ IGGKGHrpDEEILJ IGH!O0/1'2Gw G;sGrp @iG GGHki # ID kjI˥@kjFHGHI@kj×SEkjkjkj# I_j3E9@T B nkjƒfkj# B kjC BĀCw# BC kjD B ĀDCD# BC kjEB ĀECEDĂE# X:bBC vkjFB ĀFCFDĂFEF# BC _kjG¯B ĀGCGDĂGEGFĄG# BC EkjH–B ĀHCHDĂHEHFĄHGHZ# BلCI֣kj Bkjkj cCQʂţkj kjRIˮ DE kjD DEvtHǝ CמkjI7ϡQI UFI^ϛQC XÉkj# =6HSRUbL1:4\@`KB` C@`D`ЄEIFB^CDɀEI О ϫ KОusCò@ ICОϫ KπϸОtrÝ' I ǚÚǚ IǗǗ—ǗM .1/5>I?7-89KJII@Tgeca €F[YFIXϻQERPF1# Bꂳ:c4[_L7LDLMLTLgLrLwLLLLLLLLLLLLLLLL+Ξނ͞܂̞ڂ˞؂ʞւɞԂȞ҂ǞЂƞ΂Ş̂ĞʂÞȂžƂĂ =z c 5OMKIGECA?=  579; LLLLLLLMM MM M$M,M6MD!C…kj# MP T[UVW"XYYlZx[\]^_\bI>LdLM%I6  * # Error in %S near source line %N : macro expansion input fileLIBRARY Abandoned ~ Feature not implementedu Error in numberG Illegal char$ String too long or contains newline CODE insert too long number%S Program too big FINISH%S Name%S BEGIN%SC '('%SS ';'%SC Error in expression Error in declaration ','%S  ']'%S  ')'%S  DO%S '['%SP UNTIL%S Error in label Error in command THEN%S ':='%S END%SD WITH%S ELSE%S ':'%SN bit position outside datum array of negative size string%S error in macro callP macro not foundE '/'%SB file not found macro arg too long wrong number of macro args Unknown language wordA expectedU BICDEkjkjE kjEkjBkjD ^kjIXQU kjCkj ICJI kj L (:kj@C1kj, )C  *C  C \:VkjBIT SkjBqkj àBBCkjbkjIH kjkjBIQ &kjkjCIT SkjCSBMk j (k jCHIB #+kj_ifFlV "kjBICQݣkjC CICQ CBB@Aā CGB kjBB QPkjC Av       ? =    # % ( ) * +S mZ8kjBG# BkjCIDE„FۀCkj F kjEIU TkjEKC kjC_ BkjEIT SkjEKC kjCII'D &D:l[pk4i%I%D $DI#D "DID DID D #? &u 55588;;;;;;5#/  >A2BDC &FFIMCJMQÀD Dk jJmKJIkjC# BkjB kj# cdef5gPh]ihjuklmID: BCJQH YCEIKCQB kjIV kjCkjBIU Tkj ^kjBCCCCQkjCB%# B CkjDIA kjk jCIJDBkjC &kjC#  4ihg\:onf>B CDE ^qkj Tj̣kjD Rkj JBDJFGMcM RkjG IFF GFBN֢@E RkjD q s@`KF,k jJ JBDIN _7pIF KLMNQƒҞqQJNINkjGIJBQ[IA kj KBþHID k jGHkjG kjFkjGGFIGF &kjA&IKBQ c,kj xDƀBkji]3fhqt JBƀDkjDkjCBk jJEKCBkj;# BIC CCCKhBkj IR *@kj B CCCKoBkj I.ώQĀC rBIχQCQC 4q:leIEo\6s C l zBlkj IcIR@kj n xBIqB vBItB 'p 1w   :7NQT:kjBq# i;;` BI)5т҄ )5τϣkIj)6ϠΨB)8Ѐ c  RkIj)7 I ϠBN֣@ RkIj &kIjIU T5kIjI)5@kIj)6 I]p_IHhX$Ā)6k5OITOUj˞):ϨB k:OKQ ĀO Oj):ϸОmk˞7# B CHDEFïGLk jJ HIJBBHC 1Jڣk jHIO Vk j/k jJ R)k jEIi7l[DހJk jI Ik jI@`K KLkjP QRPJk jKKKK &k jIH Ik jkjIMNOPIG 6:kjkjMN EkjN MM & eg\hf_tUkj^vkjPIG 6 kjkkjOPbkjP OOIT SkjIOQKO G MO GPNNUOVM \K @kAONN xOjI)@Q)?π)?I)?Q ΣkOj)? I]Ā)?k>OIQORjž)@ϨK k@ONQ ĀO OjX5)@ϸОigIk?OăjIW ^k jk jHIqJQMck j GH k jHJ l x  5CCCEQH 2k jBHCDGIϏQFI2NJDD 2k  iZh4u5<r'jp@`KKCʞk jIgQ9 &dCITaQ [k j k j 35JIP@ &k jKKKKJk jJ LJ  k jk j T*9 &&k jI^"QA[:lR_! UA$IUQFIW ^ k jBk jKCQ€E[EQFCB O 1FB N MNHPKQGRINk jKPGQI Ik j# BCÚD EFGH@`KIk jÏNJBk jE\RSr]IJP5IN@ <k jII IIUϿQqGk jEHQE \k jIHNGOE =Ok jII IIUϝQ ^k jǂk jHOI^ϋQC 7ƣk j47u_hW:IKCDF/# nopqtrsIE??0wBICDEFkjGILBQC YBIR kjkjEFIH kjkjCIS &kjkj@ GDIT SkjDEkj LCMD \kjCILMENG xFkjGICIH kjkjHk jI ģk\if_g]E!pjCNOH ynk jCImIQϣgkjOCNH |\k jCIzIQK II{I ROk jIV Gk jDk jEIU TD FBC k jEI?D & k jCIFϋQ @D k \i47lm[jEI8D 8DBQCRES TFDk jINMGOM =Vk jII IIDOQ£ 8DCB &k jAIL D:k jk jBk j IBNI F  }I[ϥQ )ϣ ǣI)ϣD IT ST,;  j:]Yvt DCIDQ jh )ψE kOÿNy N( Ā IN( @INNj ;CI @F>) F753 `0. )τψE &"#!EkO_OZ3OĀO@GGK@j B @EB EkjIN UkjB kjD At      # % ( ) * 4 5 7\ 8 EUX':id6# t0u0ILp   g# BCkjkjEJDBkjkjIJICkjkj ɇ cţkj kjkj# BCЂ΂̂ʂȂƂ b` ]v  MUM^MdMmMuMMMMMMMMMMM!= !!!!!! ! !!@EI BQ߀Ck jICk jJDk jKDk jLIE7kj3kj# B h|r |wp N NNNN!*!t!v!v!t!v!x!t!v!|!t!v!|!|!|!|!|!t!z!z'# BȂƂ efl ~ab %!!!!!!!!!!!!!!!!!!!!!!!!NN!N&N)N-N2N5N9N Vk jGkHIjiEkk jDk jFG^k jEk jSJQQɃPBEQE ak jF^Ck jIBJ <EIk jDk jI/QEIk jJ*GnjHk j $g YEDkjpIqBkjiIuDkj  4akjÿJǽ 'Xkj ODJ@kjJkj FkjGIHMDk jE1k jIFQKk jH'k jG$a*k jFk jHGG k jfGùSFB kjóDYkj k v b$&åkjGJ݀BkjED>kjBBIEBkjB kj!F@ 2kjDkjBkj 2\ EWO ####$!$#$!"#$0$ $ $ #$!$!$! EB BACLj# #x$""-""I"c$rmBICBkjBDEFG MHIdI hJIKL MIfN =OEkjPIȀBIIDQ IHGFG ǻ NDIMD cII1DQC ODIgFkjâJǠ ODI1D IHIjJKÛL MIjN IDÓQFEkjE ''ZIIUoEkjKhgEE E`kjI1DQ QUR MHƣkjQREJĀ QICB \kj힑Q dkj kjQ RkjHWREkjEEQ Q' SJ (kj힆Q ,pkjL *kj dkj ZkjDIMU@EOkjEEIEQNUIVDWPFkjÒJǐD@AI6kjM0kj/(YK MIjN AOӜIiN ?OEEQ RSITUIVW xPNQQQ @UUITTr MD磩kjX@IkjXVU?N] ^PF9kj4U pPÊ GU nPžI\K@@GUUR kkjX 7kkj瞸 1DIIHQŀTRIIDQTRQIpPQO GU nPIU@@G#UUQkj胞CÚJQ Q 5kjOkjEQ @S (RJ XYZIMHQ@_H`PEkjZǣkjXY Yy  ) G&3XS *Nkj JkjSWW XRJR P;kj ZӀYkj .kjY RkjIVQ7V Nukj nP€WWN G @&GYekj垣 Q[I\ GXII[ \ Y[kjIxPQOQ *kj\Y@[kj ZH_YEkj xPɌZHEkj埈EEQ 'ZXR (vkj垐IZQY , kj垆YXekjQSEQ @SHCEkjUIVPEkjEkjQVIWPEkjQ NkjIQ kjQkj&YPFRISRRISS fkj재FR@kjSkj@ tkjSNyJQϧQFR kjS @ eBkjFFIFQP l x $%'j $%%%'D'D'D'''W'GBkjIBQAC'# BC DCIBDkjDD# $v$r'I%( wBBkjBCDDkjEDF q t F KCFCKF kj xECDkjDDQBB# B@`KC )6ϞB)7@kGj)8ϠBǥ )9τIiQà lIk)8QȠ mÔ)9 IJ)?ÈǣkJj)9QϋvuIC @k:OĀ xMjIJ)7ϣdkJj)8 n vïQF q tION ͈̈́C )7)7 )7ABB BAÍ XkFjI)7π΄ОZ)7ϨCkHj)7 πϸОqo hkFj# BC BkjFoFNyGJQF YGCIKGQ kjCCMqMsBJFkjIxCQˠBHFGF՞Ԟ )]kjEQ KGFKH DBBJFāHk jBL ML k jHk jIDBā YGI˩ǨDDFHĀDÝJǙFEϣkjFIMK@BkjF)* kjD ekj )B# B˄CBkjCkj# BIBBCDQCDQD kj CCçCQ BB# BCIMDQ L LD G YD A P))) EBkjFBGĀQwBDNqFBĀBCQr CkjF y |CC PEImFQÃCCFk jLFk jGKMCKNEkj @I76Õ4kjÐ -kj#   NI :BkjCB kjBĀ ƄIC*{# BCIǼC C Q 1DCBìRϫQC*# BƠBCIϞQ t u*CCGkjHIIGCkj *[BCCkj kj Aw 6H 9^ =k AfnBB BA6# BC EF kjGCH @IH !GCI"GQ܀HQDMCEk jDMCFk j%k jIC@IN"Exk jDNCFpk jIk jI~Bk jCB V W+@ Dk j # ( (L()))*c*|**NI  [%C%N %S %S %S] +MwBkjCkjBDEFGHIJIiK LMINFkjOGkjPHkjHUGQRS *TVWFEkjEkj IdN kKïL PIIPQF PCIPQЃRIVGWIPQC PM@AM VÇW MIkG  -Z\kjIQQI QFIQQC QdS THU TZUIkHkj螨 PCIPQƀWCM@AM (VCW MIiGkjIQQM QJI(T1UIiHkj \kjI*VQ *TIO [QD OAvMRƠFUSlFUhICCkjDkjIkjKESkj WVRkjNK@EkjHEkjCkj MOKE0kjÌLNJ UTS kjMSB  ,QNkjD VkjkjXkjYIXWVRkj N@ *kj   kjNK@kjY VkjKEkj1L/I+UTSkjN k [jD VukjXkjY kjKEgkjLIǿUTSkjN UkjD VNkjXkj CFEk jDk jIk jCk jGEk jDOHHk -iMjCk jɜ k j A > ?m @;Jk j# BCVDêEFèGBHI JHǜHk j ?k jJIϋQH IKLǞ I+fQKsMIIQɃB kj򞡀Ibkj ƠIJIIJ IHTMJkjK KKLQOIIQFB k j ;CHk jIqCQ 3 rC -- JÍQFDk jMQB  . TNDONMk jD̀EFG# BkjC BkjD Ek j@ qkjDLHϪQÀEEkjI%CQ͠BkjBkjÇ %kj#   YBCQaAQo kj IDEDBFDCBDKDEqo# BCBGIkj ƠBGBIBG:kjGHI @/k j GG k jIIJKI/\GDPEQFRCk jJ JJKmkeRIB \k jJǵ EGF@AEk j HCIHQ jDʠGG@ jk jIDk j4H  IjDQE xCB /]QG k jIDjk j H k jG jYk jIxCQŃ OM InCQG Jk jKILMLJkj@ i4kjLKLMomK %#IjDQã *&IG hk jG  k jIDk j BA# .+M-o..l.I-+.r//6BCDIBQD kjI *kj  iB iBkjEBkjFBGHIB f l/BJK LCBk jFIIiCk jB +k j HLIfCk j iCG *k jIiF IEQ k jB3 3H2% k j kFjfehLIkFQ򞒄B]kjC FICQŠB́Q 0X# Gk jـHk jD k jIiFQ  u1+5k j2LIfC.k jGOLIfC QFC1IU@Ok jFI)EQQI jk jIfCk jIeGk j EIBHImCk j󣯜 ;EI@H EI>H eCIIhCQF jCCIgCQIiGk j eCEHk jCFIfC3 IZ{k jIiGsk jEqk j EJğd wMIiCQ ]MIKGkjkj򇳀Gkj򃭣kjåMkjßKǝCF;IsM iFIrM KIfC0kjMBkjK˃ǂ Z tCCIuCQIiH k jICGk jFICBk jFUk jMPkjNJO bPI]Q RIuCQC wCCJF fCFIiCQC kCIiFQM iCˀHkjSI3^kjSpIiF vPIwQRIkFCFNWIGkjFHkjJIkFQL OIlP mQIRMPkjOkjNkj qCCIgCQ€CJJIkjFIPkjM  vkjqRQkjힸ͜E { +v Ġ)00/0001z2100000211t1h0C0A0x0x0x0x00012000|0|002)22101012 iFIkCQ k j $#CF k I/1[2FIiCQC }C qnk jkJ@ACFDǃF3H# /I/1~000G3K%BC DE kjFBkjGHGCk j #FBK g e3o@Kk j #FEMD k j F T iG S 336k jGCk jBk jCDk jCEk j IÙJGCk jEDk jI  T   44Duk jIpIQ lk j |I ck jIzIQC {I >Wk jUO Mk j SHk jJEF A  &H2# 3aYBC@+kjDIE*B"kj {F &DA I}BkjEI&DQנCIi kj kj kj CCIiCkj kj FǏEBkjF NyG 5DHJQ , YG G LG ) (444IIMGQƒƞž45JKCLM &DCFkjE@ }kjE n q CIdEQ JGCILGQ YGF44NCI&DQHIiC&kj񞊞\IiLkjNKKnH@IJkj@ *akj kjIiMkj kj HNHHIyEQF |ECFKǝIiCkjN *1kj kjF *%kj  kjKHIJkj mkjE5D2# BCgDIE FBkjGIeCQI hCFIjCQC gCG gkjIeCQP nG @ pG B >5u5u7kj |G D.kjC iC5? ; kj kjIFFkj IkC E kjLEkjG AW nO p[ zg {c |SLDC5# B i CDşBCDkj Ck6V6U ?jBCCkj FCmkjـCkjkjE LIjEQI pEFI|EQC sE i kj wM *r. ,6V6+6665556555665565655555555666666666656666 k6V6V# 3K45E56WBCJQF hCCIjCQ 6dD fCFIiCQC kC 6q]EIF =GI>HքIBk jJBk jKJNy LNM kjO¾PBIMLQ PPïI LLIPP YLIPP kKIAG BHEQE PPFEOIrOQC sO@`KQ @ QBI[āQ OQkjFπKOCkjFŇIKLQMQݠJ QkjMJQkjMV@ kjQkjM 79kjGàQ kjO hOCIjOQƀEEPM 8t * \IkjKlPMIkjDŀGbkjN\DIeCQ lOCImOQ mOǠPJQÃMMPMIkjDQŀG=kjN7 yOCI|OQנPSMIkjJ *kj  kjPMIkjInOQ @H7IkjNPPMIkjEQBKsIxCQpOMnMqJQ JLCILLQ M@PIkj YLIMPIkjJ *.kj OC8tZMtMwK .J-?_J(FC@`K IIDkjr)I` @`KIDkjvHŒGGIGQ‚TG=FIIkjvR@`K)IIkjv GF=GBGF @`K)@Ikjv GBG =EBFO&OP +kjE (GkjGŠGFĀG GkjIGQǀFkjG># ]<^.=<><=0=7J=>=OS>hBCkjDk jIk jIEFJ GHDQ@Bk j  k j k jIGEGD@Bk jK IGGDBk jK AKk jIGGWIBk jLIMGNLO>&* ZNBukjP CI PQPUMCkjIMMN NOcaMJRICkjEhINkjO I OQOTNCkjINN 1NINQIN SICkjI%k jJ%k jF># BCLrkjCI CQCC># ?>J>>>BC BIĂBCBDĄBEBFĆBGBHĉk jBk jI(IIŠIBĀI Ik jIIQ‚I?7# _]<^c>?=BkjCBIBBkjC?L# BkjCBIBBkjC?\# =[\?=?M?`ABCkjDIEFŠBECkjDŠCFQG @@kj ETEQH˓ @ EIĈ FFECĈFB ??# =<?`?kjB kjBkj?#  [E??kjB kjBkj?#  \E??L (BBEBkjBJBJQ kjI kj` CD @K ` LJCJkj EؠD̆HCHk jȠCQCJĀ CH@+DK CLJ@`KMJkj# kjC (BBDI CQŀBkjB B # <>EP:O_YBw CIDBQJԂԣkj  kjDkjBX kjDB kjF kjkjFkjD쀈FE1 CKQ@  "@]^@@O OCKQ+ @`K kjF@ HBkjGA C@`Kkj C@`KkjF@@@@@!EIkjB BkjESK CBJ@E3kjDCkjD@# PP<.B?`@%E@GOI-You are not allowed to close SI, SO or LOG @IkjB‚Þ E DQE˺ @IĈE + J@`KK` LI kjIDQBD kj FIGFE FKFFGvtkjEBAE#  PP&OP " kjIE FED EKEFwukjDBA# \_ALA0B@`KC` !FBkj_BICkj[)F` @`KICkj_EŒDGIDQ‚DB! @`KFkj_DB)#   ?&OO AB/ABC` D@`K$E` >H@`KIDBBٞECBОIDˢ˄H` @`KIDGŒFGIFQ‚FBo"IEI` @`KIEGŒFGIFQ‚FB ` IHFB# ?>&B3OO B/B"kjB CIBQH–kj  kj B#  &O&j CI$CK ML@`KN` OLKk jIHQĠCCHĄGCp C CCIĂCCz# OBO 0interlocked with C|aBkjC DICQJԂԣkj EJIĆD E@AEDĀEȠDB kjE  $DDBJkjD I BQH BED ICkjFJI DCKFkj C#  C|O(0CSBCE kjHףkjE kjDJCBkjEkj kj# BCkjCJDKBkj# Bhycm D&D$D" ECJDKEkj# J #O)O/ O# P,O8-E*O GTMEM0 error EBjBI/GIkj# B :GIBkj# BC@`KE G@`KEkjIRIBkj NIGGCNE @G6FK0SGBkj GGCNE @@G!F 0SGBkjIGG NHDSGBkjN N C# JO% 2EB4EKJEUE ` BIJ@`K k j KJ GKBȀK̀JK K pJE# O<3EE!BC DIEFEBKECkjEKEFqoD@G@E# %'EEBCIkjDEEBkjECEJEE2# &(EFKBCIkjDICkjEIFFDE DE @BkjGFCkjHG GF FFI# &)FF]BIkj# &*F]Fe#BC k jBk jENFOGPHQIRDCk j k j# O 8FeO ERTRAP error %N FBC kjCHBkj kj# O AFO.Procedure missing at Global %N, called at % X4 FP:>ACGB `+ D D+HH+E+I*F `+ `+JRaC螏Sb\ `+ȞBm `+B `+BBZZVfXTOQ Y`w HR+mفDpFr no t s` 8u0v xQÀyXt)׌5eHrnofH)5.wA+o€n[` %u s `+.r0m)HE `+%A `+ w QEZoHpJ  r0v lxQȠrnoyNo)58wÀo€n `+.r` %u s0GDpFr e0<.m  H @ mrp q 0s0m ! # w|C #  # PiZQR GIJDEF` CB `+XQmQYQmBCO ܂ @B`H%'`@qC {XYQ0GHDJK` I FC M NOP E `+ЀLԁJ /ŀM qNDOqP KRBQXY   ŀQЀL)MMLMNLNJ . /U瞃RyR㠀1HQ{zRwvL 1ZRqRzNMJD`H%'`@M `+;A7L)M .L)MMLMOLOJ / .OWPMD`H%'`@M E `+A LM UL)MMLMPLPX000ZQRB@ BCDFGH` E IED؀J| z ` Z @IH 9 / : _GIF HI @KB]IC`H%'`@UXYR7B HIFDG` CE JK `+ޠCB™AAAH I FFF `+VfXTSY&HBLyC+Lz D  I `+L `+ULDQIRX{R* BCDBBEBBFBBGBBHBBIB C@NyJ G# XY S" !B` F G DH1NHByx uC `+oZXZVfYS@CB FG `+D+E*  BXTOZYS^*DBC  B GHQ `+E+F*OP iIC  cXYTOZZV `+EYNN `+Z [*\*]+KZ [ `+ `+Z [+ 낶Z [ `+ `+ Z [+ۂZ [ `+ӂ NZ [ `+Nz `+ `+TSVZVfS.. S. SZ@T'CDEFG @   EEEFCEEDE tXXYT-CDE @   CCCDCCC vXXYTOL* *FBCM@SD@HMSAEDhЄ\[ `+ Y+ZC]yFyBH1 HQ 0 9y X ZgUXY UZZy]srGFg `+'AB IޠGgI*…5]GC BI JQR fLLLZYZV„ɄfBĤ[ Zf /\uIY-Y 1YILSLNq zIYyiIYgDDDVYZ)YOLUF00U 0ZByI؀\΄Y ^y DWY \ מoTQ- /B JI) BJ`H%'`HY+J`H%'`HY+InFޠD[\Z  IYY+U DG YDI YJ '\IJ3FZY+A@"GESAIČ L L UIR##V2@FvGEA  ! գ1L EIĄGs ENG_ ^ 0` AG d<ZYvBC1JB{zCwv YIC UI@J# IJIB`H%'`H+ / .BY`H%'`H+BYIjBJ # BI IJ# Iyр̀yɀŀy # # 9 0 F A # # N1@ # ОzXZY VfBPLCCW R N `+O+M*PGXX VCDF EGC BK|1YVBCDEIDF @M NO I PCHQBR@SD@EՀ Bw CI0G HIBH`H%'`HI+H `H%'`H+,IGf QR`H%'`HFI PR)hQvGCDT3 FGCI*XXY IF V@V܀@# T NP P aT`TEL[P` O qFOJÀK"EH"'F  # LQQR`H %'`HLS1G`H%5'`HS 1 + qS @FL# Q*QR`H%@' 1 + 0 %@'`@# %5'@`@Q# W(BCDEIDF @K L NCOBPM QD EXXYc Dn _ C&GJBI H1܂ĄNÄP„O NP O Q `H%'`H+!J)`H%'`H+HI`H%'`H+HIJ)GGKI FJGCD@RtQDRZX>5BCD߭ E `+) b EEB`H%'`@ pEC DFIKJ)VCIXZYX{ EB @ C  DF B EEEyJwXX'YX B @ C+E DF BJ|XX"YXB1Bv @ XY ZYX# BC`H%'`H+CD`H%'`H+CDBnC# X@`p`p@C @jr<`pAAB`@ `p@k# @Ap # Y qB #  1XB1QC OC`ABC@`ؠnBhԣIʤD+BCCʞ ,ú Ā C!E+CQU @RB֋QBBD1A8 2ZYXZcZZY,ZBZPCIOCSL @REiQE Eb^  ENU E FY" BD` CE FGHIJKL `+A `+CDuXLDTSYVfSYBCDŀBDC D|XY YYY C! CD1iʀCD qXZZ|ZY CoB+C CJā BC] _Z)5 BC D1H BDwC D1KɠBKDBȁāB1IǀKBȁā `XZZ|ZYZcP PP :Zt # SL'ZZC @c # C @ vC @c # C @ vZZ ZZZ@Z#ZmF0EBE5E3--E2E1DŀBDC D|XY YYY C! CD1iʀCD qXZZ|ZY CoB+C CJā BC] _Z)5 BC D1H BDwC D1KɠBKDBȁāB1IǀOVicEdDanogA0G p@ *€* ڣkj ~ @+`"A `A A# BCpD@`EEDkjEEIDDEBpCDp@``B@pkjB"# BC D FĎE @E F *EŒFR EE# CAkA'ʓʺpÏ`PV |P` kj P* kj kjSTOP: $!}BK kjBkjkjBkjSTOP %N  g= F B\F # GETBYTE: `} @@``%'`@# PUTBYTE: q } @@`Dh%'`@# %   kj# 6# P c# # # P*# P*# P*# P*# P# \B GG@# D2 CD`@# A200 ( ;,&h%y:X9DFG  [\]^HZ/_# p*FG d›kj+Hardware Trap %x4 Produced at Location  %x4 8kj# kjBkjB(E# kjkjأkj@ݣkj# # # BIQTţkjΣkjkjBƣkj£kjEBFBl!GEkjkjkjëQF $kjkjk: VeU9U UU0VlVqVvHVVCVVVUUWHjȣ]kjģXkjFQkjKkjFkj# ICQJA>kj8kjkjȣkjkj(&kjÓFÒ!kj# =UWW@WHWKWXW_ WkYBC kj҂ңkjCBkjkjƣkj# VkjkjBQLkjBG@Bkj kjkjBkj` C@`KQ _`šaH"ǗǗIǃ ;W #HsZև_k"jބ` CI,`Q `qI__`fCk"jޞf_fICk"j ,`H;_k"jބ` I `Qt __`f@Qk"jޞh_fIQk"jޞk"jބQk"<@ACD%UMjބ` a `H jHǽ k"jއk"jޟIdzk"jއk"jޞHǢIIH죜k"jބak"jޞH=:I5 ؂k"jޞ qUU=Wd"Hs ؞InԃԇϞjk"jއΣfk"jޞ 5g Zn $qqqqqqqqqqqqqqq1qqqqqqqI `QACk"jއHfCk"j c #r%k"j QSQnk"jއKfQgk"j ck"jޞIǽCk"jނa,# BCBǴKǣKeǢʢǯʠǠKǟCBIǜǜ A9kjIϟQ DIeE,3  -()U U$4 l;>?Z Dc DKDDEtrIDWEDR DKDEwuJIǸH @IĀ IDzkj kjkjkj ykj&#"I"kjkjIZ.*+ /"#2  UqkUQ A ǞjƟƣkj# ‚„DQ   ~~EFEDkjkj­DBEFEDkjIϡQPkjÌkjkj# UW WW=WWWkkj# WHdUBDFq @ @Ve CG4 (A210) TEMP.OCDTEMP.XRF CROSS-REFERENCE BY  PROGRAM %S  TITL %S %S Code Generation By Debug code ON START:: MACRO !L EQU $ SHARABLE CODE:RAM SHARABLE CODE:ROM ROMMABLE CODE:ROM SHARABLE DATA:RAM SHARABLE DATA:ROM ROMMABLE DATA:ROM COMMON GLOBVEC: SHARABLE GLOBVEC: GLOBVEC: REL 0 G:: EQU  WORD #(1) RES #(1) ORG !L 0V ENDM PRESET:: MACRO LPOOL !L EQU $ !V EQU #(2) ORG G::+#(1) WORD !V ORG !L ENDM L* BRTN XMACRO  RSK EXTR B:EXIT JMP B:EXIT ENDM SAVE  END OF NAME LISTING L n-jHC lokj# BD D BQڀYWQ BPA LQAH@I@@}#B kjDDÙDkjDDJjQ2kjCIB *+kjC# U*(:YBCzEF iBIiEQ fmIāFqCgQX IeBQ CFIdEQC cEȠFIĀN HkjEDkj?BĀk(*8rkjHʣk jHI G eekj_]kj@ZZkjTQk jIéMMkjIϡQG ƒ kjÓ77kj A X b ` ^ gGڄCC I fkjkj kjkj kj kjkjEkjFkjG   F  FFGE G MkjF@G_56f3XEkjE Llkjkjbkj]kjXXkjêQ@kjJJkjkjÜkj: v q  ;=<;njlj2 # YBICDC C KCDwu CIeDƈC BÿC @ CKCCDnlB˲DZ# B Iǧ BIϢQݣCDEC IEQC EICQģ FIdž 3 ,?&'%]kj JDCkjEgkj `kjIYBX# BInϼQţkjK ïQ# FBkjBkjÞQEkjBɂkjØJǖ n k" X]jIokBkj# BbkjJģ Iq ğkjöJǴ kjêJǨ IGâ 6kjkjkj GI%kjkjIGI k %&Y/ Sjstkjm kj feeIăȃbkj\]kjV kj ONNIăç G%B@ f g ɞ ˞ ̞O' d-.;# Bkj BߣJQۣg IdQT _kjGkjI ǪQIBQ J F  A   B  B  Ikj# & MykjvkjEkjFjBCD@ kjBCāDTkjLFQLH kjAkjEL kjkj# %'IUBICD!kjEElkjCCBbJCB @kjIDDE E\IBCQΠEDkj kjIFDGIEE @LkjFKFXdXNGig# BCM MJQn ˏúǸCǵDIBQϱQăïǯCDǪ BCǦDIϣQăáǡCDǜ# BBkjC# kjs# yBC DCĀBDCBDCă# B   B  # LMZ^X; ORG $-1 :Attempt to DUPlicate %N more words than there are on stack*/Attempt to split a stack element with DUPlicateE mkjkjkjkjkj Au _ b e hlI # B MIBQJ BGB ? D # kjBCDJQǀBIDQ /EIFGHIJK LÏMEI ψQF CI ς   &'XdG?QoBICQOlkjPIDQM `JI ]QGDCKJFWM CINQEI@HQ FMkjLILQ߃=Mƒ;8NMkjNCJI!)QI "&FI##QC $ ÀCzxZ  JSОMkjLEQEJAJ kjIR %SITL kjL kj򟦀EDJ@AJGEQDJ JL kjHI PLQ RIQB 7 8 SIuu%TQPukjp RI4S TL hkjc·Ϸ PSLQ RSQ 4 5:S  A$TQPKkjFEQDJKJ@ICQJQH8JRLSITC 0kj+$ FHIFGEQDKJJICQJQ HEQO ƀKJA KJA6JICQJQLJRLS TC kjIQA kj RI%S TL kjÐRLSITI kj A ZIyQ@RLSTI ,nkjL kjdEQFJ G J\ ICKJM CƌJHEJIMkjLICQ JHH: NNJ̄SI7TNUI )kj&NK'vNN `C  FCkjRMQƒa??MI £kj CMJ kj  RI STI kjJR &SITC kj kjIEQJ JGK@G JEB& [4IJQpK@G Jo kjC  FCZkjOVkjQQkjICJJ Hkj¦ϦQR STI ZAZE ZZokjBkjCIBQ‚Bkj4 Dȣ_kjIG‚D4.@Gkj# BCEöFGóH Iˤ@k jEk jCŀFk jIKCBEF5  MKk jC %ZanZfZij&' \QE M kk jB @ t@`K IƣkjB@G? 0IB@G7K0IćI@kjIkj킣B Ikj˜B˟ @“B M 'k jGk jCQCED 3Zm( 'Zr 4EIDk jIEk jHǃ#  001234:4_44Y TITL %S * Entry to %S * Debug Code Block BYTE %N,'%S' * Routine Name RES %N,0 * Remainder of Block WORD %N * Profile counter WORD $-%N * Block Validity pointer  EQU $  ENT  ENTRY TO %S  IMS #-2 * Increment Profile count NOP * Return  BRTN * * Call BLANK:F4 NAM %S %S EQU $  EQU $  NAM %S %S EQU L EXTR %S BLANK:F4cBLANKBLANK:L) EQU $ COMMON %S SHARABLE %S %S REL 0 RES %N ORG BLANK:F4BLANKBLANK:CAI:::??? EXTR %S 5jB܂߂݂ۂقׂߟՂޟӂݟтܟς۟͂ڟ˂ٟɂ؟ǂןł֟Â՟ԟӟҟџПϟΟ̟͟˟ʟɟȟǟƞŞĞޞ򂿞Bkj v 8ql \Zw6jZzZ|Z~ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZdZ62555555555555555555555555555555555555555555555!C DB E kj kjCkjIˌNj EKdžE6# UYBC *DB؞֣kjB@GL@ MkjŸ *_kjCkj =DDQkjCkjCkj@kjI=DD7kjCkjC@kj 8d Z7ZUZZZRq AkjI BQh Qkjb Akj XkjW YkjQ KkjK =kjCkj@ *kjC6kj4C/kjC-@(kj"[[ [OC Lkjˣkj *mkjCkj $akjCR +Zkj -TkjCCCMkjCkjCkjCkjCkj 8 [[[[ [#[&CӣvkjBͣkj w =r  A7%66666666676777 77_70707Z7+777N770707Z7+777N776777f67777777707N707N77777777777[)[,d7 67# BC @JQȠCπkjCJQ M L8@CkjCĠCIĀ# BC IIBQF BCIBQC @IBQX BUIBQR BOIBQL BIIBQF BCIBQ 8X# 34 BC ƣkj 8e"ςϏ BEIBQB CSM?CDCM J@8/EDSM?BCϪǬ BIϧQ̀DF ?Iǚ kjEύFK LI9 99/9019yAMI kjkj lFk eCEcE\XJIK LI kjKJIK LI kjE=B=C@A;99999# B CD++KICQC CDSM? C9; @ASǃD ?  kj9;9;"# BCD ˢ @JQ QDœGDHÙIC  QD€CC9\9\JHGkj# 3[<>? 568'8\99<U8/ZwCOPYADDSUBMULDIVANDORXORCSKEXCHNEGCOMP[SHIFTROTATEvIMSDMSEJEQJNEJLTJGTJLEJGEJMPJSTJSKJEQDJNEDSBIT 2,SRBIT 2,SSINNOPCLSNCEACSMADDFZSUBFfMULFwDIVFCSKFFIXFLOATCBITUnknown machine operation %N%N+%N(Y)+2G::+%NGlobal %N too big%N(X) G::+%N(X)Global %N too big(X)%N(Y,X)L,%NvLO,%NR,%NsRO,%NRA,%NUnknown machine address mode %N%C%C:%X49jwBC}GDHHI GLIGQI GFIGQC &GπE 4 7 FEGFHIIGk jHGk jDGńHIGQ BQC󞔞 )BINEOFPIBk j BIGGk jJÞQ $k jÔQG %k j BLGMHN"01#BIBEC9TOMLk jIQEGCHDGEHF k jDCk j ,k jFEk jk j# BC>aAQP !BFI+BQC B %6kjI0C*kjDC%kjD!CV.JDDI JCBpkj lkjDCgkjdkj# BéQHkjXkj# BC HIJBkj# BC’ϒQEkjDICBkj# "d[AVBCvkjI&EQ ʇllQ Ekj£dkj]]DCkjH EkjI˩Ǩ# BGcB BBkjBkjB Ay c o mr34[R2BGI kj# BGI% kj# Bd ɠB_kjɠBU  MBN Q L;+;+CBFJQŀBkj LC  QC ;A;AB1B/,BCkjIQCFQ [c[hΞ͞;`K@Frkj# BţkjB Lfkjkj # B@VkjI˧Ǧ# BkjD CCBkjqICGBkjGkjC CDge#  [l[n[p[t*&YBCQy FDQDB Bkj kjEȀEEĀ ҀEkjIK LEMCBkjɠEE;̀M;Ekj KI LEMCBkj kj "4V/3?BF KI%L MChkjEkjIBQKICkj# B BR KëϫQgBE ?QEkj >>>>>)CkjkjBI BQ IBQB+kj&kj " ykj[". kj# B A IBQAH@I@ BA GI BQAH@I@ =BA GBIH@@# @9j: :j:v::;;;g;{;;<:<<=8=B>PV.:[A^!Floating point code requires M490!Floating point code requires M490 %S EQU $  %S $ SETEQU WORD WORD :%X4  JMP  JMP LPOOL * :%X44%N(Y)G%N=%N  * Code begin * End code >zBO G5 # BICD HEFG[G k CKjG !xGJQˀH D@ADCCGJQG IHG FGJQCG IHH F G1GJFO \ G G O \ G HCEJEk CjG 5F GEFCO G FV5V7V9* 8PkjGG \PkjGGV\\ CGVFPkj\ \ G51B 'AG&GƒAO G>zV5 [?Xg 2kjBkj@`K CH DEFGk jHI HQ8 H5I HQF HCHHQ \Hƣk jEDBHIDDM3k j # k jHRDB :CBĀ DC@`KO` P@`KQŠCk j#  -[d5678??X["Double precision constant too long?BC IG[_G IJGGWG CG'G HGKLBLLDŽLÀKk j ¸Ǽ¼kjlIā³kjA IāG§kjA GAᢝIā™kjHǃӞ֞VUVWVXVVHA@V:HVVAVCVFVHVKVM mՂkijccG[IG MNGVGCG&G G kjK O G MNG kjGGWG CG'/ -,QD)@AJDFDEDDFDO GIIDVPVRC?JGVG CG&G G kjjG[!G MNDOG kjG kjGGWG CG' # # GEV:?V@:?VE ?VJ+?VO-?VT.?[B @BCDy̠BBIĂB BIĄaN@BāDQN@BĂDAN@BăD1B# BCENaDFBBFXNiBBFX?NYBBFXNIBB# @BC DGJE K @DKEĂ IIHEN@āEINIECJKIECCHJHSIAw?# BC EJF @DKEāDFEGEāFDE# BC E FĈ GCF cFA# BC FDGBFD́@BFDA# BC GONBā# BC IGHDHB JHE+̀IJDHB HEIDHB @IIDHB JHEIDHB @IIH HHR DBIDB# BCIIGHDHB @IHJQDE @ JDHB @DHB @NDHB @DHB @II IHJHHIBX"# BC GIK JJJBJDFPNNk jJ BJJBNKASPNk jJJB @KJJJRW# BC DIEEBDEBWDEBIDEBDEBIDE EDQ# BCEOG FEOGEIGDHAxGFDGFB EUBUlGFKIDGF B EKKUB U I GBGKGHPN# BCEOGFEOGEDGGFGFB @EUB UGFJHSŀGF B EBN@ H GBGJGSN# B CCKCB BCCR5# BCHHG H HGKGFD @Q3GF BCD @k Qj HHFMNEDk jFBEMNEDk jCHCEDk jDQCKCFMINE k jEDk jCRIBCGFIGD GKGIwuC ‡k j# CB[GZBC DBJEC FG HK GEcIdHkjFcIdGkj [H [G I[[H [G [K[MsqE\NNy]Fy^] 8^]^^@DDZIcdIHkj^]^IcdIGkjF\؁`Q} [[H`[G_[K[Mrp`\J\ dHefIg@Gk j [[G`[H[K[Mtr dGefIg@HB Yk zj cGdeIf@HkjHcId eGkj\c]dHe f@DkjថI[[F_[D[K[Mtr# BCJD E @ڒ ā JJDKJEJKJACSA [Mnl E@Bk j# BC DBJEC FG JJKIKHKGEgIhJk#j݀FgIhIk#j ^^H ^K^Mwu _I` ^IG^Jf_Igefek#j GIGeC@AZ`gek#jIG Gf^_H gefek#jݠG`^_Hc @^J^R@_H`_J_R3EcFaENiXFiB bHIĀHgIh iG"!k#jagbhHi AxCSZj@Dk#j# BC DBJEC FGMK LKKKJKIKHKGyIzKk5jˠK°k5jEy z@Mk5jIpM @ IppM pKpM wu ppMuKˆqpA @[G\Mk5j˄qIIKqywwk5j HKqyk5jˀpMIyHk5jˠGpKM @uGGy z@Ik5j˄sqJq KqKyIzq{Jk5jpyJzI{ |Mk5j˄sqJqABCkj kjDBkj ECkj kjFCkj GEBCkUjJ HIHED H~JHFKKHJ H H HIb` H# HHB# B# H*@`Kkj (kj bkjIC (DC CKCDwu CIDGʞH HCIHGkjCkjDI¼kjDkj GH&H IHGkjCDkj# BC dkjEDKCDkj GI$H <\-[V^[["GGE GKGGHvtEBĀICkjqGICkjGEDPEICkjIGHEK KGC k jMGKk jGKGHki# &% HV^H[ UCUOCFCI UL#SLVI_B ( B BBG҂ңkjIvIvK# BC D E $ KJkjFIEQ@ ETCQ FOI FQL $DI LEkj EEDIĆ DI$DJELK@`KM` NKJkjFSB@ I# &<["%\OBHkj# BIkj# BC dkjF‚ GI$HGF GKGGHvtI FDBkjGFkjkjFID6kj CNFĀJ.V_-?_V`(FC@`K IIDkjr)I` @`KIDkjvHŒGGIGQ‚TGJGFIIkjvR@`K)IIkjv GFJ`GBGF @`K)@Ikjv GBG JuEBF\&\\+kjE (GkjGŠGFĀG GkjIGQǀFkjGJ# ]<^.=I_>IwIIV_IJ[SJhBCkjDk jIk jIEFJ GHDQ@Bk j  k j k jIGEGD@Bk jK IGGDBk jK AKk jIGGWIBk jLIMGNLOK&* ZNBukjP CI PQPUMCkjIMMN NOcaMJRICkjEhINkjO I OQOTNCkjINN 1NINQIN SICkjI%k jJ%k jFK# BCLrkjCI CQCCK# ?JVaKK>BC BIĂBCBDĄBEBFĆBGBHĉk jBk jI(IIŠIBĀI Ik jIIQ‚IK# _]<^cKKBkjCBIBBkjCK# BkjCBIBBkjCK# =[\KKKABCkjDIEFŠBECkjDŠCFQG @@kj ETEQH˓ @ EIĈ FFECĈFB L8L8# =<KL<kjB kjBkjLK#  [EL<LOkjB kjBkjL^#  \ELOLbL (BBEBkjBJBJQ kjI kj` CD @K ` LJCJkj EؠD̆HCHk jȠCQCJĀ CHL+DK CLJ@`KMJkj# kjC (BBDI CQŀBkjB B # <>E\:\_YBw CIDBQJԂԣkj  kjDkjBX kjDB kjF kjkjFkjD쀈FE1 CKQ@  "M]^MoMo[ [CKQ+ @`K kjFMQ HBkjGA C@`Kkj C@`KkjFMmMoMoMoMo!EIkjB BkjESK CBJ@E3kjDCkjDM# \\<.BLb`LEL[I-You are not allowed to close SI, SO or LOG MIkjB‚Þ E DQE˺ @IĈE + J@`KK` LI kjIDQBD kj FIGFE FKFFGvtkjEBM#  <\[_MMekjB‚ CIBQ B退D CQE @IĈD @BkjE@`KFA D@`Kkjy D@`KkjyD DK )zIӣkju)|F` @`KIkjyEŒCCICQ‚CNHD @`K)|@Fkjy CBCDN <>\\&\ \" kjIE FED EKEFwukjDBN# \_MN0B@`KC` !FBkj_BICkj[)F` @`KICkj_EŒDGIDQ‚DN @`KFkj_DN# ?&\\ NNABC` D@`K$E` >H@`KIDBBٞECBОIDˢ˄H` @`KIDGŒFGIFQ‚FO"IEI` @`KIEGŒFGIFQ‚FO( ` IHFO3# ?>&B3\\ NO<"kjB CIBQH–kj  kj O]#  <["O<[0OcwkjB CIBQJkj EHBkjCIąEECHEQEEBɠCCFE kj+$ kjGIFCĆG CIąCJG+ BL@ kjȀBĀIIkjGCBL‹kP <[">&[&j CI$CK ML@`KN` OLKk jIHQĠCCHĄGP C CCIĂCP# \Oc[ 0interlocked with PaBkjC DICQJԂԣkj EJIĆD E@AEDĀEȠDB kjE  $DDBJkjD I BQH BED ICkjFJI DCKFkj Pt#  <\"%>P\0P|SBCE kjHףkjE kjDJCBkjEkj kj# BCkjCJDKBkj# Bhycm PPP ECJDKEkj# Vb #\\ \\%\/\?\HT\S"P|#PVb\Y I-O ERROR: %N on file %S, stream %N No buffer space left All streams in useYIllegal stream number selected:No current streamFile descriptor error%S On file %S, stream %N P;BC D @³Ā#  @HĀDC kj# E @DECāDECIE ED FECEKEMr# <PQ-VBC` D@`K)v ܞ)ϨC )K) s€Bkjn@)vϣkjj)D` @`KI)vkjn )HQ CIC CՄCDkjn# I)Q‚ϞQC# ?&\\Q-QB C KQB kjQ# <bQQB ) CD KQB Q# <aQQB@`Kkj CF‡Ckj# ]\`8.Q\` FRMEM0 error QB @`KI@`Kkj DFˆDkjCQ# ] \g8-Q\g GTMEM0 error QjBI/GIkj# B :GIBkj# BC@`KE G@`KEkjIRIBkj NIGGCNE @G6FK0SGBkj GGCNE @@G!F 0SGBkjIGG NHDSGBkjN N C# Vc\% 2Q4QVcQRHIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII  IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII! IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII" IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII# IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIe 810120093659810120093659810120095210e%J810120093659810120093659810120095209$ e 810120093659810120093659810120093659e810120093659810120093659810120093659810120093659810120093659810120093659eg8112182238357581121822391550810120094747@ekd=8112182239185081121822400375810120094827@e V8112182240067581121822401050810120094836@ e(% e8112182240137581121822401800810120094845@ e08112182240212581121822402550810120094853@ e8~8112182240285081121822403025810120094900@ e;8112182240335081121822403500810120094906@ e>8112182240382581121822404075810120094913@eB8112182240437581121822404500810120094919@eD8112182240480081121822404925810120094926@& eFA8112182240525081121822405400810120094932@eH8112182240570081121822405950810120094940@eL8112182241025081121822410400810120094946@eN8112182241072581121822410850810120094953@eP8112182241115081121822411300810120094959@eR8112182241160081121822411750810120095005@eU' 8112182241207581121822412225810120095012@eV8112182241257581121822412675810120095019@eW8112182241297581121822413075810120095025@eX 8112182241340081121822413800810120095034@ea 8112182241410081121822414575810120095042@ek8112182241487581121822415050810120095049@en8112182241535081121822415500810120095056@( eq@8112182241582581121822420025810120095103@et'L8112182331272581121823314250810120095120@e+U8112182331485081121823320475810120095142@) . CORAL SYSCG4 SYSCORAL HDR CORALU HDR CORALK HDR CORALM HDR CORALUM HDR CORALKM HDRDIRACC HDRDIRACCU HDRDIRACCK HDRBCPLMACS MACBCPLMACS:NRMACCRLRTX4 MACCRLRTX4:NR MACRTX4TABLES ASMRTX4TABLES JCLRTX4CORALA JCLRTX4CRLA:NRJCLRTX4START OBJRTX4STRT:NROBJRTX4 HDRRTX4U HDRRTX4K HDRRTX4CRLC:NRLIBRTX4CRLD:NRLIB ` BIJ@`K k j KJ GKBȀK̀JK K pJRg# \<3RHRk!BC DIEFEBKECkjEKEFqoD@G@R# %'RkRBCIkjDEEBkjECEJEE2# &(RRKBCIkjDICkjEIFFDE DE @BkjGFCkjHG GF FFI# &)RRBIkj# &*RR#BC k jBk jENFOGPHQIRDCk j k j# \n 8R\n ERTRAP error %N S$BC kjCHBkj kj# \w AS$\w.Procedure missing at Global %N, called at %X4 S=/ BCDkjBA !v HDkjBI+BQţkjBC G"EDC 0BB ОUlECkjBB 0 :gAkjBACU#  U>U#BC EFCE@ GBUB UG 0kjDAE EFge U# U\BC `+# cv\BC `+# d\BC `+# ]\BC `+# ^)\BC `+# _[\BC `+# _\BC `+# _\BC `+# `\BC `+# `5\BC `+# `\BC `+# a\BC `+# a*\BC `+# c=\BC `+# e9\BC `+# fH]BC `+# f] BC `+# fq]>ACGB `+ D D+HH+E+I*F `+ `+JRaC螏Sb\ `+ȞBm `+B `+BBg#g0c=ea&]e`w HR+mفDpFr no t s` 8u0v xQÀyXt)׌5eHrnofH)5.wA+o€n[` %u s `+.r0m)HE `+%A `+ w ^g'oHpJ r0v lxQȠrnoyNo)58wÀo€n `+.r` %u s0GDpFr e0<.m  H @ mrp q 0s0m ! # w|C #  # ]@g#^) GIJDEF` CB `+e^D^_e^DBCO ܂ @B`H%'`@qC {ee^_0GHDJK` I FC M NOP E `+ЀLԁJ /ŀM qNDOqP K_^ee   ŀQЀL)MMLMNLNJ . /U瞃RyR㠀1HQ{zRwvL 1ZRqRzNMJD`H%'`@M `+;A7L)M .L)MMLMOLOJ / .OWPMD`H%'`@M E `+A LM UL)MMLMPLPes000g?^_@ BCDFGH` E IED؀J| z `  Z @IH 9 / : _GIF HI @KB]IC`H%'`@Uee_[7BHIFDG` CE JK `+ޠCB™AAAH I FFF `+c=ea*e&HBLyC+Lz D  I `+L `+ULDQIRe_* BCDBBEBBFBBGBBHBBIB C@NyJ+  G# ee _" !B` F G DH1NHByx uC `+og8eg@c=e`CB FG `+D+E*  Bea&g#e`5*DBC  B GHQ `+E+F*OP iIC  ceea&g#g>V `+EYNN `+Z [*\*]+KZ [ `+ `+Z [+ 낶Z [ `+ `+ Z [+ۂZ [ `+ӂ NZ [ `+Nz `+ `+a*cvg:c=`.. `.  `g:@`'CDEFG @   EEEFCEEDE teeXeaCDE @   CCCDCCC veeXea&L* *FBCM@SD@HMSAEDhЄ\[ `+ Y+ZC]yFyBH1 HQ 0 9y X Zgaeeagg@y]srGFg `+'AB IޠGgI*…5]GC BI JQR fLLLZYZV„ɄfBĤ[ Zf /\uIY-Y 1YILSLNq zIYyiIYgDDDbeffOLUF00b 0g#ByI؀\΄Y ^y DWY \ מoTQ- /B JI) BJ`H%'`HY+J`H%'`HY+InFޠD[\Z  IYY+U DG YDI YJ '\IJ3FZY+A@"GESAIČ L L aIR##c @FvGEA  ! գ1L EIĄGs ENG_ ^ 0` AG d<g@fvBC1JB{zCwv YIC UI@J# IJIB`H%'`H+ / .BY`H%'`H+BYIjBJ # BI IJ# Iyр̀yɀŀy # # 9 0 F A # # N1@ # Оzeg?e c=BPLCCW R N `+O+M*PGeeX cvCDF EGC BK|1ecvBCDEIDF @M NO I PCHQBR@SD@EՀ Bw CI0G HIBH`H%'`HI+H `H%'`H+,IGf QR`H%'`HFI PR)hQvGCDT3 FGCI*eeXe IF V@V܀@# T NP P aT`TEL[P` O qFOJÀK"EH"'F  # LQQR`H %'`HLS1G`H%5'`HS 1 + qS @FL# Q*QR`H%@' 1 + 0 %@'`@# %5'@`@Q# d(BCDEIDF @K L NCOBPM QD EeeXec Dn _ C&GJBI H1܂ĄNÄP„O NP O Q `H%'`H+!J)`H%'`H+HI`H%'`H+HIJ)GGKI FJGCD@RtQDRe EB @ C DF B EEEyJweeX'ee9 B @ C+E DF BJ|eeX"eeXB1Bv @ eeg@ees# BC`H%'`H+CD`H%'`H+CDBnC# e@`p`p@C @jr<`pAAB`@ `p@k# @Ap # eqB #  1XB1QC OC`ABC@`ؠnBhԣIʤD+BCCʞ ,ú Ā , C!E+CQU @RB֋QBBD1A8 2g@fefg?g9e,ZBZPCIOCSL @REiQE Eb^  ENU E FfH" BD` CE FGHIJKL `+A `+CDueLDa*ec=_fqBCDŀBDC D|eefef C! CD1iʀCD qeggg#e CoB+C CJā BC] _f5 BC D1H BDwC D1KɠBKDBȁāB1IǀKBȁā `eggg#efP PP :g # SL'g=gC @c # C @ vC @c # C @ vg;g< g;g=g>@g8#g?mF0EBE5E3--E2E1DŀBDC D|eefef C! CD1iʀCD qeggg#e CoB+C CJā BC] _f5 BC D1HCOMMENT File: CORAL.HDR (A200) Lower case header for standard (non-floating point) library CORALB.LIB . These routines may be included in your program by the statement LIBRARY "CORAL.HDR" Program control --------------- The entry point of the main program is in global 1; COMMON ( PROCEDURE stop/2(VALUE INTEGER); COMMENT File control ------------; INTEGER PROCEDURE findinput/6(VALUE INTEGER), findoutput/7(VALUE INTEGER); PROCEDURE statusfile/8(VALUE INTEGER,VALUE INTEGER); INTEGER PROCEDURE deletefile/9(VALUE INTEGER), renamefile/10(VALUE INTEGER,VALUE INTEGER); COMMENT Stream control --------------; INTEGER PROCEDURE input/12, output/13,  selectinput/14(VALUE INTEGER), selectoutput/15(VALUE INTEGER), endread/16,  endwrite/17, rewind/18, readback/19; PROCEDURE statusstream/20(VALUE INTEGER,VALUE INTEGER); INTEGER PROCEDURE interlock/21(VALUE INTEGER,VALUE INTEGER); INTEGER sysin/70, sysout/71; COMMENT Reading and writing -------------------; INTEGER PROCEDURE readchar/22, unreadchar/24, writechar/25(VALUE INTEGER), newline/26, writetext/27(VALUE INTEGER),  writedec/28(VALUE INTEGER,VALUE INTEGER), writenumber/29(VALUE INTEGER), writehex/30(VALUE INTEGER,VALUE INTEGER), writeoct/31(VALUE INTEGER,VALUE INTEGER), writef/32(VALUE INTEGER,VALUE INTEGER), writef2/32(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER), writef3/32(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER, VALUE INTEGER), writef4/32(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER, VALUE INTEGER,VALUE INTEGER),  readnumber/73, readfield/74(VALUE INTEGER,VALUE INTEGER), writefield/75(VALUE INTEGER,VALUE INTEGER); INTEGER terminator/76; COMMENT I/O Error handling ------------------; INTEGER PROCEDURE-  iotrap/34(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER), ioerrormessage/35(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER); COMMENT Byte and string handling ------------------------; PROCEDURE putbyte/37(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER); INTEGER PROCEDURE getbyte/38(VALUE INTEGER,VALUE INTEGER), packstring/39(VALUE INTEGER,VALUE INTEGER), unpackstring/40(VALUE INTEGER,VALUE INTEGER), comparestring/41(VALUE INTEGER,VALUE INTEGER), stringlength/42(VALUE INTEGER); COMMENT Store allocation ----------------; INTEGER PROCEDURE heap/44, getarray/45(VALUE INTEGER), freearray/46(VALUE INTEGER), stack/47; COMMENT Time and date enquiries -----------------------; PROCEDURE date/50(VALUE INTEGER),  tod/52(VALUE INTEGER), setdatetime/90(VALUE INTEGER); INTEGER PROCEDURE time/51; COMMENT Miscellaneous -------------; INTEGER PROCEDURE muldiv/57(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER), compareaddress/58(VALUE INTEGER,VALUE INTEGER); INTEGER result2/59, libversion/72; INTEGER PROCEDURE changephase/67(VALUE INTEGER); PROCEDURE jumpto/68(SWITCH,VALUE INTEGER); ); date/50(VALUE INTEGER),  tod/52(VALUE INTEGER), setdatetime/90(VALUE INTEGER); INTEGER PROCEDURE time/51; COMMENT Miscellaneous -------------; INTEGER PROCEDURE muldiv/57(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER), compareaddress/58(VALUE INTEGER,VALUE INTEGER); INTEGER result2/59, libversion/72; INTEGER PROCEDURE changephCOMMENT FILE: CORALU.HDR (A200) UPPER CASE, UNSTROPPED HEADER FOR STANDARD (NON-FLOATING POINT) LIBRARY CORALB.LIB . THESE ROUTINES MAY BE INCLUDED IN YOUR PROGRAM BY THE STATEMENT LIBRARY "CORALU.HDR" PROGRAM CONTROL ---------------  THE ENTRY POINT OF THE MAIN PROGRAM IS IN GLOBAL 1; COMMON ( PROCEDURE STOP/2(VALUE INTEGER); COMMENT FILE CONTROL  ------------; INTEGER PROCEDURE FINDINPUT/6(VALUE INTEGER), FINDOUTPUT/7(VALUE INTEGER); PROCEDURE  STATUSFILE/8(VALUE INTEGER,VALUE INTEGER); INTEGER PROCEDURE DELETEFILE/9(VALUE INTEGER), RENAMEFILE/10(VALUE INTEGER,VALUE INTEGER); COMMENT STREAM CONTROL --------------; INTEGER PROCEDURE INPUT/12, OUTPUT/13, SELECTINPUT/14(VALUE INTEGER), SELECTOUTPUT/15(VALUE INTEGER), ENDREAD/16, ENDWRITE/17, REWIND/18, READBACK/19; PROCEDURE STATUSSTREAM/20(VALUE INTEGER,VALUE INTEGER); INTEGER PROCEDURE INTERLOCK/21(VALUE INTEGER,VALUE INTEGER); INTEGER SYSIN/70,  SYSOUT/71; COMMENT READING AND WRITING -------------------; INTEGER PROCEDURE READCHAR/22,  UNREADCHAR/24, WRITECHAR/25(VALUE INTEGER), NEWLINE/26, WRITETEXT/27(VALUE INTEGER), WRITEDEC/28(VALUE INTEGER,VALUE INTEGER), WRITENUMBER/29(VALUE INTEGER), .  WRITEHEX/30(VALUE INTEGER,VALUE INTEGER), WRITEOCT/31(VALUE INTEGER,VALUE INTEGER),  WRITEF/32(VALUE INTEGER,VALUE INTEGER), WRITEF2/32(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER),  WRITEF3/32(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER, VALUE INTEGER),  WRITEF4/32(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER, VALUE INTEGER,VALUE INTEGER), READNUMBER/73, READFIELD/74(VALUE INTEGER,VALUE INTEGER), WRITEFIELD/75(VALUE INTEGER,VALUE INTEGER); INTEGER TERMINATOR/76; COMMENT I/O ERROR HANDLING ------------------; INTEGER PROCEDURE IOTRAP/34(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER), IOERRORMESSAGE/35(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER); COMMENT BYTE AND STRING HANDLING ------------------------; PROCEDURE PUTBYTE/37(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER); INTEGER PROCEDURE GETBYTE/38(VALUE INTEGER,VALUE INTEGER), PACKSTRING/39(VALUE INTEGER,VALUE INTEGER), UNPACKSTRING/40(VALUE INTEGER,VALUE INTEGER), COMPARESTRING/41(VALUE INTEGER,VALUE INTEGER), STRINGLENGTH/42(VALUE INTEGER); COMMENT STORE ALLOCATION ----------------; INTEGER PROCEDURE HEAP/44, GETARRAY/45(VALUE INTEGER), FREEARRAY/46(VALUE INTEGER),  STACK/47; COMMENT TIME AND DATE ENQUIRIES -----------------------; PROCEDURE DATE/50(VALUE INTEGER), TOD/52(VALUE INTEGER), SETDATETIME/90(VALUE INTEGER); INTEGER PROCEDURE TIME/51; COMMENT MISCELLANEOUS -------------; INTEGER PROCEDURE MULDIV/57(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER),  COMPAREADDRESS/58(VALUE INTEGER,VALUE INTEGER); INTEGER RESULT2/59, LIBVERSION/72; INTEGER PROCEDURE CHANGEPHASE/67(VALUE INTEGER); PROCEDURE JUMPTO/68(SWITCH,VALUE INTEGER); ); DATE/50(VALUE INTEGER), TOD/52(VALUE INTEGER), SETDATETIME/90(VALUE INTEGER); INTEGER PROCEDURE TIME/51; COMMENT MISCELLANEOUS -------------; INTEGER PROCEDURE MULDIV/57(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER),  COMPAREADDRESS/58(VALUE INTEGER,VALUE INTEGER); INTEGER RESULT2/59, LIBVERSION/72; INTEGER PRO'COMMENT' FILE: CORALK.HDR (A200) UPPER CASE, STROPPED HEADER FOR STANDARD (NON-FLOATING POINT) LIBRARY CORALB.LIB . THESE ROUTINES MAY BE INCLUDED IN YOUR PROGRAM BY THE STATEMENT 'LIBRARY' "CORALK.HDR" PROGRAM CONTROL --------------- THE ENTRY POINT OF THE MAIN PROGRAM IS IN GLOBAL 1; 'COMMON' ( 'PROCEDURE' STOP/2('VALUE''INTEGER'); 'COMMENT' FILE CONTROL ------------; 'INTEGER''PROCEDURE' FINDINPUT/6('VALUE''INTEGER'), FINDOUTPUT/7('VALUE''INTEGER'); 'PROCEDURE' STATUSFILE/8('VALUE''INTEGER','VALUE''INTEGER'); 'INTEGER''PROCEDURE' DELETEFILE/9('VALUE''INTEGER'),  RENAMEFILE/10('VALUE''INTEGER','VALUE''INTEGER'); 'COMMENT' STREAM CONTROL --------------; 'INTEGER''PR/ OCEDURE' INPUT/12, OUTPUT/13, SELECTINPUT/14('VALUE''INTEGER'), SELECTOUTPUT/15('VALUE''INTEGER'), ENDREAD/16, ENDWRITE/17, REWIND/18,  READBACK/19; 'PROCEDURE' STATUSSTREAM/20('VALUE''INTEGER','VALUE''INTEGER'); 'INTEGER''PROCEDURE' INTERLOCK/21('VALUE''INTEGER','VALUE''INTEGER'); 'INTEGER' SYSIN/70, SYSOUT/71; 'COMMENT' READING AND WRITING  -------------------; 'INTEGER''PROCEDURE' READCHAR/22, UNREADCHAR/24, WRITECHAR/25('VALUE''INTEGER'), NEWLINE/26, WRITETEXT/27('VALUE''INTEGER'), WRITEDEC/28('VALUE''INTEGER','VALUE''INTEGER'), WRITENUMBER/29('VALUE''INTEGER'), WRITEHEX/30('VALUE''INTEGER','VALUE''INTEGER'), WRITEOCT/31('VALUE''INTEGER','VALUE''INTEGER'), WRITEF/32('VALUE''INTEGER','VALUE''INTEGER'), WRITEF2/32('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER'), WRITEF3/32('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER', 'VALUE''INTEGER'),  WRITEF4/32('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER', 'VALUE''INTEGER','VALUE''INTEGER'), READNUMBER/73, READFIELD/74('VALUE''INTEGER','VALUE''INTEGER'),  WRITEFIELD/75('VALUE''INTEGER','VALUE''INTEGER'); 'INTEGER' TERMINATOR/76; 'COMMENT' I/O ERROR HANDLING ------------------; 'INTEGER''PROCEDURE' IOTRAP/34('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER'),  IOERRORMESSAGE/35('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER'); 'COMMENT' BYTE AND STRING HANDLING ------------------------; 'PROCEDURE' PUTBYTE/37('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER'); 'INTEGER''PROCEDURE' GETBYTE/38('VALUE''INTEGER','VALUE''INTEGER'), PACKSTRING/39('VALUE''INTEGER','VALUE''INTEGER'), UNPACKSTRING/40('VALUE''INTEGER','VALUE''INTEGER'), COMPARESTRING/41('VALUE''INTEGER','VALUE''INTEGER'),  STRINGLENGTH/42('VALUE''INTEGER'); 'COMMENT' STORE ALLOCATION ----------------; 'INTEGER''PROCEDURE' HEAP/44, GETARRAY/45('VALUE''INTEGER'), FREEARRAY/46('VALUE''INTEGER'), STACK/47; 'COMMENT' TIME AND DATE ENQUIRIES -----------------------; 'PROCEDURE' DATE/50('VALUE''INTEGER'),  TOD/52('VALUE''INTEGER'), SETDATETIME/90('VALUE''INTEGER'); 'INTEGER''PROCEDURE' TIME/51; 'COMMENT' MISCELLANEOUS -------------; 'INTEGER''PROCEDURE' MULDIV/57('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER'),  COMPAREADDRESS/58('VALUE''INTEGER','VALUE''INTEGER'); 'INTEGER' RESULT2/59, LIBVERSION/72; 'INTEGER''PROCEDURE' CHANGEPHASE/67('VALUE''INTEGER'); 'PROCEDURE' JUMPTO/68('SWITCH','VALUE''INTEGER'); ); TOD/52('VALUE''INTEGER'), SETDATETIME/90('VALUE''INTEGER'); 'INTEGER''PROCEDURE' TIME/51; 'COMMENT0 COMMENT File CORALM.HDR (A200) Lower case header for floating point I/O library CORALC.LIB and mathematical library CORALD.LIB. ; COMMON ( INTEGER floerrorcode/151; FLOATING PROCEDURE abs/158(VALUE FLOATING), random/159; FLOATING PROCEDURE intpart/160 (VALUE FLOATING), fracpart/161(VALUE FLOATING), power/163 (VALUE FLOATING,VALUE INTEGER), prinval/164 (VALUE FLOATING,VALUE FLOATING); INTEGER PROCEDURE exppart/162(VALUE FLOATING), round/168 (VALUE FLOATING); PROCEDURE setexp/169 (VALUE INTEGER,LOCATION FLOATING),  writeflo/166 (VALUE FLOATING,VALUE INTEGER,VALUE INTEGER), writeexp/167(VALUE FLOATING,VALUE INTEGER); FLOATING PROCEDURE readflo/165; FLOATING PROCEDURE sqrt/170 (VALUE FLOATING), exp/171 (VALUE FLOATING),  log/172 (VALUE FLOATING), log10/173(VALUE FLOATING), sin/174 (VALUE FLOATING), cos/175 (VALUE FLOATING), tan/176 (VALUE FLOATING), arctan/177 (VALUE FLOATING), angle/178 (VALUE FLOATING,VALUE FLOATING); DEFINE plussymbol "$*S", tenpowersymbol "$E", pi "3.1415926", root2 "1.4142135", root3 "1.7320508", logof2 "0.69314718", logof10 "2.3025850929", halfpi "1.570796326"; );  log/172 (VALUE FLOATING), log10/173(VALUE FLOATING), sin/174 (VALUE FLOATICOMMENT File CORALUM.HDR (A100) Upper case unstropped header for floating point I/O library CORALC.LIB and mathematical library CORALD.LIB. ; COMMON ( INTEGER FLOERRORCODE/151; FLOATING PROCEDURE ABS/158(VALUE FLOATING),  RANDOM/159; FLOATING PROCEDURE INTPART/160 (VALUE FLOATING), FRACPART/161(VALUE FLOATING),  POWER/163 (VALUE FLOATING,VALUE INTEGER), PRINVAL/164 (VALUE FLOATING,VALUE FLOATING); INTEGER PROCEDURE EXPPART/162(VALUE FLOATING), ROUND/168 (VALUE FLOATING); PROCEDURE SETEXP/169 (VALUE INTEGER,LOCATION FLOATING), WRITEFLO/166 (VALUE FLOATING,VALUE INTEGER,VALUE INTEGER), WRITEEXP/167(VALUE FLOATING,VALUE INTEGER); FLOATING PROCEDURE READFLO/165; FLOATING PROCEDURE SQRT/170 (VALUE FLOATING), EXP/171 (VALUE FLOATING), LOG/172 (VALUE FLOATING), LOG10/173(VALUE FLOATING), SIN/174 (VALUE FLOATING), COS/175 (VALUE FLOATING), TAN/176 (VALUE FLOATING), ARCTAN/177 (VALUE FLOATING), ANGLE/178 (VALUE FLOATING,VALUE FLOATING); DEFINE PLUSSYMBOL "$*S", TENPOWERSYMBOL "$E", PI "3.1415926", ROOT2 "1.4142135", ROOT3 "1.7320508", LOGOF2 "0.69314718", LOGOF10 "2.3025850929", HALFPI "1.570796326"; ); LOG/172 (VALUE FLOATING), LOG10/173(VALUE FLOATING), SIN/174 ('COMMENT' File CORALKM.HDR (A200) Upper case stropped header for floating point I/O library CORALC.LIB and mathematical library CORALD.LIB. ; 'COMMON' ( 'INTEGER' FLOERRORCODE/151; 'FLOATING' 'PROCEDURE' ABS/158('VALUE' 'FLOATING'), 1  RANDOM/159; 'FLOATING' 'PROCEDURE' INTPART/160 ('VALUE' 'FLOATING'), FRACPART/161('VALUE' 'FLOATING'), POWER/163 ('VALUE' 'FLOATING','VALUE' 'INTEGER'), PRINVAL/164 ('VALUE' 'FLOATING','VALUE' 'FLOATING'); 'INTEGER' 'PROCEDURE' EXPPART/162('VALUE' 'FLOATING'), ROUND/168 ('VALUE' 'FLOATING'); 'PROCEDURE' SETEXP/169 ('VALUE' 'INTEGER','LOCATION' 'FLOATING'), WRITEFLO/166 ('VALUE' 'FLOATING','VALUE' 'INTEGER','VALUE' 'INTEGER'), WRITEEXP/167('VALUE' 'FLOATING','VALUE' 'INTEGER'); 'FLOATING' 'PROCEDURE' READFLO/165;  'FLOATING' 'PROCEDURE' SQRT/170 ('VALUE' 'FLOATING'), EXP/171 ('VALUE' 'FLOATING'), LOG/172 ('VALUE' 'FLOATING'), LOG10/173('VALUE' 'FLOATING'), SIN/174 ('VALUE' 'FLOATING'),  COS/175 ('VALUE' 'FLOATING'), TAN/176 ('VALUE' 'FLOATING'), ARCTAN/177 ('VALUE' 'FLOATING'), ANGLE/178 ('VALUE' 'FLOATING','VALUE' 'FLOATING'); 'DEFINE' PLUSSYMBOL "$*S", TENPOWERSYMBOL "$E", PI "3.1415926", ROOT2 "1.4142135", ROOT3 "1.7320508", LOGOF2 "0.69314718", LOGOF10 "2.3025850929", HALFPI "1.570796326"; ); 'FLOATING'), LOG10/173('VALUE' 'FLOATING'), SIN/174 ('VALUE' 'FLOATING'),  COS/175 ('VALUE' 'FLOATING'), TAN/176 ('VALUE' 'FLOATING'), ARCTAN/177 ('VALUE' 'FLOATING'), ANGLE/178 ('VALUE' 'FLOATING','VALUE' 'FLOATING'); 'DEFINE' PLUSSYMBOL "$*S", TENPOWERSYMBOL "$E", PI "3.1415926", ROOT2 "1.4142135", ROOT3 "1.7320508", LOGOF2 "0.69314718", LOGOF10 "2.3025850929", HALFPI "1.5COMMENT File: DIRACC.HDR (A100) Lower case header containing Global definitions for direct access routines in DIRACC.LIB .  ; COMMON ( INTEGER PROCEDURE create da/78 (VALUE INTEGER,VALUE INTEGER,VALUE INTEGER), find da/79 (VALUE INTEGER,VALUE INTEGER), select da/80 (VALUE INTEGER), read record/81 (VALUE INTEGER,VALUE INTEGER), write record/82 (VALUE INTEGER,VALUE INTEGER), end da/83, direct access/84; ); HDR (A100) Lower case header containing Global definitions for direct access routines in DIRACC.LIB .  ; COMMON ( INTEGER PROCEDURE create da/78 (VALUE INTEGER,VALUE INTEGER,VALUE INTEGER), find da/79 (VALUE INTEGER,VALUE INTEGER), select da/80 (VALUE INTEGER), read record/81 (VALUE INTEGER,VALUE INTEGER), write record/82 (VALUE INTEGER,VALUE INTEGER), end da/83, direcCOMMENT FILE: DIRACCU.HDR (A100) UPPER CASE, UNSTROPPED HEADER CONTAINING GLOBAL DEFINITIONS FOR DIRECT ACCESS ROUTINES IN DIRACC.LIB . ; COMMON ( INTEGER PROCEDURE CREATEDA/78 (VALUE INTEGER,VALUE INTEGER,VALUE INTEGER), FINDDA/79 (VALUE INTEGER,VALUE INTEGER), SELECTDA/80 (VALUE INTEGER), READRECORD/81 (VALUE INTEGER,VALUE INTEGER), WRITERECORD/82 (VALUE INTEGER,VALUE INTEGER), ENDDA/83, 2  DIRECTACCESS/84; ); (A100) UPPER CASE, UNSTROPPED HEADER CONTAINING GLOBAL DEFINITIONS FOR DIRECT ACCESS ROUTINES IN DIRACC.LIB . ; COMMON ( INTEGER PROCEDURE CREATEDA/78 (VALUE INTEGER,VALUE INTEGER,VALUE INTEGER), FINDDA/79 (VALUE INTEGER,VALUE INTEGER), SELECTDA/80 (VALUE INTEGER), READRECORD/81 (VALUE INTEGER,VALUE INTEGER), WRITERECORD/82 (VALUE INTEGER,VALUE INTEGER), ENDDA/83, 'COMMENT' FILE: DIRACCK.HDR (A100) UPPER CASE, STROPPED HEADER CONTAINING GLOBAL DEFINITIONS FOR DIRECT ACCESS ROUTINES IN DIRACC.LIB . ; 'COMMON' ( 'INTEGER''PROCEDURE' CREATEDA/78 ('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER'),  FINDDA/79 ('VALUE''INTEGER','VALUE''INTEGER'), SELECTDA/80 ('VALUE''INTEGER'), READRECORD/81 ('VALUE''INTEGER','VALUE''INTEGER'), WRITERECORD/82 ('VALUE''INTEGER','VALUE''INTEGER'),  ENDDA/83, DIRECTACCESS/84; ); R CONTAINING GLOBAL DEFINITIONS FOR DIRECT ACCESS ROUTINES IN DIRACC.LIB . ; 'COMMON' ( 'INTEGER''PROCEDURE' CREATEDA/78 ('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER'),  FINDDA/79 ('VALUE''INTEGER','VALUE''INTEGER'), SELECTDA/80 ('VALUE''INTEGER'), READRECORD/81 ('VALUE''INTEGER','VALUE''INTEGER'), WRITERECORD/82 ('VALUE''INTEGER','VALUE''INTEGER'),  TITL BCPLMACS.MAC TITL BCPL MACROS For ROMmable code (A200) * * Version 1.00 --- 1981 Feb 25 AWB: Initial Write. * Version 1.01 --- 1981 May 12 AWB: Global 0 is global vector length * Version 1.02 --- 1981 Jun 08 AWB: SEGMENT macro included * Version 1.03 --- 1981 Jun 22 AWB: DENTRY macro included for DEBUG * code entry sequence. * * ======= * START:: N --- Define global vector of length N in segment GLOBVEC * ======= * START:: MACRO !L EQU $ COMMON GLOBVEC: SHARABLE GLOBVEC: GLOBVEC: REL 0 G EQU $ WORD #(1) RES #(1) ORG !L ENDM * * ======== * PRESET:: N,V --- Presets Global N to V * ======== * PRESET:: MACRO LPOOL !L EQU $ !V EQU #(2) ORG G+#(1) WORD !V ORG !L ENDM * * ===== * BCALL R,S --- BCPL calling sequence for routine R * ===== * BCALL MACRO ADD =#(2),Y JSK #(1) SUB =#(2),Y ENDM * * ====== * BENTRY --- BCPL Function Entry Macro * ====== * BENTRY MACRO * This is a null macro for ROMmable code entry ENDM * * ====== * DENTRY --- BCPL Function Entry for DEBUG code. * ====== * DENTRY XMACRO MACLAB !O EQU $ BYTE #(-1,?),'##(-1)' RES 5-$+!O,:2020 * Routine Name WORD 0 * Profile counter WORD $-7 * Block Validity pointer #(-1) EQU $ BENTRY IFT #(1,'PROFILE')=1 IMS #(-1)-2 * Increment profile count NOP ENDC IFF #(?)=0 IFF #(1,'PROFILE')=1 NOTE W,'Invalid parameter to DENTRY, ##(1)' ENDC ENDC ENDM * * ==== * BRTN --- BCPL Return from Function Macro * ==== * BRTN MACRO RSK ENDM * * ======= * SEGMENT --- Sets Code segment attributes * ======= * SEGMENT MACRO CODE:ROM REL SHARABLE CODE:ROM ROMMABLE CODE:ROM ENDM * ROM:: EQU -1 * ROMmability is TRUE * END BENTRY IFT #(1,'3 PROFILE')=1 IMS #(-1)-2 * Increment profile count NOP ENDC IFF #(?)=0 IFF #(1,'PROFILE')=1 NOTE W,'Invalid parameter to DENTRY, ##(1)' ENDC ENDC ENDM * * ==== * BRTN --- BCPL Return from  TITL BCPL MACROS FOR NON-ROMMABLE CODE (A200) * * 1981-Mar-17, AWB * * Revision History * ================ * * 1981 Jun 08 AWB: SEGMENT macro included. * * START:: MACRO !L EQU $ COMMON GLOBVEC: SHARABLE GLOBVEC: GLOBVEC: REL 0 G EQU $ RES #(1) ORG !L ENDM * PRESET:: MACRO LPOOL !L EQU $ !V EQU #(2) ORG G+#(1) WORD !V ORG !L ENDM * * BCPL CALL MACRO * BCALL MACRO JST #(1) WORD #(2) ENDM * * BCPL FUNCTION ENTRY MACRO * BENTRY MACRO WORD 0 LINK TEMP LOC COPY $-1,X PUT LINK IN X ADD 0(X),Y BUMP STACK FRAME POINTER COPY X,0(Y) SAVE LINK ADDRESS ON Y-STACK ENDM * * BCPL DEBUG FUNCTION ENTRY MACRO * DENTRY MACRO BENTRY * No debug block allowed in NON ROMmable ENDM * * BCPL RETURN FROM FUNCTION MACRO * BRTN MACRO EXTR B:EXIT JMP B:EXIT  ENDM * * SEGMENT --- Sets Code segment attributes * SEGMENT MACRO DATA:RAM REL SHARABLE DATA:RAM ENDM * ROM:: EQU 0 * ROMmability is FALSE * END * * BCPL FUNCTION ENTRY MACRO * BENTRY MACRO WORD 0 LINK TEMP LOC COPY $-1,X PUT LINK IN X ADD 0(X),Y  TITL CRLRTX4.MAC REVISION A100 TITL CORAL/RTX4 MACRO DEFINITIONS (ROMMABLE) * * CRLSDB:A produced by CORAL macros SEMA4 and EXTSEMA4 * They expand into an integer procedure which * returns the address of the SDB produced. * CRLSDB:A XMACRO IFT #(2,?)=0 COPY =!S,A RSK * SDB:A !S,#(1) ENDC IFF #(2,?)=0 COPY =#(2),A RSK * SDB:A #(2),#(1) ENDC ENDM * * CRLMDB:A is produced by the CORAL macros MAILBOX and EXTMAILBOX * They expand into an integer procedure which * returns the address of the MDB produced * CRLMDB:A XMACRO IFT #(1,?)=0 COPY =!M,A RSK * MDB:A !M !M RES 2,0 * ENDC IFF #(1,?)=0 COPY =#(1),A * MDB:A #(1) #(1) RES 2,0 ENDC ENDM * END nteger procedure which * returns the address of the SDB produced. * CRLSDB:A XMACRO IFT #(2,?)=0 COPY =!S,A RSK * SDB:A !S,#(1) ENDC IFF #(2,?)=0 COPY =#(2),A RSK * SDB:A #(2),#(1) ENDC ENDM * * CRLMDB:A is produced by the CORAL macros MAILBOX and EXTMAILBOX * They expand into an integer procedure which * returns the address of the MDB pro TITL CRLRTX4:NR.MAC REVISION A100 TITL CORAL/RTX4 MACRO DEFINITIONS (NON-ROMMABLE) * * CRLSDB:A produced by CORAL macros SEMA4 and EXTSEMA4 * They expand into an integer procedure which * returns the address of the SDB produced. * CRLSDB:A XMACRO COPY $-1,X IFT #(2,?)=0 COPY =!S,A JMP 1(X) * SDB:A !S,#(1) ENDC IFF #(2,?)=0 COPY =#(2),A JMP 1(X) * SDB:A #(2),#(1) ENDC ENDM * * CRLMDB:A is produced by the CORAL macros MAILBOX and EXTMAILBOX * They expand into an integer procedure which * returns the address of the MDB produced * CRLMDB:A XMACRO COPY $-1,X IFT #(1,?)=0 COPY =!M,A JMP 1(X) * MDB:A !M !M RES 2,0 * ENDC IFF #(1,?)=0 COPY =#(1),A * MDB:A #(1) #(1) RES 2,0 ENDC ENDM * END dress of the SDB produced. * CRLSDB:A XMACRO COPY $-1,X IFT #(2,?)=0 COPY =!S,A JMP 1(X) * SDB:A !S,#(1) ENDC IFF #(2,?)=0 COPY =#(2),A JMP 1(X) * SDB:A #(2),#(1) ENDC ENDM * * CRLMDB:A is produced by the CORAL macros MAILBOX and EXTMAILBOX * They expand into an integer procedure which * retur4  TITL (RTX4TABLES.ASM) USER SUPPLIED TABLES FOR RTX4 TITL (RTX4TABLES.ASM) RTX4 INITIALISATION CODE NAM UAT:S,R:INIT LOAD C:RTX EXTR START: SHARABLE RTX4:TAB RTX4:RAM REL * * To change startup parameters for MAIN CODE (START) * reset the following equates * FREEPOOL EQU 6000 RTX4 FREEPOOL SPACE PRIORITY EQU :1000 PRIORITY OF MAIN CODE RTXST EQU 1024 RTXSTACK FOR MAIN CODE PROGST EQU 10000 PROGRAM(Y) STACK FOR MAIN CODE * RTXTAB: REL 0 INIT:A 0,0,RTXST,0,BCPL:ECB,INITDB,PRIORITY,FREEPOOL * TDB:A INITDB,START:,0,0,RTXST+PROGST,0,1 * TITL (RTX4TABLES.ASM) DIBS AND CIBS * LOAD CLK50: * DIB:ST TV00 DIB:ST DF00 DIB:ST DF01 DIB:LP LP00,120,60,LF: DIB:DM DM00,10 DIB:DM DM01,10 CIB:DM DM00,:14 * LPOOL TITL (RTX4TABLES.ASM) UNIT ASSIGNMENT TABLE UAT:AA UAT:S UAT:EE 'UF',D:DF01 UAT:EE 'Z0',0 UAT:EE 'Z1',0 UAT:EE 'Z2',0 UAT:EE 'Z3',0 UAT:EE 'Z4',0 UAT:EE 'Z5',0 UAT:EE 'Z6',0 UAT:EE 'Z7',0 UAT:EE 'Z8',0 UAT:EE 'Z9',0 UAT:EE 'X0',0 UAT:EE 'X1',0 UAT:EE 'X2',0 UAT:EE 'X3',0 UAT:EE 'X4',0 UAT:EE 'X5',0 UAT:EE 'X6',0 UAT:EE 'X7',0 UAT:EE 'X8',0 UAT:EE 'X9',0 UAT:EE 'OC',D:TV00 UAT:EE 'CI',D:TV00 UAT:ZZ ECB:A BCPL:ECB,UAT:S TITL (RTX4TABLES.ASM) SFM BUFFER POOL BUF:R 5 ALLOCATE FIVE BUFFERS AS DEFAULT END UNIT ASSIGNMENT TABLE UAT:AA UAT:S UAT:EE 'UF',D:DF01 UAT:EE 'Z0',0 UAT:EE 'Z1',0 UAT:EE 'Z2',0 UAT:EE 'Z3',0 UAT:EE 'Z4',0 UAT:EE 'Z5',0 UAT:EE 'Z6',0 UAT:EE 'Z7',0 UAT:EE 'Z8',0 UAT:EE 'Z9',0 UAT:EE 'X0',0 UAT:EE 'X1',0 UAT:EE 'X2',0 UAT:EE 'X3',0 UAT:EE 'X4',0  ============== RTX4TABLES.JCL ============== Assemble RTX4TABLES.ASM AS X1=/RUNTIME/ MACRO UF=X1/RTX4TABLES(D=SF.RTX+SF.IOS+SF.IOSD+SF.SFM+SF.GEN,L=,P=56) 810120093659810120093659810120093659 * * RTX4CORALA.JCL * Create new RTX4 CORAL start segment for ROMmable code * Requires RTX4START.OBJ and User tables source, RTX4TABLES.ASM DO RTX4TABLES //CO RTX4CORALA.LIB=RTX4START.OBJ+RTX4TABLES.OBJ 810120093659810120093659810120093659 * * RTX4CRLA:NR.JCL * Create new RTX4 CORAL start segment for Non ROMmable Code * Requires RTX4STRT:NR.OBJ and User tables source, RTX4TABLES.ASM DO RTX4TABLES //CO RTX4CRLA:NR.LIB=RTX4STRT:NR.OBJ+RTX4TABLES.OBJ 810120093659810120093659810120093659O0SEGMENTBLANK GLOBVEC:OCODE:ROMo pim MACRO (F300) @iiiddddddddddddddddddddddddddd5 ddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd0dd<d i p@ *€* ڣkj ~ @+`" A `A A# BCpD @`EEDkjEE IDDEBpCDp@` `B@pkjBF # BC D FĎ E @E F * EŒFR EEg# CddAkAGJSTRMSM4 TS:: C:WPCL JC:WPC C:WPL C:WP JBGNSM TDBLK START: O0SEGMENTBLANK GLOBVEC:ORTSTART:TABLE: RTX:AS  oUKR:SATD DTTIM:0 R:RECV KR:SEND R:GPRI R:PAUS KR:CTIC R:MTIC R:ITIC KR:CINT R:END R:SIG KR:BGIN R:WAIT R:SPRI KC:INIT EXIT:0 NR:SL R:TDBL im MACRO (F300) @m*** RTX4START.OBJ REV -m A200 ***iiig `Pp#V |Pk j P* kjkj:d`td digkd5i!:d BFGEBDF:3:d# di kg>i3d `PBp#V:P  *   B @kjPkj kjti :#  #  # B C `+ # BC6  `+  # BC `+ #  #  :#  # )C `+  # B CD `+ Bā# g  ’kj# # P c# :d# :d# >Ctikg>i^ P*# P*# P*#  P*# P# B:?K  kjBkjkjSTOP %N dd dB F # @@`` %'`@# @@`Dh%' `@# B GG@# D 2 CD`@# A200 gggg( d;idpii&dii%dii:dii9diiDdiiFiiGii d^ii dbii[dfii\djii]dTii^dWiiHdiiwdiixdiiydiizd ii{dii|dii}d ii~d$iid'iid+iid2iiZdDii/dPiind!ii_dni A200 gggg( d;idpii&dii%diiO0SEGMENTBLANK GLOBVEC:ODATA:RAMo ?KB:EXIT im MACRO (F300) @iiiddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd7 ddddddddddddddddddddddddddddddddd0dd2d6i ~耤@@ *B€ *  ~C ddA ~耤@FGEC B@ D`  ~` @`1tJB:EXIT O0SEGMENTBLANK DATA:RAMo im MACRO (F300) @ig@쀜JSTRMSM4 TS::  C:WPCL JC:WPC C:WPL C:WP JBGNSM TDBLK START: O0SEGMENTBLANK GLOBVEC:ORTSTART:TABLE: RTX:AS oTRKR:SATD DTTIM:0 R:RECV KR:SEND R:GPRI R:PAUS KR:CTIC R:MTIC R:ITIC KR:CINT R:END B:EXIT KR:SIG R:BGIN  R:WAIT KR:SPRI C:INIT EXIT:0 NR:SL R:TDBL im MACRO (F300) @m*** RTX4START.OBJ REV -m A200 ***iiig `Pp#V |P  P* :d`td digkd7i~耤@:d BFGEBDF:5:ddt i kg>i5d `PBp#V:P  *   B @L ti ~耤@:~耤@  t  ~耤@  w~耤@ BC `+ l~耤@B C `+ a~耤@BC `+ V~耤@   N~耤@:G~耤@  ?~耤@)C `+  4~耤@B CD `+ Bā$g ~耤@  ¢ ~耤@ ~耤@ P c~耤@:d~耤@:dt kptikg>i ~耤@ P*s~耤@ P*k~@ P*c ~耤@ P*[~耤@ PU~耤@B:?I  BSTOP %N dd dB ~耤@F  )~耤@ @@``%'`@ ~耤@ @@`Dh%' `@~耤@B GG @~耤@D2 CD`@A200 gggg( d;t idiRi&diRi%diRi:diRi9d iRiDdiRiFiRiGiRi diRi diRi[diRi\diRi]diRi^diRiHd$iRiwdiRixdiRiydiRizdiRi{d#iRi|d.iRi}d9iRi~dAiRidHiRidPiRid[iRiZdqiRi/diRindiRi_diRA200 gggg( d;t idiRi&diRi%diRi:diRi9d iRiDdiRiFiRiGiRi diRi diRi[diRi\diRi]diRi^diRiHd$iRiwdiRixdiRiydiRizdiRi{d#iRi|d.iRCOMMENT File: RTX4.HDR (A200) Lower case header for CORAL-66 RTX4 Library procedures contained in RTX4START.OBJ . Can be called by LIBRARY "RTX4.HDR" Contains macros and COMMON declarations For RTX4 interface ; DEFINE VI "VALUE INTEGER"; DEFINE on "*"1*""; DEFINE off "*"0*""; DEFINE extsema4(name,pset,extname) "INTEGER PROCEDURE name;* CODE BEGIN< CRLSDB:A [pset],[extname] >END"; DEFINE sema4(name,pset) "INTEGER PROCEDURE name;* CODE BEGIN< CRLSDB:A [ps8 et] >END"; DEFINE mailbox(name) "INTEGER PROCEDURE name;* CODE BEGIN<[name] CRLMDB:A >END"; DEFINE extmailbox(name,extname) "INTEGER PROCEDURE name;* CODE BEGIN<[name] CRLMDB:A [extname] >END"; DEFINE loaddebug "PROCEDURE CADEBUG4;* CODE BEGIN< COPY $-1,X; JMP 1(X); LOAD DEBUG4>END"; COMMON ( PROCEDURE beginrt/110(PROCEDURE,VI,VI,VI,VI), console/119, wait/120 (VI), signal/121 (VI), setdelay/122(VI,VI,VI,VI), pause/125(VI), setpriority/127(VI), send/128(VI,VI,VI) ; INTEGER PROCEDURE moddelay/123(VI,VI,VI,VI), canceldelay/124(VI,VI), getpriority/126, receive/129(VI,VI) ;); DELETE VI; DE BEGIN< COPY $-1,X; JMP 1(X); LOAD DEBUG4>END"; COMMON ( PROCEDURE beginrt/110(PROCEDURE,VI,VI,VI,VI), console/119, wait/120 (VI), signal/121 (VI), setdelay/122(VI,VI,VI,VI), pause/125(VI), setpriority/1COMMENT FILE: RTX4U.HDR (A200) UPPER CASE, UNSTROPPED HEADER FOR CORAL-66 RTX4 LIBRARY PROCEDURES CONTAINED IN RTX4START.OBJ . CAN BE CALLED BY LIBRARY "RTX4U.HDR" CONTAINS MACROS AND COMMON DECLARATIONS FOR RTX4 INTERFACE ; DEFINE VI "VALUE INTEGER"; DEFINE ON "*"1*""; DEFINE OFF "*"0*""; DEFINE EXTSEMA4(NAME,PSET,EXTNAME) "INTEGER PROCEDURE NAME;* CODE BEGIN< CRLSDB:A [PSET],[EXTNAME] >END"; DEFINE SEMA4(NAME,PSET) "INTEGER PROCEDURE NAME;* CODE BEGIN< CRLSDB:A [PSET] >END"; DEFINE EXTMAILBOX(NAME,EXTNAME) "INTEGER PROCEDURE NAME;* CODE BEGIN< CRLMDB:A [EXTNAME] >END"; DEFINE MAILBOX(NAME) "INTEGER PROCEDURE NAME;* CODE BEGIN< CRLMDB:A >END"; DEFINE LOADDEBUG "PROCEDURE CADEBUG4;* CODE BEGIN< COPY $-1,X; JMP 1(X); LOAD DEBUG4>END"; COMMON ( PROCEDURE BEGINRT/110(PROCEDURE,VI,VI,VI,VI), CONSOLE/119,  WAIT/120 (VI), SIGNAL/121 (VI), SETDELAY/122(VI,VI,VI,VI), PAUSE/125(VI), SETPRIORITY/127(VI), SEND/128(VI,VI,VI) ; INTEGER PROCEDURE MODDELAY/123(VI,VI,VI,VI), CANCELDELAY/124(VI,VI), GETPRIORITY/126, RECEIVE/129(VI,VI) ;); DELETE VI; DE BEGIN< COPY $-1,X; JMP 1(X); LOAD DEBUG4>END"; COMMON ( PROCEDURE BEGINRT/110(PROCEDURE,VI,VI,VI,VI), CONSOLE/119,  WAIT/120 (VI), SIGNAL/121 (VI), SETDELAY/122(VI,VI,VI,VI), PAUSE/125(VI), SETPRIORITY'COMMENT' FILE: RTX4K.HDR (A200) UPPER CASE, STROPPED HEADER FOR CORAL-66 RTX4 LIBRARY PROCEDURES CONTAINED IN RTX4START.OBJ . CAN BE CALLED BY 'LIBRARY' "RTX4K.HDR" CONTAINS MACROS AND COMMON DECLARATIONS FOR RTX4 INTERFACE ; 'DEFINE' VI "'VALUE' 'INTEGER'"; 'DEFINE' ON "*"1*""; 'DEFINE' OFF "*"0*""; 'DEFINE' EXTSEMA4(NAME,PSET,EXTNAME) "'INTEGER' 'PROCEDURE' NAME;* 'CODE''BEGIN'< CRLSDB:A [PSET],[EXTNAME] >'END'"; 'DEFINE' SEMA4(NAME,PSET) "'INTEGER' 'PROCEDURE' NAME;* 'CODE''BEGIN'< CRLSDB:A [PSET] >'END'"; 'DEFINE' EXTMAILBOX(NAME,EXTNAME) "'INTEGER' 'PROCEDURE' NAME;* 'CODE''BEGIN'< CRLMDB:A [EXTNAME] >'END'"; 'DEFINE' MAILBOX(NAME) "'INTEGER' 'PROCEDURE' NAME;* 'CODE''BEGIN'< CRLMDB:A >'END'"; 9  'DEFINE' LOADDEBUG "'PROCEDURE' CADEBUG4;* 'CODE''BEGIN'< COPY $-1,X; JMP 1(X); LOAD DEBUG4>'END'"; 'COMMON' ( 'PROCEDURE' BEGINRT/110('PROCEDURE',VI,VI,VI,VI), CONSOLE/119, WAIT/120 (VI), SIGNAL/121 (VI), SETDELAY/122(VI,VI,VI,VI), PAUSE/125(VI), SETPRIORITY/127(VI), SEND/128(VI,VI,VI) ; 'INTEGER' 'PROCEDURE' MODDELAY/123(VI,VI,VI,VI), CANCELDELAY/124(VI,VI), GETPRIORITY/126,  RECEIVE/129(VI,VI) ;); 'DELETE' VI; $-1,X; JMP 1(X); LOAD DEBUG4>'END'"; 'COMMON' ( 'PROCEDURE' BEGINRT/110('PROCEDURE',VI,VI,VI,VI), CONSOLE/119, WAIT/120 (VI), SIGNAL/121 (VI), SEO0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:oKB:EXIT DTTIM:0 TS:: im MACRO (F300) @iii  ~耤@@`K (伀  b߼IC (D C CKCDwu CIDG* HCIHG¼C DI»D GE H IHGCD  ~耤@BC d EDKCD GI$HddiOidniOidxiO#SiO0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:oKB:EXIT im MACRO (F300) @iii  ~耤@BCD I IEFJ GH DQ@B߼   Ӽ м IGEG D@BƼ K  IGGDB K AK IGG ZIB LIMGNL ONBP CI P QPUMCIddd%d*d d d&d MMN NOXV MJRIChEeIN O I OQO TNCRINN 1N INQHN SICAI ; J8 Fdt  ~耤@BCKuCI CQCCki?diiO: 0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:oEKB:EXIT im MACRO (F300) @iii  ~耤@BC BIĂ BCBDĄBEBFĆ BGBHĉ B I(IIŠIBĀ I I IIQ‚I>d_d]ddEtd:ttd_  ~耤@Br CIDB QJЂУȼ  DBV  DB  F F D怈FE4  CKQ@  CKd"$d]d^+d d,d Q+ @`K F HBGA C@`K C@`KF EOB IE SJ CBJ@E;DCD$ttdttd&tt IE FED EKEFwuDBd\d_tidiiO0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:o>KB:EXIT DEL:0 IPUID:0 im MACRO (F300) @iii  ~耤@B@`KC` !FB BIC) F` @`KIC EŒDGIDQ‚D0@`KFD7d?d&ttti di>iO0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:oqKB:EXIT RENAM:0 IPUID:0 im MACRO (F300) @iii  ~耤@BC` D@`K$E ` >H@`KIDBռ>B ҞECͼ>BʞID ǼBńH` @`K ID>GŒFGIFQ‚F@ IEBI`  @`KIE>GŒFGIFQ‚F_ ` IH>Fid?d&3ttti diqiO0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:o*KB:EXIT im MACRO (F300) @iii  ~耤@B C IBQH”    "d d<)d"tidi)0iO0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:oKB:EXIT RD:0 im MACRO (F300) @iii  ~耤@B C IBQJ  EHBༀCIąE ECHEQEEBC CFE  +$ GI FCĆG CIąC IG+ BL@ ÀB LIGGBL ’ Cd d<d"d>d& I$CK ML@`KN ` OLK IHQĠCCHĄG CCCIĂCttidi 0interlocked with iO0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:ohKB:EXIT im MACRO (F300) @iii  ~耤@BټC  DICQJςϣϼ  EJIĆD E@AED ĀEǠDB E  $DDBJ D I BQH BE D ICFI I DCKF ^d d<gd"d%d>tidig0iO0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:oKB:EXIT im MACRO (F300) @iii  ~耤@BCD ׼ HӼE ϼDJ CBɼEļ ѣ  ~耤@BC CJDKB B iydm B@> ECJDKEdd dd#tud{d >i"diti#d'it I-O ERROR: %N on fil e %S, stream %N No buff er space left All strea ms in useYIllegal strea m number selected:No cu rrent streamFile descri ptor error%S On file %S, stream %N iO0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:oAKB:EXIT im MACRO (F300) @iii  ~耤@BC D @ ²Ā  @HĀDC E @DE CāD< ECIE E D FECEKEMrd<tidiAiO0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:o^KB:EXIT RDFST:0 IPUID:0 im MACRO (F300) @iii  ~@BC` D@`K)v ܞ)ϨC )K ) s€B @)vϣ)D`  @`KI)vϿ ) HQ CIC C CDI)Q‚ϞUCd?d&tttidi^iO0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:oKB:EXIT im MACRO (F300) @iii  ~耤@B C KQB d   ~耤@ BCDB A !w HD BI+BQģBC G EDC 0BB О/ ECBB 0 :h ABACEd dtidiJiO0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:o)KB:EXIT im MACRO (F300) @iii  ~耤@BC EFCE @ GBUB UG 0 DAE EFhf %dtidi)iO0SEGMENTBLANK  CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:oKB:EXIT im MACRO (F300) @iii  ~耤@BC EF'Md DABE D%' EKEEFlj !  ~耤@BC EFBE %''Md DAE EFnl A  ~耤@ BC'Md  !yBC 'Md BC󞣃 'Md BCBËJQ'MdBtdL CОC G KDBC 0lj ЈDC'Md cb 0 :hCY ޞCN1DR A  ЈDC'Md F 0 :k A G eCN!5JC'Md /. 0 8qC% iIdBiiKd"iiJdiiO0SEGMENTBLANK oim MACRO (F300) @m*** CORALB:NR.LIB - REVm A200 ***O0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:oKB:EXIT im MACRO (F300) @iii  ~耤@BG \RGW'Md GGV\GWG @  ~耤@BICGVG \G\JG\ GC CqG\G C CG\qGGWCM  ~耤@B CBD 'Md C CDwut  ~耤@ID BC'Md  !y D@AD'MdúJQ'Md  0 :G O GGx\G O \GBCB'Md  0 :f ƌCCKC\dL| 'MdI BBDO \GBMG@'Md \  ~耤@GDBIDE BIEE€DD FG \#EG\"ӀDG\ 0 ?'Md FD JDRG'MdGGN \G\H -J I \GDERG'Md \\G\ɀF PG'Md EQK@K@KJQYIFKQE 'Md J'Md JFJFI 0'Md I 0'Md EC FAyFJF .'Md F F IFSB  ~耤@GDBIDG \yEG\x 'Md G\k 0 ?'Md D G\[ 'Md  I\G -'Md ED@AtNMG8'Md \;\G\1ɀE  EG\%G'Md  FDGV 0'Md F FGsq E'MdIE'MdAidiidiidei B @A0.0iO0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:oKB:EXIT im MACRO (F300) @iii  ~耤@G\G\ G\G @ ~耤@Gt .h*2I I *2F@O4BC e ~耤@G Y ~耤@G'Md G\yGG\Z C ~耤@Gx  5 ~? @BCC `փ@C# ~ @GDNKG'Md GGA\GdiOidniOidxiO#SiO0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:oKB:EXIT im MACRO (F300) @iii  ~耤@BCD I IEFJ GH DQ@B߼   Ӽ м IGEG D@BƼ K  IGGDB K AK IGG ZIB LIMGNL ONBP CI P QPUMCIddd%d*d d d&d MMN NOXV MJRIChEeIN O I OQO TNCRINN 1N INQHN SICAI ; J8 Fdt  ~耤@BCKuCI CQCCki?diiO@ 0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:oEKB:EXIT im MACRO (F300) @iii  ~耤@BC BIĂ BCBDĄBEBFĆ BGBHĉ B I(IIŠIBĀ I I IIQ‚I>d_d]ddEtd:ttd_  ~耤@Br CIDB QJЂУȼ  DBV  DB  F F D怈FE4  CKQ@  CKd"$d]d^+d d,d Q+ @`K F HBGA C@`K C@`KF EOB IE SJ CBJ@E;DCD$ttdttd&tt IE FED EKEFwuDBd\d_tidiiO0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:o>KB:EXIT DEL:0 IPUID:0 im MACRO (F300) @iii  ~耤@B@`KC` !FB BIC) F` @`KIC EŒDGIDQ‚D0@`KFD7d?d&ttti di>iO0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:oqKB:EXIT RENAM:0 IPUID:0 im MACRO (F300) @iii  ~耤@BC` D@`K$E ` >H@`KIDBռ>B ҞECͼ>BʞID ǼBńH` @`K ID>GŒFGIFQ‚F@ IEBI`  @`KIE>GŒFGIFQ‚F_ ` IH>Fid?d&3ttti diqiO0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:o*KB:EXIT im MACRO (F300) @iii  ~耤@B C IBQH”    "d d<)d"tidi)0iO0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:oKB:EXIT RD:0 im MACRO (F300) @iii  ~耤@B C IBQJ  EHBༀCIąE ECHEQEEBC CFE  +$ GI FCĆG CIąC IG+ BL@ ÀB LIGGBL ’ Cd d<d"d>d& I$CK ML@`KN ` OLK IHQĠCCHĄG CCCIĂCttidi 0interlocked with iO0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:ohKB:EXIT im MACRO (F300) @iii  ~耤@BټC  DICQJςϣϼ  EJIĆD E@AED ĀEǠDB E  $DDBJ D I BQH BE D ICFI I DCKF ^d d<gd"d%d>tidig0iO0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:oKB:EXIT im MACRO (F300) @iii  ~耤@BCD ׼ HӼE ϼDJ CBɼEļ ѣ  ~耤@BC CJDKB B iydm B@> ECJDKEdd dd#tud{d >i"diti#d'it I-O ERROR: %N on fil e %S, stream %N No buff er space left All strea ms in useYIllegal strea m number selected:No cu rrent streamFile descri ptor error%S On file %S, stream %N iO0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:oAKB:EXIT im MACRO (F300) @iii  ~耤@BC D @ ²Ā  @HĀDC E @DE CāDB ECIE E D FECEKEMrd<tidiAiO0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:o^KB:EXIT RDFST:0 IPUID:0 im MACRO (F300) @iii  ~@BC` D@`K)v ܞ)ϨC )K ) s€B @)vϣ)D`  @`KI)vϿ ) HQ CIC C CDI)Q‚ϞUCd?d&tttidi^iO0SEGMENTBLANK CODE:RAMOCODE:ROMDATA:RAMDATA:ROMOGLOBVEC:oKB:EXIT im MACRO (F300) @iii  ~耤@B C KQB dl@%[@ A]A@?vAr?HAAT AH@ @3?@iO0SEGMENTBLANK oim MACRO (F300) @m*** CORALD:NR.LIB - REVm A200 *** GIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIF IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIG IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIJ IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIK IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIL IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII