TDa€ $ĎV`8UCSD Utility DiskDisk5 É˙˙É˙˙ůUTILS@YÚ¤“g YALOE.CODEę9‘dĽ4 DECODE.CODEÂ/Î/ڤ47COPYDUPDIR.CODEt¤7;MARKDUPDIR.CODEt¤;W XREF.CODE ęÖ P>¤W` RECOVER.CODE‘¤`j COMPRESS.CODEP>…Ľjn ABSWRITE.CODE9%ĽnŒ KERNEL.CODEÖ P>¤ĽŒCOMMANDIO.CODE>¤Ľ—SCREENOPS.CODEĽ—´ DEBUGGER.CODE……Ľ´Ć DIR.INFO.CODEP>&ĽĆÍFILE.INFO.CODE¤ÍŇ SYS.INFO.CODEP>¤ŇŘ WILD.CODE ęÖ P>¤ŘÜ REALCONV.CODED“ĽÜě REMTALK.TEXT Ú/%Ľěň REMTALK.COD']VE/Î/%Ľňö README.TEXTÖ P>%Ľö SETUP.CODEęÖ P>v¤PDBG.SEED.CODE¤Ő˙˙É˙˙°ö˙˙Jýƒ–‘Šěš‚<‹¨ YALOE=  €€I#DS ‚í¸ÓT¤í¤í&˜ýYALOEČž?  枧ýOk ˛Ü¨ŢT(3žíjý#žÝüž:ˇT <٧ YALOE Ű ‚%! ˛ń jŠ!j–!¤ †"dr°Őă0n10Łi4!Łh 0˛ń <0< !pŠš‚€s šs¤ ‹o0Ôo0íĽ 0فj†"<0"árj†"sĺpą " Ô†"tš‚€ s šs&Ľ¤ ŠQ"m'Ô0îĽ<0í<0%Œp0k%˛ń3%îm0˙˘Ľ#˘ká<0pl0$˘íĽ%˛ń <#<0pŠČ†"t< <0!p!0˘Ľ<1Č&Ľ–p šia‚€ua‚€ ua‚€ ua˜s šçÉń š‚€s šs‚€*vh łń}h† č€2˘ŁvĽ† čvĽ iĽ3!˛Ô†3×ç˜Ä3íĽŠěĽĽ5ĽĽ Ľ šç"ÉĽ šç,ÉĽšç,ÉĽ šÔv†"ia›˜ua‚€:ua›&˜ua˜t)‘Ôš‚€;s šsŮŠ6š‚€Fs ›.§˛ńš›.˜s š€ rš‚€Ks šsŠĽ<Ț‚€Os šsĽĽ– Q0ibwcw#pĽ†"#árŇg0˙˘1łń^ţá <0ţ˘ph<0#˙ ˘p#˙ ˘ ŕíp†"#árÓbwš‚€Ys šs†"tp0˙˘ ˘ĽŠ™01łń@<110ŁŁp<0#p†"#árÓbwš‚€es šs†"tpbw†"t!Ľ–ţ„ƒ€rÇŽ‡x„ĐÚń,šsš‚€zs š‚€’s šsš‡s šs‡x€U°‡x€u° ÔH`‚€œë†"`˜t‘››@ë›&‚€ĽëŮ`‚€­ë†"`˜t†"tŮ›‚€śë‡x„ĐÚŐf˙–ršsš‚€ˇs šsšsš‚€Čs šsš‚€ăs šsš‚€ţs šsš‚s šsš‚,s šsšsš‚?s šsš‚Ps hĽ3 ˛Ô!†3×y˜Óš3sš‚Rs 3íĽŠÚšsš‚Ts š5sš‚_s š1sš‚ds š51Łsšsš‚ts š54Łsš‚s –Ľ;č7plš¤‡ç¤‡ç¤‡çɰ¤ ‡ç+Ém‡ɤ ‡çÉo‡çÉn¤ € jĽhišbs šsÔ9j"7ą!ĺ Ő "ŇšçÉÔ $€€ŇlŠ€€l"7°i!Ô‹×"%Ňb3˛ń]3îĽ*Ô!)Ô š;3§rŠš€%rš;3§rŠ5;3§ Ҥk#‡˛Ô š:r#íkŠîŠš“:rš€ rš:r"8Ň]*Ôš‚ƒs šsŠ!š(rš'ršsš(rš&r3˛Ÿ;3§9ąĄÔ3î3Ó3íĽŠš€*r‹Œ"€ łńF"ƒ†ÚÔ);3"Č3íĽ!Ô š€$rŠ"Ň šrŠš"r"Ň Ľšs pŠ@"%ą)ĄÔ*Ôš€%rš"r;3"Č3íĽŠ"%ą"€ łĄ"8ąĄÔš"r;3"Č3íĽ"%°¤ 3č€PŁłÔf3čٞń<š‚ˆs šsšbs "Ň Ľ pŠ"7Ňšbs "7Ň pÔÊ! ĺ"9°ĄÔš‚ s šršshšbs šsÔ9j"€ łÔ"$˘j‹îýš€$ršs3Ț rš‚§s šsp–("0Ä!˛Ô/""xîÄ"xíá9<"xph""x ˘Ä!íi!˛Ÿ"xłŸ ÔŘ"".xíĊ#1"xŁî9<"xph""x ˘íÄ!îi!°"x1° Ôݖ‰­Ň `ď 0ŁŚ0­˘h­łń łńh<0< 10Łíp10 ŁŁĽ ĽŠ$ 1ł łŸ Ô 0Ľ<0Ȋ< <01 Łíp1 0ŁŁĽ–ú­łń"00á­<0p˘Ľ0˛Ô ŚĽpŠ"010Łí­<0p˘Ľ01łÔ Ś1Ľp<0ˆ­pˆˆ9čŚ0­˘Ľ­Ԗ–¤ k­łń ­áŚáiŠi2íĽh;2§l;2 ˘§7Ó íhŠó €fłÔš‚¸s šsp;2„9 p„9 Če Čjk­îŚ­˛" Ôđ"Ôš„9˜s š‚żs šsp!łń0íĽŠ0 ˘îĽ2 ˘Ľ Ľ–k# h2íĽ32Ł7;2pj1"˘i!5˛ńš‚Ĺs šsh51Łj5i!4˛ńš‚Řs šs5Ľ<0<0"˘40"˘ŁČp;2<0"p1"˘Ľ0"˘Ľ"Ľ Ôp2"˘Ľ–[ ­Ň†ď Š0­˘Ľ0łŸ­łŸĄÔĽŠ0łŸ01˛Ÿ Ô1Ľ–˜ `­ď ­˛Ô<0< 10Łíp10 ŁŁĽ00 ŁŁĽŠ< <01 Łíp1 0ŁŁĽ–ż `­ď ­˛Ô < 0 ŁpŠ <0 0Łp–T ­łŸ­ ˛Ÿ Ô€#ď †­×y˜Ň †­×ç€2w;2í§h32Ł ;2˘pi!32ٰ!€d˛Ÿ !° Ôš‚ăs šsp;2˘†­×y!p†­×y!í€d!Ł7p†­×!Ä2!˘˘Ľ–ű 2íĽ;h3j2i;2§7ŇkŠ;2§€0Łk†#×y˜Ňš‚đs šsp#łŸ# ˛Ÿ Ô€#ď †#×yĽ †#×xĽ­˛ń2­îŚ‘Ô Śp23łŸl$ÔŚš‚ýs šsŠČ Ľ "Ľ!Ľ$Ôp–ľ -2íĽ7;2ph ˛ ˛ŸĄŐ€a Č;2a p†"a˜tpŇ ‘ÔpŠY†"¤„a˜€(u„‚‚€-u„˜tpŇ ‘ÔpŠ(š‚‚s ša˜s š‚‚ s šspŠš‚‚s šsp2 ˘Ľ–- a­ď ­˛Ô0!ŁhŠ!0Łh5 ŁĽ41˛Ô5Ľš‚‚ s šsp­˛Ô Š:! Š5;2í§ia‘!ƒ‚mÚopААААРŠ ŠւuŠ! 2íĽ‹Ćţ–ކ"†Nát‘š€*r‘ ‘Ôń†"t–not enough spaceenot enough spaceeYALOE [a.2]: - ? for detailsyaloe,fileops,extrahea,pascalio:Lost workfile sourcee Workfile read inNo workfile to readOutput file error: HelpOutput file error. HELP! $ $.Quit: U(pdate work file, E(xit without update,, R(eturn to editorr*SYSTEM.WRK.TEXTTSYSTEM.WRK.TEXT*SYSTEM.WRK.CODEE!Yet Another Line Oriented Editor.5Advance Beginning Change Delete Get Insert Jump5Kill List Macro Now 8Quit Read Save Unsave Verifyy Write e˛WXchange ?elpp%Ctrl-X (can) to cancel command input. The macros you have defined are:: -  - Your text buffer is  bytes,  of which are filled, leaving Your 'save' text is  bytess or (^X). please finish : IS IN ERROR, COMMAND STOPPED.. Find too long not foundd%insertion truncated, not enough space'save' area deleted..Error in macro definitionILLEGAL MACRO...Try again macro haltedd.TEXTFile:  is in error. Not readFile name error..Not enoug‹h room to save innnot enough spacee.TEXT.TEXTFile:  is in error. Write not done. Illegal title˙(€ €ţ˙˙ţ˙˙ number of procs in segmentIO error on fileeProcedure in assembly languageez˙’˙Ş˙Í˙ĺ˙segment procedure0 not available in P-Code form for disassembly....segment proůäcedure0 not available in P-Code form for disassembly.... Disassembling segment procedure  .... Segment: Procedure::Block:: Block offset: Seg offset: Data size:: Exit IC:: OffsetHex codee exit code::): ą˙˙˙˙G˙¤˙procedure end w/out RPUSegment:: procedure:Interface text for segment trouble reading interfaceno interface text to list#Segment reference list for segment U : )no segment reference list in this segmentLinker information for segment  EOFMARKK CONSTDEF PUBLDEF baseoffset== pubdataseg== GLOBDEF homeproc== icoffset== EXTPROCC EXTFUNCC SEPPROCC SEPFUNCC Ů˙â˙ë˙ô˙ srcproc= nparams= koolbit=TRUEEFALSE GLOBREFF PUBLREFF PRIVREFF CONSTREFŮ˙â˙ë˙ô˙ format==WORDDBYTEEBIGâ˙ë˙ô˙ nrefs= nwords== ţ(˙(˙(˙(˙wţDţ)ţŞţŞţŞţŞţno linker information to list There are procedures in segment 7Procedure Guide: A(ll), #(of procedure), L(inker info),@ C(onstant pool), S(egment references), I(nterface text), Q(uit))˙˙„4Á0s Ż˙x˙Ł˙Ÿ˙Ť˙§˙ x˙Ł˙Ÿ˙Ť˙§˙˙SEX: LEASTMOSTT$ significant byte first NEXT PAGE:: to quitt , "$" for ]: $listing file [CONSOLE::ż´ , "$" for ]: $CONSOLE::CONSOLE::#1:ńaV†“CÔÉĂg]éE, R FILEOPS EXTRAIO PASCALIO GOTOXY EXTRAHEAIVMDCD3 IVMDCD2 IVMDCD1 IVMGBLS  ˘ˆSHIVMGBLS B%††-árs†r– *** FILEOPS  Ř {p-IVMPVTS )B6"i`aɀ˙ËĘ`aɀ˙ËĘ k–PáĽáĽĽ Ἴ s– *** IVMGBLS  ÄzyIVMDCD1 óB–­‹t­‚€Ĺ‹l­‚€Ĺ‹a­‚€ Ĺ‹V­‚€Ĺ‹K­‚€Ĺ‹@­‚€Ĺ‹5­‚€Ĺ‹*­‚€Ĺ‹­‚€"Ĺ‹­‚€&Ĺ‹ ­‚€*Ĺ‹ţ­‚€.ŋ󭂀2ŋ譂€6ŋݭ‚€:ŋҭ‚€>ŋǭ‚€BĹ‹ź­‚€FĹ‹ą­‚€JĹ‹Ś­‚€NĹ‹›­‚€RĹ‹­‚€VĹ‹…­‚€ZĹŠ{­‚€^ĹŠq­‚€bĹŠg­‚€fĹŠ]­‚€jĹŠS­‚€nĹŠI­‚€rĹŠ?­‚€vĹŠ5­‚€zĹŠ+­‚€~ĹŠ!­‚€‚ĹŠ­‚€†ĹŠ ­‚€ŠĹŠրŽ–#­‹­‚€łĹ‹w­‚€ˇĹ‹l­‚€ťĹ‹a­‚€żĹ‹V­‚€ĂĹ‹K­‚€ÇĹ‹@­‚€ËĹ‹5­‚€ĎĹ‹*­‚€ÓĹĽ‹­‚€×Ĺ‹­‚€ŰĹ‹ ­‚€ßĹ‹ţ­‚€ăŋ󭂀çŋ譂€ëŋݭ‚€ďŋҭ‚€óŋǭ‚€÷Ĺ‹ź­‚€űĹ‹ą­‚€˙Ĺ‹Ś­‚Ĺ‹›­‚Ĺ‹­‚ Ĺ‹…­‚ĹŠ{­‚ĹŠq­‚ĹŠg­‚ĹŠ]­‚ĹŠS­‚#ĹŠI­‚'ĹŠ?­‚+ĹŠ5­‚/ĹŠ+­‚3ĹŠ!­‚7ĹŠ­‚;ĹŠ ­‚?ĹŠցC–5­‹­‚iĹ‹ű­‚mŋ𭂁qŋ孂uŋڭ‚yŋϭ‚}ŋĭ‚Ĺ‹š­‚…Ĺ‹Ž­‚‰Ĺ‹Ł­‚Ĺ‹˜­‚‘Ĺ‹­‚•Ĺ‹‚­‚™Ĺ‹w­‚Ĺ‹l­‚ĄĹ‹a­‚ĽĹ‹V­‚ŠĹ‹K­‚­Ĺ‹@­‚ąĹ‹5 ­‚ľĹ‹*­‚šĹ‹­‚˝Ĺ‹­‚ÁĹ‹ ­‚ĹĹ‹ţ­‚Éŋ󭂁Íŋ譂Ńŋݭ‚Őŋҭ‚Ůŋǭ‚ÝĹ‹ź­‚áĹ‹ą­‚ĺĹ‹Ś­‚éĹ‹›­‚íĹ‹­‚ńĹ‹…­‚őĹŠ{­‚ůĹŠq­‚ýĹŠg­‚‚ĹŠ]­‚‚ĹŠS­‚‚ ĹŠI­‚‚ ĹŠ?­‚‚ĹŠ5­‚‚ĹŠ+­‚‚ĹŠ!­‚‚ĹŠ­‚‚!ĹŠ ­‚‚%ĹŠւ)–Ţ!€Şâź€ŻâźŰ€÷€˙źŰƒ‚[ŰÚÔ ‚‚aĹŠ!€€łńc!€ łń ‚‚eĹŠR!€/˛Ô ‚‚iĹŠC!€?˛Ô ‚‚mĹŠ4!€g˛Ô ‚‚qĹŠ%!€o˛Ô ‚‚uĹŠ!€w˛Ô ‚‚yĹŠ ‚‚}ĹŠ!€˘˛ÔŠ !€Ć˛ÔŠ–ä–LDCB LDCI LCO  . LDC LLA LDO LAO LDL LDA LOD UJP UJPL MPI DVI STM MODI CPL CPG CPI CXL CXG CXI RPU CPF LDCN LSL LDE LAE NOP LPR BPT BNOT LOR LAND ADI €˘‰ţ”ţŸţŞţľţŔţËţÖţáţěţ÷ţ˙ ˙˙#˙.˙9˙D˙O˙Z˙e˙p˙{˙…˙˙™˙Ł˙­˙ˇ˙Á˙Ë˙Ő˙ß˙é˙ó˙SBI STL SRO STR LDB NATIVE NAT-INFOINVALID CAP CSP SLOD1 SLOD2 INVALID EQUI NEQI LEQI GEQI LEUSW GEUSW EQPWR LEPWR GEPWR EQBYhTE LEBYTE GEBYTE SRS SWAP TRUNC ROUND ADR SBR MPR DVR STO MOV DUP2 ŁĆ~ţ‰ţ”ţŸţŞţľţŔţËţÖţáţěţ÷ţ˙ ˙˙#˙.˙9˙D˙O˙Z˙e˙p˙{˙…˙˙™˙Ł˙­˙ˇ˙Á˙Ë˙Ő˙ß˙é˙ó˙ADJ STB LDP STP CHK FLT EQREAL LEREAL GEREAL LDM SPR EFJ NFJ FJP FJPL XJP IXA IXP STE INN UNI INT DIF SIGNAL WAIT ABI NGI DUP1 ABR NGR LNOT IND INC EQSTR LESTR GESTR ASTR CSTR INCI DECI SCIP1 tœSCIP2 TJP LDCRL LDRL STRL CNTRL EXPRL Çöúýţţţ&ţ1ţ<ţGţRţ]ţhţsţ~ţ‰ţ”ţŸţŞţľţŔţËţÖţáţěţ÷ţ˙ ˙˙#˙.˙9˙D˙O˙Z˙e˙p˙{˙…˙˙™˙Ł˙­˙ˇ˙Á˙Ë˙Ő˙ß˙é˙ó˙d˙˙˙˙INVALID SLDC SLDL SLDO SLLA SSTL SCXG SIND ”Í ńIVMPVTS IVMGBLS  xDIVMDCD2 ¸Bœ­hš˙˛ń3šíŮ››-šupÓ Ę  ĘŮ pŮ›-š˙˧€˙Ëi ç ć ˛-š˙˧€˙ËČ ç ć íĚíŮšíŮ–Éďh €˛ńa €Ą€˙ËĘaď€˙ËĘ!jŠ j–č`ď€˙ËĘ`ď€˙ËĘ i–+'pš °Ő/'m%ç šÄ%çšš˘Ä%€˙ËĘ%ɀŞâź€ŻâźŰ€÷€˙źŰƒ€ŰÚÔ%ʋÄ%ɀŒâź€âźŰ€âźŰ€—âźŰ€˜âźŰ€œ€ŁźŰ€§âźŰ€¨âźŰ€°€¸źŰ€ź€ÄźŰ€ĆâźŰ€Č€ĎźŰ€ŃâźŰ€Ú€ĺźŰ€ě€îźŰ€ó€öźŰƒ€ŰÚŐ˛%ɀ€łŸŐŸ%Ę%ɀ łń %ç%Éċ„%ɀ/˛Ô %ç%ÉŁÄŠo%ɀ?˛Ô %ç%ɀ/ŁÄŠY%ɀg˛Ô %çf%ɀ_ŁÄŠC%ɀo˛Ô %ç%ɀgŁÄŠ-%ɀw˛Ô%Ę%ç%ɀoŁÄ%çĊ %ç%ɀxŁÄŠ%ʋ­%ɋŁ%Ę%çÄ%ɀŠâź€Ň€ÔźŰ€ńâźŰÚÔ.%€˛ń%皁Ł%˘ÄŠ%çš%˘Ä%~š ˛ń%~Ů ‹S%Ę%çÄ%ɀÖŇAd‘%˘i!d‘j!íd‘k!˘!˘#˘"Łnh &˛Ô d‘k#š ˛ń#Ů íhŠä‹ű%Ę%çÄ%çċĺ%Ę%çÄ%çċĎ%Ę%çÄ%çÄ%çċ˛%Ę%çÄ%çÄ%çċ•%Ę%çÄ%ɀ‹âź€ŐâźŰÚÔ%çš%˘Ä%~š ˛ń%~Ů Š`%Ę%çÄ%çÄ%çĊD%ʐh ˛ń1%çÄ ˛ń%%çÄ ˛ń%çÄ%ć ˘łń %çĊîŠęĺ˙ր% %ɀ–°š šłŸĄšš ˛Ÿ Ę% ÉÔŮ –Ä#ĚłŐ‡›ƒšË×ÉÚÔs›ƒ-šË×i!y$˛Ÿ$łĄÔ[!x$˘h$â˝Ël#Ä šÓ››- upŇ ŮŠ#Ä"š ĄÔ›-$€˙Ë×xtmŠ ›-$€˙Ë×xm–e$̳Ր›ƒšË×ÉÚÔ|›ƒ-šË×k#yŒ%˛Ÿ%rłĄÔb%i#x%˘h%â˝Ëm$Ä šÓ››- upŇ ŮŠ$ě-%€˙Ë×xj!Ô b˧€˙ËnŠ b˧€˙Ën–nv–˙˙˙˙˙˙€ňZţk˙­ţN˙­ţ(˙˙Zţk˙ZţZţZţ˙˙˙ ˙­ţZţ˙˙­ţ­ţ˙ź˙­ţZţ­ţ­ţů 1˙1˙1˙ ˙ZţZţZţZţZţk˙­ţ­ţ˙˙ ­ţ­ţ˙PZţZţZţ­ţgP dvľ*** EXTRAIO IVMPVTS IVMDCD1 IVMGBLS  žˆeIVMDCD3 NB÷b›-٤i!‡˛Ôb!€˙Ë×b!€˙Ë×xuÄ!íiŠß€`€¤i!‡˛Ôb!€˙Ë×b!€˙Ë×xuÄ!íiŠßb­p­¤‡ç€Đ‡ć€ĐuĤi!‡˛ÔY‡ç`!Ë×ÉÚÔA‡瀐!Ëפ‡‡xućç‡yućç‡zućç‡{uÄ!íiŠ –iák"h› Ë×xłÔV› Ë×xšÓ››-› Ë×xvÓp› Ë×xŮ›-!p!ć€˙Ӑ "â˝Ëk–ÂájáŮŮ Ů š!Ó!ď˛ƒ-‘ŮŠ !â˝ËŮšłÔšŮšj`t°Ů –rV„.„WŹP›w›„.˜wpÓ›jb„.˜€P” b‚€€U” b˜–w›€>€˙ppŇGih››ƒ- vŇ&›!Ë× Ě„,Ó šƒýuhŠšƒýh!íiŠh °!˛Ÿ Ô˝p¤YáŮáŮŮ áŮ–XÔ­ "€˙˧h­ "€˙Ë­ !€˙˧€˙ËČ­ !€˙Ë €˙ËȈ "€˙Ë×xhˆ "€˙Ë׈ !€˙Ë×xĈ !€˙Ë× Ė=%i!!˘k#íj#$˛ÔU"$˛Ô!ˆ #€˙Ë×xˆ "€˙Ë×x˛Ô"hŠ#hŠ#hˆ €˙Ë×xˆ !€˙Ë×x˛Ô$íkŠ !ď i!!˘k#íjŠŚ–É ¤ šłŐy›ƒšË×ÉÚŐdgtm%gth'ŐRi„ p ¤ l$‡ ˛Ô0%$Łgtj"˛ń!íi‡ !€˙Ë$€˙ËȄ !€˙Ë×"îÄ$ílŠÉ!¤ l$‡ łÔ$€˙Ë!€˙ː$îlŠč!¤ l$‡ łÔ$ €˙Ë$î€˙ː$îlžŠă! l$‡ ˛Ô$›‚-‡ $€˙˧€˙Ëׄ $í€˙Ë×xÄ$ílŠŐ›‚-‡ !€˙˧€˙Ë×% ŁÄ!lgtk$ł#„ $€˙Ë×xłŸĄÔ$îlŠč$˛ń›‚-‡ $€˙˧€˙Ë×#Ä$!łń›‚-€˙Ëׄ $í€˙Ë×xĊ›‚-€˙Ë×% ŁÄŮ ‡ €˙Ë!€˙ËČ ¤ – öš ń›‚-pa‘h›‚-‡€‚€˙Ë×x¤€ƒ–€‚ & p¤ šłŐý›ƒšË×ÉÚŐĺdtk#dth$ŐÎ'˛Ÿ' ˛ĄŐž&m#'Łdtj"˛Ÿ"#łŸĄŐ˘"íŒŮ›ƒ-šË×xš˘Ůšâ˝ËŮŮ%çšÄ%çšÄ%ç"íÄ%"îdtÄ%x""˘łń%""˘Ä%xšŁŮ '€˙ˑŒšŁŮ %ç"dt웁-švpŇ ¤ Ů Š¤ Ф ŠX¤ Ф Ф –wjšłÔ\›ƒšË×ÉÚÔH›ƒ-šË×i!yh ˘â˝ËŮŮ !x ˘Ů››-švpŇjŮ –" € p"çĚ °Ő‹›-š˙Ë" pš ˘Ůš˙˛ńLšíŮ››-švpÓ Ů  pšŁŮš˛ń›-" šٚpŠŮ"i!|h!ç`˧Ä"‚€šÔŮ –˛jšłŐ„›ƒšË×ÉÔs›ƒ-šË×h›ƒ˝šË×i›ƒšË×ÉÚÔ!yŮŠŮ x yš˘€˙˘˘ŮŮŮ ››-švpŇ jŮ Ů–#pš °Őɚ˙˛ń)šíŮ››-švpÓ Ů  pŮ›-šr%ځ˙Ë#pš˘Ů#iš Ô!jh "˛Ô! Ë×! Ë×xuÄ íhŠăš˛ń+jh "˛Ô! Ë×! Ë×xuÄ íhŠăšŁŮŠ$!|ÚÔ!|Ň!~ŮŠ!~îŮŠ !|ŇŮ –™” –.CODE nl; Ű‘>~gĄˇ~ăJ*** STRINGOP FILEOPS EXTRAIO IVMPVTS IVMDCD2 IVMDCD1 IVMGBLS  nśDUPLICAT< €€DSV)íh_ÓT¤í¤í&˜ýUTIL1ČZ6”`Ź`ęxk ö[ě]T *žíjý]Ź`ęxTŔ2ľDUPLICATëV)3š`r pšrp €Y° €y° i–Óš spšrpš‚€r pšrpšrpš‚€r pš†r pšr p†§˛ń †지0ŁĽŠp1€0ÚÔÂ1†p†Ëîׁ˙˧Ľ„…„˛Ÿ…„˛ Ôš‚€.r pŠTš‚€Gr p˘Ľ„Ľ„…„…„˛Ô$š†Ëîׁ…„˙˧sp…„íĽ„ŠÓš‚€_r p‘Ôz†Ëîׁ€˙Ë×x ÓKš‚€hr pšrpš‚€‡r p‘ńpІËîׁ€˙Ë× Ä1†p1†pš‚€Ÿr pŠ š‚€Żr pš‚€˝r pšr p–-Duplicate Directory Copier { July 12,ˍ˙ 1978 } ) Enter drive # of user's disk [4 or 5]: 1Illegal volume name. Do you want to copy anyway? .Are you sure you want to zap the directory of : {blocks 2-5}? to exit. EXTRAIO PASCALIO <5IDUPLICAT< €€DSvíh_ÓT¤í¤í&˜ýUTIL1ČZ6 ”`Ź`ęxk ö[ě]T *žíjý€@]Ź`ęxTŔ2ÂHDUPLICAT9v3š`r pšrp €Y° €y° i–pš spšrpš‚€r pšrpšrpš‚€r pš†r pšr pšrp†§˛ń †지0ŁĽŠp1€0ÚÔť1†p†Ëîׁ˙˧Ľ„…„˛Ÿ…„˛ Ôš‚€.r p‘ńp†Ëîׁ€˙Ë×x ąŐďš‚€Ir p˘Ľ„Ľ„…„…„˛Ô$š†Ëîׁ…„˙˧sp…„íĽ„ŠÓš‚€br pšrp†Ëîׁ€˙Ë×xŇ#š‚€dr pšrpš‚€‚r pŠ š‚€”r p‘ÔHš‚€Žr p‘Ô6†Ëîׁ€˙Ë× Ä1†p1†pš‚€Ĺr pŠhš‚€Űr pś˘Ľ„Ľ„…„…„˛Ô$š†Ëîׁ…„˙˧sp…„íĽ„ŠÓš‚€÷r pšrpš‚€ůr pš‚r pšr p–-Duplicate Directory Marker { July 13, 1978 } ) Enter drive # of user's disk [4 or 5]: 4Illegal volume name. Do you want to mark it anyway? 1A duplicate directory is not being maintained on : .;WARNING! It appears that blocks 6 - 9 are not free for use." Are you sure that they are free? 3 Are you sure that blocks 6 - 9 are free for use? , Do you want the directories to be marked? + DšąŚirectories are now marked as duplicate. 6 A duplicate directory is already being maintained on : . Mark not done. Type to exit. EXTRAIO PASCALIO Š1­Ż\ yŇu.REFERENCPROSESS INITIALITREEDUMPPROCTREEDOPASS)   €€€ € €  €1€Ś# REFERENCREFERENCREFERENCREFERENCREFERENC.T@€źˆ żvđvđh$ýIDESYS¤:äwŹ: –2ś ţ$wŹżÎ. đŢB€żć5:ŽPROSESS d@€15xç 5yÄ5h zĽ=îá˙ËĽ–mq …€Ó°†€Î†€ŘšŸĄÔ…€ÓÓq Šöđ…€ÓŇq Š×…€ÓÓq Šö––q …€Ó°†€Î‚€šĄÔŠ …€ÓÓq Šö–jq …€ÓÓU…€ÓŇq …€ÓÓ ˙ËqŠ…€Ó°…€…ĄÔ Ľ€‡p`s i!†€ÎĹ!ç…€ŇÇÄ!ç5xć Ä5xç Äq ŠĽ…€ÓÓq Šö†€Î†€čš†€Î†€äš †€Î†€ŕš †€Î†€ôš †€Î†€đš †€Î†€Üš †€Î‚€š †€Î†€ěš †€Î‚€ š Ő4˙–|h`†€Ęp%!°o–š i!Ô5xć hŠ˜h ˜Ó! x†€ĘšÔi j"ç"{­  Ä˜hŠ zhŠŰ!k–ş h5kŐđ=á˙Ëj"ł ĺĄÔ/#xć l$˜ą ĺĄÔ$†€Ęšh ń$}lŠç ń "îá'˙Ëj#zkŠÉ"łń5k ՞5xć mgs'¤ (ç#xÄ($Ä(ç)Ä(ç˜Ä%˜Ň5xç 'Ċa%n†€Ę%xşŸi!ń'çs'ç%Ä5xç 'Ċ>!Ô%n%zm%˜ąi!Ô †€Ę%xşŸiŠä%˜Ň &çs&ç'Ċ'çs'ç&zÄ&ç'Ä#5°)ĺĄÔ˙ËqЁ˙Ëq– đŚ5xć h ˜Ó Ś­x†€ĘšŚ­yh­ ˜° ÔăŠ˜Ś–K5kl#˜ą$ĺĄÔdb#yq$ń#zkŠę$"ç ÉąĄÔ(9Ň" $ń`s!˜Ó!ç Ċ5xç Ä "Ä ç˜ÄŠ9Ňď–^q …€ÓÓq Šö–¤†€Î†€ÜšŸŐʆ€Î†€ÜšŸ†€Î†€ôšŸĄ†€Î‚€šŸĄ†€Î†€đšŸĄ†€Î†€ěšŸĄ†€Î‚€šŸĄÔ†€Î†€ŕš9°ĄÔ ŠŸ†€Î†€Üšń<‘…€‡°†€Î†€ŘšĄÔq †€Î†€ŘšęÔq p…€ÓӐ Š…€‡Ň ‹F˙˙ËĽ q 9Ň 5xç 8;˘˙ËÄ:Óg…€ÓÓq Š[†€Î†€Üš†€Î‚€š Ô :í˙ËĽ q Š7†€Î†€ŘšÔ :î˙ËĽ q І€Ę†€ÎĹq …€ÓӐ Š 9Ґq Š•–žq …€ÓÓ …€ÓŇďq Šî–:9ҐŠl…€ÓÓfq …€Ó°†€Î†€ŕšĄÔq …€ÓÓ ˙ËqŠ%as!j"†€ÎĹ"ç…€ŇÇÄ"ç5xć Ä5xç !Äq …€ÓŇ…€Óą…€ÓąĄÔq ŠďŠ”q –o†€Î†€čšÔa†€Î†€äšŸ†€Î†€ŕšŸĄ†€Î†€ôšŸĄ†€Î†€đšŸĄ†€Î‚€šŸĄ†€Î†€ěšŸĄÔ9Ňq …€ÓŇq …€ÓŇřq ŠŸ†€Î†€äšÔU†€Î†€čšŸ†€Î†€ŕšŸĄ†€Î†€ôšŸĄ†€Î†€đšŸĄ†€Î‚€šŸĄ†€Î†€ěšŸĄMÔ q …€ÓŇřq ŠŤ†€Î†€ŕšÔU9ŇďŠM†€Î†€čšŸ†€Î†€äšŸĄ†€Î†€ôšŸĄ†€Î†€đšŸĄ†€Î‚€"šŸĄ†€Î†€ěšŸĄÔq Šł–˛†€Î†€čšŸ†€Î†€äšŸĄ†€Î†€ŕšŸĄ†€Î†€ôšŸĄ†€Î†€đšŸĄ†€Î‚€&šŸĄ†€Î†€ěšŸĄÔ3…€…ÔĽ€‡ŠĽ€‡q …€Óą…€ÓąĄÔ˙Ëq…€ÓÓq Šö‹¤ď†€Î†€ôš†€Î†€đš †€Î†€ěš Ôp9ŇĽŠĽq …€ÓӁ˙Ëqq Ś­ç ʅ€…Ô…€†Ň­ç ʅ€Ó€4Úńq Šó…€ÓŇď …€ÓÓq Šö9Ň qĽ†Mtp΂€*šÔĽ€‡q …€‡°…€‡° ŐÄţ–Ć9ŇĽĽŠĽ†€Ę†€ÎĹq …€ÓÓ ˙Ëq‹ă!q h…€Ó€4Úńq Šó…€ÓҐ …€či˙ÓÓq Šö9Ň qĽ†Mtpq …€‡Ň…€ÓÓ ˙Ëq‹‘†€Î‚€.šŸ†€Î†€čšŸĄ†€Î†€äšŸĄ†€Î†€ôšŸĄ†€Î†€đšŸĄ†€Î†€ŕšŸĄ†€Î†€ÜšŸĄ†€Î†€ěšŸĄ†€Î‚€2šŸĄÔ †€Î‚€6šÔ ç Ɗ ç ʐА–record implemenunit implemenunit case imp^lemenimplemenimplemenimplemenimplemenlabel unit forward :ŸTa¨_zˇŔßą9M ŰQó[INITIALI’@€^+b„,ŹPi!b§łń6€,b!ěph†€Î‚€Ĺb!솀Πp! ˘íiq Ś­ç ʊÖ-‡‚€ď‚€'ď‚€Iď‚€jď‚€‹ď–†€ř‚€¨Ĺ†€ô‚€ŹĹ†€ě‚€°Ĺ†€đ‚€´Ĺ†€č‚€¸Ĺ†€ä‚€źĹ†€ŕ‚€Ŕņ€Ü‚€Äņ€Ř‚€Čņ€Ô‚€ĚĹÇĽ€Ň!ńpА‚€Đ‚€ń‚–kކ€ü‚ëPaƒÇŽš‚&t pš†€‰tpšt p…€‰€(€„źÚÔך‚<t š†€ü€Pt št †€ü‚UčÔp†%†€ü˜vpÓ+†€ü¤d„d†€ü˜€Pw„d‚V€Uw„dëP†%†€ü˜vpҔš‚Yt š`t št ƒkÚÔŕ aĐÚĽ€…š‚st š`t št ƒB†ÚÔŕ aĐÚďš‚Žt š`t št ƒŚÚÔŕ aĐÚĽ…Ô(š‚Žt š`t št ƒĹÚÔŕ aĐÚĽš‚Ít š`t št ƒâÚÔŕ aĐÚĽ…Ô}š‚ęt š`t št ƒ‚ÚÔŕ aĐÚĽš‚‚ t š`t št ƒ‚ÚÔŕ aĐÚĽ…Ô)š‚‚ t š„€Pt št †‚z„˜vpŇך‚‚3t š„;€Pt št „;‚‚FčÔp„;‚‚Gč„;‚‚Ič „;‚‚Nč „;‚‚Sč ĺĽ†M„;˜vpҢ–€Ž!˜Ľ†s5¤‡˜Ä‡ç˜Ä‡ç˜Ä9í˙ËĽ ˙ËĽ ˙ËĽ˙ËĽ˙ËĽ˙ËĽ ˙ËĽ áá˙ËĽ‡Ղ†€Şƒ‚XÇŽ`†€ŞĐƒ‚^ŰÇŽ†€šƒ‚fÇŠŽ†€Š`І€šĐۃ‚jŰÇŽ†€ş`І€šĐۃ‚pŰÇŽĽ€‡†” Ňš‚‚xt ppĽ€ÓááËĽ†%02” pÓ š‚‚„t pš†€ü˜t ppŠ32˘˙ËĽ01˙˧ Ň 1í˙ËĽ01˙˧Ň 1˘˙ËĽĽĽĽ…€‰˘Łí˙ËĽ€ˆ‡…ĄÔ8q †M‚‚Œt p†Mtp†M‚‚¨t p†Mtp†Mtp†Mtp– @attach,blockrea,blockwri,close,concat,copy,delete,exit,fillchar,,Bgotoxy,halt,idsearch,insert,ioresult,length,mark,memavail,memlock,,Amemswap,moveleft,moverigh,pos,pwroften,release,scan,seek,seminit,Asignal,Ţ˙˙sizeof,start,str,time,treesear,unitbusy,unitclea,unitread,9unitstat,unitwait,unitwrit,varavail,vardispo,varnew,wait,program procedurprocess functionconst type var begin end unit @abs,arctan,atan,chr,cos,dispose,eof,eoln,exp,get,ln,new,od_d,ord,,@page,pred,put,read,readln,reset,rewrite,round,sin,sqr,sqrt,succ,,trunc,write,writeln,,–+How wide is your output device ? [40..132] 1Please enter the file you wish Cross-Referenced: .text"Is this a compiled listing? [y/n] %ď0@@%Do you want intrinsics listed? [y/n] 8@@.Do you want initial procedure nestings? [y/n] 6@@-Do you want procedure called by trees? [y/n] 2@@(Do you want variables referenced? [y/n] 6@@,Do you want variable called by trees? [y/n] &@@Do you wish warnings ? [y/n] x@@%Please enter your warning file name: $Please enter your output file name: #1:Console::CONSOLE::console::ţ˙˙ţ˙˙˙o‘u€€S (no memory room for xrefUnable to read 6 Absolute/Relative Program/Procedure/Function headingg6-- -Š1 F¸¤xTREEDUMPG@€7`cŤ%Ň †M`t pŠ †M%tp–x"˜ąŐ4"h ćMtp†M ć tp 㠁˙˂€ď ç Ɋa…€†Ň†M‚€t pŠ †M‚€ t pŠ@†M‚€ t pŠ1†M‚€t pŠ"†M‚€t pІM çÉtpŠր†M‚€!t p"˜"|q†M‚€#t p ć Ś˙ËŚ­˜Ó`­i­…€ˆâ˝Ë°­ąĄÔ!†Mtp†M€ ˘” p†M‚€%t p!x˜!x|q†M‚€'t p­yŚ­í˙ËŚŠ›†Mtp ď–z#˜ąŐö#h ćď#˜#|q†M‚€)t p ć Ś˙ËŚ­˜ąŐł­˜ąŐŹ­i­텀ˆłÔ(˙ËŚ†Mtp†M€ ” p†M‚€+t p†M€ ” p!y#Ó a eűń­í˙ËŚ!yj"˜"|qŠ †M€ ” p!{Ô †M€*” pŠ †M€ ” p!xj"˜"|q†M€ ” p­zŚ­˘˙ËŚ‹M˙†Mtp†Mtp ď–‹%Ô&Š&–  eh?? extt fmll extt œ˙í˙Ţ˙Ŕ˙Ď˙œ˙  :  :   :: ::ž ?‡ ĽŃPROCTREE@€™d„ ŤŽhij!ĺ ˜ąĄÔ_( Äd çşń xhŠd çťń yhŠi9Ň6"ĺd 皥Ô)Žyk( Ä# ç şń xhŠ# ç ťń yhŠjŠĘŠ™9Ň!¤ Š"¤ – ´afŤŽh ˜Ó% Ä xhŠô–Š­k&Ô(as!l$˜Ä$ç#Ĺ$ç#|ÇÄ#˜bď"s"!ċÁ9Š ` sŠ ` sŠր l$ç˜Ä$˜Ä9Ň$çŽxĹ$çŽx|ÇĊŽm$ç%xĹ$ç%x|ÇÄ$ç %yĹ$çs$m%˜Ä%ç­Ĺ%ç­|ÇÄŽ˜Ň ŚŠEŽç çşń 9ŠŽç sŠ Žç sŠրŽç Ċ9ŠŽ sŠ Ž sŠր Ž ĖW!˜ąŐĄ!h ćď9Ň ć ŚŠ ć Ś7Ô@;€2â˝ËŇ*štpš€{” pš;tpš‚€  t pŠ š€.” p;í˙ËĽ 9Ň­˜Ó­x˜ˆ­yŚŠçŠ­˜Ó­x˜ˆ­zŚŠç ď–9"˜ąŐŐ"h yď˙ËŚ 9Ň ç ˜­q†M‚€t p ç˜ ~q†M‚€t p Ś ­ ˜Óz­ i­ …€ˆâ˝Ë°­ ąĄÔ;†Mtp9҆M€ ” p†M‚€t p†M€ ” p†M‚€t p!ç˜!}q†M‚€t p­ í˙ËŚ ­ xŚ Ё†Mtp†Mtp xď–0 ˜hasÇo7Ô<9Ňštpš‚€t pštpŠštpš‚€,t pštp˙ËĽ 47Ô<9Ňštpš‚€=t pštpŠštpš‚€Ot pštpq 9Ň*†M‚€bt p†Mtp†M‚€rt p†Mtp -a˙Š(†M‚€‚t p†Mtp†M‚€št p†Mtp as– ń˙÷˙ë˙ô˙ď˙ö˙}   ::  :: "Building procedure called by treess!Building Variable called by trees"Printing procedure called by treess%Printing Variable referenced by treesProcedure Called Byy---/Procedure Variable  Referenced By/---.\O ן. ÄtDOPASS ď@€Üas9Ň&7Ôš‚€t pštp†%v†M ” pq …€ÓÓ ˙Ëq‹†€Î†€řšŸ†€Î†€ÔšŸĄÔ ˙Ëq‹[†€Î†€řšÔĽ€†ŠĽ€†r…ĺŐ<…€Óą…€Ó ąĄ…ĺĄÔ ˙ËqŠ 9ŇĽqq 9°Ő…7Ôštpš‚€t pštp†M‚€t p†M€ ” p†M‚€&t p†Mtp˙Ë€%˘˙Ëkh #˛Ô†M€-” p íhŠë†Mtp4” †MtpŠK7Ôštpš‚€/t pštp†M‚€Et p†Mtp†M‚€Yt p†Mtp4” 7…9°Ą…9°Ą ĄÔ/štp‚€m” j"'łńš‚€nt pštp” as–Initiaize Pass 2, VariablesP qĎrrinting Standard TreesHead Body Notes  Calls Made Too*Now Printing the variable reference tabless'Procedure References Variables'--2-+Memory small, variable trees not guaranteed ‹ UŹREFERENCĽ@€IچM‚€t p­˛Ô†M€ ” p­í˙ËŚŠâ–ˇc„ Ťi˙ˁ˙Ëjh "˛ÔE'c íË °ĄÔ Š- (ÚÔ†Mc íË Ł” pІMc íË p íhŠś'!ĺĄÔ – ‘†M8;˘tp†M€/” p†M;tp†M‚€t p03ف˙˧Ň03î˙˧€ ŁhŠ13Ł€ 03˙Ëph3 ˘˙ËĽ?Ň=Œ ŁĽĽ=˛ń †M€ =Œ” pŠ… ˘˛ń†M€ …˘” p33€m 03˙Ëp˘îih !˛Ô†M0 ˙˧” p íhŠĺ†Mtp–\;ŇpĽš‚€t p ‹‡š‚€t pŠ{š‚€t pŠlš‚€)t pŠ]š‚€9t pŠNš‚€It pŠ? _š‚€[t pŠ0š‚€gt pŠ!š‚€vt pŠš‚€‡t pŠր™š‚€¤t pš;tpštp–ä…Ô~<í˙ËĽ †‚z‚€Şt p ŠE†‚z†€Ęt p†‚z‚€Żt pŠ-†‚z†€Ęt p†‚z‚€št pІ‚z‚€Ćt pŠրՆ‚z‚€Út p†‚z;tp†‚ztp–Ź01˙˧ Ň 1í˙ËĽ01í˙˧Ňp01˙˧ Ň 1í˙ËĽ01˙˧Ň 1˘˙ËĽk€ 01˙Ëph łń]˙ËĽ 1˘î1˘ji!"˛Ô30!˙˧†€šĐÚÔ; Œ0!˙˧˘€0ف˙ËĽ Š p!íiŠČk1˘˙ËĽ1˙ËĽ–`Đśń01˙˧`ĐÚń € Ľp01˙˧ Ó'01˙˧Ľ6€.°†€Î†€ŘšĄĽ1í˙ËĽ ú ‹7Ô@;€2â˝ËŇ*štpš€{” pš;tpš‚€Ţt pŠ š€.” p…Ô‘1í˙ËĽ;í˙ËĽ 01˙˧Ňj˙ËĽ˙ËĽ†%02” pÓ…łÔ‘Šš‚€ŕt p pŠŃ2˘˙ËĽ01˙˧Ň1˘˙ËĽ3˘˙ËĽŠ01˙˧Ň 1˘˙ËĽ1˙ËĽ€ Ľ…€…Ԑ ń1€„ 01˙Ëp˘˙ËĽŠá–R"Ä ˜ą"xĺĄÔ&! Ć€Ę ťń ~hІ€Ę şń }hŠ"Ċіv`s !Ä ç˜Ä ç5Ä Ľ=íá˙ËĽ–›4h ˜Ó چ€Ę ťń ćhŠ hŠă–Ĺ4˜Ň"ĽŠ i†€Ę!ťń!ç"Ċ!ç"Ėj†€Ę†€ÎĹ%Ô9Š `sŠ ` sŠրěŠQ5y˜Ň9Š `sŠ ` s Šրđ5ç Ċ3ba5y‘"ń*9Š `sŠ ` sŠրô!k†€Î#ťń#ç Ċ#ç Ä"ĺՐ k#†€ÎĹ#ç…€ŇÇÄ#ç˜Ä#ç˜Ä#ç˜Ä#ç˜Ä#ç ˜Ä#ç 9ËĘ9ŠG#ç 8;˘˙ËÄ#ç ˙ËÄ#ç ˜Ä$9°ĄÔ #ç Ɗ#ç Ɗ#ç ˜Ä#ç ˜Ä#ç Ɗրř n$Ô  ŠA!n!9Ň1!ç ÉŇ5ç!ć Ä!ç Ę!ç8;˘˙ËƊ˙ˑŠ!ç ʖĆ…îáËĽ…áih !łÔ† áËí×j""x;˘Ä îhŠĺ†…áËí×i†€ü!çëP!y˙ËĽ!z˙ËĽ!x˙ËĽ !|˙ËĽ !{˙ËĽ†%v†%†€ü˜vp9Ň'†M‚€üt p†M†€ü˜t p†Mtp†Mtp–Ç‘6€(ŇÇ‘6€*ҁ˙ˑŠ 6€{ҁ˙ˑ6 ŇŃ €*Ň &ƒÇ‘6€)°6€}° Ôˇ–…˛ń ˙ˑŠa†…áËí×h 熀üë( ç;Ä 8Ä ç2ŁÄ ç1Ä ç3Ä8;˘˙ËĽ ˙ËĽ˙ËĽ˙ËĽ˙ËĽ …íáËĽ–` +†%v†%†€ü˜vpÓ<†€üh`†€ü˜€Pw`‚€Uw`ëP†%†€ü˜vpÓ‘˙ˑp†%02” pÓ ‘pŠ 2˘˙ËĽ7Ô'štpš‚t pš†€ü˜t pštp9Ň'†M‚t p†M†€ü˜t p†Mtp†Mtp–+ü …€…Ô"‹‹Ç‘6€$Ó"Š|Ç‘6ƒÚń"ŠhÇ‘6ƒ!ÚÔ"ŠT€("01˙Ëp˙Ëh1˙Ëi"€*Ň 1í˙ËĽ1 ˘í˙ËĽ…˛Ô†€ü Č0!˙ˆ€üě p–‘ —6†€šĐÚÔ†€šĐƒ$ŰÇ‘Šă6€.Ň.†€šĐƒ+ŰÇ‘6†€šĐÚÔ†€šĐƒ2ŰÇ‘Šă6ƒ9ÚÔ5†€šĐƒ@ŰÇ‘6ƒCÚÔ†€šĐ‘6†€šĐÚÔ †€šĐ‘Ší–Č Ľ€Ó†€Î‚FĹÇĽ€Ň˙Ëh˙Ëi!˛6†€ŠĐÚĄÔY6†€ŞĐÚÔ†€Î Ëî6€ ˘Č…€Ň îâźŰÇĽ€ŇŠ6€_Ň î˙ËhŠ †€Î Ëî6Č!í˙Ëi í˙Ëh†€ŠĐ‘Š™6†€ŠĐÚÔ †€ŠĐ‘Ší†€Î‚JšÔZ…€…ÔĽ€‡†€Î†€čšŸ†€Î†€äšŸĄ†€Î†€ŕšŸĄ†€Î†€ôšŸĄ†€Î†€đšŸĄ†€Î†€ěšŸĄÔ‘ ŠłĽ€Ó†€Î‚Nš†€Î‚Rš ÔĽ€Ó†€Î‚VšÔĽ€‡Ľ€Ó–v Ľ€ÓÇ‘6†€şĐÚՌ6‹…Ľ€Ó‹ƒZÇ‘6€*Ň€* 5ŠĽ€ÓŠf€}Š`Ç‘6€'ÓÇ‘ŠôŠMŠIƒ]Ç‘6€=ŇĽ€ÓŠĽ€ÓŠ.ƒaÇ‘6€.ÓĽ€ÓŠ Ľ€ÓŠĽ€ÓŠ Ľ€ÓАŠցd…€ÓąŐ\˙–ľ †M ” p†M‚ťt p†M‚Ńt p†Mtp†Mtp†Mtp–5 †‚z†ƒŚáv†M†‚yáv†%†‚Qávš‚Őt pš‚ít pštp˙ËĽ u…Ô” u…Ô” <Ň †‚zvpІ‚zvp†Mvp†‚zv†Mv†%v–'ss FATAL ERROR - No "program" word"No identifier After prog/proc/funccToken After heading unexpecteddLost ".", check Begin/case/ends#Same name, but not forward-Declared ű˙Include File not founddToo many nested include files Units not in legal syntatic formm"No Identifier after const/type/varr v˙…˙”˙Ł˙˛˙Á˙Đ˙ß˙î˙ - AT LINE Warning: : may be undeclared: may not be initializeddNot Standard, Nested comments¸˙Ó˙î˙ line #} unexpected end of inputń˙÷˙ń˙÷˙ń˙÷˙ś˙ę˙ Return to .textInclude file is::Include file is::(@    (( "uses packed segment interfac 6'( @'{ ˙˙x˙í˙Ň˙ ł˙ˇ˙ó˙ů˙ů˙ؚ˙+Procedural Cross-Referencer - Version S-02.IV.0.bb/PROCEDURAL CROSS-REFERENCER VERSION S.02-IV.0.bbKI 岽Ѝt =ćĺŘ0Ë^']EXTRAIO EXTRAHEA STRINGOPFILEOPS PASCALIOHEAPOPS  1 QőRECOVER<  €€DSCTe+Ö ¸ć¸ć&FúOPSYS" :B´  ř ţ çŇćú0\ řţ $< s ÉôRECOVER ĎCTeE"§ih !˛Ô " 짃€ÚÔ" ě" 지aŁ€A˘Č íhŠŰ–&l"#× i#Ňb!x°!çɰĄ!秲ŸĄ!秲Ą!泥!ć€M˛ĄÔ*h !秲!ç §ƒ€ ÚĄÔ íhŠĺ !秲ńlŠ "#× pŠm!çɲŸ!çÉ ˛Ą!秲ŸĄ!秲Ą!y!xłĄ!㠁˛Ą!ć ˛ŸĄ!ç  ɀdłŸĄÔ(h !秲!ç §ƒ€ÚĄÔ íhŠĺ !秲ńl–Ä…€MË× h Ä çÄ çĘ ç†ë ç0íÄ ç…€MËĚ‚€s š†s …ƒ€)ÚÔěšs…ƒ€1ÚÔ42…ěppŇš‚€9s šsŠš‚€>s šs–ž …˜Ň†t…† ë …ç˜Ä‹ľ…Ľ…† 蟅~˜ąĄ ×Ô …~ĽŠä…† čń…çt…~† ë …~ç˜ÄŠl† §łÔ† † ˜`u`놁 h`† ˜u`‚€Su`†˜u`놁솁짢Ȇ지9˛ń†ě€0Ȇě†짢Čď– Ď1íĽ† ‚€T놁 ě1 €0˘Č† ě1 â˝Ë€0˘Čď–X †)˙˧€ Ň)í¤ Ší†)˙˧ƒ€YÚńďŠY† ‚€_ëËh†)˙˧ƒ€dƒ€jŰÚ łŸĄÔ íËh† ě†)˙˧Č)í¤ ŠÇ† † ˜a uaëď– v †p°p°ĄÄ–†‡‹‡‡íÄhbâź âźŰ âźŰâźŰƒ€nۛĐŰÇŽ‡‡xíÄ2†‡xp˙¤i!‡˛Ô†!˙˧bĐÚńh!íiŠă‡x‡ł  Ôž Ô‡‡xîċŒ‡‡ć ‡xíÄ2†‡xp€@i†!˙˧ƒ€vÚÔ!íiŠé!€žłh ń8hŚ˙¤i!‡˛Ô†!˙˧Óh!íiŠç Ô2†‡xíp`ď ‡x‡ł  Ôˆ Ô‡‡xîĊր|–ĺi…íh!…˛ !ąĄÔ‡…!€MË× x˛Ô!hŠ!íiŠÜ …˛Ô/… €MË× xłÔ … €MË× x¤… ji!"łÔ…!í€MË× …!€MË× Ĺ !îiŠŢ… €MË× j"‡Ä"ç/íÄ"ç.Ę"ç ËĘ"çĘ.҆ kc† ˜uc‚€€ucë.҆ kc† ˜uc‚€ƒucë. ҆ kc† ˜uc‚€†ucë"熁 ë"ç ËÄ"ç ›DĹš‚€‰s š† ˜s š‚€Œs š‡sš€-vš/sšs–—hŚjk"@†§Ł łŸ#ĺĄŐ…†"˙˧ âźâźŰƒ€—ۛĐŰÚÔBi†"!˘˙˧†!íě§°!łŸĄÔ!íiŠá†"˘˙˧†ě§°!°ĄÔk"˘đІ"˙˧Ó íh ˛ń@jŚ"íj‹i˙­ĺ#ĺĄÔđ–Âb%Ĺih !˛Ôb ËîŘÉ ˛ń$Ä íhŠĺ–u#āŚ˙jh "˛Ô† ˙˧Ó#Ä íhŠç#xÔ82†%íp†ý˙ˆp†ý˙Ëp#ď #xÔ†##xÔ2†%˘p #x!ĺĄÔ%$†ď …%ŁíłÔ %…ď Š#Ä#xĺ! Ô#Ä2†%p–dև€×Ā@h† ˙˧ƒ€ŸÚÔ íhŠé‡€× €žłÄ‡€×xŐ­€@ďk†˙Ëe p¤€Öh ‡€Ö˛Ôae Ë×xje Ë×yŒi„f Ë×ÉÚÔ!„€– Ë×y Œ˘i! —!ŒŁ˛ń "!˘lŠ "!˘îl$#˛ń$k íhŠ˜‡€Ů#˘‡€Řłń‡€Ů#˘¤€Ř‡€Ů‡€Ř†ď ‡€Ů…ď Š 2†‡€Ůp–€Ů°`†ĀMË ‘ €MË× "˛ĄÔ&† €MË× çëď## €MË× ˘ ď !Ċ!Ėčk…ih !˛Ô%… €MË× j­"xł­"yłŸĄÔk"yŚ íhŠÖ–] …€MłÔp…€MË× y Ň hŠh 0˛ÔIÔB2† p 0a !ń 0a!ń 0a!Ô…í€MËĽ…€M˛ńp…h íhО–í …h2 ppÓ p2 íppÓ p2 Œ˘ppÓ Œp2 ŒěŒŁ˘ppÓ ŒěŒŁp–u š‚€Ľs š Öű˙s˜Ľ†‚€ŽëĽ†‚€°ëš‚€´s š†sšs 2Ňp2ƒ€ĹÚÔ֚‚€Ís š†s šs †‚€ÖčÔp†‘–R †öt€M˅‘Ô…€MË× j"îĽ"ć€MËĽŠ*š‚€×s š†sšs pŇă0M€MËĽh …˛Ôn €M˅‘Ô%š… €MË× ç ˜s š‚€ĺs šsŠ7 …îji!"˛Ô…!€MË× …!í€MË× Ĺ !íiŠŢ îh…î€MËĽ íhŠ‹–œ ‘šsš‚€és š†s …ƒÚÔěš…všs…ƒ ÚÔ‘‘–Cţ˙˙@˙˙˙˙G@˙˙˙˙G%GO AHEAD AND UPDATE DIRECTORY? (Y/N) @@ ůáFWRITE OKK)SECTOR ID ERROR--DISK MUST BE REFORMATTED.DUMMYNNXXţ˙˙  ţ˙˙˙˙˙H˙˙ţ˙˙űţt˙.TEXT.CODE.SVOLFile  inserted at blocks ˙˙P˙˙ţ˙˙Recover [IV.1 H]]022PROGRAM!USER'S DISK IN DRIVE# (0 exits): 1ţ˙˙hUSER'S VOLUME ID:How many blocks on disk ?  foundd/Are there still IMPORTANT files missing? (Y/N) @@Fůą=Z5˝NőcE˝ŽjQäv•% ŤEXTRAIO STRINGOPHE ›'APOPS PASCALIOSCREENOP î Ě TŠđCOMPRESSINITIALI8 €€€`# COMPRESS>T‘yíJ–ÓTNíNí&˛üUTILSČT:(v—Ätԑk ¸r´tTś,híŹţÄsÄtԑTŢ3 ÂINITIALIE‘y@€˙lj"$˛Ô&m"Œi!íh%!§k%!% §Č% #Č"íjŠß–†Ż†Y‚€ĹĽĽ†sštš‚€ t š‚€t štštš‚€t štštš‚€+t š`t ƒ€JÚÔđ €!ŇpŠ ƒ€RÚĽš ušt3ń9štš‚€Zt š„X€Pt št „X‚€očÔp„X˜†qj"Ô̚tš‚€pt še€Pt št e‚€}čÔp† e˜vpÓ#† ¤„e˜€Pw„‚€~€Uw„˜vpŇŁštš‚€t š„/€Pt št št„/‚€”čÔp„/‚€•čÔ„/eëP†1„/˜vpÓ"p¤„‚€– w„„/˜€]w„˜q† „€uąpą Ô p‚€q ™‡€Ó„€i¤k#‡˛Ô;„€á#פ‚‡‚ÉÚ凁‚ɰ!Ą Ô ‚€ŽqŠ ‡‚ÉŇi#l#íkŠž!ń ‚€ÂqŠ„€$פ‡xĽ‡yĽ„$×Ɂ]ÚĽ–Ż0123456789ABCDEFAssembly Code File Compressor IV.0 [g6] Type "!" to escape< Do you wish to produce a relocatable object file? (Y/N))@@( Base address of relocation (hex) : ! File to compress : !.CODE$ Output file ( for same) : ! opening file while reading segment dictionaryy&input code file is not li ‰E;nked assemblyy&input code file is not linked assemblyy "â žďCOMPRESSÓ‘yC)`„*ŹPšuš‚€t š`˜t štp–+ƒ)`„*ŹPšuš‚€t š‡,tš€ uš`˜t štp–,á*a„,ŹPša˜t h‡+łń"‡+˙˘í¤+š†Y‡+ ˘§u‡+ ¤+ h ˛ńš†Y‡+ §u‡+ ¤+ hŠâ–-P+b„-ŹP‡,Ĥ/b§Úń¤/ŠOb§ih !˛ÔDb §ƒ€ÚÔ‡,‡,xŒb §€0Ł˘ÄŠ"b §ƒ€ÚÔ‡,‡,xŒb §€AŁ ˘˘ÄФ/ íhЎ–.f2Ô­ í§iŠ­ §i–2Ô­ §­ í§Œ˘iŠ­ í§­ §Œ˘i–š4Ô­ §­ í§Œ˘iŠ­ í§­ §Œ˘i–ë2Ô­! Č­!í ČŠ­!í Č­! Č–3"!ŇhŠ7"ł!ł ŽĄÔ"!łŸhŠ'"łŸ!łĄÔ"!˛ŸhŠ"ł!łŸĄÔ"!˛ŸhŠ"!łŸh k–h"ď!˘h2Ô­"`ÉČ­"í`ÉȊ­"í`ÉČ­"`ÉȖœ"ď !˘h4Ô­"`ÉČ­"í`ÉȊ­"í`ÉČ­"`ÉȖ‚€”  Łiˆ!” Ň‚€%‘5˘h !˘˛ń‚€2‘† ­ 6u ąpą Ô p‚€J‘­ §°Ľ–ĺ ďŒk#€d˛ń‚€V‘­Ň‚€f‘#­ŒŁŁh­¤ o'(˛Ô<­'¤ m%)łÔ, %Œ˘n&Łď&ďłń&Łďl&Ł&ďď &$ď %îmŠĎ'íoŠż íi­¤ Ś­(łÔP#­ŒŁďŒj"ďáÓ‚€s‘"ŁďÓ‚€‘ˆ­îפ )ç"˘Ä)ç!Ä)Ä"Łi­îŚŠŞ– yŚďŒŚ­Ó{j W­i!ďÓ5!ďÓ!ďŇ ‚€‘Š‚€‘!k!!ŁďŒŁŁi#"ď #jŠÄ!k!˘h"Ó*"Łďl$Œm­$˘Ś­ ­#%p#%˘k"˘h"ďjŠŇ#ŁŚ–Ś­hŚ­ ˛Őˆ­î×i­!z­­!y!zŁíp!­Ä­!y˘!zŁíŚš‚€ˇt š­ît‚€Ŕ­4!x˘‘‚€Â­4!x˘!y!zŁ˘‘š‚€Ĺt š!y!zŁítš‚€Çt št­íŚ‹l˙–Zh"Ä ĺ"xޞĄÔ%ˆ"xî×i!z$đ $!y#˘đ ĄÔhŠ""xíĊіŇ­îlk#$˛Ôg­#ŒŁi!ďj"ˆ­­˛ń‚€Ë‘ˆ­î×m!%z%xŁáď !ďj"ď h ˆ­­˛ń­Śˆ­î×m"%z%xŁáď #íkŠ”–ů#h "łńŽ §iŽ Ž í§ČŽ í!Č ˘hŠá–K q­ď ­˘Ś­­îŒŁh­ ­­­Œp­­Œ˘Ś­­ď ­˘ď ­˘Ś24Ó ­–p­îih !˛Ô­ ŒŁď­4ď íhŠč–­3­Ä­îíj˙­îŁi­­!p­!˘Ś3ÔI!łń"íj­­p­˘Ś­Ł­3xŁď 24Ó­­٧h­­Ł­­î§Č­­î Ȇ1­"áu"ąpą Ô p‚€Ů‘†1v–-23ÔŠ–4x†s3ń‚€ĺ01˘î‘š‚€ót štš‚€őt š1tš‚€ţt št–™† †5áv†1†]ávr0†‘‘† v†1v– >>>>  >>>> disk error ˙~pascalio,compressorbuffer allocati E  on hassles.insufficient memory space to read in code fileewhile reading code filetoo many procedures in segmenttno procedures in segmenttprocedure code not assemblyinput code file not linkeddinput code file not linkedd3code may not contain base or interpreter relocation Procedure ##: H - H  bytessbad relocation informationnwhile writing out codee Highest code address is H.. Output file is bytes long™:(ë˙’Ż?ő…P6řßĘľŞ‹Ds$ žEXTRAHEA STRINGOPFILEOPS EX °'TRAIO PASCALIOHEAPOPS  î śĐABSWRITE< €€\DSA#ížÓTšíší&˜ý4S040Čx?ځ#:żˆœ˜šk &âäT(3´íjý#2㈜˜š š ÜĎABSWRITEĺA#ń+¤,pÓš‚€r š†)˜r šrš‚€r š†)€Pr šr †)§Ňp††)˜spÓ†h`†)˜€Pt`‚€€Ut`˜sp҄š‚€r pš†\r pšrp…\ƒ€(ÚÔ+††áupÓš‚€0r pšrpp¤,–+}šć Vš‚€=r pš…Vrpš‚€Mr pš†Trpšr p…T …Vź€1ŰÚÔť…TŇpŠE…Tp"p°¤‡ń.š‚€Pr pš…Trpš‚€Tr pšrpŠ…T`p$‡Őd˙`Ë×xĽY`Ë×xĽX`Ë×xĽW…YîĽ[…X…WŒĽZšrpš‚€[r pš…Yrpšrpš‚€d !r pš…Xrpšrpš‚€nr pš…Wrpšrpš‚€wr pš…[írpšrpš‚€r pš…Zrpšrpšrp–j$˛Ÿ††áup°Ą"ĺĄÔ=$…[˛Ô$îhŠ…[hi#†…Y!Œ˙Ë%ppąj%ím$îl!íi! ˛Ÿ" Ô׊¨"Ô %îmš‚€Šr pš%rpšrpš‚€™r pš%îrpšrp–Á††‚-ásšrpš‚€Şr pšrpšrp‘ÔO‘…TÓGš‚€źr pš†Srpšr pš‚€Ćr pš†Rrpšr p…R…S…T‘šrpš‚€Ôr pšr p†s– Can't find What is the object file ? .CODESki ŽŃp the first block (Y/N) ? ˙Error in reading block 00Write to which disk (0,4,5,9...) ? Drive not on-linee# bytes/sector = # sectors/track = # tracks/disk = # sectors/block = # sectors/disk = Error writing logical sector Last logical sector written was #AbsoĽlute Sector Write Program [A5]How many sectors ? Starting logical sector ? "Insert system disk and type RETURNNA{ ’EXTRAIO STRINGOPFILEOPS PASCALIO  î‘KERNEL= €€îCS!Uźˆ ęlđlđh$ý4.1ä‡GĐ4ÄP‹×: Ţ-ś ) P‹×ę*–đ,=€ęŞ0 h˙˙   CONST "VERSION = '[IV.1 B4h]'; "MMAXINT = 32767; { MAXIMUM INTEGER VALUE } "MAXDIR = 77; { MAX NUMBER OF ENTRIES IN A DIRECTORY } "VIDLENG = 7; { NUMBER OF CHARS IN A VOLUME ID } "TIDLENG = 15; { NUMBER OF CHARS IN TITLE ID }s "MAXSEG = 15; { MAX CODE SEGMENT NUMBER } "FBLKSIZE = 512; { STANDARD DISK BLOCK LENGTH } "DIRBLK = 2; \{ DISK ADDR OF DIRECTORY } "AGELIMIT = 300; { MAX AGE FOR GDIRP...IN TICKS } "EOL = 13; { END-OF-LINE...ASCII CR } "DLEŢŚŮ = 16; Ă{ BLANK COMPRESSION CODE } "NAME_LENG = 23; { Number of characters in a full file name} "SWAPPING = 0; { Swapping segment status} "P_LOCKED = -1; { Position locked segment status} –’"STACK_SLOP = 40; { Number of words of temp for procedure stack} "MEM_LINK_SIZE = 4; { Number of words in heap record}  "sys_error = 0; { Unknown system error} "proc_error= 3; { Unknown procedure error} "stk_error = 4; { Stack overflow error} "sys_io_error = 9; { System I/O error} "halt_error = 14; { Programmed halt } "heap_error= 15; { Heap operation error} "seg_fault = 128; { Segment fault} "stk_fault = 129; { Stack fault} "heap_fault= 130; { Heap operation fault} "Pç˙pool_fault= 131; { Used to consolidate pool after purge}   TYPE  "IORSLTWD = (INOERROR,IBADBLOCK,IBADUNIT,IBADMODE,ITIMEOUT, .ILOSTUNIT,ILOSTFILE,IBADTITLE,INOROOM,INOUNIT, .INOFILE,IDUPFILE,INOTCLOSED,INOTOPEN,IBADFORMAT, .IBUFOVFL, i_write_prÜot, i_ill_block, i_ill_buf);  5{ COMMAND STATES...SEE GETCMD }  "CMDSTATE = (sys_boot, sys_init, sys_halt,UPROGNOU,UPROGUOK,SYSPROG, .COMPONLY,COMPANDGO,LINKANDGO,sys_debug); " E{ CODE FILES USED IN GETCMD } E u÷ƒ"SYSFILE = (ASSMBLER,COMPILER,EDITOR,FILER,LINKER);  E{ ARCHIVAL INFO...THE DATE }  "DATEREC = PACKED RECORD .MONTH: 0..12; /{ 0 IMPLIES DATE NOT MEANINGFUL } .DAY: 0..31; { DAY OF MONTH } .YEAR: 0..100 ˙ { 100 IS TEMP DISK FLAG } ,END { DATEREC } ;  E{ VOLUME TABLES } "UNITNUM = 0..127; "VID = STRING[VIDLENG];  E{ DISK DIRECTORIES } "DIRRANGE = 0..MAXDIR; "TID = STRING[TIDLENG];  "full_id = STRING[name_leng]; "file_table = ARRAY [sys_file] OF full_id; " 3Ů˙"FILEKIND = (UNTYPEDFILE,XDSKFILE,CODEFILE,TEXTFILE,INFOFILE, .DATAFILE,GRAFFILE,FOTOFILE,SECUREDIR,SUBSVOL);  "DIRENTRY = PACKED RECORD /DFIRSTBLK: INTEGER; { FIRST PHYSICAL DISK ADDR } /DLASTBLK: INTEGER; { POINTS AT BLOCK FOLLOWING } /CASEƒ DFKIND: FILEKIND OF 1SECUREDIR, 1UNTYPEDFILE: { ONLY IN DIR[0]...VOLUME INFO } 4(filler_1 : 0..2048; {13 bits} 5DVID: VID; H{ NAME OF DISK VOLUME } 5DEOVBLK: INTEGER; { LASTBLK OF VOLUME } ý˙5DNUMFILES: DIRRANGE; { NUM FILES IN DIR } 5DLOADTIME: INTEGER; { TIME OF LAST ACCESS } 5DLASTBOOT: DATEREC); { MOST RECENT DATE SETTING } 1XDSKFILE,CODEFILE,TEXTFILE,INFOFILE, 1DATAFILE,GRAFFILE,FOTOFILE,SUBSVOL: 4(filler_2 : 0..1024; J {12 bits} 5status : BOOLEAN; {Filer kludge temporary} 5DTID: TID; Š{ TITLE OF FILE } 5DLASTBYTE: 1..FBLKSIZE; { NUM BYTES IN LAST BLOCK } 5DACCESS: DATEREC) { LAST MODIFICATION DATE } -END { DIRENTRY } ;  "DIRP = ^DIRECTORY;ł  "DIRECTORY = ARRAY [DIRRANGE] OF DIRENTRY;  E{ FILE INFORMATION }  "CLOSETYPE = (CNORMAL,CLOCK,CPURGE,CCRUNCH); "WINDOWP = ^WINDOW; "WINDOW = PACKED ARRAY [0..0] OF CHAR; "FIBP = ^FIB;  "FIB = RECORD *FWINDOW: WINDOWP; { USER WINDOW...F^, USED BY GET-PUT } *FEOF,FEOLN: BOOLEAN; *FSTATE: (FJANDW,FNEEDCHAR,FGOTCHAR); *FRECSIZE: INTEGER; { IN BYTES...0=>BLOCKFILE, 1=>CHARFILE } *f_lock : SEMAPHORE; *CASE FISOPEN: BOOLEAN OF ,TRUE: (FISBLKD: BOOLEAN; { FILE IS ON BLOCK DEVICE } Ťý43FUNIT: UNITNUM; { PHYSICAL UNIT # } 3FVID: VID; { VOLUME NAME } 3FREPTCNT, ) { # TIMES F^ VALID W/O GET } 3FNXTBLK, ˙{ NEXT REL BLOCK TO IO } 3FMAXBLK: INTEGER; { MAX REL BLOCK ACCESSED } 3FMODIFIED:BOOLEAN;{ PLEASE SET NEW DATE IN CLOSE } 3FHEADER: DIRENTRY;{ COPY OF DISK DIR ENTRY } 3CASE FSOFTBUF: BOOLEAN OF { DISK GET-PUT STUFF } 5TRUE: (FNXTBYTE,FMAXBYTE: INTEoGER; must be read in without breakpoints} " "procedure exec_error(bad_e_rec_p:e_rec_p; n_words,err:integer); "procedure loadseg(segerec:erecp); "procedure rlocseg(segerec:erecp); "function ptr_add (p : mem_ptr; n_words : integer) : int_p; "function ptr_sub (p_0, p_1 : mem_ptr) : integer; "function ptr_less (p_1, p_2 : mem_ptr) : boolean; "function ptr_gtr (p_1, p_2 : mem_ptr) : boolean; "function ptr_geq (p_1, p_2 : mem_ptr) : boolean; "procedure print(s:string); "procedure printint(i:integer); "pr^­˘ocedure writestr(s:string); "procedure checkunit(lvid:vid; lunit:unitnum); "procedure moveseg(segsib:sibp; srcpool:poolptr; srcoffset:memptr); " implementation Şő3KERNEL !U–  Ýž“ COMMANDI< €€ CS!V.}ÓT¤í¤í&˜ýUNITSČž?­#Z~0ˆn k r~h€T(3žíjý#~0ˆn T <jŸ˙  type bigstring=string[255];  var havechain,inredirect,outredirect,monitoropen,inmonitor:boolean; "function redirect(command:bigstring):boolean;  procedure exception(stopchaining:boolean); "procedure chain(command:bigstring); " "procedure initcommand;  procedure startmonitor; "procedure stopmonitor(saveit:boolean); "procedure getchainline(var command:bigstring); "  implementation 3‡?COMMANDI!Vr– ***  Ýt“* SCREENOP< €€ CS!7í~“ÓTXíXí&˛üUNITSČ>ρ#Ş”řqk ěočqT|0ríŹţ#řpřqT¤7ľâ   const  sc_fill_len = 11; $sc_eol = 13;   type $sc_chset = set of char; $sc_misc_rec = packed record 8height, width : 0..255; 8can_break, slow, xy_crt, lc_crt, 8can_upscroll, can_downscroll : boolean; 6end; $sc_date_rec = packed record 8month : 0..12; 8day : 0..31; 8year : 0..99; 6end; $sc_info_type = packed record 8sc_version : string; 8sc_date : sc_date_rec; 8spec_char : sc_chset; {Characters not to echo} 8misc_info : sc_misc_rec; 6end; $sc_long_stʓ‰ring = string[255]; $sc_scrn_command = (sc_whome, sc_eras_s, sc_erase_eol, sc_clear_lne, 7sc_clear_scn, sc_up_cursor, sc_down_cursor, ťiý˙7sc_left_cursor, sc_right_cursor); $sc_key_command = (sc_backspace_key, sc_dc1_key, sc_eof_key, sc_etx_key, 7sc_escape_key, sc_del_key, sc_up_key, sc_down_key, 7sc_left_key, sc_right_key, sc_not_legal , sc_insert_key, 7sc_deletekey); $sc_choice p = (sc_get, sc_give); $sc_window = packed array [0..0] of char; $sc_tx_port = record 8row, col, $ { screen relative} 8height, width, Y{ size of txport (zero based)} 8cur_x, cur_y : integer; E{cursor positions relative to%ů˙ the txport } 6end; 6 $ {entries 4..syscom^.subsidstart-1 are valid} $sc_err_msg_array = array [4..4] of ^string; {accessed $R-} 6 "var $sc_port : sc_tx_port; $sc_printable_chars : sc_chset; $sc_errorline : integer; $sc_errormessage : ^sc_err_îmsg_array; " "procedure sc_use_info(do_what:sc_choice; var t_info:sc_info_type); "procedure sc_use_port(do_what:sc_choice; var t_port:sc_tx_port); "procedure sc_erase_to_eol(x,line:integer); "procedure sc_left; "procedure sc_right;  k"procedure sc_up; "procedure sc_down; "procedure sc_getc_ch(var ch:char; return_on_match:sc_chset); "procedure sc_clr_screen; "procedure sc_clr_line (y:integer); "procedure sc_home; "procedure sc_eras_eos (x,line:integer); "procedure sc_goto_xy(x, line:integer); "procedure sc_clr_cur_line; "function sc_find_x:integer; "function sc_find_y:integer; "function sc_scrn_has(what:sc_scrn_command):boolean; "function sc_has_key(what:sc_key_command):boolean; "function sc_map_crt_command(var k_ch:ch y˙ar):sc_key_command; "function sc_prompt(line :sc_long_string; x_cursor,y_cursor,x_pos, 7where:integer; return_on_match:sc_chset; 7no_char_back:boolean; break_char:char):char; "function sc_check_char(var buf:sc_window; var buf_index,bytes_left:integjer) ::boolean; "function sc_space_wait(flush:boolean):boolean; "procedure sc_init; $  implementation F?)SCREENOP!7r– ***  Ͳ­ęhDEBUGGEREXTRALEX8 €€€2 DEBUGGER>TarîHîH&ţ2DEBUGR7A+/A VŹVŹ<–îbţVŹV¨4K¤<…aV " "procedure enterdebug(errnum:integer); "procedure setbreaks;   implementation ĐJgEXTRALEXqar""h`!pk–6 °Ś`p–O)`„*ŹPŚ``§p–+šçh çŘÉÔ Éď çÉď€ ď çŘÉÔ Éď çÉ ˛ń € ď îhŠň–Ä`dŤŚ`p–Í ď–n c‚€Ĺ‡j/ ŇH‡łń ‡á¤€-ďhŠh'i¤ +!° ‡!ą Ô¤ c‡!§ď íh‡!¤! i!Ň֊?/Ň;.Ô¤ h ,łÔcb Řɧď îhŠěhФ h ,łÔcb Řɧď îhŠěh- Łď–œ`eŤ`‚€ šń ‚€ď`˜ďŠ ‚€ď$ ď –Ě`fŤ`‚€šń‚€ď% ď Š ‚€ď$ ď –ű`dŤ`‚€šń ‚€ď`˜ďŠ‚€ ď…s ď –Y5 „ „Ťd„Ť`„Ť‚€#ď„ ˜ď€ Ÿd‚€%šŸ Ôd˜‡ď Š‚€)ď,Ô d˜‡-ď Š`˜ď ‚€,ď–™`p`§i!ƒ€-ÚÔ!€aŁ€A˘i!cĐÚńď!cĐÚÔĐ"Ô!ď!¤– ¤'¤¤‡% ˛ńc€A‡% Ł€A˘źƒ€5ŰÇŽŠc€0‡%î€0˘źÇއ°‡!cĐÚĄńcĐ­ âź âźŰƒ€9ŰŰÇď¤!‡łŸ‡!cĐڇ!ƒ€<ڇ°Ą ĄÔ‡!‡!ȇí¤‹Œ‡!­ °‡˛ŸĄÔ ‡î¤ďŠv‡! ⟃€?ŰÚÔe‡Ň¤$i¤‡î¤ ¤‡‡ ˛Ô?„‡§h €-ŇiŠ) €+Ó$ ƒ€BÚÔ €0٤Š ˘€A٤‡%‡Œ‡˘¤‡í¤Šş!ԇᤊď‡! ⟃€FŰڇ‡#ł‡‡"˛Ą‡$ ĄŐúţ€ ń ¤'‡&‡Ċ-…wáÓ'‡!€ °†…w˘×ç‚€IšŸĄ¤'‡&†…w˘×ć Ė&)‚€Mď–Ľ f,zçĹ,zxo&˜Ň*Ä)+Ċ]d'&pf$pma'%p˙h!€˙źÚÔ8!¤ j"(˛Ô,f$"Łpmc'%p##˘˘k+#łÔ+#Ł łń+#Łh*"Ä"íjŠĎŠ*áÄ) Ė ż­h! Ó y!Ó yhŠö j–Ň#${Ä#x$z"!ď–ň$`abď z瘆€€˜!…x†€„˜"#ď–=‚€Oď ď‚€Rď xď ‚€Vď yď ‚€Yď zď ‚€\ď {ď ď –ć"‚€_Ĺh Ň>!ƒ€cÚń âź­ âźŰƒ€iŰÇďi!€ °…wṥÔ"†…w˘×çĹhŠ âź­ âźŰƒ€oŰÇďi! Ň€ i!­ Ň ˛ń îh" € ČďŠ łń !ď" !Č íh!€ °Őu˙€ ď"‚€ušŸk–ú‚€yď € ďi–‚€ď ˙€ ďi–an ⟃€…ŰÇďh ƒ€‹ÚÔ $ #" ďnŠ ƒ€ÚÔ% ďnŠ ! € °…wᱡĖŽn`%Ĺ`qd`˜q…yłĄÔn…€ˆyç…yî×$ĖŞj!ďÔ†€Š`†{!sÔj–ő`dŤ`‚€•šŚáĽ{`‚€™šń(†|đÔ†€Šˆ†{`sŚ­†€ŠxĊ 𠂀đ–+l#‚€­Ĺ‚€ąď#"€˙`ďÔ#˜Š Ô †…w˘×˜–K"‚€şĹ‚€žď"!˙`ďk–t†€Šhď ‚€Éď y ď ‚€Đď z ď –Œ‚€Ôď" ! € ďk–ş…{˛ńď †€Šh" y zď!Ô !" ç†{skŠ!ďk–ÖŚˆ‚.ˆ.áu°h–ú+¤-ˆ.­§Ň ď$ń€%p¤+ˆ.­§ âź^âźŰƒ€ŮŰÚÔCˆ.­§Ň‡+ˆ.­í§˘€ ٤+­˘ŚŠ ˆ.­§€ ҇+í¤+Š ‡+íŒ¤+­íŚŠŚ`‡+€ p€P‡+Ł ˆ.­p¤*ˆ.­`‡+í‡*p`‡+‡*˘Č­‡*˘íڇ,Ôfđ `˜đ­­Łíšć%Ł°­­łŸĄÔGđ v‚€Üđšć%îv ⼚çÉâźŰƒ€őŰÇđŚ‚V­‚VšçÉŇ­Ś­­łŸ¤-–, gi"Ȁ €~ź‰ âźŰ âźŰÇ’h € ° ° ń1 ‰ Ň!˛ń ""§îČ!îi’Š!íi!˛Ô ’""§íČ"! Č € ° ° Ô¤!˛Ÿk– Ű~„V„ŹPˆ‚.„V˜wph Ó#ˆ‚.ia‚€ř” a„V˜€S” a˜wph Ó'ˆ‚.¤,„,‚€ú” „,„V˜€S” „,˜wph °¤€–€€ U¤V‚€üđ`'Ô,`˜(ń"¤+„+`ú˜€P” „+‚€U” „+˜(¤VФV–U ŽV„‚.„ƒZáw&Ôt„‚.„.áuŇ[$ÔM‚ďa˙ď!ńi‚ ď`˙ď!ń˙îhjď "!ł" ˛Ą%Ô"íjŠď"˛ńď „‚.wŠ‚ ďŠ‚ďŠ‚!ď„‚.w–‚V Ü­ zy­x˘Ś`­ zx­p`§i­­xíĖ L!Óf ŽĄÔ€,’!ŠI"đ*đ*Œ˘ÄŠ="đ*Ä"x€€łÔ""x€€ŁŒđ*˘ÄŠ "đ*Ä"x€€łÔ""xŁÄŠ "đ*Ċց,ŽÔ"x ’ – "a„ Ź Ś­ՙáh­xƒ2ÚÔhŠc­xƒ4ÚÔhŠS­xƒ7ÚÔ€/hŠB­xƒ;ÚÔ€_hŠ1­xƒBÚÔ€ghŠ ­xƒIÚÔ€ohŠ­xƒQÚÔ€xha˜đ łÔ­x Ł đ a§ŁđŠa§Łđ­),­Ć(,­',­x€ŠŇ ­­x­x˘Ä­Ôđ – Ň&*Äh&xƒYÚÔ ‚[+‹~&xƒ^ÚÔ ‚a+‹f&xƒdÚÔ ‚h+‹N&xƒkÚÔ ‚r+‹6&xƒuÚÔ ‚|+‹&xƒÚÔ ‚‡+‹&xƒŠÚÔ ‚’+‹î&x‹ć‚•+‹Ü‚˜+‹Ď‚›+‹Â‚ž+‹ľ‚Ą+‹¨‚¤+‹›‚§+‹Ž‚Ş+‹‚Ź+‹t‚Ż+‹g‚˛+‹Z‚ľ+‹M‚¸+‹@‚ť+‹3‚ž+‹&‚Á+‹‚Ä+‹ ‚Ć+‹˙‚Č+‹ň‚Ę+‹ĺ‚Ě+‹Ř‚Î+‹Ë‚Đƒ|+‹ž‚Ň+‹ą‚Ô+‹¤‚Ö+‹—‚Ř+‹Š‚Ú+‹}‚Ü+‹p‚Ţ+‹c‚ŕ+‹V‚â+‹I‚ä+‹<‚ć+‹/‚č+‹"‚ę+‹‚ě+‹‚î+‹ű‚đ+‹î‚ň+‹á‚ô+‹Ô‚ö+‹Ç‚ř+‹ş‚ú+‹­‚ü+‹ ‚˙+‹“‚‚+‹†‚‚+‹y‚‚+‹l‚‚ +‹_‚‚ +‹R‚‚+‹E‚‚+‹8‚‚+‹+‚‚+‹‚‚+‹‚‚+‹‚‚+‹÷‚‚+‹ę‚‚!+‹Ý‚‚$+‹Đ‚‚'+‹ÇĂ‚‚)+‹ś‚‚++‹Š‚‚-+‹œ‚‚/+‹‚‚1+‹‚‚‚3+‹u‚‚5+‹h‚‚7+‹[‚‚9+‹N‚‚=+‹A‚‚A+‹4‚‚E+‹'‚‚G+‹‚‚I+‹ ‚‚K+‹‚‚M+‹ó‚‚O+‹ć‚‚Q+‹Ů‚‚T+‹Ě‚‚W+‹ż‚‚Z+‹˛‚‚]+‹Ľ‚‚`+‹˜‚‚c+‹‹‚‚e+‹~‚‚g+‹q‚‚i+‹d‚‚k+‹W‚‚n+‹J‚‚q+‹=‚‚s+‹0‚‚u+‹#‚‚w+‹‚‚y+‹ ‚‚{+‹ü‚‚}+‹ď‚‚+‹â‚‚+‹Ő‚‚ƒ+‹Č‚‚…+‹ť‚‚‡+‹Ž‚‚‹+‹Ą‚‚Ž+‹”‚‚‘+‹‡‚‚”+Š{‚‚—+Šo‚‚š+Šc‚‚+ŠW‚‚Ÿ+ŠK‚‚Ą+Š?‚‚¤+Š3‚‚§+Š'‚‚ޝ+Š‚‚Ź+Š‚‚Ž+Šւ˛ Ô ‚ƒ++– 6 ˜¤,ď`dcď zx¤ $˛ńHb+ zyp zç"$Łp¤ b+*p zç"îp¤ e+*p e„ „ gfď))€–Ňđa,(˘íďÄ!¤– H­ Ä­ ÄŚ–_­­xyç!î×xÄ ď0–€Ž Ô"h`§i``§Č`!Č kŠ"k–ň¤*€ń⼀ŐâźŰ€ÔâźŰ€ŇâźŰ€ÓâźŰ€ÖâźŰ€—âźŰÚÔŽđ-hd×-xzx p*‹*d×xÔ++x)˘Ä‹d×xń++x)˘Ä‹ d×xd×xÓ++x)˘Ä‹řd×xd‰×xŇ++x)˘Ä‹ăˆ )pŚ b×­ ­ pd×xb×x2łd×xb×x2˛ĄÔ3ˆ d×xb×x2Ł)˘˘pŚ b×­ ­ p++xb×x2˘ÄŠz,d×xÄ-d×xÄ+ĤŠd++x)˘ÄŠ\ŚŠV)0ŠQ(0ŠL)°(ƒƒ/ÚĄń)(1Š8*€oٰ)ƒƒ2ÚĄń*€oŁ)1Š)'1ŠŽyn¤-&{Ä-x&z,+đŠփ5–ŕ ¤‡x˜Ó„ ‡xzçŇxzx¤ ‡x˜ą)˜ąĄŐş„ p¤ `,*p ठ„ ,)p„ (p¤ a,*p‡x˛Ÿ‡x!˛ĄÔ{„ (‡xŁp¤ f,*p&Œ˘/x˘n&o.Ô%‚ƒšď‡xz瘂ƒź‡x…x‚ƒŔ/xďď‡xfedcb.ď)-Ô‡‡/%$#"/Ô//x&˘'ŁÄŠ%€–°¤//x&˘'ŁÄŠ‚ƒÄďŠ‚ƒĚď–aáÄ!…jÓ/!Ľj­h˜Ľr {l$zç킃ԚÔ$ zbcď"Ň Ľr yh…r˜Óږ„c‡Ĺá¤áih !˛ÔJ† ˘×j„ÉÔ"ć+°"ć /°Ą"çgšĄÔ ¤Š"cš"ć ‡°Ą"çgšĄÔ ¤ íhŠą–ý#{h‚ƒŘď#yď ‚ƒÝď#ď-j"ď ‚ƒŕď ď ‚ƒäď zyď ‚ƒçď#zď aáÄ‚ƒęď!ď aáÄ‚ƒíď!ď ď –ƒ¤ 'n&çďÔrb&çņ|&çĹbq&&çďÔ)'ç †€ŠyÄ'ç †€ŠzÄ&ç&ç &ç ď"Ę&çɤ Š.&‚ƒńšń$&ç Ä'ç Ä'ç ˙Ä&çĘ&ç ˙ď!¤ –œafŤa˜qh ç }%˘Ä–ča‡Ĺ†‡˘×h çeĹ aĹ ç)Ä ç .Ä ç -Ä ç +Ä ç *Ä çĘ ç„Éʖ † ˘×炃őņ ý˘×‚ƒůĹ–:­`baď`baď.Ôg zçĹ"¤ !¤„Ęácď8–$€(ď…uŠ$€gďŠ!€liepďŠ €aďŠփý‚„ď…uÚÔHš€Ík¤#˜ą-ĺĄÔ#x…qÓ#|kФŠč#˜Ó#z瘆€€˜†€Šx…x†€„˜…sqď!ď†pxď ‚„ď¤h .˛Ô†px §ď íhŠě‚„ ď¤h .˛Ô †px §ƒ„ ÚÔ †px §ďŠ€-ď íhŠŰď –S#Š#­ba`ďba`ď.Ԋ­ď5Š ď;Š ­ďŠք– €!˘đhj ⟎ âźŰƒ„&ŰÇđk#ƒ„+Ú"łŸĄÔ(#ƒ„0ÚÔ d"×#€0ŁÄŠ d"×#€AŁ ˘Ä"íj#đŠ#Ž Ň "˛ń"îjđ# ⟃„4ŰÚԖ"˛ń'd×xi"˛ń !Œd×x˘iŠ€ đ†px !Ȁ đŠ‚„7đ6 íh °ŐX˙đ –R€!˘˘đh€˙źÇđj" Ň€ đІpx "Č"€ €~źÚÔ"đŠ€-đ íh ŇĚđ –Łl†€Šh…{˛ń9# y z’!Ô,!Ô#x złń##xíÄ"# ç†{sl""xîĊ "# ç†{slŠ"’l– †€Šk†|đÔU†€€#đÔL†€€‚„9šń𠂄=đ†xbAńj‚„Ađ†xaAń˙i†|˜qhđ `#bđ."!˛Ÿ Ôń–%†p…q ˘’Ä!Ľu Ľs’;–r…{˛Ô"’iŠ-†€„"’Ô#†€„‚„Dšń†€`†{†€„si"†€xĊi!"x˛ŸĄk’ –É{yj‚„H’áĽ{a "x€ ’Ô+"ç!î×x˜Ň ‚„L’Š`ďDÔ†q"ç!î×xxÄ ďC–†|’Ô0†|˜qi!˜Ó†|’ńáĽ{`ďDÔ †q!xÄ ďCŠ‚„R’˜–1†|‰zçņ|’ńáĽ{`ďDÔ †q‰{xÄ ďC–{‰ca`’†|#zçĹáĽ{†|’Ôa†{†€€sĺ!łŸ ÔáĽ{bďDÔ ‰yĽq"ďC–ź‚„Y’áĽ{a ˙€ ’Ô`ďDÔ‰yĽq!˛ń …qxĽq!îiŠń ďC–"†€Šl†|’ÔT†|˜qi!˜ÓA†€€$’Ô5‰j!"{°$x"|°Ąk"yj"…ry°# Ôé#Ô`ďDÔ"Ľq ďCŠ‚„b’Š‚„i’–Uƒ„pÇđh𠊐JАGАHАIŠ EАFŠքv–w‚„‡đ†p€ đÔĽuđ đ;–Đƒ„ŽÇđjđđ "Š;ŽŽÓŽđŚŽđŠ*Ž…rÓŽyŚŽđŠŽhi đ …r°i yh!ÔňŠք”–9ijh "˛ÔM† ˘×k#ç‚„¨šń4i‚„Ź’  W ’ ‚„Ž’#ç˜#˜#ć#ć ‚„°#ć ’’ íhŠŽ!Ô‚„´’–|‚„ź’„ € ’Ô&/Ľw`’6Ô`’4áŇ/`’8Š‚„Ý’áĽw–›‚„˝’` € ’Ô ’9–Ęƒ„ÓÇđhđ €LŇđ Š NŠ OАPŠքٖî Š­ĽnŠ­ĽkŠ­ĽmŠ ­ĽlŠքă–R#€L°j#€E°iƒ„÷Çđhđđ "Ô& ƒ„ýÚÔ đ<Š €EŇ€Mđ<€Rđ<€Ađ<€Pđ<Š €EŇ€PR€RR€AR€MRŠ R–Šƒ…Çđjđ"Š…oń‚… đ7Š…oÔ ‚… áđ7Šօ– š€Íh ˜Óq j"ykš” š‚…” š zç” š” #xli!$˛Ô9#ç!î×x˜Ó)š!” š€ uš#ç!î×xzç” š” !íiŠÂ"|hŠ‹– ô†|‚…!ņ€€‚…%ņ€„‚…)Ĺ€(ďƒ…-Çďh ƒ…3Úń ď ƒ…9Úń€ ďď ‹„Ů€Ôq ‚…?áď7ŠtŚď:fKŠbď†p†pxďąs˘Ľsď;ŠLď†p†pxáďąsŁĽsď;Š5>Š1?Š- QŠ(SŠ$LŠ @АMАBŠď#АTŠ š8ÔrŠօC­ńď ƒ…wÚŐ˙–!áih !˛Ô ď9 íhŠóáĽw–!˘áŚ ­ łŐ€áh­ Ň!­cbaď„ #zçĹ"¤ !¤„Ędď4h áÓN áÓ+‚…}ď ď Ś †€€† ˘×ņ ˘×ć ĽxŠ‚…ƒď­ ď ‚…‡ď­ďď Šáď9–"ß Ů€î†|‚…ŠĹ†€€‚…ŽĹ†€„‚…’ņt€žČšç+ɤ šçÉonm¤ `Ä yi!{l+łÔ!yi+Ň!çGëö!zîÄ!{˜Ó!{l!k#j†€ˆ†yqÔ…€ˆyç…yî×xĽ€‰ŠáĽyš€Ôń<˜Ľj ‚…– ‚…œ7U†pÄĽu˜ĽqáĽvŮ€ÔĽlĽkĽmĽnĽoŠq 3V…lÔ€M<…kÔ€R<…mÔ€A<…nÔ€P<…váҐ=)ĽvŠáĽv…y˛ń…€ˆyç…yî×…€‰Ä…váą%ĺĄÔ:š€ÔÔq %ÔáĽvŮ€î– 0123456789ABCDEF P==P##  L# O#  V= VO##S== Seg  ,˙ţ˙˙((˙ $) (ms)  stat=dyn==ipc==env== ˙ţ˙˙ţ˙˙˙ţ˙ , Segname? Offset#? ˙˙ţ˙˙Óľ˙ţ˙  symbolic seg not in mem  Procname or #? ú Varname or offset#? First## Last## Line#? 1Type or to continue, to stop #4:#5: Filename? .text First  Last  Nothing in file  error reading file  unable to open file ˙´˙Ă˙ŕ˙ö˙˙˙˙˙˙˙˙˙˙˙&˙˙˙˙˙SLDCC˙˙SLDLL˙˙SLDOO˙SLLAA˙SSTLL˙SCXGG=˙SINDDSLOD1SLOD2SCPI1SCPI2BNOTTINCIIDECIITJPLDCRLLDRLLSTRLLCTRLLEXRLLLDCNNLDCBBLDCIILCOLDLLLASTLLDOLAOSROLODLDASTRLDELAESTEINDSTOLDCLDMSTMCAPCSPLDBSTBLDPSTPMOVINCIXAIXPLANDDLORLNOTTLEUSWGEUSWABINGIADISBIMPIDVIMODIICHKEQUIINEQIILEQIIGEQIIFLTTNCRNDABRNGRADRSBRMPRDVREQREALLLEREALLGEREALLADJSRSINNUNIINTDIFEQPWRLEPWRGEPWREQBYTLEBYTGEBYTUJPFJPEFJNFJUJPLLFJPLLXJPCPLCPGCPICXLCXGCXICPFRPULSLBPTSIGNALLWAITTEź…˙QSTRLESTRGESTRASTRRCSTRRLPRSPRDUP11DUP22SWAPPNOPNATNATINFO€öúÍúÚúçűŞűűű(úôűOűBţhţœüČüŐűÄüâţĂţĐţÝţęţ÷˙˙˙úŔ˙+űiűv˙Ů˙˙8úKü`üSüŽüťűű5ű\űë˙ĺ˙ńűŃűŢúú$üüý ýý#üzü‡ţţ'ţ4ţAţNţ[ýŮ˙Íý=ýJýqý~ý‹ý˜űü˙ÁýĚűřüüüďý0ýĽý˛ýżűˇ˙Šţ‚ţţuţŠţśü9üFűƒýQćýóţţ ˙E˙Rü”üĄ˙ľýWýdüműü,˙_˙l˙y˙…˙‘úXúeú1ú>úrúúŒú™úŚúłILLEGAL€˙ý€˙ýpń˙Č˙œ˙œ˙Ş˙Ş˙Ż˙´˙´˙â˙č˙†˙¤Ž“ ţó˙ţăţă˙ ˙Ş˙ŞţÓ(cd) [  No proc in seg Seg not in memKERNEL (rg) mp== sp== erec== seg= ipc= tib= rdyq== ˙Ů˙ß˙ĺ˙ë˙ń˙÷ ) :  ˙˙˙AR˙ó /˙÷˙Ú˙í˙~˙~˙   Start  End  Seg#? no such seg no such seg Delta lex level? no such proc no such seg   ES˙ő˙é˙ń˙í˙ĺ˙ů Mem address? “ DU˙Ö˙č˙ (bb) PNo breakpts set Set break #?  already existsRemove break#?  LS˙ń ˙ů˙őAR˙ń ˙÷˙ĺ˙ë "& EXTRALEXEXTRALEXLS˙ŕ ˙î the sib is  ¨2~O(0<@DEBUGGER+\˙ž˙´˙Ë8˙š˙ä˙Ü˙Ó˙Ó˙ě˙ô˙Ó˙Ř˙ŕ˙y˙Œ˙č˙đ˙Ď Hit break##Error # at ‘ŔÍ  DEBUG [x17]DEBUGGERŠ|ÇŤgy@ęPž­`@ ä ť • ‡“ + T  Ź ”   ö Đ Ä  D  ň ˛ Ś   { kp¨]śđíßČź¨˜W}I3 ˙őĄ{kbUO/čĐšidYOJ* ÓV˜4éDEBUGGERĆar f„ Ť˜iš€Íh ˜ą!˜°ĄÔO k#yl$xmj"%˛Ô;$ç"î×x˜Ó+$ç"î×xy#y°$ç"î×xzçfšĄÔ $ç"î×xi"Ľz"íjŠŔ#|hЍ!¤ – aeŤa˜‘h ˜Ň˜oŠ zo– e„ Ťi+š€ÍÄ+x˜ą!ĺĄÔG+xj"yk#xlh $˛Ô.#ç î×x˜Ó#ç î×xzçešÔ +#ç î×xÄi íhŠÍ!ń+"|Ċ°!¤ – Tn%‚€‘Ä%x˜Ó9%xi!yj"xkh #˛Ô)"ç î×x˜Ó"ç î×xzç‚€šÔ$ Än íhŠŇ–}ih !˛Ô" §ƒ€ ÚÔ " " §€ ˘Č íhŠá–S†%˘×l­y˜ąŐżŚa­x­yp­ç!pk`­x#p$ćŇ$ć ŚŠ.$ć˛Ÿ$ć ˛ĄÔ c$ćápkˆ­x#p­Œ˘$ć ˘Ś­y­˘k­ą­!ŒłN˙˙ŸĄÔO­Ô5b­x#p…v%Ó&b§†t§Ó$ç b§Ä$çʆt­x#pŠáĽvŠ$çÉÔb$ć Čb­x#p–aá¤m%‡˛Őú†%˘×¤‡ç‚€šŸŐ܇瘑i!˜ąŐ͇çÉĺ%ṥպ„ ‚€ë‡ç„ p„ ˜” g‡çĹg‘bg˜‘Յ†€ˆ†y‘Ô{"zy˜Ň"”*…€ˆyç…yî×xĽ€‰…€ˆyç…yî×"ƀŠĄc†{‡sÔ9‡ç †€Šyćç †€Šzć熀Šxćç ‡ç ‡ç †{sÔ % ‡çʅ€ˆyç…yî×…€‰Ä„ ˜” Š% %ím‹˙ţ–uŮ€î‘ Ů€î– t–‰” –DEBUGGERPDEBUGIN˙ţ˙  C Á,Ź„Q Cł˝ *** EXTRAHEA PASCALIO STRINGOP FILE˘9.OPS GOTOXY EXTRAIO PDEBUGINPERFOPS  ĺ̓˛ DIRINFO<  €€#CS2îHîH&ţ2WORKö@ A8ŠA.VĐVĐ<şîbţVĐVĚ48KČ[ď˙ "uses $(*$U WILD.CODE*) wild; " "Type $D_DateRec = Packed Record 2Month : 0..12; 2Day : 0..31; 2Year : 0..100; 0End; $  $D_NameType = (D_Vol, D_Code, D_Text, D_Data, D_SVol, D_Temp, D_Free); $ $D_Choice = Set of D_NameType; . $D_ListP2 = ^D_List; $D_List = Record /D_Unit : Integer; , { Unit # of entry } /D_Volume : String[7]; . { volume name of unit } /D_VPat : D_PatRecP; 1 { volume pattern info } /D_NextEntry : D_ListP; { Next entry in list }Ó˙0 /Case D_IsBlkd : Boolean Of 1True : (D_Start, z{ Starting block of entry } 9D_Length : Integer; { Length (in blocks) of entry } 9Case D_Kind : D_NameType Of ;D_Vol, B{ Everything but D_Free } ;D_Temp, ;D_Code, ;D_Text, ;D_Data, |Ş;D_SVol : (D_Title : String[15];{ File name } ED_FPat : D_PatRecP; { name pattern info } ED_Date : D_DateRec; { File date } ECase D_NameType of { # of files on vol } GD_Vol : (D_NumFiles : Integer))); -End; + %D_Result = (D_Okay, { Mission accomplished } 1D_Not_Found, { Couldn't find name and/or type } 1D_Exists, { Name already exists; no name change made } 1D_Name_Error, { Illegal string passed } 1D_Off_Line, { Volume not on line } 1D_Other); { Miscellaneous err÷˙or } %  "Function D_Dir_List(D_Name : String; D_Select : D_Choice; ;Var D_Ptr : D_ListP; D_PInfo : Boolean) : D_Result; "{ Creates pointer to list of names of specified NameTypes $(D_Select), matching specified D_Name (wildcard characters allowed)ď. In- $cludes information about pattern matching that occurred if requested $(by D_PInfo) } $ "  "Function D_Scan_Title(D_Name : String; Var D_VolID, D_TitleID : String; 4Var D_Type : D_NameType; Var D_Segs : Integer) : D_Result;  Ę"{ Parses D_Name } & "Function D_Change_Name(D_OldName, D_NewName : String; D_RemOld : Boolean) : D_Result; "{ Changes file name in D_OldName to name in D_NewName, removing already $existing files of name in D_NewName if D_RemOld is set } " "Function D_Change_Date(D_Name : String; D_NewDate : D_DateRec; ND_Select : D_Choice) : D_Result; "{ Changes date of directory or file name in D_Name to date specified by $D_NewDate. D_Name may contain wildcards } " "Function D_Rem_Files (D_Name : String; D_ ÷˙Select : D_Choice) : D_Result; "{ Removes file of specified name (wildcards allowed) } " "Procedure D_Lock; "Procedure D_Release; "{ Provide means to limit use of DirInfo routines to one task at a time " in multi-tasking environments } $ "Functioěn D_Krunch (D_Unit, 5D_Block : Integer) : D_Result; "{ Collects all unused space on a volume around D_Block. This unit must $not be in use when this operation is performed. } $ "Function D_Mount (D_File_Name : String) : D_Result;  –ѧ"Function D_DisMount (D_Vol_Name : String) : D_Result; "{ Provides a means of mounting and dismounting subsidiary volumes. $Wild cards may be used. } " $ "  {$***} "  Implementation xM ąDIRINFO  82/`áÄ0 Ó›€Đß Ľ1íĽ–F1îĽ1Ň˜Ľ›€Đޖ“jh% ě§i!›ZĐÚÔ ##x Œ!€0Ł˘ÄŠj íh $°"ĺ Ô× °$°ĄÔ% î지*Ň#áÄj"n–z€„X„€„ŹPk‚€„X˜ti!˛ń!îiŠ„X§i!˛ń ¤€† p!˛ń‡€ƒ„X˜e!teëP„X!t„X§ŇlŠ#‚€„X˜th °l$ĺ ˛ŸĄÔ „X ‡€‚ l$ńk$‡€ƒ§˛ŸĄÔQ„X‡€ƒ˜„/‡€ƒ§Łt„/ëP„X‚€č„X‚€č Ô‡€Ċ „X‚€ čÔ‡€Ċ„X‚€ čÔ‡€Ä#¤€†–€…†\„4„aŹP‡`‚€ëP‡_‚€ëP‡^ć]Äik¤ oml!„4§˛ŐŽ„4!ě§j"€ Ň(ńo„4!t‹’(Ô¤ 'Ô¤c‡`‚€ëP‡_‚€ëP‡]Äp"ƒ€ÚńInÉ"Š"%ÔmnŠ$ÔlnŠ!ŇnŠ !ŇnŠր&ń¤c‡`‚€6ëP‡_‚€7ëP‡]Äp"€ał"€z˛ĄÔ „4!ě"€aŁ€A˘Č!íi‹I˙„4§˛ń„4지*҇`›@ëP„4t‚€8„4˜ti!˛Ô‡`›@čń‡`›<ëP!Ň„4tЇ`„4˜„ !ît„ ëP„4!t„4§˛ńh„4지#Ň_n„4§¤3h ‡3˛Ô„4 짃€9Úńn íhŠĺ„4§łńn&Ô‡`„4ëP„4‚€=ëPФc‡`‚€>ëP‡_‚€?ëP‡]Äp„4‚€@čÔ‡^ć`§˛ńk#°„4§˛ŸĄÔ „4˜‡_‡]‡^ k#¤c#Ó‡`‚€AëP‡_‚€BëP‡]ĖbÄ+b„,ŹPhi ĺ!b§łŸĄÔ!!íib!지%Ň!íiŠb!짃€CÚÔhŠÔ ¤.–-ě+b„,ŹPhi b§˛!ĄÔ b 지=°i íhŠę!¤.–-dh$%ěppŸi!Ó ! ŇhŠhŠP%€MË× k#yą#y ąĄÔb%Äbs#çɁÚ#秲Ą#ćƒ€KÚĄÔšć$€Ë× #çëŠh n–Ę-d„2ŹPkd§˛ŸŐMd지#°d§˛ŸĄŐ´jd"짛ZĐÚi!Ô‡/‡/x Œd"짢€0ŁÄ"íj!ĺ"d§˛Ÿ ÔÓ!ńkŠ@‡/xš€‡˛Ô6šć‡/x€Ë× |Ô ‡4‡/x‘kŠšć‡/x€Ë× §˛ńkŠk#°‡0ĄÔ/šć‡/x€Ë× ˜šć‡/x€Ë× ˜‡.‡0rh‡.xd§ÄЇ.˜Ä‹ˆhk‡/‡/xíĚć‡/x€Ë× |Ô ‡4‡/x‘kŠšć‡/x€Ë× §˛Ôk#Ň2‡1Ôd˜šć‡/x€Ë× ˜‡.‡0rhŠdšć‡/x€Ë× čh ‡/xš€‡° Ôƒ ÔkŠk#¤5–4…+b„0ŹPh‡3€MË× ć˛Ÿb§˛ŸĄŐ…‡/x‡3€MË× ćłŸ “ĺĄÔn‡/‡/xíć3‡/x€MË× i!ç  ɀd҇-Ċ1!çÉ҇-Ċ"!çÉ҇-Ċ!çÉ Ň‡-Ċ‡-ć-x‡.ÚÔb˜!瘇,‡2rh‹}˙Ї/‡3€MË× ćÄ ¤4–3&,c„1ŹPb‡0Ĺ`u i!­Ä!çšć­€Ë× ë!ç­Ä!ç˜Ä!çšć­€Ë× |Ä!Ô9!ç ‡/Ä!ç‡.‡/ŁÄ!ç ‡3ć3Ó!ç cë!ç‡4Ä!çbŇ3Ň!ç‡-Ä­„x˜Ň­„ Ċ­ç Ä Ś–4 j(' Őš"lˆ^­„~ˆ5˜b­„€`a‘m(ÔL$"înk#&˛ÔBˆ^#€MË× yˆ^#í€MË× xÓ$˜‚€Pˆ ˆ^#€MË× yˆ^#í€MË× xď#íkŠš%'ĄÔˆ^"€MË× n! &ç˜&ç &x&yď"ˆ^€MË× ć°­ĺ Őf˙(Ô8ˆ^€MË× nˆ^&ć€MË× y&Ó˜‚€Qˆ ˆ^&ć€Mď6Ë× y&ď– }„„U„„ŹP„ u‡„˜Än„„U˜„ „5„ g‘m%°ŐÁ„ ˜‘i„5˜‘j„5˜‘k„^„ ˜‡„~fd‘m%°Ő…‡„€śÔmŠym‡„€Ú#ĄÔHšć&€Ë× |Ô)„^€MË× ¤„T˜‚€R‡„Tç ‡„Tx‡„T‡„T搊˜‚€S„ ˙šć&€Ë× |Ô‡„€Ú#Ą€>‡„€€Aݸ&š€‡°!ĺ %Úĺ ŐT˙‡„x˜ÓmŠ%Ňm%¤„ƒ–„‚ [#€MË× ç#€MË× ćî€MËÄ"#€MË× ćih !˛Ô# €MË× # í€MË× Ĺ íhŠâ– „}„„U„„ŹPeuh¤ ‡„~śÔ¤ ‹„„U˜„5„ „ c‘¤ )°Őę„5˜‘n„ ˜‘ol‘„_„5˜`„^‘¤ )°Őž¤ šć €Ë× |„ §˛ŸĄ€>‡„~€AݸĄÔS„_„ ˜d‡„~„ „^‘Ô ¤ „_$‘$’îl$„_€MË× ć°'ĺ ÔĐ)Ň „_ěppj"Ó " Ҥ Ф ‡„~ڄ ˜‘ĄÔ¤ šć €Ë× ‚€Të‘()° ¤ š€‡°&ĺ )Úĺ Ő.˙()°ĄÔ¤ )¤„–„€ Ő*a„,ŹP‡+Äha§˛ń4‡+xˆ€­€MË× ćłŸ ĺĄÔ‡+‡+xíÄaˆ€­‡+x€MË× çčhŠĚ ¤.–- 6W„/„\ŹPe„ZŹPh„/˜dďÔAhe˜cďÔ&‡YÔˆ€­$€MË× çeë#$Óˆ€­#‘ŠhŠˆ€­$€MË× çeë ¤^–] }ő„„Í„„ůŹP„„¤„„÷ŹP„€Ťu¤€¨¤€§„„͘„,„~a„€Ş‘h Ň„„¤˜b„Ua„€Ş‘h °Ő÷‘„€­„,˜„€§„€Ź‘h °Őۚ懀§€Ë× ¤„Ł„~§Ňm‡€¨í¤€¨šć‡€¨€Ë× bčÔh‡€¨š€‡° ° ÔŐ Ň‡„öÔhšć‡€¨€Ë× ‚€Uë Ó‡„Łb뇄Ł|Ô„€­€MË× çbëŠ&„U§˛ÔhЇ„Ł|Ô„~˜„U˜‡„ö‡€§hŠh °‡„Ł|ĄÔ&‡€§„€­ěpp¤€Š‡€ŠÓ ‡€Š ŇhŠh‘ ¤„ű–„ú Î/f„2ŹPe‡1Ĺjf˜‘lh‡4f˜b‡0ca‘Ôh‡4"€MË× ç eĹ"‡4€MË× ć°$ĺ ÔÎ ¤5–4 ű{„„S„„~ŹP„„R‡„}Ĺ„Wu¤Y¤T‡„|śÔh„„R ɀdłÔh‹î„„S˜„+a„[„V‘h °Őل+˜‘¤X‘„\„+˜„T„Z‘h‡„|€`ÝǤ„| ŇRšć‡T€Ë× |ÔB‡„|ݸa§˛ŸĄÔ„\a˜„„R‡„|h‡„|Úa˜‘ĄÔh„\€MË× ç „„RĹ °šć‡T€Ë× |ĄÔ!‡T„\ěpp¤U‡UÓ ‡U ŇhŠh‘‡Y ° ¤Y‡Tš€‡°‡Xĺ  Úĺ Ő9˙‡Y °ĄÔh ¤„€–„"´i š€‡˛ńiŠšć €Ë× |Ói–y‚€VvĐŁh łńŚƒúŠ4 ?˛ń?hŠ Œhˆƒů vŚƒú­ƒúŚƒú–™ Ś„ˆƒů­ƒúŒv p–´ph Ó ŇďŠď–`ˆ$€MË× çÉąmˆ$€MË× çÉ °Ő€­ƒúŒěłńmŠob­ƒůÄ­„"ěˆ$€MË× x˘ppÓmp"€MË× k#yą#y ąĄÔbsi"€MË× ćkh #˛Ô!" €MË× çɰ i íhŠä!ĺm–w +ďŐ ˆ+€MË× o'y'xŁk'y*˛ń 'xi*jlŠ'yi*íjl­ƒú#˛ń#hŠ­ƒúh$Ň" Łj! Łi­„­ƒů Œ!pď­„­ƒů Œ"pď$Ň" ˘j! ˘i# Łk#˛ÔŹ'xi$Ň'ç*'y'xŁ˘Ä'*Ċ Ţ'"Ä'ç*íÄ­„ˆěpď'çÉ ŇUmš㠚㠚çÉ n&(˛Ô"šć&€Ë× ¤ )~­„°)!°ĄÔ&m&ínŠŮ%Óšć%€Ë× ç'xĖ œţ‡„¤ƒü‡ƒü°Ő`‡„‘¤ƒü‡ƒü°Őő‡ƒúŇ ¤„ p¤ƒ÷‡ƒ÷`€MË× ćłŸ`‡ƒ÷í€MË× y‡ƒ˙˛ĄÔ ‡ƒ÷í¤ƒ÷ŠŐ‡ƒ÷¤ƒý¤ƒř‡ƒř‡ƒý˛Ô:`‡ƒř€MË× ¤ƒţ‡ƒţx`‡ƒřî€MË× y˛ń‡ƒř`‡ƒřî€MË× y‡ƒří¤ƒřŠ˝`€MË× ű`€MË× ć‡ƒ÷í¤ƒý¤ƒř‡ƒř‡ƒýłÔ0`‡ƒř€MË× ¤ƒţ‡ƒţy‡ƒű˛Ô‡ƒř‡ƒű‡ƒţxű‡ƒřřŠÇ„ƒů‡ƒúŒv‡ƒü¤„–„'<„„=ŹP„u„˜Ç„‘h °‡˜ąĄÔZ¤‡˜ÓM‡¤‡ć i‡ć ‡ćî˘jc Ęd‡ç 끁ˤ „‡çĹKua‡x€Ës¤/.Ą¤‡~¤ŠŽ/ńh ¤?„u–>`,c„-ŹP`uc˜Çb‘i!°"˜ąĄÔ"˜Ó "ç˜s"~jŠń`u!¤/–.n˜ĽĽw–[].TEXT.BACK.CODE.SVOLđ Ł˙˙ţ—˙˙ţo˙#:˙ő˙ä˙í˙Ű:˙  ˙˙?˙„dir_infoo˛\O?AmEŠ•Eç4řäĹ%L Ń> °iŔ 2*** EXTRAHEAHEAPOPS STRINGOPFILEOPS WILD  ,¨“{ FILEINFO< €€$ CSd†'S'lÎńńh0ţFMUNITS3 ú‹Ŕ+š ú‹ťÎ'FńX;€ÎÄ.   "Type F_File_Type = file; 'F_Date_Rec = Packed Record 6 Month : 0..12; 7Day : 0..31; 7Year : 0..100; 5End; { F_Date_Rec } ' " "Function F_Open (var fid: F_File_Type):boolean; " "(* returns true if the file is open and false if not open *) " "Function F_Length (Var Fid : F_File_Type) : Integer;  ${Returns the length of the file attached to the Fid identifier. %If the file is not opened result is returned as zero}   "Function F_Unit_number (Var Fid : F_FilefšË_Type) : integer; $ ${Returns the unit containing the file attached to the Fid %identifier. If there is no file opened to Fid, the function %result is Zero.}   "Procedure F_Volume (Var Fid Ţ : F_File_Type; 5Var File_Volume : String);  ${Returns the name of the volume containing the file attached %to the Fid identifier. If there is no file opened to Fid, %the file_volume is set to a null string.}   'S˙!"Procedure F_File_Title (Var Fid ń: F_File_Type; 9Var File_Title : String);  ${Returns the title (with suffix) of the file attached to the %Fid identifier. If there is no file opened to Fid, %the File_title is set to the null string.}   "Function F_Start (Var Fid Ţ: F_File_Type) : integer;  ${Returns the block number of the first block of the file %attached to the Fid identifier. If there is no file opened %to Fid, the function result is returned is zero.}   "FunctioaÓn F_is_Blocked (Var Fid ˙: F_File_Type) : Boolean;  ${Returns a boolean that is TRUE if the file attached to the %Fid identifier is located on a block-structured unit. If there %is no file opened for the Fid or if the device is not block structured %, the function result i2s set to false.}   "Procedure F_Date (Var Fid s: F_File_Type; 3Var File_Date : F_Date_Rec);  ${Returns a record indicating the last access date for the file  ‡|%attached to the Fid identifier. If there is no file opened to %Fid, the File_Date is unchanged.}    Implementation ˝Ć ˙zFILEINFOmd†( †Hp†i–= ‘Ô†ćiŠi–S ‘Ô†ć iŠi–q!‘Ô †ç ëPŠ ‚€ëP–!‘Ô †çëPŠ ‚€ëP–Ľ ‘Ô†ćiŠi–ť ‘Ô†ćiŠi–Đ!‘Ô †çĹ–Řr–`UJ;,! j ***  |Ź‘uSYSINFO<  € CSTa'S'lÎńńh0ţFMUNITS3ô“ť+š “ťÎ'FńX;€ÎÄ.  "Type SI_Date_Rec = Packed Record 7Month : 0..12; 7Day : 0..31; 7Year : 0..99; 5End; { SI_Date_Rec } " " "Procedure SI_Code_Vid (Var SI_Vol : String); ${ Returns name of volume containing current workfile code } " " "Procedure SI_Code_Tid (Var SI_Title : String); ${ Returns title of current workfile code } " " "Procedure SI_Text_Vid (Var SI_Vol : String); ${ Returns name of volume containing current workfile text } " " "Procedure SI_Text_Tid (Var SI_Title : String); ${ Returns title 3˙ of current workfile text } " " "Function SI_Sys_Unit : Integer; ${ Returns number of bootload unit } " " "Procedure SI_Get_Sys_Vol (Var SI_Vol : String); " { Returns system volume name }  " "Procedure SI_Get_Pref_Vol (Var SI_Vol : String); (" { Returns prefix volume name } " " lýˇ;˙"Procedure SI_Set_Pref_Vol (SI_Vol : String); ${ Sets prefix volume name } " " "Procedure SI_Get_Date (Var SI_Date : SI_Date_Rec); ${ Returns current system date } "  "Procedure SI_Set_Date (Var SI_Date : SI_Date_Rec); ${ Sets current system date } "    {#**} " "  Implementation DÜ˙ôtSYSINFO dTa! ›ëP–/ ›ëP–= ›ëP–K ›&ëP–Wšzh–e ›@ëP–s ›<ëP–˘)`„*ŹP`‚€č`‚€č Ô ›<›@늛<`ë–+Ż ›DĹ–˝›D Ĺ–Ćr–**::ZS<5.(! a ***  ‚ƒÝWILD> €CSDFe!lÎńńh0ţFMUNITS3ďhlť+š hlťÎ'FńX;€ÎÄ.wůE "  Type $ $D_PatRecP = ^D_PatRec; $D_PatRec = Record 1CompPos, > { starting position of pattern in subject string } 1CompLen, 3 { length of pattern in subject string } 1WildPos, ˙ { starting position of pattern in wild string } 1WildLen : Integer; { length of pattern in wildcard string } 1Next : D_PatRecP; { next pattern } /End; { D_PatRec } $ " "Function D_Wild_Match(Wild, Comp : String; Var PPtr : D_PatRecP; TPInfo : Bo-olean) : Boolean;  { Compares two strings ˛Ĺ›(one containing wildcards) and returns true if they $match. Includes information about pattern matching that occurred if re- $quested (by PInfo) } "  {$***} "  Implementation ~ôÜWILD hDF5+b„,ŹPb§Ó bb§ě§€=°¤.Ф.–-k`r$x˜Ó$xi!ç#!{ŁÄ!"!yŁÄ i!ç#Ä!ç"Ä ç$xÄ$ Ėž*a„,ŹPh ĺ‡+x‰'˛ĄÔa‡+x지 ąh ń‡+‡+xíÄŠŢ ¤.–-*a„.ŹPh‡-‡-xíć,a˜‡-ďĺć,xń8a‡-x지%Ň%h‡-x˘‰'˛Ô‡-‡-xíć+a‡-xě§ÄЇ,Ċ ‡+a‡-xě§Ä‡,xń‡+xˆĐÚ ĺĄÔ‡,ć-‡-xíĖ/ޤ¤¤¤‡‡xíćˆQ˜‡ĺćxĺŐˆQ‡x짃€ڇĺĄÔ$ˆQ‡x지~°¤ˆQ‡x지%°¤‡‡xíċäˆQ‡x질ĐڇĺĄÔ‡ċ¤ˆQ‡xě§j‡‡xíćˆQ˜‡ĺćxńHˆQ‡x짃€ Úń‡Ċ1ˆQ‡x지-Ň ˆQ˜‡‡aŠ"i"!˛ń‡ćˆŃQ˜‡ĺćxńP‡Ô!‡Ô c€˙źÇŽccĐ€˙ź"!źÝÜÇŽŠ‡ÔcÇŽccĐ"!źŰÇŽˆQ‡x지}°¤‡‡xíĤ¤‡‡x ŐĆţ‡xń<‡cĐÚń‡Ċ-‡‡xíćxŽ'˛ŽzĄÔˆQ‡x질ĐÚń ‡‡x‡xď–%%xíÄ%xŽ'˛ń$Ž&íĊ>ˆr!xŚ$xh%x #!đ íh Ž&˛ń"Ä#xĺ"xĺĄÔˆr!­Ĉr#x"x Ôϖ3)Äjk­'˛ŸŐ­zˆQ+질ĐÚĺĄÔ(*+*­&˛Ÿl$­"ĺĄĺŐĄˆQ+ě§h$ńˆ(*ě§i €%°#ĺĄÔk+í¤ Š$ĺ !°ĄÔ#ĺ!ƒ€ÚĄÔjŠ+í¤ *í¤ ŠZ ˆĐÚńjŠL­zÔ(*+ Š=+í¤ *í¤ +­'˛­zĄÔˆQ+질ĐÚń(*+Š„ „ b!(Š„ „ )b( Šրk"ĺ#ĺĄ*­&˛ŸĄ+­'˛ŸĄÔ)Ċ*­&˛Ÿ,aŮ+­'˛Ÿ ­"ĺĄÔj")x Ő˙­z(x˜ąĄÔ(xo'ç­&'{ŁíÄ'­''yŁíĖ Ćy„Q„~ŹP„(„|ŹP`ƒ€[ÇŽ„ƒ€cÇŽ„%r‡{˜Ä„Q˜¤"„Q§¤'„(§¤&„!‡{‡z‡{x˜ąĄÔ*‡{x|¤#‡{xç˜Ä‡#˜Ó‡#|¤$‡#ç‡{xć{‡#ć$¤#Šă‡!ń‡{˜Ä„%r‡!¤€€–Îs– @0 0 h={ň˙Ŕ˙;Jç˙ 0 h YQ8… e *** HEAPOPS  tmREALCONV< €€ˆ( DS€‡íŇ ÓTŚíŚí&˜ýFŒ ČZ=ťŠ#ţĄ˘Vşk ÎßÄáTČ/ŔíjýŠ#Úŕ˘VşTÜ8klREALCONV§€‡O)`„*ŹPš‚€s pš`˜s pš‚€s pšspp–+G†2†^átš‚€s pš‚€s pšspšspĽ*š‚€s pš†€Ps pšs p†‚€/čÔp†2†˜tpÓ+†Ľ…^†…^†˜€Pu†…^‚€0€Uu†…^ëP†2†˜tp°Ľ…]……]ńš‚€3s pšsp……]Őq˙‚€<vĐŁĽ-†…Z…-vŇ‚€R‘†…[w†…\w……[ç……\ą…\Ľ…^……^˜Ä……^熅ZĹĽ1Ľ/…/íĽ/†2†Z…/îׁ…1” pÓ‚€[‘†Z…/îׁć€ĐĽ1…1°…/ł Ôą/ł…1ąĄÔ‚€n‘…/Ľ…^Ľ1…1……^˛Ől†Z…1îׁĽ…_Ľ…`Ľ0…0……`˛ŐI……_…0×yąŐ4†2……Z……_…0×Ňx” pÓ‚€y‘……Z×xąŐ……Z×xĽ,……Z×xĽ+†2……Z……_…0×x…,˘” pÓ‚€ˆ‘……Z…+×xąŐž……_…0×yĽ.……_…0×yÓ….íĽ.….Œ…-˛ń‚€˜‘….†2……Z….……_…0×x” pÓ‚€Š‘……[r……Z……Z×x׹.…,ن2……Z…,Œ×….…,Ł……_…0×x…,˘” pÓ‚€ś‘š€.” p…*€2Ň šspĽ*Š…*íĽ*…0íĽ0‹Žţ…1íĽ1‹‹ţ†2tp†…Z…-vŐ9ý†2t–***  ****$ REAL CONSTANT CONVERSION UTILITY [A2]]!Enter file name, to quit : .codeFile not found. *realops,natconv,pascalio,extraio,extraheappnot enough meš-˙mory%error in reading segment dictionariestoo many dictionarieserror in reading first blockkerror in reading constant pooll!not enough memory to load segmenterror in reading segmentterror in writing segmentt *EXTRAIO HEAPOPS EXTRAHEASTRINGO!PFILEOPS PASCALIOREALOPS  lé'oO^2Ł2Łvž ţA„†L(*$R-,I-*)  PROGRAM REMOTETALK;   CONST version='IV.0 a1'; &res_segs='fileops,pascalio,extraio,heapops'; {resident segments} &slop=2000; {extra slop for buffer allocation} &  REMIN=7; &REMOUT=8; &FINALBLOCK=50; &NOTLASTBLOCK=51; &SENDAGAIN=52; &SENDNEXT=53; &ABORT=54; &UNSLAVE=55; &CLOSEFILE=56; &RECEIVEFILE=57; &SENDFILE=58; &OPENFILE=59; &FILEOPENED=60; &BUMFILE=61;  FILECLOSED=62;   TYPE BYTE=0..255; %BLOCK=PACKED ARRAY[0..511] OF BYTE; %TWOBYTES=PACKED ARRAY[0..1] ]˙˙OF BYTE; %SETOFCHAR=SET OF CHAR; %BLOCKARRAY=ARRAY[0..0] OF BLOCK; %BLOCKPTR=^BLOCKARRAY;   VAR BUFF,FOON:BLOCKPTR; $PACKBLOCK:BLOCK; $FILENAME:STRING; $INCH:CHAR; $F:FILE; $COMMAND:PACKED ARRAY[0..81] OF BYTE; $FIRSTBLOCK,UNITNUM,LASTBLOCK,UN÷OCNTR,BUFFSIZE:INTEGER;  "PROCEDURE SIGNAL(COMMAND:INTEGER); "VAR WART:TWOBYTES; "BEGIN $WART[0]:=COMMAND; $UNITWRITE(REMOUT,WART[0],1,0,12); "END; " "FUNCTION WAIT:INTEGER; "VAR WART:TWOBYTES; "BEGIN $UNITREAD(REMIN,WART[0],1,0,12); Ë2$WAIT:=WART[0]; "END; " "PROCEDURE UNO(CH:CHAR); "BEGIN $UNOCNTR:=UNOCNTR+1; $WRITE(CH); $IF UNOCNTR=40 THEN $BEGIN &WRITELN; &UNOCNTR:=0; $END; "END; " "FUNCTION GETCHAR(OKSET:SETOFCHAR):CHAR; "VAR CH:CHAR; "BEGIN $REPEAT &READ(KEYBOARD,CH); &IF CH IN ['a'..'z'] THEN (CH:=CHR(ORD(CH)-ORD('a')+ORD('A')); $UNTIL CH IN OKSET; $WRITELN(CH); $GETCHAR:=CH; "END; " "PROCEDURE RECEIVEIT; "VAR INBLOCK:PACKED ARRAY[0..1025] OF BYTE; &JUSTONE:TWOBYTES; &BADOUTPUT:BOOLEAN; &BYTENUM,CHECK¸÷˙SUM,BUFFPTR,BYTE0,BYTE1,ANSWER:INTEGER; " $FUNCTION PUTBLOCK(VAR ONEBLOCK:BLOCK):BOOLEAN; $BEGIN &PUTBLOCK:=TRUE; &BUFF^[BUFFPTR]:=ONEBLOCK; &BUFFPTR:=BUFFPTR+1; &IF BUFFPTR=BUFFSIZE THEN &BEGIN (PUTBLOCK:=BLOCKWRITE(F,BUFF^,BUFFSIZE)=BUFFSIZE; ě(BUFFPTR:=0; &END; $END; $ "BEGIN $BUFFPTR:=0; $UNOCNTR:=0; $BADOUTPUT:=FALSE; $REPEAT &ANSWER:=WAIT; &IF ANSWER=NOTLASTBLOCK THEN &BEGIN (UNITREAD(REMIN,INBLOCK,1026,0,12); (CHECKSUM:=0; (FOR BYTENUM:=0 TO 511 DO (BEGIN  _*BYTE0:=ORD(ODD(15) AND ODD(INBLOCK[BYTENUM+BYTENUM])); *BYTE1:=ORD(ODD(15) AND ODD(INBLOCK[BYTENUM+BYTENUM+1])); *PACKBLOCK[BYTENUM]:=BYTE0*16+BYTE1; *CHECKSUM:=CHECKSUM+BYTE0+BYTE1; (END; (IF CHECKSUM=ORD(ODD(127) AND ODD(INBLOCK[1024]))*128+ +ORD(ODD(127) AND ODD(INBLOCK[1025])) THEN (BEGIN *IF PUTBLOCK(PACKBLOCK) THEN *BEGIN ,UNO('.'); ,SIGNAL(SENDNEXT); *END ELSE *BEGIN ,BADOUTPUT:=TRUE; ,SIGNAL(ABORT); *END; (END ELSE (BEGIN *UNO('?'); *SIGNAL(SENDAGAIN); (END; &END ELSE (IF AN×ý˙SWER=ABORT THEN *BEGIN ,WRITELN; ,WRITE(' ERROR in input file'); *END; $UNTIL ANSWER IN [FINALBLOCK,ABORT]; $BADOUTPUT:=BADOUTPUT OR (BLOCKWRITE(F,BUFF^,BUFFPTR)<>BUFFPTR); $CLOSE(F,LOCK); " IF (IORESULT<>0) OR BADOUTPUT THEN $BEGIN &SIGNAL(ABOőRT); &WRITELN; &WRITE(' ERROR in output file'); $END ELSE &SIGNAL(FILECLOSED); "END; " "PROCEDURE SENDIT; "VAR ANS,BYTE0,BYTE1,BYTENUM,CHECKSUM,BLOCKSREAD,BUFFPTR:INTEGER; &BADINPUT:BOOLEAN; &UNPACKBLOCK:PACKED ARRAY[0..1023] OF BYTE; V&JUSTTWO:TWOBYTES; " $FUNCTION GETBLOCK(VAR ONEBLOCK:BLOCK):BOOLEAN; $BEGIN &BUFFPTR:=BUFFPTR+1; &IF BUFFPTR>=BLOCKSREAD THEN &BEGIN (BLOCKSREAD:=BLOCKREAD(F,BUFF^,BUFFSIZE); (BADINPUT:=IORESULT<>0; (BUFFPTR:=0; &END; &GETBLOCK:=(BLOCKSREAD<>0) AND (NOT BADINPUT); &ONEBLOCK:=BUFF^[BUFFPTR]; $END; $ "BEGIN $BADINPUT:=FALSE; $UNOCNTR:=0; $BUFFPTR:=-1; $BLOCKSREAD:=0; $ANS:=SENDNEXT; $WHILE GETBLOCK(PACKBLOCK) AND (ANS<>ABORT) DO $BEGIN &CHECKSUM:=0; &SIGNAL(NOTLASTBLOCK); &FOR BYTENUM:=0 TO 511 DO &BEGIN (BYTE0:=PACKBLOCK[BYTENUM] DIV 16; (UNPACKBLOCK[BYTENUM+BYTENUM]:=BYTE0; (BYTE1:=ORD(ODD(PACKBLOCK[BYTENUM]) AND ODD(15)); (UNPACKBLOCK[BYTENUM+BYTENUM+1]:=BYTE1; (CHECKSUM:=CHECKSUM+BYTE0+BYTE1; &END; &UNITWRITE(REMOUT,UNPACKBLOCK,1024,0,12); &JUSTTWO[0]:=CHECKSUM DIV 128; &JUSTTWO[1]:=ORD(ODD(CHECKSUM) AND ODD(127)); &UNITWRITE(REMOUT,JUSTTWO,2,0,12); &ANS:=WAIT; &CASE ANS OF (SENDNEXT :UNO('.'); (SENDAGAIN:BEGIN 4BUFFPTR:=BUFFPTR-1; 4UNO('?'); 2END; &END; $END; ƒ$CLOSE(F); $IF BADINPUT THEN $BEGIN &WRITELN; &WRITE(' ERROR in input file'); &SIGNAL(ABORT); $END ELSE &SIGNAL(FINALBLOCK); " IF WAIT<>FILECLOSED THEN &BEGIN (WRITELN; (WRITE(' ERROR in output file'); &END; "END; " "PROCEDURE DOCOMMAND(SENDORRECEIVE:CHAR); "VAR CH:CHAR; &I,TRANSFERUNIT:INTEGER; &ANSWER:TWOBYTES; &S:STRING; "BEGIN $FILLCHAR(COMMAND,82,0); $IF SENDORRECEIVE='S' THEN $BEGIN &COMMAND[0]:=SENDFILE; &REPEAT (WRITE(' Send what file? '); (READLN(S); (IF LENGTH(S)=0 TNń˙HEN *EXIT(DOCOMMAND); (RESET(F,S); &UNTIL IORESULT=0; &REPEAT (WRITE(' Send to what remote file? '); (READLN(S); (IF LENGTH(S)=0 THEN (BEGIN *CLOSE(F); *EXIT(DOCOMMAND); (END; (FOR I:=0 TO LENGTH(S) DO *COMMAND[I+1]:=ORD(S[I]); (UNITWRITE(RéEMOUT,COMMAND,82,0,12); &UNTIL WAIT=FILEOPENED; &SENDIT; $END ELSE $BEGIN &REPEAT (WRITE(' Receive what remote file? '); (READLN(S); (IF LENGTH(S)=0 THEN *EXIT(DOCOMMAND); (COMMAND[0]:=OPENFILE; (FOR I:=0 TO LENGTH(S) DO  BP*COMMAND[I+1]:=ORD(S[I]); (UNITWRITE(REMOUT,COMMAND,82,0,12); &UNTIL WAIT=FILEOPENED; &REPEAT (WRITE(' Write to what file? '); (READLN(S); (IF LENGTH(S)=0 THEN (BEGIN *COMMAND[0]:=CLOSEFILE; *UNITWRITE(REMOUT,COMMAND,82,0,12); *EXIT(DOCOMMAND); (END; (REWRITE(F,S); &UNTIL IORESULT=0; &COMMAND[0]:=RECEIVEFILE; &UNITWRITE(REMOUT,COMMAND,82,0,12); &RECEIVEIT; $END; "END; " "PROCEDURE DOSLAVECOMMANDS; "VAR I:INTEGER; &S:STRING; "BEGIN $REPEAT &UNITREAD(REMIN,COMMAND,82,0,12); &FOR I:d˙˙=0 TO COMMAND[1] DO (S[I]:=CHR(COMMAND[I+1]); &WRITELN; &CASE COMMAND[0] OF (CLOSEFILE :CLOSE(F); (SENDFILE :BEGIN 6REWRITE(F,S); 6IF IORESULT=0 THEN 6BEGIN 8WRITE('Opening new file: ',S); 8COMMAND[0]:=FILEOPENED; 6END ELSE 6BEGIN 8WRITE('ôERROR opening new file: ',S); 8COMMAND[0]:=BUMFILE; 6END; 6UNITWRITE(REMOUT,COMMAND,1,0,12); 6WRITELN; 6IF COMMAND[0]=FILEOPENED THEN 8RECEIVEIT; 4END; (RECEIVEFILE:SENDIT; (OPENFILE :BEGIN 6RESET(F,S); 6IF IORESULT=0 THEN 6BEGIN ń8WRITE('Opening old file: ',S); 8COMMAND[0]:=FILEOPENED; 6END ELSE 6BEGIN 8WRITE('ERROR opening old file: ',S); 8COMMAND[0]:=BUMFILE; 6END; 6UNITWRITE(REMOUT,COMMAND,1,0,12); 4END; &END; $UNTIL COMMAND[0]=UNSLAVE; "END; "  BEGIN "buffsize:= 1 + ((varavail(res_segs)-slop) div 256); "if varnew(buff,buffsize*256) = 0 $then &begin & writeln('program error allocating buffer'); (exit(program); &end; "WRITELN('REMTALK [',version,'] - press S(lave first'); "REPEAT $WRITE('M(aster S(lave Q4˙(uit '); $CASE GETCHAR(['M','S','Q']) OF &'M':BEGIN ,REPEAT .WRITE(' S(end R(eceive Q(uit '); .INCH:=GETCHAR(['S','R','Q']); .CASE INCH OF 0'S', 0'R':DOCOMMAND(INCH); 0'Q':BEGIN 6COMMAND[0]:=UNSLAVE; 6UNITWRITE(REMOUT,COMMAND,82,0,12); 4END„; .END; .WRITELN; ,UNTIL INCH='Q'; *END; &'S':DOSLAVECOMMANDS; &'Q':EXIT(REMOTETALK); $END; $WRITELN; "UNTIL FALSE;  END. > QREMOTETA< €€‚DSA”eí̓ÓTXíXí&˛üREMWRKĆ@+#ř”FrVk :p6rT(3ríŹţ#FqFrVTP:ŽPREMOTETA6A”e&`!Č` p–8` p`§i–\…íĽš r…€(Ň šsĽ–‘š`s ƒ€ÚÔ €aŁ€A˘h aĐÚÔŕš ršs ¤–Îi1­‚ׁ Ł­‚팂­‚…~҆-1…~ár…~°iŚ‚–ů ¤‚Ľ¤‚‘¤‚‡‚€3°Ő˘` p¤‚˙¤‚ ¤‚ ‡‚ ‡‚ ˛ÔC`‡‚ ‡‚ ˘§Ą¤‚`‡‚ ‡‚ ˘í§Ą¤‚†‡‚ ‡‚Œ‡‚˘Č‡‚‡‚˘‡‚˘¤‚‡‚ í¤‚ Š´‡‚€`§Ą€€Œ€`§Ą˘Ň†Ô €.‘€5‘Ф‚€6‘Š€?‘€4‘Ї‚€6Ňšsš‚€ s ‡‚ƒ€ÚŐ+˙‡‚†-1‡‚ár‡‚ą ¤‚†-tpą‡‚ Ô€6‘šsš‚€s Š€>‘–‚ >˜­íŚ­­łÔ†-1…~árŚpąŚŚ­ą­ĺĄi 1­ׁŁ– oĽáhi€5n† &€6ąĄŐ€j€3‘˙¤‚ k#‡‚ ˛Ô(†#§m„ ##˘%Ȇ#§Ąl„ ##˘í$Č"%˘$˘j#íkŠŃ„  p„‚ "€€Č„‚ "€ĄČ„‚  p‘n&Š€.‘Š îh€?‘Šր$‹s˙†-t'Ôšsš‚€(s €6‘Š€2‘‘€>Óšsš‚€3s –‚ t.†U€Rp‡/€S°Ő”†U€:Ț‚€>s šd€Ps šs d§Ň p†-d˜tpŇΚ‚€Hs šd€Ps šs d§Ň †-t pd§¤.j"‡.˛Ô†U"íd"§Č"íjŠě†U€R p‘€<ŇŞ‘‹Żš‚€Ws šd€Ps šs d§Ň p†U€;Čd§¤.j"‡.˛Ô†U"díd"§Č"íjŠě†U€R p‘€<ŇŠš‚€fs šd€Ps šs d§Ň†U€8ȆU€R p p†-d˜tpŇź†U€9ȆU€R p‘–/|+†U€R p†U§¤+h ‡+˛Ôa †U í§Č íhŠěšs†U§‹ż†-t‹š†-a˜tpŇš‚€rs ša˜s †U€<Ȋš‚€|s ša˜s †U€=ȆU pšs†U§€<Ň‘ŠX‘ŠT†-a˜tpŇš‚€‰s ša˜s †U€<Ȋš‚€“s ša˜s †U€=ȆU pŠր †U§€7°Őţţ–+c†-†‚Yát‚€ŚuĐف˘Ľ~†…~ŒuŇš‚€ˇs šspš‚€Çs š‚€Ěs š‚€Đs šsš‚€Üs ƒ€čÇ‘ŮčýmŠUš‚€îs ƒ€űÇ‘Ľ,…,Š…,‘ ІU€7ȆU€R pŠցšs…,€QҸŠ‘ Š pŠցšsԈ†-t–˙ţ˙˙ ERROR in input fileeD ERROR in output file45ô˙î˙ ERROR in input filee ERROR in output file Send what file?  Send to what remote file?  Receive what remote file?  Write to what file? Opening new file: ERROR opening new fil†e: Opening old file: ERROR opening old file: 8;>˙¨˙G˙Ź˙ fileops,pascalio,extraio,heapopssprogram error allocating buffer REMTA˙۝‚€@‚€B–Ш„€€„€ŤŹPš€.t<íĽ <€(ŇšuĽ a„€€qa˜qh ĺ¤T„T‚€Dv„T„€€˜€Vv„T˜q†턀€§˘wĽ6¤T‡Tç„€€ëP‡T‡€ŞÄ‡T燀ŠÄ‡Tç­ćTç­ćTç7ćTç7Ą+5çq„+aéń5ç6Ċ5ç6Ė€Ź+b„,ŹP`íb§˘wĽ i!­Ä!ç‡.Ä!çbëP ŚPš–.H;Ś‚€Hď‚€Iď‚€Jď‚€MďŚ‚€Pď‚€Uď‚€Zď‚€bď‚€qď‚€zď‚€~ ď‚€‹ ď‚€˜ď‚€Ÿď‚€Š€$ď‚€ś€$ď‚€Ä€$ď‚€Ô€$ď‚€ĺ€$ď‚€ó€$€$ €$€/*€/;€/L€/\€/m€/ {€/ ď‚Š€/ ›€/ ď‚Š€/ď‚ź€/ď–ÓŚ:Ś‚Ď€%ď‚Ö€&ď‚Ýď‚ĺď‚óď‚‚ď‚‚  ďŚ9Ś‚‚ď‚‚!ď‚‚*€ ď‚‚6€ ď‚‚A€!ď‚‚J€!ď‚‚R€"ď‚‚W€#ď‚‚]€#ď‚‚d€'ďĎ‚‚o€'ď‚‚{€(ď‚‚‡€(ď‚‚”€)ď‚‚œ€)ď‚‚Ł€*ď‚‚Ş€*ď‚‚ą€+ď‚‚˝€+ď‚‚É€,ď‚‚Ó€,ď‚‚Ü€-ď‚‚ç€-ď‚‚đ€.ď‚‚ú€.ď‚ƒď‚ƒď‚ƒ€0ď:Ś‚ƒ*€"ď‚ƒ4ď‚ƒCď–† €/” 8j"炃SëP"ç€/” 8|Ľ† €+” † wĽ† wĽ–‘í°‚ƒTqĽš‚ƒWu Ľ šu Ľ €/ih !˛Ô† ×0 ×Ĺ íhŠę‚ƒ^qÔ 6x€/í°‚ƒhq›†€/í×€ p†€ĂƒƒkÇŽ–NULSOHSTXETXEOTENQACKBELBSSHTTLFFVTTFFFCRRSOOSIIDLEDC1DC2DC3DC4NAKSYNETBCANEMM,SUBESCFSSGSSRSSUSSSPPENTER TFTRUEEFALSE HAS CLOCK HAS 8510AHAS LOWER CASEEHAS RANDOM CURSOR ADDRESSINGGHAS SLOW TERMINALSTUDENTHAS BYTE FLIPPED MACHINEEHAS WORD ORIENTED MACHINE HAS SPOOLINGGHAS EXTENDED MEMORYPREFIXED[MOVE CURSOR UP]]PREFIXED[MOVE CURSOR RIGHT]PREFIXED[ERASE TO END OF LINE]] PREFIXED[ERASE TO END OF SCREEN]]PREFIXED[MOVE CURSOR HOME]]PREFIXED[DELETE CHARACTER]]PREFIXED[ERASE SCREEN]]PREFIXED[ERASE LINE]]"PREFIXED[KEY TO MOVE CURSOR RIGHT]]!PREFIXED[KEY TO MOVE CU|RSOR LEFT]!PREFIXED[KEY TO MOVE CURSOR DOWN]PREFIXED[KEY TO MOVE CURSOR UP] PREFIXED[NON PRINTING CHARACTER]]PREFIXED[EDITOR ESCAPE KEY]PREFIXED[KEY TO DELETE LINE]]!PREFIXED[KEY TO DELETE CHARACTER]PREFIXED[EDITOR ACCEPT KEY]$PREFIXED[EDITOR EXCHANGE-INSERT KEY]]$PREFIXED[EDITOR EXCHANGE-DELETE KEY]] SCREEN HEIGHT SCREEN WIDTHHCODE POOL SIZEECODE POOL BASE[FIRST WORD]]CODE POOL BASE[SECOND WORD]SEGMENT ALIGNMENTFIRST SUBSIDIARY VOL NUMBERLEAD IN TO SCREENMOVE CURSOR HOMEEERASE TO END OF SCREENNIERASE TO END OF LINEEMOVE CURSOR RIGHTMOVE CURSOR UPP BACKSPACE ERASE LINEE ERASE SCREENNKEY TO MOVE CURSOR UPKEY TO MOVE CURSOR DOWNKEY TO MOVE CURSOR LEFTKEY TO MOVE CURSOR RIGHTTKEY TO END FILE KEY FOR FLUSH KEY FOR BREAK KEY FOR STOPPKEY TO DELETE CHARACTERNON PRINTING CHARACTERRKEY TO DELETE LINEEEDITOR ESCAPE KEYLEAD IN FROM KEYBOARDEDITOR ACCEPT KEYKEYBOARD INPUT MASKKEY TO ALPHA LOCKEDITOR EXCHANGE-DELETE KEYYEDITOR EXCHANGE-INSERT KEYYPRINTABLE CHARACTERSSVERTICAL MOVE DELAYMAX։ NUMBER OF SUBSIDIARY VOLSMAX NUMBER OF USER SERIAL VOLSSINITS INITIALIZINGGPRINTABLECHARACTERSINITS žŚë‘l ŒŔ| VALIDITYůXB.­ńš‚€u šu–đa†×Ĺ!ą!ąĄÔ-š‚€u šuš‚€3u šui†×aŐa†×Ĺ!ą!ąĄÔFš‚€?u šuš‚€Vu šuš‚€bu šui†×aņ×aŐ`† ×Ĺ łŸ €€˛Ÿ Ô?š‚€vu šuš‚€‘u š uš‚€šu šu h† ×`Őa†×ĹaÉłŸaɲŸ Ô%š‚€Łu šuš‚€Ŕu šuaĘaÉłŸaɀ€ ŁaÉŁ˛Ÿ Ô%š‚€Ęu šuš‚€ću šuaʆ×aĹa†€.×Ĺaɀ_łń8š‚€đu šuš‚u š€ušua€ʆ€.×aĹ–3YOU MUST ŽSAVE TO DISK IN ORDER TO UPDATE THIS FIELD,WARNING!!! 'HAS SPOOLING' FIELD IS INVALID.. DEFAULTING TO FALSEE-WARNING!!! 'HAS EXTENDED MEMORY' IS INVALID. DEFAULTING TO FALSEE' DEFAULTING 'SEGMENT ALIGNMENT' TO 0.5WARNING!!! 'FIRST SUBSIDIARY VOL NUMBER' IS INVALID. DEFAULTING TO  (MINIMUM VALUE))8WARNING!!! 'MAX NUMBER OF USER SERIAL VOLS' IS INVALID.. DEFAULTING TO 0.7WARNING!!! 'MAX NUMBER OF SUBSIDIARY VOLS' IS INVALID. DEFAULTING TO 0.-WARNING!!! 'KEYBOARD INPUT MASK' IS INVALID. 9 ś! DEFAULTING TO ô ’+TEACHSETXB,)`„*ŹPš`˜u šu–+CqÔšuŠ p–v‚€ď‚€ď‚€*ď‚€<ď‚€Pď‚€eďď–Ż‚€zď‚€Œď‚€—ď‚€Źď‚€źď‚€Éď‚€Ýďď– ‚€íď‚€˙ď`‚ë(`€!Č`˜ď‚'ď‚;ď‚Mď`‚bë(`€ €!Č`˜ď‚wď‚‰ďď–Ą`‚›ë(`€<Č`˜ď‚Žď‚Ăď‚×ď‚ëď`‚˙ë(` €/Č`˜ď‚‚ď‚‚'ďď‚‚<ď‚‚Oď‚‚dď¤„‚‚uv„‚‚yv„‚‚z v„‚‚{ v„˜ď–3‚‚~ď‚‚‘ď‚‚™ď‚‚Źď‚‚Ŕďď‚‚Óď‚‚çď‚‚űď‚ƒď‚ƒ!ď‚ƒ6ď‚ƒKďď /‚ƒXď‚ƒ`ď‚ƒhď‚ƒ|ď‚ƒŽď‚ƒ ď‚ƒ¨ďď–r‚ƒ°ď‚ƒĂď‚ƒÖď‚ƒęď‚ƒţď‚„ď‚„%ď‚„6ď–Ť‚„<ď‚„Nď‚„bď‚„wď‚„†ď‚„›ď‚„­ďď–‚„˛ď‚„Čď‚„Úď‚„ďď‚…ď‚…ď‚…-ď‚…Aď‚…Uď‚…gď‚…xď‚…‰ď–   –'IF YOU HAVE A VIDEO TERMINAL AND EXPECT&TO USE THE SCREEN ORIENTED EDITOR, THEE#CHANGES SETUP CAN MAKE WILL NOT BE'SUFFICIENT. YOU WILL ALSO HAVE TO BIND(IN THE PROCEDURE GOTOXY IN THE OPERATINGG(SYSTEM. SEE SECTION 4.7 5 OF THE DOCUMENT..#NOTE: DISK UPDATES CREATE THE FILE: NEW.MISCINFO(ON YOUR DISK. THE NAME OF THIS FILE MUSTTBE CHANGED USING THE FILER TO:  SYSTEM.MISCINFOO&IN ORDER FOR THE CHANGES YOU HAVE MADEETO BE LOADED AT BOOTSTRAP TIME."ALL NON-PRINTING CHARACTERS EXCEPTT&CARRIAGE RETURN (CR) WILL ECHO AS "?"..&THE INPUT ABORT CHARACTER, "*", CAN BEE&TYPED IN RESPONSE TO MOST REQUESTS FORR"INPUT AND WILL ESCAPE YOU FROM THEE(SEQUENCE WHICH ASKED THE QUESTION, E.G.,,(WHEN CHANGING A VALUE, TYPING  "*" TO THEE"PROMPT "NEW VALUE" WILL ESCAPE THEE"CHANGE WITHOUT ALTERING THE VALUE..%THE LINE DELETE CHARACTER, "*" ALLOWS(YOU TO DELETE A RESPONSE YOU GAVE IF YOUU'HAVE NOT YET TYPED CR. CR WILL BE SENT'TO THE TERMINAL AND YOU WILL BE ABLE TO'START OVER ON A NEW LINE. THE BACKSPACE(CHARACTER, "*" WILL DELETE YOUR RESPONSEE%TO A QUESTION CHARACTER BY CHARACTER,(ECHOING EACH CHARACTER AS IT IS DELETED..%THE ECHOED DELETED CHARACTERS WILL BE(ENCLOSED IN ANGLE BRACKETS. FOR EXAMPLE,,!TYPING THE SEQUENCE OF CH _˙˙ARACTERSCHARAQF//CTERR$WILL ECHO ON THE SCREEN THE SEQUENCEECHARAQFCTER$AND WILL BE UNDERSTOOD AS THE STRINGG& "CHARACTER". WHEN YOU ACCESS A FIELD,,$YOU WILL BE SHOWN ITS CURRENT VALUE..&NUMBERS ARE GIVEN IN OCTAL, DECIMAL ORR'HEXADECIMAL RADIX,á CHARACTERS ARE GIVEN&AS THEIR ASCII VALUE AS NUMBERS AND ASS#THEIR ASCII MNEMONIC. BOOLEANS ARE(EITHER TRUE OR FALSE. ENTER NUMBERS, ORR(CHARACTERS AS THEIR ASCII NUMERIC VALUE,,ACCORDING TO THE FORMAT::!->O-{OCTAL}-!!! !!'--DEFAULT----!--- 8ó-->DIGIT--->(CR)"! ! ! ! ! (!!"!->H-{HEX}---! !->(-)-! !-DIGIT<-!!! ˙!!!->D{DECIMAL}!!$THE DEFAULT RADIX STARTS AS DECIMAL..$NON-PRINTING CHARACTERS MAY BE INPUTT'BY TYPING THE KEY WHICH GENERATES THEIR&VALUE (FOLLOWED BY CR) OR, IF THERE ISS%AN ASCII MNEMONIC FOR THAT CHARACTER,&JUST TYPE IT IN (AND CR). BOOLEANS AREE!IN•PUT BY TYPING "TRUE" OR "FALSE" (AND CR). "HINTS ON DEALING WITH BACKSPACING::'THE 'KEY TO DELETE CHARACTER' SHOULD BE(SET TO THE KEY YOU WISH TO TY ÍPE TO CAUSEEA BACKSPACE. THE 'BACKSPACE'(CHARACTER WILL BE ECHOED TO THE TERMINALL"WHEN THE 'KEY TO DELETE CHARACTER'' IS TYPED.*THE DEFAULT VALUE FOR PRINTABLE CHARACTERSS#IS CHR(13),CHR(32)..CHR(127). THE )FOLLOWING SYNTAX IS USED FOR ENTERING THE$DESIRED SET OF PRINTABLE CHARACTERS::( EXPRESSION ::= EXPRESSION[,EXPRESSION]]* EXPRESSION ::= NUMBER | NUMBER .. NUMBERR' NUMBER ::= 0 | 1 | 2 | ... | 255 &FOR EXAMPLE, '1,2,5..100', WOULD ALLOWW"CHR(1),CHR(2),CHR(5)..CHR(100) AS PRINTABLE CHARACTER!°!HaWS. FOR MORE !INFORMATION PLEASE SEE THE SYSTEMDOCUMENTATION..X;ӇZ=$ … Ô!F•SETUP Ú XB€)`„*ŹP‡,ń]š‚€u š`˜u šuš‚€ u šuš‚€u šuš‚€1u šuš‚€Du šup–,ˇš†u šuÔ ĽŠ2ƒ€OÚÔ 2€aŁ€A˘Ľ2€!ŇĽ2h–Á*¤,h‡+‚€WëP‘ ⟃€XŰÚĺŐÇ2€/ą ĄÔ hš€>t2€<҇+‚€[ëPš‚€\u šu‹’2€/ŇG‡+§˛ń= ńš€<th‡+‡+§§ƒ€`ÚÔš‡+‡+§§tŠš€?t‡+‡+§vŠF2ƒ€hÚÔ š2tŠš€?t‡+§€Płń"‡+ia‡+˜€Pva‚€p€QvaëP‡+‡+§2ȋ'˙2€!Ҥ,šu‡+‡+‘‡+§Ň¤,–+ R„*„SŹP7ç„*ëP8Ľ`‚€qëP`„*čń6Ľ`„*éń6}ĽŠ6|Ľ`6ç!Ţ‘ŠŰ67ą¤U–TR"!ëP"§€ "ph "§Ó*" ˘" í"§ Łp""§îČ"§ Łí€ " p ˘îhŠĐ–œŸa„.€q” š‚€ru šuš‚€ƒu šu‘‹ ” a‚€”” !†Ĺqaua” ‹ě”  €/¤Ÿh ‡Ÿ˛Ô †€ĂĐÚń 0 ׆ ×Ĺ íhŠŢ†€/í×›€ p‹Źš‚€›u šuš‚€Żu šuš‚€Âu šuš‚€Óu šuš‚€ău šuš‚€öu šuš‚u šuš‚u šuš‚#u šuš‚/u šuŠ pŠց?2€R°4 ŐĹţa” –ŸÉš‚Ku šu‘ƒ\ÚÔä2€C°h–>%kš‚bu $Ô"%€€łń š‚pu %€ łń š‚t!u šui#łń š€1tŠ$š€ tc!Řɰ!˛ŸĄÔ !îiš€ tŠä!łÔšc!ŘÉu!îiŠęš€ tš#uš‚yu ic!Řɰ!˛ŸĄÔ !îiš€ tŠä!łÔ.c!ŘÉ łńšc!ŘÉuŠšc!ŘÉ Ł€A˘t!îiŠÍš€ t$Ôq%€!łń š†%טu š€ ˘†%×§ŁtŠ3%€Ňš‚{u š€ tŠ%ƒ}ÚÔš%tš€ t%€ łńš€^tš%€@˘tšu–čBiš‚…u „‘ńi‹z„§°‡EĄ„§ƒ‹ÚĺĄÔ ‡F„§Ä‹X‡E„§˛ĄÔ+†€!ׄëk„†#×čń#íkŠď„‚čÔ€k‡E#€!ąĄ„§˛ĄÔ‡F#ċ „§ƒ‘Úń3mŠ„§Š mŠ mŠmŠց–„v„§€-Ň !Rh„vŠh%Š'fƒ¤ÇŽŠfƒ¨ÇŽŠfƒŹÇŽŠցą„§ŇiŠ „§¤Bj"‡B˛Ô„"§fĐÚńi"íjŠč!Őo%‹h‡FÄj„"§€0Łl‡F‡Fx%Œ$˘Ä"íj"„§˛Ô„"§€0Łl"„§˛Ÿ‡Fx˙$Ł%˛Ÿ Ô͇FxĚ °$°Ą ĄÔ„§°i‡F˙áîĊ"„§˛Ÿi Ô‡F‡Fxáċő„§˛Ÿ„§°„§€0ٞŸĄ ÔiŠe¤@„§¤Bj"‡BłÔ„@„§"ŁŘ„"§€0ŁĘ"îjŠâ„§°„§€1°ĄÔ„@ŘɲԄ@Ř„@ŘɢĘi‡F‡@Ä Ô‡F‡FxáĊo„§˛ńiŠ^¤@„§¤Bj"‡BłÔ<„"§ƒźÚÔ„@„§"ŁŘ„"§€0ŁĘŠ„@„§"ŁŘ„"§€AŁ ˘Ę"îjŠži‡F‡@Ä Ô‡F‡FxáĊցŔ!‡Fx‡DłĄ‡Fx‡C˛Ą¤G–Fńš‚Ëu šuš!°"uš‚Ýu š!uš‚ßu šuš‚ęu šuš‚ňu šuš‚úu šuš‚‚u šuš‚‚ u šuš‚‚2u šuš‚‚:u šu#Ô@š‚‚Bu šuš‚‚Su šuš‚‚fu šuš‚‚zu šuš‚‚u šu‘€CŇů–h š‚‚“u šuš‚‚Ÿu šuš‚‚´u šuš‚‚ɝu šuš‚‚ݝu šuš‚‚îu šuš‚‚óu šu– ­ ˘€(˛ń šuŚŠš€,t­íŚ–ŕ ­Ô­! ˛Ÿ˘!€d˛Ÿ˘ ˛Ÿ˘ €d˛Ÿ˘˘Śš!uš‚ƒu š u– ­Ô­í ˛Ÿ˘ €d!ę˛Ÿ˘Śš u–† jhkli!€˙łńt2€<҇€‚‚ƒë˙š‚ƒu šu‹ž2€/ŇN‡€‚§˛ńC ńš€<th‡€‚‡€‚§§ƒƒÚÔš‡€‚‡€‚§§tŠš€?t‡€‚‡€‚§vŠK2ƒƒÚÔ š2tŠš€?t‡€‚§€˙łń&‡€‚ia‡€‚˜€˙va‚ƒ#€˙vaë˙‡€‚‡€‚§2ȋ˙2€!Ҥ€ƒšu‡€‚‡€‚‚§Ň¤€ƒ–€‚ƒ a„€ƒŹ˙h‡€‚Ä !a§łŸa §›ZĐÚĄÔ$‡€‚‡€‚x Œa §˘€0ŁÄ‡€‚x€˙˛ńp íhŠÉa §›ZĐÚÔ‡€‚‡€‚x Œa §˘€0ŁÄ íh­ ‡€‚xłńˆˆĐ‡€‚xâźŰÇŽŠp–€„ŕ „€‚„Ź˙­˘Ś­„€‚§˛Ô„€‚˜a­„€‚§í­Łva˜`ďŠp ­łńpŠˆˆĐ­ źŰÇŽ–Ź „€“„Ź˙¤bÇŽh „€“§˛Ő—„€“ §›ZĐÚÔ„€“˜„ „€“§í Łv„˜aŠm„€“ §ƒƒ$Úĺ °  „€“§° ÔpŠK„€“ §€,Ň!„€“ ,ą„€“ í§€,ąĄÔ íhŠpŠ!„€“ §€.°„€“ í§€.°ĄÔ„€“˜Šp‹_˙­€bĐÇŽ¤–Ń €¤€‚š‚ƒ'u `Ô`˜¤€‚–€ä a† ×€ p–/4ń@š‚ƒ-u š‚ƒ;"+"u š€!tš€)tšu‘€Y°h2ƒƒ?Ú4 ÔŠh–c3Š'š‚ƒEu Šš‚ƒJu Šš‚ƒPu ŠփX–ڐš‚ƒcu šu‘ŠĽŠ ĽŠĽŠփq2ƒƒÚ4 Ôːšu–Ů#Ä­i!y!z˘î!yjh "łÔ##x#x˘†!x× ŘÉ˘Ä îhŠă– ­i!y!y!z˘îjh "˛Ô†!x× Ř#Ę#k íhŠä–&h#ji!"˛Ô Œh!íiŠň l–ß<­zŇ ˙áîi˙hŠ i­z îh­ç‚ƒ…čÔM†­xׄ-€ p„-Đ‘ đÔ1„-‘ĺ4ĺĄÔ‘ Šń4ń „-Đ‘ đÔ2€N°4 ÔŰ4ń „-Đ­x‘Š>bď"‡=‘ đÔ1b‡=! ‘ ĺ4ĺĄÔ‡=! ‘ Šę4ń "‡=‘ đÔ2€N°4 ÔŐ4ń"ď–="Ž{h ;ą‚ƒ‘! yÓ xh ;ą‚"Ľƒ–‘Šěš‚ƒœu š ç˜u šu–\Ž{hš‚ƒĽu šu ;ą‚ƒŻ‘š ç˜u šu xh ;Ňŕ–Š*a„+ŹPŽ{h;çaëP çačń xhŠň yŚ ;ą¤.–-Ü*`ď "đÔAš‚ƒłu a‘Ô`a˜$4 ń#š‚ƒšu a‘Ԋá4ń "đńĹ4ń ď–*ú!h {9ŇŠ {:ŇŠ!–S)š‚ƒżu `‘ÔB`˜‘ĺ4ĺĄÔ1š‚ƒÇu š`˜u šuš‚ƒÎu `‘ń€%pŠÄ4ń6ď–) 7ą4ĺĄÔ- }ď&4ń&šuš‚ƒÖu š ç˜u šu ď |ď&–Ă#Ä­i!y!z˘î!yjh "łÔ##x#x˘†!x× ŘÉ˘Ä îhŠă–%ki#łń š€1tŠ$š€ tc!Řɰ!˛ŸĄÔ !îiš€ tŠ"Ńä!łÔšc!ŘÉu!îiŠęš€ tš#uš‚ƒÝu ic!Řɰ!˛ŸĄÔ !îiš€ tŠä!łÔ.c!ŘÉ łńšc!ŘÉuŠšc!ŘÉ Ł€A˘t!îiŠÍš€ t$Ôq%€!łń š†%טu š€ ˘†%×§ŁtŠ3%€Ňš‚ƒßu š€ tŠ%ƒƒáÚÔš%tš€ t%€ łńš€^tš%€@˘tšu–F­{h ;ą‚ƒé‘! yÓ xh ;ą‚ƒď‘Šěš‚ƒőu š ç˜u šu–އ¤‡ç‚ƒţčÔ†‡x×a€ paĐ‘ Š`)‡{9ą‡{:ąĄÔ +Š ‡{9°*– 7Ó* }ď'šuš‚„ u š ç˜u šu ( |ď'–ůĽšuš‚„u šuš‚„"u šu‘‹ů%‹÷8|&‹"ňđ‹ë8|'‹äšuš‚„/u šuš‚„Cu šuš‚„Iu šuš‚„]u šuš‚„ru šuš‚„zu šu3Š'š‚„Šu Šš‚„u Šš‚„‘u Šք—š‚„˘u šuš‚„¨u 3Š'š‚„Ťu Šš‚„ˇu Šš‚„u Šք˚uŠքÖ2€Q°ŐĎţ–˛›†psš‚„äu š‚„öu šu‘Š‘Š~‘Šz” Šuš‚„ůu šuš‚…u šuš‚…"u šuš‚…6u šuš‚…@u šuš‚…Su šuš‚…gu šuŠօ|ŐZ˙– BUG LOCATION 'PLEASE WRITE DOWN THIS LOCATION AND ANY&SUPPORTING DETAIL"{óRS YOU CAN, AND REPORTT$IT TO THE UCSD SUPPORT STAFF AT YOURREARLIEST CONVENIENCEEţ˙˙<>˙˙˙˙˙(˙# QUIT: D(ISK) OR M(EMORY) UPDATE,, ˙ R(ETURN) H(ELP) E(XIT)) *NEW.MISCINFO'D(ISK) UPDATE PUTS THE CURRENT SETUP ON$ DISK AS THE FILE "NEW.MISCINFO""! WHICH MUST BE CHANGED IN THE FILER TO "SYSTEM.MISCINFO"$M(EMORY) UPDATE CHANGES THE SETUP INN! MEMORY UNTIL THE NEXT SYSTEM= INITIALIZATION"R(ETURN) TAKES YOU BACK INTO SETUPP "‚Ń@IF YOU'RE NOT DONEE(XIT) TERMINATES THIS PROGRAMMDMôţö˙T˙˙  C(ONTINUE) Q(UIT))? OCTAL DECIMAL HEXADECIMALL ASCIII CONTROLL DELţ˙˙? NEW VALUE: ˙DELDOő˙ů˙&ń˙˙˙˙~Ö˙ă˙đ˙˙ ˙•ţR‘˙"INPUT VALUES IN THE DECIMAL RANGE::... IN THE FORMAT BELOW:!->O-{OCTAL}-!!! !!'--DEFAULT----!--->DIGIT--->(CR)"! ! ! ! ! !!"!->H-{HEX}-"T÷--! !->(-)-! !-DIGIT<-!!! ˙!!!->D{DECIMAL}!! OR IF YOUR KEYBOARD CAN GENERATEE%THE VALUE YOU WANT, JUST TYPE THE KEY&AND THEN TYPE CARRIAGE RETURN, OR TYPEE$THE ASCII MNEMONIC FOR THE CHARACTERR C(ONTINUE))THE CORRECT SYNTAX IS :( EXPRESSION ::= EXPRESSION[,EXPRESSION]]( EXPRESšSION ::= NUMBER | NUMBER..NUMBERR& NUMBER ::= 0 | 1 | 2 | ... | 2555!WHERE 0 DENOTES CHR(0). EXAMPLE : 1,5..77(REPRESENTS THE SET CHR(1),CHR(5)..CHR(7))...<>˙˙˙˙˙˙#"vń2P NEW VALUE: WANT TO CHANGE THIS VALUE?? (Y,N,,4@ NOW OCTAL NOW DECIMALNOW HEXADECIMALÖ˙ă˙,đ˙: O(CT) D(EC) H(EX) Q(UIT)DOó˙ř˙î˙ÁPRINTABLE CHARACTERSS SHOWSCALARR SHOWSCALARRCURRENT VALUE IS ALLOWED VALUES ARE:SHOWALL NEW VALUE: NEW VALUE: NAME OF FIELD: DIDN'T FIND NAME OF FIELD: FIELD NAME =  DELţ˙˙{? SHOWSCALARR SHOWSCALARRCURRENT VALUE IS PRINTABLE CHARACTERSS FIELD NAME = #CHANGE: S(INGLE) P(ROMPTED) R(ADIX) L(I#˘#vűěST) H(ELP) Q(UIT))&S(INGLE) ALLOWS YOU TO EXAMINE 1 VALUEE BY NAME'P(ROMPTED) TAKES YOU THROUGH ALL FIELDS(R(ADIX) ALLOWS YOU TO CHANGE THE ASSUMEDD RADIX FROM L(IST) LISTS ALL CURRENT VALUESOCTALDECIMAL HEXADECIMALÖ˙ă˙^đ˙ TO EITHERR DECIMAL OR HEXADECIMALLOCTAL OR HEXADECIMALLOCTAL OR DECIMALLÖ˙ă˙˘đ˙HS˙˙ ˙˙˙"SETUP: C(HANGE T(EACH H(ELP Q(UIT [D6]](C(HANGE) ALLOWS YOU TO CHANGE OR EXAMINEE& THE VARIOUS PIECES OF INFORMATIONN' TH#Mq˛E SYSTEM HAS ABOUT YOUR HARDWARE CONFIGURATIONN$T(EACH) TEACHES YOU HOW TO USE SETUPP&Q(UIT) ALLOWS YOU TO MAKE YOUR CHANGESS( PERMANENT AND TO LEAVE THIS PROGRAMMCT~˙‹˙Ś‚˙†˙„ äĘĽ É Ź0ňG‡•oUp4ôă ëDřsiEŮňĘś {öĄç+^ÓBă  +FILEOPS HEAPOPS EXTRAHEASTRINGOPPASCALIOEXTRAIO SCREENOP C#.‘& PDEBUGIN< €CS w˙ř\ädŞeĹŞeŰîź'şďÜţü\ř\  î 1Đď(ÜţĹ@o†+x*,qŰîź'îďaA€îö0#Žń˙  type %myalpha=packed array [0..7] of char; %procrec=record /procnum:integer; /first:integer; /last:integer; -end; - %symrec=packed record .offset:integer; .symtype:integer; .size:integer; ,end;   function gotprocnum(var info:procrec;varŻ infosize:integer; 4var prochead:integer;var procname:myalpha ) : boolean;   function gotsymoffset(var info:symrec;var infosize,symptr:integer; 6var symname:myalpha 8 ) : boolean; :  function gotlineoffset(var offset,lin#˘­{enum,first,prochead:integer ) : boolean;   function gotcurrentproc(var procnum,prochead:integer; 8var procname:myalpha ! ) : boolean;   implementation Ą#ŠWL%PDEBUGIN w– –&–,–2–8–  Ö#É˙˙#É˙˙$$É˙˙$É˙˙$É˙˙$É˙˙$É˙˙$É˙˙$É˙˙$É˙˙%”%É˙˙%É˙˙%É˙˙%É˙˙%É˙˙%É˙˙%É˙˙%É˙˙&&É˙˙&É˙˙&É˙˙&É˙˙&É˙˙&É˙˙&É˙˙&É˙˙'†'É˙˙'É˙˙'É˙˙'É˙˙'É˙˙'É˙˙'É˙˙'É˙˙˙'†