IMD 1.18: 23/09/2013 11:10:13 pascal I.5 telray w/lp non-eis/fis  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ &lvUD4 :5x( $P  b ̋ % eC % C ``` eߋt_v @ @ 7 ?NOT ENOUGH CORE TO BOOT? ,8DԤ eeW @7 ?YOU DON'T HAVE A  U844 l4 v4 7 SYSTEM.PASCAL? wL7p SYSTEM.PDP-11? B A f8 r f5 7 ?YOUR SEGTBL IS RIDICULOUS? 878 -F8`d  7 b6 5 xߋz\@ 8 6U@fen7l C6U@p & R 1$: ASR R3 ; DECREMENT COUNT BEQ 2$ ; RUN OUT OF PLACES ?? MOVB R2,(R1)+ ; NOT YET, BLANK IT BR 1$ 2$: MOVB @(SP),R2 ; GET INDEX OF ASL R2 ; RESWORD TO START MOV RESTBL-'A-'A(R2),R1 ; GET TO INDEX OF LETTER MOV RESTBL-'A-'A+2(R2),R3 ; GET INDEX OF NEXT LETTER SUB R1,R3 ; GET  TELRAYZ : SYSTEM.PASCALl:Z SYSTEM.FILER"eZZSYSTEM.COMPILER SYSTEM.CHARSETe" SYSTEM.LINKER"e SYSTEM.LIBRARYe{ SYSTEM.SYNTAX"eSYSTEM.MISCINFO SYSTEM.EDITOR"e  SYSTEM.PDP-11L̝ESYSTEM.ASSMBLEREH 11.OPCODESLHO 11.ERRORSLOSSYSTEM.SWAPDISKSk SETUP.CODEL!k{ EDTCHR.TEXTl{GRAPHICS.CHARSl CTEST1.TEXTTEXT CTEST1.CODE TELRAYZ : SYSTEM.PASCALl:Z SYSTEM.FILER"eZZSYSTEM.COMPILER SYSTEM.CHARSETeCODE PATCH.CODElf" SYSTEM.LINKER"e SYSTEM.LIBRARYe{ SYSTEM.SYNTAX"eSYSTEM.MISCINFO SYSTEM.EDITOR"e  ˄ 8tB$$>:&ˡ,ˡ tš tT%>ˡ.ˡ tš tJ&$>&:!F:F Fˡ FFJ'Jɡšɡš  P&:*:  SYSTEM.PDP-11L̝ESYSTEM.ASSMBLEREH 11.OPCODESLHO 11.ERRORSLOSSYSTEM.SWAPDISKSk SETUP.CODEL!k{ EDTCHR.TEXTl{GRAPHICS.CHARSl CTEST1.TEXTTEXT CTEST1.CODE6f "r '6,PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD TURTLE CODE PATCH.CODElf Y  ,  $Y  ,á)6!F *STK OFLOW*PFF* ˡ 6!:9"8~? 5 Exec err #  á, (*, >Já[Íˡ88t "쓡ë  쓡 !7 4,~  ~ 횧 :˄˥ń á   uš çÍ{  , Ą:쓡"á  8"ë á gá -Ä+  ɡ"á M  쓡  $Ꟛšr#ń@ 񂾲z 񂾂0  g>@ <<ń Ȅ! ~ÍV~M ˡ!  ,ȫ, á6铡,B BB/"ˡ ( ! 76 넡, ~ ,Í1~ š˄  `"7l 9S328˄ šá  d</  R (  d˯7 H ȡ  dÍÍˡ 퓄 Ä퓡  dÄÍ"azȄaA:) Type : to continue) & X 0 H" ġ  *@#ٕš ګ۫ Í ˫fn(ުP22ȡ7233 ȡ 23aħ3zȄ 23aA22š*š۫ ګ,.   ȡQɫ  ȡ .  .ȡ?  ?:22ȡá;2á!2ȡ5252š[22š22ȡ  ġ  á ġMáš3 삫 d #22ȡ2š5252á4x4]11á4^1šX42233z 30422( - Íáɡ 럚肚Z21ç42ç1Ä2*á444ńi55P.TEXTF.CODE4.INFO" ū  < áš < c@B B .GRAF.FOTO.!~áë ::Ä $ B B >Ä /  !š  Ä:ÄȄĄMȄqfȡD ōɍ ō ȍ dč Í 7ÄT ǐɄ96ń~66! á /šá.Ą ɡ 낫š ꓡ0š땫ĚJ T p?š !삾 0 V삫Ú š ^ "á50á " *áá0á  ɚ j šš  á+-Í-ëzX 0á%+á zš  šš!B>邚邫镫ë퓡Q @B  nQ  꾂ȡ龞꾂(ń꾂Ȅ4š"ˡB "ˡ >"ˡáˡ á uá%뾂á뾞뾂NPńȄ.ń0á  Ȅ 隹Já-Ä  >  |š肂蕿BšT뾕ȡ4 š킥뾞  á1 š0    šš&@B <X hE6!~?7FPut in :P?FP'Ǡá,EEE >邚邫镫ë퓡e @B "ˡ ɡB  B "ˡc    "$E ##&Eá *6*6ˡ6á >á1 á(á" >"ˡ  *Qv .rz42lRNzj V"j 4F Z pz`0뾞 ˄"ɡ  dá dá C#C˄ C      Q š *š  á&á ~ -/18      4V j ɡ 逫-á-32768 Rġ?o00ń šˡ 쓄 Ä쓡t š 0ˡ oɡa Mȡ龫š 龕龫!낾  ɍL "ˡ+ˡ d 0  2 dá3á+   G:!( SYSTEM.WRK. $*(J '0ȡGۂǠۂۂۂV`.  %Ҧ74 text'773code'77$Z&ت( *SYSTEM.WRK. 4Line:  ˡ Seg:  Proc:  Off(RWtn dTEXT-&..TEXTe&4+. 6ܨB V6set: 'ȡ2چ00Ä  ݿڎ :  P  ɡ>پ٢*>ؾآ$š$ɡ%ˡ8*SYSTEM.WRK.LIST L܏áJܚޓݓȄ,تP!RتPR"á XȄLۂˡޓ'Lۂڕ Lڂ ޓjLۂ ٶ&Ʉ+  ˡ LۂáL  LáLڂfYnSubrange limits excProc  Caller  Parent  Param  DataeededSegment not linked in$Exitting from procedure never calledInteger overflowInteger divide by zero  Seg  Seg  Seg  Stack  IPC!Attempted access to a nil pointerBreak character receivedUser I/O error. IORESULT = 1 Instruction no  Depth ( Defaultlink: áDynamicStatic  t implementedFloating point over/underflowString too longwUncondition HALT executedX0áBrkpnt: # Brkpnts: ȡ*٤š٤  ؕ=f ITYPE ID PRStepping ended%\H. sV)T ݚÄ ˄'OC# OFFSET ADDR INTEGER OCTAL HEX LO HI CHAR^ ٨ 0 0 0Ä 7`% "ȡDataޢ 000   0 0 0000 ޢۢ   " Proc not foundStackޢ  8FNo user programP8F. file P%Ū#^.)ȡ6 ɡ ە0 ە A0000 0  ġ Warning - offset too large%ۂšWarning - length too large ȡW ޻ݿJLjtVvá %h  *Má  *8á" á "* Not a cٚStack  ٤  ؚ*i Octal address:  ommandء%  [sp] or 'Q')Qá4% ȡǰȡ ! Proc not found0Heap  F .*Length: r ȡU ܏Heap  "á 7"Z ˶ ڦ ˶ ۄpܲy#ھɡھھܿ6ܶVá,>ߚ*h "ȡ* % <ړȄؤáݢ ݢھۡۓ Bad numberھń͞ ۦ32767 Bad number.ڡ2Set breakpoint at line:  ؤٚ All brkpnts in useHp ~!Clear breakpoint at line۾ȡ܂ ˡ ܂0' X۪177777 h 1Ä@@   : PړȄؤáڡؤ Brkpnt not active) ȡؤȄ.₾₾0  ႚ Bad numberU   x "S(et or C(lear breakpointSsÍ! CcÍ"F Proc: Offset:   Length: n _ Proc: G  U  Seg: ؂ܫݫ Proc not found #01  Seg:  Proc not found áqá#Only traverse UP static linksG˄"0ç0Í'Hit [space] when ready)*j$$١á <>?EXAMINE: áTop of link chainˡ rá5ٕȡBottom of link chain8 1..9 (links, M(ove, <, >, L(ink, D(ata, S(tack, H(eap,HE(rase, U(pdate, , , C(rawl, W(alk, ˄áTop of link chain:  áۂ R(esume,  Hڳ !ڳ<1SPڹ > <ġ Warning - offset too large'ۂšWarning - length too large ȡ\ ޻ݿ0 ( á Static  DynamicDelay: @@ٚData  ߢ    ؚ*n  áۂ~ zvj#f_,WX $(*,R`@68<>@TFH  b2:J> F   tf.VJp4HT* ȡ٤*SYSTEM.MISCINFOP*"áh* X́*́ʁ:ʁ:ʁ<ʁʁ>ʁ>ʁJʁJ tDtD%B"% ȡ*hz$):I'm awfully sorry, bD **wn  ȡ,~ؤۦۢ0ۢ ؞&~CONSOLE~SYSTERM?ut I've discovered an error in myself.Z*Ɓ:á)(áV;[Break] ??~?á';??ٟá'C &"á~PRINTER&"á~REMOinvalid while EXAMINING)% D%',*"'' TE ASSMBLER COMPILER EDITOR FILER LINKEŔ'Unknown run-time error(Value range error(No proc in seg-table(Exit from uncalled proc(Stack ove'ȡf:SYSTEM.ؤ ́(Ɓ(?Ɓ(ؤ Ɓ((ؤ ؗ~( :&á#á%&.'ثDث  ˄rflow(Integer overflow(Divide by zero(NIL pointer reference(Program interrupted by user(Syste" ۂ"šȡ)ޢڿٻޢm IO error( unknown cause( parity (CRC)(illegal unit #(illegal IO request(data-com timeout("ȡW (*PASCAL INTERACTIVE DEBUGGER - Jan 23, 1978*SYSTEM.LST.Tvol went off-line(file lost in dir( bad file name(no room on vol( vol not found(file not foEXT"ˡ $F& FHLُáwL$L und( dup dir entry(jfile already open(Q file not open(<bad input format($F4 wLؑ L $$$޸D  ȡ٤dM: IO error: (Unimplemented instruction(Floating point error(rString overflow([Programmed HAD%B"% ȡ*hz$):I'm awfully sorry, bLT(DProgrammed break-point(&U fE0lWBS#  ut I've discovered an error in myself.Z*Ɓ:á)(áV;[Break] , P#  , I#  |Dj, vol not found(file not foinvalid while EXAMINING)% D%',*"'' *ƁV`tDtD Doo odoo'źʁʁʁ ???&š&:&(*SYSTEM.WRK.TEXT(   &  c@^ á Assembling Compiling...á  (  (& š&:(*SYSTEM.WRK.CODE(&&:&(láAssembleCompile what text? (X:: P7 :9CONSOLE:(:9SYSTER.TEXT( "ˡ# Can't find *SYSTEM.SWAPDISK(7*SYSTEM.WRKM:(8:986ë???JanFeb.CODE[*]("ˡCode open error!   áثB  7:& MarAprMayJunJulAug Sep Oct Nov Dec ???3 š% -&Execute??????6!:%$ )8P Welcome : what file? š;.á .CODE?, toU.C.S.D. Pascal System I.5Current date is Cb%:( Running...ء ء -C-C System re-initialized N  ZLFebz:98:9áA*SYSTEM.STARTUP(%Initializing...́'ʁ'nʁ'é(ʁ(ȡWÍ)Ɓ)ʁ'Ɓ)ؤ Ɓ)(ؤ ؗ áMarAprMayJunJulAug Sep Oct Nov Dec ???(ypƅ*SYSTEM.CHARSET(ƅʅǀ"áʅʅūʅ  ʅ ܪP//ˡU*SYSTEM.STARTUP \  @             @xnpdTTTTT6l8F4 n       E     r= FILEHAND    ZˡM=     :áá  6   FKCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(e |ٳ9=8Ǒbug,? [I.5d]P')%?á?F*Command: U(ser restart, I(nitialize, H(altP')%C$z쓡#J    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 ?COPYRIGHT (C) 1978, REGENTS UNIVERSITY OF CALIFORNIA, SAN DIEGO<`>aP file name P scan string P volume name P- Illegal formatP - char. mat???tJantFebtMartAprtMaytJuntJultAugt Sepx >PNo directory on volumeP File foundPVolume already on linePOutput file fullPWorkfile alreadt Octt Novt Dect ???t???t???&SYSTEM.WRK.TEXT44SYSTy savedPNo workfile to savePZá TextP CodePP file lost [P3Dangerous! Suggest EM.WRK.CODE33R2 UDSUUؕTTŧTSɄU?Í- f?;Vusing ? on wildcards to same volSd.02468:<>@BD "$&(*,.02468:<>@BDFHJLNx^`~vnOKŦ((89bتP&R ParVXZ\^`bnprtvy{|~gS7 "$&(*,.046&ity (CRC) errorPBad unit numberPBad IO operationP Timeout errorPVol went off-linePFile lost int ˡȡ"ۂaۂzȄ ۂۂaA** 8 ؾȡق š dirP Bad file namePNo room on volP{No such vol on-lineP`File not foundPJ Dup dir entryP5 Fil* &) $ ۪#  á10  ڡ,-er error!!P  sZF3$ F Blkd volumeP Unblkd volumePRˡM or PSá -ˡ ڡ4Put  : in unit !Put in :áPunRPPblkd volXP File name YPEFile or vol nameP- V&(ڡ-l ضض˄:á ; / 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/!  ɡá   DC)Ҫ,,)ҾɡҦ Code ..CODE2&,YáGetHR?.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áFC6VO C6?5r4tCO:!(ҦȄ0%?ȡҦÄ< &8<. . ڪf ~ ȡ~~f ҦҾ ҦK)$vn~ŪO=?8*vn78Ä&KfvnšfSvfn-K:!(: )K:!(" Ҧd:T ݪ(á6ڡ%: P 01C- 1C - Ȅ- *ݡ what file what vol ? & Ҿ ҦDŧ- O:!(:9:  ? [ Workfile is . . not named43 (not saved) No workfile& ,,Xá:N,7,Pá/ , 0,1C :: .&&Y,430Throw away current workfile ?  ,ء,Yá4'*SY:,$(,N Ҧ)ˡ:۲) áڲ) STEM.WRK.TEXTPRR3'*SYSTEM.WRK.CODEPRR43,*SYSTEM.LST.TEXTPRWR^ ȡز)(ئ(ȡb)ɡ))$ á)*..BACKP@ ERemove ..BACK ? Y áRR4= á? áˡ}:ئiɡ ...too long <ٹ@AB3ءWorkfile cleared&66&..TEXTText H and  :-S : -S  removedTTT%á(%S:tUpdate t<H%ڪ ^,Vthe  file "V^.)Woudirectory ?  YáOST 1C :ST- ȡ$SST-"TTSS1-[R"HRld you like V written to G: ?  ,,Xá$,Yá^-"2 ? : V  removed ҦҦ l{4 %á%Put in  file P%Ū#^.)G:!( SYSTEM.WRK. ':0Put destination disk in unit #0 ( X,,#'V/!$*(J '%Ҧ74 text'773code'77','-,#áضò~ؤ#,f,á#Zضò~ؤ89D?d Do you still wish to conti$Z&ت( *SYSTEM.WRK. 4(RWtn dTEXT-&..TEXTnue ?  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$DS76ChangeChange to what ? `TP;876/Ŧ<Ŧ7078 Transfer S7767R"쥁R2U",ç,YÍ"=778Change S776*KOO:!(7R" R!r~]́+Ɓ+Possibly destroy directory of Ɓ+ %Ɓ+: ? )Ɓ+ Yˡ J ,Xˡ,ç,YÍ-Y-- ?Y-- "-!ؓcZ#XdÄ22 Z㧁YÄ7š2T"çTÄAT57Z R2U : changed to ?:~Y??ZYÄ??Z?o:8PZ:" "I7ń m d!nnòCń!C"ne8  e changed to VeVn d T $HR"6Z:e8  é+Ɓ+ transferred to Ɓ+ Ɓ+:Ɓ+'Ɓ+,Xˡ؍ءҦҦfv"4QUZ$Remove@RP8 TSRemove S~9l?R6ڍڡҦҦ#,>B{(~!تSave as ~U$  "0?:V made66Ҧ )Prefix titles by6V/;?:00 Prefix is - ;:/%Bad blocks scan of$P0&" Prefix is ;:&Z*ض7%Íy7<ا9$&(+%7/:TS~0́SʁȡP0Sˡ4TTBlock S  is badSST  bad 'ء$6%$/:ا6 $87؄877,ٕڶ6šڸ6šC5blocks{ 0% Zero dir of$P0&"-ˡ2Destroy ?: ?  Y54< UNUSED >    ,b-69#TáWriting&.TT-SDuplicate dir ?  ,,Yá ,XáN,-ˡg- ħ- 'ȄR-  blocks ?  ,,Xá,Yá- ,YˡD# of blocks ?  ɡ Bad # blocksNew-آ  آá  أ  ILLEGALPpBad diskPuCodefilePeTextfile vol name ? P :á ō6y  C PUInfofilePEDatafileP5GraffileP%FotofilePwi[M?1# ,.Ɓ. : correct ?  Yá+0": zeroed @17776T7Dir 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 ɄCS7;?V7?.V7G;^V&4TEXT(43Y*..CODEPR:, ʁ3 : blocks used, ʁ5  unusedء+, WOld code removed, R4Text file saved 43 & 3)CODE(3Code file savedʁ6  in largest area6 " 77(Ynj+?-0%3&6 $6MakeHR(,˧,Y˄,Xá6\R"Icb^RVolumes on-line:0 0ȡk~0٦S0 ٲ? *  #    3ńz?  SSȡ+SAĥSZȄSSAaSS?S SȡtS?CSS- ܕۧUšUš܂܂ۂ ȡf02ڂ"ˡERead error, rel  ,S3C7SzS 0SScȫ77C S?-00á- C0- New da abs  5܂܂ۂ ȡf02ڂ"ˡEWrite error, rel ݕ , abste is C -tC-C  .2%Examine blocks on P  5ۂáݚނ0-? : crunchedߡ Please re-bootBlock number-range ?   1  ɡۀɡ ܫSSܧ- :lWb|l5'5),, á%$&,Qás065ҦFOFilɡ#Risk the dir ?  YˡT- ̂Tʂȡ-T ̂ʂʂĄbؓ%File(s) endangered:er: G(et, S(ave, W(hat, N(ew, L(dir, R(em, C(hng, T(rans, D(ate, Q(uit [F.5]P6,?áXFOFiler: B(ad-blks, E(xt-dir, K(rnch, M ʂʂ ʂ TTء&Try to fix them ?  YˡܫT̂TʂȡBlock (ake, P(refix, V(ols, X(amine, Z(ero [F.5]P6,x55FP,a++ !|5$!5T 0ƁTƁ0ƁT"á 0T"Ɓ  may be ok* is bad 55$!^*ZV)R/N0J1F4B5>2:BZ2Xj i"}:sH rlr(HR@0H" TɡTTšTTTɡá5Block   is still badLBlocks   thr~n  6H>~!$%$&(>( +l)x++,-.(/8.10 34H4x448(:4v;;>>>>> Error # ~6 ~)l|ڟá ġ 傾0ڕ$ ȡ 傾0 á $ $$ |ؚ7؞áeá ؞á٢ؚ٢ ؚآ آ< bUU.2.UT2áb6>v IJ/}*á*<U >(+áX ááP P %VV.á =á '((') .á .CODE:98:9 ڿڞڂ0$áˡ,Í +۹Hš   EKCommand: E(dit, R(un, F(ile, C(ompile, X(ecute, D(ebug, I(nit, H(alt [I.4a]P')%$x)P +ë/+ë1+-Í+ë,(*á( $ ǖ V"ˡ-V쓡*SYSTEM.EDITORˡ% Restarting... U not (.TEXT-"ˡǓ$,X+S(S +-Í%+ë((~*SYSTEM.LST.TEXT(~allowedV Running...:Rád4@45$N<"ë( -ë.~ z+ë0s-ë"l+ë'e+-Í-ë00,1#(. -CU&x]\ Y^^^Sˍ^S^^ؚ^E.(ǐȄ Xá 1X X Xڂڕxrmhc,ˡ áá)}Í/1.:<Jy$^:,+,ڕǴ <<<<Line U , error  :.1( (continue), (terminat++ á !+'á,'ˡ++%++á %Q---+-+e), E(dit EÍeÍ^ÍEeÍ ^S ǐÍ ^ .<U >QZ   '09ō.á:.ˡ0 09ȄáRo X#K-áSˡ#-á.Sˡ##'S*)X#.$*VSˡEáP -á  +á09Ȅɡáȡ<  V$(S,+X$#SˡǑá #áSS:%DJ 0+*傾0 ń  傾0 #ثە$ġ  ȡ6á~U ~ ~Z ~~~V ~ XdšdXڞá' š~  ؚ 悾0šؚ0ە ȡ  傾0  ˡgá áVާ:áá ᚹ2ާ9&á ᚹi#  LáZ^FƂ~ƃƂ.ƃZƂVƃƁƃ( W k_ ááإj$áá :إF0á5á.ާ ޢإ jˡ(UU T TWW )*L~.U  linesWšP   ޚ á۟ڟÍáG Gˡ , W<  secs, WU  lines/min.BSmallest available space = Ä ޓ%  GG߫GÄ R  words ̄ʄȡL̄̄ʄȡ4L̄̄ʄȡdݟܟ˄ބݟÄܟÄÄÄ#`!%á ̄ʄȡL̄ʄȡLP̄ʄȡ̟ˡ ̧(̄á ,0I; ؿ   áʄȡ Ƃ~Ƃ.ƂVƁ<t&\ 0J F(`:z> & B h l (   =>) )=á   {  "$&(*,.ˡǒ:šۂٞقق؍*áˡ2468:<G3 UWY[]_aceg npsuwy{}*)5ǒٕálz Yġ%ؤáP񂥀ؤYLPP-/á á ǐ"  6ٟˡإá؟J ^؟ˡM٣`:٣ á3٣ á,٣'u undefinedZ"   ؟"ġ>|ڟˡ(áڣb 2g2ChF4D( D á NN%I VHō|%L =á á á  CEBAښá !ڧ8áˡ < á L Lç Äܓ+LáL Lç ÄkܓLá ڟˡá 8Ä   ڳCTA w2 áLÄ% Ä  xLˡ"ݣ 9-)HÄLw w%á:á8% ާ3 ޢޢ ǂإ (ç`á  á*LYH ZL!L LNN Há>D.  آآ::آآ99آ88آآ77آآ55آآ6IDSEARCHЩTREESEARЩTIME ЩFILLCHARЩOPENNEW ЩOPENOLD ЩR6,آآ844,آآ83 3آPآآآآ آ آ8آP. EWRITE ЩCLOSE Щ SEEK Щ!RESET Щ"GET Щ#PUT Щ$SCAN ۦINTEGER Щۢ ۢ  ۦREAL Щۢ :ۢ  ۦCHAR Щۢ 8ۢ  ۦBOOLEAN Щۢ%BLOCKREAЩ&BLOCKWRIЩ'TRUNC Щ(PAGE Щ)SIZEOF Щ*STR Щ+ 7ۢ  ۦSTRING Щۢ 3ۢ  ۦTEXT Щۢ 6ۢ  ۦINTERACTЩۢ 4ۢ ? GOTOXY Щ+̀ʀȡ{'ٳ %`ٳڡ  ̀ʀʀʀ ڡ ʀʀʀ?ۦINPUT Щۢ 6ۢۢۢ? > >ۦOUTPUT Щۢ 6ۢۢۢ>  ۦKEYBOARDЩۢ 6ۢʀٚ b ODD ЩCHR ЩMEMAVAILЩROUND ЩSۢ ȡN ܢ 7áܦFALSE ЩܦTRUE Щܢؚܢښܢ 7ٚ ۦNIL IN ЩCOS ЩLOG ЩATAN Щ LN Щ EXP Щ SQRT  Щۢ 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-&{ v6 W<  secs, WU  lines/min.BSmallest available space = آآآآآآآVREAD ЩREADLN ЩWRITE ЩWRITELN R  words ̄ʄȡL̄̄ʄȡ4L̄̄ʄȡEOF ЩEOLN ЩPRED ЩSUCC Щ ORD Щ SQR Щ ̄ʄȡL̄ʄȡLP̄ʄȡ̟ˡ ̧(̄ABS Щ NEW Щ UNITREADЩUNITWRITЩCONCAT ЩLENGTH ЩINSERʄȡ Ƃ~Ƃ.ƂVƁ<t&\ 0J F(`:z> & B h l (T ЩDELETE ЩCOPY ЩPOS ЩMOVELEFTЩMOVERIGHЩEXIT Щ <@GXV(SUTȡ1Lڢڢ Щڢڢ ;ͦ*SYSTEM.PASCAL(Ȅ ؂ خ @MÍǀ   Gڳáقšخáخǀͦ*SYSTEM.LIBRARY( ,%PYZQǂNJ*) O& .!"/+10'-2  خjYؤYYYYǕš *2 ؤá !Oؤ Oؤ$#ȡؤJB$ 0w8swo|s[t8`ǀ Ȅ ?á(ۢ⚧á ⥁ $ۢ9á kg;cTx_ {H .[ ȡ  %Pۢښ   7ˡLJ !خ  ٢`m ۢۢ`mɡ'ġ ASCAL Compiler [I.5] (Unit Compiler)< 0>|؟آآآ(R  &=OMkk9!٫ خ 4PˡáY'ڢȡ5á$خڢDz H|؟آآآ M==آآئPROGRAM Щآ آآآآآآ+:˄5á:á33R,á'6H(#":<> 3 آ آ"!á^ áL=ˡ ==   á (ká  á  K L LآN˄˄0  ˡS>á+ 8H6ˡǐ #;آ آ=آ آHآZآآKj  R H .[ ȡ  %P=? E.dˡhP &ǐ G(á%2H!ˡ"g 0ASCAL Compiler [1.5] (Unit Compiler)< 0>|؟آآآ(R  &=OMkk XEv  ˡ Ä á'  6H %ǀš&&$ˡǒ $$%&%ڧ{ ۢ ۢٚۧP؂%%fȄ 3ǔ |á Há'6  2 Í Ä á"   ; ˡǖ  ,ȡ (ǀٿ <ǀ &á& ȡڢg    9ˡńg; g gáݟˡ  >ǀ 3ámá šˡ ۚš$ ġ ˡ NJ   ˡ ˡq ݟˡ < , 0 ˡ䀮šVP84$3ݡ  TTTTݡTT؟ˡآT ښTؚ Rd á ٳ0d@ hٳǀ  FJ'ÍȄ 'á ؂ ؂ # M2خ˫  ɡ  šث  3 ٚ t á +ˡ/, $>ö;{R ˡ(á!8á " á ˄ۮ#&؟îá2خá   ˡ ˡ} á    ˡ ˡ} á/M2خ٣ˡ#š á$ á% &ˡ ˡ  á ١M ا:á5١á" "Nj ˡA*á 0 @$ńˡá  áˡɡ ٣ šث ٫+áMM9 á 9} á   ˡ nj  áˡ á ǘ  # ǐ  " 2 Í Ä  t \"ˡ ˡ} ás áeNORMAL Я ILOCK Я 2P á"   ˡń  WˡOÍ; ááǏ ˡURGE Я CRUNCH Я    M,"ˡˡ}  áǏ ńǍ  g g W,WWp á{   DXá   ˡ} } FM?M8ˡ 8ˡǏ  M (_83 6,ܮ28Ä Iá>ءǚ á08á(QݢݢQ 3  ˡ} ˡ ˡ} á  )á á á}  }  ˡ 8ˡ} á  3 x"ˡ' áˡ át á " ٟáǞ e"á     ˡˡ}  ˡǏ á  ˡǢ WˡQ ا:Íǟ < -؟ˡ á t ޮ < á  " ˡ} á   ˡ} %áM,!á  á á    á áá{  ˡ."ع0sokgc_[W S!O"KG +@7575 799;á`  !á = ؟ˡ4أ á'أ أ أ ! أ } } n9E"$&EC,GIGEG8SIGi٣á٣ á%٣  2H٣ ٣ ٣ á'٣  6H٣ ٣ ˡ} á  á  " ˡ} á' á" ˡ} á J#?ö={ ˡ(á!8á " á   ˄ٮ#"ág ˡ[  ˡ}  á 8خ2خ"ɡٮ M K: <9  )8 M M} ,˫  áٮ#M ˡáás ˡ ġ} ˡá:á} ˡá:á} dPRTVXZ\^`M c -&$d++'á   >á  á    ˡ ˡ} M+ ܟ˄'(Ä?ܧ::Ä/Ä   dž 'ܧ:á   Má   á  á :Ä dž v(ÄÄ  dž FÄ dž -ܧ77Ä dž   ˡ ˡ} á   ˡ ˡ}  "ˡ ˡ 'rD0 $R* (ç`  *. á":áá dž} ˡ!áM )  ÍM,á :ˡ!:áá }  (á  * ܟ˄'(Ä?ܧ::Ä/Ä  ˡ ˡ} rا9  ١]ا8á ١MJ ١M5 )ˡ ݕ١U'NweD+$&*,.b#6>@DFHJLޡá  &s ܮܮM} ,˫  áۮ#M,Y4 %ޣ á ޣ ˡǐ áٟá~  ::Í؍á :á ٧:0'Íá 9á ا92(c: "ٟ˄٣ڟˍ٣áȡt8Ä á Yáá9;ç0 %c c^  ܣáܮ&ܣá ܮˡáڧ:  : 3C Ä +&Pˡ ݕˡǎ ګ1á&ág ڟˡ : á8 3   9     á ˡǎ ǚ  ǎ ٟˡˡá  ٟˡ~ ޣ áޣáV!7ޣ ޣ ÄO   +7Ä퓫 ˡ7ˡ LJ   á  ޣ ޣ á Mޣ ޣ Ǖ ޣMޣ ޣ Fޣ ˡ Mޣ ޣ 4ޣ áBޣ %ޣ HáNޣ ޣ áOޣ ˡˡ Lj   Ȅ  áG    lj ޡ.ޣ  ޣ á(ޣ ޣ ˄ޣ (DSt&أ áأ á t ݳ͐oȄ   ޡ 䔜ߡlj ˫  á  ߡ,Q" ݳ}ݹ$%ޡ2 ˡˡ} 8ÄǏ ?#áM M 7QQ QQQj0b "$&(*,.02468:<>@BDFt ǃ  "Dž  n1 á @*564/1(0!7/ 1, ) ! ؟ˡç0 Ǒ 3   ǀ @ˡnˡǐ ` Q ǁ 7 j@@خá ˡ ō  á 8 ؟ˡç0 8߮ 6 šá40Ǒ 7 @ ! á 6 ˡ ȡ ٟ˄á:  :9 á9ˡ ǁ 9ޡJ8Ä36ˡ- - á9߮  ] 5á{   DBخˡxál  8˄Pˡǁ ٫٫ a0 d YSCޡ*٣)(ɡ_ |á|ۢۢۢ+8|ۢۢ š nj ˫  '( ǒ IkMI\=#ǁ 3   .1 #áP|ڤˡ|ڤ؟ٓá 6 -ڕ ٕ  6II#á[|ݤˡ|ݤޟˡ# áǥ á 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ɡ dž '(Ä?ܧ::Ä/Ä  dž (ܧ77Ä  džˡ^ Oܟˡ ȡáǜ   ܚޚ۟áښǓ ˫  á    |& )ˡ ەˡǁ ؚ,,))á-_ڟˡ9 ˫   Í߮ݟˡ` ݚܟá ,   9 š   8Íˡ ȡ  ) 8Í ˡ ȡ ܟ˄á+á   ǁ   ݟá á  >=jFG#2 خ-_˫   á  ǂ ˡ '( , P, f  ܧ:á خ 5 EG V3 ٮ@ خ á 6 -9ٮ خB4áX{  7á  ǃ   DŽ  t $  ˡ  ǃ 5á   Ǜ ؟ˡŧ:  Ǐ   A áW ˡ>ˡǐ 0 |ܟˡ ܢ .Há(;ڟˡڣ ġ ڣ M|ڟˡN 2 2 ,á á   ߢ ˡk ߟˡ/á&ˡ :áǏ š f ߚ 4á8áMHçUU-_˫   á  |ڟˡ  ٟ$; ڟ˶zbڧ:˄2 ġ%ɡ܂52 M%Há;ڟˡڣ ġ ڣ áV' áA-á۶|ܟˡ  ɡ۸ ik3T@š  ڢ ڢڢڢ `mˡǨ ⧁ šߤ á     ؕ  / ł ڢڢ ˡ   ٶ˄/ڣ %ڣ áڢڣ ڣ Ȅ ڢڢZ H --L PPZPF@Q77  <.VV B ٢٢٢ á   ٢ ٢٢٢2 2 á!   áXRBvd `!""|##$h%(&&*'((( , -../|-$///4001182j2n 7  á  |ڟˡ   áU  ˡ8ȡ,: m   ء n     2 M%Há;ڟˡڣ ġ ڣ áV' áA-á۶|ܟˡ   ł á       ˡ o    `mˡǨ ⧁ šߤ á     ؕ  ٢٢ ٢٢    ˫  á  á  á (  š s s sá |ˡ  á2  ߚ öń ˡ%      ł  á%    ˫    " " ˡߢ á  á  ád   Í kk    áá>  ǔ á   ߢ ˡk ߧ3Äg C á4  ߚ      ˫  á    Rˡ9 [   words]<U >ˡڟˡ ō P Pˡ ߧ3  á  váqáW ߧ9  á$ˡpá]šM2 6ٮ + *ˡ )ޕ( áUT   á  á ǿ ߟˡkߢ  ǔ ޚ Oš Lۢۢ"ڤۢ ۢbڤۢ YǾ á #*X)S'S ! @á  ˡ =  ߚáH  ˡ ál ˡ áá&     ޟˡ   79 Hˡǽ  ؓ)#;ؓ˄ #+;́ʁˡʁ ʁ́Ǽ á؟*/1-" h   آآ ái2 2 á)  إآ  ء"ƁTURTLE Щ́́ƁZƁ [(  words]<U >آ<آ <$ ˡ ˧   l   o o os ́ ÝƁ ʁoƁ ʁ́ʁƁʁ;ʁ ʁ& ʁʁʁ ʁ;Yáʁ'S á+á$ [ [ ,á á    ߚ& ʁ ʁY&ؓ ˫ ˡ  ؍ؓá  ʁʁƁ#;.ce2 ޟˡ1ȡ$ާ:á m á Ǖ ޚq ˫  á   á  #áS|؟ٓˡ Ǧ ٓۧۢۢڢؚ       ˡ ál "ȡ  ˡ9   ˫  á   ˡ  á ۥۢ ۢۢ )ç Ä   ȡ ǎ   ߟá-á  ɡ |  ł   آ ٚآá%   ç  ˡ  |ߚ á  *á  á   ߟˡ%Íߧ:Í s  ߧ:ár   á ݥݢ ݢ )ç Ä   ڢ ۚ<ٟˡ)گ ٧<ˡآ<ߚߟˡ% š ǩ \.áW ǿ    á  á%   ç <ˡu <{ áM  ݥݢٚݢߚߟˡ ,(  ٟá138:+ @ٟ٥ ݢ ݢHݢݢ   [ [ ˫  á  -L٣ ë&&٣ YL٣ -7."ˡ ǻ .ˡ ǻ [ٟˡ<ݢ ۚݢ܂ á۟ˡáݢ||ؚá%   9"ڤ "ڤ ~-rڤbڤë&&]OOO ç [<ˡu <OS ^   áw  @ ܢ ݚݟˡ x ܢ   ޓ{ á  ܢ 5ç#&HˡǷ #Ǹ ءǏ`  ڣ 0 ]Z@B.١LáöÍ   [(  words]<U >Z)5á+ á ١ ةȡ      áأ ` أ  أ     #ܢ"çBޡǡ ܢ"á á    @ߡ           ȡ   á      N " LL L H ZءY&"    $ z|ġ  ˡˡ$&LIx -Ǐ $ . ˫   áJ á<    ˡááy  ȡ 䏂  .@#-HçO Ä # 1á  á&Ǻ    á  á  á ( (  ߟˡ  ˡ á( @ !á HáMC # !á ǹ ˡQ#D á+    آˡZޚˡ@á -á&ȡ+$ݍk   _TN@ t | Tj ~LD   ޚٟl ء@- Ǐ POY Y  Ǐ  N " LL L H ZءY&"     á V%á#R| ܟˡ?ܣáܣÄܣ Äܣáܣ Äܣ ÄޓǠ .@#-HçO Ä # 1á  á&Ǻ    á  á  ޓá "HY# Y#$š&ˡ2%ç$Ä$ȡW$ɡǀ% ȡ%٧&$$ءOš OOLYǕá YYá l۟ˡJá5áá& ܧ$ɡ ګ ȡ l ڣ  š á  š ܣ ˡܣ YؓǏ   BH Z ܣ ZHɡHH  ç ڣ ,ڣ ڣá ڣ ڣ á[ڣ áOڣá$ڣ!  . |ޡ áޓܢۚo ޓܢۚáP á4ޡz   ! "ڣ!  ! ١qˡAۣá "ۣáȡ   L H ɡ- |ݟˡ   á  ; .%$6á! >>xx > 02ˡ !! L LL 3á   ^4ˡ _  ہہǻ\ $š&$ˡǒ )Lݢݢ! á   ˡáý  L HZY L L!Dblrݫ@L؞ &Lýýý L H ɡ- |ݟˡ   á  ; .%$6á! ݽ2ˡ !! L LL 3á   ^4ˡ _  ÿ۽ϟ>*>$$~$~$$>> >.*.:*:8DD88(800   $~$|8(8ÿŹýýýŹء|Mڟˡȡ𥀰ܤˡܹx FSEEK Щx FREADREAЩd FWRITEREЩP FREADDECЩ< ~8(8``0 > BB~~BB~>BBBBB>~>~~ ܤ   ܤȡ      *ء)3;HF&B >>"rBB^@BBB~BBB ">B""B~fZBBBBBBFJZRbB~BBBBB~~BB~~BBBRr~@~BB>BBB<$ z|ġ  ˡˡ$&LIx -Ǐ $B<@B<~BBBBBB~BBBBB$BBBBBZfBB$$BBBBB<~B0< B~>> 0``|@@@@@|>*SYSTEM.INFO[*]"ˡǒ .Ƕ - Ǐ PH Z Y LOOOOš Y<@\B|:FBF:BBBB(continue), (terminate)++á+ á PT lڂIBRARY Map name? ((.á .TEXT(۫۟áڂ؂ڿ؂٢٢ٟáٚUۢ٢  !ۢ٢  d!J ȡۢÄ ڢڢڢۢ ٚ۟áڟˡܡڢٚڢٚT xݟˡ2ݢܱ !ݢܵ ˡ:oˡ bad host segˡ dup host segګ Láڢ ڢګ3áۢ@ڢ  ww{/ýýýŻ HܟˡCܢȡ'ޢ@ۯ ޢá8Unit  not foundپšh ٲ? * 4ٲ; P ~j ȡ$ / @  000 Q 0 ̌̌̌? ?تPڹWs/cK/X#/M/B/7/,/![/^ULC:1(/ Já ښ ȡ á  á wierd hostDRM] c dict!}   #ȡ ˡl N^ K Dh۟ˡTȡ=ۢá'ڢۚڢڢڢڢګٟˡ٢٫8 ǀ%   V0ZIڡٟˡ@ á ٟyj  >`  ( # ššš` á6  šNY؟ˡYD٢ؚ٢٢٢٢  ٢ Ǡ ٢ أǠٶ١ li read err ١آj ٟˡgˡb٢ٸf؟ˡWBأá9٢ؚ٢٢٢٢ ٢ Ǡٶ ٸ ٸˡTáno room in seginfo6  ٚۢۢۢ~ non-alpha named missing procٟˡaáUá ؟ˡ%áá ٢ ؚ٢ō too many refs bad formatáō bad privateńٮǠōá ٢ iF xڟˡ0ٟˡٚښ7B!۶ɍǰ6ō bad globdefō bad publicdefd٢٢Ǡōɍdō bad proc/func$ˡábá& ɡ>ڟá0ˡ"ڟˡˡá ڟáٟá ضؚtXZ\^* J́ʁ́ʁʁ+Reading ʁ@ؚo8l"ˡ!ݢ ˡݢݢˡݢݢݢ   ˡ bad litype fHš   ۢݢݢ ! áݢ ˡ á  ۡ*Proc  param mismatch !áݢ ۟ˡá1á)Ȅ   bad host LCá ܢ ٢ám6 F؟ˡˡá  ۡ*Func  param mismatchM áݢݢ  unit err#آō bad proc #ڶ˶˄disagreeing p #H1T4P  áUGlobal dPublic RConst AProc 1Fuٕȍǰ6ōproc place err ǰ6 (ǐɡnc !\L> 5'=/ undefined˄"ܚJ# X ؟ˡ$ sep seg 2 big ȡˡsep seg read err3 Ǡō bad pro$$آߣޟˡš ޢ? ɡPvx!RCaE ee e wz tE WuEB  N uED 7>tEpWuf#z###Z-̂MʂMȡ" ˥ ˄,ˡ,3 ˡCode write errE` mtEp  uE` m %   ACBvC@A áe3"?SYSTEM.WRK.CODE2ˡ&Ɓ next base LC = Ɓ Ɓ Ɓ Ɓ  CBv xC L@PM|C L@A C@Pmlm`A C@xm\mPe:86P3Ɓ_[ƁƀƁƀƁƀƁƀƂ'Ɓ#ƂOƁKƂwƁsƂ &3[VTLXjh|l00000000  ƀƀƀƀƁ#ƁKƁs0C` 2ffN. L>Pvx!DRAWLINE DRAWLINEDRAWBLOC  DRAWBLOCDRAWBLOC. DRAWLINEPASCALIODECOPS Ɓ Ɓ  #̂MʂMȡ" ˥ ˄,ˡ,3 ˡCode write err áe3"?SYSTEM.WRK.CODE2ˡ&Ɓ next base LC = Ɓ Ɓ Ɓ Ɓ  P3Ɓ_[ƁƀƁƀƁƀƁƀƂ'Ɓ#ƂOƁKƂwƁsƂ &3[;COPYRIGHT (C) 1978, REGENTS OF THE UNIVERSITY OF CALIFORNIAƀƀƀƀƁ#ƁKƁs0C` 2ffN. L>Pvx! `x7 7 ttw j7 j^^R7 R CptE`eE -00(7 $m-!!!""P#f#z###Z-̂MʂMȡ" ˥ ˄,ˡ,3 ˡCode write err  ` ~ m- ` ~-     áe3"?SYSTEM.WRK.CODE2ˡ&Ɓ next base LC = Ɓ Ɓ Ɓ Ɓ   5  \j \  @P3Ɓ_[ƁƀƁƀƁƀƁƀƂ'Ɓ#ƂOƁKƂwƁsƂ &3[ @xnpdTTTTT&fE CE ww  w ˡ\ݣ ݣ šݢݣ ݢ<ݣݣ ݣ ݣݣńݢ<ݣݢݢݢˡݢݢۚݢ>ܚ  - v sġؕؕġ#˄˄ á +-Í-ڲzؼ 0PASCALIOFSEEK FSEEK FREADREA FREADREA FREADDEC FREADDEC FWRITERE .áCڲzؼ0ݞ$ڲzjeEÍɍEáޢ >ۓFWRITERE FWRITEDE  FWRITEDE  DECOPS fkpt  *ɡ ؼ݀$ ؼݞ$ۡܡ ؼ* Jɍ -    á  +-Í- z,  0$ $ ݞ$' ݑ$ $݂ō $݂ġ  sġؕؕġ#˄˄ ݂$ $ $ȡ&  ߂0 ފ$č^   .ˡ> 2w&7$" G8  J~4 f~  w* ~ ~_ Eɡ  -ݑ š ߂ 0 ߂ 0 ߿lġ-   ݂. ݕ ؂݂:  ݕ _B B`A b eE~ QB  b B~  `7 x [l a " ` b R H 0 . ݑ0 ݕ݂ ؂ ɡ  (,  & *HH~~` H~HhHh~~ e_:8 F  F   C~ á  +-Í- z,  0_%_  77  &   ~  ~k aB  B  ~ `X`7 sġؕؕġ#˄˄ :k(0Rb ߂ 0 ߿lġ-   ݂. ݕ ؂݂:  ݕݢ ݣÄɡ3ڕġ$ڕšš"š 0 . ݑ0 ݕ݂ ؂ ɡ  (,  & *ޣ Ąޣ ݣ ˡPݣ %ݢ@ݢݢBݣ "ˡݣ ˄ݢBۂ" á  +-Í- z,  0 ~F  (&   _d 7w   aw w  D 7Da7  D~-w: F~  & ~ &B|vwxCxp%\% ~T P TJFLB>@0 4$ -$$      `TH^ X w!     a ~E _ jJ  b ~^T Y  ~PN<$`h d ~~.,$`  ~~ 727& a " B ` $$~_ " ˕͕07 7   .͕- ͕0 ~FZ  F b jv#"-      E~"& f V7 d wlj  XV X R ͕0B ͕0~. _ ``f~ 6  _ ;NJ#&;KLZz @" R~_DqPH>RHDF& a " B ` $$~_  ˕͕07 7   .͕- ͕0 ~F  F  #"-      E~& f 7 d w  "1: Error in simple type "2: Identifier expected "3: 'PROGRAM' expected "4: ')' expected "5: ': ' expected "6: Illegal symDECOPS DECOPS GDEC GDEC bol (possibly missing ';' om line above) "7: Error in parameter list "8: 'OF' expected "9: '(' expected !10: Error in type & 7 7 7 7a E  Da7 | D7pqmha L Ha B~N0e:!  ype 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!11: '[' expected !12: ']' expected !13: 'END' expected !14: ';' expected (possibly on line above) !15: Integer expected ! standard procedure parameter  126: Number of parameters does not agree with declaration 16: '=' expected !17: 'BEGIN' expected !18: Error in declaration part !19: error in !20: '.' expected !21: '*' 127: Illegal parameter substitution  128: Result type does not agree with declaration  129: Type conflict of operands  130: expected !22: 'Interface' expected  23: 'Implementation' expected !24: 'Unit' expected !50: Error in constant !51: ': ='  Expression is not of set type  131: Tests on equality allowed only  132: Strict inclusion not allowed  133: File comparison expected !52: 'THEN' expected !53: 'UNTIL' expected !54: 'DO' expected !55: 'TO' or 'DOWNTO' expected in for statement !56:not allowed  134: Illegal type of operand(s)  135: Type of operand must be boolean  136: Set element type must be scalar or s '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 cype 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 th! constant exceeds range  204: 8 or 9 in octal number  250: Too many scopes of nested identifiers  251: Too many nested procedu !"#$%&'()*+,-./AAAAAAAAAA:;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 too complicated  300: Division by zero  301: No case provided for this value  302: Index expression out of bounds   B.,& EDITOR  303: Value to be assinged is out of bounds  304: Element expression out of range  398: Implementation restriction  399: Imp INITIALIOUT COPYFILEENVIRONMPUTSYNTAEDITCORE  165: Multidefined label 166: Multideclared label  167: Undeclared label  168: Undefined label  169: Error in base set  17lementation restriction  400: Illegal character in text  401: Unexpected end of input  402: Error in writing code file, not e0: Value parameter expected  171: Standard file was re-declared  172: Undeclared external file  174: Pascal function or procenough room  403: Error in reading include file  404: Error in writing list file, not enough room 405: Call not allowed in sepadure expected  182: Nested units not allowed  183: External declaration not allowed at this nesting level  184: External declrate procedure  406: Include file not legal aration not allowed in interface section  185: Segment declaration not allowed in unit  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: Unit not importable  201: Error in real number - digit expected  202: String constant must not exceed source line  203: Integer :vxJZJxH6!E>IO  HJKCA P? "  * 񿥆P(  ڤ؂ IħIɄ I؂ IHZګ삾 ء:ȧ삾 삾 vPv v$á ٕ ٕ8áܕ܂ܕ܂  ꂾ ꂾá "á <&ȡ<ꂾ  ꂾ-á á.áꂾ ç Äە߂ŧȍ4 ٪P&áERROR: á;& Please press 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,000>Copyright (c) 1978 The Regents of The University of California\ 킾 á  :ڕ šjvKThere is no room to cɡ š    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ȡ'ڤġڤ#  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:HReadingNvˡ 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  v٤ؚٳ v قؚ. M Edit: A(djst C(py D(lete F(ind I(nsrt J(mp R(place Q(uit X(chng Z(ap [E   09̂5ʂ5ȡ )  (( Ʉ?Í    .6e]PrH Insert: Text { a char, a line} [ accepts, escapes]PIA Delete: < > {>Edit:IN̂5Ƃ5Ƃ5:Ƃ5&Ƃ5"ˡWorkfile lost.v4No workfile is pre$  Щ  Щ]ɍٲˍ.ڕ.P..P,áؕɄ čⓄ% Ʉ "ˡ Disk Error.ħƂ=Ƃ=RáEáꥂNWá)Name of output file ( to return) -->ƂPƂá     ۂە ..ȡۂۂ ..ȡƂ̂.ʂ.ȡƂۂƂۂ .TEXTƂƂƂȍƂƂ.˄$Ƃ̂.Ƃ.ƂPƂ..TEXTUƂ.PƂƂ ۂ ۂ ..ȡۂۂ .TEXT˲ȍ.˄"..P.á ƂƂƂ*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  Ⓞ ڕ%  - -  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" xؤá  Date Created: h ħInappropriate environmentKP  w ww   ȡ.ءTrueFalse. ڳ@ - -  Last Used:  - -?T or FȡĹ TáTrue False Y    J Not option dxj # ڳɡ ڂ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ꂧ& 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á(ȡ   ꂫꂶꂶÄ  Í   á ĄÄ˄Ąۄz á  iáPȡ& KIJڶȡ5No insertion to back over.   mڶġb4Please finish ˡܡ    á áث 9 up the insertion   ڶ šBuffer Overflow!!!! á    Ʉګ ڂ ڂ٥ č9ꂶ  @ "삾 á nbi  ^ġ)š (š  ) <öÍáwȡ. ) x٤v$Marker ovflw. Which one to replace?P ħáLçç Íɡ h ġo0wSet  з Gwȡx٤ xؤؤاwáw앞&삧앞 d á 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-    ٕاġ-á- ؕ '      ɡkv"  Ʉ; Cá1á  á   |  *ȡIá  šĶ   #<áVڂ á-ń ۂڂQ \+ȡˡń3ꂾ á  ꂫġ  ø ɡ{Ʉ3  ɡˡȡ ȡ 4` x šáĸ š# Í    ͈ $% ɡ,ń šٮ ݮ+,  &؂ɡ킾Ä؂ 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;%*&&<á%&  "$"#<á"# !   ɡV d   Ȅ6  ɡá$šToo many$ġInteger Overflow<) <á"#˶˄ >á#"šĶ        !ń; ꂾ á+ $ ~  Í á8á  á  ( 'Invalid delimiter. .á+ۂ ń  ۂFꕞFɡꂧFꕞFFˡ F맂F꧂F D:̀̀čġ-Your pattern is too long  1۶ɧۂۂÄ۶d'  á Find =>9& Replace V(fy =>9./0ʀ ťE1G á./̀0ʀ 22  á083ǀ Ŷٶt ġ  F1HçG çHGk  ȧMل*6 ١ނ߫ á:<á  ٓ'MńPattern   ض á : ؂    á   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ŧ˄ȍ!á ȥ  V'z ÄB  X6.۪PڪP.P [M / ]: ء# áL(COPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SDit T(okv9x  Replace' aborts, 'R' replaces, ' ' doesn't 9 H_? á Rr˄Fš\Fš8Buffer full. Aborting Replace ꂧ _ 6_ 8/efAA"V)  @ @f ~f{fxfufrfoflfAA E e @`&AA E e @`  `(`  ifffcf `f"]f$Zf&Wf(Tf*Q NKHEB?<963 0"-$@L2 A2@@A   J@ PV ``f  ``A   ҇ ``&& *&'($*!&eeee e  e e&    Ee7 N `  E e @a&&6E e @a&E e w7&  G 7w:pr \& \\r1@\C.EE7-n @$@$@$@" xE  &7 D %% 7 &"\[?\&E7 5@vVq7w k7w 7 bcw ]-@U a7 "`` B  aBE B<V  wN E   U f zE z3F E@ nh f:XF?X E@F F-B7 8?2 . 7E@U@P&7 #  eN @@ >ZE L4U@ 7`6 BE 2B @ w`&   E7 w. wU &    07 7 7  V7 & & E N\E &  & >e U 7 E7 ~ "7 E7 ,tv LwU W 7 .7 , (g E@  Ձ@  a a! F@    >VE`E `E &?  w U@w& K C & ^ T7 N 6 0ՀW   `E e `&& `E e `&EՀ VEՀ w  ?  "U@  wE7 wT?  ~ V 7   ҂  V E e ` E   @ ` G7 7 `lrv~  F j n z  *   X \ r Z  0 : R n  R t 2F^f  \& \7H 7 6W ww N B  V6 Ej d  TZ`flrx~$,4<DL E7  V& EE dd`z ~ %&  '  ```a@  z   " E  D  %    & VAA E e @`& E& * (@`@`( ((]   P P NPP  W    %V e5`\_e w5 5@<H V\ɋE 5\\\& ``! eί%@ eAp6% "1, 1,1,      B  BB`   V& (  # @ B  B`^  % ^A %^A&Daef ¥_09E AZ      ڀ  օV bl^z.6>FNV^|Nh  C  f ee $ $ $ $ @A eeee >eJVn wU &f&f7 U   8ɝ^& _E7  !$'(****AND 'ARRAY ,BEGIN CASE CONST DIV 'DO  ~)˵'ӵU$ aCu  `  76w|7 fU? {wDOWNTO ELSE END EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLw ^x L 5z 7  b5@ 7RB t :% eC % @a e\VD@`@`$fH@7$`e    V _EMEN4IN )INTERFAC3LABEL MOD 'NOT &OF OR (PACKED +PROCEDURPROGRAM !7@` dd&`f&d&b&  m eRECORD -REPEAT SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES  ɋ e  rzfwBC % e 7h` Aɋ  BP@ Bm>1VAR WHILE WITH  #    %V   @ Bm. @ Bm    z  c7  $& @  7  $7 f$7 fr$7 fp7 f%7 ft7 f!7 f'\ vw L I?g& 7z  AF~eA VWFlP   mAɋFV t'(((@ BCzEG@HPtJ$LM nO(kQRChTV焵W!cY_[\^^! &*|ffD e  w\5 wVDeVC*VB@Bk `#ǭaxXc'exfhShjQYkoNmo9?pIrs|ouEw7x߄z @|Η}½  & && &7  VC& Ο @  e E`E`` A EwwDw 0  '(X7 >X7 z7 n >Xlb>X7 X,>Xtb>X6 \ ;   \  W  m+ 7 e&&   v |N v  6 6  hv  `@7 $D& && 6  A7 ^ $n $$n %%$$#.%#####$ e\ \   @ (%.% D %e% e @ D   mm@ 0S\ e& @7 %$e\^%f& \:יc&>X4%]@& & & & & D&&D&&     A C v %\w @    0  @  @ w   & Dr @%7 r %  IA e e@ e& & & & & D&&e #@ )&&\   5@5@7 T    ##### "" #, #, ` f& @6 7 .&6 6 #?%-0 @ ׳f&& @׳@f&7 \  \& \\r1@\[?\ ew " ?U?*@ڪAD C #& &f&f&7 l#&#####&$&   \ 'f& \ e\>:L]%     @  f&\   B -  e \&f  & N & . ) L?ƪ@ \fEA#& e@ & f& f& f7 <' ff w   &@&    v     C 6  %%    w 6 6 %   ' 4e\f& \:יc&>X4%]@& & & & & D&&D&& Dv   0e%6  6  E v v ·ͅ%\ @       D %|2 #n,nSYSTEMLETLA f C_  fW & @&&&&7 d"# $n""d" t"#  T"Z"#"e\\;@\ \N @   INITIALISYMTBLDUPROCEND ASSEMBLEPRINTERR C ``` e̋̋ 8@XU@D`@ ,7 &55n @wv7  =@f&ysE[\pCf&f&\% a @w   6 6 &  f 6 #̋ 7̋4 LN wU  E@ f ^& A  v  6N\&f f & G   v  76   p  d deA 7 7 8ߊ3 7 | v n "w \    X F wC @ A @ %  A @ 6v %\%    w    `@ `  ` ` w2 7 $" ?U@  _E7 wf U?  E \\ N A f C %C B    \ w  D& &&, CCOPYRIGHT (C) 1978 REGENTS OF UNIVERSITY OF CALIFORNIA AT SAN DIEGOBQB FILE:B<BB BBBBj á6 (á6 >á6<9.2á'< >7áɡEEE E!~q|3?Bp  v\EL "$&(*,.02468:<>@BDFHJLNPRBB| BB| BEOšO;áB#BBB x-~}cy ƄjƅƄBƅnBƁn  BBáE:T BءWá$B*B*á'B ŧ8  JáƄjƄBB.XB2:#$ T& n!*"""#>09ō B B áHB* B*B*B*áNB BBB;PPBBERROR #B BءFB"*B11B.ERRORS" file not aroundB  B  B B B  /šH@á6 ,š,@ڂ<󄓡;PPERROR # ءE"*11.ERROR@//00@/ؿ//0/..-š.-:á7ȡ0E삥*E*ES" file not around ,(šE(dit,,ٶ/ á@ȡ9E0E0E0E   ٨<ȄEeÍ&3! " % # ظ  á<'< >7ɄʹápȡiE* ɡ"E삥* E*ˡ$E*E*E áȡ B* Bt(٨ǀɍp Location * *{E* ɡ+E0E 0E 0ˡ-E0E0E0E :**@؂@؂@7á/  : >.*77á#jؚj٨j ."ˡ."ء&'ȡvؤˡd%BB>>>>>Bؤ<󄓡("Dwwc*򥂮x"á5xx ˡ  *w>>>>>ؤؤ ' <BB B BPAGE - B B -  ˄?,áP ? ؂? ;Í ?D˥* ˄*,áP *?$6# SnW   ؂* ;˄6 Q ç9,P ? ؂Pɡ; ؂؂5 ˄Pɡ;Aá 6  twc2 2}ܤ뻹áP**á<á ܤ ܤc{{!ç{ç{˄E{á{{{{ˡ  *u{{6š ? * , Í;ÍCšF ? F * ؂?6 b ç9EP||.|{{|{(})"cegi wcIɡ; š ? * ˡ Pɡ;Aá 6 %%6%š *%_c@  .x"á1.z!á yá*%ç12*% ë;Oɡ;;%%*% ;á5P *% ؂Pɡ*%;؞؂z!á xx ˡ  ]Hz!á yy%؂% U ç91/P *% ؂Pɡ; ؂%؂% ˡPɡ;Aá xRVǀĶȄ z!á wch w١(y؄ǀȄ١; *ō˄ J48˄ "z!á yy؄ǀȄ z!áڧwc{{!ç{ç{˄M١;z!á y 뚶á#á  òWÄ&zyòy؄ǀȄ z!áڧ١0.z!á yWÄ_!뚹 %zy{á{{{{ˡ  QBB{<󄓡{ ááġWáٳ "?ACE5 ;=wc[Y@{ ;P3B*#$ *#  Äڳ<<ڹ Íݢۂ ˡݢؿ Äݢ$%#$#$á=3/"#!% *#$3BoP $& w6 6?á/ە ˡݢ ܡ ݢۍܡ ݢۄzܡݢۓۄbܡ ݢۏQܡ ݢۆ@ܡ ݢێ? ë;Oɡ;;? %á? 19ō1ša?˧?/(tT-  ^ áLW. ǠWPV VVVVš|ɡWW-PWǠWPWWȡ$ق b)]*X+S,N-I.D/?0:1520(lifc`]ZWTQNKHEB?<963S6  3VS  ق ń ÄɡWW-PWǠWP Щ09Ȅɡ؂ á'=&=&'Ʉ& =&&=A'á (WWȡقšVV V VVVVš[ɡW2'' "'' ''P;:Ä 6 Q9 PP "PɄ ˄6W-PWǠWPWWȡ'قš VٕقV&q *_򿥁,,P,Ǡ,Pá 9١ؑ ؂ ؂ á8)Pš*x8ë;; &"N  ЩAZȄ09Ȅɡ؂ á-==Ʉؤ =;P á ; á8     8*$á 09ōwܤ!ܤW 뚹ܤ뻹á ܤ ܤwc wwáwcܤ=-><! ؤ6ENDM Я bš&?? ˡ!ܤWܤRá ܤ;ȡ1ȡ ܤܤۂܤ ܤW*% ˡ%% 84Í4á" Ná3#观ˡ%30 P P ˄!0YYPY0Ǡwc w˄&"á w&xܤ&ܤ!ܤW ܤ$YP á#"%!B P#%8<󄓡<;PP< >˄ ܤ ܤ"˄ ܤ ܤ!"wc w˄ wꫂ{ܤW R ЩAZȄ09Ȅ_Íɡ؂ =ȡڂ؂ړلٓ뚹áˡܤܤܤܤWˡS|~ǀǀړلٓǀڤ=˄ ==짂5   $0t:<>@BDFHJLNPRTVXZ\^`bdfhjlnptvxz|~$   #  mf_ N #F'  " l4- P PAFȄ09Ȅ6Aġ -7-0WWPW-Ǡ$&(*,.02\@B[ ڤڤꚹT#áNš %5 ˡ WP ÍHá$.á áBá6R-ڹšPɡWW-PW?8  ;&:á =O"ÍO&Ȅd !"#{$v%q&l'g(/ EEQU ЩBFUNC Щ;PUBLIC ЩCPRIVATE ЩD PROC  Bj *LINKER.INFO<󄓡< 0>U *f &x A Щ : 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Ɓ,́Ɓ11Ɓ.OPCODES ƁPACEGIKMOQZPSYMBOLTABLE DUMPPB>AB - Absolute LB - Label UD - Undefined MC - Mac6  á6 (á6 >á6,́Ɓ*Ɓ,QƁPU,"ˡ*, not on vol&Óʁȡق;P!~q|3?Bp  v\EL "$&(*,.02468:<>@BDFHJLNPRB11 Assembler  I.5 [b.1]́ʁȡ:ق E:*0123456789ABCDEFЩ/ Ax-~}cy ƄjƅƄBƅnBƁn   .á o&Po.PoP2Output file for assembled listing: ( for none)P  ŧ8  JáƄjƄBB.XB2:#$ T& n!*"""#>09ō8CONSOLE:#1::Q Щ P(BPAGE - B0 ! (. ޢ̀ʀȡrܤˡ]N#F   "$&(*,.02?  "$&(*,.02L"DD  "$&(*,.02vxz|~@ACEGIKMOQZPSYMBOLTABLE DUMPPB>AB - Absolute LB - Label UD - Undefined MC - MacB fj8- *LINKER.INFO ˡ - ȡ/--ároBB=RF - Ref DF - Def PR - Proc FC - FuncBB,PB - Public PV - Private -ܮܧ06vFBCurrent available space is B( B wordsBj-ا0ɡd.š@ɡ6ق,šق, "á@á0/ا0š.0/./ wc.+  Y .+.+AP!-(ث@Aȡš@ɡ6ق,šق, ,ġ'"á@,,,ɡ6,"á@á0@ UB B blocks for procedure code B( B words leftB</ا0/  7ˡg-ȡN--á5ȡ*-ܤˡ.-ܤ  blocks for procedure code (  words left< >0. ȡ ܤˡ.ܤ  -m }ˡ -- ,/Y @á6@B d Ɓ-ƂYƁƂ1Ƃa@# š Já ̂ȡ䥃ؤˡ&BB>>>>>B<󄓡#>>>>>-bʂbġ ٥Yڤ  ٫/@ɡ6ڂ ʁ-Ɓ-Ɓ-Ɓ *LINKER.INFO F--x-n-d-Z- P- F>  "$&(*"áƁ@á@ "á@ɡ6 @ǀ H,.02nzh`N-- - --ˡB-á--ÔbʂbȡڂUH"áá68<B 8BƁ&AssemblyroBB=RF - Ref DF - Def PR - Proc FC - FuncBB,PB - Public PV - Private  ˡ-á4B B<󄓡)-- -  CS - ConstsBBBá1 ------| Pá1----| PZPB-á - - - - --- - -F>e1 Щɡ قIF Я (ENDC Я ɡ  اENDC Я   <>@BDFHJLkgu SˡCˡ 5á+ á Ráآ  آ  ˡ"\ complete:  lines " Errors flagged on this AssemblyP ٟˡb0٢؂٢٢Ʉjj٨j٢٫ j rOáb  * )} ( š*Ɓ-j *LINKER.INFOj .+:á "ˡá>  >;á  ! >꫄Aٟ˄N>á,>&"ˡ Sˡ> áUQ  á Rˡ   E:8ˡ8ˡ ;P",& !&&& Oá Bˡ٧&šٕȡ  Ɓ-Ɓ/`ݢ ݣÄɡ3ڕġ$ڕš : Qá<ȡ)˄ ;P؂   : V> š"šޣ Ąޣ ݣ ˡPݣ %ݢ@ݢݢBݣ "áAˡA wc qwá$x"á?AˡA !Dwá.{!ç{ç{˄AˡA !?ݣ ˄ݢBۂ"ˡ\ݣ ݣ šݢݣ ݢ<ݣݣ ݣ ݣݣńݢ<ݣݢݢݢˡݢݢۚݢ>ܚAˡA AˡA A AˡA!á AA >0 #ˡ=   - vvP 4 V ١0.z!á yڧ{á 5 #?  ? á6 Щ1š?  Oš? á;P).á{{{{ˡ  QBB{<󄓡{"?AC Щɡ ؂ENDM Я ȡ? ? ? "1   _ QáAP ړ ˡ> Qáۯ. H2:á+ Qá  ?áǀȡ   t á  ?ۯX8ˡ8ˡ  Щ;P Oš á;P Ä ;F ˡ B b á  Lǀ).á Щɡ قIF Я (ENDC Я ɡ  اELSE Я  Ä ;F ˡKh QCá7á (ɡاENDC Я W   Щ Oš á;P).á ȡ   dqke_YER  "$&(*,.02468:2 Ǡ ˡR á Q rwwc ڻ ٻ ܡwrۡ  ݣ ݢ<ݣݣ ݣ ݣݣńݢ<ݣݢݢݢˡݢݢۚݢ>ܚ  - v~ ٟˡb~Ǡ ǀ  8 0٢؂٢٢Ʉjj٨j٢٫ j rOáb"ˡá!"#$%1<'< >  @&>  >;á  ! >꫄Aٟ˄N>á,>&"ˡ ,& !8   '@#7BMemory after initialization:B( B OPÍ@&&& Oá Bˡ٧&šٕȡ   : Qá ꥁP. "á.áˍáJȍMč 2Ȅ8ˡ &'     åÄ݂ SÄ ˡL Mvá `á.á ɡ  {!w"s#o$k%gL`z|á)á åÄNá˥Ä SÄL á: á  [YWUSQOMKIGECA?=;97508:ˡ8ˡ8ˡ ݂&ˡá ݂OLMáO  Ǡ   >2q"hv2l~Lp(P4 t P lN 'Í@Ǡ yy ,Ǡ rwwc ڻ ٻ ܡwrۡ ȍMč 2Ȅ8ˡ &'      \Ǡ  á   P4Ǡ  á Q ˡRƁ.ƁD́mƁm*Ɓm11ƁmṔmƁmƁDPƁm.ERRORSWƁmƁC "ˡw0BBrwwc ڻ ٻ ܡwrۡ  ~S Ǡ  áR  á=;PPBBB<󄓡/;PP. ݢ 3!á*@wc  TRQ vǠ    ݻ ܻrwݣÄɡ3ڕġ$ڕšš"šwcˡR ڻ ٻmwwc wr  ߡwmޡ  ޣ Ąޣ ݣ ˡPݣ %ݢ@ݢݢBݣ "ˡݣ ˄ݢBۂ"ˡ\ݣ ݣ šݢ3 BVC BVS BCC BCS BGE BLT BGT BLE BHI BLOS BHIS PC relativenot allowedbelntillegal macro parameter indexllowedbelntnot enough macro parametersexllowedbelntoperand not absBLO CLC CLV CLZ CLN SEC SEV SEZ SEN SCC CCC oluteametersexllowedbelntillegal use of special symbolslowedbelntill-formed expressionl symbolslowedbelntnot enough operan NOP JMP @JSR RTS MFPI @ MTPI XOR xMUL p DIV r ASH t dsonl symbolslowedbelnt&cannot handle this relative expressionntconstant overflows relative expressionntillegal decimal conASHC v FADD zFSUB zFMUL zFDIV zstantive expressionntillegal octal constantntive expressionntillegal binary constanttive expressionntinvalid key wordonstanttive expressionnt%unexpected end of input - after macronntinclude files may not be nested macronntunexpected end of inpute nested macronnt(this is a bad place for an .INCLUDE file'only labels & comments may occupy col 1eexpected local labelts ma ust branch backwards to labelsll or intundefined labelkwards to labelsll or intoperand out of ranges to labelsll or intmy occupy col 1elocal label stack overflow occupy col 1e#string constant must be on one lineol 1e%string constant exceeds 80 PC SP R7 R6 R5 R4 R3 R2 R1 R0 MARK ust have procedure name labelsll or intnumber of parameters expectedlsll or intextra garbage on lineexpectedlsll or intinp SOB ~TRAP EMT BPT IOT RTI RTT RESET WAIT HALT CLR ut line over 80 characterslsll or intnot enough .IF's80 characterslsll or int&must be declared in .ASECT before usedntident CLRB COM @ COMB @INC INCB DEC DECB NEG NEGB TST ifier previously declaredore usedntimproper formatiously declaredore usednt .EQU expectedatiously declaredore usednt&must .ETSTB ASR ASRB ASL ASLB ROR RORB ROL @ ROLB @SWAB ADC QU before use if not to a labelntmacro identifier expectedot to a labelntword addressed machinetedot to a labelnt#backward @ ADCB @SBC SBCB SXT MOV  MOVB CMP CMPB ADD ` SUB BIT .ORG currently not allowedbelntidentifier expectedntly not allowedbelntconstant expectededntly not allowedbelntinvalid str 0 BITB BIC @ BICB BIS P BISB BR BNE BEQ BPL BMI uctureedntly not allowedbelntextra special symboltly not allowedbelntbranch too farsymboltly not allowedbelntvariable not 4 ines 1e(lost file, file is no longer in directorbad title, illegal file name in director#no room, insufficient space on diskectorno unit, no such volume on-linediskectorno file, no such file on volumediskectorduplicate filech file on volumediskec>COPYRIGHT (C) 1978 REGENTS OF UNIVERSITY OF CALIFORNIA, I.I.S.tor(not closed, attempt to open an open file(not open, attempt to access a closed fil(bad format, error in reading real or int???tJantFebtMartAprtMaytJuntJultAugt Sept nested macro definitions illegall or int'=' or '<>' expectedions illegall or intmay not EQU to undefined labelsll or intt Octt Novt Dect ???t???t???&SYSTEM.WRK.TEXT  SYST ay not EQU to undefined labelsll or int ay not EQU to undefined labelsll or int ay not EQU to undefined labelsll or int EM.WRK.CODE  R DؕɄ?Í'`B>V~ay not EQU to undefined labelsll or int ay not EQU to undefined labelsll or int ay not EQU to undefined labelsll or int ayvnRNŦ((bتP&R Parity (C not EQU to undefined labelsll or int ay not EQU to undefined labelsll or int ay not EQU to undefined labelsll or int ay nRC) errorPBad unit numberPBad IO operationP Timeout errorPVol went off-linePFile lost in dirPot EQU to undefined labelsll or int ay not EQU to undefined labelsll or int ay not EQU to undefined labelsll or intclose p Bad file namePNo room on volP{No such vol on-lineP`File not foundPJ Dup dir entryP5 Filer erraren ')' expected labelsll or intregister expectedxpected labelsll or inttoo many special symbols labelsll or intunrecognior!!P  sZF3$ F Blkd volumeP Unblkd volumePRˡM or PSázable operandls labelsll or intregister reference onlys labelsll or intfirst operand must be registersll or intcomma ',' ePunRPPblkd volXP File name YPEFile or vol nameP- Volume characters 1eillegal use of macro parameterracters 1eno local labels in .ASECTmeterracters 1eexpected key wordn .ASECTmetexpected be registersll or intunimplimented instructionistersll or intmust branch backwards to labelsll or intrracters 1estring expectedrdn .ASECTmeterracters 1ebad block, parity error (CRC)rracters 1ebad unit numberty error (CRC)rr\6fpPASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD acters 1ebad mode, illegal operationC)rracters 1eundefined hardware errorionC)rracters 1e$lost unit, unit is no longer on-l 5 nameP-NVA+J"P expectedYP:VZ .PˡعP--- -JتP  ˡ4ڕڕ ڂWildcard not allowedP*á not PFirst vol/file name was h a wildcardrP file loadedP3 ڂ>XƁ.` QUIT: D(ISK) OR M(EMORY) UPDATE, R(ETURN) H(ELP) E(XIT)No SPعfilePvolumeP 46!Illegal X name]P6ˡ$ *NEW.MISCINFO٥`_/_́ʁȡ__'D(ISK) UPDATE PUTS THE CURRENTP [Pع0Vol to file nameP$File to vol nameP <=8"Illegal change < SETUP ON$ DISK AS THE FILE "NEW.MISCINFO"! WHICH MUST BE CHANGED IN THE <  X SETUP FILER TO "SYSTEM.MISCINFO"$M(EMORY) UPDATE CHANGES THE SETUP IN! MEMORY UNTIL THE NEXT SYSTEM INITS TEACHSET  INITIALIZATION"R(ETURN) TAKES YOU BACK INTO SETUP IF YOU'RE NOT DONEE(XIT) TERMINATES THIS PROGRAM!DM7 !R썡[/, II.5:X.2Copyright(c)1979Regents of the University of California, San Diego C(ONTINUE) Q(UIT)CNN V OCTAL DECIMAL HEXADECIMALء,ǀɡتPٓ BUG LOCATION 'PLEASE WRITE DOWN THIS LOCATION AND ANY&SUPPORTING DETAILS YOU  ASCII ɡ CONTROLɡ 1) ń ġ CAN, AND REPORT$IT TO THE UCSD SUPPORT STAFF AT YOUREARLIEST CONVENIENCEER    ń ġ= ɡ  A  aA!áHڦP /ۄ > ء!ɡ%o! o!CáDEL (ٳ?  ɡ<áڦP<>/áPھšHۓ<ھEھ?ھG^@M <_  NEW VALUE: ܄ ȄA ?P#QPھ꿹!áھá"$T ڪP P-o!! o!  DEL !˄Ȅᚹ F 06  1h: O(CT) D(EC) H(EX) Q(UIT)0 ( DO TAL OR HEXADECIMAL4OCTAL OR DECIMALbE 2 HS Qár 6썡ġ _'Dɡ, ~  "SETUP: C(HANGE T(EACH H(ELP Q(UIT [S.2]  (C(HANGE) ALLOWS YOU TO CHA_ؑȡ#_*hȡ NGE OR EXAMINE& THE VARIOUS PIECES OF INFORMATION' THE SYSTEM HAS ABOUT YOUR HARDWARE  ( DO 6-á = C / ~ (á 2 쓄 쓡 N썡쓡ۮ46X D5 -á0 FFȡ  ߡ r˦ SHOWSCALARˡ˦ SHOWSCALARCURRENT VALUE IS ٢IhALLOW0 A  ₚ ȡ/0 A  ōED VALUES ARE:˦SHOWALLآá* ZڪP.P.....AޡĄȄ  "INPUT VALUES IN THE DECIMAL RANGE: ..  T : R NEW VALUE: -썓  NEW VALUE:  썡خcI IN THE FORMAT BELOW:!->O-{OCTAL}-!! !'--DEFAULT----!----------->DIGITT zá á$NAME OF FIELD: Y쓄F DIDN'T FIND --->(CR)"! ! ! ! ! !"!->H-{HEX}---! !->(-)-! !-DIGIT<-!! NAME OF FIELD: 쓡\R 쓄;쓡3 FIELD NAME = آ خ !!->D{DECIMAL}!ڡ OR IF YOUR KEYBOARD CAN GENERATE%THE VALUE YOU WANT, JUST TYL#CHANGE: S(INGLE) P(ROMPTED) R(ADIX) H(ELP) Q(UIT)PE THE KEY&AND THEN TYPE CARRIAGE RETURN, OR TYPE$THE ASCII MNEMONIC FOR THE CHARACTER&S(INGLE) ALLOWS YOU TO EXAMINE 1 VALUE BY NAME'P(ROMPTED) TAKES YOU THROUGH ALL FIELDS C(ONTINUE)Cá & x 쓡hWANT TO CHANGE THIS VALUE? (Y,N,!)Y(R(ADIX) ALLOWS YOU TO CHANGE THE ASSUMED RADIX FROM 8OCTALBDECIMAL0E@썡n z D NOW OCTALI NOW DECIMAL3NOW HEXADECIMALK; HEXADECIMALO@4 . TO EITHER [DECIMAL OR HEXADECIMALSOC7 Vƀ/̀ʀ Pʀ ʀٚʀؚʀʀʀ ʀW .W. PARACTER+VERTICAL MOVE DELAY"|  /ڢ Pڢ/ + + + <æINITSتP,+,---ٚ-P-,-V6TFTRUEFALSE HAS CLOCK HAS 8510AH ث /ȡ٤٤ INITIALIZING  ED v>AS LOWER CASEHAS RANDOM CURSOR ADDRESSINGHAS SLOW TERMINALSTUDENTPREFIXED[MOVE CURSOR UP]$PREFIXED[ TO MOVE CURSOR RIGHT(KEY TO END FILE) KEY FOR FLUSH) KEY FOR BREAK* KEY FOR STOP*NON-PRINTING CHARACTERMOVE CURSOR RIGHT]$PREFIXED[ERASE TO END OF LINE]$ PREFIXED[ERASE TO END OF SCREEN]$PREFIXED[MOVE CURSOR HOME]$+KEY TO DELETE LINE,EDITOR "ESCAPE" KEY,LEAD-IN CHAR FROM KEYBOARD-EDITOR "ACCEPT" KEY-KEY TO DELETE CHPREFIXED[DELETE CHARACTER]$PREFIXED[ERASE SCREEN]$PREFIXED[ERASE LINE]$%PREFIXED[KEY FOR MOVING CURSOR RIGHT]/تPR 'IF YOU HAVE A VIDEO TERMINAL AND EXPECT&TO USE THE SCREEN O$PREFIXED[KEY FOR MOVING CURSOR LEFT]/"PREFIXED[KEY FOR MOVING CURSOR UP]/$PREFIXED[KEY FOR MOVING CURSOR DOWN]/ PRIENTED EDITOR, THE%CHANGES SETUP CAN MAKE WILL BE NOT BE'SUFFICIENT. YOU WILL ALSO HAVE TO BIND(IN THE PROCEDURE GOTO CONFIGURATION$T(EACH) TEACHES YOU HOW TO USE SETUP&Q(UIT) ALLOWS YOU TO MAKE YOUR CHANGREFIXED[NON-PRINTING CHARACTER]/PREFIXED[KEY FOR STOP]/PREFIXED[KEY FOR BREAK]/PREFIXED[KEY FOR FLUSH]/PREFIES( PERMANENT AND TO LEAVE THIS PROGRAM+CT$x u "5`XED[KEY TO END FILE]/ PREFIXED[EDITOR 'ESCAPE' KEY]/ PREFIXED[KEY TO DELETE LINE]/ !PREFIXED[KEY TO DELETE CHARACTER] ~@$j rv  v :z64[S.2]  (C(HANGE) ALLOWS YOU TO CHA/ PREFIXED[EDITOR "ACCEPT" KEY]/ Tt SCREEN HEIGHT% SCREEN WIDTH&LEAD-IN TO SCREENNGE OR EXAMINE& THE VARIOUS PIECES OF INFORMATION' THE SYSTEM HAS ABOUT YOUR HARDWAREMOVE CURSOR HOMEERASE TO END OF SCREEN ERASE TO END OF LINE MOVE CURSOR RIGHT!MOVE CURSOR UP! BACKSPAتo NULSOHSTXETXEOTENQACKBELBSHTLFVTFFCE" ERASE LINE# ERASE SCREEN#KEY TO MOVE CURSOR UP'KEY TO MOVE CURSOR DOWN'KEY TO MOVE CURSOR LEFT(KCRSOSIDLEDC1DC2DC3DC4NAKSYNETBCANEMSUBESCFSGSRSUSSPEY TO MOVE CURSOR RIGHT(KEY TO END FILE) KEY FOR FLUSH) KEY FOR BREAK* KEY FOR STOP*NON-PRINTING CHARACTERتP+ +(++!T&ڪP. (á  WW--̀ƀENTER ƀ+KEY TO DELETE LINE,EDITOR "ESCAPE" KEY,LEAD-IN CHAR FROM KEYBOARD-EDITOR "ACCEPT" KEY-KEY TO DELETE CH8  FOR"INPUT AND WILL ESCAPE YOU FROM THE(SEQUENCE WHICH ASKED THE QUESTION, E.G.,(WHEN CHANGING A VALUE, TYPING "*" TOR,&JUST TYPE IT IN (AND CR). BOOLEANS ARE!INPUT BY TYPING "TRUE" OR "FALSE" (AND CR). FOR MORE INFORMATION,$PLEASE  THE( !"PROMPT "NEW VALUE" WILL ESCAPE THE"CHANGE WITHOUT ALTERING THE VALUE.*%THE LINE DELETE CHSEE THE SYSTEM DOCUMENTATION.Or  4b  4  !"!->H-{HEX}---! !->(-)-! !-DIGIT<ARACTER, "*" ALLOWS(<(YOU TO DELETE A RESPONSE YOU GAVE IF YOU'HAVE NOT YET TYPED CR. CR WILL BE SENT'TO THE T-!! !!->D{DECIMAL}!$THE DEFAULT RADIX STARTS AS DECIMAL.$NON-PRINTING CHARACTERS MAY BE IERMINAL AND YOU WILL BE ABLE TO'START OVER ON A NEW LINE. THE BACKSPACE(CHARACTER, "*" WILL DELETE YOUR RESPONSE( /NPUT'BY TYPING THE KEY WHICH GENERATES THEIR&VALUE (FOLLOWED BY CR) OR, IF THERE IS%AN ASCII MNEMONIC FOR THAT CHARACTE%TO A QUESTION CHARACTER BY CHARACTER,(ECHOING EACH CHARACTER AS IT IS DELETED.%THE ECHOED DELETED CHARACTERS WILL R,&JUST TYPE IT IN (AND CR). BOOLEANS ARE!INPUT BY TYPING "TRUE" OR "FALSE" (AND CR). FOR MORE INFORMATION,$PLEASE BE(ENCLOSED IN ANGLE BRACKETS. FOR EXAMPLE,!TYPING THE SEQUENCE OF CHARACTERSCHARAQF// CTER 8($WILL ECHO ON THE SCREEN THE SEQUENCECHARAQFCTER$AND WILL BE UNDERSTOOD AS THE STRING& "CHARACTER". WHEN 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 NUMBERS AND AS#THEIR ASCII MNEMONIC. BOOLEANS ARE(EITHER TRUEXY IN THE OPERATING(SYSTEM. SEE SECTION 4.7 OF THE DOCUMENT.S #NOTE: DISK UPDATES CREATE THE FILE:  OR FALSE. ENTER NUMBERS, OR(CHARACTERS AS THEIR ASCII NUMERIC VALUE,ACCORDING TO THE FORMAT:!->O-{OCTAL}-!!  NEW.MISCINFO(ON YOUR DISK. THE NAME OF THIS FILE MUSTBE CHANGED USING THE FILER TO:  SYSTEM.MISCINFO&IN  !'--DEFAULT----!----------->DIGIT--->(CR)"! ! ! ! ! !"!->H-{HEX}---! !->(-)-! !-DIGIT<ORDER FOR THE CHANGES YOU HAVE MADETO BE LOADED AT BOOTSTRAP TIME."ALL NON-PRINTING CHARACTERS EXCEPT&CA-!! !!->D{DECIMAL}!$THE DEFAULT RADIX STARTS AS DECIMAL.$NON-PRINTING CHARACTERS MAY BE IRRIAGE RETURN (CR) WILL ECHO AS "?".&THE INPUT ABORT CHARACTER, "*", CAN BE(!&TYPED IN RESPONSE TO MOST REQUESTSNPUT'BY TYPING THE KEY WHICH GENERATES THEIR&VALUE (FOLLOWED BY CR) OR, IF THERE IS%AN ASCII MNEMONIC FOR THAT CHARACTE9 %xe:=x-px; ye:=y-py; ix:=0; iy:=0; fa:=0; %While (Abs(ix-xe)+Abs(iy-ye))>0 Do Begin 'If xe<1 Then dx:=-1 Else dx:=1; 'If ye<1 Then dy:=-1 Else dy:=1; 'fx:=fa+dx*ye; fy:=fa-dy*xe; fxy:=fx+fy-fa; 'If ((Abs(fy)-Abs(fx))<0) And ((Abs(fy)-Abs(fxy))<0) Then )Begin dx:=0; fa:=fy End 'Else If ((Abs(fx)-Abs(fy))<0) And ((Abs(fx)-Abs(fxy))<0) Then )Begin dy:=0; fa:=fx End 'Else fa:=Program edtchr;  { Character set editor $Written by G.J.Murakami June 2, 1979 Based on charedt by W.I.Nowicki }  Cofxy; 'ix:=ix+dx; iy:=iy+dy; px:=px+dx; py:=py+dy; 'Gotoxy(40+2*px,16-py); If p_label Then Write(chr(i+64)) Else Write('*'); 'nst lim=30;  Type vector=Packed Record ipen:0..1; x:-4..3; y:-8..7 End;  Var chr_tbl:Array[' '..'~'] Of Packed ArrEnd; {While} %px:=x; py:=y End #Else If ipen=0 Then Begin px:=x; py:=y End; "End {plot};  Begin{showchar} "For i:=1 To 22ay [1..lim] Of vector; "workchar:Array[1..lim] Of vector; "fout:Text; filename:String; p_label,grid:Boolean; "c,i,j,line,par Do Begin Gotoxy(40,i); Write(chr(27),'K') End; t,count,sign,value:Integer; ch,com,ansch,copyc:Char;  Function imax(a,b:integer):integer; "Begin If a>b Then imax:=a Else "If grid Then For i:=0 To 12 Do For j:=0 To 12 Do Begin /Gotoxy(40+2*i,16-j); Write('.') End; "px:=0; py:=0; i:=0; "Repeat iimax:=b End;  Function cycle(num,base:integer):integer; "Begin If num<1 Then num:=base; cycle:=num-base*trunc((num-1)/base) E:=i+1; With workchar[i] Do plot(px+x,py+y,ipen); "Until ((workchar[i].x=0) And (workchar[i].y=0)); "showdata  End{showchar}; nd;  Procedure showline(i:Integer);  Begin If i<21 Then Gotoxy(2,i) Else Gotoxy(22,i-20); "If p_label Then Write(chr(i+64))   Procedure replot;  Begin "Write(chr(12),' id dx dy ipen:'); "Write(' b(ck c(py d(el g(rd i(nsrt l(abl n(xt p(lot r(plt "Else Write('*'); "With workchar[i] Do Write(x:4,y:4,ipen:4,' '); sign:=1  End;  Procedure showdata;  Begin j:=0; "Repeat jetx" '); "showchar(ch); "Gotoxy(40,23); Write('ASCII decimal ',Ord(ch),' Symbol ',ch)  End;  Procedure read_file; :=j+1; Showline(j) "Until ((workchar[j].x=0) And (workchar[j].y=0));  Begin "Reset(fout,'graphics.chars'); Write('Reading'); "Repeat i:=0; Read(fout,ch); $Repeat i:=i+1; With chr_tbl[ch,i] Do Re End;  Procedure showchar(ch:char); !Var px,py,x,y,i:Integer; !Procedure plot(x,y,ipen:integer); !Var xe,ye,ix,iy,dx,dy,fad(fout,ipen,x,y); $Until (chr_tbl[ch,i].x=0) And (chr_tbl[ch,i].y=0); $For j:= i To 20 Do With chr_tbl[ch,j] Do Begin ipen:=0x,fy,fxy,fa:integer; !Begin #If ipen=1 Then Begin %Gotoxy(40+2*px,16-py); If p_label Then Write(chr(i+64)) Else Write('*'); : ch); 3workchar:=chrtbl[ch]; replot; count:=2 End; $'P','p': Begin p_label:=False; showchar(ch); count:=2 End; $'R','r': Begin:=cycle(line+1,lim-1) End End; ,4,8,127: Begin part:=part-1; .If part<1 Then Begin part:=3; line:=cycle(line-1,lim-1) End End; replot; count:=2 End "End {case}  End;  Procedure Sure_query;  begin "gotoxy(0,23); write('Are you sure?'); ,read(keyb ,9: part:=3; ,26: chrtbl[ch]:=workchar ; x:=0; y:=0 End; $Readln(fout); Write('.',ch); "Until Eof(fout); "Writeln; Close(fout)  End;  Procedure write_file;  Begoard,ansch);  end;  Procedure Put_cursor;  begin "If line<21 Then Gotoxy(1+part*4,line) *Else Gotoxy(21+part*4,line-20); in "Write('Writing.'); Rewrite(fout,'graphics.chars');  end;  Begin Writeln('Character set editor'); "Write('Initializing...'); "For c:=Ord(' ') To Ord('~') Do For i:= 1 To lim D"For c:=Ord(' ') To Ord('~') Do Begin $If (chr_tbl[Chr(c),1].x<>0) Or (chr_tbl[Chr(c),1].y<>0) Then Begin &i:=0; Write(fout,Co With chr_tbl[Chr(c),i] Do &Begin ipen:=0; x:=0; y:=0; End{with & for}; Writeln; "read_file; p_label:=False; grid:=False; "hr(c)); &Repeat i:=i+1; (With chr_tbl[Chr(c),i] Do Write(fout,' ',ipen,' ',x,' ',y); &Until (chr_tbl[Chr(c),i].x=0) And (chr_Repeat Write(chr(12)); Write('Character (etx-exit):'); Read(ch); $While ((Not Eof(Input)) And (ch>' ') And (ch<='~')) Do Begin tbl[Chr(c),i].y=0); &Writeln(fout); Write(chr(c),'.') End End; "Close(fout,Lock);  End;  Procedure charcommand;  Begin "&workchar:=chrtbl[ch]; replot; &line:=1; part:=1; count:=0; Gotoxy(5,1); Case com Of $'-': Begin sign:=-1; Write(com) End; $'B','b': If ch>'!' then -Begin chrtbl[ch]:=workchar; ch:=Pred(ch); 3&Repeat Read(Keyboard,com); count:=count+1; (If Eoln(Keyboard) Then Begin showline(line); com:='*'; *line:=cycle(line+1,lim-1workchar:=chrtbl[ch]; replot; count:=2 End; $'C','c': Begin Gotoxy(0,23); Write('copy: '); Read(copyc); 1If ((copyc>' ') And (); part:=1; count:=0 End; (If ((com>='0') And (com<='9')) Then Begin *With workchar[line] Do Begin value:=(Ord(com)-48)*sign; copyc<='~')) Then workchar:=chrtbl[copyc]; 3replot End; $'D','d': Begin For i:=line To lim-1 Do workchar[i]:=workchar[i+1]; 3*Case part Of ,1: If value<-4 Then x:=-4 Else If value>3 Then x:=3 Else x:=value; ,2: If value<-8 Then y:=-8 Else If value>7 showdata; count:=2 End; $'G','g': Begin grid:=Not grid; showchar(ch); count:=2 End; $'I','i': Begin For i:=lim-1 Downto imax(2Then y:=7 Else y:=value; ,3: If Value<>1 Then ipen:=0 Else ipen:=1 End{case} End{with}; *showline(line); count:=0; part:=part,line) Do 3workchar[i]:=workchar[i-1]; showdata; count:=2 End; +1; *If part>3 Then Begin part:=1; line:=cycle(line+1,lim-1) End End; (If count=1 Then Begin count:=0; *Case Ord(com) Of ,1:$'L','l': Begin p_label:=True; showchar(ch); count:=2 End; $'N','n': If ch<'~' then -Begin chrtbl[ch]:=workchar; ch:=Succ( line:=cycle(line-1,lim-1); ,2: line:=cycle(line+1,lim-1); ,3,32: Begin part:=part+1; .If part>3 Then Begin part:=1; line; ! 0 3 6 0 2 6 1 1 -7 1 1 7 1 -2 0 0 0 -6 0 0 -4 1 2 0 1 0 -2 1 -2 0 1 0 2 0 0 0 " 0 3 7 1 2 2 1 0 2 1 -2 0 1 0 -1 1 2 0 0 3 -3 1 5 1 3 0 1 3 0 1 3 0 1 3 0 0 0 0 6 0 0 4 1 2 2 1 3 0 1 3 0 1 2 0 1 2 -2 1 0 -2 1 -2 -2 1 -4 0 1 -4 0 1 -2 2 1 0 4 1 0 4 1 2 2 1  2 2 1 0 2 1 -2 0 1 0 -1 1 2 0 0 0 0 # 0 3 0 1 0 6 1 0 6 0 3 0 0 3 0 1 0 -6 1 0 -6 0 3 4 1 -3 0 1 -3 0 1 -3 0 1 -3 0 0 0 4 1 3 03 0 1 3 0 1 2 0 1 2 -2 0 0 0 7 0 0 6 0 0 6 1 3 0 1 3 0 1 3 0 1 3 0 1 -3 -3 1 -3 -3 1 -3 -3 1 -3 -3 0 0 0 8 0 0 2 1 2 -2 1 3 0 1  1 3 0 1 3 0 1 3 0 0 0 0 $ 0 0 3 1 3 -3 1 3 0 1 3 0 1 3 2 1 0 2 1 -3 2 1 -3 0 1 -3 0 1 -3 2 1 0 2 1 3 2 1 3 0 1 3 0 1 3 -2 0 -3 3 0 1 2 0 1 2 2 1 0 2 1 -2 2 1 -4 0 1 -4 0 1 -2 2 1 0 2 1 2 2 1 3 0 1 3 0 1 2 0 1 2 -2 1 0 -2 1 -2 -2 1 -4 0 1 -4 0 1 -2 -2 1 0 3 0 -3 0 1 0 -6 1 0 -6 1 0 -2 0 0 0 % 0 3 0 0 3 1 1 -2 0 1 0 2 1 2 0 1 0 -2 0 0 7 1 0 2 1 -2 0 1 0 -2 1 2 0 0 -3 -4 0 -3 -4 1 3 -2 0 0 0 9 0 3 0 1 3 3 1 3 3 1 3 3 1 0 1 1 -2 2 1 -4 0 1 -4 0 1 -2 -2 1 0 -1 1 2 -2 1 3 0 1 3 0 1 2 0 0 0 0 : 0 3 0 0 3 1 1 -2 03 1 3 3 1 3 3 0 0 0 & 0 3 0 0 3 0 0 3 0 0 2 0 1 -3 3 1 -3 3 1 -2 2 1 0 3 1 1 1 1 1 0 1 1 -1 1 0 -2 1 -3 -6 1 0 -1 1 2 -2 1 2 0 1 1 0 2 1 2 0 1 0 -2 0 0 6 1 0 2 1 -2 0 1 0 -2 1 2 0 0 0 0 ; 0 3 0 0 3 0 1 -2 0 1 0 2 1 2 0 1 0 -2 1 -2 -3 0 1 6 0 1 2 1 0 2 1 -2*End{case} End{if}; (charcommand; (If count>1 Then Begin showline(line); count:=0; End; (If count=0 Then Put_cursor; )If o 3 4 0 0 0 ' 0 3 4 0 3 3 1 2 2 1 0 2 1 -2 0 1 0 -1 1 2 0 0 0 0 ( 0 3 0 0 3 0 1 -3 3 1 0 6 1 3 3 0 0 0 ) 0 3 0 0 2 0 1 3 3 1 0 6 rd(com)=27 {esc} then begin sure_query; ,if ansch in ['y','Y'] then {let it end} -else begin com:=' '; replot; Put_cursor en1 -3 3 0 0 0 * 0 3 6 1 3 0 1 3 0 1 -3 0 1 0 3 1 0 -3 1 0 -3 1 0 3 1 3 3 1 -3 -3 1 3 -3 1 -3 3 1 -3 -3 1 3 3 1 -3 3 0 0 0 + 0 3 6d )end; {if} &Until ((ord(com)=26){^z="etx"} Or Eof(Input) Or (Ord(com)=27{esc})); &ch:=chr(0) $End{while}; "Until Eof(Inp 1 3 0 1 3 0 1 -3 0 1 0 3 1 0 -3 1 0 -3 0 0 0 , 0 3 0 0 3 0 1 -2 0 1 0 2 1 2 0 1 0 -2 1 -2 -3 0 0 0 - 0 0 6 0 2 0 1 3 0 1 3 0 1 ut); "write_file;  End.          2 0 0 0 0 . 0 3 0 0 1 0 1 2 0 1 0 2 1 -2 0 1 0 -2 0 0 0 / 1 3 3 1 3 3 1 3 3 1 3 3 0 0 0 0 0 2 0 0 2 0 1 -2 2 1 -1 2 1 0 4 1 1 2 1 2 2 1 2 0 1 2 0 1 2 -2 1 1 -2 1 0 -4 1 -1 -2 1 -2 -2 1 -2 0 1 -2 0 0 0 0 1 0 3 0 1 3 0 1 3 0 1 -3 0 1 0 6 1 0 6 1 -3 -3 0 0 0 2 0 0 6 0 0 3 1 3 3 1 3 0 1 3 0 1 3 -3 1 0 -2 1 -3 -2 1 -3 0 1 -3 0 1 -3 -3 1 0 -2 1 3 0 1 3 0 1 3 0 1 3 0 0 0 0 3 0 2 6 0 0 4 1 2 2 1 3 0 1 3 0 1 2 -2 1 0 -2 1 -2 -2 1 -3 0 1 3 0 1 2 -2 1 0 -2 1 -2 -2 1 -3 0 1 -3 0 1 -2 2 0 0 0 4 0 3 0 0 3 0 0 2 0 1 0 6 1 0 6 1 -3 -3 1 -3 -3 1 3 0 1 3 0 1 2 0 0 0 0 5 0 0 2 1 2 -2 1 3 0 1 3 0 1 2 0 1 2 2 1 0 3 1 -2 2 1 -3 0 1 -3 0 1 -2 0 1 -2 0 1 0< 3 3 1 -3 -3 1 -3 0 1 -3 0 1 -3 3 1 0 3 1 0 3 1 3 3 1 3 0 1 3 0 1 3 -3 0 0 0 D 1 0 6 1 0 6 1 3 0 1 3 0 1 2 0 1 2 -1 1 2 -3 1 0 -43 4 1 3 4 1 3 -4 1 3 -4 1 0 6 1 0 6 0 0 0 X 0 0 6 0 0 6 1 3 -3 1 3 -3 1 3 -3 1 3 -3 1 -3 3 1 -3 3 1 -3 -3 1 -3 -3 1 3 3 1 3 3 1  1 -2 -3 1 -2 -1 1 -3 0 1 -3 0 1 -2 0 0 0 0 E 0 3 0 0 3 0 0 3 0 0 3 0 1 -3 0 1 -3 0 1 -3 0 1 -3 0 1 0 6 0 3 0 0 3 0 1 -3 0 1 -3 3 3 1 3 3 0 0 0 Y 0 0 6 0 0 6 1 3 -3 1 3 -3 1 0 -6 1 0 6 1 3 3 1 3 3 0 0 0 Z 0 0 6 0 0 6 1 3 0 1 3 0 1 3 0 1 3 0 1 -3 -3 1 -3 -30 1 0 6 1 3 0 1 3 0 1 3 0 1 3 0 0 0 0 F 1 0 6 1 3 0 1 3 0 0 -3 0 0 -3 0 1 0 6 1 3 0 1 3 0 1 3 0 1 3 0 0 0 0 G 0 3 2 0 3 3 1 3 0  1 -3 -3 1 -3 -3 1 3 0 1 3 0 1 3 0 1 3 0 0 0 0 [ 0 3 0 0 3 0 0 3 0 1 -3 0 1 -3 0 1 0 6 1 0 6 1 3 0 1 3 0 0 0 0 \ 0 0 6 0 0 6 1 31 3 0 1 0 -2 1 -3 -3 1 -3 0 1 -3 0 1 -3 3 1 0 6 1 3 3 1 3 0 1 3 0 1 3 -3 0 0 0 H 1 0 6 1 0 6 1 0 -6 1 3 0 1 3 0 1 3 0 1 3 0 1 0  -3 1 3 -3 1 3 -3 1 3 -3 0 0 0 ] 0 3 0 1 3 0 1 3 0 1 0 6 1 0 6 1 -3 0 1 -3 0 0 0 0 ^ 0 3 6 1 3 3 1 3 -3 0 0 0 _ 0 0 -2 1 3 0 1 36 1 0 -6 1 0 -6 0 0 0 I 1 3 0 1 3 0 1 3 0 1 3 0 1 -3 0 1 -3 0 1 0 6 1 0 6 1 -3 0 1 -3 0 1 3 0 1 3 0 1 3 0 1 3 0 0 0 0 J 0 0 3 1  0 1 3 0 1 3 0 0 0 0 ` 0 3 6 0 0 6 1 3 -3 1 3 -3 0 0 0 a 0 3 5 1 1 1 1 3 0 1 1 0 1 1 -1 1 0 -4 1 1 -1 1 -1 1 1 -1 -1 1 -3 0 1 -13 -3 1 3 0 1 3 0 1 3 3 1 0 6 1 0 3 0 0 0 K 1 0 6 1 0 6 1 0 -6 1 3 0 1 3 2 1 3 2 1 3 2 1 -3 -2 1 -3 -2 1 -3 -2 1 3 -2 1 3 -2 1 3  0 1 -1 1 1 0 1 1 1 1 1 3 0 1 1 0 0 0 0 b 0 3 0 0 1 0 1 0 6 1 3 0 1 1 0 1 1 -1 1 0 -4 1 -1 -1 1 -1 0 1 -3 0 1 0 7 1 0 3 0 0 0 c -2 0 0 0 L 0 0 6 0 0 6 1 0 -6 1 0 -6 1 3 0 1 3 0 1 3 0 1 3 0 0 0 0 M 1 0 6 1 0 6 1 3 -3 1 3 -3 1 3 3 1 3 3 1 0 -6 1 0 -6 0 0 0 N0 3 0 0 3 0 0 3 1 1 -1 -1 1 -3 0 1 -1 1 1 0 4 1 1 1 1 3 0 1 1 -1 0 0 0 d 0 3 0 0 3 0 0 3 0 1 0 6 1 -3 0 1 -1 0 1 -1 -1 1 0 -4 1  1 0 6 1 0 6 1 3 -3 1 3 -3 1 3 -3 1 3 -3 1 0 6 1 0 6 0 0 0 O 0 3 0 1 -3 3 1 0 6 1 3 3 1 3 0 1 3 0 1 3 -3 1 0 -6 1 -3 -3 1 -3 0 11 -1 1 1 0 1 3 0 1 0 7 1 0 3 0 0 0 e 0 3 3 1 3 0 1 3 0 1 -2 2 1 -3 0 1 -2 -2 1 0 -1 1 2 -2 1 3 0 1 1 1 0 0 0 f 0 3 0 0 3 0 1 0 7 0 1 0 -2 1 2 0 0 0 0 < 0 3 0 0 3 0 0 3 0 1 -3 3 1 -3 3 1 3 3 1 3 3 0 0 0 = 0 0 4 0 2 0 1 3 0 1 3 0 1 2 0 0 0 3 1 -3 0 1 -3 0 1  -3 0 0 0 0 P 1 0 6 1 0 6 1 3 0 1 3 0 1 3 0 1 3 -2 1 0 -2 1 -3 -2 1 -3 0 1 -3 0 1 -3 0 0 0 0 Q 0 3 0 1 -3 3 1 0 6 1 3 3 1 3 0 1 -2 0 0 0 0 > 0 3 6 0 0 6 1 3 -3 1 3 -3 1 -3 -3 1 -3 -3 0 0 0 ? 0 3 0 0 3 0 1 0 1 0 0 1 1 0 1 1 3 3 1 3 3 1 0 1 1 -2 2 1 -4 0 1 -3 0 1 3 -3 1 0 -6 1 -1 -1 1 -2 2 1 2 -2 1 2 -2 1 -2 2 1 -2 -2 1 -3 0 1 -3 0 0 0 0 R 1 0 6 1 0 6 1 3 0 1 3 0 1 3 0 1 3 -2 1 0 -2 4 0 1 -2 -2 1 0 -1 1 2 -2 0 0 0 @ 0 3 0 1 -3 3 1 0 6 1 3 3 1 3 0 1 3 0 1 3 -3 1 0 -6 1 -3 -3 1 -3 0 1 -2 3 1 0 3 1 2 2 1 2 0 1 21 -3 -2 1 -3 0 1 -3 0 1 -3 0 1 3 0 1 3 0 1 3 -3 1 3 -3 0 0 0 S 0 0 3 1 3 -3 1 3 0 1 3 0 1 3 2 1 0 2 1 -3 2 1 -3 0 1 -3 0 1 -3 2  -2 1 0 -2 1 -2 -2 0 0 0 A 1 3 6 1 3 6 1 3 -6 1 3 -6 1 -3 6 1 -3 0 1 -3 0 0 0 0 B 1 0 6 1 0 6 1 3 0 1 3 0 1 3 0 1 1 0 1 2 -2 1 01 0 2 1 3 2 1 3 0 1 3 0 1 3 -2 0 0 0 T 0 0 6 0 0 6 1 3 0 1 3 0 1 3 0 1 3 0 1 -3 0 1 -3 0 1 0 -6 1 0 -6 0 0 0 U 0 0 6 0 0 6 1 0 - -2 1 -2 -2 1 -4 0 1 -4 0 1 -2 0 1 3 0 1 2 0 1 3 0 1 2 0 1 2 -2 1 0 -2 1 -2 -2 1 -4 0 1 -4 0 1 -2 0 0 0 0 C 0 3 0 0 3 0 0 3 0 0 6 1 0 -3 1 3 -3 1 3 0 1 3 0 1 3 3 1 0 3 1 0 6 0 0 0 V 0 0 6 0 0 6 1 3 -6 1 3 -6 1 3 6 1 3 6 0 0 0 W 0 0 6 0 0 6 1 0 -6 1 0 -6 1 =  1 -1 0 0 -2 1 0 -5 0 0 0 j 0 3 0 0 3 7 1 1 1 1 -1 1 1 -1 -1 1 1 -1 0 0 -2 1 0 -7 1 -1 -1 1 -1 0 0 0 0 k 0 3 7 0 0 2 0 0 -1 1 0 2 1 0 2 1 -2 2 1 -1 0 1 1 0 1 2 2 1 0 2 1 2 2 0 0 0 | 0 3 0 0 3 0 1 0 5 0 0 2 1 0 5 0 0 0 } 0 3 0 0 2 0 1 2 2 1 0 2 1 2 2 1 1 0 -8 0 0 2 1 3 2 1 3 2 0 -3 -3 1 3 -3 0 0 0 l 0 3 0 0 2 0 1 2 0 0 -1 0 1 0 7 1 0 2 0 0 0 m 0 3 6 1 0 -6 0 0 5 1 1 1 1 1 0 1 1 -1 11 -1 0 1 -2 2 1 0 2 1 -2 2 0 0 0 ~ 0 2 5 0 0 -5 1 0 5 1 1 1 1 1 0 1 1 -1 1 0 -5 0 0 0 n 0 3 6 1 0 -6 0 0 5 1 1 1 1 3 0 1 1 -1 1 0 -5 0 0 0 o 0 3 0 0 2 0 1 -1 1 1 0 4 1 1 1 1 3 0 1 1 -1 1 0 -4 1 -1 -1 1 -2 0 0 0 0 p 0 3 0 0 1 0 1 0 6 1 3 0 1 1 0 1 1 -1 1 0 -4 1 -1 -1 1 -1 0 1 -3 0 1 0 -4 0 0 0 q 0 3 0 0 3 0 0 3 0 1 0 6 1 -3 0 1 -1 0 1 -1 -1 1 0 -4 1 1 -1 1 1 0 1 3 0 1 0 -3 1 1 -1 1 2 0 0 0 0 r 0 3 0 1 0 6 0 0 -2 1 2 2 1 3 0 0 0 0 s 0 3 0 1 3 0 1 2 0 1 1 1 1 0 1 1 -1 1 1 -3 0 1 -1 0 1 -1 1 1 0 1 1 1 1 1 3 0 1 1 0 0 0 0 t 0 3 0 0 3 0 0 3 0 1 -2 0 1 -1O^ 1 1 0 7 0 -3 -2 1 3 0 1 3 0 0 0 0 u 0 3 6 1 0 -5 1 1 -1 1 3 0 1 1 0 1 1 1 1 0 5 0 0 0 v 0 3 6 1 3 -6 1 3 6 0 0 0 w 0 1 6 1 3 -6 1 2 3 1 2 -3 1 3 6 0 0 0 x 0 3 6 0 1 0 1 2 -3 1 2 -3 0 -4 0 1 2 3 1 2 3 0 0 0 y 0 2 6 1 2 -3 1 2 -3 0 2 3 0 2 3 1 -4 -6 1 -4 -6 0 0 0 z 0 3 6 1 3 0 1 3 0 1 -3 -3 1 -3 -3 1 3 0 1 3 0 0 0 0 { 0 3 0 0 3 0 0 1 0 1 -2 2 1 0 2 1 -2 2 1 -1 0 1 1 0 1 2 2 1 0 2 1 2 2 0 0 0 | 0 3 0 0 3 0 1 0 5 0 0 2 1 0 5 0 0 0 } 0 3 0 0 2 0 1 2 2 1 0 2 1 2 2 1 1 0 1 -1 0 1 -2 2 1 0 2 1 -2 2 0 0 0 ~ 0 2 5 0 0 4 1 2 2 1 2 0 1 2 -1 1 2 0 1 2 2 0 0 0 1 1 0 7 0 -3 -2 1 3 0 1 3 0 0 0 0 u 0 3 6 1 0 -5 1 1 -1 1 3 0 1 1 0 1 1 1 1 0 5 0 0 0 1 1 1 1 2 0 0 0 -4 1 -3 0 1 -2 0 0 0 0 g 0 3 0 0 3 0 0 3 0 1 0 6 1 -3 0 1 -1 0 1 -1 -1 1 0 -4 1 1 -1 1 1 0 1 3 0 1 0 -3 1 -1 -1 v 0 3 6 1 3 -6 1 3 6 0 0 0 w 0 1 6 1 3 -6 1 2 3 1 2 -3 1 3 6 0 0 0 x 0 3 6 0 1 0 1 2 -3 1 2 -3 0 -4 0 1 2 3 1 2 3 0 0 0 y 0 2 6 1 -3 0 0 0 0 h 0 3 0 0 1 0 1 0 6 1 3 0 1 1 0 1 1 -1 1 0 -5 0 -2 0 0 -3 0 1 0 7 1 0 3 0 0 0 i 0 3 0 0 3 7 1 1 1 1 -1 1 1 -1 -1 1 1 2 -3 1 2 -3 0 2 3 0 2 3 1 -4 -6 1 -4 -6 0 0 0 z 0 3 6 1 3 0 1 3 0 1 -3 -3 1 -3 -3 1 3 0 1 3 0 0 0 0 { 0 3 0 0 3 0 0 1 0 1 -2 > }P>ھڢ0 ɡ IMPOSSIBLEYáHELLOSORRY ȡ !PROGRAM PASCALDEMONSTRATION(INPUT,OUTPUT);   LABEL #1,2;   CONST #PI = 3.14159; #ENTRY = 10;   TYPE #COLOR = (RED,W  zour file is   bytes long.UáS?&SYSTEM.WRK.TEXTN*SYSTEM.WRK.CODEHITE,BLUE);   VAR #INCOLOR : COLOR; #CH : CHAR; #X,Y : INTEGER;   PROCEDURE DUMMY(Z,W:INTEGER); #BEGIN #END;   BEGNe4Do you want to E(xit from or R(eturn to the editor?  R EګIN #READLN(CH); #IF CH='Y' &THEN WRITELN('HELLO') &ELSE WRITELN('SORRY'); #FOR X:= 1 TO ENTRY DO &WRITELN(X:3)  END.  Writing out the filè((ffڿd :$(xU> ( V˿\PASCALSYHEXEDIT  !>ؾآ4>ؾآ(J`ۢÍU PASCALDE ` ÍۢÍRIۢÍZ6ÍۢÍL!ڳ  0123456789 ABCDEFЩ J ONMKLSRQPϦPPTP? 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@ءTrueFalse. YTÍ YTÍ( ;Type the prefix cha & : :|DŽDŽ N&racter of the option you want to change.Type 'P' to PRINT, 'Q' to QUIT. A( Input File 2  PRINTING...  BLOCK[P ]  |9 0: 2: K 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 ؓ@ esult 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إ(  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 occured writing block[R ]RR퓡 -Something wrong, File Locked, Loop Terminat~ 0 A ~0edIMRType to continue AThis procedurA X خ!@BDJ)NPRTQás j  (!Patch: G(et, Q(uitP# H(ex, MA , -1V>ƂƃƂ!ƃMƂIƃuƂqƃƂƃ!*C(onsole, P(atchwrite, W(holewritYáHELLOSORRY ȡ !  rB :62CW* * "$&(4Qá!x Your file is   bytes long.UáS?&SYSTEM.WRK.TEXTN*SYSTEM.WRK.CODEqIƂƂ!ƂIƂqƂ+(rt6 TrT(P 1Ne4Do you want to E(xit from or R(eturn to the editor?  R EګˡP&"ˡD(No such unit. Type to continue.*!GS] g8h*QWriting out the filè((jj޿h:$(x~U>(VϿ\, -1V>ƂƃƂ!ƃMƂIƃuƂqƃƂƃ!*C(onsole, P(atchwrite, W(holewritO^ PASCALDE e, Q(uit PB :62CW* * "$&(4Qá! qIƂƂ!ƂIƂqƂ+(rt6 TrT(P 1ˡP&"ˡD(No such unit. Type to continue.*!GS] g8h*QB YáHELLOSORRY ȡ !PROGRAM PASCALDEMONSTRATION(INPUT,OUTPUT);   LABEL #1,2;   CONST #PI = 3.14159; #ENTRY = 10;   TYPE #COLOR = (RED,W  zour file is   bytes long.UáS?&SYSTEM.WRK.TEXTN*SYSTEM.WRK.CODEHITE,BLUE);   VAR #INCOLOR : COLOR; #CH : CHAR; #X,Y : INTEGER;   PROCEDURE DUMMY(Z,W:INTEGER); #BEGIN #END;   BEGNe4Do you want to E(xit from or R(eturn to the editor?  R EګIN #READLN(CH); #IF CH='Y' &THEN WRITELN('HELLO') &ELSE WRITELN('SORRY'); #FOR X:= 1 TO ENTRY DO &WRITELN(X:3)  END.  Writing out the filè((ffڿd :$(xU> ( V˿\und( dup dir entry(jfile already open(Q file not open(<bad input format($F4 wdM: IO error: (Unimplemented instruction(Floating point error(rString overflow([Programmed HALT(DProgrammed break-point(&U fE0lWBS#  , P#  , I#  |Dj, vol not found(file not fo*ƁV`tDtD Doo odoo'źʁʁʁ PASCALDE *SYSTEM.MISCINFOP*"áh* X́*́ʁ:ʁ:ʁ<ʁʁ>ʁ>ʁJʁJ tDt D **wn  ȡ,~ؤۦۢ0ۢ ؞&~CONSOLE~SYSTERM???~?á';??ٟá'C &"á~PRINTER&"á~REMOC M:(8:986ë???JanFeb.CODE[*]("ˡCode open error!   áثB  7:& MarAprMayJunJulAug Sep Oct Nov Dec ???3 š% -&Execute??????6!:%$ )8P Welcome : what file? š;.á .CODETE ASSMBLER COMPILER EDITOR FILER LINKEŔ'?, toU.C.S.D. Pascal System I.5Current date is C'ȡf:SYSTEM.ؤ ́(Ɓ(?Ɓ(ؤ Ɓ((ؤ ؗ~ -C-C System re-initialized N  ZLFeb́'ʁ'nʁ'é(ʁ(ȡWÍ)Ɓ)ʁ'Ɓ)ؤ Ɓ)(ؤ ؗ áMarAprMayJunJulAug Sep Oct Nov Dec ???(ypƅ*SYSTEM.CHARSET(ƅʅǀ"áʅʅūʅ  ʅ ܪP//ˡU*SYSTEM.STARTUP \  @             @xnpdTTTTT6l8F4 nb%:( Running...ء ء       E     z:98:9áA*SYSTEM.STARTUP(%Initializing...   ZˡM=    :áá  6   FKCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(e |ٳ9=8Ǒbug,? [I.5d]P')%?á?F*Command: U(ser restart, I(nitialize, H(altP')%C$z쓡#J     Linking... ˡ%f &  ا (  ي؊ Restarting... U not allowedQRIHá67AX0nw'')  (  ؂ɡ hh ' F   ɡ hh"C&(,.  C$N  FKCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(e 6   ثڥ٥ا      E  l4- P PAFȄ09Ȅ6Aġ -7-0WWPW-Ǡ$&(*,.02\@B[ ڤڤꚹT#áNš %5 ˡ WP ÍHá$.á áBá6R-ڹšPɡWW-PW?8  ;&:á =O"ÍO&Ȅd !"#{$v%q&l'g(ǠWPV VVVVš|ɡWW-PWǠWPWWȡ$ق b)]*X+S,N-I.D/?0:1520(lifc`]ZWTQNKHEB?<963S6  3VS  ق ń ÄɡWW-PWǠWP Щ09Ȅɡ؂ á'=&=&'Ʉ& =&&=A'á (WWȡقšVV V VVVVš[ɡW2'' "'' ''P;:Ä 6 Q9 PP "PɄ ˄6W-PWǠWPWWȡ'قš VٕقV&q *_򿥁,,P,Ǡ,Pá 9١ؑ ؂ ؂ á8)Pš*x8ë;; &"N  ЩAZȄ09Ȅɡ؂ á-==Ʉؤ =;P á ; á8     8*$á 09ō=-><! ؤ6ENDM Я bš&?? ˡ6  á6 (á6 >á6*% ˡ%% 84Í4á" Ná3#观ˡ%30 P P ˄!0YYPY0Ǡ!~q|3?Bp  v\EL "$&(*,.02468:<>@BDFHJLNPRBwc w˄&"á w&xܤ&ܤ!ܤW ܤ$YP á#"%!B P#%8<󄓡<;PP< >˄ ܤ ܤ"˄ ܤ ܤ!"wc w˄ wꫂ{ܤW R ЩAZȄ09Ȅ_Íɡ؂ =ȡڂ؂ړلٓ뚹áˡܤܤܤܤWˡS|~ǀǀړلٓǀڤ=˄ ==짂5   $0t:<>@BDFHJLNPRTVXZ\^`bdfhjlnptvxz|~$   #  mf_ N #F'  "F  ŧ8  JáƄjƄBB.XB2:#$ T& n!*"""#>09ō8CONSOLE:#1::Q Щ P(BPAGE - BEEQU ЩBFUNC Щ;PUBLIC ЩCPRIVATE ЩD PROC  Bj *LINKER.INFO<󄓡< 0>U *f &x A Щ : 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Ɓ,́Ɓ11Ɓ.OPCODES ƁPACEGIKMOQZPSYMBOLTABLE DUMPPB>AB - Absolute LB - Label UD - Undefined MC - Mac,́Ɓ*Ɓ,QƁPU,"ˡ*, not on vol&Óʁȡق;ProBB=RF - Ref DF - Def PR - Proc FC - FuncBB,PB - Public PV - Private 11 Assembler  I.5 [b.1]́ʁȡ:ق E:*0123456789ABCDEFЩ/ A CS - ConstsBBBá1 ------| Pá1----| PZPBx-~}cy ƄjƅƄBƅnBƁn   .á o&Po.PoP2Output file for assembled listing: ( for none)P G  ˡ-á4B B<󄓡)-- -  complete:  lines " Errors flagged on this AssemblyP -á - - - - --- - -F>e  * )} ( š*Ɓ-j *LINKER.INFOj .+:á ! (. ޢ̀ʀȡrܤˡ]N#F   "$&(*,.02?  "$&(*,.02L"DD  "$&(*,.02vxz|~@ACEGIKMOQZPSYMBOLTABLE DUMPPB>AB - Absolute LB - Label UD - Undefined MC - MacB fj8- *LINKER.INFO ˡ - ȡ/--ároBB=RF - Ref DF - Def PR - Proc FC - FuncBB,PB - Public PV - Private -ܮܧ06vFBCurrent available space is B( B wordsBj-ا0ɡd.š@ɡ6ق,šق, "á@á0/ا0š.0/./ wc.+  Y .+.+AP!-(ث@Aȡš@ɡ6ق,šق, ,ġ'"á@,,,ɡ6,"á@á0@ UB B blocks for procedure code B( B words leftB</ا0/  7ˡg-ȡN--á5ȡ*-ܤˡ.-ܤ  blocks for procedure code (  words left< >0. ȡ ܤˡ.ܤ  -m }ˡ -- ,/Y @á6@B d Ɓ-ƂYƁƂ1Ƃa@# š Já ̂ȡ䥃ؤˡ&BB>>>>>B<󄓡#>>>>>-bʂbġ ٥Yڤ  ٫/@ɡ6ڂ ʁ-Ɓ-Ɓ-Ɓ *LINKER.INFO F--x-n-d-Z- P- F>  "$&(*"áƁ@á@ "á@ɡ6 @ǀ H,.02nzh`N-- - --ˡB-á--ÔbʂbȡڂUH"áá68<B 8BƁ&AssemblyH ).á Щɡ قIF Я (ENDC Я ɡ  اELSE Я  Ä ;F ˡKh QCá7á (ɡاENDC Я W   Щ Oš á;P).á ȡ   dqke_YER  "$&(*,.02468:Щɡ قIF Я (ENDC Я ɡ  اENDC Я   <>@BDFHJLkgu SˡCˡ 5á+ á Ráآ  آ  ˡ"\ٟˡb0٢؂٢٢Ʉjj٨j٢٫ j rOáb Qá ꥁP. "á.áˍáJ"ˡá>  >;á  ! >꫄Aٟ˄N>á,>&"ˡ åÄ݂ SÄ ˡL Mvá `á.á Sˡ> áUQ  á Rˡ   E:8ˡ8ˡ ;P",& !&&& Oá Bˡ٧&šٕȡ  Ɓ-Ɓ/`ݢ ݣÄɡ3ڕġ$ڕš : Qá<ȡ)˄ ;P؂   : V> š"šޣ Ąޣ ݣ ˡPݣ %ݢ@ݢݢBݣ "áAˡA wc qwá$x"á?AˡA !Dwá.{!ç{ç{˄AˡA !?ݣ ˄ݢBۂ"ˡ\ݣ ݣ šݢݣ ݢ<ݣݣ ݣ ݣݣńݢ<ݣݢݢݢˡݢݢۚݢ>ܚAˡA AˡA A AˡA!á AA >0 #ˡ=   - vvP 4 V ١0.z!á yڧ{á 5 #?  ? á6 Щ1š?  Oš? á;P).á{{{{ˡ  QBB{<󄓡{"?AC Щɡ ؂ENDM Я ȡ? ? ? "1   _ QáAP ړ ˡ> Qáۯ. H2:á+ Qá  ?áǀȡ   t á  ?ۯX8ˡ8ˡ  Щ;P Oš á;P Ä ;F ˡ B b á  LǀI 3!á*@wc  TRQ vǠ    ݻ ܻrwݣÄɡ3ڕġ$ڕšš"šwcˡR ڻ ٻmwwc wr  ߡwmޡ  ޣ Ąޣ ݣ ˡPݣ %ݢ@ݢݢBݣ "ˡݣ ˄ݢBۂ"ˡ\ݣ ݣ šݢǠ ˡR á Q rwwc ڻ ٻ ܡwrۡ  ݣ ݢ<ݣݣ ݣ ݣݣńݢ<ݣݢݢݢˡݢݢۚݢ>ܚ  - v~ ٟˡb~Ǡ ǀ  8 0٢؂٢٢Ʉjj٨j٢٫ j rOáb"ˡá!"#$%1<'< >  @&>  >;á  ! >꫄Aٟ˄N>á,>&"ˡ ,& !8   '@#7BMemory after initialization:B( B OPÍ@&&& Oá Bˡ٧&šٕȡ   :ȍMč 2Ȅ8ˡ &'     PC SP R7 R6 R5 R4 R3 R2 R1 R0 MARK ɡ  {!w"s#o$k%gL`z| SOB ~TRAP EMT BPT IOT RTI RTT RESET WAIT HALT CLR á)á åÄNá˥Ä SÄL á: á  [YWUSQOMKIGECA?=;97508:ˡ8ˡ8ˡ ݂&ˡá ݂OLMáO  Ǡ   >2q"hv2l~Lp(P4 t P lN 'Í@Ǡ yy ,Ǡ rwwc ڻ ٻ ܡwrۡ ȍMč 2Ȅ8ˡ &'      \Ǡ  á   P4Ǡ  á Q ˡRƁ.ƁD́mƁm*Ɓm11ƁmṔmƁmƁDPƁm.ERRORSWƁmƁC "ˡw0BBrwwc ڻ ٻ ܡwrۡ  ~S Ǡ  áR  á=;PPBBB<󄓡/;PP. ݢ J @ ADCB @SBC SBCB SXT MOV  MOVB CMP CMPB ADD ` SUB BIT .ORG currently not allowedbelntidentifier expectedntly not allowedbelntconstant expectededntly not allowedbelntinvalid str 0 BITB BIC @ BICB BIS P BISB BR BNE BEQ BPL BMI uctureedntly not allowedbelntextra special symboltly not allowedbelntbranch too farsymboltly not allowedbelntvariable not BVC BVS BCC BCS BGE BLT BGT BLE BHI BLOS BHIS PC relativenot allowedbelntillegal macro parameter indexllowedbelntnot enough macro parametersexllowedbelntoperand not absBLO CLC CLV CLZ CLN SEC SEV SEZ SEN SCC CCC oluteametersexllowedbelntillegal use of special symbolslowedbelntill-formed expressionl symbolslowedbelntnot enough operan NOP JMP @JSR RTS MFPI @ MTPI XOR xMUL p DIV r ASH t dsonl symbolslowedbelnt&cannot handle this relative expressionntconstant overflows relative expressionntillegal decimal conASHC v FADD zFSUB zFMUL zFDIV zstantive expressionntillegal octal constantntive expressionntillegal binary constanttive expressionntinvalid key wordonstanttive expressionnt%unexpected end of input - after macronntinclude files may not be nested macronntunexpected end of inpute nested macronnt(this is a bad place for an .INCLUDE file'only labels & comments may occupy col 1eexpected local labelts ma ust branch backwards to labelsll or intundefined labelkwards to labelsll or intoperand out of ranges to labelsll or intmy occupy col 1elocal label stack overflow occupy col 1e#string constant must be on one lineol 1e%string constant exceeds 80 ust have procedure name labelsll or intnumber of parameters expectedlsll or intextra garbage on lineexpectedlsll or intinpcharacters 1eillegal use of macro parameterracters 1eno local labels in .ASECTmeterracters 1eexpected key wordn .ASECTmeteut line over 80 characterslsll or intnot enough .IF's80 characterslsll or int&must be declared in .ASECT before usedntidentrracters 1estring expectedrdn .ASECTmeterracters 1ebad block, parity error (CRC)rracters 1ebad unit numberty error (CRC)rr CLRB COM @ COMB @INC INCB DEC DECB NEG NEGB TST ifier previously declaredore usedntimproper formatiously declaredore usednt .EQU expectedatiously declaredore usednt&must .ETSTB ASR ASRB ASL ASLB ROR RORB ROL @ ROLB @SWAB ADC QU before use if not to a labelntmacro identifier expectedot to a labelntword addressed machinetedot to a labelnt#backward K 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))  END;   Bacters 1ebad mode, illegal operationC)rracters 1eundefined hardware errorionC)rracters 1e$lost unit, unit is no longer on-lines 1e(lost file, file is no longer in directorbad title, illegal file name in director#no room, insufficient space on diskectorno unit, no such volume on-linediskectorno file, no such file on volumediskectorduplicate filech file on volumediskector(not closed, attempt to open an open file(not open, attempt to access a closed fil(bad format, error in reading real or in{$U-}  PROGRAM OUTERSPACE;  (* THE FOLLOWING IS THE FGOTOXY PROCEDURE FOR A DATA MEDIA TERMINAL. IT IS CURRENTLY BOUND TO t nested macro definitions illegall or int'=' or '<>' expectedions illegall or intmay not EQU to undefined labelsll or intTHE SYSTEM *)  (*PROCEDURE FGOTOXY(X,Y: INTEGER);  CONST "RS = 30;  BEGIN "WRITE(CHR(RS),CHR(X+32),CHR(Y+32))  END;*)   ay not EQU to undefined labelsll or int ay not EQU to undefined labelsll or int ay not EQU to undefined labelsll or int  (* Following is an example of how you might want to write your FGOTOXY #procedure. Do whatever sneakyness you can to get youay not EQU to undefined labelsll or int ay not EQU to undefined labelsll or int ay not EQU to undefined labelsll or int ayr terminal to #go to the correct x and y coordinates. The upper left hand corner #of the screen is considered to be 0,0. Coo not EQU to undefined labelsll or int ay not EQU to undefined labelsll or int ay not EQU to undefined labelsll or int ay nrdinates are postitive.  *)    {PROCEDURE FGOTOXY(X,Y: INTEGER);  BEGIN "WRITE(CHR(HOME)); "WHILE Y > 0 DO $BEGIN &Y ot EQU to undefined labelsll or int ay not EQU to undefined labelsll or int ay not EQU to undefined labelsll or intclose p:= Y-1; &WRITELN $END; "WHILE X > 0 DO $BEGIN &X := X-1; &WRITE(' ') $END  END;} (* THIS IS THE GOTOXY PROCEDURE FOR THaren ')' expected labelsll or intregister expectedxpected labelsll or inttoo many special symbols labelsll or intunrecogniE LSI ADM-3A TERMINAL *) (*PROCEDURE FGOTOXY(X,Y: INTEGER); BEGIN IF X < 0 THEN X := 0; IF X > 80 THEN X := 80; IF Y < 0 zable operandls labelsll or intregister reference onlys labelsll or intfirst operand must be registersll or intcomma ',' eTHEN Y := 0; IF Y > 24 THEN Y := 24; WRITE(OUTPUT,CHR(27),CHR(61),CHR(Y+32),CHR(X+32)) END;*) xpected be registersll or intunimplimented instructionistersll or intmust branch backwards to labelsll or int (* THIS IS THE PROCEDURE FOR THE DEC VT-52 TERMINAL *)   PROCEDURE FGOTOXY(X,Y:INTEGER);  BEGIN #IF X < 0 THEN X := 0; #L EGIN "(*DUMMY MAIN BLOCK*)  END.