IMD 1.16: 7/09/2007 11:22:19 UTILITIES UTIL1 2-6-1  Ć€ž’M€€!9€~#Ā&€Œ€Ķ|€įĶ=€Ć‚Ķ|€'Ķ|€$Ķ|€Ķ|€:€G!ÅĶ|€DMĶ|€Ķ|€ė*€Į Ā^€ÉåÅ*€‰€ÕéĮįÉÉÉÉÉÉÉĆHƒ SYSTEM.INTERP Can't find SYSTEM.INTERP ž’M€€Éśƒé~# x±ĀY‚É*9‚##~žŹy‚ž Źy‚>Ć{‚>2‚N§ĀŠ‚#N+ "‚ė! ‚ėĆį„>ĶӅ{ꏚ„*c„"„y2|„Ķg‰Ķ@‰Æ2V„*„Ķy†õŃ*}„"x„*„|µŹæ…ÕńŅĪ…>2z„ė*c„ė}“o|šg"„ŅF…"„>’2V„:{„ęĀF…*m„"x„ͼ‡*x„MDĶz‰:o„OĶp‰:p„OĶu‰:{„ęŹm…Ķ‘‰Ćp…ĶŒ‰§Ź……!z„5ŹĄ…͉§ĀɅĆF…:V„·Ā…*}„ė*c„"}„Ķļ†Ć…:{„ęĀæ…*}„ė*„DM*m„ x±Źæ…~#ò…ÆõĶ@‰ń*…„é> ĆĄ…>ĆĄ…2{„Ńį"…„į"„į"„į"}„Įį"ƒ„ėéį"…„į"}„į"ƒ„Ķg‰*}„ė!͆*a„͆*a„͆*_„͆ÆĆŅės#r#ėÉ`i_„ ~# x±Ā,†*c„MD!͇{2v„:a„GOÆW_¹ŚR†‘Õśe†Ķt†¾ĀS†Ń<ĆM†ŃĶt†w!e„†ĀM†É*k„É:ƒ„ęĀŽ†ė!:v„G‰†:a„O͇z·Ą"s„!_„:ƒ„ęʵ†{¾Š2o„:s„<Ćź†:g„ƒ?оŠ2o„!:i„=śĪ†Ćʆ"q„*s„ėĶt†^*q„:a„O͇,}2p„7É:s„žĄĆ;‰Ķ_‡~+ͼ‡¾Ź”‡#åo&N<øĀµ‡Æįw#~6ÉåÕÅõĶB‰±ŹÖ‡Ķ3‰ĶŪ‡ŚÖ‡!‡„Ķt‡ńĮŃįÉyę*S„T ¾Źü‡ ¾Źˆž’ ¾Źˆ·OÉę’ ~ę@Ā#ˆĶ ˆÆĆ ˆ*Q„é:U„īĆ ˆ:U„ęī2U„7ÉŃį"Q„į"S„ÕÆ2U„‡„!X‡ĶJ‡Ķ@‰ÆÉÆ2U„!‡„Ķœ‡ÆÉͼ‡:U„ęĀcˆ:U„ęĀMˆĶ;‰ÆÉĶˆŹzˆ!‡„Ķi‡Æįq#6ĆŅĆqˆĶ¼‡Ńį"…„įć}ęėéyž’Č ÉĆ@‰ĶO‰§ĀīˆĆS‰Ķ¼‡ĆX‰ĶˆŹ½ˆĶO‰ĶŽˆÅĶO‰ĮĆrˆƵˆĆ@‰ĶO‰§ĀīˆĆG‰Ķ¼‡ĆJ‰ĶˆŹéˆĶO‰ĶŽˆÅĶO‰ĮĆrˆĆįˆ> ÉĆ.‰_„Ķ$†Ķ-‰ÆÉĶˆŃŹ'‰*]„͆ÕĶd‰·Ź‰!ćė͆į͆ÆĆŅ>ĆŅÉƛ‰Ķ›‰OÆÉ Ķ›‰ÆÉĆ5‰>É Ć=‰ÆÉĆ5‰Ć=‰įŃŃćįŃćƉ‰y2,‰ƛ‰ƛ‰ƛ‰!ƛ‰:,‰žŚ=‰>É$Ɠ‰':,‰ž҉‰*Y„éÄÄŁń@ÄĮćĮņš@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ÄÄŁń@ÄĮćĮņń@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ÄÄŁń@ÄĮćĮņņ@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ÄÄŁń@ÄĮćĮņó@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ÄÄŁń@ÄĮćĮņō@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ÄÄŁń@ÄĮćĮņõ@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ÄÄŁń@ÄĮćĮņö@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ ååååååååååååååååUTIL1  BOOTER.CODE`{L  DISKCHANGE.CODE\  DISKSIZE.CODE`{< FINDPARAMS.CODEå< ) YALOE.CODE`{, )6 LIBRARY.CODE Ø2V¢6:SAMPLEGOTO.TEXT:GSCREENTEST.CODEF¢GTSCREENOPS.CODE2å¢Tp DECODE.CODEō ’S¢psCOPYDUPDIR.CODE, swMARKDUPDIR.CODE, w™ PATCH.CODEŖĢčÜ’F¢™£ COMPRESS.CODEåÄń< £Ą XREF.CODE(äō Äń< ĄČRECOVER.G.CODEń\ ČŽ CPMBOOT.CODE Äńq¢Ž KERNEL.CODEō ÄńÕ£'COMMANDIO.CÄBOOTER ODEńÄ£åååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå  ū‰DISKCONVINITSTUF same characteristics..F What is the interleaving ratio of the drives used for the transfer? SOURCE DISK TYPE:DESTINATION DIS K TYPE::Eu Ć€€€€€€€€€€€€€€€€›DISKCONV€€€€€€€€€€€€€€€€G&_īļīļ]XžSTUFF¼22Šŗ‡ šeL’x*ęlL_'šŠX:€_.šÓāéāé]LųSTUFF# 5ø 8YĄÓN-,ĢjĄÓŚ) źŠ0=€Óö0 źˆINITSTUFu†ih⼃€ŪĒqj"ƒ€ŚŌ ķh! Œ"¢€0£iŠ,"Ņ( ²ń#šspš€ spšsp īh! i"€ ° ²Ÿ”Ō”!kšĆBOOTER $•+b„.¬Pš‚€r šb˜r š‚€ r š`ršr 1ŚŌĻ Ó7 p"p°i!ń$š‚€r š rš‚€r štp–ę?īj„ 8"²Ō$8×įĈ8×įÄ8ķ„ Šåh?īj„ 8"²Ō,ˆ ×xįÓ ķ?hŠī$8× Ĉ ×Ä #¢?h8ķ„ ŠĻ–¬„€„„€­¬P†‚1‡€Æ¤€ƒrŠ ‡-‡,p$! ° Ō ¤0–/Fšrš‚€"r šršr‚€.†%‘„5±Õh‚€2†‘„4±ÕU†%×x€€„†×x€€„3†%×xŒ„2†štpš„€„˜t pštpš‚€ t pļh ?ī¼ŚŌ燀ƒ š‚€t p‡€ƒē€€ļ怃ꀀ?ī¼ŚŌܚ‚€/t p‡€ƒē€ļ怃ꀁ;ī¼ŚŌ×xŒ„01²ń1„DŠ0„D†F…D€€Œs„E„C5…F…C†%×xŒ…Cp…Cķ„C…C3Œ…D³p± ŌŚp°Õ“š‚€8r š…Cršr45Ņ"š‚€@r š4rܖ€Æēštpštpš‚€Ct pš‚€Rt pštpštpš‚€Ut pštpštpštpš‚€_t p„=0ŚŌęš‚€wš‚€Qr šr „C4…F…C†×xŒ…Cp…Cķ„C…C2Œ…D³p± ŌŚpŅš‚€[r š…CršrŠ+š‚€dr š…Cīrš‚€sr š4ršt p„ <0ŚŌę=<Ņ'š‚€‘t pƒ€±Ēq€N°„‚štpŠ„‚=ap$a×x„>€€„a×x„a×x„ ±a×x?± a×x;± ŌrŠ+š‚€wr š…Cīrš‚€†r š5ršršrš‚€Šr šr –What unit is the  disk (0,4,5,9..12) ? Drive štpš‚€·t pštpqš‚€Öt p„1?ī¼ŚŌꆀ“‚€ś†‚……€’³…‚ =<± „‚:Œ>?Œī„–’’" not on-lineeBootstrap Copier [A1]]sourcee destinationSectors read: Put destination disk into drive  and type >S What is the interleaving ratio? % What is the sector skew per track? ' What is the first interleaved track? FLOPPY INTERLEAectors written: Error writing logical sector , driveError reading logical sector , drive$Put in system disk and type > MEXTRAHEAPASCALIO (4,5,9..12) ? Are you writing onto the same diskette you are reading from? @< Both source and dest units must have  ”…‚å9²” ÕŽž‘–īštpš‚€ut pš†‚št p…‚…‚šƒ€‡Ś”štp Ōݚtp…‚š€ Ņ‚€upŠp–W„‚‚€ŖuTBARRYYOUĶ—šrpšrpšrpš‚€r pšrpšrpš‚€r pš†rpšrpńšrp…0ŚŌĪ…†‚€Åu„ :³:@³Ÿ”ń’?„ r„‚?ī„‚›„ 8…‚›²Ō†—8×€@5Œu„8ķ„ Šä†€@7Œ?Œu„‘Ōū– and press returnpp°Õך‚€(r pš†rpšrpńšrp…†…īpp„…Ó&šspš‚€Br pš spšrp… ²ž’’DISK WRITE ERROR Track Sector Insert source disk in drive , dest disk in drive Insert source disk in drive DŸ…°”Ԉ…†ppŅ6†€’Ė×…ą†ppÓš‚€Or pšrpŠš‚€[r pšrpŠš‚€gr pšrpšrISK READ ERROR Track Sector !Insert destination disk in drive #Insert system disk and press return5DISKCONpš‚€sr pšr p–DISK SIZE CHANGER [A2]]2 Change directory size on what unit? (4,5,9..12) 2 What is new directoVERT,EXTRAIO,PASCALIO,HEAPOPS,OSUTIL,EXTRAHEAP5DISKCONVERT,EXTRAIO,PASCALIO,HEAPOPS,OSUTIL,EXTRAHEAPĻzKŹ %łEXTRAHEAry size in 512 byte blocks ?  No such block on disk!! DIRECTORY WRITE ERROR DIRECTORY READ ERRORR No such disk on line!PASCALIOEXTRAIO  % Insert system disk and press return EXTRAIO PASCALIO śDISKCONV-Fš‚€t pƒ€ Ē‘„‚šštpŌčštp–’p"€’h aŠŚń#š`t p €!Ņ‘ ƒ€ŚŌ €a£€A¢hŠÕ €!€~¼ŚŌ š sp ¤–ļ„€„‡ŀ‚?ƒh ‡€ƒ²Ō7„€„ ×x‡‡Œ¢?i‡Ņb!׆ ×xĊ b ׆!×xÄ ķhŠĀ†bŀ€–š7īih !²Õ™?īj„3"²Õ‡<…×@>†‚3×x ?Œ¢Œ? 9¢…€’¢Œ†‚3×x¢ppÓQštpš‚€t pš 9¢…€’¢tpš‚€#t pš†‚3×xtpštp=<±…‚ Ō‘3ķ„‹s’ ķh‹a’–štpštp…‚ń8š‚€)t pš=tpš‚€8t pš<tpš€,sp‘:Œ>?Œī„……€’²ń ;…UBARRYYOU £„ Š;…€’£„ …‚Ō„ Š;„ …‚Ō97¢;²ń;9£„Š 97£³ń9„7²ŸÕ;…‚Ōš‚€Ct pš=tp‘…‚ń97£„ 7īh„6 ²Õ߆†—Å€€?īi „3!²Õ‚=††‚3×x×x?9…¢6¢Œ†‚3×x¢ppÓQštpš‚€Rt pš9…¢6¢tpš‚€^t pš†‚3×xtpštp=<±…‚ Ō€€€€€€€€€€€€€€€€‘3ķ„‹x’†€“96¢‘†96¢‘6?Œ5Œ„?īi„ 8!²Ō†8×x…0×@>p05¢„8ķ„ ŠŽ6ķ„‹’…‚Ōš‚€dt pš<tp‘‘…‚Ō97¢„ 9;³…‚ÓRéRé]xųSTUFF#F5dø Č_ĄÓĪ--gĄÓ\*|錊<€Ó21|é €€€€€€€€€€€€€€€€& "1£j!ķiŠČcp ķhвšrpšrp–š‚ƒ”r pš5rpšrp€.jikh #²Ō#†!pbp!5¢i!1³Ō!1£i ķhŠŲšrpšÓRéRé]xųSTUFF#F5eø Š`ĄÓĪ--hĄÓ\*|錊<€Ó21|érp–vš‚ƒ„r pš5rpšrp€.kjlh $²Ō1mi!%²Ō†"p"5¢j"1³Ō"1£j!ķiŠącp ķhŠŹšrpšrp–Zšr…HELPTHES®Cšrpš‚€r pšrpšr pšrp–§+¤-š`€Pr pšr p`§Ó>‡,Ä`§¤+¤*‡*‡+²Ō)`‡*짃€pšrp‘‘†p$†Ė×x„†Ė×x„„1&„5…&²Ō‘ 5ķ„Šńšrpš‚ƒ©r p†‘5±”51³Ÿ”Ōć5²ń‘ 5įŅךrpšŚń¤-‡, ‡,xŒ`‡*ģ§¢€0£Ä‡*ķ¤*ŠŠŠ‡,įĖ,Üš‚€r pšrpš‚€*r pšrpš‚€>r pšrpš‚€Qr pšrpšrp‘1&„2…&²Ō‘2ķ„Šńšrpš‚ƒ»r p†‘21³Ÿ”Ōē2³Ō‘ 2įŅۚrpšrp‘– Press return to continuee‚€cr pšrpš‚€xr pšrpš‚€Šr pšrpš‚€r pšrpš‚€²r pšrpš‚€Är pšrpš‚€Ųr’& This program is intended to help youu&find the fastest interleaving and skeww$arrangement for your disk drives. Iff#y pšrpš‚€ģr pšrpš‚€’r pšrpš‚r pšrpš‚'r pšrp‘–¬š‚1r pšrpš‚Erour drives need some delay after a)DSKSTRT or before a DSKSTOP (i.e. turning"the motor on or off or loading andd%unloading the h pšrpš‚Wr pšrpš‚kr pšrpš‚r pšrpš‚r pšrpš‚£r pšrpš‚¶r pšread), this program may(not operate correctly. If the program iss#running properly, some interleaving'ratios will be much faster pš‚Čr pšrpš‚Ür pšrp‘–hš‚įr pšrpš‚ōr pšrpš‚‚r pšrpš‚‚r pšrthan others.&Dots will be written to the console att%the rate the disk reads complete. The&best interleaving and skew will be thpš‚‚,r pšrpš‚‚?r pšrpš‚‚Rr pšrpš‚‚fr pšrpš‚‚yr pšrp‘–šš‚‚„r pšree&ones for which dots are written to theescreen the fastest.& First you will be shown all possiblee#interleaving ratios in a pš‚‚˜r pšrpš‚‚«r pšrpš‚‚¾r pšrpš‚‚Šr pšrpš‚‚ćr pšrpš‚‚ör pšrpš‚ƒr pšrpš‚ƒr pšrpš‚ƒ/r pšrpš‚ƒCr pšrpš‚ƒVr pšrpš‚ƒir pšrpš‚ƒ|r pš†HELPTHES rpš‚ƒr pšrp–š‚ƒ›r pš2rpšrp€.ji kh #²ŌC†!pbp!2¢i!1³Ō!1£i†!1¢pbp!2¢i !1³Ō!1£i ķhŠøšrpšrp–¤š‚ƒžr pš2rpšrp€.kj lh $²ŌI mi!%²Ō3†"p"2¢j"1³Ō"1£j†"1¢p"2¢j"1³Ō test. After this is finished, youu$will be able to run a longer test onn#the ratios of your choice to aid in&determining exactly€€€€€€€€€€€€€€€€I# which ratio is theefastest..$ Now you will be shown all possiblee$skews in a short test execution. Youu$should watch the scre(ī^ļ^ļ]„žYALOE>83¦†ø NŒŪīĄ++RŽŪīN(ˆļŒ|:€ī$/ˆļen and rememberr#approximately which skew results in%dots being put out the fastest. After%this is finished, you will be able to‡ YALOE Ī%! ²ń jŠ!j–!¤ †"dr°Õć0n10£i4!£h 0²ń <0< !pŠš‚€s šs¤ ‹o0Ōo0ķ„ 0£j&run a longer test on the skews of yourr$choice to aid in determining exactlyywhich is the fastest.& If all ratio and skew tes†"<0"įrj†"såp± " Ō†"tš‚€ s šs&„¤ ŠQ"m'Ō0ī„<0ķ<0%Œp0k%²ń3%īm0’¢„#¢kį<0pl0$¢ķ„%²ń <#ts executedd%at the same speed, then you will have%to guess at the proper values and try"them out by running the diskchangee$pro<0pŠČ†"t< <0!p!0¢„<1Č&„–U š‚€s šēÉń š‚€s šs‚€&uh ³ń}h† ˆ£u„† ču„ i„3!²Ōgram, rebooting, and seeing whichh%accesses the disks the fastest (steps#2 through 4 in the adaptable system'user manual). Start†3×ē˜Ä3ķ„Šģ„„5„„ „ šē"É„ šē,É„šē,É„ šŌv†"ia›˜va‚€'va›&˜va˜t‘Ōš‚€(s šsŁŠ6 your guesses with a$skew of 0 and interleave ratio of 2..'Keep trying larger ratios until you see$a large speed up. Then incremš‚€3s ›.§²ńš›.˜s š€ rš‚€8s šsŠ„<Ț‚€<s šs„„– 70ibwcw#p„†"#įrŅgent thee%skew until the speed increases again.%The speed increase from the skew will%be not be very large so you will haveto ob0’¢1³ń^žį <0ž¢ph<0#’ ¢p#’ ¢ ąķp†"#įrÓbwš‚€Fs šs†"tp0’¢ ¢„Š™01³ń@<110££p<0#pserve it closely..SKEW=SKEW=RATIO==RATIO=="Ratio to test ( to exit) !SKEW to test ( to exit) ԐO¶X†"#įrÓbwš‚€Rs šs†"tpbw†"t!„–䄃€_ĒŽ‡x„ŠŚń,šsš‚€gs š‚€s šsš‡s šsšV$ = PASCALIO ‡x€U°‡x€u° ŌH`‚€‰ė†"`˜t‘››@ė›&‚€’ėŁ`‚€šė†"`˜t†"tŁ›‚€£ė‡x„ŠŚÕf’–šsš‚€¤s šsšsš‚€µs šsš‚€Šs šsš‚€ės šsš‚s šsš‚s šsšsš‚,s šsš‚=s h„3 ²Ō!†ˆ YALOE 3×y˜Óš3sš‚?s 3ķ„ŠŚšsš‚As š5sš‚Ls š1sš‚Qs š51£sšsš‚as š54£sš‚ls short test&execution. You should watch the screenn&and remember approximately which ratioo!results in dots being put out the$fas  „ `­ļ ­²Ō < 0 £pŠ <0 0£p–: ­³Ÿ­ ²Ÿ Ō€#ļ †­×y˜Ņ †­×ē€2w;2ķ§h32£ ;2¢pi!32£°!€d²Ÿ !° Ōš‚Šditor.5Advance Beginning Change Delete Get Insert Jump5Kill List Macro Now 8Quit Read Save Unsave Verifyy Write eXchange ?elpp%Ctrl-X (can) to cancel command input. The macros –‹;č7plš¤‡ē¤‡ē¤‡ēɰ¤ ‡ē+Ém‡ɤ ‡ēÉo‡ēÉn¤ € j„hišbs šsŌ9j"7±!å Õ "ŅšēÉŌ $Ÿ Ō€#ļ †#×y„ †#×x„­²ń2­ī¦‘Ō ¦p23³Ÿl$Ō¦š‚źs šsŠČ „ "„!„$Ōp–› -2ķ„7;2ph ² ²Ÿ”Հ€€ŅlŠ€€l"7°i!Ō‹×"%Ņb3²ń]3ī„*Ō!)Ō š;3§rŠš€%rš;3§rŠ5;3§ Ҥk#‡²Ō š:r#ķkŠīŠš:rš€ rš:r"8Ņ]*a Č;2a p†"a˜tpŅ ‘ŌpŠY†"¤„a˜€(v„‚ń€-v„˜tpŅ ‘ŌpŠ(š‚ōs ša˜s š‚ųs šspŠŌš‚ps šsŠ!š(rš'ršsš(rš&r3²Ÿ;3§9±”Ō3ī„Šī3Ó3ķ„Šš€*r‹Œ"€ ³ńF"ƒsŚŌ);3"Č3ķ„!Ō š€$rŠš‚‚s šsp2 ¢„–-ļ a­ļ ­²Ō0!£hŠ!0£h5 £„41²Ō5„š‚‚ s šsp­²Ō Š:! Š5;2ķ§ia‘!ƒ‚ZŚopААААРŠ ŠւbŠ! 2ķ„‹Ęž–”†"†N2§l;2 ¢§7Ó ķhŠó €f³Ōš‚„s šsp;2„9 p„9 Če Čjk­ī¦­²" Ōš"Ōš„9˜s š‚¬s šsp!³ń0ķ„Š0 ¢īįt‘š€*r‘ ‘Ōń†"t–not enough spaceenot enough spaceeYALOE:: - ? for details:Lost workfile sourc„2 ¢„ „–k h2ķ„32£7;2pj1"¢i!5²ńš‚²s šsh51£j5i!4²ńš‚Ås šs5„<0<0"¢40"¢£p;2<0"p1"¢„0"¢„"„ Ōee Workfile read inNo workfile to readOutput file error: HelpOutput file error. HELP! $ $.Quit: U(pdate work fip2"¢„–A ­Ņ†ļ Š0­¢„0³Ÿ­³Ÿ”Ō„Š0³Ÿ01²Ÿ Ō1„–~ `­ļ ­²Ō<0< 10£ķp10 ££„00 ££„Š< <01 £ķp1 0££„–le, E(xit without update,, R(eturn to editorr*SYSTEM.WRK.TEXTTSYSTEM.WRK.TEXT*SYSTEM.WRK.CODEE!Yet Another Line Oriented E - IV0LIBRA g„5˜€X” g˜‘Š+† "‡av"Óog‚€B” g„5˜€X” g˜‘Šn‡b"¢¤b‡a"¢¤a‡`"£¤`‡`°&å Ō‚&¤caw–b /†€¢Å.-`‘fɊ/bÅŠ /„ Å ŠրG–>¦­­h¦­ ²Ō ­­ˆ‘ˆ ÉÓ­ķ¦­ķ¦ŠŚ–V…`å‡ Õ ‡Ņ…kh:iŠ…hh9i…a…`å”Ō …f¢ī¤j"‡²Ō "‘r"ķjŠļ€€€€€€€€€€€€€€€€ė2  #Ҥ #…f…eŒ³Ÿ‡²Ÿ”ԇ‡d‘„ ÉÓ#ķkŠ×k‡j"!²#…f…eŒ³Ÿ”Վ‡"d‘„ ÉÓz#…fŒ #…f¢‘š"u„ Ɋ4š‚€Mu Š*š(e,ÓŲļŲļh°žSCRTST|8īb ĄÅĄŽj0\/b ĄÓ¢,š‚Ø@€Ó ž‚€Ou Šš‚€Qu Šš‚€Su ŠրUšfu š%u#ķk‡Ņ "„q‡„rŠ"„o‡„p"ķj‹c’–×…a…`å”Ō…h…h…f¢ījh "²Ō ‘r ķhŠš…b, IV0LIBRA›3…aŌ'&tŠšu`rh`r–c)`„*¬P …g‘švš‚€u š`˜u rs–+P‡Ņ1¤Š0¤¤‡„c…sjh "²Ō …c|„c ķhŠń…si…c˜±!…f…dŒ³Ÿ”Ō"!…f Œ…h!…f¢‘š…cu …c|„c!ķiŠĻ…c˜Ņ„sŠ!„s– cg«c†€¢¹ń4…bh ˜°j"ńc ¹j"ń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‡ēp‡×xćē‡瀀‡×Ňē ‡瀐‡×ÅŠ‡ē†€¢Å‡ēćēŹ–Q(ķhj9³Ō 9ķ ³ŸjŠj"Ōq0˜Ņ †w0k%insertion truncated, not enough space'save' area deleted..Error in macro definitionILLEGAL MACRO...Try again macro haltedd.Š0k#x˜Ó#xkŠö#w#xk#˜Ä9ķ¢„ #l$ēm$ēpni!&²Ō%ē`!׏%ē !׆€¢Å!ķiŠą$ēÄ$ē€Ł‚€ėM9ķ ³Õp’0k l„7$²Ō #xk7ķ„TEXTFile:  is in error. Not readFile name error..Not enough room to save innnot enough spacee.TEXT.TEXTFile:  is in Šņ(ķ¤ #l'm$ē(×%Å$ē!(×%ēÅ$ēa(×%ēÅ$ēq(×%Ä$瀁(×%ēÅ$瀑(×%ē Å– n!xh!`§Ä``§Č`!xČ! Ė`‡Ł¤error. Write not done. Illegal title’(€ €ž’’ž’’ ?z’”’›’ ’¦’Ę’Ŗ’Ŗ’Ę’®’²’¶’ŗ’¤‡‡²Ōy`‡×¤‡‡ē„a‡×„a‡×ɤ„q‡×„€‡×‡ŚŌ)¤¤‡‡²Ō„€‘‡×‡×‡ķ¤Šß‡ķ¾’Ā’Ę’Ę’Ė’ć’ē’Ę’ė’ļ’ó’÷’Ę’Ę’”’›’ ’¦’Ę’Ŗ’Ŗ’Ę’®’²’¶’ŗ’¾’Ā’Ę’Ę’Ė’ć’ē’Ę’ė’ļ’ó’÷’Ę’Ę’¬£zPóŸUA#Ē:r ŁČ‚ō¤‹~’„„€Ń‡`Ł–õ$°Õ•1h ˜Ó i xha” Šī˜„jį„ ” ō³ń ‚€‘p`w1˜Ņ „Š! Ä i ˜Ä†6 ē"vÓ‚ž-“ ¼HEAPOPS STRINGOPEXTRAHEAFILEOPS PASCALIOEXTRAIO  €‘:ķ¢„ ꁱ ꁁ±”Ō‚€"‘ ęÓ ē ę€Ńj"ҊŠ:0ik!˜Ó2!x˜Ó2j2ķ„Šj!ē€Ń"Ć!ē#vÓ‚€)‘"k!xiŠŹ– į„ į„ ˜„˜„–Ü]„5„^¬Paw” m%³ń}m%£k#³ńkŠ #€@³Ō€?k`#Œ” Ņ ‚€7‘‹‡`#²ń#jЇ`jn†6 "‡bv"Óog‚€=”  „„Å„„Ő„!‡%‘ „!˜‘„ÉŚŌ„˜‘‡%f‘1ē€Ł§Ó 0ē€Ł1ē€ŁėM¤'‡&„ ‡%„ Š‚€”‘Š‚€›‘–& -¤.…l‘†u‚€«ėPš†u˜…r³Ÿ<…q²Ÿ Ō<‘ ;‘ …i‘š‚ōu š2uš‚üu Š‚‚‘Šc…€¦Š[…_å„_…m‘š‚‚u …_ń š‚‚u š‚‚u Š-‘Š)‘u †u§…lr†€§r„€§†€§rš†u€Pu šu †u§Ņp„^†6” †6†u˜” pÓ†6jb†u˜€P” b‚€²€U” b˜” pi!Ó‚€µ‘!°ÕŌ‘ Š…qķ‘ Š…oķ‘ Š …p‘ Šւ#…€¦ƒ‚ZŚÕjž…€¦€QŅn…m‘š‚‚`u …mr†€§r„€§†€§rš†u€Pu šu †u§Ó 0ē€Ł†uėM‘k’‘į„ ¤.„^–-¹ š`u ƒ€¼ŚŌ €a£€A¢h aŠŚŌą ¤–^ ¤ š‚€Äu )Ōc…€¦Čš…€¦viŠi !£hšbu c!"Čc!§ Ņc!€ Čc…i‘š‚‚eu š2uš‚‚mu †” †” †6” –ERROR: no mem room for seg dicttreading segment dictionaryy bad s!§„€¦ca`rń…€¦ƒ€ÉŚń!īi ķhŠ š…€¦v…€¦€ ° ³Ÿ Ō³*Ä!£¤ h (²Ō* *xŒc §¢€0£Ä ķhŠé!²Ÿ¤ – Į šę%išę&hšēÉ„ašēeg dicttwriting segment dictionaryy No mem roomreading writing ī’ī’õ’õ’ p  u  s  a É’Ö’ć’š’interface section cÉ„`!£„f ī„e ī „d„n…nķ„m…mķ„l…lķ„k…k…f¢„j…jķ„i…iķ„h…h…f¢„g–• į„rį„qį„pį„oį„ į„ „sr …n‘š‚€Ķu š‚€Ņode segmenttwriting linker inforeading linker inforeading seg ref listtreading segref list empty segmentdestination slot alu …j‘†u‚€ŲėPš†u˜u †u§…jr†€§r„€§†€§rš†u€Pu šu †u§Ņp†u‚€ßčŌ†u‚€ąėP††u˜” p„6Ó‚€č‘6҈†€¢‚€ļready in use Input file? .code no such fileež’’slot #? ’ Library: [IV.0 z10]] Output file? **SYSTEM.LÅ„„_‘ ‘Ō‘ – '¤)‡(„‘„ÉÓT¤)„‡(‘ „†€¢¹ń?9¤'i!‡'²Ō4!b‘„ ɄÉŅd„¹Ō„#!‘ „#„¹Ō¤)Š!ķiIBRARY no such filee Copy from slot ##?  @ Yļ’ŠĘ–(M f„ «¤*Ä:m„5%²Ō0a5‘ af¹Ō*Äf˜‘5ļŌ5į‘ńp¤5ķ„ŠĖ– ž…€¦‹”„¤5Ōx/Ō€Y¤ŠK5…r³Ÿ5…q²Ÿ Ō5‘ō’ą’Copy what compilation unit? ž’’ comp unit already in output |h"Ōé ˜Ņ„s`w ē…bÄ „b…bcÅ– f¦hˆÉ°…_”­±”Ō(­ ¦­­­‚€[‘ Ō­¦­­¢¦hŠh–²iˆÉŚŌ­hŠh …m‘š‚€óu š5uš‚€üu rƒ€žĒ‘¤š‡v‡Š5į‘ńpŠ:„Š 5Šց5ķ„5:²ŸÕw’‹:¤„5‡²Ō5Ō 5­ ¢€’¢¦­­­‚€d‘ Ō­¦­­¢¦­¦i–7¤ˆÉŌo¤†6`įvŅO†`­vŅ8­ķ¦¤¤¤¤‡‡į‘ńp5ķ„Šį‹ź…m‘š‚@u š†u€Pu šu †u§²ŸÕœ†€ž†€¢Å†u§²ń¤„7‡²Ō†€ž7ī†u7§Č7ķ„ŠźŠ†u§¤„7‡²Ō†€ž7Ō`‡×|Ҥ‡ķ¤ŠąŠ‚€k‘Š‚€u‘‡Ō“Ф–xˆ­§h­ķ¦­Ņ&¦­ķ¦†ˆ­vÓ ‚€‘p–ö ˆu7§Č7ķ„Šź¤„7‡²Ō$†€ž7§ƒOŚŌ†€ž7†€ž7§€a£€A¢Č7ķ„ŠÖ†€ž˜„ń.Ō ‚W‘Š‚h‘Š$¤…bh ˜Ó ˜„Ō¤ |hŠė‡ŌįŠցu– ÉŚŌm­²ńg­­¢j­Œh†g"vŅ@­ī¤ k#‡ ²Ō-¤ i!‡ ²Ō „!Č!ķiŠģii„˜‘#ķkŠĢŠ‚€Š‘– ć $¤(††:į” †6†bį” ‘˜„b„€­†€­‚ˆ€2” †€­‚¢€d” †€­‚¼€r” †€­‚Ä€|” †€­˜įį…nƒŹĒ€,r„€¦…€¦ƒŠŚń š'‡&„‘2m‡%įŅ3‡&f‘„ ÉÓ!į¤%l$f‘„ ÉŅ$¤%$ķl‡%įÓēŠ‡&¤%‡%f‘„ ɰՉ„ÉÓxŌqŌlŌg%„"n!o ¤„ „Å„ „Å…€¦v…m‘r …g‘r…€¦ƒŌŚÕ¢…^Քį„ …€¦ƒŚŚŌB…m‘š‚Žu †‘Ō(5:²Ōš‚įu †‘Ō54‘Ԋ‚ę‘Š‘;įÓ9<   no such slot in source fileOutput file is blocks longgsource file not opennInterface sections will not be copied Tõ’ć’×’ģ’Ó’¢’Notice? (*The following is a sample gotoxy procedure for the VT-52*)  (*$U-*)  PROGRAM DUMMY;  PROCEDURE FGOTOXY(X,Y:INTEGER);  BEGIOutput file is blocks longgƒM©±ć_Jō>Ūµ’~n-…”pż+9«4 FILEOPS STRINGOP EXTRAHEA HEAPOPS N "IF X<0 THEN X:=0; "IF X>79 THEN X:=79; "IF Y<0 THEN Y:=0; "IF Y>23 THEN Y:=23; "WRITE (CHR(27),'Y',CHR(Y+32),CHR(X+32));EXTRAIO PASCALIOGOTOXY COMMANDISCREENOP   END;  BEGIN  END. O^© SCREENDI   fileeno such compilation unittCS’īžÜ’\ž2Library: N(ew, 0-9(slot-to-slot, E(very, S(elect, 2C(omp-unit, F(ill, I(nput, O(utput, T(ext, R(efs, A(bort, Q(uit [IV.0 z10]]’jĀ’’h’From  To  ķs ķr ķhŠå r r ‚‚ś‘‚ƒ‘–,–‰r rih !²Ō š€*u ķhŠīš€>u0ih !²Ō š€$u ķhŠīrr‚ƒ3‘‚ƒQntered.. Error File """ closed with  errors..@@@@’%integer overflow in message procedure . €€€€€€€€€€€€€€€€—‘‚ƒ\‘–ār r1jh "²Ōš†/0 1°£ķs 1³ń ķr ķhŠÜ r r ‚ƒr‘‚ƒ‘‚ƒ­‘‚ƒĮ‘–śr ‚ƒŌ‘r ‚ƒņ‘–Y&·&_ššh°žSCRTST‚2OØBõ½’ łÅ’šfņ&:š‚®:€_&.r ‚„‘rr‚„‘‚„3‘rr‚„J‘rr ‚„_‘rr‚„s‘‚„ˆ‘rr‚„œ‘–‡r š†/0ķs ‚„°‘1rš uØ SCREENDI-Œr†/€%pš‚€s šsš‚€s šsš‚€/s š‚€Ks šsšs†€Ær†€éɀ’Ė„†€éɀ‚„Ź‘–4„€„€-pc€+pj"0²ÕŠr "h" ¢²"0²”Ō>" £ķr"²ń šc"s "ķ0²Ōš€<u0"£i!²ń š„€„!s "ķjŠ·r "¤’Ė„†€źÉ„–Īš‚€Qs š†€Ps šs †k†˜tp°†§° ŌĻ„†§±„–Qr šsš‚€ms šs2Ōc†ks†k‚€€s †i!‡²Ōšuš!€ ¢ušs!ķiŠŽ‚„ć‘‚„ž‘‹p’– d„<„g¬Pr kc‚…vc„<˜€avc‚…"€hvc˜‘šˆs šsŌ ¦ˆrjk4s†k‚€Œs †ks†ktš‚€—s š†˜s š‚€žs š4sš‚€¦s šs–€`„€¬’2Ō 4턆k4s†k€ u†k`˜s †ks"‡f°‡f ±‡f °­‡e°” ”i‡fŅ"°"° i„<‚…&čŌ ­ °"° i!ńO‚…+‘‚…;‘šˆs ­ƒ…SŚŌķ­ƒ…[Śh Ō!kc‚…bvc„<˜€_vc‚…j€–€‚«*a„+¬Pš`s ƒ€«ŚŌš ƒ€³ŚŌa˜‘–,/iˆ#xģ§h ƒ€ŗŚŌ>! Œ ¢€0£i!€’²ń(š‚€¾s š‚€Ńs š#xsšsp##xovc˜‘ ! Õ5’–h€‚…s‚…x‚…~‚…„ ‚…Š‚…”‚…™‚…›‚… ‚…¤ ‚…؝ ‚…Ŗ ķĊ "Óš‚€Ös š ušsp "Ҍ##xķÄ!l–…e„€†¬’le§k$#²ŌV#$£ķ€|e$ģp$¢j"#²ńe$ģ#$£ķp#ķlŠ-e$ģ"$£pe"ģ§€|Ņ–Z ©„€„€Ŗ¬P‚…Ɲ‘­ƒ…ĮŚŌ š­uŠš‚…ɝs š­sš€)uh`‚…Ģv`„€˜€Qv`˜‘‚…Ķ‘šˆs ­ƒ…äŚŌķ­ƒ…ģŚ"ķld€ id€|h! rŠ"ķlŠ„–€‡»š‚€ķs šs‚ ‘–ī0­1°£h¦­ ³Ō­­rš€A­¢u­ī¦Šß–_r r0ji!"Ō6„€‚…óėP„€ģ­Ȉh`ˆ˜€’v`„€˜€’v`ė’­퀒˦rrrr r r­¢­£r–€«Ļ r ‚…ō‘‚†‘&€ Ņ‚†‘&%²Ōš€A!¢u!ķiŠź1jh "³Ō īhŠō‚#‘‚?‘‚S‘h h 1rš€ 0u1r‚i‘‚|‘–t­­rš€*u–Qr ‚lj"$²Ō š"u"ķjŠļr&jšas ar Ó ‚†3Š"!Ņš"u"퀒ĖjŠ‚†J"%²ńŹ– `‚†Kė’€ €O3ń€P€`€{€~Š€P€~`§²ń‘‚®‘r 1kj"#²Ō šs"ķjŠń0£kj"#²Ō š€ u"ķjŠīš€>u0ī1r‚Å‘‚ć‘‚ķ‘r rkh #²Ō šs ķhŠń‚‚ ‘ h ki!¤€„€‚†L€%v„€`˜€’v„€˜‘–R †k†‚—įt‘‘‘ ‘‘ ‘‘‘‘‘‘‘‘‘‘‘†kt–*Screen Control Diagnostic Program#²Ō !ķiŠō i kh #²Ō ķhŠōh ki!#²Ō !ķiŠōi kh #²Ō ķhŠō‚‚‘‚‚4‘ –r ‚‚G‘‚‚a‘‚‚{‘r ‚‚‘‚‚¦‘– IV.0.BB-Copyright (c) 1981, SofTech Microsystems Inc.7Answer all verification questions with a 'Y' ('y') or 'N' ('n')..7WhaČd„<„e¬Pr ‡grš†/0ķs ‡h‡gr‡gr ‚‚Į‘h`‚‚ם€%v`„<˜€uv`˜‘–h%€- ‚‚ź ‚‚ī0‚‚ņr r1ījh "²Ōš†/0t file should errors be logged in? ( for none) $Done with Screen Control Diagnosticss***** End Diagnostic;  errors encou  sing chars) ??1test_clr_line: Clearing one line affected another;|0 0|Is the line below a series of stars immed. followed by a keys: Can't type these: B°ź F/’óĒ˜•Bf+²`y¼QŲĆ«iH STRINGOPEXTRAIO FILEOPS PASCALIOSCREENright-arrow ('>')?+test_erase_eol: sc_erase_to_eol didn't work9|0 0|Are there five full lines of '%'s followed by a line:|0 1| OP with just five '%'s (and maybe a stray character inn'|0 2| the extreme lower-right corner)?$test_etoeos: sc_eras_eos didn't wor V’SCREENOPSEGSCINI kk;|0 0|Is the cursor at the upper-left corner (over the 'I')? test_home: cursor didn't go homee4|15 15|*|0 0|Is the cursor to t index=,illegal character in message procedure. ch==9* Is this sentence surrounded by two asterisks (stars). *0test_basic: not ahe right of the star??)test_single_vectors: sc_right didn't work,|0 0|Is the cursor to the left of the star??(test_single_vectoll characters being written outt6|0 0|Are all of the below lines the same (except for aa'|0 1|missing char in the lower right) ?rs: sc_left didn't workk'|0 0|Is the cursor just below the star?(test_single_vectors: sc_down didn't workk'|0 0|Is the cursor ju*exhaustive_gotoxy_check: first pass not okk$Are all of the above lines the same??'exhaustive_gotoxy_check: top line error;|0 0|st above the star?&test_single_vectors: sc_up didn't workk3|0 1|Is this the top (and only) line of the screen?1test_scroll: sc_dDoes this message also start at the upper-left corner?,test_gotoxy: sc_goto_xy(0,0) did not go homee:*|0 0|Is there a '>' immed.own at bottom line didn't scroll4|0 0|Are all the lines below a '<' followed by '-'s??4test_DLE_expansion: expansion not happeni followed by a '*' in the lowerr|0 1|right corner??:test_gotoxy: sc_goto_xy(screenwidth-1,screenheight) not okk-------->|9 9||ng properlyyPlease press the  key. line feed|0 5|Key typed is not correct...|0 6|Do you wish to try typing this key again??@|5 0|Does the box have 10 stars per side and start at the arrow??$test_gotoxy: box not correctly drawnn3|0 10|Is the screen bla@@@@test_keyboard:  key not correcttup-arroww down-arroww left-arroww right-arroweditor accept (etnk (except for this sentence3|0 11|and (maybe) the lower-right hand character) ?#test_clr_screen: screen not cleared1Does this mx)line dellDC1 backspaceescapeereturnntab line feed"|4 7|Bad character. You typed a ''’’’’’’’’’’’chr(('-|4 9|Do youessage start at the upper-left corner?4test_clr_screen: cursor not left at (0,0) afterwardss*|0 0|Is this the only thing on the  wish to try this character again?@@@@ 8Please type in the following characters|2 1|in the EXACTT orscreen??%test_clr_line: didn't clear enough - (45,12)(0,10))(0,Screenwidth)>|0 0|Are there two blocks of "%"s (no gaps or misder shown:|4 4||.|2 2|Note: The first character is a space|4 4||,,|4 8|which is interpreted as a special key..%check_normal_  ring[255]; $sc_scrn_command = (sc_whome, sc_eras_s, sc_erase_eol, sc_clear_lne, 7sc_clear_scn, sc_up_cursor, sc_down_cursor, ):boolean; "function sc_map_crt_command(var k_ch:char):sc_key_command; "function sc_prompt(line :sc_long_string; x_cursor,y_7sc_left_cursor, sc_right_cursor); 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:integer) 9:boolean; "function space_wait(flush:boolean):boolean; "procedure sc_init; $  implementation $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_choice = (sc_get, sc_give); $sc_window = packed array [0..0] of char; $sc_tx_port = record 8row, col, { screen relative} 8height, width, { size of txport (zero based)€€€€€€€€€€€€€€€€”SCREENOP} 8cur_x, cur_y : integer; E{cursor positions relative to the txport } 6end; 4 "procedure sc_use_info(do_what:sc_choice; v&µ&_€ļ€ļh,ž4.0D™¼„2] œLŗĄšl*®) œL_ņ&Ŗļ‚°:€_Š-ar 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:i  const $sc_fill_len = 11; $sc_eol = 13;   type $sc_chset = set of char; $sc_misc_rec = packed record 8heinteger); "procedure sc_left; "procedure sc_right; "procedure sc_up; "procedure sc_down; "procedure sc_getc_ch(var ch:char; ght, width : 0..255; 8can_break, slow, xy_crt, lc_crt, 8can_upscroll, can_downscroll : boolean; 6end; $sc_date_rec = pacreturn_on_match:sc_chset); "procedure sc_clr_screen; "procedure sc_clr_line (y:integer); "procedure sc_home; "procedure sc_eked record 8month : 0..12; 8day : 0..31; 8year : 0..99; 6end; $sc_info_type = packed record 8sc_version : string; 8ras_eos (x,line:integer); "procedure sc_goto_xy(x, line:integer); "procedure sc_clr_cur_line; "function sc_find_x:integer; sc_date : sc_date_rec; 8spec_char : sc_chset; {Characters not to echo} 8misc_info : sc_misc_rec; 6end; $sc_long_string = st"function sc_find_y:integer; "function sc_scrn_has(what:sc_scrn_command):boolean; "function sc_has_key(what:sc_key_command  #ēl$ɐ$ēɐ$ēɐ$ēɐ$ēɐ$ēɐ$ēɐ$ēɐ #ē%l$ēÉ $ēɐ$ēÉ $ēɇ‡‘*ēÉńšu'i#²ŌnŠc$'£n&€ „€Œ'p¤ &(£n'(¢o&#²Ÿh Ō#£#ᇁ „€Œ'#¢£p¢n&²Ō '$'£‡ „€Œ'pķo!'ŅnŠįn& $ēÉ $ēɐ$ēɐ$ēɐ$ēÉ †Qē§Ņ†Jl†G‚€ė$ēŲÉŌ†G$xȊ†GȆG$ē§Č$ē§Ņ†Gm³Ō„€Œ%‘%Óš€ t„€Œ'&‘'&¢$³ń š‚€ u „€Œ$"‘'&o‡!³Ō‡!‡ ‘‡ ń„ „Šƒ€ŪĒ‘ )€?±Õ ’)¤$–#Ā'&x§h¤ je†G˜se‚€se†G˜ seė†fē*†fē*Š ā¼ŻĒŽ†YȆA p†A#ē"ÉȆA§ ²ń†A Ȇ`k#ēÄ#ēÄ#ē†fē:ÉÄ#ē†fē:ÉÄ#ēÄ#ĆZ†`†Jk`‘Ņ\‘å†fē;É Ōš‚€u šuŠ1&xīli!$³Ō'!§€ ³Ō š†G˜u !īiŠå‘Ō ’ၒį‘&x£j¤ ŠP`‘ŚŌE¤ &x²ń:įj‘Åq–   ]M8-! hń € ³ń š€_tŠš tŠ'&xī§€ ³Ō ‘š€ t‘Šj&&x"¢Ä%%x"£Ä–!Ōp"š9ēĚ‚€u šēÉń š‚€u š`u šē,É⼃€#ŪŚŌåšu € ±j– –ž’’:]? €> to continuee»ŖD5 ćzUSCREENOPr–6"x!³ń"!Ċ "x ²ń" Ėe†Jh ē!ŲÉŌš xtš ē!§tš†A˜u –ƒ†`†Z¹ !‘”h Ō!‘ĘqlPvsdH<ŽśīįŌ’`RGOTOXY PASCALIOEXTRAIO STRINGOP  åj–Ÿ!"±h†`†Z¹  Ō#‘ l–»†fh"Ņ!†fÅ<Іf!Å<–Ō!Ņ †ZÅŠ†Z Å–ކZyh–č†Zxh–†Zhb z‘a {‘†fē;ÉŌ |"¢ }!¢vŠšu ē"Ä !Ė£#’į°i†fē;ÉŌm†Zj!ń$#‘"z"|¢†fē:ɰ‘”Ō‘ŠJd"z‘c"{‘†Y"z$£ķ€ ¢Č#"}¢†fē:ɰ! Ō †Y"z$£€ ¢Čš†Yu !ŌšuŠ$#‘–½†Zh y‘Ō ē yīĖŲ†Zh y z‘Ō ē yķĖļ†Zh x‘Ō xīˆZh x {‘ µ IVMDCODEIVDCODE Ō xķˆJē §±i–'†Qē §±i–s†Qj#x"x°"x±”Ō iš#u Ši†#xŲÉh Ó!å"ē ŲÉ”!"ē ŲÉå” Ō h l–‹‘ ‘ ‘SEGSCINI…=†Jē ŲÉń†fē*†fē*ІJē §ā¼ŪĒŽ–U†Jē "ȆJē Ų!Ź–l"­ē$!ŲÉ ļ ļ–•†Qē ŲÉń†fēŌ‘ Šp"–œ‘Ō!‘–Ć‘‘ Ō’ᑠБԁ’į‘ ‘–į‘Ō‘Š †Zh ēÄ Ä–#"‘‘Ō%†fē;ÉŌ#"‘"*†fē*ІQē §ā¼ŪĒŽ–µ†"Ų ʆQē "ȆQē Ų!Ź–Ģ"­ē/!ŲÉ ļ ļ– ›ap!k€’lh $²Ō † Ų Ź ķhŠī†Q#ē-ÉĆJ#ķ†Z{ih !²Ō ‘ ķhŠó#"‘–Pš‡u šuŌ‡ ćxƒ€ŚŌ ‡‡x€ £Ä‡x`ŠŚŌĪ–q€‡€ƒ‡€‚`‡€p`‡€Čš`˜u –€ƒˆ! ¢i!­³ēÉĆfē)›DÅ#ēl†fē:m%#ę%īŹ%#ę&īŹ%ēŹ%ēŹ%ē$ÉŹ%ē$ÉŹ%ē$ÉŹ%ēʆfē*ā¼#ē-Éā¼Ū#ēÉā¼Ū ā¼Ūā¼ŪĒŽŌ­ķi!j–ī „€Œ„"¬’†fē:¤ ¤ ‚€ „€Œ˜sm%„€Œ§ķ%£€[„€Œ%p¢l‚€ „€Œ˜„ $„€Œ§$£ķs„ ˜sj%ķo*ēÉŌkŠ †Zzī%"¢£k‡’įÓ €€7  Š{­‚€aÅŠq­‚€eÅŠg­‚€iÅŠ]­‚€mÅŠS­‚€qÅŠI­‚€uÅŠ?­‚€yÅŠ5­‚€}ÅŠ+­‚€ÅŠ!­‚€…ÅŠ­‚€‰ÅŠ ­‚€ÅŠր‘–7Copyright (c) 1981 SofTech Microsystems. Regents of UC.‹­‹­‚€¶Å‹w­‚€ŗÅ‹l­‚€¾Å‹a­‚€ĀÅ‹V­‚€ĘÅ‹K­‚€ŹÅ‹@­‚€ĪÅ‹5­‚€ŅÅ‹*­‚€ÖÅ‹­‚€ŚÅ‹­‚€ŽÅ‹ “IVMDCODE™6"i`aɀ’ĖŹ`aɀ’ĖŹ k–b†8٤i!‡²Ōb!€’Ė×b!€’Ė×x‘Ä!ķiŠß€`€¤i!‡²Ōb!€’Ė× ­‚€āÅ‹ž­‚€ęŋ󭂀źÅ‹č­‚€īŋݭ‚€ņŋҭ‚€öŋǭ‚€śÅ‹¼­‚€žÅ‹±­‚Å‹¦­‚Å‹›­‚ Å‹­‚b!€’Ė×x‘Ä!ķiŠßb­p­¤‡ē€Š‡ꀩ‘Ĥi!‡²ŌY‡ē`!Ė×ÉŚŌA‡瀐!Ėפ‡‡x‘ćē‡y‘ćē‡Å‹…­‚ÅŠ{­‚ÅŠq­‚ÅŠg­‚ÅŠ]­‚"ÅŠS­‚&ÅŠI­‚*ÅŠ?­‚.ÅŠ5­‚2ÅŠ+­‚6ÅŠ!­‚:ÅŠ­‚>ÅŠ ­z‘ćē‡{‘Ä!ķiŠ –~įk"h†3 Ė×x³ŌJ†3 Ė×x…)Ó††8†3 Ė×xrÓp†3 Ė×x„)†8!p!ꀒӐ"k–‚BÅŠցF– ­‹­‚lÅ‹ū­‚pŋ𭂁tŋ孂xŋڭ‚|ŋϭ‚€Å‹Ä­‚„Å‹¹­‚ˆÅ‹®­‚ŒÅ‹£­‚ÅĀįjį„+„1…0!Ó!€Oˆ‚8‘„+Š!„+…+³Ō…)„0…+j`‘°„2–jV„.„W¬P†s†„.˜spÓ†jb„.˜€Ptb‚€€Utb˜s†3‹˜­‚”Å‹­‚˜Å‹‚­‚œÅ‹w­‚ Å‹l­‚¤Å‹a­‚ØÅ‹V­‚¬Å‹K­‚°Å‹@­‚“Å‹5­‚øÅ‹*­‚¼Å‹­ €’ppŅJih††‚8 rŅ+†3!Ė× Ƃ8ꀒÓ †‚8ꀩ‘hІ‚8ꀩh!ķiŠh °!²Ÿ Ōŗp¤Yį„0į„+„1į„)–X• ¤ …+³Õ†‚8ē`‚ĄÅ‹­‚ÄÅ‹ ­‚ČÅ‹ž­‚Ģŋ󭂁ŠÅ‹č­‚Ōŋݭ‚Ųŋҭ‚Üŋǭ‚ąÅ‹¼­‚äÅ‹±­‚čÅ‹¦­‚ģÅ‹…+Ė×ÉŚÕg‘m%g‘h'Õó„ p ¤ l$‡ ²Ō%‡ $€’Ė$€’ĖȄ $€’Ė×%$£g‘Ä$ķlŠŌj’ik" ¤ l$‡ ²Ō/„ $€’Ė×x!³Ÿ„›­‚šÅ‹­‚ōÅ‹…­‚ųÅŠ{­‚üÅŠq­‚‚ÅŠg­‚‚ÅŠ]­‚‚ÅŠS­‚‚ ÅŠI­‚‚ÅŠ?­‚‚ÅŠ5­‚‚ÅŠ+­‚‚ÅŠ!­‚‚ $€’Ė×x²Ÿ”Ō „ $€’Ė×xi$k$ķlŠŹ#²ńQ#‡ "€’˧ÓB‡ #€’˧n‡ #€’ˇ "€’˧€’ĖȄ #€’Ėׄ "€’Ė×xだ"€’Ė&€’ĖČ"ķj#°" ²Ÿ Õ ÅŠ­‚‚$ÅŠ ­‚‚(ÅŠւ,– ŗ!€¢²ŌŠ !€Ę²ŌŠ– 6­h…,’²ń0…/ķ„/††8…/rpÓ ēŹ ē Ź„1p„,†8…,]’‡ €’Ė"ĖČ ¤ – |& p¤ …+³ÕІ‚8ē`…+Ė×ÉŚÕød‘k#d‘h$Õ”'²Ÿ' ²”Ց&m#'£d‘j"²Ÿ"#³Ÿ”Ōv"ķŒ„-†‚8…+’˧€’Ėi ē ęˆ8…,’˧€’ĖČ ē ęķą,ķ„,….ķ„.– cļh €²ńa €”€’ĖŹaļ€’ĖŹ!jŠ j– ‚`ļ€’ĖŹ`ļ€’ĖŹĖ×x…-¢„/…-„,„.%ē…/Ä%ē…,Ä%ē"ķÄ%"īd‘Ä%x""¢³ń%""¢Ä%ē"d‘Ɔ8…/rpҤ „1Ф Ф Ф Ф Ф –ž i– Č#p…1°Õ3#i!ē ….Ä!ē …-….¢Ä!琀’ĖŹ!ēɀ€€ö¼ŚŌ !ēÉ!!ēɀŖā¼€Æā¼Ū€÷€’¼Ūƒ‚^ŪŚŌ!ēŹ!‚‚dÅ‹“!ēÉ­‹t­‚€Å‹l­‚€ Å‹a­‚€ Å‹V­‚€Å‹K­‚€Å‹@­‚€Å‹5­‚€Å‹*­‚€!Å‹­‚€%Å‹­‚€)Å‹ ­‚€-Å‹ž€Œā¼€ā¼Ū€ā¼Ū€—ā¼Ū€˜ā¼Ū€œ€£¼Ū€§ā¼Ū€Øā¼Ū€°€ø¼Ū€¼€Ä¼Ū€Ęā¼Ū€Č€Ļ¼Ū€Ńā¼Ū€Ś€å¼Ū€ģ€ī¼Ū€ó€ö¼Ūƒ‚hŪŚÕ!ēɀ€³ŸÕš!ēŹ!ēɀ ³ń­‚€1ŋ󭂀5ŋ譂€9ŋݭ‚€=ŋҭ‚€Aŋǭ‚€EÅ‹¼­‚€IÅ‹±­‚€MÅ‹¦­‚€QÅ‹›­‚€UÅ‹­‚€YÅ‹…­‚€]Å!‚‚pÅ!ē !ēÉċČ!ēɀ/²Ō!‚‚tÅ!ē !ēɣċ§!ēɀ?²Ō!‚‚xÅ!ē !ēɀ/£Ä‹…!ēɀg²Ō!‚‚|Å!ē !ēɀ_£ÄŠd!ēɀo !|Ņ„1–*††-įsį„0į„+„1į„)u†s–.CODELDCB LDCI LCO LDC LLA LDO LAO LDL LDA LEOPS EXTRAIO   LOD UJP UJPL MPI DVI STM MODI CPL CPG CPI CXL CXG CXI RPU CPF LDCNIVDCODE  BB†U‚€Å†‚€ ėP sš‚€ t pštp–pštpš‚€t pš`t p € Ņóštp–ž$h#ji!"³Ō LSL LDE LAE NOP LPR BPT BNOT LOR LAND ADI €¢ž‰ž”žŸžŖžµžĄžĖžÖžįžģž÷’’ ’’#’.’9’D’O’Z†€Ż†U`!ĖīŲÉ˧up!īiŠŽ–’ke€ p‡‡£¤j"/²Õ±‡"¢`ri#³Ō:†€Ż€ up†€Żet p†€Żtpke€ p†€Ż"tp†€Ż‚€,²Ō!‚‚€Å!ē !ēɀg£ÄŠC!ēɀw²Ō$!‚‚„Å!ēŹ!ē !ēɀo£Ä!ē Ċ!‚‚ˆÅ!ē !ēɀx£ÄŠ!ēŹ‹F!ēɋ:!ēŹ!ē Ä!’e’p’{’…’’™’£’­’·’Į’Ė’Õ’ß’é’óSBI STL SRO STR LDB NATIVE NAT-INFOINVALID CAP CSP SLOD1 SLOD2 INēɀŠā¼€Ņ€Ō¼Ū€ńā¼ŪŚŌ"!ę €²ń!ē ….£!ę ¢ÄŠ !ē ….!ę ¢Ä‹ņ!ēŹ!ē ċį!ēŹ!ē Ä!ē ċÉ!ēŹ!ē Ä!ē ċ±!ēVALID EQUI NEQI LEQI GEQI LEUSW GEUSW EQPWR LEPWR GEPWR EQBYTE LEBYTE GEBYTE SRS SWAP TRUNC ROŹ!ē Ä!ē Ä!ē ċ’!ēŹ!ē Ä!ē Ä!ē Ċt!ēŹ!ē Ä!ēɀ‹ā¼€Õā¼ŪŚŌ !ē ….!ę ¢ÄŠH!ēŹ!ē Ä!ē Ä!ē UND ADR SBR MPR DVR STO MOV DUP2 £Ęž~ž‰ž”žŸžŖžµžĄžĖžÖžįžģž÷’’ ’’#’.’9’D’O’Z’e’p’{’…’’™’£’­’·’ĮĊ*!ēŹ!ē Ä!ę jh "²Ō !ē Ä ķhŠļŠւŒ!ē !ēɀ–°Ź!ē ÉŌ„1–Q#ą+³Ōz†‚8ē`…+Ė×ÉŚŌf†‚8…+Ė×i!y$²Ÿ$³”Ō’Ė’Õ’ß’é’óADJ STB LDP STP CHK FLT EQREAL LEREAL GEREAL LDM SPR EFJ NFJ FJP FJPL P!x$¢h$l#Ä …)Ó††8 rpŅ „)Š#Ä"…2”Ō†8$€’Ė×x‘mŠ †8$€’Ė×xm–ē$ą+³Õ…†‚8ē`…+Ė×ÉŚŌq†‚8…+Ė× XJP IXA IXP STE INN UNI INT DIF SIGNAL WAIT ABI NGI DUP1 ABR NGR LNOT k#yŒ%²Ÿ%³”ŌY%i#x%¢h%m$Ä …)Ó††8 rpŅ „)Š$Ć8%€’Ė×xj!Ō b˧€’ĖnŠ b˧€’Ėn–Ej…+³ŌO†‚8ē`…+Ė IND INC EQSTR LESTR GESTR ASTR CSTR INCI DECI SCIP1 SCIP2 TJP LDCRL LDRL STRL CNTRL ×ÉŚŌ;†‚8…+Ė×i!yh ¢„,„1!x ¢„/††8…/rpŅj„1–Õ" € p"ēą1Ņx†8…,’Ė" p…, ¢„,…,’²ń?…/ķ„/ EXPRL Ēöżśžžžž&ž1ž<žGžRž]žhžsž~ž‰ž”žŸžŖžµžĄžĖžÖžįžģž÷’’ ’’#’.’9’D’O’Z’e’p’{’…’’™’£’­’·’Į’Ė’Õ’ß’é’ó’’’’INVALI††8…/rpÓ„1 p…,£„,…,²ń†8" …,£…,pŠ„,"i!|h!ē`˧Ä"‚ƒ¹Ō„1–?j…+³Ō[†‚8ē`…+Ė×ÉŌJ†‚8…+Ė×hD ’’’’’’’’’’’’SLDC SLDL SLDO SLLA SSTL SCXG SIND €ņžĆ’Œ’’n’’’’’7’7žĆ’ŒžĆžĆžĆ’’’’ø’†‚8瀐…+Ė×i x y!y¢€’¢¢„/„,„1††8…/rpŅj„1„*– #p…1°Õ¶…,’²ń"…/ķ„/††8…/rpÓ„1 p„,†8žĆ’7’7’’’7’Ö’žĆ’’’O’O’O’7žĆžĆžĆžĆžĆ’Œ’’’…,’Ė#p…,¢„,#i…2Ō!jh "²Ō! Ė×! Ė×x‘Ä ķhŠć…*²ń)jh "²Ō! Ė×! Ė×x‘Ä ķhŠć…*£„*Š!!|ŚŌ!|Ņ!~„*Š!~ī„*Š’7’’’’’’žĆžĆžĆ’ 4ßČ@Ń "ķ„v+ęCĶ7Įć‡*** STRINGOPFI Żtp†€Ż‚$t p†€Ż%tp†€Ż‚*t p†€Ż$tp†€Żtp†€Ż‚0t p†€Ż€ up†€Ż‚6t p†€Żtp„ r‡$҆€Ż‚;t p†€Żtp€’˧­ļ"ķjŠä‘‹™ ‹”ļ‹‹Š‹… €0£iš`t p ƒ‚“ŚŌ$! Œ ¢€0£iš`t p ƒ‚øŚŌ ! Œ ¢€0£ihštp!²Ÿ!­²”Ō&j"†]€’ˆ€Ż‡tp†€Ż€(up‡‘†€Ż‚Bt p†€Ż„ t p„ɋ݀ up‹å„ɀŠā¼€‹ā¼Ū€Ņ€Õ¼Ū€ńā¼ŪŚŌ‡¤†€Ż‡tp†€Ż€ up‹®„§²†]"€’˧!±”Ō"ķjŠä"ˆļ Ц!­ļ‘Šւ¼ ƒƒŚÕµžštp– Ņ)`„*¬P­`˜t p–+ …ƒ h‚ƒ ļ`Ė§Ó ‚ƒ ļŠ‚ƒļ­‚ƒɀ“ā¼€”ā¼ŪƒEŪŚŌ †€Ż†ƒ ‡€’Ė×t p†€Ż‡tpІ€Ż‡tp†€Ż‡tp†€Ż€ upŠV„ɀ•Ņ †€Ż†ƒ ‡€’Ė×t p†€Ż‡tpІ€t p­…‚Śtp­tp–®#tp#tp‚ƒ&#‚ƒEt p#tp#€ € number of procs in segmentIO error on filee’›’±’Ē’ēsegment procedure0 not available in P-Cod’Š’Ł’ā’ė’ō NO_SEG PROG_SEGGUNIT_SEGGPROC_SEGGSEPRT_SGG’Š’Ł’ā’ė’ō R L  NO_SEGG(C)::KERNEL 8Segment Ge form for disassembly....segment procedure0 not available in P-Code form for disassembly.... Disassembling segment prouide: A(ll), #(dct index), D(ictionary), Q(uit))/Type space for next page, anything else to Quit’dictionary entryy is e‚ƒēŠ‚ƒč‚ƒé!ÉŚŌ-†‚š­Ė×j#"xtp#"ytp#"ztp#"{tpŠ!#€'up#†‚š­Ė×t p#€'upŠ#€ €.up#‚ƒźcedure  .... Segment: Procedure::Block:: Block offset: Seg offset: Data size:: Exit IC:: OffsetHex codee exit p#tp­ķ¦‹Ģż#‚ƒīt p#†‚ā˜t p#tp–Ė †ƒ € p†ƒ €’ĖׂƒńÅ­€Oˆ‚ r¦†‚j­Ė×ÉŚŌg†‚*­Ė×ÅŠt code::): ’’’’’R’ŖInterface text for segment trouble reading interfaceno interface text to list#Segg†‚š­Ė×Åi!€Oˆ‚ r³Õ’¤ h +²Õ€†‚š Ė×g¹Ō!†ƒ †‚Š Ė×ɀ’Ė׆‚* Ė×ņ‚* Ė×g¹Ō9r Ōbr †ƒ &€’Ė×bÅment reference list for segment : )no segment reference list in this segmentLinker information for segment  EOFMARKKb‚ƒõ¹Ō冃 †‚Š Ė×ɀ’Ė×gÅ ķh‹z’!¢i‹^’!ī­Ó­€Oˆ‚ r¦– 8 štpš‚ƒłt pšgt p'‹8€O¤ i!(²ŌJ! CONSTDEF PUBLDEF baseoffset== pubdataseg== GLOBDEF homeproc== icoffset== EXTPROCC EXTFUNCC SEPPROCC SEPFUNCC ’Ł’ā’ė  input file: ] listing file [CONSOLE:] CONSOLE::CONSOLE::#1: Continue? YėįČ_T53BŹQĖč 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 za:# žFILEOPS EXTRAIO PASCALIOGOTOXY IVMDCODE p the directory of : {blocks 2-5}? to exit. EXTRAIO PASCALIO IDUPLICAT ¶DUPLICAT   €€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€(ī^ļ^ļ]„žDUPDIR83€:¦Ó:ø üYŪ‰ĪĄ++cŪīN(ˆļŒ|:€ī$/ˆļ(ī^ļ^ļ]„žDUPDIR83Ä>Óø üYŪīĄ++cŪīN(ˆļŒ|:€ī$/ˆļHDUPLICAT93š`r pšrp €Y° €y° i–pš spšrpš‚€r pšrpšrpš‚€r pš†r pšrµDUPLICATė3š`r pšrp €Y° €y° i–Óš spšrpš‚€r pšrpšrpš‚€r pš†r pšr pšrp†§²ń †ģ§€0£„Šp1€0ŚŌ»1†p†Ėīׁ’˧„„…„²Ÿ…„² Ōš‚€.r p‘ńp†Ėīׁ€’Ė×x p†§²ń †ģ§€0£„Šp1€0ŚŌĀ1†p†Ėīׁ’˧„„…„²Ÿ…„² Ōš‚€.r pŠTš‚€Gr pī…„¢„„„„…„…„² ±Õļš‚€Ir pī…„¢„„„„…„…„²Ō$š†Ėīׁ…„’˧sp…„ķ„„ŠÓš‚€br pšrp†Ėīׁ€’Ė×xŅ#š‚€dr Ō$š†Ėīׁ…„’˧sp…„ķ„„ŠÓš‚€_r p‘Ōz†Ėīׁ€’Ė×x ÓKš‚€hr pšrpš‚€‡r p‘ńpІĖpšrpš‚€‚r pŠ š‚€”r p‘ŌHš‚€®r p‘Ō6†Ėīׁ€’Ė× Ä1†p1†pš‚€År pŠhš‚€Ūr pmpty0d’u’u’u’u’u’u’u’u’u’užÅ’žÅ’īׁ€’Ė× Ä1†p1†pš‚€Ÿr pŠ š‚€Ær pš‚€½r pšr p–-Duplicate Directory Copier { July 12, (Copyright (c) 1981, SofTech Microsystems †‚ˆ˜u †‚upÓ ¦p…¼Ō†‚upÓ ¦p–\…·å…¶ Õƒˆģ­Œ€ p­īlh $²Ō­ ¢Œasaģˆ Œ¢ģa§p ķhŠÜęPATCH 6x*a„-¬P‡+Ō štpra§²ń ša˜u p‡,Óš‡,upš€ tpš‚€u pš`u p € Ņór–.‘)`„†‚­Œu†‚‚@u †‚ˆ˜u †‚upÓ ¦p…½Ō†‚upÓ ¦p…·…¶ Ōnˆģ­Œ€ ps ­īlh $²Ō­ ¢Œasaģˆ ī…„¢„„„„…„…„²Ō$š†Ėīׁ…„’˧sp…„ķ„„ŠÓš‚€÷r pšrpš‚€łr pš‚r pšr p–-Duplicate*¬Prš`˜u p–+µ/f„0¬Pršf˜u p`rh`r–1š`u p i`rj"ĄŚŌ"Š€UhŠ€DhŠ €LhŠ€RhŠրŠ!!ƒ€ ŚŌ €a£€A¢ Directory Marker { July 13, 1978 } ) Enter drive # of user's disk [4 or 5]: 4Illegal volume name. Do you want to mark it anywahŠ !ƒ€Śń€Zh k–µ-d„.¬P¤0d§Ņ ‚€‘‹ƒd§²ń ‚€.‘Šqd§hi Ņd짃€CŚŌhįi ³Ō:d 짃€GŚŌ!d ģ§€0£›Od§y? 1A duplicate directory is not being maintained on : .;WARNING! It appears that blocks 6 - 9 are not free for use." Are you  £Ė×xŒ¢i īhŠ ‚€K‘ihŠĮ!³ń‚€`‘¤0Š!¤0–/-#’įīŅ "‚€zėPŠ`#Ņ "‚€~ėPŠS"‚€ėPi#³ńh#įkŠh#²ń"!ģ†ƒĖ# 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Ė×xČ!īi# kŠā Ō "!ģ€-Č!īi"!ķģ"ģ!£p"!£Č–G$‡%`Hp‡‡£¤&–%y"§ih !²Ō " 짃€ƒŚŌ" ģ" ģ§€a£€A¢Č ķhŠŪ–ž1irectories are now marked as duplicate. 6 A duplicate directory is already being maintained on : . Mark not done. Type to exit. EXTRAIO PASCALIO ć1ēÄ`‘ ‡1ē`ėP‡1ēć1ē‡4‘ć1įÀƝ‘‹¼‡3‡2r„+r¤+„+rš‚€¶u pš`€Pu pšu p`˜‘¤*‡*1ŚŌæ‡*²ńo‡4vp‡*p"pÓ*‚€Ėp‘‡5ēć5ē‚€ŻėP‚€Ž‘‡3‡2rŠ2‡5¤1‡1ēć1ēć1ēć1灒ć1‡*ć1ē`ėP‚€ß‘Ї3‡2rr„+r¤+„+r–5§*‡,‡+rš‚€ęu pš`€Pu pšu p`§²ńt‡-vp‡-`˜vpÓ*‚€ģp‘‡.ēć.ē‚€żėP‚€ž‘‡,‡+rŠ5‡.¤*‡*ēć*ēć*ē0PATCH C16BITCO įć*ēć*灒Ä`‘ ‡*ē`ėP‚€’‘r–.k"h {Ō' x› yppÓ‚p‘rkŠ9!› ytÓ‚p‘rkŠ pÓ‚*p‘rk–8…ŗå…¹ Õ‚ˆģ­Œ€ p­īmh %²Ō­ ¢Œasaģˆ Œķģa§p ķhŠŻ†‚­Œu†‚‚<u †‚ˆ˜u †‚u€€ ( pÓ ¦p…½Ō†‚upÓ ¦p…ŗ…¹ Ōmˆģ­Œ€ ps ­īmh %²Ō­ ¢Œasaģˆ Œķģa§p ķhŠŻs †‚­Œu†‚‚>u ½Ō†‚upÓ ¦p…®å…­ Ōzˆģ­Œ€ ps ­īmh %²Ō+­ ¢Œasaģˆ Œķģpaģˆ Œ¢ģp ķhŠŠs †‚­Œu†‚‚Nu †‚u p–r š‚‚ēu pšupšupš‚‚óu pšupš‚ƒu pšupš‚ƒ u pšupšupš‚ƒu pšupšˆ˜u †‚upÓ ¦p…¼Ō†‚upÓ ¦p–ó …«å…Ŗ Õˆģ­Œ€ p­īmh %²Ō+­ ¢Œasaģˆ Œķģpaģˆ Œ‚ƒ'u pšupš‚ƒ4u pšupšupš‚ƒAu pšupš‚ƒNu pšupš‚ƒ[u pšupš‚ƒ|u pšupš¢ģp ķhŠŠ†‚­Œu†‚‚Pu †‚ˆ˜u †‚upÓ ¦p…½Ō†‚upÓ ¦p…«å…Ŗ Ōzˆģ­Œ€ ps ­īmh %²Ō+­ ¢Œ‚ƒ‰u pšupš‚ƒ–u pšupš‚ƒ£u pšupš‚ƒ°u pšupš‚ƒ½u pšupšupš‚ƒŹu pšupš‚asaģˆ Œķģpaģˆ Œ¢ģp ķhŠŠs †‚­Œu†‚‚Ru †‚ˆ˜u †‚upÓ ¦p…¼Ō†‚upÓ ¦p–Ź †‚‚TƒŁu pšuprš†ƒt˜u prš…ƒpuprš…æupr…¾Ōš‚ƒču pŠ š‚ƒėu prš…Āuprš…Įupu pÓ ¦p…Ą²Ō6…Ąīih !²Ō(†‚ Œu†‚‚Wu pÓ ¦p ķhŠÓŠeih !²Ō(†‚ Œu†‚‚[u pÓ ¦p ķh rš†ƒF˜u p rš…Ąup†¹ †¶†°†³†­†Ŗr…½Ōš‚ƒīu pŠ š‚ƒńu pr…¼Ōš‚ƒōu pŠŒ¢ģa§p ķhŠÜs †‚­Œu†‚‚Bu †‚ˆ˜u †‚upÓ ¦p…¼Ō†‚upÓ ¦p–~…“允³ Õ‚ˆģ­Œ€ p­īmhŠÓ…Ąīih !²Ō(†‚ Œu†‚‚_u pÓ ¦p ķhŠÓ†‚upÓ ¦p–mFk#Ō‚cp‘‹ˆ…Ąī¤Fh ‡F²Õ² …ĄŒj… %²Ō­ ¢Œasaģˆ Œķģa§p ķhŠŻ†‚­Œu†‚‚Du †‚ˆ˜u †‚upÓ ¦p…½Ō†‚upÓ ¦p…“…³ Ōmˆģ­Ąid!ŒČ…»Ō#Ō‚sp‘p…µŌ#Ō‚ƒp‘p…øŌ#Ō‚“p‘p…²Ō#Ō‚£p‘p…ÆŌ#Ō‚³Œ€ ps ­īmh %²Ō­ ¢Œasaģˆ Œķģa§p ķhŠŻs †‚­Œu†‚‚Fu †‚ˆ˜u †‚upÓ ¦p…¼Ō†‚upÓ ¦p–p‘p…¬Ō#Ō‚Ćp‘p ķh‹G’…Ą²ŸÕ¶…Ą£j…Ąid!ŒČ…»Ō#Ō‚Óp‘p…µŌ#Ō‚ćp‘w …±å…° Õķˆģ­Œ€ p­īnh &²Õˆ­ ¢Œas­ ¢Œcsa짆ƒŪŠŚŌˆ Œķģaģ§ČŠˆ Œķģcģ§Čˆ Œ¢ģcģ§Ča짆ƒŪŠŚŌˆp…øŌ#Ō‚óp‘p…²Ō#Ō‚‚p‘p…ÆŌ#Ō‚‚p‘p…¬Ō#Ō‚‚#p‘p–Fj…Įi…Į Œ¢ģaģ§ČŠˆ Œ¢ģcģ§Čˆ Œ¢ģcģ§Č ķh‹r’†‚­Œu†‚‚Hu †‚ˆ˜u †‚upÓ ¦p…½Ō†‚upÓ ¦p…±…j!²ńo!īkh #²Ōe…Ć…Ā Œ¢›p†‚‚‚3u †‚…Ā Œ¢u†‚‚‚Au †‚u†‚upÓ‚‚Op‘pļ ķhŠ–"²ńm…Ć° Õ؈ģ­Œ€ ps ­īnh &²Õˆ­ ¢Œas­ ¢Œcsa짆ƒŪŠŚŌˆ Œķģaģ§ČŠˆ Œķģcģ§Čˆ Œ¢ģcģ§Ča짆ƒŪŠŚŌˆ Œ¢ģ…Ā!Œ¢›"p›"’ˁ"£p†‚‚‚_u †‚…Ā!Œ¢u†‚‚‚mu †‚"u†‚upÓ‚‚{p‘pļ–…ƒp…æ¢j…ƒpki!#aģ§ČŠˆ Œ¢ģcģ§Čˆ Œ¢ģcģ§Č ķh‹r’s †‚­Œu†‚‚Ju †‚ˆ˜u †‚upÓ ¦p…¼Ō†‚upÓ ¦p–µ …"³Ÿ”Շ†ƒo†Ä‘ ŌI†‚‚‚‹u †‚#u†‚‚‚”u †‚†ƒt˜u †‚upÓ‚‚p‘pļ#ķkŠ0‚‚­#‘‚‚¼‘š`u p ƒ‚ĶŚŌī €Y®å…­ Õˆģ­Œ€ p­īmh %²Ō+­ ¢Œasaģˆ Œķģpaģˆ Œ¢ģp ķhŠŠ†‚­Œu†‚‚Lu †‚ˆ˜u †‚upÓ ¦p…° €y° ir‹p’–„`$Å#r"Ōš‚‚՝u pŠ š‚‚Ųu p€'#r!Ōš‚‚Ūu pŠ š‚‚Žu p€8#r Ōš‚‚įu pŠ š‚‚ä ršb€Pu pšu pb˜‘„Įrš…ĮupŠ ‚„±‘‹ś r†ƒA†‚ ‘  rš†ƒF˜u p‹Ł ršb€Pu pšu pb˜‘h ³ ²”Ō „Ė„r0°1³Ÿ”Ō 0ķ€IĖ„rŠ0€IŅ€IĖ„1ķĖ„0¢1¢r–|1Œ00Œ¢¢i!#x¢²ń#!£Ä#xījh "²Ō›! ¢’Ė$Č ķhŠé–<ĄŠ ‚„ŗ‘„Ą rš…Ąup‹†¹ ‹‡†¶Š†°Šw†³Šo†­Šg†ŖŠ_r…½å„½…½Ōš‚„Ėu pŠ š‚„Īu pŠ.‚†‘š`€Pu pšu p`˜‘¤+‡+²‡+²Ÿ Ō¤+‚†%‘‹Q‚†6‘†W˜‘rš`€Pu pšu p`§³ń‚†>‘¤+‹`짃†FŚ1r…¼å„¼…¼Ōš‚„ѝu pŠ š‚„Ōu pŠք×r!€Q°Õmżr 2Ō†.˜‘І˜‘–+#īrš‚„ķu pš‚… u pšupih !Õ`ģ§‹ō`ģ§„++‘1‡+¢Ė„‹ß`§³ń‚†M‘¤+‹Ä`짆ƒėŠŚ`짆ƒėŠŚ”Õž`짃†UŚŌ`ģ§€A£ ¢Œ¤*Š'`짃†ZŚŌ`ģ§€²Ō ¢rš Œupš€|tp ķhŠŪ–† ‘ī¤ j"(²Õ¶ī"¢r¤ i!)²Õž"Œ!!¢¢hš€ tp cs es3c짆ƒŪŠŚ”Ōšcģ§tpša£ ¢Œ¤*Š `ģ§€0£Œ¤*`짃†aŚŌ`ģ§€A£ ¢‡*¢¤*Š)`짃†fŚŌ`ģ§€a£ ¢‡*¢¤*Š `ģ§€0£‡*¢¤*‡*„++‘1‡+¢Ė„Š ‚†m‘¤+Šֆ€ tpŠšeģ§tpšeģ§tp3c짆ƒŪŠŚ”Ōšcģ§tpš€ tpŠšeģ§tpšeģ§tp!ķi‹\’"ķj‹D’¢ržcsžes‰Š ‚†±‘¤+†€€˜‘r0¢1¢r‡+¤.¤,‡,‡.²Ō ļ)ļ)‡,ķ¤,Šī–.é‚†Ķ‘0°0° Ō0ī€IĖ„0¢1¢rš`u p i`rj"Ó`!†ƒŪŠ3c짆ƒŪŠŚ”Ōšcģ§tpš€ tpŠšeģ§tpšeģ§tp3c짆ƒŪŠŚ”Ōšcģ§tpš€ tpŠšeģ§tpšeģ§tp0ŚŌE›1Œ00Œ¢¢’Ė!Ț!tpš€ tp0¢1¢rļ)ļ)1°0°”Ōļ(Š‚†ē‘0¢1¢r"҉r0¢1¢r–ź ‚†š‘0¢1¢rš¢1¢r– õ+‚…‘š`€Pu pšu p`˜‘¤*‡*³Ÿ‡*…ƒŸī²Ÿ Ō‚……ƒŸī‘rŠ#…ƒž¤+‡*„ƒž†ƒ†ģ‘ Ō ‚…6‘Ї+„ƒž€Or–+,…ƒž…`u p i`rl$±ÕÄ †ƒėŠŚ! °”Õ¤ †ƒūŠŚŌ €0£kŠ" ƒ‡ ŚŌ €A£ ¢kŠ €a£ ¢k €a£€A¢h1Œ00Œ¢¢j0°0° Ō›"’Ė›"ƒŸī³ń…ƒžķ„ƒž†ƒ†ģ‘ Ō ‚…A‘‘Š ‚…L‘–_…ƒž²ń…ƒžī„ƒž†ƒ†ģ‘ Ō ‚…Y‘‘Š ‚…d‘–Š…ƒ Ō,…ƒ›…ƒžppӁ’˧#Œ¢ČŠ#›"’Ė›"’˧›"’˧£#¢Čš tp0¢1¢rļ)Š‚‡‘0¢1¢r$°Õ!’r0¢1¢r–F!r†€€˜‘0¢1¢ š‚ƒ÷u pr–µ…ƒEՎ…¾Ō†ƒF‚ƒśč†ƒF‚ƒ’č Ōr ļŠ)…ƒsŌ†ƒF‚„č†ƒF‚„č Ōr ļŠ ‚„‘†ƒF‚„č†ƒF‚„č …ƒs…¾ ‚…sp‘Š‚…†‘Š9†ģ›…ƒžtÓ ‚…p‘ŠpÓ ‚… p‘Š‚…³‘–Įrš‚…ŗu pš†ƒ¢˜u prš‚…¾ ”Ō&š‚„u pšupšˆu p­€ ŅšļŠ ‚„.‘–ųš`u p ƒ„<ŚŌī ƒ„DŚŌš‚„Lu piŠš‚„Ou pi–!"hu pš…ƒŸupš‚…ĝu pš…ƒžupšŌš‚…Ėu pšupŠš‚…Ųu pšupr…ƒ”Ōš‚…åu pŠ š‚…ģu p…ƒ Ō!r ēļĀ'!w ēļĀ8!w ļĖĪ+‘i!ƒ„RŚÕy!‹rr†ƒo†Ä‘ rš†ƒt˜u p‹T…ƒsŌHršb€Pu pšu pb˜‘h š‚…óu pŠ š‚…’u pš‚† u pš…ƒupš‚†u p–Żīih !²Ō ¢r ķhŠš–M1²ń 1īĖ„rŠY0²ń)īĖ„³ …ƒq²”Ō „ƒpŠ ‚„X…ƒq‘rš…ƒpupŠ ‚„o‘‹ū…ƒsŌ>ršb€Pu pšu pb˜‘h ²ń „æŠ ‚„€‘rš upŠ ‚„‘0ī€IĖ„0¢1¢r0Ņ 0ī€IĖ„rŠ+0²ń&Ė„0ī€IĖ„0¢1¢r0Ņ 0ī€IĖ„r–œ10³Ÿ1ī°” Ō 1ķĖ„rŠ,0€I³ń&Ė„0퀑‹¬‹§r…¾å„¾…¾Ōš‚„¢u pŠ š‚„„u p‹x…¾Ō.ršb€Pu pšu pb˜‘„Ārš…ĀupŠ ‚„؝‘‹9…¾Ō.IĖ„0¢1¢r0Ņ 0ķ€IĖ„r–ß0²ń0ī€IĖ„r0Ņ 0ī€IĖ„rŠ1²ń€I€IĖ„1īĖ„0¢1¢r–80€I³Ÿ1³Ÿ”1°0³Ÿ” Ō"0ķ€I Ė×€děOĖׁčěOĖׁ'Ä jh "²Ō†ƒĖ Ė×€0 ¢Ä ķhŠčjh "²Ō†ƒĖ ¢Ė×€A ¢Ä ķhŠę€I˄˄i!„Ć„»„ŗ„¹„ø#11. Ioresult is ERROR in I/O #12. Ioresult is ERROR in I/O #13. Ioresult is CORE DUMP Startbyte :  Number of valid„·„¶„µ„“„³„²„±„°„Æ„®„­„¬„«„Ŗ„Ą„æ„Ā„Į„¾„½„¼†ƒ¢‚‡äėP„ƒ”„ƒ „ƒŸ„ƒžᄃ†ƒt‚‡åėP„ƒs„ bytes : ERROR in I/O #14. Ioresult is CORE DUMP Startbyte :  Number of valid bytes : ERROR in I/O #15. Ioresult iƒr„ƒq„ƒpᄃo†ƒF‚‡ęėP„ƒE„ƒD„ƒC„ƒBᄃA–*X$†‚†ƒ@įv†Ä†‚šįv†ģ†ƒįvrs‘/†.˜‘€Orš†€©u p…€©ƒ‡ēŚŌ …€©€a£€As  Block number [  ] of the file ERROR in I/O #16. Ioresult is Error occurred reading block !Do you want to continue ? (¢„€©…€©ƒ‡ļŚÕ¼…€©‹³†€Ŗ›Ł‘ ›†€ŖÅ‹†ƒ†ģ‘ …ƒ”Ō †ƒ†ģ‘ Ō‹€3å„3Ō ‚‡õ‘Š‚ˆ‘Šg‘#Šc‘$Š_2Ō†˜‘І.˜‘2å„ y/n )@@TrueeFalseTrueeFalseTrueeFalseDUMP : D(o, Q(uit  A) Input File  B) Starting BlockŠJr2Ō†.˜‘І˜‘Š5…ƒ”Ō"…€©Š‘Š‘"Š‘%Š‘ Š ‘!Š‘Šֈ$Š ‚ˆ;‘ŠֈG…€©€Q°Õ’‘.†‚v†Äv†ģv– > é’  C) Number of Blocks  E) Read from Memory  F) Starting Byte  G) Number of Bytes  H) Output File ī’ó’ų’ž’’’ƒž’’%Null string. Value defaults to zero.(String too long. Value defaults to zero..š  I) Width in words @ Flip Both  J) Decimal  ’)Error in string. Value defaults to zero.2Integer constant overflow. Value defaults to zeroo-3276880 ž’ K) Hexadecimal  L) Characters  M) Octal  N) Decimal bytes  O) Octal bytes ’ FILENAME : < c/r for Unit I/O > !Error opening file. Ioresult is File opened. )Unitnumber : 4, 5, 9 .. 12 ( 0 quits ) S) Space between Lines  T) Space between Groups True FalseTrueeFalseTrueeFalseCONSOLE::#1:CONSOLE::#1:Inp "Error clearing unit. Ioresult is File opened. Filename: !Error opening file. Ioresult is File opened..#Error rut file is not opened.CONSOLE::#1:#Type < space > to redisplay promptsOutput file is not opened..@@eading block.U Ioresult is #Error reading block.B Ioresult is #Error reading block.B Ioresult is | | | | | | | TrueeFalsež’,Value out of range. Maximum block number is Input file must be opened first..!Number must be grea| | | | |  : : : ERROR in I/O #1. Ioresult is ERROR in I/O #2. Ioresult is ERROR in I/O ter than zero. Input file must be opened first..TrueeFalseCOREREAD not set.COREREAD not set. Value out range. Defaults to 15r‘h ƒ‡ŚŌ" А,А-А*А&А'Š (А)Šև €QŅĖ2Ō†.˜‘І˜‘–d!†‚vp†Ävp†ģvp–-#*r †.jb‚‡3€!” b‚‡D#3. Ioresult is ERROR in I/O #4. Ioresult is ERROR in I/O #5. Ioresult is ERROR in I/O #6. Ioresult is ERROR in I/O €O” bėP†jb‚‡\€!” b‚‡m€O” bėP†€€‚‡…ėP†W‚‡¬ėP„„†ƒŪƒ‡ŃĒŽ†ƒūƒ‡ŁĒކƒėƒ‡ŻĒŽ›OĖ×ěOĖ× ěO#7. Ioresult is ERROR in I/O #8. Ioresult is ERROR in I/O #9. Ioresult is ERROR in I/O #10. Ioresult is ERROR in I/O   ’’’’’’’’’’’’’~~ž’’€Ō"Ü0The display will be in characters, if pri¢ģ† Ė§Č h!īiŠā–Ą0h1Ė„ Ė„…h…Ė„ Ė„–5 jh "²Ō† Ė€0 ¢Č ķhŠź jh "²Ō† Ė€A ¢ £Č ķhŠčĖ..TrueeFalseTrueeFalseAT‹ż¬żžTžYžˆžĒž’'’p’y’’‰’‘’™’”’Ļ’: 0: 2: 4: 6: 8: 10: 12: 14: 16: 18: 20ntable..*The display will be in hexadecimal digits..BVõ’ń’å’é’ķ’ł’Error. File not open. W¶’:: 22: 24: 26: 28::Blocknumber : /Blocknumber is out of range. Highest value is Read was successful..Read was successf”’Ė’J’Ė’c’™’€’Ė’Ė’Ė’Ė’’“„÷ žĄrP)ul..Have reached end of file.Read was successful..Already at beginning of file.$Error saving buffer.U. Ioresult is Block sń wć j 2  ż Å  é ~ ] ‰Ä7¹|Ż>A°ē“ V?&Ż‹]K> ™/STRINGOP GOTOXY FILEOPS PASCALIOEXTRAIO aved..$Error saving buffer.B. Ioresult is $Error saving buffer.B. Ioresult is Block saved..File : Length : Current :C16BITCOSCREENOP   Byte 0 = Most_Sig_Bytee Byte 0 = Least_Sig_Byte Open : True Open : Falsee Unit I/O : True  Unit I/O : False Unitnumber : Number of bytes : Number of bytes is out of range..What pattern : Invalid format.Invalid format.~~~~6Invalid format. Hexdigits ::= 0 .. 9 , A .. F, a .. f Ch ’!’ ’!’7Invalid format. Must have prefix character, 'C' o/C16BITCOg”†%1¢’˧i†%0¢’˧h €€³Ō! €€£Œ¢i!’£īiŠ! Œ¢i$‚€ė!’įīŅ $‚€ėŠ5!³ń!įikŠkj!²ńr 'H' 2CHARACTERS : , quits Invalid character6HEXADECIMAL : 0 .. 9 , A .. F , a .. f , Qu$"솁! ˧Č"īj! iŠä#Ō$"ģ€-Ȗ $‚€ ė†%…¢’˧hki!#³Ō$!솁 Ė§Č h!īiŠä†%…¢’˧hki!#³Ō$!¢ģ† itss~ Invalid inputX$CUį’ń’é’å’õ’ł’ķ’!EDIT : D(ump, G(et, R(ead, S(ave,. M(ix, T(ypĖ§Č h!īiŠā–=!‚€ ė!ģ†"…¢’˧Č!ģ†"…¢’˧Ȗæ&‚€ė†'1¢’˧hmj"%³Ō&"솁 Ė§Č h"ījŠä†'0¢’e, I(nfo, F(or, B(ack, ? IV.0.bb!EDIT : V(iew, W(ipe, Q(uit, ? . LTYPE : C(˧h&솁&ģ§€0£ Œ¢Ė§Č hmj"%³Ō&"솁 Ė§Č h"ījŠä–+$‚€ė†%…¢’˧hki!#³Ō$!솁 Ė§Č h!īiŠä†%…har, H(ex, F(ill, U(p, D(own, L(eft, R(ight, , Q(uittHValid format : C or H ¢’˧hki!#³Ō$!¢ģ† Ė§Č h!īiŠā–—$‚€ė†%…¢’˧hki!#³Ō$!솁 Ė§Č h!īiŠä†%…¢’˧hki!#³Ō$!  CHAR = HEXADECIMAL TESTTNUM = HEX = INTEGER TESTTNUM = INT = OCTAL TESTTNUM = OCT = INTEGER BYTES TESTT€u±p± Ō p‚€q„€ž’˧°„‡€Ó„€i¤k#‡²Ō>„€į#Ėפ‚‡‚ÉŚå‡‚ɰ!” Ō ‚€®qŠ ‡‚ÉŅi#l#NUM = DEC = OCTAL BYTES TESTTNUM = OCTB = FINISHED TESTINGGøNbāS‰” e EXTRAIO PASCALIO ķkŠ»!ń ‚€ĀqŠ„€$Ėפ‡x„‡y„–Æ0123456789ABCDEFAssembly Code File Compressor IV.0 [g3] 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 dic„Ė„ia˧°„2Ō˄˄Р˄˄–kš‚€r pšrpš‚€5r pšrpšrp–ʐ š‚€Mr pšrpšarpšr p†’Ėa˧Ȇ’Ėa˧Čh „‘š‚€Ur pš!rpš‚€Yr pš„˜r pš€/spšrp! ҉šų/COMPRESSINITIALI ‚€^r pšrpšarpšr p†’Ėa˧Ȇ’Ėa˧Čh f‘š‚€gr pš!rpš‚€kr pšf˜r pš€/spš rp! Ņ‹š‚€pr pšrpšarpšr p†’Ėa˧Ȇ’Ėa˧Čh b‘š‚€wr pš!rpš‚€{r pšb˜r pš€€€€€€€€€€€€€€€€€_# COMPRESS/spšrp! Ņ‹š‚€€r pšrpšarpšr p†’Ėa˧Ȇ’Ėa˧Čh „ ‘š‚€†r pš!rpš‚€Šr pš„(ī^ļ^ļ]„žC®Ņ> Øø diŪīĄ++°pŪīN(ˆļŒ|:€ī$/ˆļ ˜r pš€/spšrp! ҉š‚€r pšrpšarpšr p†’Ėa˧Ȇ’Ėa˧Čh „‘š‚€™r pš!rpš‚€.INITIALIV\žjh "²Ō7$k# ’˧€’Ėi# ’Ė# 큒˧€’ĖČ# 큒Ė!€’ĖČ ķhŠÄ–ØÆ†X‚€Å„„†sštš‚€ r pš„˜r pš€/spšrp! ҉š‚€¢r pšrpšarpšr p†’Ėa˧Ȇ’Ėa˧Čh „‘š‚€«r pš!t š‚€t štštš‚€t štštš‚€+t š`t ƒ€JŚŌš €!ŅpŠ ƒ€RŚ„š ušt3ń9štš‚€Zt šrpš‚€Ær pš„˜r pš€/spšrp! ҉š‚€“r pšrp–Ģ– 00-327688     „X€Pt št „X‚€očŌp„X˜†qj"Ō̚tš‚€pt še€Pt št e‚€}čŌp†e˜vpÓ#†¤„e˜€Pw„‚€~€Uw„˜ 2DEBUGGING PROCEDURE FOR THE 16 BIT CONVERSION UNITT.TYPE INTEGER NUMBERS - A 10 WILL QUIT THE LOOPPCHARACTER TESTTNUM = vpŅ£štš‚€t š„/€Pt št št„/‚€”čŌp„/‚€•čŌ„/eėP†0„/˜vpÓ"p¤„‚€– w„„/˜€]w„˜q†„ ń¤/ŠSb§ih !²ŌHb 짃€ŚŌ‡,‡,xŒb ģ§€0£¢ÄŠ$b 짃€ŚŌ‡,‡,xŒb ģ§€A£ ¢¢ÄФ/ ķhг–.‚2Ō­ ķ0u˧€’ĖiŠ­ 0u˧€’‚€žt št–Ɔ†4įv†0†\įvr0†‘‘†v†0v– >>>>  >>>> disk error ’~pascalio,compĖi–æ2Ō­ 0u˧­ ķ0u˧Œ¢iŠ­ ķ0u˧­ 0u˧Œ¢i–2Ō'­!0uĖ €’ĖČ­!ķ0uĖ €’ĖȊ%­!ķ0uĖ €ressorbuffer allocation hassles.insufficient memory space to read in code fileewhile reading code filetoo many procedures in ’ĖČ­!0uĖ €’ĖȖ]"!ŅhŠ7"³!³”Ō"!³ŸhŠ'"³Ÿ!³”Ō"!²ŸhŠ"³!³Ÿ”Ō"!²ŸhŠ"!³Ÿh k–¶"ļ!¢h2Ō%­"0uĖ`ɀ’ĖČ­segmenttno procedures in segmenttprocedure code not assemblyinput code file not linkeddinput code file not linkedd3code may "ķ0uĖ`ɀ’ĖȊ#­"ķ0uĖ`ɀ’ĖČ­"0uĖ`ɀ’ĖȖ‚€”  £iˆ!” Ņ‚€%‘4ī¢h !ī¢²ń‚€2‘†­ 5not contain base or interpreter relocation Procedure ##: H - H  bytessbad relocation informationnwhile writing outu ±p± Ō p‚€J‘– ļŒk#ļ€d˦­€d²ń‚€V‘­Ņ‚€f‘#­Œ££h­¤ o'(²Ō<­'¤ m%)³Ō, %Œ¢n&£ļ&ļ³ń&£ codee Highest code address is H.. Output file is bytes long¤P>“ÓVŽ]1 āĆÆ–Dv$ ÉEXTRAHEA STRINGļl&£&ļļ &$ļ %īmŠĻ'ķoŠæ ķi­€dĖ€dˤ ¦­(³ŌT#­Œ£ļŒj"ļįÓ‚€s‘"£ļÓ‚€‘ˆ­€dĖīפ )ē"¢Ä)ē!Ä)Ä"£i­OPFILEOPS EXTRAIO PASCALIOHEAPOPS  ī¦Ц– §¦ļŒ¦­±Õ…j­i!ļÓ5!ļÓ!ļŅ ‚€‘Š‚€‘!k!!£ļŒ££i#"ļ #jŠÄ!k!¢h"Ó4"£ļl$Œm­$¢¦­tionaryy&input code file is not linked assemblyy&input code file is not linked assemblyy 0 0uĖ­#0uĖ%p#%¢k"¢h"ļjŠČ#£¦–c¦€dĖ­€dĖh¦­ ²Õ›ˆ­€dĖī×i­!z0uĖ­­0uĖ!y!z£ķp!­Ä­!y¢!z£ķ¦š‚€·t š­īt‚€Ą­4!x¢‘‚€Ā­4!x¢!y!z£¢‘š‚€Åt š!y!z£ķtš‚€Ēt št­ķ¦‹^’–¢h"Ä å"x®²”Ō)ˆ"x€dĖī×i!z$š $!y#¢š ”ŌhŠ""xķÄŠĶ–&­īlk#$²Ōs­#Œ£i!ļj"ˆ­­²ń‚€Ė‘ˆ­€dĖī×m!%z%x£įļ !ļj"ļh ˆ­­²ń ­€d˦ˆ­€dĖī×m"%z%x£įļ #ķkŠˆ–x­ļ ­¢¦­­īŒ£h­ 0uĖ­­0uĖ­Œp­­Œ¢¦­­ļ ­¢ļ ­¢¦–œ­÷COMPRESSŽC)`„*¬Pšuš‚€t š`˜t štp–+ƒ)`„*¬Pšuš‚€t š‡,tš€ uš`˜t štīih !²Ō­ Œ£ļ­4ļ ķhŠč–'­3­Ä­īķi’­ī£h­­0uĖ p­ ¢¦3Ō. ³ń!ķi­­0uˁp­¢¦­£­3x£p–,ē*a„,¬Pša˜t h‡+³ń%‡+’¢ķ¤+š†X‡+ ¢˧u‡+ ¤+ h ²ńš†X‡+ ˧u‡+ ¤+ hŠß–-Z+b„-¬P‡,Ĥ/b§Śļ †0­!įu!±p± Ō p‚€Ł‘†0v–C2  3ԐА–4ކs3ń‚€å01¢ī‘š‚€ót štš‚€õt š1tš  †~¹ŌW†d†z¹Ÿ†d†v¹Ÿ”†d†€Š¹Ÿ”†d†€†¹Ÿ”†d‚€¹Ÿ”†d†€‚¹Ÿ”Ō5Ņq …iŅq …iŅłq Š©†d†z¹ŌL†d†~¹Ÿ†d†v¹Ÿ”†d†€€€€ € € €€€€€€€€€€€Ņ# REFERENCREFERENCREFERENCREFERENCREFERENCйŸ”†d†€†¹Ÿ”†d‚€¹Ÿ”†d†€‚¹Ÿ”Ō q …iŅłq Š“†d†v¹ŌM5ŅļŠE†d†~¹Ÿ†d†z¹Ÿ”†d†€Š¹Ÿ”†d†€†¹Ÿ”†d‚€¹Ÿ”†d†€‚ÓRéRé]xųSTUFF#F5īø "xĄÓĪ--€ŒĄÓ\*|錊<€Ó21|鹟”Ōq Š»–3†d†~¹Ÿ†d†z¹Ÿ”†d†v¹Ÿ”†d†€Š¹Ÿ”†d†€†¹Ÿ”†d‚€¹Ÿ”†d†€‚¹Ÿ”Ō-…Ō„Š„q …i±…i±”ԁ’Ėq…iMPROSESS 11xē 1yÄ1h z„9īၒĖ„ –l1hi†`†dÅ ˜±!å”Ōab yq!ń zhŠź!"ę °”Ō"ę±kŠk–S1xę ˜Ņ&q `s Óq Š÷‹›ļ†d†€Š¹†d†€†¹ †d†€‚¹ Ōl5҄Єq …iӁ’Ėqq¦5Ņ…Ō…Ņ­ēĊ­ēÄļ…i€4Śńq Šō…iŅļ …ii!†dÅ!ē…hĒÄ!ē˜Ä1xē Äq Š1xę h…iÓJ…iŅq …iÓ ’ĖqŠ…i°…”Ō„p ēs }h i!†dÅ!ē…hĒÄ!ē˜Äq б…iÓq Š÷…iÓÓq Š÷5Ņ q„†‚Ltp†d‚€¹Ō„q …°…° Õßž–&5Ņ„„ Š„†`†dÅq …iÓ ’Ėq‹Ä!qh…i€4Śńq Šō…iҐ …iÓq Š÷†d†~¹†d†z¹ †d†v¹ †d†€Š¹ †d†€†¹ †d†r¹ †d‚€¹ †d†€‚¹ ÕQ’–eh`†`p%!°o–¢i!Ō1xę hŠ˜h ˜Ó q Š÷5Ņ q„†‚Ltpq …Ґ…iÓ ’ĖqŠx†d‚€"¹Ÿ†d†~¹Ÿ”†d†z¹Ÿ”†d†€Š¹Ÿ”†d†€†¹Ÿ”†d†v¹Ÿ”†d†r¹Ÿ”†d†€‚¹Ÿ x†`¹Ōi j"ē"{­  Ä˜hŠ zhŠÜ!k–Ÿ h1kÕķ9ၒĖj"³ å”Ō.#xę l$˜± å”Ō$†`¹h ń$}lŠč ń "īၒĖj#zkŠŹ"³ń1k ՜1xę m”Ō5҆d‚€&¹Ō ēĊ ēĐŠ–implemenimplemencase implemenimplemenimplemenimplemenimplemenlabel forward ~gs'¤ (ē#xÄ($Ä(ē)Ä(ē˜Ä%˜Ņ1xē 'Ċ_%n†`%xŗŸi!ń'ēs'ē%Ä1xē 'Ċ=!Ō%n%zm%˜±i!Ō †`%xŗŸiŠå%˜Ņ &ēs&ē'Ċ'ēs'ē&zÄ7C™Rm¬µÓ¢8 œ&ē'Ä#1°)å”ԁ’ĖqЁ’Ėq– Õ¦1xę h ˜Ó ¦­x†`¹¦­yh­ ˜° Ō䊘¦–.1kl#˜±$å”Ōdb#yq$ń#zkŠź$"ę±”Ō(5Ņ" $ń`s!˜Ó!ē Ċ1xē Ä "Ä ē˜ÄŠ5Ņļ–?q …iÓq Š÷–i†d†r¹ŸÕš†d†r¹Ÿ†d†€Š¹Ÿ”†d‚€¹Ÿ”†d†€†¹Ÿ”†d†€‚¹Ÿ”Ō!†d†v¹5°”ŌļŠ  ļŌqhŠØ†d†r¹ń5‘…°†d†n¹”Ōq †d†n¹Ōq p…iӐ ЅҐ ‹Z’’Ė„q 5Ņ 1xē 47¢’ĖÄ6Ó^…iÓq ŠS†d†r¹†d‚€ ¹ Ō 6큒Ė„q Š2†d†n¹Ō 6Ė„q І`†dÅq …iӐ Š 5Ґq Šž–‚q …iÓ …iŅļ q †N*lĶpREFERENCPROSESS INITIALITREEDUMPPROCTREEDOPASS Šš–÷q …iÓf…iŅ]†d†€Š¹†d†€†¹ †d†€‚¹ Ō/q …iŅqh5Ņ ēÄļq …iҐ Š ’Ėqq Š ļŌqhq Šq Š•q – †d )INITIALIbˆ€HĖīׂ€Åˆ€HĖīׂ€Åˆ€HĖīׂ€ ň€HĖīׂ€Åˆ€HĖīׂ€Åˆ€HĖīׂ€Åt š`t št ƒŲŚŌą aŠŚ„š‚ąt š`t št ƒõŚŌą aŠŚ„?Ō}š‚żt š`t št ƒ‚ŚŌą aŠŚ„š‚‚t šˆ€HĖīׂ€Åˆ€HĖīׂ€Åˆ €HĖīׂ€"ň €HĖīׂ€&ň €HĖīׂ€*ň €HĖīׂ€.ň €HĖīׂ€2ň€HĖī`t št ƒ‚+ŚŌą aŠŚ„…Ō)š‚‚3t š„€Pt št †ƒy„˜vpŅך‚‚Ft š„;€Pt št „;‚‚YčŌp„;‚‚Zč„;‚‚\č ×‚€6ň€HĖīׂ€:ň€HĖīׂ€>ň€HĖīׂ€Bň€HĖīׂ€Fň€HĖīׂ€Jň€HĖīׂ€Nň€HĖīׂ€Rň„;‚‚ač „;‚‚fč å„†‚L„;˜vpŅ¢–€ŽĀ˜„†s1¤‡˜Ä‡ē˜Ä‡ē˜Ä5큒Ė„’Ė„ €ČĖ„ €ČĖ„ ’Ė„’Ė„įၒĖ„ €HĖīׂ€Vň€HĖīׂ€Zň€HĖīׂ€^ň€HĖīׂ€bň€HĖīׂ€fň€HĖīׂ€jň€HĖīׂ€nň€HĖī×€ „‡Ō\†@ƒ‚kĒŽ`†@Šƒ‚qŪĒŽ†0ƒ‚yĒŽ† `І0Šۃ‚}ŪĒŽ†P`І0Šۃ‚ƒŪĒŽ„„i„„„„…¢£ķ’‚€rň€HĖīׂ€vň€HĖīׂ€zň€ €HĖīׂ€~ň€!€HĖīׂ€‚ň€"€HĖīׂ€†Åˆ€#€HĖīׂ€ŠÅˆ€$€HĖīׂ€ŽĖ„‡…”Ō8q †‚L‚‚‹t p†‚Ltp†‚L‚‚§t p†‚Ltp†‚Ltp†‚Ltp–attach blockreablockwriclose concat copy delete ň€%€HĖīׂ€’ň€&€HĖīׂ€–ň€'€HĖīׂ€šÅˆ€(€HĖīׂ€žÅˆ€)€HĖīׂ€¢Åˆ€*€HĖīׂ€¦Åˆ€+€HĖīׂ€ŖÅexit fillchargotoxy halt idsearchinsert ioresultlength mark memavailmemlock memswap moveleftmoverighpos pwroften–{#†€Ž‚€®Å†€Š‚€²Å†€‚‚€¶Å†€†‚€ŗÅ†~‚€¾Å†z‚€Āņv‚€Ęņr‚€ŹÅ†n‚€Īņj‚€Ņҁ$ńpАa€,€HĖīׂ€ÖÅa€-€Hrelease scan seek seminit signal sizeof start str time treesearunitbusyunitcleaunitreadunitstatunitwaitunitwritĖīׂ€ŚÅa€.€HĖīׂ€ŽÅa€/€HĖīׂ€āÅa€0€HĖīׂ€ęÅa€1€HĖīׂ€źÅa€2€HĖīׂ€īÅa€3€HĖīׂ€ņÅa€4€HĖīׂ€öÅa€5€Hvaravailvardispovarnew wait program procedurprocess functionconst type var begin end unit abs arctan Ėīׂ€śÅa€6€HĖīׂ€žÅa€7€HĖīׂÅa€8€HĖīׂÅa€9€HĖīׂ Åa€:€HĖīׂÅa€;€HĖīׂÅa€<€HĖīׂÅa€=€Hatan chr cos dispose eof eoln exp get ln new odd ord page pred put read ĖīׂÅa€>€HĖīׂÅa€?€HĖīׂ"Åa€@€HĖīׂ&Åa€A€HĖīׂ*Åa€B€HĖīׂ.Åa€C€HĖīׂ2Åa€D€HĖīׂ6Åa€E€Hreadln reset rewrite round sin sqr sqrt succ trunc write writeln +How wide is your outpĖīׂ:Åa€F€HĖīׂ>Åa€G€HĖīׂBÅa€H€HĖīׂFÅĒ„h€HĖ€H€Hˤ#h ‡#²Ō&†da €HĖī×Åq¤"5҇"ēÄ ķhŠÓ–$„ut device ? [40..132] 1Please enter the file you wish Cross-Referenced: .text%Do you want intrinsics listed? [y/n] @ކ€ö‚JėPaƒKĒŽš‚St pš†tpšt p…€(€„¼ŚŌٚ‚it š†€ö€Pt št †€ö‚‚čŌp††€ö˜vpÓ"†¤d„d@.Do you want initial procedure nestings? [y/n] @@-Do you want procedure called by trees? [y/n] @†€ö˜€Pw„d‚ƒ€Uw„d˜vpŅ„š‚†t š`t št ƒ™ŚŌą aŠŚļš‚”t š`t št ƒ¹ŚŌą aŠŚ„…Ō(š‚Į@(Do you want variables referenced? [y/n] @@,Do you want variable called by trees? [y/n] @@Do  j"˜"|q!{Ō †‚L€*” pŠ †‚L€ ” p!xj"˜"|q†‚L€ ” p­z¦­¢’˦‹[’†‚Ltp†‚Ltp ļ–q%Ō&Š&–  !Building Variable called by trees"Printing procedure called by treess%Printing Variable referenced by treesProcedure  eh?? extt fmll extt  ’š’į’Ć’Ņ’ ’  :  :   :: ::ø 2 Called Byy-------------------------------/Procedure Variable Referenced By/-----------------------------------------------,\O ךyou wish warnings ? [y/n] @@%Please enter your warning file name: $Please enter your output file name: #1:Console::CONSOLE::console::ž’’ž’’’€€S (6 Absolute/Relative Program/ProcedureĢPROCTREE™d„ «®hij!å ˜±”Ō_( Äd ēŗń xhŠd ē»ń yhŠi5Ņ6"åd ē¹”Ō)®yk( Ä# ē ŗń xhŠ# ē »/Function headingg6-------------------------------------------------------Ą ƒÕń yhŠjŠŹŠ™5Ņ!¤ Š"¤ – “af«®h ˜Ó% Ä xhŠō–©­k&Ō(as!l$˜Ä$ē#Å$ē#|ĒÄ#˜bļ"s"!ċĮ5Š ` sŠ ` sŠր l$ē˜Ä$˜Ä5Ņ$ē®xÅ$ē®x|ĒĊ®m$ē%xÅ$ē%x|ĒÄ$ē %yÅ$ēs$m%˜Ä%ē­Å%ē­|ĒÄ®˜Ņ ¦ŠE®ē ēŗń 5Š®ē sŠ ®ē sŠր®ē Ċ5Š® sŠ ® sŠր ® ĖS!˜±Õ!h ęļ5Ņ ę ¦Š ę ¦3Ō<7€2Ņ*štpš€{” pš7tpš‚€t pŠ š€.” p7큒Ė„5Ņ­˜Ó­x˜ˆ­y¦ŠēŠ­˜Ó­x˜ˆ­z¦Šē ļ–0"˜±ÕŠ"h y˦ 5Ņ ē ˜­q†‚L‚kTREEDUMP:7`c«%Ņ †‚L`t pŠ †‚L%tp–l"˜±Õ("h ęLtp†‚L ę tp ę ’Ė‚€ļ ęŠ]…҆‚L‚€t€t p ē˜ ~q†‚L‚€t p ¦ ­ ˜Óu­ i­ …°­ ±”Ō;†‚Ltp5҆‚L€ ” p†‚L‚€t p†‚L€ ” p†‚L‚€t p!ē˜!}q†‚ pŠ †‚L‚€ t pŠ=†‚L‚€ t pŠ.†‚L‚€t pІ‚L‚€t pІ‚L ętpŠր†‚L‚€!t p"˜"|q†‚L‚€#t p ę ¦’˦L‚€t p­ 큒˦ ­ x¦ І†‚Ltp†‚Ltp xļ–& ˜hasĒo3Ō<5Ņštpš‚€t pštpŠštpš‚€,t pštp­˜Ó[­i­…°­±”Ō!†‚Ltp†‚L€ ¢” p†‚L‚€%t p!x˜!x|q†‚L‚€'t p­y¦­큒˦Š †‚Ltp ļ–`#˜±Õč#h ęļ#’Ė„03Ō<5Ņštpš‚€=t pštpŠštpš‚€Ot pštpq 5Ņ*†‚L‚€bt p†‚Ltp†‚L‚€rt p†‚LtpŠ(†‚L‚€‚˜#|q†‚L‚€)t p ę ¦’˦­˜±Õ„­˜±Õž­i­ķ…³Ō(’˦†‚Ltp†‚L€ ” p†‚L‚€+t p†‚L€ ” p!y#Ó­큒˦!yt p†‚Ltp†‚L‚€št p†‚Ltp as– ń’÷’ė’ō’ļ’ö’}   ::  :: "Building procedure called by treess !ē"Ċ!ē"Ėj†`†dÅ5Š `sŠ ` sŠրč%ŌŠ,1y˜Ņ1ē Ċ ba1y‘"ń!k†d#»ń#ē Ċ#ē Ä"åՁ k#†dÅ#ē…hĒÄ#ē˜Ä#ē˜Ä#ē…REFERENCČI¦†‚L‚€t p­²Ō†‚L€ ” p­큒˦Šā–·c„ «i’ˁ’Ėjh "²ŌE'c ķĖī§€ °”Ԑ Š- (˜Ä#ē˜Ä#ē ˜Ä#ē 5ĖÄ5Š<#ē 47¢’ĖÄ#ē ’ĖÄ#ē ˜Ä$5°”Ō#ēĊ#ēĊ#ē ˜Ä#ē ˜ÄŠրģ n$Ō   Š1!n! 5Ņ(!ęŅ1ē!ę Ä!ēÄ!ŚŌ†‚Lc ķĖī§€ £” pІ‚Lc ķĖī§” p ķhж'!å”Ԑ – ‘†‚L47¢tp†‚L€/” p†‚L7tp†‚L‚€t p€ČĖh<Ņ< ;³Ÿ†€’ €ČĖē47¢’ĖĊ’Ė‘–bh ń‘h2€(Ņ‘2€*ҁ’ˑР2€{ҁ’Ė‘2!ŅŅ!€*Ņ‘h2€)°2€}° Ō¾‘–’„7’Ė„’Ė„€ČĖī§€ °”Ō ķ€ČĖhŠć9Œ „ 9²ń †‚L€ 9Œ” pŠ9=²ń †‚L€ =” pŠ'=³ń" ;³Ÿ†€’ €ČĖī§€ °” =į²”Ō ķ€ČĖhŠŽ ;³ń†‚L†€’ €ČĖī§” p„ €ČĖ„ € „p–®-‘…Ō‡.‹ 2€$Ó‡.‹ża‚€šė(‘2€IÓ‡.‹č‘2ƒ€ńŚŌ‡.‹Õ†„¦vp…ԁ’Ė‘€(‡.†€’:€ČĖīp ķ€ČĖhŠß†‚Ltp–\7Ņp„š‚€t p ‹‡š‚€t pŠ{š‚€t pŠlš‚€)t pŠ]š‚€9t pŠNš‚€It pŠ?’Ėha Ȇ€’:€ČĖīaģ p3Ō%štpš‚€ōt pša˜t pštp5Ņ%†‚L‚€żt p†‚La˜t p†‚Ltp†‚Ltp†„¦a˜vpÓ4†„¦¤„š‚€[t pŠ0š‚€gt pŠ!š‚€vt pŠš‚€‡t pŠր™š‚€¤t pš7tpštp–ā…Ō|8큒Ė„ †ƒy‚€Ŗt p ŠC†a˜€(w„‚€-w„˜vpÓ ’ˑАА–. 2†0ŠŚŌ‘Šó2€.Ņ"†€’:ķ€ČĖ0ŠŚŌ‘2†0ŠŚŌ‘Šó2€E°2€e° Ō‘2€+°2€-° ŌoDOPASS źŅas5Ņ&3Ōš‚€t pštp†v†‚L ” pq …iÓ ’Ėq‹v†d†€Ž¹Ÿ†d†j¹Ÿ”Ō ’Ėq‹U†d†€Ž¹ƒy†`t p†ƒy‚€Æt pŠ,†ƒy†`t p†ƒy‚€¹t pІƒy‚€Ęt pŠրՆƒy‚€Śt p†ƒy7tp†ƒytp–dĖ:;³ń):ķ€ČĖ„ †€’:€ČĖī§„Ō„Š„r…åÕ9…i±…i ±”>å”Ō ’ĖqŠ 5Ņ„ qq 5°Õ…3Ōštpš‚€t pštp†‚L‚€t p†‚L€ ” p†‚L‚€&t 2€.°†d†n¹”Ō„‹N3Ō<7€2Ņ*štpš€{” pš7tpš‚€Žt pŠ š€.” p…Ō‘€ČĖ„ …ÕƆ`tpŅW ’Ė„†a€p†‚Ltp’Ė€%¢’Ėkh #²Ō†‚L€-” p ķhŠė†‚Ltp0” †‚LtpŠK3Ōštpš‚€/t pštp†‚L‚€Et p†‚Ltp†‚L‚€YtČt p†t pa¤g„ga˜€Čw„g‚€ą€Éw„gėČaģ§„a§£€ČĖ„ a솀’€ČĖī;pŠV†a€Čt p†t pa¤g„ga˜€Čw„g‚€į€Éw„gėČ7큒Ė„ p†‚Ltp0” 3…5°”…5°” ”Ō/štp‚€m” j"'³ńš‚€nt pštp” as–Initiaize Pass 2, VariablesPrinting Staģ§„a§£€ČĖ„ a솀’€ČĖī;p€ČĖ„ ‹:…Õ͆„¦tpŌY€ „€ČĖ„ 47¢’Ė„…’Ė„„†„¦vp5Ņ'†‚L‚€āt p†‚L†€ö˜t p†andard TreesHead Body Notes  Calls Made Too*Now Printing the variable reference tabless'Procedure References Var‚Ltp†‚Ltpp†„¦tpń';ķ€ČĖ„ †„¦†€’;€ČĖī¤g¤h„it ‡h‡g‡iČpŠĻ;ķ€ČĖ„ †€’;€ČĖī€ Č†„¦t p7큒Ė„€ČĖ„ †€’€ČĖī§„Šh†iables'---------------------------------------+Memory small, variable trees not guaranteed tpń';ķ€ČĖ„ ††€’;€ČĖī¤g¤h„it ‡h‡g‡iČpŠĻ;ķ€ČĖ„ †€’;€ČĖī€ Č†t p7큒Ė„€ČĖ„ †€’€ČĖī§„–€Ėœ"Ä ˜±"xå”Ō$! Ć` »ń ~hІ` ŗń }hŠ"ĊӖĄ`s !Ä ē˜Ä ē1Ä „9ķၒĖ„ –ä0h ˜Ó ¦†` »ń ęhŠ hŠä– 0˜Ņ"„А i†`!»ń y†„„įv†‚L†ƒxįv††‚Kįvš‚Žt pš‚¦t pštp’Ė„u…Ō” u?Ō” 8Ņ †ƒyvpІƒyvp†‚Lvp†„¦v†ƒyÓāéāé]LųSTUFF# 5£ø ŽYĄÓN-,ĄbĄÓŚ) źŠ0=€Óö0 źv†‚Lv†v–'ss FATAL ERROR - No "program" word"No identifier After prog/proc/funccToken After heading unexpectešRECOVER č­…€MĖ× h Ä ēÄ ēŹ ē†ė ē0ķÄ ē…€MĖĚ‚€r š†r …ƒ€ŚŌģšr…€YŅ42…ģddLost ".", check Begin/case/ends#Same name, but not forward-DeclaredInclude File not founddNested Include file not legal UnippŅš‚€r šrŠš‚€ r šr–ˆ …˜Ņ†s…†ė …ē˜Ä‹µ…„…†蟅~˜±”Ō …~„Šä…†čńts not in legal syntatic formm"No Identifier after const/type/varr v’…’”’£’²’Į’Š’ß’ī’ - AT LINE Warning: : may be undeclar…ēs…~†ė …~ē˜ÄŠl†§³Ō††˜`t`놁h`†˜t`‚€5t`†˜t`놁솁짢Ȇģ§€9²ń†ģ€0Ȇģ†ed: may not be initializeddNot Standard, Nested commentsŗ’Ō’ī’ line #}   Return to ń’÷’Į’ń’ (Includeģ§¢Čļ– µ1턆‚€6놁ģ1 €0¢Č†ģ1 €0¢Čļ–> †)’˧€ Ņ)ķ¤ Šķ†)’˧ƒ€;ŚńļŠY†‚€AėĖh†)’˧ƒ€F file is::Include file is::.TEXT uses packed segment interfac'{²’š’“’ė’Ų’Į’Į’Į’Į’Į’Į’Į’Į’Į’Į’Å’ņ’ƒ€LŪŚ ³Ÿ”Ō ķĖh† ģ†)’˧Č)ķ¤ ŠĒ††˜a taėļ– w!ÄpŅ*h† ’˧° ’³Ÿ”Ō ķhŠē† ’˧Ņ!Ė`&‹ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’¬’+ProceduŪ#%ķÄh##xķÄ2†#xp’ji!"²Ō)†!’˧⼠ā¼Ū ā¼Ūā¼Ūƒ€PŪŚńh!ķiŠŅ#x$³  Ō³ Ō##xīċ€#%Ä##xķÄ2†#xp€@i†!’˧ral Cross-Referencer - Version S-02.IV.0.aa/PROCEDURAL CROSS-REFERENCER VERSION S.02-IV.0.aaŠY³ĖāōŠ Yµsƒ€XŚŌ!ķiŠé!€¾³h ń5h¦’ji!"²Ō†!’˧Óh!ķiŠč Ō2†#xķp`ļ#x$³  Ō Ō##xīĊր^–”i…ķh!…² !±”Ō‡…!€0Ė^'yEXTRAHEA EXTRAIO STRINGOPFILEOPS PASCALIOHEAPOPS  MĖ× x²Ō!hŠ!ķiŠÜ …²Ō/… €MĖ× x³Ō … €MĖ× x¤… ji!"³Ō…!ķ€MĖ× …!€MĖ× Å !īiŠŽ… €MĖ× j"‡Ä"ē/ķÄ"ē.Ź"ē ‘2†0ŠŚŌ‘Šó– „i†d‚ ÅĒ„h’Ėh’Ėi!²2† ŠŚ”ŌO2†@ŠŚŌ†d Ėī2€ ¢Č…h īā¼ŪĒ„hŠ2€_Ņ ī’ĖhŠ †d Ėī2Č!큒Ėi 큒Ėh‘Ф2† ŠŚŌ‘Šó†d‚ ¹ŌN…Ō„†d†~¹Ÿ†d†z¹Ÿ”†d†v¹Ÿ”†d†€Š¹Ÿ”†d†€†¹Ÿ”†d†€‚¹Ÿ”Ō‘ м„i†d‚¹†ńRECOVER d‚¹ Ō„i†d‚¹Ō„„i–­ „i2†PŠŚŌr2Šj‘„iŠf‘2€*Ņ€*Š„iŠT€}ŠN‘2€'Ó‘Š÷‘Š?Š;‘2€=Ņ„i‘Š„iŠ(‘2€.Ó „iŠ „i‘Š‘„iŠ‘„iАŠցŠ‘…i±Õ|’–ķ †‚L ” p†‚L‚tt p†‚L‚Št p†‚Ltp†‚Ltp†‚Ltp–v †„¦†…Ņįv†ƒ€€€€€€€€€€€€€€€€ r š‡rš€-uš/ršr–6h¦jk"@†§£³Ÿ#å”Ōi†"’˧ƒ€vŚŌBi†"!¢’˧†!ķģ§°!³Ÿ”Ō!ķiŠį†"¢’ĖNTER TODAY'S DATE MM-DD-YY:USER'S DISK IN DRIVE:USER'S VOLUME ID:@’’’’G@’’’’GHow many blocks on disk ?  foundd§†ģ§°!°”Ōk"¢šŠ ķh ²ń@j¦"ķjІ­å#å”Ōš–Æ#⦁’jh "²Ō† ’˧Ó#Ä ķhŠē#xŌ2†%ķp#ļ#xŌ2†%/Are there still IMPORTANT files missing? (Y/N) @ž¤Čˆj5ŚS²>!ŻĘYQ ĮEXTRAIO STRINGOPHEAPOPS ¢p #x!å”Ō%$†ļ%…ļ #Ċ#Ä2†%p–f&Ā@h† ’˧ƒ€~ŚŌ ķhŠé& €¾³Ä&xՈ€@ļjmh %²Ō_dˆ Œ’˧ČdPASCALIO ˆ Œķ’˧Č$idˆ Œ¢’˧Čdˆ Œ¢’˧Č!$¢k#"²ń#j ķhŠœ("¢'³ń("¢o('†ļ(…ļ – žk…ih !²Ō%… €MĖ× j­"x³­"y³Ÿ”Ōk"y¦ ķhŠÖ– …€M³Ōp…€MĖ× y Ņ hŠh 0²ŌA Ō:2† p 0a !ń 0a !Ō…ķ€MĖ„…€M²ńp…h ķhŠŗ–D…h2 p2 p2 p2 ģp–Œšbrš`r šcrš`r šaršr †#ĖŹ†" Ėʆ !€dĖŹ–ųš‚€„r šr˜„†‚€‘넆‚€“ėš‚€—r š‚€¦r š†ršr š‚€±r š†r šr –ĻkōCPMBOOT CPMUNIT …"× i"ŅW!x°!ēɰ”!ē§²Ÿ”!ē§²”!ę³”!ę€M²”Ō(h !ē§²!ē §ƒ€ŗŚ”Ō ķhŠå !ē§²ńkŠm!ēɲŸ!ēɲ”!ē§²Ÿ”!ē §²”!y!x³”!ę ²”!ę ²Ÿ”!ē  ɀd³Ÿ”Ō(h !ē§²!ē §ƒ€ĄŚ”Ō ķhŠå !ē§²ńk–~ †ösŌ…× j"ī„"ꄁŠ&š‚€€€Ęr š†ršr pŅć0ī„€M„h …²ŌS Ō!š… × ē˜r š‚€Ōr šrŠ' …ji!"²Ō…!× …!ķ× Å !ķiŠę… ķhЦ–Ķ ‘šrš‚€Ųr š†r …ƒ€šŚń š†r Šźš…ušr…€YŅ‘‘–%GO AHEAD AND UPDATE DIRECTORY? (Y/N) CPMBOOT B0¤‚1šŅ$š‚€s ššsš‚€s šs €+¤‚š`‡‚€+£ķī×@‡‚pp±¤‚‡‚ķ¤‚‡‚€+‡‚¢ī²Ÿ‡‚@WRITE OKK)SECTOR ID ERROR--DISK MUST BE REFORMATTED.DUMMYNNXXž’’ ž’’’’’’’’’’’’’’ Ōɇ‚Ōš‚€s š‡‚īsšs‹Š1šŅ"š‚€-s š1sš‚€=s šs ‡‚¤‚1`‡‚‡‚£ķī×@‡‚pp±¤‚‡‚ķ¤‚‡‚‡‚‡‚ĖŹ"ēŹ.҆kc†˜tc‚€btcė.҆kc†˜tc‚€etcė"熁ė"ē ĖÄ"ē †Åš‚€hr š†˜r š‚€k’ž’’"’€’.TEXT.CODEFile  inserted at blocks ž’’’’’’’’’’’’’’’’ž’’Recover - Version II.0.gg022PROGRAME   –Put CP/M disk into drive  and type >&Error reading CBIOS at logical sector Put bootstrap disk into drive  Number of blocks in buffer, Must be even} "TYPE $byte = 0..255; $buffer_range = 0..buffer_size; $map_range = 1..map_size; and type >&Error writing CBIOS to logical sector Entering get_nextPut CP/M disk into drive  and type >Leavi¢ī²Ÿ‡‚ Ōɇ‚Ōš‚€Gs š‡‚īsšsФ‚–‚ÉŌš‚€[s šs­ķ¦­³ŌH1šŅ$š‚€ds ššsš‚€qs šng get_nexttEntering out_data l_sector= out_index= data==Put bootstrap disk into drive  and type > l_sector= out_s ˆ-ˆ‚0ˆˆˆrńp¦ˆ‚0­§h €²ń €€£h iŌš‚€{s šs–ŻŌNš‚€„s šsš‚€s 𮄇sš‚€’index=Leaving out_dataaEntering convert_ASCIIIb1= b2== convert_ASCII ==Leaving convert_ASCIIEntering process_a_line old_as š­sš‚€˜s š!sšsˆ/­!Č­ī³ń­ķ¦Še1šŅ"š‚€œs š1sš‚€¬s šs h®„‡®³Ÿ Œ€€³Ÿ”Ō1ˆ/ €€Œddress==Checksum errorr data_bytes= new_address=Leaving process_a_lineeEntering get_HEX_codeLeaving get_HEX_codeeEntering ®„‡p®„‡ķ¦„‡ ķhŠĻˆ/pŌ<š‚€¶s 𮄇sš‚€»s š­sšsš‚€Įs šs–Ōš‚€Źs šsšišh!write_codeEnter name of .HEX file: .HEXX.HEXX Can't find Error writing Leaving write_codeeCP/M Boostrap Generator[A1€0€9¼ŚŌ b!€0£ŹŠ b!€A£ ¢Ź €0€9¼ŚŌ b €0£ŹŠ b €A£ ¢ŹbÉkŌNš‚€Ös š!sš‚€Ųs š sš‚€Ūs šbÉsšsš]] bootstrapprimary bootstrapCBIOS from a .HEX file (Y/N) ? CBIOSGeneration complete$Put in system disk and ‚€äs šs–‡Ō(š‚€ļs šsš‚€ūs š)xsšskji"Œ!¢m%±(x±”Ō%)x£(x£on&'³Ōļ&īnŠó)%Ä(#Ädtype >qŹē›F| ųSTRINGOPPASCALIOCPMUNIT  #¢"¢!¢Ź#on&'²ŌhddÉ ¢Ź ļ&ķnŠåddɐ¢ŹdÉÓš‚s šsŌ9š‚ s š#sš‚s š%sšsš‚s šs– óŌš‚#s šsnmlkījiˆ/p¦¦h €:Ņˆˆ Ņėi nŌš‚.s šs–ė…„„]„„ˆ¬PŌš‚9s šs¤„Ї„‡‡„†¢iš‚Cs š„„]˜s š‚Ks šc€Ps šs c§Ņp‚Rc˜tŅ c¤„2„„2c˜€Pt„„2‚U€Tt„„2ėPc˜„-r¤„1‡„1ńš‚Xs šc˜s šs‡„1Õn’ńš‚^s š„„]˜s šsФ„ŠŌš‚fs šs–„‰‚p‚|r "CONST $bytes_per_sector = 128; $sectors_per_track = 26; $tracks_per_disk = 77; $map_size = 16; {Number of bytrŌhšs‚r„1ÓU‚„‘ŌIš‚s š†s šs0ƒŚŌ‚„‘„Š‘„2Ōš‚Øs šsšsš‚²s šses in disk allocation map} $buffer_size = 1024; {2 blocks + 1 (Must be multiple of 1024)} $buffer_blocks = 2; {! a header containing the 'title' $and 'version' of the program. Must be called before any routines within $this Unit are calle $sector and put them into the 'buffer'. &This routine will return TRUE if a valid read was done or FALSE $is not. &One would. "} "FUNCTION get_drive(title: STRING): INTEGER; "{ (This function returns the drive number for the 'title' unit $desiredd normally initialize i,j and k to 0 and repeatly call $this routine until the entire file was read. "}  IMPLEMENTATION . The drive number 0 is used as an abort. "} "FUNCTION get_char: CHAR; "{ (This function returns the character reads from t he CONSOLE. $It will always return upper case. "} "FUNCTION read_directory: BOOLEAN; "{ óCPMUNIT 8US„+„V¬Pa„T¬PŌš‚€r šr`s†p„†ī×Ćī×Ćī× Ćī×Ćī×Ćī×Ćī× Ć(Finds out which drive to read the directory off and reads the $CP/M directory on the given drive. (It is known to be the firī×Ć ī×Ć ī×Ć ī× Ć ī×Ć ī×Ćī×Ćī×Ćī×Ćī×Ćī×Ćī×Ćī× Ćī×Ćī×Ćī×Ćst DIR_SCTR_SIZE CP/M logical sectors $on the DIR_TRK track. (Returns the directory in the globals variables: directory $and dir_structure. (Returns TRUE is the read is successful, FALSE otherwise. (Sets global variable 'drive' and 'dir_read'. "} "FUNCTION find_a_file(the_name: STRING; VAR the_file: finder_rec): BOOLEAN; "{ *Find the specific file in the global directory and return $its attributes in 'the_file'. *Returns FALSE if search is unsuccessful and 'the_file' record $is junk, otherwise $map_array = PACKED ARRAY [map_range] OF byte; $map_rec_p = ^map_rec; $map_rec = RECORD 0extent: byte; 0map: map_array; 0nTRUE. "} "FUNCTION list_directory(force: BOOLEAN): BOOLEAN; "{ (This routine will list a CP/M directory. $'force' is used text_rec: map_rec_p; .END; $finder_rec = RECORD 3records: INTEGER; 3disk_map: map_rec_p; 1END; $a_buffer = PACKED ARRAY [buo display deleted entries. (Returns TRUE if directory read was good, FALSE otherwise. "} "FUNCTION read_a_file(the_file: findffer_range] OF byte; " "VAR $dir_read: BOOLEAN; { Directory read into core Boolean } $CPM_drive: INTEGER; { Der_rec; VAR buffer: a_buffer; 8VAR i,j,k: INTEGER): BOOLEAN; "{ rive from which directory was read } " "PROCEDURE initialize(title, version: STRING); "{ (Initialize the Unit and write out &This routine will read up at most 8 sectors from 'the_file', $starting with the 'i'-th extent, the 'j'-the map and the 'k'-th" ! ī× §Ź#ē! ī×§Ź! ī×#ēp ķhŠ„l„Ōš‚€–r šr–,Ō@š‚€¢r šrš‚€®r šˆS˜r š‚€“r šˆ€€Œ"!‘ ppÓp"ķj"²ńj!ķi!€M²ńp((xķċ'’(xŅ(Ä))xķÄ)xŅ)Ä**xķÄ¤Ōš‚„r šr– n –Entering inS§ršr¤-ˆS§¢ķ²ˆS‚€ŗčŸ”Õ܈S§ji!"²Ō#ˆS!§ƒ€»ŚŌˆS!ˆS!§€a£€A¢Č!ķiŠŲˆSjbˆS˜€Ptb‚€Ć€RtbėPˆ€ pˆSitialize Leaving initializeeEntering get_driveeWhat unit is the  disk (0,4,5,9..12) ? Drive not on-lineeLeaving get§€.ˆSpiŌš‚€År š!ršr!²Ÿ!²”ŌR¤-ˆSˆ!pˆ€ pˆS§!££hŌš‚€Źr š ršr ²Ÿ ²”Ō ˆS!¢ˆ _drivež’’File Control Block Entry_type: File_name: file_type:  File_extent:  record_count:  Map: EpŌš‚€Šr šr–, {„S„}¬PŌš‚€Ūr šr„€€p¤ ÕĒi¤ Ō;š‚€ęr šrš‚€ör šbr š‚€śr šfntering read_directoryCP/MMLeaving read_directoryyEntering test_the_namee The_name: Length: ž’’... Dot_lr šr!€@²*„!ī×x å”Õ\†!īפOb‡Oē¹f‡Oē¹”¤ *Õ5‡|¤PŌ2š‚€žr šbr šfr š‚r š!ršr‡Ox¤ „!ī×oc: Ext_size: Leaving test_the_nameEntering find_a_fileeEntering find_a_file WHILE loopName:  Ext: Found the file:  ćP‡OēÉćPē s‡Py‡OēÉćPyē‡OēŇPyē ˜Ä!ķ€@¤Qh ‡Q²Õ°† īפRb‡Rē¹f‡Rē¹”‡Rx(°”ՆŌš‚ r š ršr„ as FCB Adding a map - FCB Leaving find_a_file WHILE looppLeaving find_a_fileEntering write_directoryyK) K Leaviīץ s‡P‡Px‡RēÉ¢Ä+‡RēÉÄ+ē‡Rēؤ‡Py¤ ¤ ,˜±)å”Ō,x+x²Ÿ¤ )ń,¤,ę ¤ Šć-˜Ņ‡Pē+Ċ-ē +Ä+ē ,Ä ķh‹I’Š!ķi‹’žŌš‚ng write_directoryEntering list_directory%Error in reading directory from unit Leaving list_directoryyEntering read_a_fileeir šr*¤Ōš‚&r šr–~‡OŌš‚0r šrb€€p¤JŌ€@¤Li!‡L²Ō†!ī×!‘ !ķiŠģ€@¤Li!‡L²Õ†!īפM‡Mx°‡P b!ī:  j:  k: track: sector: PASCAL absolute sector: Leaving read_a_file’ćo qFyü­ 6 EXTRAIO STRINGOPHEAPī× Ćī×Ćī×Ěrš„+˜r š‚€ r ša˜r šršrŌš‚€r šr–Wō+b„,¬PŌš‚€r šrš‚€"r š×xå”Õį‡Mx±¤Kb!īץC‡MēÅ„G‡MēŇMēɤI‡Jķ¤J!ķ€@¤Nh ‡N²ŌJ† īפO‡Ox°‡K唇Ox±‡K” ‡Oē„C¹”‡Oē„G¹”Ōb ī×ćI‡Ob˜r š‚€+r š`ršr 1ŚŌĻ Ó. p"p°i!ń"š‚€7r š rš‚€;r šr! ° Ō– ¤.Ōš‚€Br šr–-š`r ēÉ¢¤I ķhа‡KŌ š€(uŠš€ uš„Cr š„Gr š‡Iīķr‡KŌ š‚=r Š š‚Ar ‡JŅšr!ķi‹÷žšrŌš‚E ƒ€KŚŌ €a£€A¢iŠ i–Ł$iš‚€Sr š#ršrš‚€]r š!xršrš‚€dr š!ēr š‚€kr š!ēr šrš‚r šr–PŻŌš‚Qr šri‘ń1Óš‚]r š1ršriŠ  Ōš‚pr šr–g f,ÅŌš‚|r šr¤+€rr š!ēÉrš‚€zr š!ēÉršrš‚€ƒr jh "²Ōš!ē ī§r ķhŠźšr–ķ Œ†!ī×x¢īj–ĮŌš‚€‡p'˜±ÕG'h x*x± ę ˜±”Ō ę hŠķ x*x°)x³Ÿ”(x³Ÿ”*xŒ)x¢Œ(x¢&³Ÿ”Õ m%ē)xķk#¢i#ķj(x³Ÿ*xŒ)x¢Œ(x¢&³Ÿ”ÕĮՂš‚‡r šr„l‚€“‘„1±Õ’†„ijh "²Ō 1! ī×@ ‘ ppÓp ķhŠŪ€@jh "²ŌV† ī×k#! ī×§Ä! ī×#ēp! ī× #ēp#ēr š*xrš‚‰r š)xrš‚Œr š(xršrš‚r š!rš‚“r š"ršrš‚˜r š"!‘ ršr1+(x# %p_locked = -1; { Position locked segment status} %stack_slop = 40; { Number of words of temp for procedure stack} %mem9±Šs#2EKERNEL PRINTERRINITIALIGETCMD USERPROG _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} %heap_error= 15; { H€€€ € €€€€€€€€€€€€XAKERNEL KERNEL KERNEL KERNEL eap operation error} %seg_fault = 128; { Segment fault} %stk_fault = 129; { Stack fault} %heap_fault= 130; { Heap opera_āļāļh°ž4.0HܼĢ2ĆfŸL%fDųŗ*¬)fŸL_D‚Å’›€_X.tion fault}    TYPE  %IORSLTWD = (INOERROR,IBADBLOCK,IBADUNIT,IBADMODE,ITIMEOUT, 1ILOSTUNIT,ILOSTFILE,IBADTITLE,INOROOM  CONST %MMAXINT = 32767; { MAXIMUM INTEGER VALUE } %MAXUNIT = 16; { MAXIMUM PHYSICAL UNIT # FOR UREAD } %MAXDIR = 77,INOUNIT, 1INOFILE,IDUPFILE,INOTCLOSED,INOTOPEN,IBADFORMAT, 1IBUFOVFL, i_write_prot, i_ill_block, i_ill_buf);  8{ COMMAND S; { MAX NUMBER OF ENTRIES IN A DIRECTORY } %VIDLENG = 7; { NUMBER OF CHARS IN A VOLUME ID } %TIDLENG = 15; { TATES...SEE GETCMD }  %CMDSTATE = (sys_boot, sys_init, sys_halt,UPROGNOU,UPROGUOK,SYSPROG, 1COMPONLY,COMPANDGO,LINKANDGO,sysNUMBER OF CHARS IN TITLE ID } %MAXSEG = 15; { MAX CODE SEGMENT NUMBER } %FBLKSIZE = 512; { STANDARD DISK BLOCK LENGTH_debug); % H{ CODE FILES USED IN GETCMD } H %SYSFILE = (ASSMBLER,COMPILER,EDITOR,FILER,LINKER);   } %DIRBLK = 2; { DISK ADDR OF DIRECTORY } %AGELIMIT = 300; { MAX AGE FOR GDIRP...IN TICKS } %EOL = 13; { H{ ARCHIVAL INFO...THE DATE }  %DATEREC = PACKED RECORD 1MONTH: 0..12; { 0 IMPLIES DATE NOT MEANINGFUL } 1DAY: 0.END-OF-LINE...ASCII CR } %DLE = 16; { BLANK COMPRESSION CODE } %name_leng = 23; { Number of characters in a full f.31; { DAY OF MONTH } 1YEAR: 0..100 { 100 IS TEMP DISK FLAG } /END { DATEREC } ;  H{ VOLUME TABLES } OPS PASCALIO ile name} %swapping = 0; { Swapping segment status} $ IN BYTES...0=>BLOCKFILE, 1=>CHARFILE } -f_lock : SEMAPHORE; -CASE FISOPEN: BOOLEAN OF /TRUE: (FISBLKD: BOOLEAN; { FILE IS ON link = RECORD 2avail_list : mem_ptr; 2n_words : INTEGER; 2CASE BOOLEAN OF 4TRUE : (last_avail, PREFIXED: PACKED ARRAY [0..8] OF BOOLEAN WIDTH,HEIGHT: INTEGER; >RIGHTNITNUM] OF { 0 NOT USED } 0RECORD 2UVID: VID; { VOLUME ID FOR UNIT } 2CASE UISBLKD: BOOLEAN OF 4TRUE: (UEOVBLK: INTEGER) ,LEFT,DOWN,UP: CHAR; >BADCH,CHARDEL,STOP,BREAK,FLUSH,EOF: CHAR; >ALTMODE,LINEDEL: CHAR; >alphalok,notused_anymore,ETX,PREFIX:0END { UNITABLE } ; $FILENAME: file_table; $junk : processid; $fault_sem : RECORD 2real_sem, message_sem : SEMAPHORE; 2mes CHAR; >PREFIXED: PACKED ARRAY [0..15] OF BOOLEAN; so that file system locks are not enforced } $perm_sib:sibp; { points to a seg always in code pool } $dfliptog:b COMPILER ETC } $EMPTYHEAP: ^integer; { HEAP MARK FOR MEM MANAGING } $maintask : tib_p; { tasoolean; { true when gdirp contains a flipped directory } " debugging:boolean; $permlist:memptr; { list of "permakinfo block of op sys prog } $INPUTFIB,OUTPUTFIB, { CONSOLE FILES...GFILES ARE COPIES } $SYSTERM,SWAPFIB: FIBPnent" new's } " suspectset : set of unitnum; " atsysprompt:boolean; { true if at system prompt } ITNUM; { PHYSICAL UNIT OF BOOTLOAD } 3rwtable: ^integer; { PASCAL res words for idsearch } 3GDIRP: DIRP; { GLOBAL; { CONTROL AND SWAPSPACE FILES } $SYVID,DKVID: VID; { SYSUNIT VOLID & DEFAULT VOLID } $THEDATE DIR POINTER,SEE VOLSEARCH } 3fault_sem : RECORD :real_sem, message_sem : SEMAPHORE; :message : fault_message; : DATEREC; { TODAY...SET IN FILER OR SIGN ON } $STATE: CMDSTATE; { FOR GETCOMMAND } $heap8END {of fault_sem}; 3alt_pool: sibp; 3exp_sys : boolean; 3EXPANSION: ARRAY [1..9] OF INTEGER; 3expaninfo: packed record >_info : RECORD { Stuff for heap management } 2lock : SEMAPHORE; 2top_mark, 2heap_top : mem_ptr; 0END { of heap_info } ; $ta insertchar,deletchar:char; @expan1,expan2:integer; >end; 3HIGHTIME,LOWTIME: INTEGER; 3MISCINFO: PACKED RECORD ?NOBREAK,STsk_info : RECORD { Stuff for task management } 2lock, 2task_done : SEMAPHORE; 2n_tasks : INTEGER; 0END { of task_info } ; $UPID,SLOWTERM, ?HASXYCRT,HASLCCRT,HAS8510A,HASCLOCK: BOOLEAN; ?USERKIND:(NORMAL, AQUIZ, BOOKER, PQUIZ) =END; 3CRTTYPE: INTEGIPOT: ARRAY [0..4] OF INTEGER; { INTEGER POWERS OF TEN } ER; 3CRTCTRL: PACKED RECORD >RLF,NDFS,ERASEEOL,ERASEEOS,HOME,ESCAPE: CHAR; >BACKSPACE: CHAR; >FILLCOUNT: 0..255; >CLEARSCRE$FILLER: STRING[11]; { NULLS FOR CARRIAGE DELAY } $DIGITS: SET OF '0'..'9'; $PL: STRING; $UNITABLE: ARRAY [U' ec_p; n_words,err:integer); "procedure seg_read(seg_erec: erec_p; read_loc:mem_ptr); "procedure s_rloc_seg{(cur_addr:memptr; su’’ˆ’‘’š’£’¬’µ’¾’Ē’Š’Ł’ā’ė’ō’ IO error: Unimplemented instructionFloating point errorrString overflowProgrammed HALTIllegegrelval:integer; var seg_rec:e_rec; 7first:boolean)}; "function ptr_add (p : mem_ptr; n_words : integer) : int_p; "function al heap operationn BreakpointtIncompatible real number size Set too large˜ž¢ž¬ž¶žĄžŹžŌžŽžčžņžµ’¾’Ē’Š’Ł’ā’ė’ō’Segment  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_pProc# Offset# tr) : boolean; "function ptr_geq (p_1, p_2 : mem_ptr) : boolean; "procedure print(s:string); "procedure printint(i:integer); "procedure writestr(s:string); "procedure checkunit(lvid:vid; lunit:unitnum); " implementation rINITIALIī~`‚€ėP„Z˜įr„Z`˜˜r‡aŌo‡c„*€`‡lp0¤~‡~ē„Bҁ~ē„Gҁ~ē‡Hć~ē„Iҁ~ē%„OÅ ‡~ē"É ²ń ‰PRINTERRöź`Ä yh ¤‡{zl‡|j$¤‡z‡x‡x×x"£×xŒ£ie‚€ė(‡‹ee‚€ė(‹^e‚€ė(‹Te‚€"ė(‹Je‚€.ė(‹@e‚€6뇁~ē" ʆT‡~ē"ÉȆT‡~ē"Ép„Zrp"†O×ĆO× ĆO×€dĆOׁčĆOׁ'ĆZƒ€ ĒŽ0ēÄ0Ä0ēŹ–~ `d¬&p"p(‹6e‚€?ė(‹,e‚€Gė(‹"e‚€Rė(‹e‚€`ė(‹e‚€hė(‡‹¦e‚€oė(‹Ÿe‚€yė(‹•e‚€ė(‹‹e‚€‹ė(‹e‚€”ė(Šxe‚€ė(Šoe‚€¦ė(Šfe‚€­ėŅ †€‡&×`ė–šƒ†6āÄē˜Ä†€ķ× ‚€ė†€ķ× ‚€ė†€ķ× ‚€!놀ķ× ‚€)놀ķ× ‚€0놀턁4€xpǤp„˜įr¤qh ‡q²Ō(Š]e‚€µė(ŠTe‚€¼ė(ŠKe‚€Äė(ŠBe‚€Ėė(Š9e‚€Ōė(Š0e‚€Ūė(Š'e‚€äė(Še‚€ļė(Še‚€öė(Š e‚€żė(Šց‚e€(” ŠKe‚ė(ŠBe‚,ė(Š,†€‡ פr‡r‚€8뇁rē 0ŚÄ‡rē’Ä ķhŠĶ¤qh ‡q²Õֆ€‡ פr‡r|ÕĄ p"p°Õµ rÕ®‡r0|× ēė 0zŅ!†@‡rėa‚€9ė„9e‚7ė(Š0e‚?ė(Š'e‚Gė(Še‚Sė(Še‚Yė(Š e‚hė(Šցo‚ƒp e˜p ‚„p $ēp‚‰p "p ‚p !p –Unknown run-tima˜˜r‡¦!„r¤s¤3‡3‡s²Ōj 0z°‡3‡pŚ ŌRa¤t„t‡r˜” „t„4‡3× ˜” „tė„a˜˜r‡Ō†€ķ‡3× a뇁p‡3ā¼ŻĒ¤p„e errorrValue range errorNo proc in seg-tableeExit from uncalled procStack overflowwInteger overflowwDivide by zerooNIL pr‡3ķ¤3Š ķh‹"’­$Ō†<†@ė†@„rh-˜Ņ ‚€Ap ŌŠū†D-× ē Å‚€M‚€Q‚€U‚€Y‚€]‚€`–ƒM…8ēāÄē" userlib:fullid; { library text file } $syslist:e_rec_p; { last unit placed on unit_list that is a >system uointer referenceProgram interrupted by userSystem IO error unknown causeparity error (CRC))illegal unit ##illegal IO requesnit; all subsequent units added >to the unit_list are user units } $pool_base:memptr; { address of bottom used word in cttdata-com timeouttvol went off-linefile lost in dirr bad file nameno room on voll vol not foundfile not foundd dup dir entode pool } $nofit : boolean; {set to true if dumpsegs can't get any more room} " "procedure exec_error(bad_e_rec_p:e_rryfile already open file not openbad input formattring buffer overfloww write protect illegal blockillegal bufferrW’a’k’( ˜Ä…;ēāÄē˜Ä…:ēāÄē˜Ä…9ēāÄē˜Ä†×…;Ć×…:Ćh yēāÄē˜Ä xēāÄē˜Ä–̆<˜Ä†8€ ” …8˜įr†;€ ” `” …; r†:€ ” `” …: r†9€ ” `” …9 r†×…;Ć×…:Ći!ē€ ” !y˜įr!€ ” !x˜įr–@$„„(¬‡*„˜˜r‡*ń8‡&‚€dčń.`¤ „ ‡'˜” „ ‚GETCMD  # ¦k p–;)`„*¬P­ŠÕ`ėP p–+˜…WŌ‚€”„W…3h…3…L±Õź |„3 zę ” zē ” yi!xkj"#€e” „ ‡&˜” „ ė‡*`˜˜r‡%‡*ć%xŌ‡'‡*ē ė‡&‡*ēė‡*r–*цh ēÄ ēÄ ēÄ­$Ō3 ē‚€fė ē‚€gė ē&‚€hė ē†@ė ²Õ¶!l$ē"ī×xm%zn$ē"ī×x˜±Õ•"$ē$xķī×xŅ $ē"īטĊ}%y!Ņx&x˜Ó&|įŅ&&ę ”%ē”Š&ēĊ:0ę&y±”Ō)&ē o&ēÄ'x˜Ó 'xē'yĊ0ē †@ė ē†@ė y‚€i ē ē ē  x‚€r ē ē ē ē0ē,ÉÄ ē0ēÉÄ ē0ēÉĖS …8r†yr†xr…;r…:r`‚€{ė…;`˜˜ē 'yÄ'y˜Ó'yē 'xÄ%ē”"Ņ $ē"īהР$ē"ī×”"ķj‹D’a!x¢”˜h…3h‹ ’…4煁UīטĘ„5…Lh ˜Ó4 yi!k#ē#xķī×xj"±#ē"ī×x˜r…:`˜˜r­$Ō`‚€€ė…9`˜˜r†@‚€…ė†×…;Ć×…:Ć×…9ĆטĆטĆטĖ #`ׂ€Œė`ׂ€Žė`ׂ€ė`ׂ€’ė±”Ō!…4Ó #ē"ī×˜Ä |hŠČ–Ū…9j"i!ęh!{Ņ"!ē k#xē#yÄ#yē #xą2!Ņ#y„2a” i!"ŅϘ€‚p–ih !²Ōˆ ׁj"ēk#įÄ#ē`ׂ€”ė`ׂ€–ė`ׂ€˜ė`ׂ€šė`ׂ€œė` ׂ€žė` ׂ€ ė` ׂ€¢ė` ׂ€¤ė` ׂ€¦ė`ׂ€Øė`ׂ€Ŗė‡$ԐįÄ ķhŠß¦Š{¦Šdį¦Ša–F"§ih !²Ō" §ƒ€ŚŌ " " §€A¢€a£Č ķhŠŽ–;h†x†@˜˜rp°¤ )ńT†x¤‚ „‚ †@˜” „‚ ‚€” А…9ę¤"‡"…9Ó!‡"ē‚€¬¹Ÿ…Wå Ō‡"ēć"ę¤"ŠŲ„?„8„N„:†=ĒŽq ‡$Ōtq š” ‡$Õ¤‡!å՜qš‚€°” š„‚ ˜˜rp°¤ )Ō$†@¤‚ „‚ †@˜” „‚ ‚€” „‚ ė)Õ†x¤‚ ‡‚ ēÉÓ‚€ļ‡‚ 梤 ‡‚ ęo‡‚ ę n¤ *åÕä&„ (p(¢¤ †@˜” š‚€µ” š” š” š‚€ø” š” š” †D¤#š‚€Å” š‡#ɔ š€-”š`‡#Éט” š€-”š‡# ɔ('°¤ k ²#’³Ÿ”Õ±#j’"£ „ "pi„ "!¢§ °¤ !"¢ķk)Պ"!¢i„ "§Ņ"¢j!"£€ „ "pl"$¢j!į"£€ „ !īpl!$¢i!"£m%²ńm%³ŌEˆ… š” ŠŠš‚€Ī” š” –$*SYSTEM.MISCINFOO’:SYSTEM.ASSMBLERR:SYSTEM.COMPILERR:SYSTEM.EDITORR :SYSTEM.FILER* ×+¤‚ „ "‡‚ ē%p‡‚ ē%ȇ‚ ē§€*҇‚ ē ‡‚ ē‚€$čŌ¦Š{ ķh‹B’ ²ń‚€,ļ‹’ ±¤ )ń¦ŠdŠ ¦Šd­Š{Ōˆ…*­Šd×+ē‚€AėPŠ:SYSTEM.LINKERR*SYSTEM.STARTUPCan't find system diskkCONSOLESYSTERMGRAPHICPRINTERREMINREMOUTT:*SYSTEM.WRK.T­Šdī¦Šd­Šd¤‚ h ‡‚ ²Ōˆ…* ×+Ĉ…* ×+ē*Ä ķhŠą¦Š{†xr–‚X!xh!`§Ä``§Č`!xČ! Ė8`‡Ł`€’×x±Õ椁¤‡‡²EXTT*SYSTEM.WRK.CODEECONSOLE::SYSTERM:: *USERLIB.TEXT???JanFebMarAprMayJunJulAugSepOctNovDec?????????REALOPS ՟`‡×`‡¢×`€’×xŅ `€`‡¢×x¤`€`‡¢×`€’×xÓ `€`‡¢×x¤`€p‡¢×`€€‡¢×„ÉŚŌ+¤¤‡‡²Ō`€ Welcome , toU.C.S.D. p-System IV.00Current date is System re-initializedkč"©{z‰ ¬ ‡Œ¢‡¢×‡ķ¤ŠŻ‡ķ¤‹W’`€Š×`€’א‡`Ł–y_­ŠÕ‚€IėP‡b­Šaķćbx²ń‡bĈ‡bxׁ¤,‡`ŅhŠˆ…*‡a×+¤-‡-xҤ+‹īЇ-xh‡aŅ aˆЬėPŠ­Š{Ōļ aˆ…*‡a×+ēėP†xa˜˜rp°¤+‡+åՑ‡a±a‚€JčŸ”Ձ‚€Ra˜” a§£±‚€Ua˜” a§£±a§¢²) Ä&ē„Dė‡<¢le$”$Óf”`‡>¢”­ŠÕ‚€œėP‹„%…4ēī×xxÄ ēī×…4ēī×xÄ x¤]i!‡]²Ō ē!īטÄ!ķiŠģia ē‡>ķī×pia"„H`€’” š” `‚@čŸÕŽ`§0ē,ÉŅ‹ĻŠ~‚A`˜” ¤ ‡ Ó%`‡ ” „˜`€’‡ ” ‚B`˜” ¤ ŠÕ``§§€.Ņ„€`˜„ `§ī” „ ėļ„Q„€¹!#° Ō„H!ķia"„Hļ!³ńß ēī×x¤2„3ń˜¤2ļ‡2¤€”Ї2{²ń ‡2ē‡2{ķć2¤€”–€“o &xkh%x˜±&x…4±”Ō:&xl$ē$xķī×xh Ņ’Š$„€¤ „ `˜€’” „ ‚C€’” „ ė’‡ x„€˜˜rpÓš‚H” š„€˜” Š$‡ ēだēだē恙Ҥ™‡™ļ‡ yr…8%xkŠh$ē ī×x˜Ņ$ē ī×%xēī×xĊ%xkŠE&xxli!$²Ō:&xē!ī×x˜±! ±”Ō$&xē!ī×xj"y&x±&x…4±”Ō %#Ä"ykc%ļk!ķiŠĮ#o–ęŌ „Ь„Š×¬P¤r–™0 †yr…8r†h z²ń {²ńq š” ļŌļŠy 炁Nčńa ē xē ė ē xēė 炁VčńB ē ē ė ē§²ń0 ē˜a ē§£” ŌT†x¤-„-a˜€P” „-‚€X€U” „-˜˜rp°¤+‡+Ō'ˆ…*‡a×+ē¤-„-a˜€P” „-‚€[€U” „-ėP‡+Õ½‡,灤-†x¤.‡-ē‡.ę ć-ē‡.ęć-‡aÄŠŁ‡ŠÕ‚€¬ėP …5˜Ó¤Šb¤Šc„Šb‡Šc„Šfh ‡Šb³”Ō „Šlɱh Ō‡Šbķ¤Šb„Šb‡Šc„ŠfŠ× Ō5‡ŠÕ‚€­čŌ$¤Š|„Š|‚€®” „Š|„Ь˜€^” „‡-ē‡`Ä‡-ē†xē ė‡-z‡.걤+‡+Ō‡-{‡,‡-z ¢pp°¤+‡, ‡+Ō6‡aŅ ‡.ēɰ¤+‡+ń ­ŠÕ¤/„/a˜€P” „/‚€^€Y” „/ėPŠ­ŠÕ¤/„Š|˜Š‡ŠÕ˜„ŠlÉŌ7‡ŠÖŌ&š‚€¶” š” ļŌļŠ‚€¼Š ­jÓ‚€½…4¤Š|‡Š|煁UīׄŠh˜ćŠ|煁Uī×x˜±Õ^…WŌY…L¤/‚€c” „/a˜€`” „/ėPŠ<ˆ…*‡a×+ē*ÄpŅ ­ŠÕ‚€lėPŠ­ŠÕ¤-„-‚€u” „-a˜€X” „-ėP‡+Ō‡bx¦Šaˆ…*‡a×+‡,ꀩĆxr‡+¤c–b¶Š`‡Š`z炀ƹŸ‡Š`˜±”Ō ‡Š`|¤Š`Šį‡Š`˜Ó.‡Š`zx˜°0ęå”Ō„W‚€Ź”‡Š`zu„WŠ‚€Ī”…3¤Š`‡Š`˜ÓO‡Š`¤Š}‡Š}z¤Š~‡Š~|į°‡Š~x˜°”Ō)„#Äh#x² ”Ō'ˆ#xׁi!ēj"x­±"y­x± h Ō##xķÄŠŃ l–8jaŌa&'xļ j'x'xŒ£h"Ō[ˆ!ׁk#l%$ ×Å%ē$ē ×Å%ē$ē` ׊e‡Š~ę ”‡Š~ę Ӑ‡ŠÕ‚€ŅėP‹¶‡Š`„Šep‡Š`|¤Š`Š«‡Š{ńY‡Šd¤Š}¤Šc‡Šc‡Š}²ŌF„…*‡Šc×+¤Š~‡Š~ę*Ō+š‚€ā” š‡Š~ē˜” š‚€ė” šÅ%ē$ēp ×xÄ%ē$瀀 ×Å%ē $瀐 ×Å%ē #ēÅŠ'įĖ d‡Å­i„ Éh Ņ2!ēī×” !ē ī×xēÄ!ē ī×x煁3Ä!ēī×x„” ‡Šcķ¤Šcб‡Š|煁Uī×xy„5˜¤Š_‡Š|煁Uī×xē„Š_¤Š_‡Š_˜Ó‡Š|煁UīׇŠ_ēī×xćŠ|煁Uī×x˜±¤ŠŁ–ŠŲ¶R†€ķ‡S× ˜cļj"åÕ²3Š !ē ī×” !ē ī×xē” !ē ī×xj"zk"ē­Ä"ˆÅ#ēÄ#ēÄ#ēÄ"zēfÅ"zē„ ÉÄ#ē %Ä#ē $‡¢Ä#˜Ä#ē ­Ä#ē ­Ä#ē˜Ä#ē ˜Ä„  †€ķ‡S× ˜„-„1`ar ՞¤9‡9ķ¤9†€‡‡9פF‡F|ŌY‡F‚€ńė‡9rŌJ‡F0|× ēė„:¤G„G‡F˜” „G‚€ņ” „G„1˜” „Gė„:†€ķ‡S× čń „:˜ÉŌ#ēĊ#ēįĖč %„‡&Å­¤‡ ‡¢‡¢i‡Œh¦‡!„ ¢!p ¢³ńd„ ¢c pg§ŅŠtc‚€z¹Ōg§jb‡ēcļj‡9°" ŌŒ"Ō†€ķ‡S× „:ėŠš‚€ó” š„1˜” "¤T–S‚˜¦j‡™Ņš‚€ś” ¤ Šš‚” ¤ š” ‡ ļՋ†¤ ‡ ꇁxķī×pŠ)c˜š¤ ‡ēg§ī×(Ä(˜ŅŠ6c‚€~¹Ō„W ¢hŠ“„ ¢„ £ ¢ £p £h!ķiÕb’g§°¤'–&Õ „€„€’«˜¤€”o… Ō4`¤ „ ‡ ē˜” „ ‚” „ ‡ ē˜” „ ė’‹‚‡™Ņš‚ ” Š š‚” š‚” š`€’” š” `‚čŌ‹ų``3¤2‡2˜±'”Ō„€‡2zē¹Ÿo'Ō‡2|¤2Šą‡2˜°Õ–jokc"„3ļ#³'”Ō1„5„€¹Ÿ„9É „9ɇ€‘± „; ɱ o'Ō #ķkc"„3ļŠČ'Ō"ķj'å"­Šd²Ÿ ŌÆ"§§€.±¤ ‡ Ō$`¤ „ `˜€’” „ ‚€’” „ 뒊``§īȇ y`˜˜rpÓš‚” š`˜” ‡ ē ċŽ„‡ yē뇁 Ō„„˜­Šd²ńS„ €!€ p„€„ p„ ‚€‚„ ˜” īČ­ŠÕ¤]„]‚€ƒ” „]„ ˜€U” „]‚€†€_” „]ėP‹å`‡>¢”‡>¢Ó ­ŠÕ‚€ŒėP‹į ‡>Äf” &‡C„ „§£” „ ė`¤ „ †€ķ‡ × ˜„‚#†€ķ‡ × ˜” ” „˜” „ ‚$€&” „ ė’…8`˜˜r„€‚,ė’‡ ę åÕ“š‚6” š* ” Ō‹ˆš‚‚” 𔠐ԐŠkŠgŠbŠ]‡j°…4煁Uī×x˜° Ōš” š‚‚” Šš‚‚#” 𔠐РŠŠŠŠ ŠŠւ*Õśž–jREALOPSž’’.TEXT.TEXTLibrary File is not a Textfilee*SYSTEM.LIBRARY(Too many libraries in library text file..*SYSTEM.LIBRARY*SYSTEM.LIBRARY.CODE.code.CODE.CODE not codeBad block #0 in IllegalDUSERPROG."xh`§i``§Č`!Č" ĖS „ -Å,×x±Õ,א,×xi!Óu,!א,!×xh Óe,! ¢×,! ¢×x¤ ,א,×x file nameNo file *** REALOPS  Unit not founddUnable to allocate global dataaUnable to allocate global dataaNo ¤ ok)²ń>¤ #'¢ko,! ¢'¢#¢×'³Ō(°,! ¢'¢#¢×x³Ÿ '° ¤ 'ķo*ŌŃ)ī¤ Š½,א,×xk,#א,#×xl$²ń%#īk,#א,#×xm%Ó ,%א,program in Linking....Must L(ink firsttREALOPS REALOPSREALOPSUnable to load segment on heappWarning: library not foun%īא$īlŠÖ,א,×xj"Ó8,"×xÓ0,"א,"īא"£j,"ķ×x¤ k#+²Ō,"א"īj#ķkŠķŠČ–¾`įÄa­Ĉ­ķ×Ä! Å!l$m%ēˆÅd.: Cannot find Assembling... Compiling....:AssembleeCompile what text? .TEXT Can't find :SYSTEM.SWAPDISK*SYSTEMˆ­'×Ä%ēˆÅ%ē%ēÅ%ē&Ź%ē Ä$ē Äb(Å!kj%˜Ä(bÅ– Ś!xh!`§Ä``§Č`!xČ! Ėŗ`‡Ł`€’×x±Õ椁¤‡‡” a‚^čŌ ē& ē˜a ē§£” aė ēÄ­jŅļ– ¤*šŌ„€tŠ=š‚a” 0ēÉń š‚e” š‚k” š„€€’” š” „.WRK.CODE[*]To what codefile? $$.CODE[*]] Can't open SYSTEM.WRK.CODESYSTEM.WRK.CODE.CODEExecute what filee? redir€§²ŸÕ¤‡„€§²„€‡§€=±”Ō ‡ķ¤Šį‡„€§²„€‡§€=°”Ō‡²Ÿ„€‡§€ ±”Ō ‡Šä`„€§‡£ķȄ€‡īČ`§²ń „€‡ection error.CODE: Running....1Monitor: B(egin, E(nd, A(bort, S(uspend, R(esume & no monitor openASŁ’Š’Ō’``§p`§²ń`˜tńš‚m” t p„€§²Ÿ„€„€§§€ °”Ō„€„€§” ŠŪ„€§²ńK„€„€§§€.Ņ„€„€§” Š‚v„€€’„€ä’Ž’ pi="" pi= po=*SYSTEM.STARTUP+Command: E(dit, R(un, F(ile, C(omp, L(ink, -X(ecute, A(ssem, §ķ” „€˜„ļŌļŠ š„˜” –*  †h ęŌUq š” ia ē ˜” a‚y” a ē˜” a˜-ˆļŌš‚z” š” ļŠ šˆD(ebug, H(alt, I(nitialize, "U(ser restart, M(onitor [IV.0 B3h]]z3$ Linking.... U not allowed Restarting... Xū’˜” Šļ–uŁ‚€įįƒ™Ē€,qhq š”  Š-tŠ,tŠ'tŠ"ŁŠšŌŁŠ š‚Ÿ” Šց§ ƒ¼ŚŌ”–Ćššž’™’ć’T’f’ņ’ķ’x’÷’č’£’•’½ ˆ š D ŻķŠ÷æŻ Ō ‚ĀtŌ…;ēą;ēą;ēą:ēą9ēą9ēĆ×…;Ć×…:Ėi‡jŚŌ‚ÉaŌq ‡j€ĄŚŌ‡jҐ0ēÉŅ .Ÿ%šĪ : vU ä †¤,‡,ēć,ēć,ēĚԐ„?¤,„,‚Ń€+” „,‚ē€X” „,‚ž€z” „,˜įįƒ‚Ē€,qh„?q ‹©š” Ō‹šš+ ×ÉÄb®Ĉ®×Ä"n&ē#Ä&ēÄ&ē˜Äˆ…­…c×!×"Ä!ķi‹õžˆ­…cׁꀩh °­…c° Õ­ž­…c° ±”Ō ‚€p ŌŠū–€`!§Č!!§Č!`§Č#ēÄ#ē#Å#x˜Ä`Äa "{£×Ä!³ń !’¢ķiŠ!i†M"z!×ĖL …3h ˜°i!ń zē‚€&¹i!ń |h!Ōä ˜Ņ ‚€*p ŌŠū z„2…2„9†Fj–Óa%xĀMjh "²Ō?! × k# #ē #ē #ēl Ņ$ē $ē $ē $ē Š $ē $ē  ķhм–O s…4ēī×xzē „…dp­h ¤…U‡…d‡…Uģ…7k…2l$ē m#熁Mx$ę ×Ä$†MÅ$ę x$x$ę Œ$ę p$š$ēÄ$ē${ķÄ%煁2Ä%…2Ė€ †Jh ēāÄē˜Ä āÄē˜Ä ēÄ0ēāÄē˜Ä0ēāÄē˜Äp‡…U× y±‡…U× y ±”Ō„…U ‡…U× ę¤…X‡…X²Ÿ‡…U‡…X× ē‚€čŸ”Ō ‡…XXŠŻ‡…U‡…X× x¤…Y­h ¤…eˆ­×ć…e‡…dć…e燅U× ē됖ł p"†4įÄ…4ēī×xzļ†7įÄaÄ†Q€x†S€ś€’„W†FēaŐ  „;„V„N†=ĒŽ…4煁UīטÄ`Ä yyє–  ᄁU˜¤…T¤†n¤…W‡…W‡†n²Ō0a×ē ‡…Wׂ€¹Ō„…g„…ׇ…W×xŇ…Wķ¤…WŠĒ‡…c¤†n¤…[‡…[‡†n²Õ`a‡…[ׁ¤†o¤†p¤…W‡…W‡†p²Õ:‡†oē –Too many dicts in SYSTEMM SYSTEM.PASCALKERNEL USERPROGKERNEL *** GOTOXY missing unit GOTOXYØ`*6B`įļl¬‡…Wׂ€¹Ō‡†o瀀‡…W×É„U‡†oē`‡…W×ÉŚÕł‡†oē ‡…Wׂ€¹ŸÕŠ„…fˆÅˆ­‡†o瀐‡…W×x¢×ć…fׇ…gÄ­h ¤…ˆ­‡†oēĀ ’€‡…W×z¢×ć†o瀐‡…W×z¤†q¤…V‡…V‡†q²Ō‡…燅Vīטć…Vķ¤…VŠį‡…‡†o瀐‡…W×zĤ…V„…V‡…燅xķī×p‡…ēī×…4ēī×xć…ēī×x燅ēī×x{ķĊ6„…f„…gŤ†q¤…V‡…V‡†q²Ō…4燅Vīטć…Vķ¤…VŠį…4¤…‡…c¤†q¤…Z‡…Z‡†q²Õōa‡…Zׁ¤†r¤†s¤…V‡…V‡†s²Õ·…V‡…W°‡…Z‡…[°”¤…h‡†rē`‡…V×ÉŅ#‡†r瀐‡…V×a‡…[×ē ‡…W×¹Ō¤…h‡…hŌz„…‡…Zׇ…V×x¤…S‡…燆r瀀‡…V×Éīׇ…Sć…S燅ć…S„…°KERNEL #8¦­ē­Ä­˜Ņ­¦Š­ē­Ėū˜k…2jl"n&ē o&|Ņ;$&ę ¢l#i˜hm!˜±%”Ō#!z&z²Ÿ!z&z°!ę &ę ³Ÿ” Ō-Š!fŇ…Sz燆rē ‡…V×Ň…Sz燆r瀀‡…V×Éć…Szē ‡…eć…S燅S{ķć…Vķ¤…V‹(’‡…Zķ¤…Z‹’„…‡…[ׇ…W×x燅TĄ…‡…[ׇ…W×x¤…T‡†o‡…Wh!ęiŠÖ%Ԑ-'yj"…2ұ$(x)£³ń„N0ę €€Ņ€)pŠ€*p#i#ęk!n&ē o…2!Ņ'y„2&ē&{īÄ'yē 'xÄ'xē'yÄ'˜Ä'ē˜Ä((x&ę £Ä&˜Ä)(x³Ō»– ö²ÕŸ`‡×`‡¢×`€’×xŅ `€`‡¢×x¤`€`‡¢×`€’×xÓ `€`‡¢×x¤`€p‡¢×`€€‡¢×„ÉŚŌ+¤¤‡‡²Ōפ†q‡†qy‡†qx¢‡…Y¢¤…`‡†qy¤…_‡†o瀐‡…W×yī¤…^‡…^±Õm‡…d„…n‡…`p‡…`ķ¤…`‡…^¤†q¤…]‡…]‡†q²ÕB¤†r¤…\‡…\‡†r²ŌE„…i‡…\`€‡Œ¢‡¢×‡ķ¤ŠŻ‡ķ¤‹W’`€Š×`€’א‡`Ł–hl¦…c­…c$²Ō&mi!%²Ōˆ…­…c×!טÄ!ķiŠč­…cķ¦…cŠÓhᦅc­…ׄ…n‡…_×xć…_ķ¤…_‡…_Ņ‡…d„…n‡…`p‡…`ķ¤…`¤…_‡…\ķ¤…\в„…i‚€"¹Ō>„…‡…[ׇ…W×xyxķ¤…b„…m§¤…V„…V„…‡…[ׇ…W×xy燅bīcķ¦…c­…dˆ­…cׁ­…Y ¢pˆ­…cׁļli!$²Õˆ­…cׁm­…cŅ9…4ē!ķī×x˜Ó…4ē!ķī×xzē ­…eĈ…×!×…4ē!ķī×xċ¶%ē`!×p‹˜‡…c¤†r¤…Z‡…Z‡†r²Õ„¤†s¤…V‡…V‡†s²Ōia‡…Z×ē ‡…Vׄ…i¹ŌI„…‡…[ׇ…W×xyē„…m§īׄ…‡…Zׇ…V×xĄ…‡…Zׇ…V×xē„…×ɱըc®Ĉ®×Ä#n&˜Ä&ēÄ&ēÄ&ēÄ&ēÄ&ē %!×yÄ&ē %!×x­…Y¢Ä&ē ­…eÄ%ē`!×ÉŚŌ&ē %瀐!×xĊ&ē Ä&ē˜Ä&ē ˜Ä&ē%瀀!‡…Zׇ…V×x{ķć…Vķ¤…VŠŽ‡…Zķ¤…Z‹r’‡…]ķ¤…]‹“ž‡…Wķ¤…W‹¼ū‡…[ķ¤…[‹–ū˜„5‡…T„3…3„L–†s¼ 0ē˜Ä†Fj"{k"āÄē˜Ä#"{×Ä"ē"{Œ×Ä#ē˜Ä, ‡x.ę Œp.‡Å‡‡.ę ‘Ä.yŅ .ē.zÄŠ.ē.zÄ/yi!…2Ņ• ˜Ó' ¤.ē ¤.x/z.ę Œp./ēÅ/xh …2ę ŅŁ+ē‡Å†MbÅ–*!ē!jŠļ€+p'€€³Ō@0xl`Ä0ēm%ēn%ß&įÄ&ē)Ä&ē(Ä&ē'Ä€ĄŃ„V%ēŽ%Ž„V Ń0$ċˆ„8aįÄ…;Ō"0ē m%įÄ%x}{zn&ē&|ķÄ's&ē&|īĊ7{ķÄ!煁2Ä!ē …2ę ą2ę ē!ą2ē !Ä Ō!„2–Ą…7i†Fj"{k#ēl'm%zn!ē!ē‘&ę €(¢³Ō`!ēÅ!ē!ē&ę ‘Ä%zå.ŠE†M"ē‘&ę ²ń†šš š Ōt†€‡0z׆@čŌ'pvŠ‚€M‘ ‚€N‘ '‘ 'Ó!ę ń4‘1ń…6˜Ó†6” €+p– / eįÄ%ę hbÄ"{yē)ī×xk"i!n&ē&|įM†M&ę į‘Ä`†MÅ%z.Š&ę `‘*%zå.!ē!ē&ę ‘Ä'`‘'zē€ČĖi +Ž0¤ (ēß(ēÉn(ēŹ(xm`(ē Å…VŌ }{zoŠ ęzo'¤ )ē)|Ä! Ņ"i!ē!|įÄ!yi! Ņņ˜‘&|į(°&{#°”! ° l&yi$Ōɖ ˜ †=ĒŽ…E” „E†6” …EųŚŌ” Š …E Ņįs†6” …E€ĄŚŌ†z҆xrІxķÄ#ŠL!‘)…NŌ˜‘Š@ …7Ó „N˜‘Š$!¤ *zē*z|ķÄ"d‘**zē*z|īąNŌ˜‘Š d‘*Šր)ē)|īÄ(%Ä(ē&ŹÕb’”– …'Ž‚€‘ ‚€rpp Ōp"…EŚŌž–ć `Äb(Å#l$m n%ē&yÄ%ē&zÄ&ē&z¢Ä%ēÄ$ē %}ĆJēß'āÄē˜Ä(Ž'߆JēŽ– @ †Q†O‘5†O‘(œœœ†S†O‘ Ōż”–¢"xh`§i``§Č`!Č" ĖĒ „ -Å,×x±Õ,א0,×xi!Óu,!א0,!×xh Óe,! ¢×0,! ¢×x¤ ,א0,×x¤ ok)²ń>‘5†O‘'œœœ…7„X…Xē Ä„;„E…E°w‘+…EŅóšŌ ‚€TtŌŌż””–€‚±’Ą’ö’waiting:: Type to conti¤ #'¢ko,! ¢'¢#¢×0'³Ō(°,! ¢'¢#¢×x³Ÿ '° ¤ 'ķo*ŌŃ)ī¤ Š½,א0,×xk,#א0,#×xl$²ń%#īk,#א0,#×xm%Ó ,%א0,%īא0$īlŠÖ,nuee Put volume in unit Segment not found: Exec err--REBOOTT*STACK OVERFLOW** Exec err # po= o==Ī·Zś×0,×xj"Ó8,"×xÓ0,"א0,"īא0"£j,"ķ×x¤ k#+²Ō,"א0"īj#ķkŠķŠČ–ģ)`„*¬Pp"``§p` Č`p–+’a#Å`!"×Ä l–ĘÓż š€øbn7ļĮfµØ›‚xŽŹō5*** CONCURREEXTRAHEA1c%Åb$Å`#"£×Äcb‘ i ³Ÿ!”Ō ’¢ķh n–Lb$Åa#Å`"!µå”Ä m–fb$Åa#Å`"!“å”Ä m–}b$Åa#Å`"!µÄ m–EXTRAIO PASCALIO HEAPOPS STRINGOP REALOPS COMMANDIDEBUGGERFILEOPS SCREENOP Ś c‚€ ėj)³ń c€-Čj)ᤠ'h¤ ) i(å ° !± Ō!Ó¤ c"!€0¢Č"ķj) ¤ h ŅŅcp– ļ)`„*¬P``§p–+.!Ōp"‚€£×SMALLCOMCOMMANDI ‘ ‚€‘ `p`§0ē,É⼃€ŪŚŌć`§€ ±j–jaf¬‚€"‘ ‚€#‘ a˜‘ ‚€)‘ %‘ ‘1h†=†=Š%ā¼ŪĒŽ–°„„¬‡`p p°„c蔤.Ō†€‡‡×¤/„ė/ē'Ċ„˜‡‘2.Ōʖ „ *Å+o'ę ¤ p ±m)×`p%'ē`¹”m%ń4‚€.‘ ‚€/‘ 'ēp‚€4‘ €€€€€€€€€€€€€€€€ #(ē˜(x‘2†€‡(x×(ēė%¤ – ja"Å#zh ę x! ę ę ¢ ę p#za3Ōåa‘/pÓ˜ ‘!!#” aÅ…WŌ u…;Ōs–†^‚€;ėP†^†^§&µ&_ÄļÄļhØż4.0˜”¼Š2`˜Lŗ–ŗ*¬)˜L_ņ&īļ‚ü:€_ .…7¤ †F¤ ,{¤+ē‡į€(£‘k+熁M‘‡¢mc,ē‘l$%³ń$e‘,,ē$%£‘j‡bÅ…2i˜h!¤.ē ¤!¤ .x‡x.x£f”‡.‘Ō !h/ē‡ÅŠ.xp`pįs–Ų…NŌo†Fm†^‚€DėP†^†^§paįÄ!ę ń4„N…6˜Ó&0ē˜Äc…6Ä%ē#ēÅ%ē%{ē‘Ɓ<˜Ä˜„6…9ęj"…9Ó "ēÄ"ę- ×!×xx°”Ō†×!×x†×!×xÅ r †"ī×!×xxĖŽX„0„[¬P†ß¤]†‡ZׇY×xk„0§²ń}b-rab-īpÄ"!s"„0˜‡Y°˜spÓ"ld„0˜€Pwd‚€'€Uwd˜‡Y°˜spŅ+‡Z‡Y ‡ZŅ#x†×‡Y×xxŅ †×‡Y×x"Ä#"Ċbr¤]ЇZ‡Y †Žv–\ž›<ˆ€Ķ뛁@ˆ€Įėp–  uses {$U kernel.code} kernel;  type litrecp=^litrec; %litrec=record , next:litrecp; , size:integer;  {# of words of whole record} .bytes:packed array[0..1]of 0..255;{contains chars accessed r-} ,end;  var myprogin,mysysin,oldinput,oldoutput,monitor:fibp; $chainlist,progliteral,sysliteral:litrecp; procedure writemonchar(ch:char); function getredirectchar:char;  procedure updatebools; "procedure remliteral(var listhead:litrecp); "  implementation "procedure initcommand;  procedure startmonitor; "procedure stopmonitor(saveit:boolean); "procedure getchainline(var comma¢SMALLCOM•D6˜±5˜± 4˜± 3˜± Ł›×x1±š:1± Ł7˜±Ł–W!xh!!xxÄ`u‘–!xh 秦 ē ē§īČ ē§Ó ēnd:bigstring); "  implementation  ē ē§pŠ!‘–¦6˜Ó†Š†‘–6˜±4˜°43° 5˜±” Ō‘jŠR4ęŌ/4`t 4y € °”Ō h4zŌ43Ņ ‚€rԊ ‚€rԊ4ę Ņ apŠ 4ę ap‘ j–!0 s–(–i==pi=.J$ U“PERMHEAPPASCALIOEXTRAIO COMMANDI ÖCOMMANDIf‰+1Ō š‚€u Š_š‚€ u š`€Pu šu `§ÓA„*-r„+„*-īpć*‡+s‡*`˜˜spÓš‚€u „*rŠ  type bigstring=string[255];  var havechain,inredirect,outredirect,monitoropen,inmonitor:boolean; "function redirect(command‡*Ł„–+æ1Ō,šh!ŌšsŠšspÓ š‚€u „`r–D†āÄē˜Ä†××›Ć××›×Ć××›Ć××›:bigstring):boolean;  procedure exception(stopchaining:boolean); "procedure chain(command:bigstring); " :Ć××›Ć×כʣ˜Ł˜Łš:Ł˜Ł˜Ł˜Ł˜Ł„„v–ž†ß#§Ņ $x˜Ó$vŠöŠ:#§¢ķj`"r ē"Ä ˜Ä# ē#§ķp$xi!˜Ņ$ Ċ !x˜Ó!xiŠö! Äv†Ž–»šē šē§ķp›v–Ī€`„€¬’›`‘ –€‚0†"×!×xh x†"ī×!×xxÓA!Ņ xs"° x†. pen filecan't close filee.text   PIIPOOIOPL ž’’ž’’ *USERLIB.TEXTi=o=pi=po=i="p°„c蔤.Ō†€‡‡×¤/„ė/ē'Ċ„˜‡‘2.Ōʖ „ *Å+o'ę ¤ p ±m)×`p%'ē`¹”m%ń4‚€.‘ ‚€/‘ 'ēp‚€4‘ "pi=""śč”š‘qź¤ŃG bąW#dSTRINGOPSMALLCOMPASCALIOEXTRAIO FILEOPS PERMHEAP (ē˜(x‘2†€‡(x×(ēė%¤ – ja"Å#zh ę x! ę ę ¢ ę p#za3Ōåa‘/pÓ˜ ‘!!#” aÅ…WŌ u…;Ōs–†^‚€;ėP†^†^§…7¤ †F¤ ,{¤+ē‡į€(£‘k+熁M‘‡¢mc,ē‘l$%³ń$e‘,,ē$%£‘j‡bÅ…2i˜h!¤.ē ¤!¤ .x‡x.x£f”‡.‘Ō !h/ē‡ÅŠ.xp`pįs–Ų…NŌo†Fm†^‚€DėP†^†^§paįÄ!ę ń4„N…6˜Ó&0ē˜Äc…6Ä%ē#ēÅ%ē%{ē‘Ɓ<˜Ä˜„6…9ęj"…9Ó "ēÄ"ę‡x.ę Œp.‡Å‡‡.ę ‘Ä.yŅ .ē.zÄŠ.ē.zÄ/yi!…2Ņ• ˜Ó' ¤.ē ¤.x/z.ę Œp./ēÅ/xh …2ę ŅŁ+ē‡Å†MbÅ–*!ē!jŠļ€+p'€€³Ō@0xl`Ä0ēm%ēn%ß&įÄ&ē)Ä&ē(Ä&ē'Ä€ĄŃ„V%ēŽ%Ž„V Ń0$ċˆ„8aįÄ…;Ō"0ē m%įÄ%x}{zn&ē&|ķÄ's&ē&|īĊ7{ķÄ!煁2Ä!ē …2ę ą2ę ē!ą2ē !Ä Ō!„2–Ą…7i†Fj"{k#ēl'm%zn!ē!ē‘&ę €(¢³Ō`!ēÅ!ē!ē&ę ‘Ä%zå.ŠE†M"ē‘&ę ²ń†šš š Ōt†€‡0z׆@čŌ'pvŠ‚€M‘ ‚€N‘ '‘ 'Ó!ę ń4‘1ń…6˜Ó†6” €+p– / eįÄ%ę hbÄ"{yē)ī×xk"i!n&ē&|į ³ ˆ[§²”Ō ˆ[ §iŠi–/­Wˆ[§²h–=­Wļ h–Ģi€?h­Wķ¦W €"°ļ€"°”Ō­Wķ¦Wļńļ ļhļ€,Ņ ˆ€Ņ! ȊM†M&ę į‘Ä`†MÅ%z.Š&ę `‘*%zå.!ē!ē&ę ‘Ä'`‘'zē€ČĖi +Ž0¤ (ēß(ēÉn(ēŹ(xm`(ē Å…VŌ }{zoŠ ęzo'¤ )ē)| ˆ€Ņ!ļČ!ķi­Wķ¦W €"°ļ€"±”ŌÆˆ€Ņ!£Č­W¦X­€ŃŅ ›ˆ€Ņ‘ Š ›ˆ€Ņ‘ –šˆ"ׂ€*čńˆ"ט! ‘ ńļ –A)`„+¬Pˆ€ŅˆķÄ#ŠL!‘)…NŌ˜‘Š@ …7Ó „N˜‘Š$!¤ *zē*z|ķÄ"d‘**zē*z|īąNŌ˜‘Š d‘*Šր)ē)|īÄ(%Ä(ē&ŹÕb’”– …'Ž‚€‘ ‚€‡.×뒈€Ņ‚€+čń,ˆ€Ņ‚€,čŌ‡-`ėPŠˆ€Ņ§‡*²ńļ Š ‡-ˆ€ŅėP–.©Ś„[„Ū¬’¤Ż„€Ķ›<ė„€Į›@뤁Z¤€Ń‡€Ń‡Z²Ō`‡€Ńׂ€‘ Ōż”–¢"xh`§i``§Č`!Č" ĖĒ „ -Å,×x±Õ,א0,×xi!Óu,!א0,!×xh Óe,! ¢×0,! ¢×x¤ ,א0,×x¤ ok)²ń>-ė(‡€Ńķ¤€ŃŠā„€©×‚€.ė„€©×‚€0ė„€©×‚€2ė„€©×‚€3ė„€©×‚€4ė„€©×‚€5뤁U¤€Ń¤WՁ€ Ņ ‡Wķ¤WŠš‡W¤X‡¤ #'¢ko,! ¢'¢#¢×0'³Ō(°,! ¢'¢#¢×x³Ÿ '° ¤ 'ķo*ŌŃ)ī¤ Š½,א0,×xk,#א0,#×xl$²ń%#īk,#א0,#×xm%Ó ,%א0,%īא0$īlŠÖ,X ⼃€6ŪŚń ‡Xķ¤XŠä‡X €=°Õ­‡UŌ `‡€Ńׂ€:ė(¤€Ń‡€Ńķ¤€Ń‡€ŃҐ ¤V‡X‡W£„€©‡€Ń×§Ņ^¤V‡W‡XZ¤Y‡Y‡Z²ŌD‡Y א0,×xj"Ó8,"×xÓ0,"א0,"īא0"£j,"ķ×x¤ k#+²Ō,"א0"īj#ķkŠķŠČ–ģ)`„*¬Pp"``§p` Č`p–+’a#Å`!"×Ä l–¤S‡Sƒ€;ŚŌ ‡S€a£€A¢¤S‡S„€©‡€ŃׇY‡W£ķ§Ó¤V‡Yķ¤Yг‡VÕv’‡Xķ¤X¤U‹Շ¤U‡€ŃҐ €"҇€Ń ŚŌŠ Šd`‡€Ń×1c%Åb$Å`#"£×Äcb‘ i ³Ÿ!”Ō ’¢ķh n–Lb$Åa#Å`"!µå”Ä m–fb$Åa#Å`"!“å”Ä m–}b$Åa#Å`"!µÄ m–‡X‡W£Č`‡€Ń×§¤Z¤Y‡Y‡Z²Ō=„[‡WY¢§¤S‡Sƒ€CŚŌ ‡S€a£€A¢¤S`‡€ŃׇY‡SȇYķ¤YŠŗ‡X¤W‹yž‡UŌ `‡€Ńׂ€Kė(›<›@Ś c‚€ ėj)³ń c€-Čj)ᤠ'h¤ ) i(å ° !± Ō!Ó¤ c"!€0¢Č"ķj) ¤ h ŅŅcp– ļ)`„*¬P``§p–+.!Ōp"‚€˜›@‚€L¤Ż–ÜÄ‚€S‘Ō Ō‚€]‘–Ź–file already openWrite to what file? can't o‘ ‚€‘ `p`§0ē,É⼃€ŪŚŌć`§€ ±j–jaf¬‚€"‘ ‚€#‘ a˜‘ ‚€)‘ %‘ ‘1h†=†=Š%ā¼ŪĒŽ–°„„¬‡`p/ EXTRAIO PASCALIO HEAPOPS STRINGOP REALOPS COMMANDIDEBUGGERFILEOPS SCREENOP   type bigstring=string[255];  var havechain,inredirect,outredirect,monitoropen,inmonitor:boolean; "function redirect(command£×SMALLCOMCOMMANDI :bigstring):boolean;  procedure exception(stopchaining:boolean); "procedure chain(command:bigstring); "  €€€€€€€€€€€€€€€€ #&µ&_ÄļÄļhØż4.0˜”¼Š2`˜Lŗ–ŗ*¬)˜L_ņ&īļ‚ü:€_ .  uses {$U kernel.code} kernel;  type litrecp=^litrec; %litrec=record , next:litrecp; , size:integer;  {# of words of whole record} .bytes:packed array[0..1]of 0..255;{contains chars accessed r-} ,end;  var myprogin,mysysin,oldinput,oldoutput,monitor:fibp; $chainlist,progliteral,sysliteral:litrecp; procedure writemonchar(ch:char); function getredÄ! Ņ"i!ē!|įÄ!yi! Ņņ˜‘&|į(°&{#°”! ° l&yi$Ōɖ ˜ †=ĒŽ…E” „E†6” …EųŚŌ” Š …E Ņįs†6” …E€ĄŚŌ†z҆xrІxirectchar:char;  procedure updatebools; "procedure remliteral(var listhead:litrecp); "  implementation rpp Ōp"…EŚŌž–ć `Äb(Å#l$m n%ē&yÄ%ē&zÄ&ē&z¢Ä%ēÄ$ē %}ĆJēß'āÄē˜Ä(Ž'߆JēŽ– @ †Q†O‘5†O‘(œœœ†S†O¢SMALLCOM•D6˜±5˜± 4˜± 3˜± Ł›×x1±š:1± Ł7˜±Ł–W!xh!!xxÄ`u‘–!xh 秦 ē ē§īČ ē§Ó ē‘5†O‘'œœœ…7„X…Xē Ä„;„E…E°w‘+…EŅóšŌ ‚€TtŌŌż””–€‚±’Ą’ö’waiting:: Type to conti ē ē§pŠ!‘–¦6˜Ó†Š†‘–6˜±4˜°43° 5˜±” Ō‘jŠR4ęŌ/4`t 4y € °”Ō h4zŌ43Ņ ‚€rԊ ‚€rԊ4ę Ņ anuee Put volume in unit Segment not found: Exec err--REBOOTT*STACK OVERFLOW** Exec err # po= o==Ī·ZśpŠ 4ę ap‘ j–!0 s–(–i==pi=.J$ U“PERMHEAPPASCALIOEXTRAIO COMMANDI ĘÓż š€øbn7ļĮfµØ›‚xŽŹō5*** CONCURREEXTRAHEA0 ¤S‡Sƒ€;ŚŌ ‡S€a£€A¢¤S‡S„€©‡€ŃׇY‡W£ķ§Ó¤V‡Yķ¤Yг‡VÕv’‡Xķ¤X¤U‹Շ¤U‡€ŃҐ €"҇€Ń ŚŌŠ Šd`‡€ŃׇX‡W£Č`‡€Ń×§¤Z¤Y‡Y‡Z²Ō=„[‡WY¢§¤S‡Sƒ€CŚŌ ‡S€a£€A¢¤S`‡€ŃׇY‡SȇYķ¤YŠŗ‡X¤W‹yž‡UŌ `‡€Ńׂ€Kė(›<›@ÖCOMMANDIf‰+1Ō š‚€u Š_š‚€ u š`€Pu šu `§ÓA„*-r„+„*-īpć*‡+s‡*`˜˜spÓš‚€u „*rŠ˜›@‚€L¤Ż–ÜÄ‚€S‘Ō Ō‚€]‘–Ź–file already openWrite to what file? can't o‡*Ł„–+æ1Ō,šh!ŌšsŠšspÓ š‚€u „`r–D†āÄē˜Ä†××›Ć××›×Ć××›Ć××›pen filecan't close filee.text   PIIPOOIOPL ž’’ž’’ *USERLIB.TEXTi=o=pi=po=i=":Ć××›Ć×כʣ˜Ł˜Łš:Ł˜Ł˜Ł˜Ł˜Ł„„v–ž†ß#§Ņ $x˜Ó$vŠöŠ:#§¢ķj`"r ē"Ä ˜Ä# ē#§ķp"pi=""śč”š‘qź¤ŃG bąW#dSTRINGOPSMALLCOMPASCALIOEXTRAIO FILEOPS PERMHEAP $xi!˜Ņ$ Ċ !x˜Ó!xiŠö! Äv†Ž–»šē šē§ķp›v–Ī€`„€¬’›`‘ –€‚0†"×!×xh x†"ī×!×xxÓA!Ņ xs"° x†å×!×xx°”Ō†×!×x†×!×xÅ r †"ī×!×xxĖŽX„0„[¬P†ß¤]†‡ZׇY×xk„0§²ń}b-rab-īpÄ"!s"„0˜‡Y°˜spÓ"ldå„0˜€Pwd‚€'€Uwd˜‡Y°˜spŅ+‡Z‡Y ‡ZŅ#x†×‡Y×xxŅ †×‡Y×x"Ä#"Ċbr¤]ЇZ‡Y †Žv–\ž›<ˆ€Ķ뛁@ˆ€Įėp–å ³ ˆ[§²”Ō ˆ[ §iŠi–/­Wˆ[§²h–=­Wļ h–Ģi€?h­Wķ¦W €"°ļ€"°”Ō­Wķ¦Wļńļ ļhļ€,Ņ ˆ€Ņ! Ȋå ˆ€Ņ!ļČ!ķi­Wķ¦W €"°ļ€"±”ŌÆˆ€Ņ!£Č­W¦X­€ŃŅ ›ˆ€Ņ‘ Š ›ˆ€Ņ‘ –šˆ"ׂ€*čńˆ"ט! ‘ ńļ –A)`„+¬Pˆ€Ņˆå‡.×뒈€Ņ‚€+čń,ˆ€Ņ‚€,čŌ‡-`ėPŠˆ€Ņ§‡*²ńļ Š ‡-ˆ€ŅėP–.©Ś„[„Ū¬’¤Ż„€Ķ›<ė„€Į›@뤁Z¤€Ń‡€Ń‡Z²Ō`‡€Ńׂ€å"procedure initcommand;  procedure startmonitor; "procedure stopmonitor(saveit:boolean); "procedure getchainline(var comma-ė(‡€Ńķ¤€ŃŠā„€©×‚€.ė„€©×‚€0ė„€©×‚€2ė„€©×‚€3ė„€©×‚€4ė„€©×‚€5뤁U¤€Ń¤WՁ€ Ņ ‡Wķ¤WŠš‡W¤X‡nd:bigstring); "  implementation X ⼃€6ŪŚń ‡Xķ¤XŠä‡X €=°Õ­‡UŌ `‡€Ńׂ€:ė(¤€Ń‡€Ńķ¤€Ń‡€ŃҐ ¤V‡X‡W£„€©‡€Ń×§Ņ^¤V‡W‡XZ¤Y‡Y‡Z²ŌD‡Y 1 åååååååååååååååååååååååååå2 åååååååååååååååååååååååååå3 åååååååååååååååååååååååååå4 åååååååååååååååååååååååååå5 åååååååååååååååååååååååååå6 åååååååååååååååååååååååååå7 åååååååååååååååååååååååååå8 åååååååååååååååååååååååååå9 åååååååååååååååååååååååååå: åååååååååååååååååååååååååå; åååååååååååååååååååååååååå< åååååååååååååååååååååååååå= åååååååååååååååååååååååååå> åååååååååååååååååååååååååå? åååååååååååååååååååååååååå@ ååååååååååååååååååååååååååA ååååååååååååååååååååååååååB ååååååååååååååååååååååååååC ååååååååååååååååååååååååååD ååååååååååååååååååååååååååE ååååååååååååååååååååååååååF ååååååååååååååååååååååååååG ååååååååååååååååååååååååååH ååååååååååååååååååååååååååI ååååååååååååååååååååååååååJ ååååååååååååååååååååååååååK ååååååååååååååååååååååååååL åååååååååååååååååååååååååå