IMD 1.17: 27/06/2012 8:53:36 SOFTECH MICROSYSTEMS UCSD P-SYSTEM SL20F2C SYSTEM  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ x@5pU5 U "4E mmӤ wH55T.CODECEDITTORT11.CODECREC.DOCUM.TEXTp7RECOVER.G.CODEpRECOVER.G.CODEp% eC % C ``` e7 ?NOT ENOUGH CORE TO BOOT? ̵̵̀ N` 5 x XE mm  ߋt_v @ @ 8DԤ eeW @7 ?YOU DON'T HAVE A  @5 wn844 4  7x SYSTEM.PASCAL? wT7^ SYSTEM.PDP-11? BA f8 9  6 7 ?YOUR SEGTBL IS RIDICULOUS? : \5:`d &dd b d  &  8 07U@fe Ch7U@p & Copyright(c)1980 C Chapin SL20F2CA= SYSTEM.STARTUPpŸ$ SYSTEM.PDP-11pu$@ SYSTEM.FILERpg@a SYSTEM.PASCALp[a SYSTEM.EDITORpe SYSTEM.LINKERpSYSTEM.COMPILERSYSTEM.LIBRARYpc SYSTEM.SYNTAXp[ BOOTER.CODEps RXBOOTFps  SAMPLEGOTO.TEXT  BINDER.CODEp5+ SETUP.CODExÄ\Üp۞+,SYSTEM.MISCINFO{,0 READ.ME.TEXTp07 11.ERRORSpß7: 11.OPCODESp:jSYSTEM.ASSM SL20F2CA= SYSTEM.STARTUPpŸ$ SYSTEM.PDP-11pu$@ SYSTEM.FILERpg@a SYSTEM.PASCALpBLERjx YALOE.CODEpCx LIBMAP.CODEpŸMARKDUPDIR.CODE7COPYDUPDIR.CODE7RT11TOEDI[a SYSTEM.EDITORpe SYSTEM.LINKERpSYSTEM.COMPILERSYSTEM.LIBRARYpc SYSTEM.SYNTAXp Y on your disk. צTYPE FOR MORE TEXTa(To enable you to write the GOTOXY proc. &we have bound in a simple GOTOXY proc.$that will work on any terminal. The#only problem with this procedure isצ%that you cannot move the curs[ BOOTER.CODEps RXBOOTFps  SAMPLEGOTO.TEXT  BINDER.CODEp5+ SETUP.CODEp۞+,SYSTEM.MISCINFO{,0 READ.ME.TEXTp07 11.ERRORSpß7: 11.OPCODESp:jSYSTEM.ASSM INFOR BLERjx YALOE.CODEpCx LIBMAP.CODEpŸMARKDUPDIR.CODE7COPYDUPDIR.CODE7RT11TOEDI T.CODECEDITTORT11.CODECREC.DOCUM.TEXTp7RECOVER.G.CODEpRECOVER.G.CODEp Welcome toצ the Wonderful World of Pascalצ% Now that you have brought up the'system the next step is to configure itצ#to your particular terminal. First%execute SETUP and follow the internalצ&directions and the document. Once thisצ&is done and NEW.MISCINFO is changed toצ&SYSTEM.MISCINFO, enter the editor and צ&write your GOTOXY routine. If you areצ&unfamiliar about how to do this, thereצ"is a sample GOTOX !!/ Once you have written yourHNTZ`flrx~ ```a@ 0`^& (` L Z   x  @ @.jCOPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SDf ~f{fxfufrfoflfifffcf `f"]f$Zf&Wf(Tf*Q NK H_?HEB?<963 0"-$*&'($*!eeee e  _ 6_ 8/efAA" e e& >   Ee7 TN EE7- @$@$@$@" 0EB~w7&  G 7w pr n&7 H"%% 7 V$\7 V$`` B  aBE B< or right%unless you are in the insert mode, soצ!if you make a mistake, delete the&E7 5@up7w j7w 7 Nbw \-@T a$entire line by placing the cursor at'the beginning of the line then enteringצ!thezE z3F E@ nh f9XF?X E@F F-BD78?2 .~7E@U@  delete mode and typing . Then insert the entire line overagain.  E7 w0 wU &    *7 7 7  7 E7 TYPE FOR MORE TEXT/ Once you have written your 7 E7 tv wU W J7 H7 F BZ E@ &?  צ(procedure, have bound it in as describedצ$by the document, rebooted the systemw U@w@ > 6 & p f7 ` N H~w : ?2  "U@ $צ$and made sure the editor is working צ%properly, then you should remove this&message. T wE7 w'?~ *04<r~ " & 2 > F J T X  " . 0 6 his is done by entering the"filer and removing SYSTEM.STARTUP. GOOD LUCK!V x   J b T  & Z l z> 8@FLdjz0 J P B$*06<B &EՀ~  7F   ҂ ~ E e ` E   @ `& Ο @ e E`E``B~bA EwZwXDwN   '((@`@`(  G7N 7 " \& \7`H 7F 6W wwF N B (+m ]   P~P~eeNPP  W  ~~eee 6 E E7` ~& EEf Hd`n < % ``!~ e C~C~ % C~C~c,eί"%@  D~ " ~ E D~ D C~ %  D~  ~& AA~E e @`& EeAp6% "1, 1,1,^  % ^A %^A&~AA~E e @`&AA~E e @`  `` B~ @L&Daef ¥_09E AZ   C  f ee| $ A@@A  ~ J@ P ``f~ ``A~ c ҇e  ``&& `  $ $ $ @A eeee >eJ !$'(****AND   E e @a&&6E e @a&E e @a 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELSE END EXTERNAL5 \vl@@`@`$fH@7 `e B~  B~ _FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD 7@` dd&`f&d&b&  m e> ɋ 'NOT &OF OR (PACKED +PROCEDURPROGRAM !RECORD -REPEAT SET *SEGMENT !SEPA wN EC~ B~U f &7 J$  eN >@ <VE LU@ e  rfwBC % e 7d>\ Aɋ BJ@ Bm8~@ B 7`2~BE B @ w`& B~7 |& & E N\E m*~@ Bm~      I& B~ & > UB~  Ձ@  a a!~F@  B~ ~E?f& 7z  AFZeA NWFl5`\_e w5 5@ \ɋE 5\\\&  J >>67 8E,7 (_7  E7 E7 lU@ %e     B  BB`   & $   @ B  B`  &&   v |N v  6 6  hv  `   @     <t,*v    (%.% D %e% e @ D   mm@ 0     A wU  &G5U $ j d V=U5 @7 "f&fxC v %\w @    0  @  @ w   & Dr)&&\   W 5&5  5 E L5 - \ VwUL% eC  5@5@7 T|n!H"!!$Z!d!d!d!$$$$x!V$!$!$!!f&\  \& % C ``` e  P̵ >@55EM NU] > 5U5 \\r1@\[?\ ew " ?U?*@ڪAD C %    5@5 w``  @5 4E.7 *w_Copyright(c)1980 C Chapin  @  f&\   B -  e \&f  & N & . )   LN wU  E@ e ]& 7 7 7ߐ2 7 v     C 6  %%    w 6 6 %   Dv   RATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE WITH  | t ~"w d    X N wK w: 7 ,* $? U@ _E A#& e@ & f& f& f7 H"( ff w   &@& ( saveת(Wildcard not allowedת(צ"Bad form (Wild Non-Wild) card(Ill file/vol nameת(}Ill change (Vol <to> file) nameת(UBad dest for files foundת(4,"iEbUġ#(צ 0e%6  6  E v v ·ͅ%\ @       D f C_  fW & @&&&&7 #$%#V$#H"|#$H"H"##$$e\\;@\ \N @   =@f&5 FILEHAND ysE[\pCf&f&\% a @w   6 6 &  f 6A  v   6N\&f f & G   v  76   p  d deA @ A @ %  A @ 6v %\%    w    `@ `  ` `  \\ N A f C %C B    \ w  D& &&@7 &D& Gצצkת{צcתת(WצSתԦת(KצOת  && 6  A7 ^H"X&!|b&X&!l&|r&X&X&$&$$$$$J& e\ \S\ e& n`Äצ(ڹצParity (CRC) error(Bad unit numberת(Bad I/O operationת( Timeout error@7 &.&e\&f& \:יc&>X4%]@& & & & & D&&D&& @%ת(Vol went off-lineת(File lost in dirת(|צ Bad file name(fצNo room on vol(ONo such vol on-lineת(7 rH" '  IA e e@ e& & & & & D&&e #@  3File not foundת( t`K1ٹVol already on-lineת(Text file lostת(צCode file lost(@6 7 H"'6 6 #?%-0 @ ׳f&& @׳@f&7 $|2(|H"' File foundת(צBlkd vol( Unblkd volת(צ File name(צFile/(unblkd vol)(צFile/(blkd vol)(צf&f&7 l$<($$$$$X(~%.(   \x(f& \ e\>:L]L?ƪ@ \fEFile/vol(Vol nameת(צOutput file full(Workfile is savedת(No directory on volת(No workfile to  N۪ڪƁK""áN׷9& צ ? "'ز=g(=g=&=g&Pɡۡצ ...too long <ٹFצ file n  ڪ٪ت&:&Pɡ(š ame < scan string #צ vol name  M8!ۡ1á    - char. max >---> 4ثضÍצ$*á-:á?: Illegal formatT<=ڲ= ݪצc&.צ what fileצ:á ;&Pġ - عEXå[ׯGC81(o* what vol ?  , gg#š=jgjPg?=ɍ : MJLN0A$6Uۡ &Pɡ צ, áצ áצ g=#g=ɍ=*á =*jjjצ:j($hh=ɡX="#š=P="=expected1(& Ş"˶ I/O error # 4!צ Filer error # ءfܪ(G[!nء CGGá+á &"ˡ~[צ[\&),áY 6( ˡ  .  sآWצ:آ(Yצc&" ȡ3پ!}ȄپaپzȄ پaAצI T  ܪ۪ڪ- آצ ? ) ,áYø۪   ˡ[ ġR&    צ ? (Y/N) - -F&צ ?   0ު(áܲ~Í %&ܥKO &&ȡu ''k' ɡ& Invalid #aP  ˄8&Destroy Gצ: ?  ȡKk'k-'' ܡšڡKNJ [ áF([*****]/(ġ 0 2` ٪ # ת á  Y˄ &"&& & ܡ&'&k'{[1 0 ء,ˡ   ߓ`&צPut  : in unit  { c󓍄E''S'צ:'{!'0'c?'(&K&not proccessedء ߓ ٨š5Kˡ*   ġ" ء " á á3!:W~,gڲ= ggۓ$=? *[")ǐ ),, d,,[,["𥀈{á򥀿D#٪ؓצ *SYSTEM.WRK.,C:[.á" G"+!+~G?KÄ?G;K;GK,,, $[.GC .צE&Save as G,:, ׯ>צRemoveǀ RemoveE+G:. ? 瓡צSave asצ[š C?/צTEXT$CODE$饀ޤ removed%á % ń,&Update directory ? צ".[G&TEXT&  #hKצ*..CODEOld code removed, Ɓ3"ݣ ɡݣ  ڕš"ق Text file saved  & 0צCODE  #צCode file saved62"o.ܡC׷C#ÄÄ~Íj%á*צPut in G:'צInsert destination צצ not named2 Workfile is :.񄓡 (not saved) No workfiledisk % š " ݢÄv%.ת&תת(&Ɓ.񄓡9&צThrow away current workfile ? ݢÄ ۡ"ˡ ݢڶ /ݢ0/0 /0 ءצ*SYSTEM.WRK.TEXTצ*SYSTEM.WRK.CODEצ*SYSTEM.LST.TEXT**.*צ.BACK*צ"=h"h=h"h"=P=gg=á?gg=ɡ, 󍓡 =g/0 0 òCń /C"ݢݢ///צ://td צTPܓÄ)jjSjצ:jˡjj(jAj(ܓfOGK׷ȄransferTo whereׯ󓄡=H3Transferצblocks# of blocks to transfer צTransferff@Զ  rުݪ"צPWkKGšׯɄ  צ. Ɓ-צMakeǐh"))** **S{c\ڥs[KG2G:[ Remove oldRƁ-צChang"&G:[ madeצT! ߪ Ɓ8 55 *SYSTEM.WeChange to what׷{צSW,,W,צ:,(,,(,{A,(*צChangeRK. 5 5 4454=5  d66.6.6 65ݪ   p  .&ؓń=.צ.TEXT.צ.CODE ..Ȳ.׷:.TEXTצText ײ ƃƅ0ʅ/ƅ0. ڍʅ- /ƃʅ. ƃ/ƃ  ƃ files;ƃצ, ƃʅ( ƃ blocks usedƃ, ƃʅ* ƃ unusedƃצ, ƃʅ+ ƃצ in largest&+- ȡ%ܾz ܾ0ŶȄ: \,%Date "١ ƃƃ"ƃ ,  N- Vols on-line: ȡ &Gset: <1..31>--<00..99>Cˡ_צ Today is C -C- ȡR~צ; צ #  :צRoot vol is - C  New date ?  ,Cػ+škGGȡ"GؾAĥGؾZȄ?:צPrefix is - ;: 0 צ Zero dir ofצH  GإGؾAa ȡ$GCػ+c,C ػ?צ:@ÄצDuplicate dir ?   Are thereצblks on the diskצ# of blocks on the disk צNew vol name ?  Cצ The date is C -C-C 6 * 饀:˥׷!צ:DGצ : correct ? ,%ö,ÍP$&,􍓡~%K:, %,,,|.G CK"צ: zeroed p1šצFile(s) endangered:Mȡڶ+šڸ+*ڂ*ŶB < UNUSED >     .p/ƃƅ'l\ؤ áצ Directoryڢڢ  v 2Dir listing ofצ׷١糖 צ#1:(ƃ"١̅.̅-̅,̅+̅*̅) ̅(ˡZ ȡ<ڤ š+ؓښڤ ȡ3ؓ R j3צBad block scan ofצ Ä . %̅,ړצListƅ-~$ʅ.áWriting.ʅ.̅.ʅ- ̅/צHScan forצblocksScan for how many blocks ܕšۏ"ˡ`ۂȡQRemove  ء&צWorkfile cleared&Tf ' ݪܪ  : .  ǀʅ- ʅ//ʅ/ʅ/̅)ʅ(ʅ)̅(ƃʅ/ƃצʅ/ƃʅ) ƃʅ/  ƃ-ƃƅ0ʅ/ á@ .  ڲ צ& * )'Getצǐ&G.[0ƃ-ƃʅ/   ءQƃʅ/ ƃʅ/  ƃƃƅ0ʅ/ƅ0ƃfile3ƃʅ/   : crunched#צPlease re-boot{ X6تPFP') x"ˡ93צBlock  צ is badۂġ צ bad blocks2 R88תVצOFiler: G(et, S(ave, W(hat, N(ew, L(dir, R(em, C(hng, T(rans, D(ate, Q(uit [C.4]8+צ 4צExamine blocks onצH&Block-range ? S  SRR  RRˡR&Filer: G, S, N, L, R, C, T, D, Q [C.4]8?áVOFiler: B(ad-blks, E(xt-dir, K(rnch, M(ake, P(refix, V(ols, X(amine, Z(ero [C. ġ RSSRō5%SVR̂dVʂdȡ V3VVš#2 Fix them ? Ǡ  4]8+&Filer: W, B, E, K, M, P, V, X, Z [C.4]8ڡ$&B% ȡ~٤ܦ׷u ȡhܲ~ؤ T USVR̂dVʂdȡצBlock V ƁdVƁdV"á dV"Ɓdd  may be okVWarning units   &  צ have the same name--('z is badV3ˡYV šOUVˡ9TTTM šTVT"צPrefix titles byl;G& Prefix is ;:`%\!X0T4P1L5H6VVUVVá52Mark bad blocks ?š$צ (files will be removed !)צ (Y/N) D*@:BZ2" (@,(NXF0N>w\ ƁG&צSYSTEM.YbcCZ BAD.xxxxx.BADתV̂dVʂdȡV̂eʂeWʂeXT̂fTʂfġ1Z TʂeoT0WRK.TEXT צSYSTEM.WRK.CODE &PĶ (Dɞ(ń?Íצ0???JanFeʂeoTTT TWT ɡTTWT#VV צBad blocks markedH`]t5ebMarAprMayJunJulAugSepOctNovDec?????????0צ Bad CodeTextInfoDataGrafFoto ~% ۢˡMoving ۢۢצ SYSTEM.PASCAL G?   š "0 & L (*&brB\( "&`'"#))'D+*,H--*..\//x0001B1Z1h55p8L5H6 " " ġ  7d8>`  PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD צCrunch@צFrom end of disk, blockצStarting at block # 3 % forward ת   ȡ'  š 7  צback  ġ ɡ7 G  š  P&:+:azȄaA:) Type צ to continue) & ,Í ˫hp(Pצצ  צ0H" ġ  *@#ٕš22ȡ5233 ȡ 23aĩ3zȄ 23aA22š*á ?צ:22ȡá;2 ګ۫ š۫ ګ,0   ȡQɫ  ȡ 0  0ȡá!2ȡ5252š[ץ22š2222ȡ2š5252á? ȡ  ġ  á ġMáš6 삫뻥`ɡ`&š`&ɡ`%š`%`$```$(`!á  4w4]ץ11á4\1šV42233z 3042221é42é1Ä2*á44 `! 邫3š.``!邫 肫צS# 4ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ צ, P#  צ, I# آ   ,.FOTO8 <!~áë  Äá*6!F *STK OFLOW*תPFF+ ˡ 6!:9 "8?á ÄȄĄMȄtiȡF ōɍ ō ȍ  dč  <צ Exec err #   á, ,(+, ,áb"쓡ë 쓡ת!!9 D*~ Ío00ń0ˡ o d #( /Íáɡ 럚肚X 퓄 Ä퓡w š   ɍL  "ˡ. ū   áš  h ! !ˡ   d쓡  21šá. Ä & ! !  Ä  1 Ą ɡ 낫š ꓡ2š땫ĚL  !š Í 7ÄU ǐɄ:6ń~6Ú š a "á61 ɚ6! á ~횩 ˄˥ń á  l šš áš    uš  gá /Ä+  ɡ"á šš!邚邫镫ë퓡S  ! "ˡ! "ˡ  áá0á +-Í-ëz8FNo debugger in systemתP8F6  RáEáꥂNV 0á$-á z kO Wáצ)Name of output file ( to return) -->ƂPƂáƂ̂.ʂ.ȡƂƂ۾  ȡ*ńȄ4šá.TEXTƂƂƂȍƂƂ.˄%Ƃ̂.Ƃ.ƂPƂ..TEXTUƂ.PƂƂ.á ƂƂtV,tRתPńȄ ,ń.áš蕿@#Bj| #fn^:R T>&`L " > d j p> IšQȡ2 š:X fE6!~?8FצUnknown run-time error(צValue range error(צNo proc in seg-table(Exit from uncalled procת(StackצPut in :P?FP'Ǡá*EEE   !#E$ á overflowת(צInteger overflow(Divide by zeroת(צNIL pointer reference(צProgram interrupted by user("ˡ"& E ##&Eá +6+6ˡ6á  צSystem IO error(צ unknown cause( parity (CRC)ת(צillegal unit #(illegal IO requestת(צdata-Z4" V(n|l> J.*L  .Tf0 zL d2  !#com timeout(vol went off-lineת(file lost in dirת(צ bad file name(צno room on vol( vol not foundE$ á"ˡ"& E ##&Eá +6+6ˡת(file not foundת(צ dup dir entry(צfile already open(צ file not open(צbad input format(r8FNo user programתP8F0turn  RáEáꥂNing buffer overflowת(צdisk write protected(uillegal block #ת(]bad byte countת(Fצbad init record(.` Nȡš 뾿  .Wáצ)Name of output file ( to return) -->ƂPƂáƂ̂.ʂ.ȡƂƂ۾ dá0á-   Q l>š .TEXTƂƂƂȍƂƂ.˄%Ƃ̂.Ƃ.ƂPƂ..TEXTUƂ.PƂƂ.á ƂƂtV,t 쾿  .Tá " *#Bj| #fn^:R T>&`L " > d j p> I &}eN:%oYDצ IO error: (צUnimplemented instruction(צFloating point error(u<ƋD*SYSTEM.CHARSETת(ƋDʋI&"áǀʋUʋTʋKƆD ʋT  ̌fʌString overflowת(]Programmed HALTת(EProgrammed break-pointת(&eP9$oYCfȡƆD   ̌fʌfȡƈD  ل7@ǀ ?̌fʌfȡƊDؤؤ :*צ dup dir entry(צfile already open(צ file not open(צbad input format(rP  ƋDR677::9ing buffer overflowת(צdisk write protected(uillegal block #ת(]bad byte countת(Fצbad init record(.988:9  6 ۪1٦׷)&}eN:%oYDצ IO error: (צUnimplemented instruction(צFloating point error(uצ: ܢܢH d    0&צצ.צ??String overflowת(]Programmed HALTת(EProgrammed break-pointת(&eP9$oYC? צ*SYSTEM.WRK.TEXT& *SYSTEM.WRK.CODEײ , 7 ٢ š٢ ٢٢ 4*ƁV`tDoo odoo'zr:9CONSOLE:ת(:9SYSTERM:ת(8:98́ʁʁʁצ*SYSTEM.MISCINFOP*"áO* ?́*́ʁʁʁʁʁʁ 6ëצ???JanתצFebMarתצAprMayתצJunJʁ%ʁ% t*&*n تٞ&"á ~٤  :SYSTEM.ASSMBLERת :SYSTEM.COMulתצAug Sepת צOct Novת צDec ???תצ??????ת6! PILERת :SYSTEM.EDITORת :SYSTEM.FILERת צ:SYSTEM.LINKERƁ&̨<́b ́cʁcȡ~ؤ%7詄% š t Welcome ?צ, tódʁdתʁd0ʁdʁd؞&"á*ʁd ضá0?ʁdצ*SYSTEM.STARTUP(߫7U.C.S.D. Pascal System II.0Current date is C -C-%́eʁ%ʁeȡlضʁ%ʁbQ́fƁfʁdƁfƁ&ʁ% Ɓf(ߡʁ% ʁbʁ%́bʁ%́%C %System re-initialized(, 06" 0 MayתצJunJ;??ٟá'C CONSOLEצSYSTERMGRAPHICצPRINTERREMINצREMOUTexulתצAug Sepת צOct Novת צDec ???תצ??????ת6!  ,::(,$,]ˡ$-::(:צ.CODE[*]0:--"ˡ צ Can't ope Linking...ˡ&צ Restarting...צ U not allowedn -   áث 7_a 7& š+  ~ \6F& EDITOR š%צSYSTEM.WRK.CODEsSYSTEM.WRK.CODE׷Fš5 INITIALIOUT COPYFILEENVIRONMPUTSYNTAEDITCOREުP11ˡCۡ>1áIllegal file nameצNo file ́3ˡ צ.CODE.. Execute what file? not code3"ˡצ Bad block #02́42ʁ4ȡCƀ2ƀ2ō$ƀ ƀ  šA.á צ.CODEm% 3222́42ʁ4ȡuƀ2ˡaݡ9צ Linking...ܡ #צצ:) Running...ء ء:9Must L(ink firstg222́42ʁ4ȡJ22č7ʁ302́532́6ʁ5ʁ5ʁ6ʁ5ʁ6228:9á'צ*SYSTEM.STARTUP %áá  e f@^ڤ áڤ !~ e ת*U  6   FצKCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(ebug,? [II.0]P')%?á@F!! !:!!ڤ  ڤ  áڤ R צ*Command: U(ser restart, I(nitialize, H(altP')%$z쓡áצ Assemblingצ Compiling...á999':::::&: Linking...ˡ&צ Restarting...צ U not allowed(yáצAssembleצCompile what text? (ׯ::(:.TEXT-:( RRJHá68AX0qz((* "D&(,. Dv\x"ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&:(76   FצKCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(ebug,? [II.0]P')%?á@F-*SYSTEM.WRK.CODE[*]תצTo what codefile? (צ,áuצ$,,ˡ-צ*Command: U(ser restart, I(nitialize, H(altP')%$z쓡  "á <&ȡ<-á á.á é Äە߂ũȍ0 á   ٪P&áצERROR: á<& Please press to continue.۩ߞ á<á / é쾩Í ߂  á߂߂܂܂ áR۾8۾áݩ۾ ۾ á ܕR`  d>h ٪Pצ what marker? -P,-Vۥ    ڞڂ ˡ  !Uقč,Vȡ-,-, ,,-- -- C ƂNƃz   šw^  á  ܂áũؓɍš  ٚáء  á á  á ƂN-R; v< ~*^LLbP& F > Z   ~  e   ݂ɡ  ݂ەݕ ; Z ,  B!۩ߞ á<á / é쾩Í ߂  á߂߂܂܂-š 0 ۍۡ צRepeatfactor > 10,000?COPYRIGHT (C) 1979, THE REGENTS OF THE UNIVERSITY OF CALIFORNIA\ á  8ڕ škvKThere is no room to copy the deletionɡ š    H FIؾ. Do you wish to delete anyway? (y/n)תP Yá*KڕJJI IJ2IھPھNéN˄  ˥P۾ܥOڂ  ٕ ݞ݂ ˡ !U܂Zhڡ?١ ( P!کN˄9!'۹  vڤVڳNĩ1ۥ č%`wȡ'ڤġڤڤ؂  * 񿥆P&  IĩIɄ I؂ IHZګ ء8ȩ쾩 쾩 vPv v&áٕٕ:áܕܩܕ   á    L(ft R(ght C(ntr to leaveתP צ+ Edit: A, C, D, F, I, J, R, Q, X, Z [E.6f]P<צ>Editȍ .˄# ̂5Ƃ5 PƂ5צ.TEXTUƂ5P .á N vNot present. File? תP"á :צReadingNvˡצ Reading file.N5øb  > K%̂5ʂ5ʂ5ʂ5ʂ5 ʂ5PHGv.5  ĸ5 á "ˡצ Disk error:v CC^v̂5ʂ5ȡܤܚAẐ5ʂ5ȡܤAaẑ5Buffer overflow.8 4آFGأ%Fأ&G G آ-NIآHآ$5ȡܤA09̂5ʂ5ȡܤA    Ǫ צP8VteinTZ|H  Iآ Hآ$Iآ Hآ$Iآ#Hآ$Iآ#Hآ$Iآ!Hآȍ .˄# ̂5Ƃ5 PƂ5צ.TEXTUƂ5P .á N vNot present. File? תP"á $I HIآ"Hآ$Iآ!Hآ$Pأ.Oآ/ POPآ)  > K%̂5ʂ5ʂ5ʂ5ʂ5 ʂ5PHGvOآ/ Pآ-Oآ/ Pآ,Oآ/ Pآ,Oآ/ Pآ'Oآ/Pآ:v CC^v̂5ʂ5ȡܤܚAẐ5ʂ5ȡܤAaẑ5'Oآ/Pآ(Oآ/P آ(O آ/أ.áPáPJO>Quit:תP# U(pdate the workfile and leaveצ E(xit without updatingPپخ%v 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ȡ )  (( ń(Ą?Í .6g]תPrצH Insert: Text { a char, a line} [ accepts, escapes]PIצA Delete: < > {Edit:KN̂5Ƃ5Ƃ5:Ƃ5&Ƃ5tx> to delete, to abort}PK Adjust: L(just R(just C(enter { to leave}תP ɡ"ˡWorkfile lost.vFNo workfile is present. File? ( for no file to exit ) תPvr2 Insrt: {,} [ accepts, aborts]תPI4 Delete: { deletes, aborts}תP5 Adjst::  P á v ,á ̂5ʂ5ȡ   .TEXT    áƂ̂.ʂ.ȡƂƂ۾ .TEXTƂƂƂȍƂƂ.˄%Ƃ̂.Ƃ.ƂPƂ..TEXTUƂ. ۲ ۾ ..ȡ۲۾ צ.TEXT˲ȍ.˄#..PPƂƂ.á ƂƂƂצ*SYSTEM.WRK.TEXTPצWritingNƂCNvˡ..צ.TEXTU.P.áȡLٕڂġ)Buffer overflow.ĩɡW  ۂۂۀ Nˡۂ.ɡ3 ꕞN  ٩ڞڂZ= ˸ .   Vˡ.Nצ Your file is   bytes long.UáV?&צSYSTEM.WRK.TEĶɄ , ڨ߶ߤ ߤ Marker not there. ٲ0XTN*SYSTEM.WRK.CODENתeצ4Do you want to E(xit from or R(eturn to the editor? ز+߾á f v   ׷   ׷ U=ˡ   EګצWriting out the file K+IT Nvˡ. ׷     ׷     Ƃ=ƃiצ& Copy: From what file[marker,marker]? PɡW  ۂۂۀ Nˡۂ.ɡ3 ꕞN ƂPƂá Ƃ=Ƃ# Copy: File not present. Filename? תP"áצ CopyP  Ⓞ ˡ.Nצ Your file is   bytes long.UáV?&צSYSTEM.WRK.TEڕɄ čⓄ% Ʉ "ˡ Disk Error.ĩƂ=XTN*SYSTEM.WRK.CODENתeצ4Do you want to E(xit from or R(eturn to the editor? Ƃ=fV^vdN  ׷   ׷ U=ˡ צImproper marker specification.  2ꂶ6צMarker exceed ׷     ׷     Ƃ=ƃiצ& Copy: From what file[marker,marker]? Ps file bounds.ĩ :ꕕ,צ[á$  ƂPƂá Ƃ=Ƃ# Copy: File not present. Filename? תP"áצ CopyP  Ⓞ ר  צ]ɍٲˍ.ڕ.P..P,áؕڕɄ čⓄ% Ʉ "ˡ Disk Error.ĩƂ=" RáEáꥂNWáצ)Name of output file ( to return) -->ƂPƂ     ە ..ȡ۲۾ ..ȡ wi[M=/AT(k) geQ"c&eginning E(nd M(arker תP  Bá)EáMá ةˡة$ ; E &(38 xؤá i ĩ צInappropriate environmentKR  w w  ȡ.ءצTrueצFalse0 ڳ@צ Date Created:  - -  Last Used:  -@צT or FȡĹ TáTrue צFalse Z -   Jצ Not option d  # ڳɡ ڂ0 wi[M=/AT(k) geQ"c&   צ. Environment: {options} or to leaveP  A(uto indenvSyntax Error #תP צ . Type @Ƃ ƃ7Ƃ צ*SYSTEM.SYNTAX"ˡ hȡ9t צ F(illing  L(eft margin   R(ight margin   ~ȡ- Ǘȡ ǹȡ .ȡ  Ƃ ˡ á d d   0 P(ara margin   C(ommand ch  T(oken def  0 00 :  ؕ؞ق ق   پÍ   پÄG vؕvDؕצ  צ bytes used,   available.HG Patterns: vצ . Type  á   Ƃ #%deQ"c&G2 = 'ũEǀ'H.צ , = 'Fǀ'wá> < A&! Copy: B(uffer F(rom file תP  DB Markers: wȡ8 xؤá K멂J IũIĄצ Invalid copy.멂JġNo roommLꩂJIĩIɄIJꩂצ Date Created:  - -  Last Used:  -J IꩂJ멂JꩂJ ĩ Fá * צJump to   -   Jצ Not option d \ةwxؤ xؤ  Not there.ؤ ĩ.\ $ JUMP: B( ɡ"צNo room to insert. j˄' ǀ vá(ȡ  á Ą ꂫꂶÄ  Í  KÄ˄Ąۄy á  háOȡ% ˡܡ IJڶȡ6No insertion to back over.   oڶġd5Please finish up the    á áث8   Ʉinsertion   ڶ š Buffer Overflow!!!! á    ڂ٥ č9h  ^ġ) > ! á ^áš (š  ) <öÍ   ˄w áwȡ/ ) x٤vצ$Marker ovflw. Which one to replace?P Jéé Íɡ f ġ앞$ĩp0wSet  ׷ Gwȡx٤ xؤؤةw앞 ^ á "4áww@n *  Set: E(nvironment M(arker תP  EáMá ةˡة ! á.!~ō?    G~ ĩo < eXchange: TEXT { a char} [ escapes; accepts]תP          á   ǀd ؂ȡ ؂ġ    á8š1ؾ\ áO ˄:؂š!  ؂  P  ɡ          š   ˡ? ة꾿á٫؞ǀ 8ꕀPšrZ-    ٕةġ-á- ؕ  ؕ ٩L WARNING! You are about to zap more than 80 chars, do you wish to zap? (y/n)תP  Yˡ   ؞؞ ٫ګ    U ؂ \   EL š ꕞ ĩꕕ  rP  ˡPšǀ3á   ø ɡzɄ2  ɡáĸ š# Í 4` x š ɡ,ń    $%&؂ɡ šٮ ݮ+,    IP Ä؂ jš앞0dšצBuffer overflow' 앞ˡ앫؂  vá   w"#<á"# |!x$sá< >  (  P  Nġ Integer Ovflw) <á"#]_nlDtٕ ,˄ Má M vá    á< >   ȩMd$ Tá(J átÄ S ٕ܄Lɡ ꕞ ٩ٕٕ   ܹ-(1ڕ($ڕ( 4-"á(wá (eDŽP ثLK IٕJ٫ ö ݓ -á- á'*  á á (- áڕ(ڕ( ˡá۫ k 'šA>á  ö D. ./ Lá .Vá . Tá#áR)  M;%*&&<á%&  . VTÍLÍ/SsÍV^0/L(Invalid delimiter.  ń     ɡT "$"#<á"# !$šToo many$ġצInteger Oveb   Ȅ5  ɡášĶ  rflow<) <á"#˶˄ >á#"+ $   Í      !ń9  á   á8á  á  Cá1á  á   ɡit"  Ʉ: á    |  *ȡGھ á-ń ۂšĶ   #<áTń1 á  ꂫġ ھO Z+ȡˡˡȡ ȡ  63ǀ Ŷٶq ġ   ض á 9 ؂    á<á  ٓ(MńצPattern not in the fileצNo old pattern.  " d   2  .|v 4ǀ Ŷڶq š  P  .Má  Má   d~ á 9ض     á   2  .|v 5EE Ŷ zxt p lhd ĩD@08lb^\ZXVVVTRPN024680>@b Eá X7Ŷ EɄ ŶŶ; ˡ; z\2n  t  ^&@H t tZz0`b0 öEɄ E Ŷ EɄ Eá ? !!h"#$#,%<%l&hv;צPattern not in the fileצNo old pattern.  " d8     á78>á54v b á78   3 P  .Má  Má   d~  Ŷ š 2 á}Aáojũ˄ȍzxt p lhd ĩD@08lb^\ZXVVVTRPN024680>@b ȥ  Ä: N6.۪PڪP.P [M /&SYSTEMLELINKER  צ]: ء% áL(itT(okz9z  Replaceצ' aborts,  'R' replaces, ' ' doesn't 9 á Rr˄Fš[Fš9צBuffer full. Aborting Replace FꕞFɡFꕞFFˡ F멂FꩂF.á*۾ ń  čġ.צYour pattern is too long @:̀̀  á Findצ =>9( Replaceצ V(fy =>9. 1۶ɩۂ۾Ä۶d% 02  á./0ʀ ťE1G á./̀0ʀ F1HéG éHGl  ȩMل*6 ١ނ߫ á: 9ȡ Linker [II.0 a2]E˫[':'צ in workspǠōɍdōצ bad proc/func$  vY[]_* Ŕ&ʁ&́'ʁ'ʁ'تP%Type (continue), (terminate)++á+ á VTrace'*SYSTEM.LIBRARYצ Host file? 'ׯ?':'צ iٚi.ھZڿ Zn workspace'š  ȡXצ Lib file? 'צ***SYSTEM.LIBRARYǀ"ȡ6ݢܢ`ܢ`ښ>  Rצ Map name? 'צ,.á .TEXTץ'۫۟á! ٢٢ٟáٚUۢ٢  !ۢ٢   ٚ۟áڟˡܡڢٚڢٚT x H ȡۢ`Ä ڢڢڢۢ`qˡצ badݟˡ2ݢܱ !ݢܵ ˡ: H ܟˡBܢȡ&ޢ ۯ ޢ` host segˡצ dup host segګ Láڢ ڢګ3áۢ ڢ  yy}/Já á:צUnit  not foundl ȡ"ښ ȡ á  áצ weird hostFTO_| l - > [ ڂتP.(2.P."ˡ2צ in workspace.CODE۟ˡSȡ<ۢcá'ڢۚڢڢڢڢګٟˡ٢٫eyj P."ˡ&.!צNo file Pˡ !צOpening /s//./ٚ./  >`  ת' #Zë[ !ššˡsegtbl read errá>-2-2ȡ+/c-˫ZZ--Z/ -0,šá8 ١צ li read err ١آá11/22`-ˡצ bad byte sex02`-Ä02-2`-˄'2`n ٟˡhˡc٢ˡUáצno room in seginfo6  ٚۢۢۢ-ˍfunny code seg2-2-ɍ2-,ōצ bad diskinfo2`-1צ bad seg kind non-alpha name٢ōצ too many refsצ bad formatáōצ2 -  bad seg name,š----š0ÄצAll segs linked,á/[` bad privateá ˡٮǠōɍ Nōצ bad globdefō bad publicdefe٢٢ ٢٢٢ ٢Ǡ ٢أǠٶٸf؟ˡu!!!`أáW #ڢ욥    ˡ+  "؟ˡ`%" '" ٟˡٟˡáٸ ٢ؚ٢٢٢٢٢Ǡٶ ٸ ٸ T!!צ missing proc` ٢؟ˡ 8%"4o(ǐɡ no mem room ٟˡaáUá ؟ˡ%áá ٢ؚá ٢ iF xȡ  ܶˡ seg read errڕڟˡ0 ٟˡٚښ7B#۶ˡábá& ɡڕڕˡ4šٶەەڞ 6 $) "  ,צReading ʁ& ́%Z4Ɓ ́&ʁ&ȡƁ Ɓ >ڟá0ˡ"ڟˡˡá ڟáٟá ضؚؚo8l$ˡˡ bad litype fzá́%nšE   ۢZ ́&ʁ&ȡۢ#ݢˡݢ ݢˡݢ ݢݢ ˡݢݢ # áݢˡ á  ۟ˡá2á*Ȅ  צ bad host LCʁ% ܢ  ۡ,צProc  param mismatch #áݢˡá  ۡ,צFun ٢ áWsBJ؟ˡآōצ bad proc #ڶc  param mismatchO áݢݢ unit err$3Z:$V  ˶˄disagreeing p #Iٕȍ Nōצproc place err  N ZGlobal iצPublic VConst DProc 3צFunc "bQB 8)(ǐɡ sep seg 2 big ȡˡsep seg rea@1 undefined˄$ܚsX$ f"؟ˡ&&&آߣޟd err5Ǡō bad proc dict!   #ȡ ˡˡš ޢ? ɡ>>>>> Error # 6 l~ڟá Ɓ #Ɓ Ɓ צ assem hostƁ Ɓ  #̂MʂMȡ" ˥ ˄/~ؚ7؞áeá ؞á٢ؚ٢ؚآآ< bWW/2.WV2á/Z 2 ˡCode write erráh2#?SYSTEM.WRK.CODEת׷3ˡ'Ɓ צnext <W >),áZ ááP P &XXC f$3>A COMPDUMM  ڿڞڂ,$áˡ,Í +۹Iš)P PASCALCOCOMPINITDECLARATBODYPARTWRITELINUNITPART +ë0+ë+ë2+-Í+ë-(*á) %  ǖ X"ˡ.X(.TEXT-"ˡǓ%.Z-U*U +-Í&+ë))צ*SYSTEM.LST.TEXT("ë) -ë/򥂀 z+ë1s-ë#l+ë(e+-Í-ë11-2$(0 -CU&fc^ [^^^Uˍ^U^^ؚ^E/)ǐȄ Zá .Z Z Zڕxrmhc,ˡ áá)}Í+-*68Fu!^:,+,+ڕǴצ <<<<Line W , error  :/2( (continue), (terminat+ á +'á,'ˡ++%++á #R---+-+RZ e), E(dit EÍeÍ^ÍEeÍ ^U ǐÍ ^ /<W >  '09ō.á7.ˡ. 09ȄáEáL Ɓ #Ɓ Ɓ צ assem hostƁ Ɓ  #̂MʂMȡ" ˥ ˄/Sp Z$M/áUˡ$/á0Uˡ$$)U,+Z$/%+XU/Z 2 ˡCode write erráh2#?SYSTEM.WRK.CODEת׷3ˡ'Ɓ צnext ˡX%*U.-Z%$UˡǑá $áUU:&DK 0, Ɓ Ɓ Ɓ r2Ɓ^&2  $F.  n \:*W  \ X ZdšdZڞá% š   -á  +á09Ȅɡáȡ:  0 ń  ᚹ2ީ:&á ᚹi#ááإj$áá ; 0 #ثە$ġ  ȡ5áؚ 澂0إF0á5á.ީ ޢإ j   ޚ ášؚ0ە ȡ  0ġ 0ڕ$۟ڟÍáH Hˡ Ä ޓ%  HH ȡ 徂0 á $ $$ b3߫HÄ dݟܟ˄ބ2f JK/}*á*.á ݟÄܟÄÄÄ#`!%á á ,0I; =á '((')   =>)ؿ  ٿ 4áˡǒ )=á   {  "$&(*,.2468:<@,NPRTV6šۥٞقق؍+áˡǒٕálXZ\^`nplnprtvxz|~&%1 z [ġ%ؤáQ񂥀ؤ[NQQ.J ^؟ˡN٣`;٣ á/á á ǐ" .ٟˡإá؟؟"ġ>~ڟˡ(4٣ á-٣(uצ undefined\#!   D áڣb 3g3ChG4E(DFCBښá OO&J XIō~ %M >á á á  á á !ک9áˡ <  ڟˡá 9ÄM Mé Äܓ+MáM Mé ÄmܓMá á    y2y y%á:á9% ީ4 ޢMÄ% Ä  xMˡݣ 9.*IÄN+N[ޢ ǂإ (é`á  á  ˡgá áVީ;áá I \M!M MON Iá>D.  Má ۢ @ @INPUT רۢ7ۢۢ ۢ @ ? ?OUTPUT ۢ7ۢۢ ۢ ?  KEYBOARDʀʀ ʀ ٚ b ODD CHR MEMAVAILROUND ۢ7ۢۢ ۢ  ȡN ܢ8áFALSE TRUE ܢؚܢ ښܢ 8ٚ  SIN COS LOG ATAN  LN  EXP  NIL רۢ6ۢۢ ۢ  MAXINT ۢۢۢ   ZG G רآSQRT  MARK  RELEASE IORESULTUNITBUSYPWROFTENUNZ^FƂƃƂ0ƃ\ƂXƃƁƃ* Y ma ˡ)WW آF F آآآ آE E רآآآ آ آD D רآآV VYY *+N/W צ linesYšSצ, Y< آ آCC آآآآآآآ آ آ آآ آ BB רآآ secs, YW  lines/min/DSmallest available space = T  wordsآآآآآ آ آ آآ آ VREAD READLN WRITE  ̄ʄȡN̄̄ʄȡ3N̄̄ʄȡ̄ʄȡNWRITELN EOF EOLN PRED SUCC  ORD  SQ̄ʄȡNP̄ʄȡΟˡ Ω(̄ʄȡ R  ABS  NEW  UNITREADUNITWRITCONCAT LENGTH ƂƂ0ƂXƁ<s$` 0T @NDZ 8 T z ~ x\6 Y< INSERT DELETE COPY POS MOVELEFTMOVERIGH آآ;;آآ::dL آ99آآ88آآ66EXIT IDSEARCHTREESEARTIME FILLCHAROPENNEW OPENOLآآ77,آآ955,آآ94 4آPآآآآآآ9آPD REWRITE CLOSE  SEEK !RESET "GET #PUT $ INTEGER ۢۢ  REAL ۢ;ۢ  CHAR רۢ9ۢ  SCAN %BLOCKREA&BLOCKWRI'TRUNC (PAGE )SIZEOF *STBOOLEAN ۢ8ۢ  STRING רۢ4ۢ  TEXT ۢ7ۢ  INTERACTרۢ5R +GOTOXY +̀ʀȡ{(ٳ %`ٳڡ  ̀ʀʀʀڡ ʀ R ȡ  PASCAL Compiler [II.0.A.1]< 0>~؟آآآ(T  / ł ڢ ڢ  ˡ   ٶ˄/ڣ %ڣ áڢ ڣ ڣ Ȅ ڢ ڢ %>PNmmDz I~؟آآآ N>>آآPROGRAM آآآ ٢٢٢ á   ٢٢٢٢ 3 3 á!   áآ آ آ آ آآآ!á^ áN>ˡ >>   á (má  á   áU  ˡ8ȡ,; m   ء n      L M Mآ آآ>آآIآ\آ آLj z Z }*I /  ł á       ˡ o   R ȡ  PASCAL Compiler [II.0.A.1]< 0>~؟آآآ(T  ٢٢ ٢٢    ˫  á  á  á (  š u u uá ~ˡ  á2 ߚ  öń ˡ%      ł  á%    ˫ ITWAITUNITCLEAHALT SSȡܳ 0ܹ8 TTT9 TT   " " ˡߢ á  á  ád;T; TTTTTTۚTbZ8 TTT@;:5-& ǔ  á   ߢ ˡk ߩ4Äg  á4{ VP84$3ݡ  TTT T ݡTT؟ˡآTښTؚ ō P Pˡ ߩ4  á  váqáW ߩ:  á$Rd(&š##=AHZX)UWVȡ1Nڢڢ ڢڢ   á  á ǿ ߟˡkߢ  ǔ ޚ<Ϧ*SYSTEM.PASCALת(Ϧ*SYSTEM.LIBRARYת( -&Q[\RǂNJ+* P'!/ á   ߢ ˡk ߟˡ/á&ˡ ;áǏ š f ߚ "0, 21(.3%$ȡؤKW'  By8uyq) ٟ$; ڟ˶zbک;˄2 ġ%ɡ܂5|u]tmiexaM }*I / ɡ۸ ik3T@š  ڢ  ڢ ڢ ڢ  آ=آ =$ ˡ ˩   l   q q qu ́ [́Ɓ ʁoƁ ʁ́ʁƁʁ<ʁʁ' ʁ ʁ ʁ ʁ<[áʁ 'Uá+á$ ] ] ,á á    ߚ ' ʁ ʁ['ؓ ˫ ˡ  ؍ؓá  ʁʁƁ$ <0ce2 ޟˡ1ȡ$ީ;á m á Ǖ ޚq ˫  á   á  #áS~؟ٓˡ Ǧ ٓ۩ۢۢڢؚ       ˡ ál "ȡˡ9   ˫  á   ˡ  á ۥۢۢۢ )é Ä   ȡ ǎ   ߟá-á  ɡ ~  ł   آٚآ á%   é   ˡ ~ߚ á  *á  á   ߟˡ%Íߩ;Í s  ߩ;ár   á ݥݢݢ )é Ä   ڢۚ=ٟˡ)گ ٩=ˡآ=ߚߟˡ% š ǩ \.áW ǿ    á  á%   é  =ˡu ={ áM   ݥݢٚߚߟˡ ,(  ٟá138:+ Aٟ٥ ݢݢ I ݢ ݢ   ] ] ˫  á  -N٣ ë''٣ [N٣ /80"ˡ ǻ 0ˡ ǻ ]ٟˡ<ݢۚݢ ܂ á۟ˡáݢ~~ؚá%      Í kk    áá> 9"ڤ "ڤ ~/rڤbڤë'']PP ߚ       ˫  á   PPš Nۢۢ"ڤ ۢ ۢbڤۢ[Ǿ á $,Z+U)Uˡ ál ˡáá&     ޟˡ   68 Iˡǽ   ؓ*$<ؓ˄ $+<́ʁˡʁ ʁ́Ǽ á؟*/1-" h   آآ ái3 3 á)  إآ ء"ƁTURTLE ר́́Ɓ\Ɓ [( צ words]<W >  ! @á  ˡ = ߚá I   O MM M I \ء[&#!!  . ˫   áJ á<    ˡááy  ȡ 䏂   /@#.IéP Ä $ 1á  á' Ǻ ~   á  áá ( (  ߟˡ ˡ á( @ !  á IáNC $ !á ǹ ˡQ$  á+    آˡZޚˡ@á -á&ȡ  D+%ݍm   aTOA v$~  Zn RJ  ޚٟl ء@. Ǐ QP[ [  Ǐ  O MM M I \ء[&#!!  á X&á$ R~ ܟˡ?ܣáܣÄܣ Äܣáܣ Äܣ ÄޓǠ  /@#.IéP Ä $ 1á  á' Ǻ ~   á  áޓá     I [ $ [ $'ǀš'(&ˡǒ &&'('ک} ۢ ۢٚ۩Q؂''h&ˡ ǀ DءPš PPN[Ǖá [[á l۟ˡJá5áSړ Ǧ  ȡۢ ڡ " ^Ȅ "3ǔ ؀ ؀ ɡ  š á  š ܣ ˡܣ [ؓǏ   CI \ ܣ \IɡII :ȡ ǀ  (ǀ 3ámá šˡ ۚš$  ɡ. ~ޡ áޓܢۚo ޓܢۚáP á4ޡz  ġ  á ٳ0d@ h ٳ ǀ  FJ)ÍȄ )ܢݚݟˡ x ܢ   ޓ{ á  ܢ5é$'IˡǷ  $Ǹ ءá ؂ ؂ #Ȅ ؂ خ @MÍǀ   Gڳáق  [( צ words]<W >\*5á+ šخáخǀ  خj[ؤ[[[[Ǖš +2 ؤá "O é  ]=ˡu =OS ^   áw   @    $ܢ"é Bޡǡ ܢ"á á    @   ˡ ˡq ݟˡ < , 1 ˡ䀮šNj ˡ>'   ˡ ˡ} á/M2خ٣ɡ ٣ šث ٫+áMM: á 1 @$ńˡá  áˡˡ nj  áˡu á á :} á     t ^"ˡ ˡ} ás áؤ Oؤ8`ǀ Ȅ ?á(ۢ䚩á 䥁ǘ ^ " ǐ  !   ˡń  WˡO $ۢ9á ۢښ   8ˡLJ !خ  ٢`m Í; ááǏ ˡńǍ  i i 1-.+ۢۢ`mɡ'ġ 9!٫ خ 4Pˡáb'ڢȡ;Gv dá}   Eܮ29Ä Há=ءǚ á/9á'Rá$خڢ+;˄6á;á33S,á)6IݢݢR 4  ˡ} 4  x"ˡ' áˡ á)##:<> 4!O˄˄0  ˡS>á+t á " ٟáǞ eˡǢ WˡQ ة;Íǟ < -؟ˡ á  8I6ˡǐ #;=? E.dˡfN &ǐ E&á%2t ޮ < á  á á Iˡ"g . VCtˡuN &ǐ E&á%2I   á áá`  !á > ؟ˡ4أ á'أ أ  أ ˡ"g . VCˡˡء!%" أ } } nˡ} á  á  " ˡ} áR   ˡ Ä á)  6I ' á" ˡ} á   ˡ}  á ~á Iá)6    < ˡǖ g    8خ2خ"ɡٮM2خ˫  ɡ  šث  4 ٚ  :ˡńi; i iáݟˡˡ NJ  t á +ˡ/îá2خá   ˡ ˡ} á !   ˄ٮ%"ág ˡ[ M K; <:  )9 M     ˡ ˡ} Má   Má  M} -˫  áٮ%M- &?ö;}R ˡ(á!9á  á  á   ˡ ˡ} á  " á ˄ۮ%&؟ˡ#š á$ á% &ˡ ˡ   ˡ ˡ}  "ˡ ˡ} ˡ!áM )  ÍMá ١M ة;á5١á" " ˡ ˡ} rة:  ١]ة9á ١MJ-á ;ˡ;áá} U'NweD+$&*,._ 6 ١M5 )ˡ ݕ١ܮܮM} -˫  áۮ%M-Y4>@DFHJLޡá  (s ;;Í؍á ;á ٩;0)Í!áeNORMAL ILOCK ׯ 2PURGE CRUNCH ׯ    M- 'ޣ á ޣ ˡǐ áٟá~  "ٟ˄٣ڟˍ٣áȡw9Ä á \ "ˡˡ}  áǏ Xá   ˡ} } FM?M8ˡ 9ˡǏáá :;é1 %ک;  ; 4D Ä ,'S  M (_83 6-!ˡ ˡ} á  )á á á}  }ˡ ݕˡǎ ګ1á&ág ڟˡ ˡǎ ǚ  ǎ ٟˡˡá    ˡ 9ˡ} á  "á    "ˡٟˡ~ ޣ áޣá V"7ޣ ޣ ÄOޣ ޣ á Mޣ ޣ Ǖ ޣMޣ ޣ Fޣ ˡ}  ˡǏ á  á  " ˡ} á   ˡ} ˡ Mޣ ޣ 4ޣ áBޣ %ޣ IáNޣ ޣ áOޣ .ޣ  ޣ á(ޣ ޣ ˄ޣ (HSx%áM-#á}  ˡ.$ع0sokgc_(أ áأ á t ݳ͐o" ݳ}ݹ&'ޡ2 ˡˡ [!W"S#O$KG +@7575 799;9E"$&EC,GIGEG8SIGi٣á٣ á%٣ } 9ÄǏ @%áM M 8ˡáás ˡ ġ} ˡá 2I٣ ٣ ٣ á)٣  6I٣ ٣ J%@ö=} ˡ(á!9á " á ;á} ˡá;á}  >á  á"  ˫  á  ߡ,RRR RRRj0b ˡ ō  á 9 ˡ ȡ ٟ˄á;  ;: á "$&(*,.02468:<>@BDFtdPRTVXZ\^`M e -&:ˡ ǁ :ޡK9Ä47ˡ.  9˄Sˡǁ ٫٫ e1 $d--'á  - ܟ˄)*Ä?ܩ;;Äh ]WGޡ*٣(('( ǒ  MoQM`A#ǁ 3 /Ä   dž )ܩ;;Ä dž v*ÄÄ  dž   02 #áP~ڤˡ~ڤ؟ٓá 9 ٓǧ   7R FÄ dž -ܩ88Ä dž  'rD0 $R, (é`  n1/a˫   á  8: B2á8á ܓ ٮ á,. á";áá dž (á  , ܟ˄) 4  /ܡ ۡګ  á-ܓ  9خ ٮ /ܡ ۓګ خܓٮ 3 *Ä?ܩ;;Ä/Ä  dž )*Ä?ܩ;;Ä/Ä 9߮ ٟˡ٩;Í ǐ  á    ٟˡ^ Oܟˡ ȡáǜ    dž (ܩ88Ä  dž  |& +ˡ ە ܚޚ۟áښǓ ˫  á  /aڟˡ9 ˫   Í߮ :á ة:6*e: e e^  ܣáܮ&ܣáˡǁ ؚ,.+)á 9Íˡ ȡ  S + 9  ܮˡá ; á9 4 ˡ ȡ ܟ˄á+á   ǁ  ǂ ˡ )* .   :     á   -8Ä퓫 ˡ8ˡ LJ  S. f  ܩ;á ܩ8á  ǃ   DŽ  u   á  ˡˡ Lj   Ȅ   %  ˡ  ǃ 5ǃ  "Dž  o1 á @ áG    lj ޡȄ   ޡ 䔜ߡlj*564/1(0!7/ 1, )ǁ 8 jF@خá # خ á 6 /9ٮ خB6áX}  á   Ǜ ؟ˡũ;  ǏUW/a˫   á  ~ڟˡ 2 M %Iá<ڟˡڣ    A áW ˡ>ˡǐ 0 ! ؟ˡé1 Ǒ 3 ġ ڣ áV' áA-á۶~ܟˡ `mˡǨ ੁ  ǀ @ˡnˡǐ ` Q ؟ˡé1 8߮ 6  šߤ ޶á     ؕ  \ I ..N QQšá40Ǒ 7 @ ! á 6 / á9߮  \QG ART!99  F8``  L r4p` !2""#$$%L&&N'] 7á}   EBخˡxál ɡ_ ~á~ۢۢۢ B((( f,,F--J///0./0~00b1p222B3r 9 á  ~ڟˡ 2 M %Iá<ڟˡڣ +8~ۢۢ š nj ˫  á 6 /ڕ ٕ  8J&š(ˡ2'é&Ä&ȡW&ɡǀ' ȡ%٩(J#á[~ݤˡ~ݤޟˡ# áǥ ǧ  á  0 UW, á( ܩ&ɡ ګ ȡ  l ڣ a `}p  ܣá ܮ0v 2o 1h 3a 4Z 6S 5L 7E 8>é ڣ  ,ڣ ڣá ڣ ڣ á[ڣ áOڣá$ڣ"  6h  "$&fZUIRFAm!dš  &  JJ7 Ql   " "ڣ"  " ١qˡAۣá "ۣáȡ /#!  /# @# ( Tɡ Tˡ;צ [  `  ڣ 0  ]Z@B.١NáöÍ words]<W >ˡڟˡ ˡtáašQ2 6ٮ / ١ بȡ      áأ ` أ  أ   ݟˡ` ݚܟá ,   9 š   ݟá á  >=jF*ˡ (ޕ( áWV~ܟˡ ܢ  .Iá(<ڟˡG#4 خ/a˫   á خ 5 EG V5 ٮ@  ġ ڣ M~ڟˡN 2 2 ,á5á9áMIé$ M M I ɡ- ~ݟˡ   á   0'&6á" DURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWR          ȡ   á     2ˡ "" N NN 3á   _4ˡ a $ y{ġ  ˡˡ$&LGv .Ǐ  & ۂۂۀ Nˡۂ.ɡ3 ꕞNء~Nڟˡȡ𥀲ܤˡܹ FSEEK ר~ FREADREAרj FWRITEREרV FREADDECרB ˡ.Nצ Your file is   bytes long.UáV?&צSYSTEM.WRK.TEXTFWRITEDEר$ ' DECOPS  tbP>%ȡ  "!    ܤN*SYSTEM.WRK.CODENתeצ4Do you want to E(xit from or R(eturn to the editor?   ܤ   ܤȡ      +ء*4<NG&F EګצWriting out the file*ZlDTXZ\l\B.5$<$ y{ġ  ˡˡ$&LGv .Ǐ  & 6 PASCALIODECOPS *SYSTEM.INFO[*]"ˡǒ . Ƕ . Ǐ QI \ [ MPPPPš [   ˡ TAݟޓݥ e ޓ* A ݫAN؞ (M M I ɡ- ~ݟˡ   á   0'&6á" 2ˡ "" N NN 3á   _4ˡ a  $ "TYPE DECMAX = INTEGER[36]; STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGER \ &š(&ˡǒ *Nݢݢ" á   ˡ[12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:Iá  M I\[ M M! Ddnt ݫAN؞ (NTEGER[36]) /END; ' " "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCE% ؼɡ ؼ߀$ ؼߞ$"Hɍ -   $,/36:GJNQUbeilp}  }rg\QF;0%á  $ ݞ$' ݑ$ $݂ō $݂ġ ݂$+-Í-۲z0ݡߑ ع   $ $ȡ%  0 ފ$čQ   .ˡ5  Eɡ 2w&7$" G8  2jh$,7w& <  & 6  D!@  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑ0 ݕ  Aa@  U  D D   D !@          f  ITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION $ "PROCEDURE FSEEK(*VAR F: FIB; RECNUM: INTEGER*); $LABEL ݂ ؂ ɡ   x,  & * عuu1; $VAR BYTE,BLOCK,N: INTEGER; "BEGIN SYSCOM^.IORSLT := INOERROR; $IF F.FISOPEN THEN &WITH F,FHEADER DO (BEGIN *IF (RECNUh[NA4 '  }rg\QF;0%á M < 0) OR NOT FSOFTBUF OR 2((DFKIND = TEXTFILE) AND (FRECSIZE = 1)) THEN $ "TYPE DECMAX = INTEGER[36]; +-Í-۲z0ݡߑ ع  STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGER[12]); 15:(W5:INTEGER[16]); 16:(W6:INT    k ݢݣޢÄ@@@   P  5  O ~eL3Ná ޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ ˄ݢ!ۂ <<Df\A4 '  }rg\QF;0%á "ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ   p +-Í-۲z0ݡߑ ع  á +-Í-ڲzؼ 0.áAPASCALIOFSEEK FSEEK FREADREA FREADREA FREADDEC FREADDEC FWRITERE ڲzؼ 0ڲzQeEÍݍ.á '߂ۓۡܡ FWRITERE FWRITEDE  FWRITEDE  DECOPS @  $-1:>GK&   -w` F   &  & w %%  | x |rntjfhX \L -LL   *      l  b  w!     a  E _ vJ  b h^  XVD$`h d  20$`   O^ 747( a "  ` $$ _ * ˕͕07 7 %[  ͕- ͕0  F\  F  ##- (    "& f X7 vwpn  @\Z \ V ͕0F ͕0 0 _  ``f   w\  __ _B B`A b e  QB  b   6  _ ;NJ#&;KLZzĊ @" R _ j7 ev a " j b \ H HH  ` H HhHh   `VRL.  e_DB F  F   _% _ "77 * &     w aB  ~ B   `w`7& 7 7 7 7a E  Da7 D7zE mna R Ha H R e<! F  (&    _d 7dwH J7 D aw> w* (7 "D 7Da7DECOPS DECOPS GDEC  ' red procedure  120:Function result type must be scalar, subrange or pointer  121:File value parameter not allowed  122:A forw1:Error in simple type  2:Identifier expected  3:'PROGRAM' expected  4:')' expected  5:':' expected  6:Illegal symbol (termard declared function's result type can't be re-specified  123:Missing result type in function declaration  124:F-format for rinator expected)  7:Error in parameter list  8:'OF' expected  9:'(' expected  10:Error in type  11:'[' expected  12:']' exeals only  125:Error in type of standard procedure parameter  126:Number of parameters does not agree with declaration  127:Ipected  13:'END' expected  14:Semicolon expected  15:Integer expected  16:'=' expected  17:'BEGIN' expected  18:Error in dllegal parameter substitution  128:Result type does not agree with declaration  129:Type conflict of operands eclaration part  19:Error in  20:'.' expected  21:'*' expected  22:'INTERFACE' expected  23:'IMPLEMENTATION' e 130:Expression is not of set type  131:Tests on equality allowed only  132:Strict inclusion not allowed  133:File comparisoxpected  24:'UNIT' expected  50:Error in constant  51:':=' expected  52:'THEN' expected  53:'UNTIL' expected  54:'DO' expen not allowed  134:Illegal type of operand(s)  135:Type of operand must be Boolean  136:Set element type must be scalar or sucted  55:'TO' or 'DOWNTO' expected in for statement  56:'IF' expected  57:'FILE' expected  58:Error in (bad expressbrange  137:Set element types must be compatible  138:Type of variable is not array  139:Index type is not compatible with thion)  59:Error in variable  101:Identifier declared twice  102:Low bound exceeds high bound  103:Identifier is not of the ape declaration  140:Type of variable is not record  141:Type of variable must be file or pointer  142:Illegal parameter solutipropriate class  104:Undeclared identifier  105:sign not allowed  106:Number expected  107:Incompatible subrange types on  143:Illegal type of loop control variable  144:Illegal type of expression  145:Type conflict  146:Assignment of files no 108:File not allowed here  109:Type must not be real  110: type must be scalar or subrange  111:Incompatible witht allowed  147:Label type incompatible with selecting expression  148:Subrange bounds must be scalar  149:Index type must be  part  112:Index type must not be 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 a subrange  116:Error in type of standard procedure parameter  117:Unsatisified forward reference  118:Forward reference type identifier in variable declaration  119:Re-specified params not OK for a forward decla( integer  150:Assignment to standard function is not allowed  151:Assignment to formal function is not allowed  152:No such fid source line  203:Integer constant exceeds range  204:8 or 9 in octal number  250:Too many scopes of nested identifiers  25eld in this record  153:Type error in read  154:Actual parameter must be a variable 1:Too many nested procedures or functions  252:Too many forward references of procedure entries  253:Procedure too long  254: 155:Control variable cannot be formal or non-local  156:Multidefined case label  157:Too many cases in case statement  158:Too many long constants in this procedure  256:Too many external references  257:Too many externals  258:Too many local filesNo such variant in this record  159:Real or string tagfields not allowed  160:Previous declaration was not forward  161:Again  259:Expression too complicated  300:Division by zero  301:No case provided for this value  302:Index expression out of bou forward declared  162:Parameter size must be constant  163:Missing variant in declaration  164:Substition of standard proc/fnds  303:Value to be assigned is out of bounds  304:Element expression out of range  398:Implementation restriction unc not allowed  165:Multidefined label  166:Multideclared label  167:Undeclared label  168:Undefined label  169:Error in b 399:Implementation restriction  400:Illegal character in text  401:Unexpected end of input  402:Error in writing code file,ase set  170:Value parameter expected  171:Standard file was re-declared  172:Undeclared external file  173:Fortran procedur not enough room  403:Error in reading include file  404:Error in writing list file, not enough room  405:Call not allowed ine or function expected!  174:Pascal function or procedure expected  182:Nested units not allowed  183:External declaration no separate procedure  406:Include file not legal  500:Assembler Error  t allowed at this nesting level  184:External declaration 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  189:'USES' not allowed at this nesting level  190:Unit not in library  191:File not allowed to be private  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 excee) 0צ Boot transferred successfully. Ƃ/}FUnit to write boot to [4,5,9,10,11,12]:  0 File to be written as boot: Pš /"ˡ: is&UT4 :5x $4 0̋̋ ̋P  h N COPYBOOT % eC % C ``` eߋt_v @ @ 7 ?NOT ENOUGH CORE TO BOO? 8D Ԥ eeW @7 ?YOU DON'T HAVE A  U 844 7 SYSTEM.PASCAL? wL7| SYSTEM.PDP-11? B A f8 t h5 7 ?YOUR SEGTBL IS RIDICULOUS? 8 -X8`d d 7b V6 5 xߋz\@ 8 6Ƃ/ƃ[ צ*This program is a general bootstrap mover.צATo copy a boot from one disk to another, type theU@fe C6U@p &  unit number forAthe destination disk, and the volume name of the source disk. Ifצ@the source is a disk file, then type the name of the disk file. צ) Unit to write boot to [4,5,9,10,11,12]:  0 File to be written as boot: Pš /"ˡ: isO^ not available, other file: á//ˡ`צ; is not big enough to be a bootstrap, no transfer attempted/"ˡRצ8 Error in attempt to write boot, boot area now undefined* XY(X,Y: INTEGER) procedure:Pá "ˡ" ++P+צ.CODEU+"á2 SYSTEM.PASCAL"ˡ2ˡ+ZZ ++++2+ˡ ˡZ+צincompatible byte sex+Z ++++ +ˡe ( BINDER ZؕܕZؕܕ'ؕ'ؕە' '''۞ۂەZ Y]UˡF\ PASCALSYר\욶\UXXUU' Yض[ Zٚ.ȡ$ˡ,(*The following is a sample gotoxy procedure for the VT-52*)  (*$U-*)  PROGRAM DUMMY;  PROCEDURE FGOTOXY(X,Y:INTEGER);  BEGI  Tȡܢ"6 ERROR ( PasN "IF X<0 THEN X:=0; "IF X>79 THEN X:=79; "IF Y<0 THEN Y:=0; "IF Y>23 THEN Y:=23; "WRITE (CHR(27),'Y',CHR(Y+32),CHR(X+32));cal System Binder (2.1 a2)>This program modifies the SYSTEM.PASCAL of your default prefix?d  END;  BEGIN  END. isk. If any of the files it expects to be around are missing,צ?i.e. SYSTEM.PASCAL, or enough room (60 blocks) to re-create it,2it will terminate with the cryptic message "ERROR"?You also need to execute the program SETUP to get the system toצ&work intelligently with your terminal.צ* File with GOTO+  Ɓ62Ɓ^Ձ.  Moving procedures around  ! ڪPP-תP---<. LتP  ˡ-ڕ2 Calling system linker to create new SYSTEM.PASCALצ SYSTEM.PASCALצSYSTEM.PASCAL[35] 2 ڂ6NƁ.`צ QUIT: D(ISK) OR M(EMORY) UPDATE,צ R(ETURN) H(ELP) E(XIT)6.\ ]UZ\̀[̀[ʀȡ;ʀ [ רʀ[ *NEW.MISCINFO٥`_/_́ʁȡ__'D(ISK) UPDATE PUTS [[[ , Z\]\á ]*צCode file write error ] THE CURRENT SETUP ONצ$ DISK AS THE FILE "NEW.MISCINFO"צ! WHICH MUST BE CHANGED IN THE $  SETUP  FILER TO "SYSTEM.MISCINFO"צ$M(EMORY) UPDATE CHANGES THE SETUP INצ! MEMORY UNTIL T INITS TEACHSET HE NEXT SYSTEM INITIALIZATIONצ"R(ETURN) TAKES YOU BACK INTO SETUPצ IF YOU'RE NOT DONEE(XIT) TERMINATES THIS PROGRAM"DMC ,R썡E079Copyright (c) The Regents of the University of California C(ONTINUE) Q(UIT)CUN Vצ OCTAL DECIMAL HEXADEتPٓצ BUG LOCATION צ'PLEASE WRITE DOWN THIS LOCATION AND ANY&SUPPORTING DETAILS YOCIMALء.ǀɡצ ASCII ɡ CONTROLɡ 1) ń ġˡl]ZUˡM\ [آ [\[\[UXXUU CAN, AND REPORT$IT TO THE UCSD SUPPORT STAFF AT YOUREARLIEST CONVENIENCERU ,š YáZY [[ȡY[š [[ -n  aA!áHڦתP /ۄ > ,٪PتP]ƁX\Y]UZ\̀[̀[ʀȡ;ʀ [ רʀ[<áצPצ<>/áQšHۓ<?P[[[ , Z\]\á ]*צCode file write error ]   ?PɡPצ#QP꿹!áá$T (,  A ء!ɡ&o! o!DáצDEL (ٳ? NOW DECIMAL5צNOW HEXADECIMALO> 3l: O(CT) D(EC) H(EX) Q(UIT)  ɡ^@ ?b צ NEW VALUE: ܄/ 'DO 5썡 ȄBo!! o!  DELׯ !˄Ȅᚹġ _'Dɡ_ؑȡ#_ F 0  ( DO 6-á = *hȡ  (á 2C / ~D5 -á1 FFȡ  쓄 쓡 N썡쓡ۮ46X r˦ SHOWSCALARˡ˦ SHOWSCALARCURRE ߡ 0 A  ₚ ȡ00 NT VALUE IS ٢L lALLOWED VALUES ARE:צSHOWALLآáA  ōޡĄȄ  "INPUT VALUES IN THE DECIMAL RANGE+ \ڪP.P.....O T : `צ NEW VALUE: .: ..  IN THE FORMAT BELOW:צ!->O-{OCTAL}-!צ! !썓!צ NEW VALUE: 쓡 쓡خcHT zá á $NAME OFצ'--DEFAULT----!----------->DIGIT--->(CR)"! ! ! ! ! !"!->H-{HEX FIELD: `쓄Mצ DIDN'T FIND NAME OF FIELD: 쓡cR }---! !->(-)-! !-DIGIT<-!! !!->D{DECIMAL}!ڡצ OR IF YOUR KEYBOARD CAN쓄<쓡4 FIELD NAME = آخLצ#CHANGE: S(INGLE) P(ROMPTED) R GENERATEצ%THE VALUE YOU WANT, JUST TYPE THE KEY&AND THEN TYPE CARRIAGE RETURN, OR TYPE(ADIX) H(ELP) Q(UIT)צ&S(INGLE) ALLOWS YOU TO EXAMINE 1 VALUE$THE ASCII MNEMONIC FOR THE CHARACTER C(ONTINUE)Cá &  쓡jWANT TO CHANGE THISצ BY NAME'P(ROMPTED) TAKES YOU THROUGH ALL FIELDSצ(R(ADIX) ALLOWS YOU TO CHANGE THE ASSUME    ń ġ= ɡ  VALUE? (Y,N,!)YE@썡p | Gצ NOW OCTALL- W--̀ƀצENTER ƀVƀ/̀ʀPʀʀٚʀؚʀʀʀʀW.CEPT KEY-KEY TO ALPHA LOCK.VERTICAL MOVE DELAY"G  /ڢתPڢ/ + +צ +צW.PتP,+,---ٚ-P-,-V6TFTRUE׮FALSE׮ L@æINITS ث /ȡ٤٤צ INITIALIZING  Dצ RADIX FROM ;צOCTALDDECIMAL1צ HEXADECIMALYC6  HAS CLOCK HAS 8510AHAS LOWER CASEצHAS RANDOM CURSOR ADDRESSINGHAS SLOW TERMINALSTUDENT/ TO EITHER ^DECIMAL OR HEXADECIMALVOCTAL OR HEXADECIMAL6OCTAL OR DEHAS BYTE FLIPPED MACHINE צHAS WORD ORIENTED MACHINE צPREFIXED[MOVE CURSOR UP]$PREFIXED[MOVE CURSOR RIGHT]$CIMALIfH 4 HS   Qá ,   צ"SETUP: C(HANGE T(PREFIXED[ERASE TO END OF LINE]$צ PREFIXED[ERASE TO END OF SCREEN]$PREFIXED[MOVE CURSOR HOME]$צPREFIXED[DELETE CEACH H(ELP Q(UIT צ[D2]  (C(HANGE) ALLOWS YOU TO CHANGE OR EXAMINE& THHARACTER]$PREFIXED[ERASE SCREEN]$צPREFIXED[ERASE LINE]$"PREFIXED[KEY TO MOVE CURSOR RIGHT]/צ!PREFIXED[KEY TOE VARIOUS PIECES OF INFORMATION' THE SYSTEM HAS ABOUT YOUR HARDWAREצ CONFIGURATION MOVE CURSOR LEFT]/צ!PREFIXED[KEY TO MOVE CURSOR DOWN]/צPREFIXED[KEY TO MOVE CURSOR UP]/צ PREFIXED[NON PRINTING CHAצ$T(EACH) TEACHES YOU HOW TO USE SETUPצ&Q(UIT) ALLOWS YOU TO MAKE YOUR CHANGESצ( PERMANENRACTER]/PREFIXED[EDITOR ESCAPE KEY]/ PREFIXED[KEY TO DELETE LINE]/ צ!PREFIXED[KEY TO DELETE CHARACTER]/ צPREFIT AND TO LEAVE THIS PROGRAM+CT$ | "I5`  `8J, XED[EDITOR ACCEPT KEY]/ Fצ SCREEN HEIGHT%צ SCREEN WIDTH&LEAD IN TO SCREENMOVE CURS $ D0Bv4]  (C(HANGE) ALLOWS YOU TO CHANGE OR EXAMINE& THOR HOMEצERASE TO END OF SCREEN ERASE TO END OF LINE צMOVE CURSOR RIGHT!צMOVE CURSOR UP! BACKSPACE"تo צNULצSOHצSTXצETXצEOTצENQצACKצBELצBSHTצLFV ERASE LINE#צ ERASE SCREEN#KEY TO MOVE CURSOR UP'KEY TO MOVE CURSOR DOWN'KEY TO MOVE CURSOR LEFT(KTצFFCRצSOSIצDLEצDC1צDC2צDC3צDC4צNAKצSYNצETBצCANצEMSUBESCEY TO MOVE CURSOR RIGHT(צKEY TO END FILE)צ KEY FOR FLUSH)צ KEY FOR BREAK*צ KEY FOR STOP*KEY TO DELETE CHAFSצGSRSצUSSPتP+ +(++!T&ڪP. (á  WRACTER+NON PRINTING CHARACTER+צKEY TO DELETE LINE,EDITOR ESCAPE KEY,LEAD IN FROM KEYBOARD-EDITOR AC.  TO MOST REQUESTS FOR"INPUT AND WILL ESCAPE YOU FROM THE׮צ(SEQUENCE WHICH ASKED THE QUESTION, E.G.,(WHEN CHANGING A VCR) OR, IF THERE IS%AN ASCII MNEMONIC FOR THAT CHARACTER,׮&JUST TYPE IT IN (AND CR). BOOLEANS ARE׮צ!INPUT BY TYPING "TRALUE, TYPING "*" TO THEת( !"PROMPT "NEW VALUE" WILL ESCAPE THE׮צ"CHANGE WITHOUT ALTERING THE VALUE.Y*UE" OR "FALSE"צ (AND CR). FOR MORE INFORMATION,$PLEASE SEE THE SYSTEM DOCUMENTATION.׮z צ"HINTS ON DEALING WIצ%THE LINE DELETE CHARACTER, "*" ALLOWS(<(YOU TO DELETE A RESPONSE YOU GAVE IF YOU׮צ'HAVE NOT YET TYPED CR. CR TH BACKSPACING:'THE 'KEY TO DELETE CHARACTER' SHOULD BE׮(SET TO THE KEY YOU WISH TO TYPE TO CAUSE׮צA BACKSPACE. THE 'WILL BE SENTצ'TO THE TERMINAL AND YOU WILL BE ABLE TOצ'START OVER ON A NEW LINE. THE BACKSPACEצ(CHARACTER, "*" WILL DBACKSPACE'צ(CHARACTER WILL BE ECHOED TO THE TERMINAL"WHEN THE 'KEY TO DELETE CHARACTER'׮צ IS TYPED.  ELETE YOUR RESPONSE( /צ%TO A QUESTION CHARACTER BY CHARACTER,צ(ECHOING EACH CHARACTER AS IT IS DELETED.%THE ECH .d< L d  OR THAT CHARACTER,׮&JUST TYPE IT IN (AND CR). BOOLEANS ARE׮צ!INPUT BY TYPING "TRTE xn O END FILE)צ KEY FOR FLUSH)צ KEY FOR BREAK*צ KEY FOR STOP*KEY TO DELETE CHAOED DELETED CHARACTERS WILL BE׮(ENCLOSED IN ANGLE BRACKETS. FOR EXAMPLE,׮צ!TYPING THE SEQUENCE OF CHARACTERSCHARARACTER+NON PRINTING CHARACTER+צKEY TO DELETE LINE,EDITOR ESCAPE KEY,LEAD IN FROM KEYBOARD-EDITOR ACQF// CTER 84צ$WILL ECHO ON THE SCREEN THE SEQUENCECHARAQFCTER׮$AND WILL تPR צ'IF YOU HAVE A VIDEO TERMINAL AND EXPECTצ&TO USE THE SCREENBE UNDERSTOOD AS THE STRING׮צ& "CHARACTER". WHEN YOU ACCESS A FIELD,$YOU WILL BE SHOWN ITS CURRENT VALUE.׮צ&NUMBERS A ORIENTED EDITOR, THE%CHANGES SETUP CAN MAKE WILL BE NOT BE׮'SUFFICIENT. YOU WILL ALSO HAVE TO BIND׮(IN THE PROCEDURE RE GIVEN IN OCTAL, DECIMAL OR'HEXADECIMAL RADIX, CHARACTERS ARE GIVEN׮&AS THEIR ASCII VALUE AS NUMBERS AND AS׮צ#THEIR AGOTOXY IN THE OPERATING׮צ(SYSTEM. SEE SECTION 4.7 OF THE DOCUMENT.Eצ#NOTE: DISK UPDATES CREATE THE FILE:צSCII MNEMONIC. BOOLEANS AREצ(EITHER TRUE OR FALSE. ENTER NUMBERS, OR(CHARACTERS AS THEIR ASCII NUMERIC VALUE,׮צACCOR NEW.MISCINFOצ(ON YOUR DISK. THE NAME OF THIS FILE MUSTBE CHANGED USING THE FILER TO: ׮ SYSTEM.MISCIDING TO THE FORMAT:!->O-{OCTAL}-!׮צ! !'--DEFAULT----!----------->DIGIT--->(CR)׮"! ! ! NFO׮צ&IN ORDER FOR THE CHANGES YOU HAVE MADETO BE LOADED AT BOOTSTRAP TIME.׮T צ"ALL NON-PRINTING CHARACTE ! ! !׮צ"!->H-{HEX}---! !->(-)-! !-DIGIT<-!! !׮צ!->D{DECIMAL}!צ$THE DEFAULT RADIXRS EXCEPT&CARRIAGE RETURN (CR) WILL ECHO AS "?".׮צ&THE INPUT ABORT CHARACTER, "*", CAN BE(!צ&TYPED IN RESPONSE STARTS AS DECIMAL.$NON-PRINTING CHARACTERS MAY BE INPUT׮צ'BY TYPING THE KEY WHICH GENERATES THEIRצ&VALUE (FOLLOWED BY / O^ A' or 'B' expecteddexed addressingPROCtBundefined labelcteddexed addressingPROCtBoperand out of rangeexed addressingPROCtBmust have procedure name addressingPROCtBnumber of parameters expectedessingPROCtBextra garbage on lineexpectedessingPROCtBinput line over 80 charactersessingPROCtBnot enough .IF's80 charactersessingPROCtB&must be declared in .ASECT before usedCtBidentifier previously declaredore usedCtBimproper formatiously declaredore usedCtB .EQU expectedatiously declaredore usedCtB&must .EQU before use if not to a labelCtBmacro identifier expectedot to a labelCtBword addressed machinetedot to a labelCtB#backward DOCUMENT ADDENDA:  THE TOGGLE BETWEEN UPPER AND LOWER CASE  (ALPHA LOCK) IS R. .ORG currently not allowedbelCtBidentifier expectedntly not allowedbelCtBconstant expectededntly not allowedbelCtBinvalid str.ת&תת(&Ɓ.񄓡9 P?  ءצ*SYSTEM.WRK.TEXTצ*SYSTEM.WRK.CODEצ*SYSTEM.L0 oluteametersexllowedbelCtBillegal use of special symbolslowedbelCtBill-formed expressionl symbolslowedbelCtBnot enough operan'must declare .ABSOLUTE before 1st .PROCtB ust declare .ABSOLUTE before 1st .PROCtB ust declare .ABSOLUTE before 1st .PROCtB dsonl symbolslowedbelCtB&cannot handle this relative expressionCtBconstant overflows relative expressionCtBillegal decimal conust declare .ABSOLUTE before 1st .PROCtB ust declare .ABSOLUTE before 1st .PROCtB ust declare .ABSOLUTE before 1st .PROCtB usstantive expressionCtBillegal octal constantntive expressionCtBillegal binary constanttive expressionCtBinvalid key wordonstat declare .ABSOLUTE before 1st .PROCtB ust declare .ABSOLUTE before 1st .PROCtB ust declare .ABSOLUTE before 1st .PROCtB ust nttive expressionCtB%macro stack overflow - 5 nested limitnCtBinclude files may not be nested limitnCtBunexpected end of inputdeclare .ABSOLUTE before 1st .PROCtB ust declare .ABSOLUTE before 1st .PROCtB ust declare .ABSOLUTE before 1st .PROCtBclose pe nested limitnCtB(this is a bad place for an .INCLUDE fileB'only labels & comments may occupy col 1eBexpected local labelts maaren ')' expectedefore 1st .PROCtBregister expectedxpectedefore 1st .PROCtBtoo many special symbolsefore 1st .PROCtBunrecogniy occupy col 1eBlocal label stack overflow occupy col 1eB#string constant must be on one lineol 1eB%string constant exceeds 80 zable operandlsefore 1st .PROCtBregister reference onlysefore 1st .PROCtBfirst operand must be register1st .PROCtBcomma ',' echaracters 1eBillegal use of macro parameterracters 1eBno local labels in .ASECTmeterracters 1eBexpected key wordn .ASECTmetexpected be register1st .PROCtBunimplimented instructionister1st .PROCtBmust branch backwards to label1st .PROCtBrracters 1eBstring expectedrdn .ASECTmeterracters 1eBbad block, parity error (CRC)rracters 1eBbad unit numberty error (CRC)rrMTPD MFPD @MTPS MFPS PC SP R7 R6 R5 R4 acters 1eBbad mode, illegal operationC)rracters 1eBundefined hardware errorionC)rracters 1eB$lost unit, unit is no longer on-lR3 R2 R1 R0 MARK SOB ~TRAP EMT BPT IOT RTI ines 1eB(lost file, file is no longer in directorBbad title, illegal file name in directorB#no room, insufficient space on disk RTT RESET WAIT HALT CLR CLRB COM @ COMB @INC INCB ectorBno unit, no such volume on-linediskectorBno file, no such file on volumediskectorBduplicate filech file on volumediskecDEC DECB NEG NEGB TST TSTB ASR ASRB ASL ASLB ROR uctureedntly not allowedbelCtBextra special symboltly not allowedbelCtBbranch too farsymboltly not allowedbelCtBvariable not torB(not closed, attempt to open an open fileB(not open, attempt to access a closed filB(bad format, error in reading real or inPC relativenot allowedbelCtBillegal macro parameter indexllowedbelCtBnot enough macro parametersexllowedbelCtBoperand not abstB nested macro definitions illegall or intB'=' or '<>' expectedions illegall or intBmay not EQU to undefined labelsll or intB1 II#ffIIERROR #I IءEI"I11Iצ.ERRORS" file not aroundIácX #3*j& ءUá"IHIHá'I I  RORB ROL @ ROLB @SWAB ADC @ ADCB @SBC SBCB SXT MOV  MOVB ڂ D󄓡#ffERROR # ءD"11.ERRORS CMP CMPB ADD ` SUB BIT 0 BITB BIC @ BICB BIS P BISB " file not around ,(šE(dit,,ٶ/BR BNE BEQ BPL BMI BVC BVS BCC BCS BGE BLT <ȄooEeÍ:<% & ) '  oo á 7Ʉ BGT BLE BHI BLOS BHIS BLO CLC CLV CLZ CLN SEC " Iצ*  I  7á 8٨ǀɍm SEV SEZ SEN SCC CCC NOP JMP @JSR RTS MFPI @  Location H HHHH8MTPI XOR xMUL p DIV r ASH t ASHC v FADD zFSUB zFMUL zFDIV zHH87  "ˡ."ء&*,ȡxؤˡf&IIצ>>>>>IؤD󄓡)>>>>>ؤؤ*,* áu)ɡm>6 H) fɡH)#H)#f, H) fɡH)# H)#fDN&6 B %. TLA @[( ]<! >#PDII I IPAGE - I INITIALISYMTBLDUPROCEND ASSEMBLEPRINTERR " I IoIצ FILE:IDIIצ IIII "" !!D.!2á  7á  ɡCcc cIצ| CCOPYRIGHT (C) 1979 REGENTS OF UNIVERSITY OF CALIFORNIA AT SAN DIEGOII| Iceše#áI#III II2 stt4tssts.|&/-u! (,$. W|gknVH) ëC))H) ;áf H) )؂) 0 éA:f H) )؂) ˡ á C $ 434r%á qr%á ^*ō˄ J(ˡnǀĶȄ<r%á qqr%á  뚶á#á  òHÄ&rq:n١qo7ppˡ  s1ssHÄf_!뚹 %rqI áDIH IHIHIHáNI I  I ˡ  T&L9  "$&(*,.0246k:<>@B{}HHIIs I I I   5šGHá6 2š2HH5D󄓡s B#nV #^ L#3<GH'( H566H5ؿ5565443š43B{á2ȡ+c쥈HcHc á<ȡ5c'()'('(á><0&'%) H'(l > >Gá,G ëCeɡ##G  4*?r$˄8á$oؚo٨o 4J%á J éA*f G ؂fɡ# ؂؂ ˡfɡ# á > >š G n0o5ppˡ  0s?0ssˡH %éń, Í;ÍZšF G F H ؂Gá >]   0T&LG  "$&(*,.0246s:<>@BHsˡ0sABfɡ# š G H ˡ fɡ# á >))>)ġH)é:3 5á n%Hš 뚹 뻹á nV nP  רɡá-EE Ʉؤ EE-nánV%HšEá 6ȡ+ȡ۾$H><! 'ؤ>Gáš%GG ˡH) ˡšo+&á+&áon+p+%HšnHš))(á#3@󓄩Ä DAá<#橂ˡ%<0 P P ˄ 0YY%o onꫂs%onꫂs%onꫂssPY0ǠYP á'&)%G ')(D󄓡#ffRonꫂsV&NC  "$&(*,_acegHš! רɡEȡڂؾړلٓǀړلٓ뚹áˡܤܤܤܤHˡšFOڤE˄ EEh𩂒 %   !$!uQSUWi$od,u0>@BDFHJLNPTVXZ\^`dfhjlnprtvxz|~ngV'N'  "$&(*,.0246O:DdHJc ˡġݡHáٳyG  ,4,. P P~7Aġ .7.0XXPX.ǠXP$س$$$Ä?oڳ<<ڹ$$Íޢۂ$ˡػÍHá8.á .á$BáBá>E.ڹšMɡXX.P$$Äޢە$ˡ$ܡ ޢۍܡ ޢۄzܡޢۓۄbܡ ޢۏQܡ ޢۆXǠXPW WWWWšyɡXX.PXǠXPXXȡ"پ@ܡ ޢێ/(tT-  ^$á{1ޢ š   پ ń ÄɡXX.PXǠXEޢ6ޢ$) ASH$XnVPXXȡپš WW W WWWWšZɡXX.P;;x}?뻹ˡ %;á áI**áXǠXPXXȡ%پš   WٕپW&Nq *] 4 },á (nءH++,+** ȡ٤٤򥂳+ &,,C ' = WORD ר' & INTERP ' 0 MACRO ר' 1 ENDM ' GC:Ä>R @#DA PתP"PɄ ˄5򿥁,,P,Ǡ,PáIF ר'2ENDC ')ELSE ר'*REF '4DEF ר'5A١ؑ ؂ á()Pš*w $(ëC áC á( "!  ORG '"INCLUDE ר'ALIST '9NOLIST ר':ASECT    (*$á09ō>##$+áá>-á' PSECT ר'!TITLE '<END ר'?PAGE ';MACR(á>>á>!~3?Bz OLISר'+NOMACROL',PATCHLISר'-NOPATCHL'. ABSOLUTEר' / "$&(v\EL 468:<>@BDFHJLNPRTVXZ\^`bdfVxA~ë9  ȡƶWWWE ȡ"قٓ؄wƄoƅƄGƅsIƁu  $ũ@  ?áƄoƄGI-ǀٓ؄ؓ٤E˄ EE2Opcode declared twice=XF,zT#$J 2x| p!!P""# $H$H$+áá>-áOڡWWۚWW٤٤ꚲWW WÍW=&'(á>>á>!~3?Bz >)(,* FRB*LINKER.INFO[*]ת.11צ.OPCODES PW* "$&(v\EL 468:<>@BDFHJLNPRTVXZ\^`bdfVxA~.Q"ˡW#4:.S"ˡW#5:.S"ˡW#9:.ڤڤꚹ'áá"vš  ) ˡ *,*GáGwƄoƅƄGƅsIƁu  $ũ@  ?áƄoƄGI- D(C :áBȄ#F>(*<V" רء$ALIGN ר'$ASCII 'BLOCK ר'%BYTE ''CONST רۤ+á* *+,ɡá'EE+Ʉ+ E++E'8EQU '3FUNC ר'>PUBLIC '6PRIVATE ר'7 PROC5 S"ˡuW#10:.T"ˡLWצ#11:.T"ˡ#W#12:.TI  AB תP  LB תP  PR תP  FC תP  PB תP  PV תP  RF תP  DF תP"ˡ8. not on any vol on line&@BDV WƁf #3צ11r  UD תPd  MC תPV'Nx  "$&(*,.0246Z:>tnbI צ Assembler צ II.0 [d.4]́ʁȡ X cX H0123456789ABCDEFר5!o4 IéDéDI  7á I| ˡ$ .á v&v.v @2Output file for assembled listing: ( for none) á  ?á  #3  רݢݢ__ȡzܤˡeV'N  @á$ġ  ˡ áٿצCONSOLE:#1:ׯDצDPRINTER: "$&(*,.0246C:GIKMOQSUWY6ǪPǦSYMBOLTABLE DUMPתP I>AB - Absolute L#6:ׯצREMOUT:#8:ׯ Ib.TEXTá+ÍƁPƁצ.TEXT[*]XƁ$ÍƁPB - Label UD - Undefined MC - MacroII=RF - Ref DF - Def PR - Proc FC - FuncƁ[*]SƁ"ءצ @87? ́ʁȡVX[&ZYnVIIצ,PB - Public PV - Private CS - ConstsIII  áצ------ áצ-Wn ;A:<FBo ר" P)IPAGE - I" I""o--- 6PI   ! .4 __ȡzܤˡeV'N  Wh-jPV  áٿצCONSOLE:#1:ׯDצDPRINTER: "$&(*,.0246C:GIKMOQSUWY6ǪPǦSYMBOLTABLE DUMPתP I>AB - Absolute L#6:ׯצREMOUT:#8:ׯ Ib.TEXTá+ÍƁPƁצ.TEXT[*]XƁ$ÍƁPB - Label UD - Undefined MC - MacroII=RF - Ref DF - Def PR - Proc FC - FuncƁ[*]SƁ"ءצ @87? ́ʁȡVX[&ZYnVIIצ,PB - Public PV - Private CS - ConstsIII  áצ------ áצ-Wn ;A:<FBo ר" P)IPAGE - I" I""o9!ȡڤڤV- Bة6ɡf4šHɡ6ق2šب 'áߢꚹ%áߢꚹޡ]rˡ2 "áHá65ة6š4šHɡ6ق2šق2 2ġ(6 I@DMצCurrent minimum space is  צ wordso 36545 nš"šޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡV41w$41#41#ƥFn!ثHFƨȡHݣ ˄ݢ!ۂ"ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ WI I blocks for procedure code I( Iצ words leftID_  blocks  / x^ ` > f  cX  (ˡ(ˡ #3&ƁV"áH222ɡ62"áHá65ة65 ?ˡgV for procedure code ( צ words left643 25#w Há6ȡNVVá5ȡ*Vܤˡ4Vܤȡ ܤˡ4ܤ$ F ƁVƂƁ.ƂZƂ@#$š ?á$̂ʂġ٥wڤ $ ٫#5-m u| ˡ Vȡ䥃ؤˡ'IIHɡ6ڂ ʁV ʁV רʁVƁVƁ."áƁ.HáH>>>>>I  D󄓡$>>>>>V FVVVuV "áHɡ6 #@ǀ Ɓ II.0 [d.4]תPƁ HÔʂȡڥskVaV WV M#F  "$&(*,.02468:uogUVVH "áá6@DIIAssembly complete:I! Iצ lineVVVˡ;VáVV ˡVVsII Iצ" Errors flagged on this AssemblyII IƁ.&צAssembly complete:V$VVá V V VVVVVVVN#F[!  lines צ" Errors flagged on this Assembly쥈n $$  "$&(*,.02468:9;=?T&L  "$&(*,.0246 0 /| .u -$šƁVoo 41=á#Fˡ:468:<>HJ nrV ˡ V ȡ/V>$áso$áEˡcX  (ˡ(ˡ #3&ƁVVáVܮܩ67 l (š(@FICurrent minimum space is I I words./! ݢݣÄɡ3ڕġ$ڕš7 FNFá,>+&ˡ ,+%+++Bá3ˡ٩> ݂>ġá ݂Oá LMáO  Ǡ0ššٕȡ   RDá<ȡ(˄  # Ǡ qq,Ǡ hnnV ڻ 3ؾ  9 VF xo?5F"ˡ-á F$F0 FFٻܡnhۡ \Ǡ á P4Ǡ á  FˡF%éF"Í FF F 'ˡ=@ 'GGQˡRhnnV ڻ ٻܡnhۡ ~S Ǡ  á>G7 ר: šGešG á (.á ɡ  áR á=3%á*@nV TRQvǠ ENDM ׯ  ȡG GG &: aSá Aá   ݻ ܻhnnVˡR ڻ ٻbnnVnhߡnbDáAPړ ˡ>Dáۯ.S;Eo8á+ǀȡ  v á 6 ۯX(ˡ(ˡ eš á#3.á Ä ˡ8X á Eǀ Ä ˡE b  Ʉ>IF ׯ (ENDC ׯ ɡ  ةUGá;é? (ɡȡ   h)# ELSE ׯ ةENDC ڡH eš á#3.á!48 #-FˡCˡ 5 á+áEáآآˡ&\ רɄ>IF ׯ (ENDC ׯ ɡ  ةDá ǥP."á.áˍáENDC ׯ ڡ ٟˡc6٢؂٢Ʉoo٨oJåÄ݂FÄ ˡLMvá `á.á ٢٫jrBáZF꫄Fٟ˄á"+&áá $% á)á åÄNá˥ÄFÄd áRá8 ȍ@č$(Ʉ(ˡ 7788$š@?/ x0II#ffIII  D󄓡/#ff  (ɡ( qmieɡNJ?Bk|Y dnPASCALSYSEDITOR ykig7=$QY[]_a~|~ˡ(ˡ(ˡ Fy2~G" `(b^ ` b \  < צCurrent memory available:I( IBCÍȍ@č$(Ʉ(ˡ 7788$š@?;COPYRIGHT (C) 1979, REGENTS OF THE UNIVERSITY OF CALIFORNIA  (ɡ( qmieɡNJ?Bk|Yš@$á ەš ۞%צnot enough space  Ɓ.́mƁmצ#4:Ɓm11Ɓm.ERRORS Ɓm"ˡ8́mƁmצ#5:Ɓm11Ɓm.ERRORS Ɓm$$ "ˍ܍.$צnot enough spaceYš7"ˡ8́mƁmצ#9:Ɓm11Ɓm.ERRORS Ɓm"ˡ9́mƁmצ#10:Ɓmצ11Ɓmצ.ERRORS Ɓm" ނš $۞ꂫ@\ <YALOE:%צ - ? 9́mƁm#11:Ɓm11Ɓm.ERRORS Ɓm"ˡ9́mƁmצ#12:Ɓmצ11Ɓmצ.ERRORS ƁmƁC  for details ڕLjڕńܓܡɡ}2 ȡ 2ޡǠ ˡRá QhnnV ڻ ٻ"ˡw0II#ffIII  D󄓡/#ffܡnhۡ ~Ǡ ǀ :(@<840,r ݢݣÄɡ3ڕġ$ڕš($  0.,*(&$" P  D @2٩؄٤ءš"šޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ   2 D@#5IצCurrent memory available:I( IBCÍ˄ݢ!ۂ"ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ  9 Lost workfile sourceEצ Workfile .š. צread in*צNo work áȡ ág orˡ7!Output file error. HELP!$!$٫s .$ $  (^X).á  áá 0ؓÄ(צ please finish[%Fצ@Quit: U(pdate work file, E(xit without update, R(eturn to editorP'UuÍwצ*SYSTEM.WRK.TEX  ġ܂$;|+<  : IS IN ERROR, COMMAND STOPPED.T$?&SYSTEM.WRK.TEXTת*SYSTEM.WRK.CODEת$$צ.  D ȡ2 ڂɍ' ڂÍ*^ n %צ!Yet Another Line Oriented Editor.5Advance Beginning Change Delete Get Insert Jumpá  ꕸɡɡؕث$ɍ ؕꕕl ɡ! צ5Kill List Macro Now 8Quit Read Save Unsave Verifȡ " ġ 9nvɡ y Write eXchange ?elp%Ctrl-X (can) to cancel command input.צ The؂ˡfġ!צ Find too long9؞9ؿؿڍڡ'9צ no macros you have defined are:צ -  ȡ&ˡ צ - צYour text buffet foundɡ؂؂ث Z  ڂš@%insertion truncated, not enour is  צ bytes,  צ of which are filled, leaving  צYour 'save' text is gh spaceš'צ'save' area deleted.ڂڂڞڂڂګ ءڂ צ bytes@   +  á ɶɄ ōt: ȡؕؕؕꕕ ȡ " , , $:&*צ ٓáǀáǀ١álšg# %<: Ǽܡڑġ۳I۹   %  Unimplemented ۳ $?zx{?COPYRIGHT (C) 1979, THE REGENTS OF THE UNIVERSITY OF CALIFORNIAD ȡ ؕ ,ɶ ō# á 2 dōywusqoqnHFyFDB@:<>@BD Í-Error in macro definitionٞdٕ ٚق<$ƁP* $.t|XBl  \  44 Nb2$ˡ =áá0ۤá-צILLEGAL MACRO...Try again ō# ۤۤš@Ǽܡڑġ۳I۹   %  Unimplementedܡ צ macro haltedثګ٫ܡZ  ńؿ؞$"á  ۳ $?zx{x$(.TEXT-"á DFile: צ is in error. Not readywusqoqnHFyFDB@:<>@BD $File name error.؂,Z  ȡٕؕȡ1צNot enough room to save 3(߲ZhgV[^?`%2^j|~rN8bR**DXV+ Nb2$ˡ =á inȡ ؞؞táS؂ڂɡڞ؞؂$צnot enough Ǽܡڑġ۳I۹   %  Unimplementedspaceh Ȅؿ؞ؾ.ؾ]˄צ.TEXTÄ ۳ $?zx{(.TEXT-(ؾ.á$"áSFile: .צ is in error. Write not done.KywusqoqnHFyFDB@:<>@BD ! Illegal title؂(x ɡ 񗜳Ʉ LIBMAP -۳( , 쾂0ǀ ō۳ $ˡ =á ; ++ Pascal segment+s p+ library unit+s @+ separate proc+"á++צ LIBRARY MAP FOR +,++š+ ++++ gKMedure segment+@ l>́ʁʁZ䍡 [<Ɓ́́ʁʁȡƁʁ.6 Ɓ+ƂWƁƂ/Ղ1Library map utility [II.0]X XƁ+Ɓlrʁ́Ɓˡ߹ZM+ + global addr P #+ +צ, I #+ +Zl ~^  ^  ferenced items (Y/N)? ٳ@@ٳ YYX6+ + public var base = + +Z5+ +צ constant value of + +Y5+ DUPLICAT  +צ external proc P #+ ++ + separate proc P #+ +{ global m public ٚ@.ȡ$ˡ@, _ constant O separate ? unit 3 private $s#aUKWKMás 6 Nb,  TȡAݢܢ`ܢ`ښܢpH \ȡ"tȡš+צ Segment #+ +: ++צF----------------------------- - >ō  ˡ,+Interface read error+ -----------------------------------------K++  [צenter library name: ,|   4  á á  ō+ +P,צ +,*,*SYSTEM.LIBRARYתP,"ˡ.CODE,P,,ˡצ+ áI ١%+library read error!+ ١bad file[UUȡ]ɥɍ,ō#!not a code fileآ~ تPY+ + P+צ word referenceB+ byte reference'+צ big relist linker info table (Y/N)? ٳ@@ٳZference W>% ˡ)+צ (+ +צ times)+ (once)++ 5+5ȡ , ++ZZolist referenced items (Y/N)? ٳ@@ٳ YYX#h +# c+ completely linked segment++צ Pascal host outer blockmap output file name: PׯצCONSOLE:P.á  :ˡ.TEXTP< 1A duplicate directory is not being maintained on ̄ʄȡ'YyÍb$' -Duplicate Directory Copier { July 12, 1978 } צ: .á;WARNING! It appears that blocks 6 - 9 are not free for use.צצ) Enter drive # of user's disk [4 or 5]: š 00" Are you sure that they are free? ?צ3 Are you sure that blocks 6 - 9 are free for use? , Do you waũȍ?צ1Illegal volume name. Do you want to copy anyway? .Are you sure you want to zap the dirent the directories to be marked? b צ+ Directories are now marked as dctory of ̄ʄȡ': {blocks 2-5}? uplicate. 6 A duplicate directory is already being maintained on ̄ʄȡ' ˡ to exit. +  directory?   צ Directory copy is complete. &צ DZ`re that they are free? ?צ3 Are you sure that blocks 6 - 9 are free for use? , Do you wairectory copy aborted. צType to exit.  Qb 06 sure you want to zap the dirent the directories to be marked? b צ+ Directories are now marked as dctory of ̄ʄȡ': {blocks 2-5}? uplicate. 6 A duplicate directory is already being maintained on ̄ʄȡ'b DUPLICAT YyÍb$" -Duplicate Directory Marker { July 13, 1978 }  צ) Enter drive # of user's disk [4 or 5]: š 00ũȍKצ4Illegal volume name. Do you want to mark it anyway?  = 11 edit :س@ BáRá X *Place Pasca;COPYRIGHT (C) 1979, REGENTS OF THE UNIVERSITY OF CALIFORNIAl disk in drive then Type "á Enter title of output Text file:Pۡ (ۡ*(3 ġ((((ȡ;á ȡšj צ(Transfer Option? B(inary R(t11 edit :س Bá@ġ ٿB  ( @ Dz?$ TITLE SIZE STARTRá * 2jnn T, n n jnGˡGá[ ׷ .ȡnȡn á#n Ǭš Pޡ= á  צ   @ G/nn ؂nݿnݿ j% šړGáu   ׯ  ȡ  .o) n( n צ'Place RT11 Disk In Drive and Type  ġ n  ړ ڡeG  SIZE: צ, START:צ)Place Pascal Disk In Drive and Type   ȡn(w  @o& :%Enter title of wanted RT11 text file:PšZ.ץáo)  P= á/o)o) ؂ o)߿o)߿jnˡȡצ P ר C  Enter title of output Texjo݂ˡ6 THERE WAS AN ERROR IN TRANSFER!!ݡjnt file:PšצEnter unit # of Pascal disk : #4:j_ H2 šצ'Place RT11 Disk in Drive and Type  ġV RT11TOTE SPצ#5:SP#9:SPצ#10:TP^צ#11: TP<צ#12:TP  zZ:j (Transfer Option? B(inary R(t> Z"  E    4GˡGګGFč:No space at end of RT11 disk nצ)Place Pascal Disk in Drive and Type  jn(Put system disk in drive, then type [Y]: Q3The RT11 directory on the Pascal disk was nڂˡ6 THERE WAS AN ERROR IN TRANSFER!! j G& 4 ȡn EDITTORT jnˡJצ OUTPUT ERROR, program terminatedj   تP!-̄/+.-ʄ/m.-á̄/--,+̄1,ʄ1ȡ%,.-ˡ̄/--,,ʄ/ -+- -+--š---.-.-` ƯjưՁצ;COPYRIGHT (C) 1979, REGENTS OF THE UNIVERSITY OF CALIFORNIA(Are you using a standard RT11 disk[Y,N]? צ,Are you using a Single floppy drive machine? ۡ (ۡ*(3 ġ((((ȡ;á ȡצAPlace RT11 disk in drive, indicate unit number [4-12], then (C/R) A@ġ ٿB٨ ȡOAġ@)0ġ  !Eצ RT-11.DIRPE0"ÄˡġDisplay the directory? (y/n) (@{ TITLE SIZE STARTZ"  E   GˡGá[ .  (Put system disk in drive, then type [Y]: Q3The RT11 directory on the Pascal disk was n    GݓGápot foundƯjZ!_Z X h $ dv A     ȡ   .   ݓ  !Eצ RT-11.DIRPE0"ÄˡġDisplay the directory? (y/n) ݡdG  SIZE: צ, START: p!?   ƃr:6D~" T` á systems. The difference between the versions is confined to the  section which tries to read the existing, and possibly damage ؿ>   ;  d,  directory.  %The II.0.terak version makes modification to the I/O drivers at  the BIOS level. They are reconfigured to ˡ_ | ƃƄ;Ձ5@Place RT11 disk in drive, indicate unit number [4,5], t read single sectors and to  override CRC errors. The II.0.g version uses the UNITREAD primitive.  In the II.0.g each of the E^directories 4 blocks uses a separate unit  read, while in the II.0.terak each sector is a separate read. In  both cases this GGGGGG ݢ  ݢ77  ݢ File established at block  Z nצNew File Length =  צ BlocksGGؕGؚG "Enter title of new RT11 text file:Pšצ.ˡ..ȡ P ר A#File Exists - May Not Be Re-writtenX צEnter title of input Text file:PšT` á ؿ>   ;   ˡ_ | ƃƄ;Ձ5@Place RT11 disk in drive, indicate unit number [4,5], t0Recover versions II.0.terak and II.0.g 0  Differences:  The version II.0.terak is specific to the II.0 LSI-11  intehen (C/R)  0"ÄDisplay the directory? (y/n)xrpreter as configured for the Terak microcomputer. The II.0.g  version will run on all machines having standard UCSD Pascal @ ion of validity is left to the user. Unlinked code  files will not contain their linker information. NOTHING will be  writte Ʉ ٛ _ "á-Ʉn to the user disk until after the "GO AHEAD AND UPDATE"  prompt is answered. á,@۹ȡ6 ܍ܡښ@Ǿܓ>Ǧȡˡܡ܍ܡ  W*ܩ˄کM ȡ۩ȡ٩ RECOVER M ġ M ġM M M ښݢݢػݢ ݢá!   .TEXTá!  .CODEݢ ݢ ݢ צFile   inserted at blocks  - ` r @ۓFقenables the recovery of partial directories.   Action: %First the directory is read. Each entry is checked for  validity. Entries with errors are removed. Entries found valid  are listed as "ENTRY.NAME found". The user is then prompted: M آآآآآMצ%GO AHEAD AND UPDATE DIRECTORY? (Y/N) @ "Are there still IMPORTANT files missing? (Y/N)". If the user  answers N (no) then a directory write is performed. If the usYáe쩁"áצWRITE OK9צ)SECTOR ID ERROR--DISK MUST BE REFORMATTEDer  answers Y (yes) then the area of the disk not occupies by "found"  files is searched. Text and Code files are detected aá  ˄   o ġ  nd inserted.   Non-action:  %Datafiles, Infofiles, Fotofiles, Datafiles and Xdskfiles are  not detected. Text files may  צ.9š0  צDUMMYNNX  0contain an odd number of blocks, this  probably means that the back portion of the file was overwritten,  however determinat  06 ás צ A ۏš݂ɡ݂٥ک   ȡ)M ĶɄM آآآآآMצ%GO AHEAD AND UPDATE DIRECTORY? (Y/N) @1 D MġM á ȡF > ٓ ١MMšYáe쩁"áצWRITE OK9צ)SECTOR ID ERROR--DISK MUST BE REFORMATTEDMv<  á  ˄   o ġ     dTRecover - Version II.0.g02תצPROGRAME צ.9š0  צDUMMYNNX  0NTER TODAY'S DATE MM-DD-YY:צUSER'S DISK IN DRIVE: USER'S VOLUME ID:  06 ás צ ڤ ábܢÄܢńܢȄܣĄܣMȄ5ܢܢ۾G@ܢšvܢ Ʉ ٛ _ "á-ɄܢȄܢńܢȄĄܣ Ȅܣ ńܢ  dɄ6ܢܢ۾G@ܢš5 á,@۹ȡ6 ܍ ڣAצHow many blocks on disk ?  "áMةȡa'ܡښ@Ǿܓ>Ǧȡˡܡؤ  found,ȡ٤  k0 Ձצ/Are the܍ܡ  W*ܩ˄کM ȡ۩ȡ٩re still IMPORTANT files missing? (Y/N) @ Yá?8 M ġ M ġM M M ښݢݢػݢ ݢá!  ɄÄ š @ۓ؝m ǦR~lP  $Ȅܣ ńܢ  dɄ6ܢܢ۾G@ܢš5 ȡˡخ ܓ٥ک o @ ڣAצHow many blocks on disk ?  "áMةȡa'ǾĚ@ ȡiۏۏۏؤ  found,ȡ٤  k0 Ձצ/Are theB .TEXTá!  .CODEݢ ݢ ݢ צFile   inserted aؤ  found,ȡ٤  k0 Ձצ/Are thet blocks  - ` r @ۓFقre still IMPORTANT files missing? (Y/N) @ Yá?8 ɄÄ š @ۓ؝m ǦR~lP  $Ȅܣ ńܢ  dɄ6ܢܢ۾G@ܢš5 ȡˡخ ܓ٥ک o @ ڣAצHow many blocks on disk ?  "áMةȡa'ǾĚ@ ȡiۏۏۏؤ  found,ȡ٤  k0 Ձצ/Are theۏš݂ɡ݂٥ک   ȡ)M ĶɄ1 D MġM á ȡF > ٓ ١MMšMv<     dTRecover - Version II.0.g02תצPROGRAMENTER TODAY'S DATE MM-DD-YY:צUSER'S DISK IN DRIVE: USER'S VOLUME ID:ڤ ábܢÄܢńܢȄܣĄܣMȄ5ܢܢ۾G@ܢšvܢܢȄܢńܢȄĄܣ Ȅܣ ńܢ  dɄ6ܢܢ۾G@ܢš5  ڣAצHow many blocks on disk ?  "áMةȡa'C D E F G H I J K L