IMD 1.16: 31/08/2007 11:02:51 pascal z z-80 object  1!x>w>>wwyWw yA yH->t>c>t>rw#e/v1/T!"]͘>2!".">>@>>7>!ͷM* y#kÊ*" bÇ SYSTEM.MICRO*^#V{/_z/W#^#Vͷ#·))$LM!'! DM#:M}G> KWgh>= ,a$ | :L*iͯ*e}¸|¸*e; ZQ{z| }2FUQ2G"H"JDM1 !F6M ; "=M ͡ =M YP͡ !&~ʇ #^#V:Fʀ *{€ z€ "#~62"Ç #w6 R 1**!W~4ʼ #~#F#¼ x¼ ~#s#r#w>Qʅ = =Uͧᯕo>gͧ 'd Un>#! ^#V#0}o|g- xD y0K GW yW W GD  z { < >'{>' *##V+^+N+y Uͧ ʮ ~+â _ Ê x. * w#͹ ͹  * ͹ ?r# :Ln!Ow #w q!\ͷ  ͹ :5 @w#ͷ : G6# .̹  U ͹ I 6# W  6   w#j !ex#345<+<5:BGS'*vv2Õ: :_!~(5 y _dy h7>2y!_ !` ~= __!m ~#fo!6=:= :<>2{P8>O2y͍͕ ͕:/2 >P(G  Cx!>G K Y=:O{ O    >( : 2>Oa{:y(y> 2>:_W!w8>W(z:<2:= !zWÓy!~_!wy_!~y2/y2Vy2`i">> 2*> :>(>~w#!4:= !͕z!ĕz!ĕz!ĕz!ĕz!ĕ!͕>W z>G(x:Vz> 2*> :>(>)~#!4:= !͕z@!ĕz !ĕÖG> 2Oyx  >(!4:= !WÓ~0~#NOT READY NO REC CRC LOST DATA BUSY PROTECT FAULT ERROR. READ WRITE SEEK HOME ^C LPT !͕͕O !͕(y6o>2!"""">h>9 y>!G>x( E 7@ bgүb~/W*" b!"~!""b:O* "b Op* "bx2b 2b9b:/g++!.@l^#V={^'Ÿ ,lŗkm HBf     &  K.CODE%C e U7N ?IO ERROR WHILE BOOTING? 7, ?NOT ENOUGH CORE TO BOOT?   e   ևߕ vߕ 7 SYSTEM.PASCAL? w7j SYSTEM.PDP-11? @Aw  `! m d!  \ZD C& H&  0  EL    _ U@pe5w E ŋw Ŋw C! @  ̋   wLwDԤ eeW 7 ?YOU DON'T HAVE A  ߋt_v @ @ COUNT BEQ RWBAD ; HAVE WE RUN OUT OF CHOICES ?? MOV @SP,R0 ; GET ADDRESS OF IDCODE CMP (R0)+,(R1)+ ; IS FIRST WORD EQUAL ? BNE 1$ CMP (R0)+,(R1)+ ; IS SECOND WORD EQUAL ? BNE 2$ CMP (R0)+,(R1)+ ; IS THIRD WORD EQUAL  PASCALZ{NZ * SYSTEM.FILERlZ*oSYSTEM.COMPILER o SYSTEM.PASCALm  SYSTEM.EDITORm  SYSTEM.LINKERl  SYSTEM.MICROlz SYSTEM.SYNTAXm SYSTEM.LIBRARYm{ (BASIC.COMPILERl(/ LIBMAP.CODEl*/4 BINDER.CODEl*49 OPCODES.I5l`9b DISASM.CODElbp YALOE.CODElpw LIBRARY.CODElw Z80T.MICROlz PATCH.CODEmf BOOTER.CODEm CALC.CODE PASCALZ{NZ * SYSTEM.FILERlZ*oSYSTEM.COMPILER o SYSTEM.PASCALm  SYSTEM.EDITORmm SETUP.CODEm9SYSTEM.MISCINFO{XY.TEXTD8{XY.CODEWRK.CODE{SYSTEM.WR  SYSTEM.LINKERl  SYSTEM.MICROlz SYSTEM.SYNTAXm SYSTEM.LIBRARYm{ (BASIC.COMPILERl NUM<=254 THEN BLK:=8 0ELSE BLK:=10; *IF BLOCKREAD(F,BUF,2,BLK)<>2 THEN PUTNUM *ELSE ,BEGIN .IF BUF[0]=CHR(DLE) THEN PTR:=2  dirP Bad file namePNo room on volP{No such vol on-lineP`File not foundPJ Dup dir entryP5 FilELSE PTR:=0; .D0:=ERRNUM DIV 100; (* convert error number to characters *) .D1:=(ERRNUM-D0*100) DIV 10; .D2:=ERRNUM MOD 10; er error!!P  sZF3$ F Blkd volumeP Unblkd volumePRˡM or PS.T[0]:=CHR(D0+ORD('0')); T[1]:=CHR(D1+ORD('0')); .T[2]:=CHR(D2+ORD('0')); .REPEAT 0FILLCHAR(C,3,'0'); 0COLON:=SCAN(MAXCHAR,=áPunRPPblkd volXP File name YPEFile or vol nameP- V(/ LIBMAP.CODEl*/4 BINDER.CODEl*49 OPCODES.I5l`9b DISASM.CODElbp YALOE.CODE':',BUF[PTR]); 0MOVELEFT(BUF[PTR],C[3-COLON],COLON); 0COLON:=COLON+PTR; 0PTR:=SCAN(MAXCHAR,=CHR(EOL),BUF[PTR])+PTR+3 lpw LIBRARY.CODElw Z80T.MICROlz PATCH.CODEmf BOOTER.CODEm CALC.CODEr= FILEHAND m SETUP.CODEm9SYSTEM.MISCINFO{XY.TEXTD8{XY.CODEWRK.CODE{SYSTEM.WR K.CODE?COPYRIGHT (C) 1978, REGENTS UNIVERSITY OF CALIFORNIA, SAN DIEGOt???tJantFebtMartAprtMaytJuntJultAugt Sep SEGMENT PROCEDURE PUTSYNTAX;  VAR "D0,D1,D2,BLK,PTR,COLON: INTEGER; "T,C:PACKED ARRAY [0..2] OF CHAR; "BUF:PACKED ARRAY [0t Octt Novt Dect ???t???t???&SYSTEM.WRK.TEXT44SYST..1023] OF CHAR; "F: FILE;   PROCEDURE PUTNUM;  BEGIN "MSG:='Syntax Error #'; PUTMSG; "WRITE(USERINFO.ERRNUM,'. Type EM.WRK.CODE33R2 UDSUUؕTTŧTSɄU?Í- f?;V');  END;   BEGIN (* putsyntax *) "WITH USERINFO DO $BEGIN &OPENOLD(F,'*SYSTEM.SYNTAX'); &IF IORESULT<>0 THEN PUTNUM &E~vnOKŦ((89bتP&R ParLSE (BEGIN *IF ERRNUM<=109 THEN BLK:=2 *ELSE ,IF ERRNUM<=131 THEN BLK:=4 ,ELSE .IF ERRNUM<=156 THEN BLK:=6 .ELSE 0IF ERRity (CRC) errorPBad unit numberPBad IO operationP Timeout errorPVol went off-linePFile lost in using ? on wildcards to same volSd.02468:<>@BD "$&(*,.02468:<>@BDFHJLNx^`ŧ- O:!(:9:  ? VXZ\^`bnprtvy{|~gS7 "$&(*,.046& ,,Xá:N,7,Pá/ , 0,1C :: t ˡȡ"ۂaۂzȄ ۂۂaA** 8 ؾȡق š:,$(,N Ҧ)ˡ:۲) áڲ) * &) $ ۪#  á10  ڡ,-^ ȡز)(ئ(ȡb)ɡ))$ á)á -ˡ ڡ4Put  : in unit !Put in := á? áˡ}:ئiɡ ...too long <ٹ@AB&(ڡ-l ضض˄:á ; / ɡá   DC)Ҫ,,)ҾɡҦolume nameP-NVA+J"P expectedYP:VZ .Pˡع(*áH:á ? : 0 ($ - :TWildcard not allowedP*á not PFirst vol/file name was h a wildcardrP file loade, ˡ2ɡ  &2 (ݪ( ?V/!dP3áNo SPعfilePvolumeP 46!Illegal X name]P6 ;??-00á -á:~0EN \V- ˡ$P [Pع0Vol to file nameP$File to vol nameP <=8"Illegal change FC6VO C6?5r4tC<`>aP file name P scan string P volume name P- Illegal formatP - char. ma8<. . ڪf ~ ȡ~~fx >PNo directory on volumeP File foundPVolume already on linePOutput file fullPWorkfile alreadfvnšfSvfn-K:!(y savedPNo workfile to savePZá TextP CodePP file lost [P3Dangerous! Suggest T ݪ(á6ڡ%: P 01C- 1C - Ȅ-   ҦҾ ҦK)$vn~ŪO=?8*vn78Ä&K=778Change S776*KOO:!(7R": )K:!(" Ҧd:J ,Xˡ,ç,YÍ-Y-- ?Y-- "-!ؓcZ*ݡ what file what vol ? & Ҿ ҦD : changed to ?:~Y??ZYÄ??Z?o:8PZ:[ Workfile is . . not named43 (not saved) No workfile&e8  e changed to VeVn d T $HR"6.&&Y,430Throw away current workfile ?  ,ء,Yá4'*SY؍ءҦҦfv"4QUZ$Remove@RP8 TSRemove S~9l?STEM.WRK.TEXTPRR3'*SYSTEM.WRK.CODEPRR43,*SYSTEM.LST.TEXTPRWR:-S : -S  removedTTT%á(%S:tUpdate *..BACKP@ ERemove ..BACK ? Y áRR4directory ?  YáOST 1C :ST- ȡ$SST-"TTSS1-[R"HR3ءWorkfile cleared&66&..TEXTText H and"2 ? : V  removed ҦҦ l{4 %á%Put in  Code ..CODE2&,YáGetHR?.V.':0Put destination disk in unit #0 ( X,,#'V/!9)?) )ɫ9::خ')*á)*)#áخٮ)خؾپšKOnlyTTȫ7766TńE.T.TEXT.T.CODE .T3.Ȳ.  ) char. total allowed in a wildcard searchnš% ȡ58:..TEXT@ :..CODE@  7376  ٓcdá  O=?8(~ŮD,@ pإťVOK^?:V exists...remove it ?  ,,YáO:!(ҦȄ0%?ȡҦÄ< &DS76ChangeChange to what ? `TP;876/Ŧ<Ŧ nue ?  Yˡ X,U X,,álX, ? ?#á,,Xá2,áe&4+..CODEe3RTEXT Z[`(;?&43)xU Í% X,F"S76@R 7)Transfer To where ? tUVKL$7?..ۓ0Save as . ?  Yۡ9%Vš4$7078 Transfer S7767R"쥁R2U",ç,YÍ"7;?V7?.V7G;^V&4TEXT(43Y*..CODEPR R!r~]́+Ɓ+Possibly destroy directory of Ɓ+ %Ɓ+: ? )Ɓ+ Yˡ WOld code removed, R4Text file saved 43 & 3)CODE(3Code file saved#XdÄ22 Z㧁YÄ7š2T"çTÄAT57Z R2U3&6 $6MakeHR(,˧,Y˄,Xá6\R"Icb^R" "I7ń m d!nnòCń!C"n"0?:V made66Ҧ )Prefix titles by6V/;?Z:e8  é+Ɓ+ transferred to Ɓ+ Ɓ+:Ɓ+'Ɓ+,Xˡ Prefix is ;:&Z*ض7%Íy7<ا9$&(+%7/:R6ڍڡҦҦ#,>B{(~!تSave as ~U$'ء$6%$/:ا6 $87؄877,ٕڶ6šڸ6šC5t<H%ڪ ^,Vthe  file "V^.)Wou54< UNUSED >    ,b-69#TáWriting&.TT-Sld you like V written to G: ?  ,,Xá$,Yá^- -S -4343آ آ4 آšD آ -tآ file P%Ū#^.)G:!( SYSTEM.WRK. -آ  آá  أ  ILLEGALPpBad diskPuCodefilePeTextfile$*(J '%Ҧ74 text'773code'77PUInfofilePEDatafileP5GraffileP%FotofilePwi[M?1# ,.Ɓ.','-,#áضò~ؤ#,f,á#Zضò~ؤ89D?d Do you still wish to conti$Z&ت( *SYSTEM.WRK. 4(RWtn dTEXT-&..TEXT  vol name ? P :á ō6y  C u   are still bad Mark themء (may remove files!) ?  Yˡء8TT- : correct ?  Yá+0": zeroed @1777 ȡ)-T ̂ʂʂĄ T-"TT- Má C BAD.xxxxx.BADŜSʂġ(6T7Dir listing of`TT:Ɓ/?CONSOLE:P+XS ~067PP/:3%F/Date set: <1..31>--<00..99> OR P'Cá N"P+́5́3́6́7Ŧ,S`T V8List S.;S- ́o current dateT Today is C -tC-C   New date ? 8Sʁ8ȡ&Ŧ.-S ů.SS7:Ŧ8-S - -T /-   filesP `SzS 0SSōSŧS ɄCS:, ʁ3 : blocks used, ʁ5  unusedء+, 3ńz?  SSȡ+SAĥSZȄSSAaSS?S SȡtS?CSSʁ6  in largest area6 " 77(Ynj+?-0%S3C7SzS 0SScȫ77C S?-00á- C0- New daVolumes on-line:0 0ȡk~0٦S0 ٲ? *  #   te is C -tC-C  .2%Examine blocks on P:00 Prefix is - ;:/%Bad blocks scan of$P0&"Block number-range ?   1  ɡۀɡ ܫSSܧ- TS~0́SʁȡP0Sˡ4TTBlock S  is badSST  bad ɡ#Risk the dir ?  YˡT- ̂Tʂȡ-T ̂ʂʂĄbؓ%File(s) endangered:blocks{ 0% Zero dir of$P0&"-ˡ2Destroy ?: ?  Y ʂʂ ʂ TTء&Try to fix them ?  YˡܫT̂TʂȡBlock Duplicate dir ?  ,,Yá ,XáN,-ˡg- ħ- 'ȄR-  blocks ?  ,,Xá,Yá- ,YˡD# of blocks ?  ɡ Bad # blocksNewTɡTTšTTTɡá5Block   is still badLBlocks   thr (ake, P(refix, V(ols, X(amine, Z(ero [F.5]P6,x55FP,a++ !|5$!5ڕǴ <<<<Line U , error  :.1( (continue), (terminat 55$!^*ZV)R/N0J1F4B5>2:BZ2Xj i"}:sH rlr(HR@0H" e), E(dit EÍeÍ^ÍEeÍ ^S ǐÍ ^ .<U >~n  6H>~!$%$&(>( +l)x++,-.(/8.10 34H4x448(:4v;;|ڟˡ(áڣb 2g2ChF4D(xrmhc,ˡ áá)}Í/1.:<Jy$^:,+,CEBAښá !ڧ8áˡ < ++ á !+'á,'ˡ++%++á %Q---+-+ ڟˡá 8Ä   ڳCTA w2QZ   '09ō.á:.ˡ0 09Ȅáw w%á:á8% ާ3 ޢޢ ǂإ (ç`á  áEáP -á  +á09Ȅɡáȡ<   ˡgá áVާ:áá ᚹ2ާ9&á ᚹi#傾0 ń  傾0 #ثە$ġ  ȡ6áááإj$áá :إF0á5á.ާ ޢإ jؚ 悾0šؚ0ە ȡ  傾0   ޚ á۟ڟÍáG Gˡ ڞ ~d66S6Xń.~>>>>>> Error # ~6 ~)l|ڟá ġ 傾0ڕ$ ȡ 傾0 á $ $$ |ؚ7؞áeá ؞á٢ؚ٢ ؚآ آ< bUU.2.UT2áb6>v IJ/}*á*<U >(+áX ááP P %VV.á =á '((') ڿڞڂ0$áˡ,Í +۹Hš   =>) )=á   {  "$&(*,.)P +ë/+ë1+-Í+ë,(*á( $ ǖ V"ˡ-V2468:<G3 UWY[]_aceg npsuwy{}*)5  á ,0I; ؿ   áʄȡ Ƃ~Ƃ.ƂVƁ<t&\ 0J F(`:z> & B h l (ˡǒ:šۂٞقق؍*áˡv6 W<  secs, WU  lines/min.BSmallest available space = ǒٕálz Yġ%ؤáP񂥀ؤYLPP-R  words ̄ʄȡL̄̄ʄȡ4L̄̄ʄȡJ ^؟ˡM٣`:٣ á3٣ á,٣'u undefinedZ"   ̄ʄȡL̄ʄȡLP̄ʄȡ̟ˡ ̧(̄ D á NN%I VHō|%L =á á á  ʄȡ Ƃ~Ƃ.ƂVƁ<t&\ 0J F(`:z> & B h l (á L Lç Äܓ+LáL Lç ÄkܓLá آآ::آآ99آ88آآ77آآ55آآ6 áLÄ% Ä  xLˡ"ݣ 9-)HÄL6,آآ844,آآ83 3آPآآآآ آ آ8آP. *LYH ZL!L LNN Há>D.ۦINTEGER Щۢ ۢ  ۦREAL Щۢ :ۢ  ۦCHAR Щۢ 8ۢ  ۦBOOLEAN Щۢ  LáZ^FƂ~ƃƂ.ƃZƂVƃƁƃ( W k_  7ۢ  ۦSTRING Щۢ 3ۢ  ۦTEXT Щۢ 6ۢ  ۦINTERACTЩۢ 4ۢ ? ˡ(UU T TWW )*L~.U  linesWšP?ۦINPUT Щۢ 6ۢۢۢ? > >ۦOUTPUT Щۢ 6ۢۢۢ>  ۦKEYBOARDЩۢ 6ۢ, W<  secs, WU  lines/min.BSmallest available space = ۢ ȡN ܢ 7áܦFALSE ЩܦTRUE Щܢؚܢښܢ 7ٚ ۦNIL Ä ޓ%  GG߫GÄ R  words ̄ʄȡL̄̄ʄȡ4L̄̄ʄȡdݟܟ˄ބݟÄܟÄÄÄ#`!%á ̄ʄȡL̄ʄȡLP̄ʄȡ̟ˡ ̧(̄  IN ЩCOS ЩLOG ЩATAN Щ LN Щ EXP Щ SQRT ASCAL Compiler [1.5] (Unit Compiler)< 0>|؟آآآ(R  &=OMkk Щۢ 5ۢۢۢ  ۦMAXINT Щۢ ۢۢ  ZF Fئ Щآ آE E MARK Щ RELEASE ЩIORESULTЩUNITBUSYЩPWROFTENЩUNITWAITЩئ Щآ آآآD Dئ Щآ آآآآC Cئ Щآ آآآUNITCLEAЩHALT ЩSSȡܳ 0ܹ7 TT T8 TT :TBBئ Щآ آآآ"آآ آآآآآآAAئ Щآ آآآ آ": TTTTTT ۚTbZ7 TT T@::5-&{ آآآآآآآVREAD ЩREADLN ЩWRITE ЩWRITELN VP84$3ݡ  TTTTݡTT؟ˡآT ښTؚ RdEOF ЩEOLN ЩPRED ЩSUCC Щ ORD Щ SQR Щ <@GXV(SUTȡ1Lڢڢ Щڢڢ ;ͦ*SYSTEM.PASCAL(ABS Щ NEW Щ UNITREADЩUNITWRITЩCONCAT ЩLENGTH ЩINSERͦ*SYSTEM.LIBRARY( ,%PYZQǂNJ*) O& .!"/+10'-2T ЩDELETE ЩCOPY ЩPOS ЩMOVELEFTЩMOVERIGHЩEXIT Щ$#ȡؤJB$ 0w8swo|s[tIDSEARCHЩTREESEARЩTIME ЩFILLCHARЩOPENNEW ЩOPENOLD ЩRkg;cTx_ {H .[ ȡ  %PEWRITE ЩCLOSE Щ SEEK Щ!RESET Щ"GET Щ#PUT Щ$SCAN ASCAL Compiler [I.5] (Unit Compiler)< 0>|؟آآآ(R  &=OMkk%BLOCKREAЩ&BLOCKWRIЩ'TRUNC Щ(PAGE Щ)SIZEOF Щ*STR Щ+Dz H|؟آآآ M==آآئPROGRAM Щآ آآآآآآGOTOXY Щ+̀ʀȡ{'ٳ %`ٳڡ  ̀ʀʀʀ ڡ ʀʀʀآ آ"!á^ áL=ˡ ==   á (ká  á  K L Lآʀٚ b ODD ЩCHR ЩMEMAVAILЩROUND ЩSآ آ=آ آHآZآآKj  R H .[ ȡ  %P  +:˄5á:á33R,á'6H(#":<> 3 ˡǢ WˡQ ا:Íǟ < -؟ˡ á t ޮ < N˄˄0  ˡS>á+ 8H6ˡǐ #;á  á á    á á=? E.dˡhP &ǐ G(á%2H!ˡ"g 0á`  !á = ؟ˡ4أ á'أ أ أ ! أ } } n XEv  ˡ Ä á'  6H ˡ} á  á  " ˡ} á' á" ˡ} á %ǀš&&$ˡǒ $$%&%ڧ{ ۢ ۢٚۧP؂%%fȄ 3ǔ |á Há'6  2 Í Ä á"   ; ˡǖ  ,ȡ (ǀٿ <ǀ &á& ȡڢg    9ˡńg; g gáݟˡ  >ǀ 3ámá šˡ ۚš$ ġ ˡ NJ   ˡ ˡq ݟˡ < , 0 ˡ䀮š á ٳ0d@ hٳǀ  FJ'ÍȄ 'á ؂ ؂ #Nj ˡA*á 0 @$ńˡá  áˡȄ ؂ خ @MÍǀ   Gڳáقšخáخǀˡ nj  áˡ á ǘ  # ǐ  " 2 Í Ä  خjYؤYYYYǕš *2 ؤá !Oؤ Oؤ á"   ˡń  WˡOÍ; ááǏ ˡ8`ǀ Ȅ ?á(ۢ⚧á ⥁ $ۢ9á ńǍ  g g W,WWp á{   Dۢښ   7ˡLJ !خ  ٢`m ۢۢ`mɡ'ġ ܮ28Ä Iá>ءǚ á08á(QݢݢQ 3  ˡ} 9!٫ خ 4PˡáY'ڢȡ5á$خڢ3 x"ˡ' áˡ át á " ٟáǞ e  Xá   ˡ} } FM?M8ˡ 8ˡǏ  M (_83 6,ڧ:  : 3C Ä +&Pˡ ݕˡǎ ګ1á&ág ڟˡˡ ˡ} á  )á á á}  }  ˡ 8ˡ} á   ˡǎ ǚ  ǎ ٟˡˡá  ٟˡ~ ޣ áޣáV!7ޣ ޣ ÄO"á     ˡˡ}  ˡǏ á  ޣ ޣ á Mޣ ޣ Ǖ ޣMޣ ޣ Fޣ ˡ Mޣ ޣ 4ޣ áBޣ %ޣ HáNޣ ޣ áOޣ á  " ˡ} á   ˡ} %áM,!.ޣ  ޣ á(ޣ ޣ ˄ޣ (DSt&أ áأ á t ݳ͐oá{  ˡ."ع0sokgc_[W S!O"KG +@7575 799;" ݳ}ݹ$%ޡ2 ˡˡ} 8ÄǏ ?#áM M 79E"$&EC,GIGEG8SIGi٣á٣ á%٣  2H٣ ٣ ٣ á'٣  6H٣ ٣ ˡáás ˡ ġ} ˡá:á} ˡá:á} J#?ö={ ˡ(á!8á " á   ˄ٮ#"ág ˡ[ >á  á    ˡ ˡ} M  ˡ}  á 8خ2خ"ɡٮ M K: <9  )8 M M} ,˫  áٮ#MM2خ˫  ɡ  šث  3 ٚ t á +ˡ/, $>ö;{R ˡ(á!8á " á ˄ۮ#&؟îá2خá   ˡ ˡ} á    ˡ ˡ} á/M2خ٣ˡ#š á$ á% &ˡ ˡ  á ١M ا:á5١á" "ɡ ٣ šث ٫+áMM9 á 9} á    ˡ ˡ} rا9  ١]ا8á ١MJ ١M5 )ˡ ݕ١  t \"ˡ ˡ} ás áeNORMAL Я ILOCK Я 2PܮܮM} ,˫  áۮ#M,Y4 %ޣ á ޣ ˡǐ áٟá~  URGE Я CRUNCH Я    M,"ˡˡ}  áǏ "ٟ˄٣ڟˍ٣áȡt8Ä á Yáá9;ç0 %  U'NweD+$&*,.b#6>@DFHJLޡá  &s  dž '(Ä?ܧ::Ä/Ä  dž (ܧ77Ä  dž::Í؍á :á ٧:0'Íá 9á ا92(c:   |& )ˡ ەˡǁ ؚ,,))ác c^  ܣáܮ&ܣá ܮˡá 8Íˡ ȡ  ) 8Í ˡ ȡ ܟ˄á+á   ǁ  : á8 3   9     á ǂ ˡ '( , P, f  ܧ:á    +7Ä퓫 ˡ7ˡ LJ   á  7á  ǃ   DŽ  t $  ˡ  ǃ 5ˡˡ Lj   Ȅ  áG    lj ޡǃ  "Dž  n1 á @*564/1(0!7/ 1, )Ȅ   ޡ 䔜ߡlj ˫  á  ߡ,Qǁ 7 j@@خá ˡ ō  á 8 QQ QQQj0b "$&(*,.02468:<>@BDFtˡ ȡ ٟ˄á:  :9 á9ˡ ǁ 9ޡJ8Ä36ˡ- dPRTVXZ\^`M c -&$d++'á   8˄Pˡǁ ٫٫ a0 d YSCޡ*٣)(+ ܟ˄'(Ä?ܧ::Ä/Ä   dž 'ܧ:'( ǒ IkMI\=#ǁ 3   .1 #áP|ڤˡ|ڤ؟ٓá   Má   á  á :Ä dž v(ÄÄ  dž FÄ dž -ܧ77Ä dž   ˡ ˡ} á   ˡ ˡ}  "ˡ ˡ 'rD0 $R* (ç`  *. á":áá dž} ˡ!áM )  ÍM,á :ˡ!:áá }  (á  * ܟ˄'(Ä?ܧ::Ä/Ä  á 9 ٓǧ   7R n/-_˫   á  8: B0  á  / UU+  _ `{p  ܣá ܮ.v 0á7á ܓ ٮ á 4  -ܡ ۡګ  á-ܓ  9خ ٮ -ܡ o /h 1a 2Z 4S 3L 5E 6>6h  "$&fZUIRFAm!dš ګ خܓٮ 1  9߮ ٟˡ٧:Í ǐ  á      &  II7 Ql  -"   ." @# ( Rɡˡ^ Oܟˡ ȡáǜ   ܚޚ۟áښǓ ˫  á   Rˡ9 [   words]<U >ˡڟˡ -_ڟˡ9 ˫   Í߮ݟˡ` ݚܟá ,   9 š  ˡpá]šM2 6ٮ + *ˡ )ޕ( áUT  ݟá á  >=jFG#2 خ-_˫   á |ܟˡ ܢ .Há(;ڟˡڣ ġ ڣ M|ڟˡN 2 2 ,áخ 5 EG V3 ٮ@ خ á 6 -9ٮ خB4áX{  4á8áMHçUU-_˫   á  |ڟˡ á   Ǜ ؟ˡŧ:  Ǐ   A áW ˡ>ˡǐ 02 M%Há;ڟˡڣ ġ ڣ áV' áA-á۶|ܟˡ  ! ؟ˡç0 Ǒ 3   ǀ @ˡnˡǐ ` Q  `mˡǨ ⧁ šߤ á     ؕ  ؟ˡç0 8߮ 6 šá40Ǒ 7 @ ! á 6 Z H --L PPZPF@Q77  <.VV B - á9߮  ] 5á{   DBخˡxál XRBvd `!""|##$h%(&&*'((( , -../|-$///4001182j2n 7  á  |ڟˡ ɡ_ |á|ۢۢۢ+8|ۢۢ š nj ˫  2 M%Há;ڟˡڣ ġ ڣ áV' áA-á۶|ܟˡ á 6 -ڕ ٕ  6II#á[|ݤˡ|ݤޟˡ# áǥ  `mˡǨ ⧁ šߤ á     ؕ     áU  ˡ8ȡ,: m   ء n     |ߚ á  *á  á   ߟˡ%Íߧ:Í s  ߧ:ár    ł á       ˡ o   ߚߟˡ% š ǩ \.áW ǿ    á  ٢٢ ٢٢    ˫  á  á  á (  š ߚߟˡ ,(  ٟá138:+ @ٟ٥ s s sá |ˡ  á2  ߚ öń ˡ%      ł  á%    ˫    " " ˡߢ á  á  ád   Í kk    áá>  ǔ á   ߢ ˡk ߧ3Äg C á4  ߚ      ˫  á   ō P Pˡ ߧ3  á  váqáW ߧ9  á$ˡ ál ˡ áá&     ޟˡ    á  á ǿ ߟˡkߢ  ǔ ޚá؟*/1-" h   آآ ái2 2 á)  إآ   á   ߢ ˡk ߟˡ/á&ˡ :áǏ š f ߚ آ<آ <$ ˡ ˧   l   o o os  ٟ$; ڟ˶zbڧ:˄2 ġ%ɡ܂5á+á$ [ [ ,á á    ߚ ɡ۸ ik3T@š  ڢ ڢڢڢ ޟˡ1ȡ$ާ:á m á Ǖ ޚq ˫  á   á / ł ڢڢ ˡ   ٶ˄/ڣ %ڣ áڢڣ ڣ Ȅ ڢڢ  ˡ ál "ȡ  ˡ9  ٢٢٢ á   ٢ ٢٢٢2 2 á!   á ȡ ǎ   ߟá-á  ɡ |  ł   #áS|؟ٓˡ Ǧ ٓۧۢۢڢؚ      á V%á#R| ܟˡ?ܣáܣÄܣ Äܣáܣ Äܣ ÄޓǠ  ˫  á   ˡ  á ۥۢ ۢۢ )ç Ä  ޓá "HY# Y#  آ ٚآá%   ç  ˡ  $$ءOš OOLYǕá YYá l۟ˡJá5á á ݥݢ ݢ )ç Ä   ڢ ۚ<ٟˡ)گ ٧<ˡآ<  š á  š ܣ ˡܣ YؓǏ   BH Z ܣ ZHɡHH  á%   ç <ˡu <{ áM  ݥݢٚݢ. |ޡ áޓܢۚo ޓܢۚáP á4ޡz  ݢ ݢHݢݢ   [ [ ˫  á  ܢ ݚݟˡ x ܢ   ޓ{ á  ܢ 5ç#&HˡǷ #Ǹ ءǏ-L٣ ë&&٣ YL٣ -7."ˡ ǻ .ˡ ǻ [ٟˡ<ݢ ۚݢ܂ á۟ˡáݢ||ؚá%   9"ڤ "ڤ ~-rڤbڤë&&]OOO ç [<ˡu <OS ^   áw  @Oš Lۢۢ"ڤۢ ۢbڤۢ YǾ á #*X)S'S ! @á  ˡ =  ߚáH    79 Hˡǽ  ؓ)#;ؓ˄ #+;́ʁˡʁ ʁ́Ǽ  . ˫   áJ á<    ˡááy  ȡ 䏂  ء"ƁTURTLE Щ́́ƁZƁ [(  words]<U >á ( (  ߟˡ  ˡ á( @ !́ ÝƁ ʁoƁ ʁ́ʁƁʁ;ʁ ʁ& ʁʁʁ ʁ;Yáʁ'S  á+    آˡZޚˡ@á -á&ȡ& ʁ ʁY&ؓ ˫ ˡ  ؍ؓá  ʁʁƁ#;.ce2  ޚٟl ء@- Ǐ POY Y  Ǐ  á HáMC # !á ǹ ˡQ#D FWRITEDEЩ ( DECOPS Щ n\J8&ȡ  !!    ܤ+$ݍk   _TN@ t | Tj ~LD  ܤ   ܤȡ      *ء)3;HF&B  N " LL L H ZءY&"    $ z|ġ  ˡˡ$&LIx -Ǐ $.@#-HçO Ä # 1á  á&Ǻ    á  á  *SYSTEM.INFO[*]"ˡǒ .Ƕ - Ǐ PH Z Y LOOOOš Y$š&ˡ2%ç$Ä$ȡW$ɡǀ% ȡ%٧& ˡ T@ݟޓݥ e ޓ*  @ݫ@L؞ &Lá& ܧ$ɡ ګ ȡ l ڣ L H ɡ- |ݟˡ   á  ; .%$6á! ç ڣ ,ڣ ڣá ڣ ڣ á[ڣ áOڣá$ڣ!  2ˡ !! L LL 3á   ^4ˡ _   ! "ڣ!  ! ١qˡAۣá "ۣáȡ \ $š&$ˡǒ )Lݢݢ! á   ˡá`  ڣ 0 ]Z@B.١LáöÍ  L HZY L L!Dblrݫ@L؞ &L   [(  words]<U >Z)5á+ á ١ ةȡ      áأ ` أ  أ     #ܢ"çBޡǡ ܢ"á á    @ߡ           ȡ   á      N " LL L H ZءY&"    $ z|ġ  ˡˡ$&LIx -Ǐ $.@#-HçO Ä # 1á  á&Ǻ    á  á  ء|Mڟˡȡ𥀰ܤˡܹx FSEEK Щx FREADREAЩd FWRITEREЩP FREADDECЩ< 2ˡ !! L LL 3á   ^4ˡ _  fn(ުP22ȡ7233 ȡ 23aħ3zȄ 23aA22š*á ?\6f "r '6PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD :22ȡá;2á!2ȡ5252š[22š2222ȡ 2š5252á4x4]11á4^1šX42233z 3042221ç42ç1Ä2*á444ńi55P.TEXTF.CODE4.INFO".GRAF?COPYRIGHT (C) 1978, THE REGENTS OF THE UNIVERSITY OF CALIFORNIA.FOTO.!~áë :: á)6!F *STK OFLOW*PFF* ˡ 6!:9"8~? Ä:ÄȄĄMȄqfȡD ōɍ ō ȍ dč " 5 Exec err #  á, (*, >Já[쓡ë  쓡 !7 4,~ Íˡ88t  쓡  $Ꟛšr#ń@ 񂾲z 񂾂0  8tB$$>:&ˡ,ˡ tš tT%>ń Ȅ! ~ÍV~M ˡ!  ,ȫ, ˡ.ˡ tš tJ&$>&:!F:F Fˡ FF 넡, ~ ,Í1~ š˄  `" RJ'Jɡšɡš  P&:*: (  d˯7 H ȡ    L H ɡ- |ݟˡ   á  ; .%$6á! azȄaA:) Type : to continue) & XÍ  l 9S328˄ šá  d</ dÍÍ邚邫镫ë퓡e @B "ˡ ɡB  B "ˡc >ˡ 퓄 Ä퓡  dÄÍ" á1 á(á" >"ˡ  *Qv 0 H" ġ  *@#ٕš ګ۫ š۫ ګ˄"ɡ  dá dá C#C˄ C    ,.   ȡQɫ  ȡ .  .ȡ? ȡá&á ~ -/18       ġ  á ġMáš3 삫 d #( šˡ 쓄 Ä쓡t š   - Íáɡ 럚肚Z  ɍL "ˡ+ˡ d 0/š ū  < áš < c@B B Ä $á.Ą ɡ 낫š ꓡ0š땫ĚJ B B >Ä /  !š Í삫Ú š ^ "á50 7ÄT ǐɄ96ń~66! á  ɚ j šš  á~ 횧 :˄˥ń á   uš  gš  šš!B>邚邫镫ë퓡Q @B "ˡá -Ä+  ɡ"á M B "ˡ >"ˡáˡ á uá%  g>@ << Ȅ 隹Já-Ä  >  |á6铡,B BB/"ˡ ( ! 767  á1 š0    šš&@B> á뾞뾂NPńȄ.ń0á Proc  Caller  Parent  Param  Data肂蕿BšT뾕ȡ4 š킥뾞  Seg  Seg  Seg  Stack  IPC <X hE6!~?7FPut in :P?FP'Ǡá,EEE    Depth ( Defaultlink: áDynamicStatic    "$E ##&Eá *6*6ˡ6á  .r Brkpnts: ȡ*٤š٤  ؕ=f ITYPE ID PRz42lRNj V"j 4F Z pz`0ń0á OC# OFFSET ADDR INTEGER OCTAL HEX LO HI CHAR^ ٨ 0 0 0  Q š *š 肂蕿BšT뾕ȡ4 š킥뾞 4V j ɡ 逫-á-32768 Rġ?o00ń0ˡ 8FNo user programP8F. file P%Ū#^.)oɡa Mȡ龫š 龕龫!낾G:!( SYSTEM.WRK. $*(J '  2 dá3á+  %Ҧ74 text'773code'77$Z&ت( *SYSTEM.WRK. 4 T p?š !삾 0 Vá(RWtn dTEXT-&..TEXTe&4+. 6ܨB V6 " *áá0á ɡ>پ٢*>ؾآ+-Í-ëzX 0á%+á z,تP!RتPR"á  nQ  꾂ȡ龞꾂(ń꾂Ȅ4š뾂  ˡ  $š$ɡ%ˡ8*SYSTEM.WRK.LIST L܏áJܚޓݓȄȄ.₾₾0  ႚ Bad numberU  XȄLۂˡޓ'Lۂڕ Lڂ ޓjLۂ ٶ&Ʉ+Offset:   Length: n _ Proc: G LۂáL  LáLڂfYnSubrange limits exc Seg:  Proc not found áqá#Only traverse UP static linksG˄eededSegment not linked in$Exitting from procedure never calledInteger overflowInteger divide by zero áTop of link chainˡ rá5ٕȡBottom of link chain8!Attempted access to a nil pointerBreak character receivedUser I/O error. IORESULT = 1 Instruction no˄áTop of link chain:  áۂ t implementedFloating point over/underflowString too longwUncondition HALT executedX0áBrkpnt: #ġ Warning - offset too large'ۂšWarning - length too large ȡ\ ޻ݿStepping ended%\H. sV)T ݚÄ ˄'ٚData  ߢ    ؚ*n  áۂÄ 7`% "ȡDataޢ  ġ Warning - offset too large%ۂšWarning - length too large ȡW ޻ݿ000   0 0 0000 ޢۢ   " Proc not foundStackޢ  ȡ6 ɡ ە0 ە A0000 0 ! Proc not found0Heap  F .*0ȡGۂǠۂۂۂV`.  7"Z ˶ ڦ ˶ ۄpܲy#ھɡھھܿ6ܶVá,>Line:  ˡ Seg:  Proc:  Offݢ ݢھۡۓ Bad numberھń͞ ۦ32767 Bad number.set: 'ȡ2چ00Ä  ݿڎ :  P  ۾ȡ܂ ˡ ܂0' X۪177777 h 1Ä@@    ߚ*h "ȡ* % <ړȄؤá" ۂ"šȡ)ޢڿٻޢڡ2Set breakpoint at line:  ؤٚ All brkpnts in useHp ~!Clear breakpoint at line"ȡW (*PASCAL INTERACTIVE DEBUGGER - Jan 23, 1978*SYSTEM.LST.T: PړȄؤáڡؤ Brkpnt not active) ȡؤEXT"ˡ $F& FHLُáwL$L  x "S(et or C(lear breakpointSsÍ! CcÍ"F Proc: Lؑ L $$$޸D  ȡ٤ U  Seg: ؂ܫݫ Proc not found #01 D%B"% ȡ*hz$):I'm awfully sorry, b"0ç0Í'Hit [space] when ready)*j$$١á <>?EXAMINE:ut I've discovered an error in myself.Z*Ɓ:á)(áV;[Break]  1..9 (links, M(ove, <, >, L(ink, D(ata, S(tack, H(eap,HE(rase, U(pdate, , , C(rawl, W(alk, invalid while EXAMINING)% D%',*"'' R(esume,  Hڳ !ڳ<1SPڹ > < b2:J> F   tf.VJp4HT* ȡ٤0 ( á Static  DynamicDelay: @@D%B"% ȡ*hz$):I'm awfully sorry, b~ zvj#f_,WX $(*,R`@68<>@TFHut I've discovered an error in myself.Z*Ɓ:á)(áV;[Break] JLjtVvá %h  *Má  *8á" á "* Not a cinvalid while EXAMINING)% D%',*"'' ٚStack  ٤  ؚ*i Octal address:  ommandء%  [sp] or 'Q')Qá4% ȡǰȡLength: r ȡU ܏Heap  "á ( :&á#á%&.'ثDث  ˄ TE ASSMBLER COMPILER EDITOR FILER LINKEŔ'?, toU.C.S.D. Pascal System I.5Current date is CUnknown run-time error(Value range error(No proc in seg-table(Exit from uncalled proc(Stack ove'ȡf:SYSTEM.ؤ ́(Ɓ(?Ɓ(ؤ Ɓ((ؤ ؗ~rflow(Integer overflow(Divide by zero(NIL pointer reference(Program interrupted by user(Systé'ʁ'nʁ'é(ʁ(ȡWÍ)Ɓ)ʁ'Ɓ)ؤ Ɓ)(ؤ ؗ ám IO error( unknown cause( parity (CRC)(illegal unit #(illegal IO request(data-com timeout((ypƅ*SYSTEM.CHARSET(ƅʅǀ"áʅʅūʅ  ʅ vol went off-line(file lost in dir( bad file name(no room on vol( vol not found(file not fo ̆%ʆ%ȡ   ̆%ʆ%ȡƂ  ~GRAPHIC :.8ǀund( dup dir entry(jfile already open(Q file not open(<bad input format($F4 w ?̆%ʆ%ȡƄؤ8ؤ ƅ)FJJ "77::99dM: IO error: (Unimplemented instruction(Floating point error(rString overflow([Programmed HA88:9  6    -&.LT(DProgrammed break-point(&U fE0lWBS#  ???&š&:&(*SYSTEM.WRK.TEXT(   & , P#  , I#  |Dj, vol not found(file not fo& š&:(*SYSTEM.WRK.CODE(&*ƁV`tDtD Doo odoo'źʁʁʁX:: P7 :9CONSOLE:(:9SYSTER*SYSTEM.MISCINFOP*"áh* X́*́ʁ:ʁ:ʁ<ʁʁ>ʁ>ʁJʁJ tDtM:(8:986ë???JanFebD **wn  ȡ,~ؤۦۢ0ۢ ؞&~CONSOLE~SYSTERM?MarAprMayJunJulAug Sep Oct Nov Dec ?????~?á';??ٟá'C &"á~PRINTER&"á~REMO??????6!:%$ )8P Welcome  .CODE[*]("ˡCode open error!   áثB  7:&   B.,& EDITOR 3 š% -&Execute INITIALIOUT COPYFILEENVIRONMPUTSYNTAEDITCORE: what file? š;.á .CODEb%:( Running...ء ء>Copyright (c) 1978 The Regents of The University of California -C-C System re-initialized N  ZLFebz:98:9áA*SYSTEM.STARTUP(%Initializing...MarAprMayJunJulAug Sep Oct Nov Dec ???:áá  6   FKCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(eܪP//ˡU*SYSTEM.STARTUP to continue. á܂  ۂ܂ߞ áAꂾá 3삾 ç삾Í ߂  áRۂ;ۂáݧۂ ۂ á ܕcX á߂߂܂܂ꂧ܂  |T .٪P fۥ  ۂ  ۂڞڂ ˡ  !Uق what marker? -P,-V,Vȡ-,-, ,,-- -- E č{^ ꂾ á ܂ ܂áŧؓɍš  ٚ ƂNƃz   š á á  á :ƂNQ: tn |áء  f  ݂ ݂ɡ ݂ ݂ەݕ < \H2rtV v  r   F  ` 8 B!ߞ áAꂾá 3삾 ç삾Í ߂ -š 0 ۍۡRepeatfactor > 10,000v٤ؚٳ v قؚ. M Edit: A(djst C(py D(lete F(ind I(nsrt J(mp R(place Q(uit X(chng Z(ap [E\ 킾 á  :ڕ šjvKThere is no room to c.6e]PrH Insert: Text { a char, a line} [ accepts, escapes]PIA Delete: < > {ɡ š    H FI؂ opy the deletion. Do you wish to delete anyway? (y/n)P Yá,KڕJJI IJ4IڂPڂNçN˄  ˥PۂܥOڂ  ٕ ݞ݂ ˡ !U܂ Znڡ(P!ڧN˄9!'۹  vڤVڳN?١ ħ1ۥ č%`wȡ'ڤġڤ * 񿥆P(  ڤ؂ IħIɄ I؂ IHZګ삾 ء:ȧ삾 삾 vPv v$á ٕ ٕ8áܕ܂ܕ܂  ꂾ ꂾá "á <&ȡ<ꂾ  ꂾ-á á.áꂾ ç Äە߂ŧȍ4 ReadingNvˡ Reading file.N5øe.Gv9v CC^v̂5ʂ5ȡܤܚAẐ5ʂ5ȡܤAa5  ĸ5낶 á "ˡ Disk errorBuffer oẑ5ʂ5ȡܤA09̂5ʂ5ȡܤA    Ǫ PS6Trae> .R^ verflow.6 .آ>FGأ%Fأ&G G آZNIآ>HآHIآ@Hآ   ȍ .˄" ̂5Ƃ5 PƂ5.TEXTUƂ5P .á N vNot present. File? P"áHIآ@HآHIآFHآHIآFHآHIآBHآHI H Í  > KĴ5ʂ5ʂ5 ʂ5ʂ5 ʂ5P:HIآDHآHIآBHآHPأ.Oآ^ POPآROآ^ PGv9v CC^v̂5ʂ5ȡܤܚAẐ5ʂ5ȡܤAaآZOآ^ PآXOآ^ PآXOآ^ PآNOآ^PآNOآ^ẑ5ʂ5ȡܤA09̂5ʂ5ȡܤA    Ǫ PS6Trae> .R^ PآPOآ^P آPO آ^أ.áPáPHO Pقخ>Quit:P# U(pdate the workfile and leave E(xit without updatingv ACDFIJLMP Q R S V XZ,>.+-?/=< + R(eturn to the editor without updating% W(rite to a file name and return     09̂5ʂ5ȡ )  (( Ʉ?Í    RáEáꥂNWá)Name of output file ( to return) -->ƂPƂá>Edit:IN̂5Ƃ5Ƃ5:Ƃ5&Ƃ5"ˡWorkfile lost.v4No workfile is preƂ̂.ʂ.ȡƂۂƂۂ .TEXTƂƂƂȍƂƂ.˄$Ƃ̂.Ƃ.ƂPƂ..TEXTUƂ.PƂƂ to delete, to abort}PK Adjust: L(just R(just C(enter { to leave}P ɡr2 Isent. File? ( for no file ) Pv P á v  ̂5ʂ5ȡ ₾  .TEXT nsrt: {,} [ accepts, aborts]PI4 Delete: { deletes, aborts}P5 Adjst: L(ft R  ȍ .˄" ̂5Ƃ5 PƂ5.TEXTUƂ5P .á N vNot present. File? P"á(ght C(ntr to leaveP + Edit: A, C, D, F, I, J, R, Q, X, Z [E.6e]P 4>Edit: Í  > KĴ5ʂ5ʂ5 ʂ5ʂ5 ʂ5P:H .á ƂƂƂ*SYSTEM.WRK.TEXTPWritingNƂCNvˡ.ɡW ..TEXTU.P.á ȡMٕڂġ(Buffer overflow.ħ  ۂۂۀ Nˡۂ.ɡ0 ꕞNˡ قڞڂZ= ˸ .   V.N Your file is   bytes long.UáS?&SYSTEM.WRK.TEXTN*SYSTEM.WĶɄ, ک߶ߤ ߤ Marker not there. ٲ0ߤRK.CODENe4Do you want to E(xit from or R(eturn to the editor?  R ز+߂á f v   з   з T=ˡ EګWriting out the fileJ/: CNvˡ.ɡW  з     з     Ƃ=ƃi& Copy: From what file[marker,marker]? P  ۂۂۀ Nˡۂ.ɡ0 ꕞNˡƂPƂá Ƃ=Ƃ# Copy: File not present. Filename? P"á CopyP  Ⓞ ڕ.N Your file is   bytes long.UáS?&SYSTEM.WRK.TEXTN*SYSTEM.WɄ čⓄ% Ʉ "ˡ Disk Error.ħƂ=Ƃ=RK.CODENe4Do you want to E(xit from or R(eturn to the editor?  R ePXp^Dx  з   з T=ˡ Improper marker specification. 0ꂶꂶ8Marker exceeds з     з     Ƃ=ƃi& Copy: From what file[marker,marker]? P  file bounds.ħ :ꕕꂧ.[á$ ƂPƂá Ƃ=Ƃ# Copy: File not present. Filename? P"á CopyP  Ⓞ ڕ Щ  Щ]ɍٲˍ.ڕ.P..P,áؕɄ čⓄ% Ʉ "ˡ Disk Error.ħƂ=Ƃ=     ۂە ..ȡۂۂ ..ȡ  ȡ.ءTrueFalse. ڳ@ ۂ ۂ ..ȡۂۂ .TEXT˲ȍ.˄"..P?T or FȡĹ TáTrue False Y   $&+z" xؤá  Date Created: h ħInappropriate environmentKP  w ww  - -  Last Used:  - -áwȡ. ) x٤v$Marker ovflw. Which one to replace?P ħ   J Not option dxjo0wSet  з Gwȡx٤ xؤؤاwáw # ڳɡ ڂ0 \N>0hAT(l* hfR"d&<   . Environment: {options} or to leaveP  A(uto indent vSyntax Error #P  . Type >Ƃ ƃ7Ƃ *SYSTEM.SYNTAX"ˡ hȡ9 ~ F(illing  L(eft margin   R(ight margin  ȡ- Ǘȡ ǹȡ .ȡ  Ƃ ˡ á d d   0  P(ara margin   C(ommand ch  T(oken def  0 00 : ق  قؕ؞ق ق ق   قÍ   قÄI vؕv   bytes used,   available.HG Patterns:G1 Dؕ v . Type  á   Ƃ #%d  = 'ŧEǀ'H- , = 'Fǀ'wš Markersá> < &! Copy: B(uffer F(rom file P  DBá: wȡ7 xؤá  Date Created: K맂J IŧIĄ Invalid copy.맂JġNo roomsLꂧ꧂JIħIɄIJꂧ - -  Last Used:  - -JIꂧJ맂J꧂J ħ Fá , Jump to     J Not option dxj з [اwxؤ xؤ  Not there.ؤ ħ[ $ JUMP: B(\N>0hAT(l* hfR"d&< eginning E(nd M(arker P  Bá)EáMá اˡا$    ꂫꂶꂶÄ  Í   á ĄÄ˄Ąۄz á  iáPȡ& KIJڶȡ5No insertion to back over.   mڶġb4Please finish ˡܡ    á áث 9 up the insertion   ڶ šBuffer Overflow!!!! á    Ʉګ ڂ ڂ٥ č9ꂶ  @ "삾 á nbi  ^ġ)š (š  ) <öÍáLçç Íɡ h ġ   ˄ ń  앞&삧앞 d á    ɡV d   Ȅ6  ɡáw?l &  Set: E(nvironment M(arker P  EáMá اˡاr "4! á/!~ō? H~ ħo < eXchange: TEXT { a char} [ escapes; accepts]P               á   ǀd ؂ȡ á;š4؂ꂾa áTꂾ ˄>  ؂ġ  ؂š!  ؂  P  ɡ          š ? ؂ꂾá ٫؞ǀ@ꕀPšq  ˡZ-    ٕاġ-á- ؕ L WARNING! You are about to zap more than 80 chars, do you wish to zap? (y/n)P  Yˡ    ؕ ق؞؞ق ٫ګ    U ؂ IL šꂧꕞ ħꕕꂧ\    rP  ˡPšǀɡ!No room to insert. n˄(3á ǀ vá(ȡ  áĸ š# Í    ͈ $% ɡ,ń šٮ ݮ+,  &؂ɡ킾Ä؂ nš삧앞1dšBuffer overflow'  IP   vá   v삧앞ˡ앫؂ ("#<á"#~ z!v$qá< > Lġ Integer Ovflw) <á"#[]  P  Má M vá    á< ljBrٕ ,˄ áxÄ W ٕ܄Lɡ>   ȧMf$ Vá(L  ܹ-(2ڕ(%ڕ(5.#ꂧقꕞ قٕٕ  ثLK IٕJ٫ ö ݓá(xá (fDŽQ  á (- áڕ(ڕ(  -á- á'*  á  ö D. ˡá۫ o 'šA>á#áR)./ Lá .Vá . Tá . VTÍLÍ/SsÍV^0/L  M;%*&&<á%&  "$"#<á"# !'Invalid delimiter. .á+ۂ ń  ۂ$šToo many$ġInteger Overflow<) <á"#˶˄ >á#"čġ-Your pattern is too long  1۶ɧۂۂÄ۶d'šĶ        !ń; ꂾ á+ $ ~  Í á8á  á       ɡkv"  Ʉ; Cá1á  á   |  *ȡIá  šĶ   #<áVڂ á-ń ۂڂQ \+ȡˡń3ꂾ á  ꂫġ  ø ɡ{Ʉ3  ɡˡȡ ȡ 4` x š   ض á : ؂    á   2  uy 4not in the fileNo old pattern.  " ^ P  ǀ Ŷڶt š á :ض     á   .Má  Má   d~ zxt p lhd 2  uy 5EE Ŷ  Eá ZD@8lb^\ZXVVVTRPN024680>@b; ˡ; 7Ŷ EɄ ŶŶöEɄ E VH  " ( ,z (B8T td , RFt $"B""#$J$%%&hv;Pattern Ŷ EɄ Eá @ 8     á78not in the fileNo old pattern.  " ^ P  >á54y e á78   3ǀ Ŷ š .Má  Má   d~ zxt p lhd 2 áAátoŧ˄ȍ!á ȥ $SYSTEMLELINKER  ÄB  X6.۪PڪP.P [M / ]: ء# áL( it T(okv9x  Replace' aborts, 'R' replaces, ' ' doesn't 9 á Rr˄Fš\Fš8Buffer full. Aborting Replace ꂧFꕞFɡꂧFꕞFFˡ F맂F꧂F D:̀̀تP%Type (continue), (terminate)++á+ á PT lڂ  á Find =>9& Replace V(fy =>9./0ʀ ťE1G á./̀0ʀڂ؂ڿ؂٢٢ٟáٚUۢ٢  !ۢ٢   22  á083ǀ Ŷٶt ġ  F1HçG çHGk  ȧMل*6 ١ނ߫ á:<á  ٓ'MńPattern  IBRARY Map name? ((.á .TEXT(۫۟áآō bad proc #ڶ˶˄disagreeing p #Hd!J ȡۢÄ ڢڢڢٕۢȍǰ6ōproc place err ǰ6 (ǐɡ ٚ۟áڟˡܡڢٚڢٚT xݟˡ2ݢܱ !ݢܵ ˡ:oˡ bad host segˡ dup host segګ Láڢ ڢګ3áۢ@ڢ  ww{/ HܟˡCܢȡ'ޢ@ۯ ޢá8Unit  not foundJá ښ ȡ á  á wierd hostDRM] ~j ȡ$ / @  h۟ˡTȡ=ۢá'ڢۚڢڢڢڢګٟˡ٢٫تPڹWs/cK/X#/M/B/7/,/![/^ULC:1(/yj  >`  ( # ššš` á6 "ˡ/ in workspace.CODEP/"ˡ!No file Pˡ Opening ١ li read err ١آj ٟˡgˡb٢000/0ٚ/0ˡsegtbl read err.1-á220313.Ä13.ˡTáno room in seginfo6  ٚۢۢۢ~ non-alpha name3.˄'3.ˍfunny code seg3.3.ɍ3.,ō bad diskinfo3٢ō too many refs bad formatáō bad privateńٮǠō.2 bad seg kind3@.  bad seg name-š....š1ÄAll segs linkedɍǰ6ō bad globdefō bad publicdefd٢٢Ǡōɍdō bad proc/func$-á0(` 4ȡ  Linker [I.5]E˫Z&:tXZ\^* J́ʁ́ʁʁ+Reading ʁ@( in workspace(*SYSTEM.LIBRARY Host file? (=&: ˡ bad litype fHš   ۢ( in workspace(šȡW Lib file? (+**SYSTEM.L۟ˡá1á)Ȅ   bad host LCá ܢ ٢ám6 F؟ˡ! ؚo8l"ˡ!ݢ ˡݢݢˡݢݢݢ  low'Ǡ ޟˡP ؚá5ǠǠšproc num oflowǠޢ Ǡݶݢݢ ! áݢ ˡ á  ۡ*Proc  param mismatch !áݢ o &!(ǐɡ out of memȡ ˡá  ۡ*Func  param mismatchM áݢݢ  unit err#ˡsep seg read errظW)  ݟˡ  ˡ)G Copying 1T4P  áUGlobal dPublic RConst AProc 1Fu áproc func    ˡnc !\L> 5'=/ undefined˄"ܚJ# X ؟ˡ$ ٕ! (ٟˡ   áá   sep seg 2 big ȡˡsep seg read err3 Ǡō bad pro$$آߣޟˡš ޢ? ɡڟá0ˡ"ڟˡˡá ڟáٟá ضؚ ' "    ޟˡ á ڂُȡ size of"   ؟ˡ Sep procs ؟ˡ    á  proc  func!!!""P#f#z###Z-̂MʂMȡ" ˥ ˄,ˡ,3 ˡCode write err  #    base =   leng =   ȡ١-؟ˡ!  áe3"?SYSTEM.WRK.CODE2ˡ&Ɓ next base LC = Ɓ Ɓ Ɓ Ɓ  Sep proc refs ,؟ˡ"  Local seg refs ؟ˡ    public LP3Ɓ_[ƁƀƁƀƁƀƁƀƂ'Ɓ#ƂOƁKƂwƁsƂ &3[C =   const val =   privat LC =   unit seg# =  ] ƀƀƀƀƁ#ƁKƁs0C` 2ffN. L>Pvx!glob def in    @   g O   4&Hf#z###Z-̂MʂMȡ" ˥ ˄,ˡ,3 ˡCode write errP- M Linking F #  á&-(áe3"?SYSTEM.WRK.CODE2ˡ&Ɓ next base LC = Ɓ Ɓ Ɓ Ɓ  **+   !,Ɓ ƂL- Output file?  ' 3*SYSTEM.WRK.P3Ɓ_[ƁƀƁƀƁƀƁƀƂ'Ɓ#ƂOƁKƂwƁsƂ &3[CODE[*] 3 "ˡ Code open err  ̂MʂMȡ'@ ЩƀƀƀƀƀƁ#ƁKƁs0C` 2ffN. L>Pvx!8ġ%  ǀ addr oflow#uhj  ˡš Ɓ "ˡ+ Can't open (UƁ Link map for ˡƁ FƁ Ɓ assem hostؓ c ޟˡáߟᄡ:á. ġɡ ᓡ6Ɓ Ɓ  #̂MʂMȡ" ˥ ˄,ˡ,3 ˡCode write err$ڶ ڶڶ,ɡ  * á'áe3"?SYSTEM.WRK.CODE2ˡ&Ɓ next base LC = Ɓ Ɓ Ɓ Ɓ     3ضˡcode write err  P3Ɓ_[ƁƀƁƀƁƀƁƀƂ'Ɓ#ƂOƁKƂwƁsƂ &3[@F؂+  Seg #    ,  FƀƀƀƀƁ#ƁKƁs0C` 2ffN. L>Pvx!# " Î ÷ r ÑáfpzæËýʿ!Úz}|ÃÃz{zڿÃ}¿|ʃ!ÚÌä !Î !Î     CD_!$ ^#V2 Y m y |E }2M!LQ zQ {2MLN2G] Ayh #:XCDKBÄ XCD !P ?)MDÌ  ʋ +{_}ɯO>GCDE#)9~"J##ͬ GOx {w#zw#y Gw#w#*JÎͬ Gx {/w#zKDÚo& ҕ&o^#V&"!9"*D"Ú.è.è.è!">.è.è.è.è.è. è. èCD/w#*JÎͬ + x$ {w#zw#*JÎO!9AxD w#w#*JH+~+~Î ^_!l ^#V 5  . è. è. èCD.è.èX"CD:!{#Az#Î o gÚ!Ú _W _R_*@^#VÚX*@E#)9N##Y"Jxښ AO{2xOì "y Aѳ *"H~ { #z #: ͢ ͫ *H  X*@^#VÚX*@s#rÚ2_*B^#VÚX*BÚX*B^#VÚX*Bs#rÚ *^#V=X Ú^#V >O*JÎ~ & {/0 #z/0 #:̢   ~ L ~/0 #~/0 #:ī  CDx ! {z !qxgOFszgs#rÚXÚs#rÚ^#VÚ_^#VÚX^#VÚXCD`i{=) ÎXCD{OzGÎ ! G}o^#V#MDÚ_~!^#Vʜ Ø =— x! G{_#zWxʷ :GÚ᯲Ú#CD KB9+9+#ÎMDR"!99y. :/O:/G>kb ÎCD])9N#F#! ژ !qxgFOxҏ y_! ~h&##)yʀ #CD 2CD|}2M!LN:-Î ÚÚ _ 2CDK) :o&EoÎCDCK^#VxڄGjS]‰9ʏ !Î!Î! @!9]T>ͩ > ͩ >G DO~ &#_W{怪_~Gy#N#Vc >Ïʏ:! ~_#~WÎCDy! N#Fo`ALbS\o#!-y/w#x/wÎ? ZQH o 8- $%~o###K zW+yO+~7G,_~W+~O+~7G$g_|W|O|Gͩ GN& ?{ozgÚ}o|gÚ}/o|/gÚ|7o>gÚÚCD ÎCD ÎCDÎCDKBÎᯕo>g&#x= 0Ø *ƁOGOG~#V#^_P|gx zWyOxG-¸ || }l&.ù _ͩ OG~*(; BE O\wY V i 7Q m 3@WR k uhÚRÚz}|úz{zûûCD!: ! >Gz`P`+{/_z/WB#ɯo>go>g}ƒ|$ *:"+F-Ny+V-}_|W:w#:w *,~-+V-}_|W~n+-}w_,|wW-"* * * =9"2o&)Қ*^#V{=]!s* ^#V{=]!sð*}ʚ*Ú2}2 &G#y0*ƁO ~#V#^_~G#N#VSxS]yS]}?]}o|g{_7}o!9~‡+~r#wS}@)O~W-ʙ^s,r#^,V"͵*+V-}_|W~ʷ#~ʽ*V-^+F-N  o>g9"3**4,#s,r7*}uPÎ}=Ž){_:{_ Zx\ zG{֐ü>2F>_8O>G{&} 01,GOWoG,-+|<怨BW]"H}o:F2Fl&9*HzWzW^#V:ʎi`##N#FK CD_!^#VD PK[T~LLLLLLL%3! &1*>r |g.ͷ ͡!! ]T ))F+N+V+^>2F Hz@CPo>g9|g}oÎ*s#r*s#rÚ_*>s#rÚ^#V">!"Ú_*>s#r ">PҎ*}=">!"xzzÎt$> nk(:Chԥ5!c_ʹ1^ l $-xX(y)hSYR%oNˑ?;! I|oŰE7v@pps xʎ]TÎ}|ڮãpÎ p+ÎѧRÎ"ͤ {# {+ "xvCD2F:Fʎ̓͑Î̓""͑**Î̓pÎ̓ͷ Ì̓ Ì̓r Ì̓zÌ̓ Ì̓fÎ͇͡Ìͤ {#  {+ y_ !$'(****AND 'ARRAY ,BEGIN͇͋Ì͇ͽÌ"HzWx怺F0YP1{GzG{HzH*H}u|uq}q|quuÚ O> CASE CONST DIV 'DO DOWNTO ELSE END EXTERNAL5FOR FILE .FGÚ*O ^#V7RMDÚyo`N#F#^#V#"Dz}|ÎxB#)*DN#F+BMDÚ*+V+^" "B*@^#V O*ORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD 'NOT &OF @ #*" "@":+:4*~="Úo&))O F-N q,py*>!9}|"Hp*""H CDD_*OR (PACKED +PROCEDURPROGRAM !RECORD -REPEAT SET *SEGMENT !SEPARATE6THEN TO ^#V7R"~«ʡ*&))N 5+V-^^#V#N#Fo>g9 o>g9*##y*D***P!9" TYPE UNIT 2UNTIL USES 1VAR WHILE WITH !-b"""!> #w*^#V* "@*"*"+V+^}O|G*HdÚd*Úd**@"B*"N#Fq#pÚd*MD*#~=h4! V+^+F+N#hKBÚ!`ڒ w_ʽ`ڣ Aڭ[ڷ0:#wÔ*7{_zW*s#r:7:<7"}|!#  *R<*N#"N*ìCDu>KD"]U*&)]T)2"^#V{!9"R,#"*+++F+N!9*+F+NB:! **##w#Î*##6#6###w#ÎAO* N#Fi` ))6* """*#!**s#rÎ% : ‘> 2Oͻ.. Ò*&)~2#~2:þ:o SYSTEM.PASCAL* *R"K O>Gw# !11: '[' expected !12: ']' expected !13: 'END' expected !14: ';' expected (possibly on line above) !15: Integer expected !++1*"*!!!B!"B#S*" -P*!!@*N#Fi`"B>2.!:16: '=' expected !17: 'BEGIN' expected !18: Error in declaration part !19: error in !20: '.' expected !21: '*'N#F#* s#r#~#~#:=2y!2^#V*##R:O*0B!Rw# !"N*"P*"+F+NB"+F+NB"D*  expected !22: 'Interface' expected  23: 'Implementation' expected !24: 'Unit' expected !50: Error in constant !51: ': =' H^expected !52: 'THEN' expected !53: 'UNTIL' expected !54: 'DO' expected !55: 'TO' or 'DOWNTO' expected in for statement !56:&o":>>2Î!>2Î>2!"n!>U>R>!2"""""##^#V*|}*YË.:ʠ.ÿ*)$"*MD.$*)){<2O.>!=#{ #}2=2O.!*%"S}*ʿ$,":S!9MD.$S:¿*!9:G~#C!9ÿ:`.*b.'n>2*"MD.$:ڋ!³<Ұڡ:<2O.22O.!}:g :2͒C:C͡**{C:NF?͵Ow:?F:?: ?6#{3C#}:TͻÑ:ty 2:=2 ͻby2ʑͻ: ‘> 2Oͻ.. Ò*&)~2#~2:þ:o SYSTEM.PASCAL* *R"K O>Gw# ++1:7*"*!:!!B!T"B#S*" -P*!:'!@*N#Fi`"B>2.!:':N#F#* s#r#~#~#:=2y!2^#V*##R:O*0B!Rw# !"N*"P*"+F+NB"+F+NB"D* "1: Error in simple type "2: Identifier expected "3: 'PROGRAM' expected "4: ')' expected "5: ': ' expected "6: Illegal symN#Fo>g9!9!!9"" "@"B!">Î@TͻÑ:ty 2:=2 ͻby2ʑͻbol (possibly missing ';' om line above) "7: Error in parameter list "8: 'OF' expected "9: '(' expected !10: Error in type & ype identifier in variable declaration  119: Re-specified params not OK for a forward declared procedure 120: Function result tannot be formal or non-local  156: Multidefined case label  157: Too many cases in case statement  158: No such variant in thype must be scalar, subrange or pointer  121: File value parameter not allowed  122: A forward declared function's result typeis record  159: Real or string tagfields not allowed  160: Previous declaration was not forward  161: Again forward declared  can't be re-specified  123: Missing result type in function declaration  124: F-format for reals only  125: Error in type of 162: Parameter size must be constant  163: Missing variant in declaration  164: Substition of standard proc/func not allowed standard procedure parameter  126: Number of parameters does not agree with declaration   165: Multidefined label 166: Multideclared label  167: Undeclared label  168: Undefined label  169: Error in base set  17 127: Illegal parameter substitution  128: Result type does not agree with declaration  129: Type conflict of operands  130:0: Value parameter expected  171: Standard file was re-declared  172: Undeclared external file  174: Pascal function or proce Expression is not of set type  131: Tests on equality allowed only  132: Strict inclusion not allowed  133: File comparison dure expected  182: Nested units not allowed  183: External declaration not allowed at this nesting level  184: External declnot allowed  134: Illegal type of operand(s)  135: Type of operand must be boolean  136: Set element type must be scalar or saration not allowed in interface section  185: Segment declaration not allowed in unit  'IF' expected !57: 'FILE' expected !58: Error in (bad expression) !59: Error in variable  101: Identifier declaredubrange  137: Set element types must be compatible  138: Type of variable is not array  139: Index type is not compatible wit twice  102: Low bound exceeds high bound  103: Identifier is not of the appropriate class  104: Undeclared identifier h the declaration  140: Type of variable is not record 141: Type of variable must be file or pointer 142: Illegal parameter sol 105: sign not allowed  106: Number expected  107: Incompatible subrange types  108: File not allowed here  109: Type must ution  143: Illegal type of loop control variable  144: Illegal type of expression  145: Type conflict  146: Assignment of fnot be real  110: type must be scalar or subrange  111: Incompatible with part 112: Index type must not iles not allowed  147: Label type incompatible with selecting expression  148: Subrange bounds must be scalar  149: Index typbe real  113: Index type must be a scalar or a subrange  114: Base type must not be real  115: Base type must be a scalar or e must be integer  150: Assignment to standard function is not allowed  151: Assignment to formal function is not allowed a subrange  116: Error in type of standard procedure parameter  117: Unsatisified forward reference  118: Forward reference t152: No such field in this record  153: Type error in read  154: Actual parameter must be a variable  155: Control variable c' t not importable  201: Error in real number - digit expected  202: String constant must not exceed source line  203: Integer . DRAWLINEPASCALIODECOPS constant exceeds range  204: 8 or 9 in octal number  250: Too many scopes of nested identifiers  251: Too many nested procedu res or functions  252: Too many forward references of procedure entries  253: Procedure too long  254: Too many long constants in this procedure  256: Too many external references  257: Too many externals  258: Too many local files  259: Expression ;COPYRIGHT (C) 1978, REGENTS OF THE UNIVERSITY OF CALIFORNIAtoo complicated  300: Division by zero  301: No case provided for this value  302: Index expression out of bounds  `x7 7 ttw j7 j^^R7 R CptE`eE -00(7 $m- 303: Value to be assinged is out of bounds  304: Element expression out of range  398: Implementation restriction  399: Imp  ` ~ m- ` ~-     lementation restriction  400: Illegal character in text  401: Unexpected end of input  402: Error in writing code file, not e 5  \j \  @nough room  403: Error in reading include file  404: Error in writing list file, not enough room 405: Call not allowed in sepa @xnpdTTTTT&fE CE ww  wrate procedure  406: Include file not legal RCaE ee e wz tE WuEB  N uED 7>tEpWuE` mtEp  uE` m %   ACBvC@A  186: Labels not allowed in interface section  187: Attempt to open library unsuccessful  188: Unit not declared in previous uses declaration  189: 'Uses' not allowed at this nesting level  190: Unit not in library  191: No private files  192: 'Uses' must be in interface section  193: Not enough room for this operation  194: Comment must appear at top of program  195: Uni( CBv xC L@PM|C L@A C@Pmlm`A C@xm\mPe:86݂$ $ $ȡ&  ߂0 ފ$č^   .ˡ> VTLXjh|l00000000   Eɡ  -ݑ š ߂ 0 ߂ 0 ߿lġ-   ݂. ݕ ؂݂:  ݕDRAWLINE DRAWLINEDRAWBLOC  DRAWBLOCDRAWBLOC 0 . ݑ0 ݕ݂ ؂ ɡ  (,  & * á  +-Í- z,  0 sġؕؕġ#˄˄ :k(0Rb ߂ 0 ߿lġ-   ݂. ݕ ؂݂:  ݕݢ ݣÄɡ3ڕġ$ڕšš"š 0 . ݑ0 ݕ݂ ؂ ɡ  (,  & *ޣ Ąޣ ݣ ˡPݣ %ݢ@ݢݢBݣ "ˡݣ ˄ݢBۂ" á  +-Í- z,  0ˡ\ݣ ݣ šݢݣ ݢ<ݣݣ ݣ ݣݣńݢ<ݣݢݢݢˡݢݢۚݢ>ܚ  - v sġؕؕġ#˄˄ á +-Í-ڲzؼ 0PASCALIOFSEEK FSEEK FREADREA FREADREA FREADDEC FREADDEC FWRITERE .áCڲzؼ0ݞ$ڲzjeEÍɍEáޢ >ۓFWRITERE FWRITEDE  FWRITEDE  DECOPS fkpt  *ɡ ؼ݀$ ؼݞ$ۡܡ ؼ* Jɍ -    á  +-Í- z,  0$ $ ݞ$' ݑ$ $݂ō $݂ġ  sġؕؕġ#˄˄ )  B ` $$~_ " ˕͕07 7   .͕- ͕0 ~FZ  F b jv#"-      E~"& f V7 d wlj  X٧<<؂< Gá اGGGٚ (GGٚG٧@ġ ٧@ؿBBۢV X R ͕0B ͕0~. _ ``f~ 6  _ ;NJ#&;KLZzؚۢ>@'á%(@(@\ > >>؂2w&7$" G8  J~4 f~  w* ~ ~_ @" R~_DqPH>RHDF& a " _B B`A b eE~ QB  b B~  `7 x [l a " ` b R H B ` $$~_  ˕͕07 7   .͕- ͕0 ~F  FHH~~` H~HhHh~~ e_:8 F  F   C~  #"-      E~& f 7 d w  _%_  77  &   ~  ~k aB  B  ~ `X`7DECOPS DECOPS GDEC GDEC & 7 7 7 7a E  Da7 | D7pqmha L Ha B~N0e:!~F  (&   _d 7w   aw w  D 7Da7  D~-w: F~  & ~ &B|vwxCxp%\% ~T P TJFLB>@0 4$ -$$      `T & BASICCOM  X w!     a ~E _ jJ  b ~^T  COMPINITCOMPCLOSPROG   ~PN<$`h d ~~.,$`  ~~ 727& a "* ?? ؚV?AZȡ|A?ATN BY CAT$ COS COP$ ȡڂ ȡڂ> *@ =UCSD BASIC Compiler, Version 2On DEF DEL$ DIM DATA END )EXP FOR FN GOSUB GOTH   ȡȡؤȡڤO GET$ INPUT IF INS$ INT LET !LEN LOG LN M(ڮǥǤǑǤOD NEXT "NEW ON #ORD OLD PRINT $POS RETURN &READ %ǂǚǂLjǫǭ TǕLjǫǑǤǥǤǚǭǭREM RND STEP SIN STR$ THEN TO -@ǃLǧ$džǕǕDŽDŽǍDŽǏǞLJNJǡǤ Ǜ ǥ Ǧ dz ǼǶǕǕDŽDŽǍǫ$NJljLJǽǭVǪȡǀ>,Oġ æ FILLINDICTؚ(<ǎǐǒǭǪǖǽǚǹǬǾy77Aá اAAٚ&AAٚ á  á " Nˡ>NNǰy87Ƿy97Ǵy:7DZy;7ǵy<7ǯD     تPٓW,d-,-ȡ,,"ASSERTION FAILED, REPORT MESSAGE: SVj ǎ  ,<0XDf2@\ > >>؂(æOUTBUFSIZE MOD 512 <> 0 ˡ%WORKFILE EMPTY  ˡ%Wȡǀ>,Oġ æ FILLINDICTؚ(<ORKFILE EMPTY  ȡȡؤȡڤAá اAAٚ&AAٚ á  á " Nˡ>NN򥀶 {@n ٩|A?á|A|AI|Aߧ?ˡߢ ޢ ޢߚߚ @ ٤h vOˡOá >O y7 ؕ  ( ٕȄ "M@áNNؚMMMOO > > >ˡ` h ˥ˍ ˡ?FWRM BڧDȡHCښDˡݧCáDIDN'T FIND LINE NUMBERء EEFš ITEREЩȡ؂ ˡ?FREADREAЩȡ؂ ۢښۢٚءۢݚݧFá۫Fۚ; ٧>خ>>ء>>C٧DȡLINE #'S NOT IN ORDERȡ <>ˡ4f BˡBB́ʁˡ*ڢٚڢؚڧDګDE٧FáFɡ Fخ FخF &r >ʁʁġʁʁ0ʁʁʁB Bá@  تP +,+,ȡ+++  ا>@.4l4np ˍ ˡ?FWRV :ء &ITEREЩȡ؂ ˡ?FREADREAЩȡ؂ ؤؤ٢ٟ٢٢٢ ٢6+áL LݟˡÄ $ȡ <>ˡ4f BˡBB́ʁˡ* Ná B٤áٮ$٧L*Ä'ڤáڤOOڤ6Ȅ؂ áȡ؂Bá) @٤áٮ$٧L+Ä횹Pǥ#LjǕǺǓǡǑ1Ǟ"NJǽǥ#LjǕǻǭTF X+PRESS SPACEBAR TO CONTINUE OR ESC TO ESCAPE  Íábت@ *ǪPǶǞǶ ǡǛǿǹǶ ǡǛ ǿǹP <--TR. š/Iá  IIIڢKګKPǛǿǭ > ǫǫ#ǐTǫ$ǭ2 ǫǫ#Ǟ ǫ$ $ȡKKK٢I٫I 8) š/Há)  HHHۢǡǥ$ǕǺǻǂǹǭ < ȡ`٤J۫JP JˡJJJآHثH, ǀ  ( y7, ˡ. UNEXPECTED END OF INPUT=v!!= ˡ "ث!= ˡ  REAL,STR,INT FUNC OR FNEND *+, ') NTVXZ+-1-#-áM#+>>>$%%ɍ EXP TOO BIGġ ڞ$ ڑ$<%=0ħ=9Ȅ =0"! ,&=-ޚš ޮ ܟ `--؟˄#+-؟ˍ WRONG # DIMS0ħ=9Ȅ ۼ ۼ=0". @'P=ˡ$ =P QP!!=:B.# >>>+>>>١ڢ-ܚڢ  .ܮ 3ˡ) #h/ˡȡ+ P QP>= á"GfT("=-ø=-ç=+Í"=٤áٮ٤ء٤٤٤٤/X0٤áٮ٤ء٤0ɧ=9č EXPONENT  &   %V) =='˧="˄"! á[2á <٤٤٤)/X1؟á2á NO ARGUMENTS g2ˡ ARGUMENTS #(ˡ+,؟-ˍ؟ˡ >.=á!!=0ħ=9Ȅ &?"^ōM ORD(CH)=  !CHARACTER DOEMORE ARGUMENTS -áLESS ARGUMENTS 3ˡ) #X 3#٤á UNDEF FN+áA٤á UNDEF FNS NOT BEGIN A SYMBOLٹ==á:$=>á<$7==á;$=<á<$9=<á:$=>á;$8=*á1$61) ٤3٤ 6٤á UNDEF FN٤3٤2)ض ./02345-= ˡ!( 0'=.á" '%=Eá)==0ɧ=9ō Fض 2ˡ( #,Pضض -ˡ$ R5á, +á62ˡ( #خ67-ˡRACTION  A'%=Eá)==Aɧ=Zō4=0ħ=9ȄA =0"A=$á("'Fç=NÄ  ", #خ68)ض 7Pض 88ض<97)ض ض 8Pض|A|=A 3ڧ?ˡ ݧ?á RESERVED WORD  "1ۧ?ˡ  ݧ?á RESERVED WORD  88ضF:)ض 7Pض *;)ض ض *<!" ?ェ==ݢゾˡ=ݢゾɡܢゾ ݧ?Äá>= ˡ! #?ˡ END OF LINE > RESERVOLD AND NEW NOT ALLOWED IN FN2ˡ( #=ˡ INT CONST  INT CONST INT MUST BE IN 1..1ED WORD  'ACH = !CHARACTER DOES NOT BEGIN A SYMBOLN"^z=\UWYG6ˡFILE #'S MAY NOT BE CHANGED, ٚ   #8ض(BتP <--EXPECTED R6 ==áV  pmdUWY[]_aceg    !#%')+-/13N- D DNM,H>*á> >ؕ>OO> VARIABLE NAMEL?(á3#2á1 P+#2á0 dI# FN IDS L#BCDG>>>EFFEˡUNRESOLVED FORWARD JMP(S)IH>r  T#4áp#=ˡ INT CONSTLFRACTION NOT ALLOWEDK<=#ع59:7=78778A+ JتP <--?ˡ# *R<KتP <--EXPECTED a;]#>  9 >>>"ˡ *?ˡ END OF LINFACTOR t>>1á#> "??A#?6á*4@/á# EL>##   >ڮ>>ۧ>'ˡ VARIABLE NAMELާˡIMPROPER FOR-NEXT NE.á#@#@/á١0 P+43(á#2á1  +á2 >STINGK# vM#+, COMPARATORL#١+خ ,خ @ THEN OR GOTOá#J,LáL+á=LˡFN ALREADY DEFINEDLLꚹ;LˡFN ALREADL#=ˡ LINE NUMBERL#N#JˡGOTOL#>>>>dž=ˡ LINE NUMBY DEFINEDL LꚭBš& EXCEEDED MAX NUMBER OF FUNCTIONS:C*áERL#-á(#=ˡ LINE NUMBERL#  JO=ˡ DIMENSIONLڢ2áx# ARGUMENT á ظ آ٢٢(á#-ˡ3ˡ) #آ#-á#ڢQ)ڢbQ#ARRAY VARIABLELá(+á D)+á؟ˡ>(á' Pښ)#ءiˡARRAY ALREADY EXISTSK2ˡ(L#Q bˡAٚ+áLLk E) 8á.#+á,+*á RRAY PREEXISTSK2ˡ(L#Q 3ˡ)L#-ˡ PREAD STMT NP/?ˡEND OF LINE OR = >#,ˡ*,á#4FFEFDCDNNMM*GFDCˡOT IMPLEMENTED#4á#=ˡ FILE NUMBERL#)#-á"# VARIABLE NAMEL#)R. ˡ)áA*?ˡ END OF LINE >#FEˡUNRESOLVED FORWARD JMPS\>> <>ؕ>ٕ ١آzتPY+ + M+ word referenceA+ byte reference>˥ˍˍˍ  :&\Bf '+ big referenceU=% š'+ (+ + times)+ (once)++ 5+5 . p f P  &`&V0Lnpd0x Nl> Z !!:!f!!!!("""j##ȡ ,++$h +# c+ completely linked segment++ Pascal host##$F$x$$ %b%%%\& ]0 >\    ]OO#]?ˡ LINE NUMBER >#>) outer block++ Pascal segment+s m+ library unit+s >+ sˡ)áA*?ˡ END OF LINE >#FEˡUNRESOLVED FORWARD JMPS\>> <>ؕ>ٕeparate procedure segment+ i<́ʁʁZ䍡ˡ߹ZK+ á UNDEF FILEK#T-á#T S+ , >˥ˍˍˍ  :&\Bf  AFV#4áp#=ˡ INT CONSTLFRACTION NOT ALLOWEDKá UNDEF FILEK( LIBMAP #ل!V ١5#ۡ ڮS= UDATA STATEMENT NOT IMPLEMENTE D"#+,-á#+,dW#=ˡ LINE NUMBERL#0X#=ˡ LINE NUMBERL#<Y#Z!á# VARIABLEL(á-#2á1  8ˡ=L#,P+#2á0  8ˡ=L#+ [COMMAND KEYWORDȡ$ / @ō  ˡ++Interface readL0[QRMMINEOAP=U9W5X1Y-Z)S%(%35E93I'QS~*ȡ(ˡ error+ ~   4  á á   0 >\    ]OO#]?ˡ LINE NUMBER >#>)ō+ ++ áG ١$+library read error!+/  enter library name: ,P, +,*,*SYSTEM.LIBRARYP,"ˡ.CODE,P,,ˡbad fileUUȡ\ɥɍ,ō# not a code filelist linker info table (Y/N)? ٳ@@  ERROR &>This program modifies the SYSTEM.PASCAL of your default prefixٳZZylist referenced items (Y/N)? ٳ@@ ?disk. If any of the files it expects to be around are missing,?i.e. SYSTEM.PASCAL, or enough room (60 blocks) tٳYYX}map output file name: P.á o re-create it,2it will terminate with the cryptic message "ERROR"?You also need to execute th:ˡ.TEXTP+"á+ + LIBRARY MAP FOR +,++۾š+ ++e program SETUP to get the system to&work intelligently with your terminal.* File with GOTOXY(++nBJƁ+ƂWƁƂ/ՁLibrary map utility [I.5:4]XXƁ+X,Y: INTEGER) procedure:Pá "ˡ! ++P+.CODEU+"á2 SYSTEM.PASCALƁlrzn^ Zylist referenced items (Y/N)? ٳ@@ "ˡ2ˡ+++2+ˡ ˡ+++ + global addr P #+ +, I #+ +Z5+ + public var base = + +ٳYYX}map output file name: P.á Z4+ + constant value of + +Y4+ + external proc P #+ ++ :ˡ.TEXTP+"á+ + LIBRARY MAP FOR +,++۾š+ +++ separate proc P #+ +t globalg publicZ constantK separate< unit1 private#++nBJƁ+ƂWƁƂ/ՁLibrary map utility [I.5:4]XXƁ+ ZOFLGIán 5ȡš+ Segment #+ + BINDER : ++F----------------------------------------------------------------------K++  0 ˡF\@PASCALSYЩ\욶\UXXUUZض[ YLAND DIF DVI DVR CHK FLO FLT INN INT LOR MODI MPI MPR NGI NGR LNOT ˡk]YUˡM\@[آ@[\[\[UXXUUSRS SBI SBR SGS SQI SQR STO IXS UNI S2P CSP LDCN ADJ FJP INC IND ,š Zá[[ȡZ[š[[ @. d,٪PتP]ƁIXA LAO LCA LDO MOV MVB SAS SRO XJP RNP CIP EQU GEQ GTR LDA LDC X\Z]UY\̀[̀[ʀȡ;ʀ@[ Щʀ[ʀ[[[LEQ LES LOD NEQ STR UJP LDP STP LDM STM LDB STB IXP RBP CBP EQUI  ,]\á ])Code file write error ] Ɓ62Ɓ^ՀGEQI GTRI LLA LDCI LEQI LESI LDL NEQI STL CXP CLP CGP S1P IXB BYT EFJ ҥ  Moving procedures around  ! 2 Calling systeNFJ BPT XIT NOP SLDL1 SLDL2 SLDL3 SLDL4 SLDL5 SLDL6 SLDL7 SLDL8 SLDL9 SLDL10 SLDL11 SLDL12 m linker to create new SYSTEM.PASCAL SYSTEM.PASCALSYSTEM.PASCAL[60] 2f\RSLDL13 SLDL14 SLDL15 SLDL16 SLDO1 SLDO2 SLDO3 SLDO4 SLDO5 SLDO6 SLDO7 SLDO8 SLDO9 SLDO10 SLDO11 SLDO12 X\Z]UY\̀[̀[ʀȡ;ʀ@[ Щʀ[ʀ[[[SLDO13 SLDO14 SLDO15 SLDO16 SIND0 SIND1 SIND2 SIND3 SIND4 SIND5 SIND6 SIND7 REAL STRING BOOLEAN POWER BYTE WORD EXEC-ERRINIT RESET OPEN CLOSE GET PUT SEEK EOF EOLN READINT WRITEINTREADREALWRITREALREADCHARWRITCHARREADSTR WRITESTRWRITBYTSREADLNN WRITELN CONCAT INSERT COPY DELETE POS BLOCKIO GOTOXY IOCHECK NEW MOVELEFTMOVERGHTEXIT UREAD UWRITE IDSEARCHTREESRCHTIME FILLCHARSCAN DRAWLINEDRAWBLOC    +ˡ)ؕܕؕܕ'ؕ'ؕە TRUNC ROUND SIN COS LOG ATAN LN ''''۞ۂە. Z]UEXP SQRT MARK RELEASE IORESULTUBUSY PWROFTENUWAIT UCLEAR HALT MEMAVAL SLDC ABI ABR ADI ADR 1 ع// / / //-s/b/@ š  +ɡI \+d\+d1Q/*@/// teVK<-/ع|٢ ٢ ٢ ٢"8 o٢ c٢ ٢ P٢ ٢" ٢B 6٢R *٢  ]yUD0&m +ƁW0 + *OPCODES.I5+0̅ʅȡ2+`+`+  UCSD P-CODE DISASSEMBLERInput code file: PD!%" CODESTAT l̅ƅPƅ.CODEUƅ"ˡ llá̅ʅȡSˡ  INIT DISASSEMGATHER DATACOUN Ǘ.    (Is this code file designed for a machine 8where byte zero is the most significant byte ?Yë  *Dis-assembly output file ( for none): PPCONSOLE:#1: /'#"!press spacebar to continue... á hƂlƃƁ/Ƃ[ +\ Щd0123456789ABCDEFЩ +}b BH ˡ Յ     /ƂlƁ/ƒPVnt statistics( for none): PǗ.    (Is this code file designed for a machineCONSOLE:#1://P /š/// 8where byte zero is the most significant byte ?Yë  *Dis-assembl sorry but there were no accesses/3 to this data segment from dis-assembled procedures/! Zۂ(ڂ(() Ʉl(á= Jɡ %%  %% 2   /$ǥǧǫ/44 ۢ/\//BOOL/ /\//POWR/ /\//ۢڡخ١خ)/ / /\/ //4BYTE/ / /\/W/WORD/ / /\/ ;4 /  ڢڢ ڢڢؕٮ)/  U# //44/ / ' ڢ/ /\/ //44á ۢڢ!ȡ/ȡ /'/)L /++ š ǀ<ۢÄÄÄńɄWۢ"ۢ"8/8؂44/ /\Fɡá*//áǀɡK##/aڡ(ǖǖ3/ / / /\/ ۢۢ@/44/ / /\//44šɡE"" f//44)/ / /\/ ٢-/ / /\/ɡD!!-/ / /\/6 ٢//44  ۢۢ -/ / /\/"/ /\/ /6:   ۢ"ۢ"ڕ ۢBۢBǀɡ ?c=  áءGd //4/ / / / /\/ڕȡ`+\ Щؕ)/4ǭÍǡǹǀɡ@ 0/ / /\/) / /\/h //448/V`?c :/?c / /\/Ǯ44/ /\/آ(آ( //44١(ǖǖ)/ / /\/ / ڢڢ٢٢ Í/REAL/ /\//STR / 3 OCK #/( / OFFSET IN BLOCK=/ //SEGMENT PROC OFFSET#/ # 4ǖȡ!  "Procedure guide: #(of /HEX CODE/W*.2á ([ ]procedure),%L(isting),Q(uit))A(ll),L(isting),Q(uit) to segment: z/ / / /(/d/d/d/): ȡ!?قwhich procedure #data segment to watch?/.2á +\ Щ'', EA= 9to dis-assemble?LáAç dis-assembling all4ǖ  proced51 - )%! 3)/-?=Lp4ǖ́3ʁ3ȡƀǖuresꓡ2( )Q09Ȅ004ǖ́3ʁ3ȡ4ǖ́4ʁ4ȡ&ǖġǖǖǖǖ9Ȅ 04ǖōF$I didn't say you had THAT procedure!S diƀǖƀǖƀǖ4ǖ́3ʁ3ȡǖ"4ǖ́3ʁ3ȡ s-assembling procedure  cȡ  4/44)/ / /\/ ۢۢ&G[0hL8)&4)ȡT+\ Щ)/) / /\/\ $ %%$$&)(& š & & 4ǖ 4ǖ 4ǖġ4ǖǀɄ?$cؕ,'ǀɡ?$cŧ$cÍ?c$%ɡ(٥ۧcĄá<cۧcšۧá ؤؤ?% % $?c$ȡ!?$c?$c$$) 4ǖá*Procedure notń4šڧá ؤؤ6y  *؂ in file&4ǖ ɡ!&4ǖ  š  %(؂l 24ǖ4ǖ ááL Procedure   is written in Assembly./ /BLȡ$ # LL SIZE4ǖȡH : 4 %for possible DIS-ASSEMBLY?Qˡ09Ȅ009Ȅ 0 one Parameter two٦ Case table size٦7Bits used Total Percentage Total PerōK"I didn't say you had THAT segment! ˡAQÍ  z.centage٦ Total Percentage٦*Flavor Total Percentage Flavor٦ Total PercenQák  7have you changed your mind about data segment watching?Yáçtage~٦2 # Total Pct # Total Pct # Total٦ Pct # Total PctSȡHˡ d \   }X)=| //Jump statistics on the/ / Total jumps/š/1 Do you wish to keep track of references2 to a particular procedure's data segment?/5 Positive jumps Negative jumps//ȡu/ / /Yë  &Do you wish control over dis-assembly?Yë d/ /d/2//Sorry no jumps today!;*** WARNING - - STATISTICS ARE GATHERED ON DIS-ASSEMBLED PROCEDURES ONLY ***o/c5 t//Procedure call statistics/ȡˡǖȡ /*** THIS INCLUDES DATA SEGMENT WATCHING ***}ǖšw/ Segment:/ / Procedure:/ / Calls:/ǖ / ȡVꓡ(( )ˡ`  #􊉇ئSLDC OPCODE: 0..127 TOTAL:ا# ا#'dئ  6 R n t : 2,h N h& : rol over dis-assembly?Yë % ȡ*#ˡ ȡ :إ/ إ/#ȡcQÍV 2^Xp $Segment guide: #(of segment),Q(uit);*** WARNING - - STATISTICS ARE GATHERED ON DIS-ASSEMBLED PROCEDURES ONLY ***oyou have these segments:ȡV  ȡ!ع٦ Parameter one٦ Bits used Total Percentage٦7 Parameter one P?؂which segment to look at 'to decide on DATA SEGMENT?arameter two ٦7Bits used Total Percentage Total Percentage٦. Parameter5 d  :إ/  إ/ #d@ :إ/@ إ/@/ 􊉇/ /'d/ % ȡ*/ #d` :إ/` إ/`#d "􊉇r / 􊉇/ /'d/ % ˡȡ/*//SLDL OPCODE: 216..231 TOTAL:ا" ا"'dئ % ȡ*"ˡ///ȡG/ /٢ /٢d// [  ȡ :إ/ إ/"d :إ/ إ/ /􊉇/ /'d/ % ȡ/*////"d :إ/ إ/"d  :إ/  /ákȡ^/ /٢ //٢ //إ/ "d "_+!􊉇ئSLDO OPCODE: 232..247 TOȡu/ /٢ /٢d/٢ /٢d/TAL:ا! ا!'dئ % ȡ*!ˡ ȡ ⥁//áȡ쥁/8؂44/٢" // /8؂44:إ/ إ/!d :إ/ إ/!d/٢" //ȡ楁/8؂44/٢" /٢" :إ/ إ/!d  :إ/  إ/ !dd/ /8؂44/٢" /٢"d/ 􊉇ئSIND OPCODE: 248..255 TOTAL:ا  ا 'dئ % z$ / 􊉇/ /'d/ % ˡȡ* ˡ ȡ :إ/ إ/ d/*/////ȡG/ /٢ /٢d/ :إ/ إ/ d :إ/ إ/ d/ [ / 􊉇/ /'d/ % ˡȡ :إ/ إ/ d  (e5///*/////ȡu/ /٢ /٢d/٢6 ȡˡ\/3؂44/٢ /٢󊉇d/ M/3؂44اؕؤ ؤšؤؤاġ;b/٢ // á/ X ǀ ȡ/ئData Segment size:ا ئ Data references:ا ئ Lex levelإۧc Tš dš Xš Lš @š 4š (š  \FT>4fh.$V ئ For segment ȡ إ?قئ Procedure #ا ئOffset( /٢d/ȡG/ /٢$ /٢d/   3Output file for opcode statistics ( for none): P/ [!| / 􊉇/ /'d/ % ˡȡCONSOLE:#1://P ǀ **ȡ//44/*/////ȡ/ /٢ /٢d/٢"/ Opcode:/ / Total: : 6 2 . *&" ("(" ,. /٢"d/٢B /٢Bd//d  8 '  Total operatorsST ɍX/􊉇/ /'d/ % ȡ/*/// -   $ $ ݞ$' ݑ$ $áȡ/V؂44/٢( // /j؂44/٢(ō $݂ġ ݂$ $ $ȡ&  ߂0 ފ$ ///~44,/٢(( //ȡ쥁/V؂4č^   .ˡ>  Eɡ  -ݑ š ߂ 0 ߂ 0 ߿lġ-   4/٢( /٢(d/j؂44 /٢( /٢(d. ݕ ؂݂:  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ  (, //~44,/٢(( /٢((d/RG"v/ ` ` p0 ed your mind about data segment watching?YáçSȡ 􊉇/ /'d/ % ȡ/*///ɡ=ˡ/آ;ˡ/آ7 lġ-   ݂. ݕ ؂݂:  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ   ȡ$ D X X %:&)(, (  إ/ #d@ :إ/@ إ/@Lost workfile sourceB Workfile .š. read in*No wor#d` :إ/` إ/`#d "􊉇kfile to read 31p"  %áɡ{  SLDL OPCODE: 216..231 TOTAL:ا" ا"'dئ % ȡ*"ˡ؂؀ %ˡ4!Output file error: Help%؂ɡ]ꕕ % ȡ :إ/ إ/"d :إ/ إ/ˡ6!Output file error. HELP!%!%٫q *$ $  bPASCALSYEDITOR Z%F@Quit: U(pdate work file, E(xit without update, R(eturn to editorP'UuÍs*SYSTEM.WRK.TEXTword) Total %u 4ˡ3/ / /d /ˡ X   8Output file for data segment statistics( for none): PCONSOLE:#1://P /š/// sorry but there were no accesses/3 to this data segment from dis-assembled procedures/! Zš%á ەš ڂ۞$not enough space   xɍ -   $ $ ݞ$' %% "ˍ܍-%not enough space^š:ݑ$ $݂ō $݂ġ ݂$ $ $ȡ&   ނš ݂%ڂ۞ꂫ a BYALOE::$ 0 ފ$č^   .ˡ>  Eɡ  -ݑ š ߂ 0 ߂ 0 ߿- ? for details ڕLjڕńܓܡɡ}2 ȡ 28 e defined are: -  ȡ%ˡ  - Your text buffer is  ɡ؂؂ث Y  ڂš?%insertion truncated, not enough space bytes,   of which are filled, leaving  Your 'save' text is   byteš&'save' area deleted.ڂڂڞڂڂګ ءڂás  >: V   ٓ ɶɄ ōa: ȡ؂ؕؕ؂ؕꕕgá:ǀáǀ١áošj% 킾%킾=킾 áȡH ȡ ؂ؕ .ɶ ō# á 2 dō ág or (^X).ܡ macro haltedثګ٫ܡ Y $$$#Jš $ $á  áá /ؓÄ' please finish  ġ܂$A> ńؿ؞%"á u%(.TEXT-"á :|+<  : IS IN ERROR, COMMAND STOPPED.D ȡ3BFile:  is in error. Not read#File name error.؂+Z %?&SYSTEM.WRK.TEXT*SYSTEM.WRK.CODE%%. %! ڂɍ( ڂÍ+` p á  ꕸYet Another Line Oriented Editor.5Advance Beginning Change Delete Get Insert Jump5Kill ɡ!ɡ؂ؕث'ɍ ؂ؕꕕp ɡ" ȡ List Macro Now 8Quit Read Save Unsave Verify# ġ ꂲ9rzɡ 삾؂ Write eXchange ?elp%Ctrl-X (can) to cancel command input. The macros you havˡfġ  Find too long9؞9ؿؿڍڡ&9 not found9 W؂ڂɡقڞ؞؂#not enough space l۹   %  Unimplemented  Ȅؿ؞؂.؂]˄.TEXTÄ(.TEXT-(؂.á%۳ ?zx~|zxvtroHFzFDB@:<>@"áQFile: . is in error. Write not done.K  Illegal title LIBRARIA ؂'xɡ삾 񗜳Ʉ삾-۳( 삾 / 삾0삾ǀ ō삾۳ %ˡ =áǼ삾ܡڑġ۳۹   %  Unimplemented ۳ ?zx~|zxvtroHFzFDB@:<>@á->پ٢B""ˡ""- I/O error # P 6BD $%$ $X(B6:G-Link Code File -> PPš P[ÍV ^ȡ l%ƁQ* %.DT  | h jd4ڑġ۳-ۢ@ڤڤ  -ۢ@  -ۢ@ ۹   %  Unimplemented   -ۢ@   -Code file length - P  ( á{[ ۳ ?zx~|zxvtroHFzFDB@:<>@ˡ"-Link info read errPE ˡ"-Code file overflowP  l'b.H8,pL&BT*X(B6:G    - Bad link infoPۓ'>`š  ȡٕؕȡ0Not enough room to save inȡ ق؞ ؞xál%ƁQ* %.DT  | h jd4ڑġ۳: á  Code write error  nƁ[ƂƁƂƁ[ƁP0f\. è. è. èCD.è.èX"CD:!{#Az#Î o gÚ!Ú _W _R_*@^#VÚX*@"J ortP @@[,  -Pascal System LibrarianP,X*@^#VÚX*@s#rÚ2_*B^#VÚX*BÚX*B^#VÚX*Bs#rÚ *^#V=X Ú^#Vۡh x ō , [ ˡ!-Interface read errP ˡ"-I-Output code file -> P  P á  ˡ', ,VWWȡnterface write errP i ق 4 ɡ ق á á Щسسe-Notice? P,O,ōe [ˡ&-Error reading seg P ˡá  Code write error  nƁ[ƂƁƂƁ[ƁP0f\'-I/O error - no room on diskP,@آ@,,آآō آ,آ"J ortP @@[,  -Pascal System LibrarianP,,آˡ آ آ ,  2-Pá -Output code file -> P  P á  ˡ', ,VWWȡ 0 ˡ ڤšګ-Seg to link into? P Y(; BE O\wY V i 7XQ . 3@WW k 6h,ˡU-, N(ew fi#" Î ÷ r ÑáfpzæËýle, Q(uit, A(bortP @@[,  -Pascal System LibrarianP,-Output code file -> P  P á  ˡ', ,VWWȡ !P ?V@ Щسسe-Notice? P,O,KDÚo& ҕ&o^#V&"!9"*D"Ú.è.è.è!#">.è.è.è.è.è. è. èCD;    CD_!$ ^#V2 Y m y |E }2M!LQ zQ {2MLN2G] Ayh #:XCDKBÄ XCDr |g.ͷ ͡!! ]T ))F+N+V+^>2F Hz@CP)MDÌ  ʋ +{_}ɯO>GCDE#)9~"J##ͬ GOx {w#zw#y Gw#w#*JÎͬ Gx {/w#zt$> nk(:Chԥ5!c_ʹ1^ l $-xX(y)hSYR%oNˑ?;! I|oŰE7v@p/w#*JÎͬ + x$ {w#zw#*JÎO!9AxD w#w#*JH+~+~Î ^_!l ^#V 5  vCD2F:Fʎ̓͑Î̓""͑**Î̓pÎ̓ͷ Ì̓ Ì̓r Ì̓zÌ̓ Ì̓fÎ͇͡ÌE#)9N##Y"Jxښ AO{2xOì "y Aѳ *"H~ { #z #: ͢ ͫ *H  ͇͋Ì͇ͽÌ"HzWx怺F0YP1{GzG{HzH*H@ `-TIہI1r >O*JÎ~ & {/0 #z/0 #:̢   ~ L ~/0 #~/0 #:ī  CDx ! {z !qxgOFszg ^[ʐʚ*f*d *b*`ͷ *Z*Xͷ *V*Tͷ **p**͈ ***s#rÚXÚs#rÚ^#VÚ_^#VÚX^#VÚXCD`i{=) ÎXCD{OzGÎ ! G}o^#V#MDÚ_~!^#Vʜ Ø =— x! G{_#zWxʷ :GÚ᯲Ú#CD KB9+9+#ÎMDR"!99y. :/O:/G>kb ÎCD])9N#F#! ژ !qxgFOxҏ y_! ~h&##)yʀ #CD 2CD|}2M!LN:-Î ÚÚ _ 2CDK) :o&EoÎCDCK^#VxڄGjS]‰9ʏ !Î!Î! @!9]T>ͩ > ͩ >G DO~ &#_W{怪_~Gy#N#Vc >Ïʏ:! ~_#~WÎCDy! N#Fo`ALbS\o#!-y/w#x/wÎ? ZQH o 8- $%~o###K zW+yO+~7G,_~W+~O+~7G$g_|W|O|Gͩ GN& ?{ozgÚ}o|gÚ}/o|/gÚ|7o>gÚÚCD ÎCD ÎCDÎCDKBÎᯕo>g&#x= 0Ø *ƁOGOG~#V#^_P|gx zWyOxG-¸ || }l&.ù _ͩ OG~*ÚRÚz}|úz{zûûCD!: ! >Gz`P`+{/_z/WB#ɯo>go>g}ƒ|){_:{_ Zx\ zG{֐ü>2F>_8O>G{&} 01,GOWoG,-+|<怨BW]"H}o:F2Fl&9*HzWzW< *h"*j"!")-͑*KB͑**r ** ͷ ""*-:*v*t****r ͦ **^#V"*MD*}|! ^#V!^#V7}_|W! s#r+++:N^#V:ʎi`##N#F  CD_!k^#V al! ! ?** ""|,>2F1}:Bͦ}ց2_}o""*V"*T">2**** ͷ }  *>o>g9|g}oÎ*s#r*s#rÚ *>s#rÚ^#V">!""":=f:o:ҧͦ*R*P ""*h"*j">2o&͑:<OYP͑**r **Ú *>s#r ">Ҏ*}=">!"x;;Î1s xʎ]TÎ}|od1Î 1+Î ͷ "":=**** |A}I>2Fh>2[ͦ>2}ց2.ͭ1*&͑ҌÏ͚ѧRÎͤ {# ¤¤{+ ±±xͤ {# {+ y_ *~*|r ͷ :1**r *&͑**r ͷ :͇:Ì͇{Ì͇Ì͇_Ì͇Ì͇!$'(****AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ͚Ì͇nÌ}6|62}2|266Ú EO>GÚ*O ^#V7RMDÚyo`N#F#^#V#"Dzy}|}ÎxELSE END EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN B#)*DN#F+BMDÚ*+V+^" "B*@^#V O*@ #*" "@"::*~"Úo& )INTERFAC3LABEL MOD 'NOT &OF OR (PACKED +PROCEDURPROGRAM !RECORD -))O F-N q,py*>!9}|"H1*""H CDD_*^#V7R"~lb*&))N 5+V-^^#V#N#Fډo>REPEAT SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR z*xr p**p**͈ ***z*xr pzf""͜""r ͒**g9Ú o>g9*##yʡ*D***!9" "@*"*"+V+^}O|G*H%Ú%*Ú%**@"Bz** zf""͜z""ͷ **** p*r*p ͡}2*"N#Fq#pÚ%*MD*#~=)! V+^+F+N#)KBÚ *^<*N#"N*mCD6>KD"*&)]T)͑""*R*Pͷ "":14"":W]N`͚:kf:uf"2"^#V{!9"R,#"*+++F+N!9*+F+N!:*:"+F-Ny+V-}_|W:w#:w *,~-+V-}":ʘž͚áN:Үf{*R*P2*n*lr :=""z͜""_|W~/+-}w_,|wW-"***="2o&))O~W-Z^s,r#^,Vë"v*+V-}_|W~x#~~*× **** ""p͡"͑ *ʹr :Yͦ""z{xͦ""V-^+F-N  o>g9"**4,#s,r7*}6Î}Ž#^,V,#Î""*^#V7}o|g"D*:*:ʎ*=  N#Fi` ))6* """*B #!**s#rÎ[ *^#V{= !4 * ^#V{= !4 q ""*h"*j"!")-͑*KB͑**r ** ͷ ""*-:*v*t****r ͦ **E!J!""*}ʚ*Ú2}  2 &op " : > >2Î!>2 Ͱ Î>2 !" Ͱ PASCALSYHEXEDIT /!!>!>!>!2 " " " " " Ͱ ##^#V* |>!* L!.̓": a!.̓"À"* )$" * MD.$̓"* )) {<2D!O.̓">!=‘!#{ ڥ!#}2B!=Ҭ!2C!O.!̓"* %" "}!ʀ"$," : "!9MD.$̓"": €"* !9: G~#"!9À": !".*#".'̓"/">2* " MD.$̓":C!L"!B!t"<q"b":D!<2D!O.̓"2B!2C!O.!̓"ü!>!:g : ʵ"2"S##: #b#* * {#: "N##v#Ow: ##: #: #6#{"#!>ؾآ4>ؾآ(J`ۢÍU#ÿ">!: #|#R#:"5#y 2":"=R#2" |###y2"R#|#:" R#> 2"O|#.̓". ̓"S#* &)"~2"#~2":"#:"` ÍۢÍRIۢÍZ6ÍۢÍL!ڳ  0123456789o̓" SYSTEM.PASCAL* *R"K O>Gw# ´#´#++â$1<*"*!$!!!!%"##$#ABCDEFЩ J ONMKLSRQPϦPPTP$*#"# #$*!,!@*#N#Fi`"#!>2#.!,:N#F#*# s#r#~#~#:#=2#9$!2^#V*##R:O*0}P>ھڢ0 ɡ IMPOSSIBLE!!Rw# ‰$‰$!"N*"P*"+F+NB"+F+NB"D* N#Fo>g9!9!!9"" "@"B!#">Î@ءTrueFalse. YTÍ YTÍ( ;Type the prefix cha$"*R*Pͷ "":14"":W]N`͚:kf:uf"racter of the option you want to change.Type 'P' to PRINT, 'Q' to QUIT. A( Input File WHILE WITH !#"""!> #w*^#V*!`S w_~`d An[x0ڂ:҂~#w":ʘž͚áN:Үf{*R*P2*n*lr :=""z͜""U*7{_zW*s#r::<"}®|!#! *ä*##w#Î*##6#6###w#ÎAO* **** ""p͡"͑ *ʹr :Yͦ""z{xͦ""> 2  PRINTING...  BLOCK[P ]  |9 0: 2: edIMRType to continue AThis procedurK T B( Begin Block #   C( Num. of Blocks   4: 6: 8: 10: 12: ?14: 16: 18: 20: 22: 24: 26: 28:  E( Output File L } G( Hexadecimal   H( ASCII   ́DʁDȡ    DŽ Ɓ5 `DŽ ƀDŽ ƀDŽ Ɓ& ɡ [₥  I( Decimal   J( Octal   K( Decimal Bytes   L( Octal Bytes     Jڂ`ڂ ڂ  M( Krunch   N( Double Space  ٳXٹ!`ڂ Ɓ5ߤڤ{ƀႥ ڤƀ ڤ ƀ ڤ ƀ ڤKTP!T"ˡOK"! Ioresult was   Try Againƀ ڤƀ ڤ %Ɓ&ނڂƁ&ڂ~ƀゥ ڤƀ ڤ L}P}ˡPL" IORESULT WAS   ƀ ڤ ƀゥ ڤƀ ڤ ƀ ڤ ġ p  TRY AGAIN     }  n _ P A t P;This procedure will write out sequential blocks to any fileas a patch dump ؓ2 #AN$  ~qdWJ=0PQÍQÚ9j 9 :|DŽDŽګPۂPȡt!Pˡ\Error reading block[P ]. Type to continue9 :|`DŽDŽ :|ɡ6mP"ë퓡WError reading block[P ]. Type to continue PPȡ&5  5  : :|DŽ  WRITING... ȄqˡX" + is IORESUDŽ  :| ɡ2ȡ"& ,& LT. Error occured reading block[ ]}IRˡa"  is IORESULT.Error & : :|DŽDŽ N& occured writing block[R ]RR퓡 -Something wrong, File Locked, Loop Terminat? إ(  Kx ;ɡ%ˡP&"ˡD(No such unit. Type to continue.*!GS] g8h*Qá /ɡ(%"2dFill with what hex pair:, -1V>ƂƃƂ!ƃMƂIƃuƂqƃƂƃ!*C(onsole, P(atchwrite, W(holewrit~ 0 A ~0e, Q(uit PB :62CW* * "$&(4Qá!A X خ!@BDJ)NPRTQás j  (!Patch: G(et, Q(uitP# H(ex, Mesult was   Try again IPIRM"ˡPM"I (ixed!P:! S(ave,!P:! R(ead,!P:! [J ] Ioresult was   Try again9+IS3 7QPÍQ***M)Jˡ JrBLOCK: J ;Jˡ#5 .  |I 0: 2: 4: 6: 8: 10: 12: 14: 16: 18: 20: 22: 24: 2 Error reading block J"ë!Filename: PPū6: 28:==ȡ :|J إ݂ ۂ݂(ۂ ݂ ݂"ë#:Ä?á 00+ 0++&"ëV"  error on ݡġJJ512:|إ(   Type to continue*!, Unitnum to patch [4,5,9..12] (0 will Quit) P 1@  COPYBOOT   ;ȡ ;훾#azȄ .Ȫ} ꊃ0 ڡƂ/ƃ[ *This program is a general bootstrap mover.ATo copy a boot from one disk to another, type the unRfd.ˡ.áړ dڡ99 ˸it number forAthe destination disk, and the volume name of the source disk. If@the source is a diskdکe#e#   8 Щȡ  ˸ file, then type the name of the disk file. ) Unit to write boot to [4,5,9,10,11,12]:  LASTX Я d%še# dd dSn @'5ˡP&"ˡD(No such unit. Type to continue.*!GS] g8h*Q0 File to be written as boot: Pš /"ˡ9 is not ava, -1V>ƂƃƂ!ƃMƂIƃuƂqƃƂƃ!*C(onsole, P(atchwrite, W(holewritilable, other file: á//ˡ_; is not big enough to be a bootstrap, no transfer attemptedB :62CW* * "$&(4Qá!2When the destination disk is on-line, type return./"ˡQ8 Error in attemqIƂƂ!ƂIƂqƂ+(rt6 TrT(P 1pt to write boot, boot area now undefined/ Boot transferred successfully. Ƃ/6ˡP&"ˡD(No such unit. Type to continue.*!GS] g8h*Q File to be written as boot: Pš /"ˡ9 is not ava, -1V>ƂƃƂ!ƃMƂIƃuƂqƃƂƃ!*C(onsole, P(atchwrite, W(holewritJ CALCULAT A    Undefined TANc UndefՁ7c->;P;á ˡadÄddsdçc)Unexpecteined LOGc  Undefined LNc Undefined SQRTd end of expressioncIllegal Symbol : Try Again. ac !ɍ2!Cannot calculate factorial GTR 33c/ ȡߊ7a ɍ -   $ $ ݞ$ ri`&cO/Q  dáڥ9d$d e#dáz' ݑ$ $݂ō $݂ġ ݂$ $ $o áS#ȡe# .Table full. Assignment not donecˡe# ڼ7 á ȡ&  ߂0 ފ$č^   .ˡ>  Eɡ  -ݑ š ߂ 0Unrecognized IDcڥe# /dá dáڥ7 n4 *  `ۧd  ߂ 0 ߿lġ-   ݂. ݕ ؂݂:  ݕ 0 . ݑ0 ݕ݂ V G*Cannot calculate powercۡ.s  ؂ ɡ  (, " <F r > j  ,  ݂. ݕ ؂݂:  ݕ ۧdd ܹ$cDivision by zero Sác 0 . ݑ0 ݕ݂ ؂ ɡ  (,  & * MOD by zero E ۡ $<  d` d  SETUP  Xۡ ܧd`Ad  . 'ܡM_ INITS TEACHSET dd ddd ddddd##^x )&AMLF "$&(*,.024I8:<>@BD 'P e#ئSIN Щآe#ئCOS ЩآFHJLNPRTVXZ\^`bdfhjlnprv dؓ ˡ  dáF;dá.dˡ(e#ئTAN Щآe#ئLOG Щآe#ئLN Щآe#ئABS Щآe#ئcRight parenthesis missingUd cIllegal symbol-dˡ'cLeft parenthesis missingSQRT Щآe#ئE Щآآ U-Ae #ئPI Щآآ IAe #ئFAC Щآ B NTINUE) Q(UIT)NCN V$OCTAL DECIMAL HEXADECIMAL ء2ǀɡASCII  ɡCONTROLɡ 1) ń ġ تPٓ BUG NUMBER %PLEASE WRITE DOWN THIS NUMBER AND ANY&SUPPORTING DETAILS YOU CAN,   ń ġ= ɡ  A AND REPORT$IT TO THE UCSD SUPPORT STAFF AT YOUREARLIEST CONVENIENCENR  ء!ɡ%o! o!BáDEL 'ٳ?  ɡ  aA!áHڦP /ۄ ><á^@N 8[  NEW VALUE: ܄ ڦP<>/áPھšHۓ<ھL?ھ?ھG?ȄAo!! o!  DEL !˄Ȅᚹ F ?P#QPھ꿹!áھáR$T ڪP P-P 0  ( DO 6-á = C / --- -JتP  ˡ4ڕڕ ڂ ڂ~D5 -á0 FFȡ  ߡ >XƁ.`7QUIT: D(ISK) OR M(EMORY) UPDATE, R(ETURN) H(ELP) E(XIT) *NEW.MISCINFO0 A  ₚ ȡ/0 A  ō`_/_́ʁȡ__-D(ISK) UPDATE PUTS THE CURRENT SETUP ON DISK ޡĄȄ  "INPUT VALUES IN THE DECIMAL RANGE  ..  AS THE FILE "NEW.MISCINFO",M(EMORY) UPDATE CHANGES THE SETUP IN MEMORY ) UNTIL THE NEXT SIN THE FORMAT BELOW: !-->("O"{OCTAL})--! ! !:------{DEFAULTYSTEM INITIALIZATION$R(ETURN) TAKES YOU BACK INTO SETUP  IF YOU'RE NOT DONEE(XI}-----!------------------>(DIGIT)---->(CR)--2 ! ! ! ! ! !2 !-T) TERMINATES THIS PROGRAM"UDM{ R썡 ;0R C(O->("H"{HEX})----! !-->("-")--! !--(DIGIT)<-! ! ! !->("D"{DECIMAL})-!C NEW VALUE: -썓  NEW VALUE:  썡خcIT zá áHARDWARE CONFIGURATION+T(EACH) TEACHES YOU HOW TO USE THIS PROGRAM0Q(UIT) ALLOWS YOU TO MAKE YOUR CH$NAME OF FIELD: Y쓄F DIDN'T FIND NAME OF FIELD: تo NULSOHSTXETXEOTENQACKBELBSHTLFVTFF쓡\R 쓄;쓡3 FIELD NAME = آ خL1CHANGE: S(INCRSOSIDLEDC1DC2DC3DC4NAKSYNETBCANEMSUBESCFSGSRSUSSPڡ3OR IF YOUR KEYBOARD CAN GENERATE THE VALUE YOU WANT/JUST TYPE THE KEY AND THEN TYPE CARRIAGE RETURNGLE) P(ROMPTED) R(ADIX) H(ELP) Q(UIT).S(INGLE) ALLOWS YOU TO EXAMINE 1 VALUE BY NAME,OR TYPE THE ASCII MNEMONIC FOR THE CHARACTER C(ONTINUE)Cá &  쓡z!DO YOU 'P(ROMPTED) TAKES YOU THROUGH ALL FIELDS.R(ADIX) ALLOWS YOU TO CHANGE THE ASSUMED RADIX FROWISH TO CHANGE THIS FIELD? ("Y","N" OR "!")Y@썡L M 8OCTALADECIMAL/ HEXADECIMAL?3 - TO EITHER [DECIMAL ORD NOW OCTALI NOW DECIMAL3NOW HEXADECIMALK; 1h): O(CTAL) D( HEXADECIMALTOCTAL OR HEXADECIMAL5OCTAL OR DECIMALOcF 3 NHS ECIMAL) H(EXADECIMAL) Q(UIT)0 ( DO 6썡 Qá * , 6  %SETUP: C(HANGE) T(EACH) H(ELP) Q(UIT)  (C(HANGE) ALġ _'Dɡ_ؑLOWS YOU TO CHANGE OR EXAMINE* THE VARIOUS PIECES OF INFORMATION THE1 SYSTEM HAS ABOUT YOUR ȡ#_*hȡ  (áHARDWARE CONFIGURATION+T(EACH) TEACHES YOU HOW TO USE THIS PROGRAM0Q(UIT) ALLOWS YOU TO MAKE YOUR CH 2 쓄 쓡 N썡쓡ۮ46X r˦ SHOWSCALARANGES PERMANENT AND TO LEAVE THIS PROGRAM,CT$m j "D6ˡ˦ SHOWSCALARCURRENT VALUE IS ٢IhALLOWED VALUES ARE:˦S`  rB*(X &  v FHl4EACH) H(ELP) Q(UIT)  (C(HANGE) ALHOWALLآá* ZڪP.P.....A T : R LOWS YOU TO CHANGE OR EXAMINE* THE VARIOUS PIECES OF INFORMATION THE1 SYSTEM HAS ABOUT YOUR D RINTING CHARACTER]/PREFIXED[KEY FOR STOP]/PREFIXED[KEY FOR BREAK]/PREFIXED[KEY FOR FLUSH]/PREFIXED[KEY TO ENOCEDURE GOTOXY IN THE7 OPERATING SYSTEM. SEE SECTION X OF THE DOCUMENTS.6ALL NON-PRINTING CHAD FILE]/ PREFIXED[EDITOR 'ESCAPE' KEY]/ PREFIXED[KEY TO DELETE LINE]/ !PREFIXED[KEY TO DELETE CHARACTER]/ PREFIXERACTERS EXCEPT CR WILL ECHO AS "?"THE INPUT ABORT CHARACTER "!" CAN BE TYPED IN-7RESPONSE TO MOD[EDITOR "ACCEPT" KEY]/ f SCREEN HEIGHT% SCREEN WIDTH&LEAD-IN TO SCREENMOVE CURSOR ST REQUESTS FOR INPUT AND WILL ESCAPE YOU9FROM THE SEQUENCE WHICH ASKED THE QUESTION. FOR EXAMPLE,WHEN CHANGING A VHOMEERASE TO END OF SCREEN ERASE TO END OF LINE MOVE CURSOR RIGHT!MOVE CURSOR UP! BACKSPACE" ERASE ALUE, TYPING "! " TO THE PROMPT/5"NEW VALUE" WILL ESCAPE THE SINGLE OR PROMPTED CHANGE4SEQUENCE WITHOULINE# ERASE SCREEN#KEY TO MOVE CURSOR UP'KEY TO MOVE CURSOR DOWN'KEY TO MOVE CURSOR LEFT(KEY TO MOVE CURT CHANGING THE CURRENT FIELD'S VALUE.I0THE LINE DELETE CHARACTER, "<" ALLOWS YOU TO DELETE ASOR RIGHT(KEY TO END FILE) KEY FOR FLUSH) KEY FOR BREAK* KEY FOR STOP*NON-PRINTING CHARACTER+KEY TO D5 TO MOVE CURAS LOWER CASEHAS RANDOM CURSOR ADDRESSINGHAS SLOW TERMINALPREFIXED[MOVE CURSOR UP]$PREFIXED[MOVE CURSOR RSOR RIGHT(KEY TO END FILE) KEY FOR FLUSH) KEY FOR BREAK* KEY FOR STOP*NON-PRINTING CHARACTER+KEY TO DIGHT]$PREFIXED[ERASE TO END OF LINE]$ PREFIXED[ERASE TO END OF SCREEN]$PREFIXED[MOVE CURSOR HOME]$PREFIXED[DEELETE LINE,EDITOR "ESCAPE" KEY,LEAD-IN CHAR FROM KEYBOARD-EDITOR "ACCEPT" KEY-KEY TO DELETE CHARACTER.LETE CHARACTER]$PREFIXED[ERASE SCREEN]$PREFIXED[ERASE LINE]$%PREFIXED[KEY FOR MOVING CURSOR RIGHT]/$PREFIXED[KتP á R<3 IF YOU HAVE A VIDEO TERMINAL AND EXPECT TO USE2 THEY FOR MOVING CURSOR LEFT]/"PREFIXED[KEY FOR MOVING CURSOR UP]/$PREFIXED[KEY FOR MOVING CURSOR DOWN]/ PREFIXED[NON-PE SCREEN ORIENTED EDITOR, THE CHANGES SETUP2 CAN MAKE WILL BE INSUFFICIENT. YOU WILL ALSO0 HAVE TO BIND IN THE PRE RACTER":FIELDS ARE EITHER NUMBERS, CHARACTERS OR MNEMONIC SCALARS.6WHEN YOU ACCESS A FIELD, YOU WILL BE SHOWN ITS CURRENT :VALUE. NUMBERS ARE GIVEN IN OCTAL, DECIMAL OR HEXADECIMAL;RADIX, CHARACTERS ARE GIVEN AS THEIR ASCII VALUE AS NUMBERS6AND AS THEIR ASCII MNEMONIC SYMBOL. SCALAR VALUES ARE3SHOWN BY GIVING THE MNEMONIC FOR THE CURRENT VALUE.@ENTER NUMBERS OR INTEGERS AS CHARACTERS ACCORDING TO THE FORMAT: !-->("O"{OCTAL})--! ! !:------{DEFAULT}-----!----ġ? ɡ 7G ^Zá-------------->(DIGIT)---->(CR)--2 ! ! ! ! ! !2 !-->("H"{HEX})----! !-->("-")--! &,:!( SYSTEM.WRK. $*(J '!--(DIGIT)<-! ! ! !->("D"{DECIMAL})-!E0=THE DEFAULT RADIX STARTS AS DECIMAL. NON-PRINTI%Ҧ74 text'773code'77$Z&ت( *SYSTEM.WRK. 4NG CHARACTERS@MAY BE INPUT FROM THE KEYBOARD BY TYPING THE KEY WHICH GENERATES?THAT VALUE, FOLLOWED BY CARRIAGE RETURN OR (v6 W<  secs, WU  lines/min.BSmallest available space = IF THERE IS AN ASCII@MNEMONIC FOR THAT VALUE, JUST TYPE IT IN. MNEMONIC SCALAR VALUES?ARE INPUT BY TYPING IN THE MNEMONIC ;?&43KL$7?  JP  ?2. ?  YFOR THE VALUE DESIRED, E.G.@FOR BOOLEANS ONE MIGHT TYPE IN THE VALUE TRUE.:GIVING AN ILLEGAL VALUE WILL ۡ9%Vš4$7;?V7?.V7L AND=YOU WILL BE ABLE TO START OVER ON THE NEW LINE. THE BACKSPACE CHARACTER, " / )" WILL DELETE YOUR RCAUSE LISTING OF ALL POSSIBLE@VALUES. IF YOU FORGET THE NAME OF THE FIELD YOU WISH TO C(HANGE)ANGLE BRACKETS. FOR EXAMPLE, TYPING THE SEQUENCE OF CHARACTERSCHARAQF// \( 6 V  EMONIC FOR THAT VALUE, JUST TYPE IT IN. MNEMONIC SCALAR VALUES?ARE INPUT BY TYPING IN THE MNEMONIC CTER 8b$WILL ECHO ON THE SCREEN THE SEQUENCECHARAQFCTER0AND WILL BE UNDERSTOOD AS THE STRING "CHA HEXTEST F :OUTERSPA  {$U-}  PROGRAM OUTERSPACE;   (* Following is the GOTOXY that is already bound in to your SYSTEM.PASCAL *)   PROCEDURE FGO  $ۂ.ɡ0 ꕞNˡ.NTOXY(X,Y: INTEGER);  CONST "RS = 29;  BEGIN "WRITE(CHR(27),CHR(89),CHR(X+32),CHR(Y+32))  END;   (* Following is an examp Your file is   bytes long.UáS?&SYSTEM.WRK.TEXTN*SYSTEM.WRK.CODEle of how you might want to write your GOTOXY #procedure. Do whatever sneakyness you can to get your terminal to #go to the cNe4Do you want to E(xit from or R(eturn to the editor?  R E orrect x and y coordinates. The upper left hand corner #of the screen is considered to be 0,0. Coordinates are postitive.  *v6 W<  secs, WU  lines/min.BSmallest available space = )    {PROCEDURE FGOTOXY(X,Y: INTEGER);  BEGIN "WRITE(CHR(HOME)); "WHILE Y > 0 DO $BEGIN &Y := Y-1; &WRITELN $END; "O^WHILE X > 0 DO $BEGIN &X := X-1; &WRITE(' ') $END  END;}   BEGIN "(*DUMMY MAIN BLOCK*)  END.  {G `_/_́ʁȡ__-D(ISK) UPDATE PUTS THE CURRENT SETUP ON DISK ޡĄȄ  "INPUT VALUES IN THE DECIMAL RANGE  ..  AS THE FILE "NEW.MISCINFO",M(EMORY) UPDATE CHANGES THE SETUP IN MEMORY ) UNTIL THE NEXT SIN THE FORMAT BELOW: !-->("O"{OCTAL})--! ! !:------{DEFAULTBOUTERSPA YSTEM INITIALIZATION$R(ETURN) TAKES YOU BACK INTO SETUP  IF YOU'RE NOT DONEE(XI T) TERMINATES THIS PROGRAM"UDM{ R썡 ;0R C(ONTINUE) Q(UIT)NCN V$OCTAL DECIMAL HEXADECIMAL ء2ǀɡASCII  ɡCONTROLɡ 1) ń ġ Y  ,ɡ0 ꕞNˡ.N   ń ġ= ɡ  A Your file is   bytes long.UáS?&SYSTEM.WRK.TEXTN*SYSTEM.WRK.CODE ء!ɡ%o! o!BáDEL 'ٳ?  ɡNe4Do you want to E(xit from or R(eturn to the editor?  R E ^@N 8[  NEW VALUE: ܄ v6 W<  secs, WU  lines/min.BSmallest available space = ȄAo!! o!  DEL !˄Ȅᚹ F ?P#QPھ꿹!áھáR$T ڪP P-P 0  ( DO 6-á = C / --- -JتP  ˡ4ڕڕ ڂ ڂ~D5 -á0 FFȡ  ߡ >XƁ.`7QUIT: D(ISK) OR M(EMORY) UPDATE, R(ETURN) H(ELP) E(XIT) *NEW.MISCINFO0 A  ₚ ȡ/0 A  ōH ȡ#_*hȡ  (áHARDWARE CONFIGURATION+T(EACH) TEACHES YOU HOW TO USE THIS PROGRAM0Q(UIT) ALLOWS YOU TO MAKE YOUR CH 2 쓄 쓡 N썡쓡ۮ46X r˦ SHOWSCALARANGES PERMANENT AND TO LEAVE THIS PROGRAM,CT$m j "D6ˡ˦ SHOWSCALARCURRENT VALUE IS ٢IhALLOWED VALUES ARE:˦S`  rB*(X &  v FHl4EACH) H(ELP) Q(UIT)  (C(HANGE) ALHOWALLآá* ZڪP.P.....A T : R LOWS YOU TO CHANGE OR EXAMINE* THE VARIOUS PIECES OF INFORMATION THE1 SYSTEM HAS ABOUT YOUR NEW VALUE: -썓  NEW VALUE:  썡خcIT zá áHARDWARE CONFIGURATION+T(EACH) TEACHES YOU HOW TO USE THIS PROGRAM0Q(UIT) ALLOWS YOU TO MAKE YOUR CH}-----!------------------>(DIGIT)---->(CR)--2 ! ! ! ! ! !2 !-$NAME OF FIELD: Y쓄F DIDN'T FIND NAME OF FIELD: ->("H"{HEX})----! !-->("-")--! !--(DIGIT)<-! ! ! !->("D"{DECIMAL})-!쓡\R 쓄;쓡3 FIELD NAME = آ خL1CHANGE: S(INڡ3OR IF YOUR KEYBOARD CAN GENERATE THE VALUE YOU WANT/JUST TYPE THE KEY AND THEN TYPE CARRIAGE RETURNGLE) P(ROMPTED) R(ADIX) H(ELP) Q(UIT).S(INGLE) ALLOWS YOU TO EXAMINE 1 VALUE BY NAME,OR TYPE THE ASCII MNEMONIC FOR THE CHARACTER C(ONTINUE)Cá &  쓡z!DO YOU 'P(ROMPTED) TAKES YOU THROUGH ALL FIELDS.R(ADIX) ALLOWS YOU TO CHANGE THE ASSUMED RADIX FROWISH TO CHANGE THIS FIELD? ("Y","N" OR "!")Y@썡L M 8OCTALADECIMAL/ HEXADECIMAL?3 - TO EITHER [DECIMAL ORD NOW OCTALI NOW DECIMAL3NOW HEXADECIMALK; 1h): O(CTAL) D( HEXADECIMALTOCTAL OR HEXADECIMAL5OCTAL OR DECIMALOcF 3 NHS ECIMAL) H(EXADECIMAL) Q(UIT)0 ( DO 6썡 Qá * , 6  %SETUP: C(HANGE) T(EACH) H(ELP) Q(UIT)  (C(HANGE) ALġ _'Dɡ_ؑLOWS YOU TO CHANGE OR EXAMINE* THE VARIOUS PIECES OF INFORMATION THE1 SYSTEM HAS ABOUT YOUR I AS LOWER CASEHAS RANDOM CURSOR ADDRESSINGHAS SLOW TERMINALPREFIXED[MOVE CURSOR UP]$PREFIXED[MOVE CURSOR RSOR RIGHT(KEY TO END FILE) KEY FOR FLUSH) KEY FOR BREAK* KEY FOR STOP*NON-PRINTING CHARACTER+KEY TO DIGHT]$PREFIXED[ERASE TO END OF LINE]$ PREFIXED[ERASE TO END OF SCREEN]$PREFIXED[MOVE CURSOR HOME]$PREFIXED[DEELETE LINE,EDITOR "ESCAPE" KEY,LEAD-IN CHAR FROM KEYBOARD-EDITOR "ACCEPT" KEY-KEY TO DELETE CHARACTER.LETE CHARACTER]$PREFIXED[ERASE SCREEN]$PREFIXED[ERASE LINE]$%PREFIXED[KEY FOR MOVING CURSOR RIGHT]/$PREFIXED[KتP á R<3 IF YOU HAVE A VIDEO TERMINAL AND EXPECT TO USE2 THEY FOR MOVING CURSOR LEFT]/"PREFIXED[KEY FOR MOVING CURSOR UP]/$PREFIXED[KEY FOR MOVING CURSOR DOWN]/ PREFIXED[NON-PE SCREEN ORIENTED EDITOR, THE CHANGES SETUP2 CAN MAKE WILL BE INSUFFICIENT. YOU WILL ALSO0 HAVE TO BIND IN THE PRRINTING CHARACTER]/PREFIXED[KEY FOR STOP]/PREFIXED[KEY FOR BREAK]/PREFIXED[KEY FOR FLUSH]/PREFIXED[KEY TO ENOCEDURE GOTOXY IN THE7 OPERATING SYSTEM. SEE SECTION X OF THE DOCUMENTS.6ALL NON-PRINTING CHAD FILE]/ PREFIXED[EDITOR 'ESCAPE' KEY]/ PREFIXED[KEY TO DELETE LINE]/ !PREFIXED[KEY TO DELETE CHARACTER]/ PREFIXERACTERS EXCEPT CR WILL ECHO AS "?"THE INPUT ABORT CHARACTER "!" CAN BE TYPED IN-7RESPONSE TO MOD[EDITOR "ACCEPT" KEY]/ f SCREEN HEIGHT% SCREEN WIDTH&LEAD-IN TO SCREENMOVE CURSOR ST REQUESTS FOR INPUT AND WILL ESCAPE YOU9FROM THE SEQUENCE WHICH ASKED THE QUESTION. FOR EXAMPLE,WHEN CHANGING A VHOMEERASE TO END OF SCREEN ERASE TO END OF LINE MOVE CURSOR RIGHT!MOVE CURSOR UP! BACKSPACE" ERASE ALUE, TYPING "! " TO THE PROMPT/5"NEW VALUE" WILL ESCAPE THE SINGLE OR PROMPTED CHANGE4SEQUENCE WITHOUتo NULSOHSTXETXEOTENQACKBELBSHTLFVTFFLINE# ERASE SCREEN#KEY TO MOVE CURSOR UP'KEY TO MOVE CURSOR DOWN'KEY TO MOVE CURSOR LEFT(KEY TO MOVE CURCRSOSIDLEDC1DC2DC3DC4NAKSYNETBCANEMSUBESCFSGSRSUSSPSOR RIGHT(KEY TO END FILE) KEY FOR FLUSH) KEY FOR BREAK* KEY FOR STOP*NON-PRINTING CHARACTER+KEY TO DCتP+ +(++!T&ڪP. 2á  WW--̀ƀENTER ƀELETE LINE,EDITOR "ESCAPE" KEY,LEAD-IN CHAR FROM KEYBOARD-EDITOR "ACCEPT" KEY-KEY TO DELETE CHARACTER.Vƀ/̀ʀ Pʀ ʀٚʀؚʀʀʀ ʀW .W. PVERTICAL MOVE DELAY"|  /ڢ Pڢ/ + + + <æINITS ثتP,+,---ٚ-P-,-V6TFTRUEFALSE HAS CLOCK HAS 8510AH /ȡ٤٤ INITIALIZING  ED v> TO MOVE CURJ L AND=YOU WILL BE ABLE TO START OVER ON THE NEW LINE. THE BACKSPACE CHARACTER, " / )" WILL DELETE YOUR RCAUSE LISTING OF ALL POSSIBLE@VALUES. IF YOU FORGET THE NAME OF THE FIELD YOU WISH TO C(HANGE)ANGLE BRACKETS. FOR EXAMPLE, TYPING THE SEQUENCE OF CHARACTERSCHARAQF// \( 6 V  EMONIC FOR THAT VALUE, JUST TYPE IT IN. MNEMONIC SCALAR VALUES?ARE INPUT BY TYPING IN THE MNEMONIC CTER 8b$WILL ECHO ON THE SCREEN THE SEQUENCECHARAQFCTER0AND WILL BE UNDERSTOOD AS THE STRING "CHAf#z###Z-̂MʂMȡ" ˥ ˄,ˡ,3 ˡCode write errRACTER":FIELDS ARE EITHER NUMBERS, CHARACTERS OR MNEMONIC SCALARS.6WHEN YOU ACCESS A FIELD, YOU WILL BE SHOWN ITS CURRENTáe3"?SYSTEM.WRK.CODE2ˡ&Ɓ next base LC = Ɓ Ɓ Ɓ Ɓ  :VALUE. NUMBERS ARE GIVEN IN OCTAL, DECIMAL OR HEXADECIMAL;RADIX, CHARACTERS ARE GIVEN AS THEIR ASCII VALUE AS NUMBERS6P3Ɓ_[ƁƀƁƀƁƀƁƀƂ'Ɓ#ƂOƁKƂwƁsƂ &3[AND AS THEIR ASCII MNEMONIC SYMBOL. SCALAR VALUES ARE3SHOWN BY GIVING THE MNEMONIC FOR THE CURRENT VALUE.@ENTER NUMBERS OƀƀƀƀƁ#ƁKƁs0C` 2ffN. L>Pvx!R INTEGERS AS CHARACTERS ACCORDING TO THE FORMAT: !-->("O"{OCTAL})--! ! !:------{DEFAULT}-----!----bdfhjlnptvxz|~ l4- P PAFȄ09Ȅ6A-------------->(DIGIT)---->(CR)--2 ! ! ! ! ! !2 !-->("H"{HEX})----! !-->("-")--!  -7-0WWPW-ǠWP ÍHá$.á áBá 6R-!--(DIGIT)<-! ! ! !->("D"{DECIMAL})-!E0=THE DEFAULT RADIX STARTS AS DECIMAL. NON-PRINTIڹšPɡWW-PWǠWPV VVVVš|ɡWW-NG CHARACTERS@MAY BE INPUT FROM THE KEYBOARD BY TYPING THE KEY WHICH GENERATES?THAT VALUE, FOLLOWED BY CARRIAGE RETURN OR PWǠWPWWȡ$ق š  ق ń ÄT CHANGING THE CURRENT FIELD'S VALUE.I0THE LINE DELETE CHARACTER, "<" ALLOWS YOU TO DELETE AIF THERE IS AN ASCII@MNEMONIC FOR THAT VALUE, JUST TYPE IT IN. MNEMONIC SCALAR VALUES?ARE INPUT BY TYPING IN THE MNEMONIC 5.:GIVING AN ILLEGAL VALUE WILL K HEB?<963S6  3VS Щ09Ȅɡ؂ á'=&=&'ɄEEQU ЩBFUNC Щ;PUBLIC ЩCPRIVATE ЩD PROC ɡWW-PWǠWPWWȡقšVV V VV& =&&=A'á (2'' "'' ''P;:Ä 6 VVš[ɡWW-PWǠWPWWȡ'قš VٕقV&Q9 PP "PɄ ˄6򿥁,,P,Ǡ,Pá 9١ؑ ؂ ؂q *_&"N  ЩAZȄ09Ȅɡ؂  á8)Pš*x8ë;; ;P á ; á8   -==Ʉؤ ==-><! ؤ6ENDM Я b  8$$á 09ō6  á6 á6š&?? ˡ*% ˡ%% 84Í4á" Ná3#观ˡ%30 P  >á6!~q|3?Bp  v\EL "$&(*P ˄!0YYPY0ǠYP á#"%!B P#%8<󄓡<;PP,.02468:<>@BDFHJLNPRBx-~}cy< > R ЩAZȄ09Ȅ_Íɡ؂  ƄjƅƄBƅnBƁn   ŧ8  JáƄjƄBB.XB2B#$=ȡڂ؂ړلٓǀǀړلٓǀڤ=˄ ==짂 T,: !>"""$>09ō6  á6 á65   $   #  mf_ N >á6!~q|3?Bp  v\EL "$&(* #F'  "$&(*,.02\@B[ ڤڤꚹT#áNš ,.02468:<>@BDFHJLNPRBx-~}cy%5 ˡ ?8  ;&:á =O"ÍO&Ȅd ƄjƅƄBƅnBƁn   ŧ8  JáƄjƄBB.XB2B#$ !"#{$v%q&l'g(b)]*X+S,N-I.D/?0:1520(lifc`]ZWTQNKALIGN Щ3ASCII Щ?BLOCK Щ5BYTE Щ7CONST ЩL  .á o&Po.PoP2Output file for assembled listing: ( for none)P ! (. ޢ̀ʀȡrܤˡ]N#F   "$&(*,.02?8CONSOLE:#1:AB - Absolute LB - Label UD - Undefined MC - Maccdg"fewcP 2913>:Q Щ P(BPAGE - BroBB=RF - Ref DF - Def PR - Proc FC - FuncBB,PB - Public PV - Private  Bj *LINKER.INFO<󄓡< 0>Ur*f"(z A CS - ConstsBBBá1 ------| Pá1----| PZPB Щ : WORD Щ 6 EXPAND Щ V MACRO Щ @ ENDM Щ U .á o&Po.PoP2Output file for assembled listing: ( for none)P IF ЩAENDC Щ<ELSE Щ=REF ЩDEF Щ .á"آ,á"آjˡBORG Щ>INCLUDE ЩNLIST ЩFNOLIST ЩGASECT Щ AB P LB P PR P FC P PB P PV P RF Pu DF Ph UD P[HPSECT ЩITITLE ЩLEND ЩJPAGE ЩK MC PN#Fp  "$&(*,.026tidYB !ÍB| ȡU=ȡ#قٓ؄ؓǀǀٓ؄ؓǀ B1ç<ç<B7áˡ~ t Já ;P ٤=˄ ==1Opcode declared twice=- U U٤ Щޢޢ̀ʀȡrܤˡ]N#F   "$&(*,.02?٤ꚲUU 54"#6%8' =LUƁ,́ƁZ80Ɓ.OPCODES ƁACEGIKMOQZPSYMBOLTABLE DUMPPB>AB - Absolute LB - Label UD - Undefined MC - MacP,́Ɓ*Ɓ,QƁPU,"ˡ*, not on vol&Óʁȡق;ProBB=RF - Ref DF - Def PR - Proc FC - FuncBB,PB - Public PV - Private Z80 Assembler  I.5 [b.1]́ʁȡ:ق E:*0123456789ABCDEFЩ/ A CS - ConstsBBBá1 ------| Pá1----| PZPB