IMD 1.17: 27/06/2012 8:51:49 SOFTECH MICROSYSTEMS UCSD P-SYSTEM SP20FIB SYSTEM  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ &UT4 :5x $4 0̋̋ ̋P  h T.CODECEDITTORT11.CODECREC.DOCUM.TEXT[7RECOVER.G.CODE[SCREENTEST.CODEIDEC-GOT% eC % C ``` eߋt_v @ @ 7 ?NOT ENOUGH CORE TO BOO? 8DOXY.TEXTjDEC-GOTOXY.CODEמԤ 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 6U@fe C6U@p &  SP20FIB2!מ SYSTEM.STARTUP[Ÿ% SYSTEM.PDP-11:[B%A SYSTEM.FILER:[gAb SYSTEM.PASCAL |[b SYSTEM.EDITOR:[e SYSTEM.LINKER:[SYSTEM.COMPILERSYSTEM.LIBRARY|c SYSTEM.SYNTAX |[ BOOTER.CODE:[s RXBOOT:[s SAMPLEGOTO.TEXT BINDER.CODE:[5, SETUP.CODExÄ\Ü |۞,-SYSTEM.MISCINFOמ-1 READ.ME.TEXT:[18 11.ERRORS:[ß8; 11.OPCODES:[;kSYS.11.ASSM SP20FIB2!מ SYSTEM.STARTUP[Ÿ% SYSTEM.PDP-11:[B%A SYSTEM.FILER:[gAb SYSTEM.PASCAL |BLERky YALOE.CODE:[Cy LIBMAP.CODE:[ŸMARKDUPDIR.CODE7COPYDUPDIR.CODE7RT11TOEDI[b SYSTEM.EDITOR:[e SYSTEM.LINKER:[SYSTEM.COMPILERSYSTEM.LIBRARY|c SYSTEM.SYNTAX | 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.CODE:[s RXBOOT:[s SAMPLEGOTO.TEXT BINDER.CODE:[5, SETUP.CODE |۞,-SYSTEM.MISCINFOמ-1 READ.ME.TEXT:[18 11.ERRORS:[ß8; 11.OPCODES:[;kSYS.11.ASSM INFOR BLERky YALOE.CODE:[Cy LIBMAP.CODE:[ŸMARKDUPDIR.CODE7COPYDUPDIR.CODE7RT11TOEDI T.CODECEDITTORT11.CODECREC.DOCUM.TEXT[7RECOVER.G.CODE[SCREENTEST.CODEIDEC-GOTOXY.TEXTjDEC-GOTOXY.CODEמ 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 your^~T6  TZ`flrx~$,4<DL V*z:```a@N| @H  x h  xCOPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SD @ @f ~f{fxfufrfoflf H_?ifffcf `f"]f$Zf&Wf(Tf*Q NKHEB?<963 0"-$ _ 6_ 8/efAA"V*&'($*!ing eeee e  e e&    Ee7  N w7&  G 7w:pr g/"ˡ! Bad block # 0EE7-n @$@$@$@" fE  &7 2n# %% 7 |% \or right%unless you are in the insert mode, soצ!if you make a mistake, delete the&E7 5@vVq7w k7w 7 bcw ]-@U a$entire line by placing the cursor at'the beginning of the line then enteringצ!thezE z3F E@ nh f:XF?X E@F F-B7 8?2 . 7E@U@ delete mode and typing . Then insert the entire line overagain.  E7 w. wU &    07 7 7  TYPE FOR MORE TEXT/ Once you have written your7 E7 ~ "7 E7 ,tv LwU W 7 .7 , (g E@צ(procedure, have bound it in as describedצ$by the document, rebooted the system &?  w U@w& K C & ^ T7 N 6 0צ$and made sure the editor is working צ%properly, then you should remove this&message. T w  ?  "U@  wE7 wT?  ~his is done by entering the"filer and removing SYSTEM.STARTUP. GOOD LUCK!`lrv~  F j n z  *   X \ p ~ J  , v Z B x  @ b r 4LV W   `E e `&& `& `E e `&EՀ V  ffD e  wl5 wfDeVC:VB@B VC7   ҂  V E e ` E   @ ` G7 7 @# \& & Ο @  e E`E`` A EwwDw J  '((@`@`\7H 7 6W ww N B  V6 E E( (/m ]   P P eeNPP  W    eV7  V& EE dd`z ~ %&  '  " E ee``!  e#    %V   ce D  %    & VAA E e @`& E& AA ί%@ eAp6% "1, 1,1,^  % ^A E e @`&AA E e @`  `:`  @L2 A2%^A&Daef ¥_09E AZ   \^C @@A   J@ PV ``f  ``A  c ҇e 8 ``&& `  f ee $ $ $ $ @A eeee >eJV  E e @a&&6E e @a&E e @a !$'(****AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELSE \VD@`@`$fH@7$`e    V _END EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC7 |% `` B  aBE B<V  wN E   U (f 7@` dd&`f&d&b&  m e ɋ er&7 z%   eN @@ >ZE L4U@ 7`6 BE 2B @ w`&   rhfwBC % e 7jb Aɋ  BP@ Bm> @ BmV7  & & E N\E &  & > U  . @ Bm    h  I Ձ@  a a! F@    DVE `E `E? g& 7h  AF|eA VWFlN   mAɋF! &(  *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE   E@   U@_E7 _R ~Ev7 rl 2 WITH $"7 & & @  7 & 7 n '7 n'7 n"7 nj(7 n"7 n$7 n)\ vw9874 CAYEDITO,RALPH PATRICK 43 000 2 0832 CECERE,STEPHANIE IRENE 43 523 3 nn 4V \'(((@ BCzEG@HPtJ$LM nO(kQRChTV焵W!cY_[ wU  R _&:?ŀ -5 -n b ^ -|\^^k `#ǭaxXc'exfhShjQYkoNmo9?pIrs|ouEw7x߄z @|Η}½  & && nr r H  > P_F  :6 *7 $E7 _n&7 |z67 n`z67 `67 TB`z`z67 <N`z`z66 \ F "  \m7 E7 (U@ %<LN ^wU  E@ \  W  m e5`\_e w5 5@^j x\ɋEf ^& 7 7 8ߊ3 7 | v n "w \    X F 5\\\&       B  BB`   V& $   wC w2 7 $" ?U@  _E7 w|f U?   @ B  B`     V R\x 6>  E7  e&&   v |N v  6 6  hv  FNV^fVpv wU &f&f7 U   8ɝ^&  `   @ (%.% D %e% e @ D   m_E7 ~)˵'ӵU$ aC  `  7Bw|7*m@ 0     A C v %\w @    0  @  @ w    iU? ~zw ^x O 5 7  h5@ 7RB z @& Dr)&&\   5@5@7 T " n#""%""""% % % % "|%"% "%"% eC % C ``` e5 ̋̋ 2@RU@>`F 27 ,5"f&\  \& \\r1@\[?\ ew " ?U?*@ڪAD3LABEL MOD 'NOT &OF OR (PACKED +PROCEDURPROGRAM !RECORD -REPEAT SET 5h @wp75   #̋ 7̋4 PRTV wU  e #@  @6 7 n#(6 6 #?%-0 @ ׳f&& ת(Vol went off-lineת(File lost in dirת(|צ Bad file name(fצNo room on vol(ONo such vol on-lineת(@׳@f&7 % X) n# )f&f&7 l%b)% % % % % ~) &T)   \)f& \ 3File not foundת( t`K1ٹVol already on-lineת(Text file lostת(צCode file lost( C %     @  f&\   B -  e \&f  & N & e\>:L]L?ƪ@ \fEA#& e@ & f& f& f7 n# ) ff w    . )   v     C 6  %%    w 6 &@& *  49 000 3 0310 GUNDERSEN,CINTHIA ANNE 46 540 3 6 %   Dv   0e%6  6  E v v ·ͅ%\ @      3995 HAKY,LISA SUE 46 123 2 8795 HAME,PENNY ANN 46 780 3   D f C_  fW & @&&&&7 $%&%|%$n# %% n# n#$ $%B%e\\;@\5946 HARNER,JAY LINDSAY 52 391 2 1158 HART,KATHERINE ANNE 43 780 1  \N @   =@f&ysE[\pCf&f&\% a @w   6 6 & 8185 HATAMIYA,PAUL KOUSO 49 073 3 8145 HAYS,DAVID JESSE 43 540 2  f 6A  v  6N\&f f & G   v  76   p5 FILEHAND   d deA @ A @ %  A @ 6v %\%    w    `@ `   ` `  \\ N A f C %C B    \ w  D& &&@7  ,'D& && 6  A7 ^n#~'# '~'#' '~'~'%'% % % % %p' e\ \S\ e& @7  'T'e\'f& \:יc&>X4%]@& & & & & D&Gצצkת{צcתת(WצSתԦת(KצOת  &D&& @%7 rn#0(  IA e e@ e& & & & & D&&n`Äצ(ڹצParity (CRC) error(Bad unit numberת(Bad I/O operationת( Timeout error  ɡ& 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ۓ$=?N۪ڪƁK""áN׷9& צ ? "'ز=g(=g=&=g&Pɡۡצ ...too long <ٹFצ file n File foundת(צBlkd vol( Unblkd volת(צ File name(צFile/(unblkd vol)(צFile/(blkd vol)(צ  ڪ٪ت&:&Pɡ(š File/vol(Vol nameת(צOutput file full(Workfile is savedת(No directory on volת(No workfile to --> 4ثضÍצ$*á-:á?:saveת(Wildcard not allowedת(צ"Bad form (Wild Non-Wild) card(Ill file/vol nameת(}Ill change (Vol <:á ;&Pġ - عEXå[ׯGC81(o*to> file) nameת(UBad dest for files foundת(4,"iEbUġ#(צ  MJLN0A$6Uۡ &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' PܓÄ)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 *[")ǐ ),, 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,ame < scan string #צ vol name  M8!ۡ1á    - char. max >- Ɓ3"ݣ ɡݣ  ڕš"ق Illegal formatT<=ڲ= ݪצc&.צ what fileצܡC׷C#ÄÄ~Íj%á*צPut in G:'צInsert destination  what vol ?  , gg#š=jgjPg?=ɍ :disk % š " ݢÄg=#g=ɍ=*á =*jjjצ:j($hh=ɡX="#š=P="=ݢÄ ۡ"ˡ ݢڶ /ݢ0/0 /0"=h"h=h"h"=P=gg=á?gg=ɡ, 󍓡 =g/0 0 òCń /C"ݢݢ///צ://td צT  v%.ת&תת(&Ɓ.񄓡9&צThrow away current workfile ? Dir listing ofצ׷١糖 צ#1:(ƃ"١̅.̅-̅,̅+̅*̅) ̅( ءצ*SYSTEM.WRK.TEXTצ*SYSTEM.WRK.CODEצ*SYSTEM.LST.TEXT**.*צ.BACK*צצ Ä . %̅,ړצListƅ-~$ʅ.áWriting.ʅ.̅.ʅ- ̅/Remove  ء&צWorkfile cleared&Tf ' ݪܪ  : .  ǀʅ- ʅ//ʅ/ʅ/̅)ʅ(ʅ)̅(ƃʅ/ƃצʅ/ƃʅ) ƃʅ/  ƃ-ƃƅ0ʅ/ á@ .  ڲ צ& * )'Getצǐ&G.[0ƃ-ƃʅ/   ءQƃʅ/ ƃʅ/  ƃƃƅ0ʅ/ƅ0ƃfile3ƃʅ/ .&ؓń=.צ.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 ?  Text file saved  & 0צCODE  #צCode file saved62"o.,%ö,ÍP$&,􍓡~%K:, %,,,|.צצ not named2 Workfile is :.񄓡 (not saved) No workfileڶ+šڸ+*ڂ*ŶB < UNUSED >     .p/ƃƅ'   ۢˡMoving ۢۢצ SYSTEM.PASCAL G?   š "0 & L (*&brB\( "&`'"#))'D+*,H--*..\//x0001B1Z1h55p8L5H6G CK"צ: zeroed p1šצFile(s) endangered:Mȡ " " ġ  7l\ؤ áצ Directoryڢڢ  v 2צCrunch@צFrom end of disk, blockצStarting at block # 3 % forward ת ˡZ ȡ<ڤ š+ؓښڤ ȡ3ؓ R j3צBad block scan of ȡ'  š 7  צback  ġ ɡ7 GצHScan forצblocksScan for how many blocks ܕšۏ"ˡ`ۂȡQ : 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 ~%  Í`  PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD š  P&:+:azȄaA:) Type צ to continue) & ,Í ˫hp(Pצצ22ȡ5233 ȡ 23aĩ3zȄ 23aA22š*á ?צ:22ȡá;2á!2ȡ5252š[ץ22š2222ȡ2š5252á`ɡ`&š`&ɡ`%š`%`$```$(`!á  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*~    Ä & ! !  Ä  1 Ą ɡ 낫š ꓡ2š땫ĚL  !š Í 7ÄU ǐɄ:6ń~6Ú š a "á61 ɚ6! á ~횩 ˄˥ń á  l šš áš    uš  gá /Ä+  ɡ"á šš!邚邫镫ë퓡S  ! "ˡ! "ˡ a˄ ת     "ˡáˡ á xń# Ȅ 隹K n á9 铡/! !!á/Ä   ~ 1ˡ) ! 767( :VQ28˄á1 š2    šš$ !邚邫镫ë퓡h  `+ \ (   d˯7 H ȡ šá  d1  dÍÍˡ 퓄 Ä  צ0H" ġ  *@#ٕš퓡  dÄÍ" ˄"ɡ  dá  dá C#C ګ۫ š۫ ګ,0   ȡQɫ  ȡ 0  0ȡ˄ C      áá ~צ/13:? ȡ  ġ  á ġMáš6 삫뻥!       šˡ d #( /Íáɡ 럚肚X 퓄 Ä퓡w š   ɍL  "ˡ. ū   áš  h ! !ˡ   d쓡  21šá.   ɡ 逫-á-32768ת Pġ>o00ń0ˡ o8FNo user programתP8F0turn  RáEáꥂN` 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áá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( ! "ˡ ɡ!  ! "ˡf á3 á+á!"ˡ"& E ##&Eá +6+6ˡ6á   "ˡ  +Uz  Z4" V(n|l> J.*L  .Tf0 zL d2  !#Oš *š  4T hE$ á"ˡ"& E ##&Eá +6+6ˡ צSystem IO error(צ unknown cause( parity (CRC)ת(צillegal unit #(illegal IO requestת(צdata-PILERת :SYSTEM.EDITORת :SYSTEM.FILERת צ:SYSTEM.LINKERƁ&̨<́b ́cʁcȡ~ؤcom timeout(vol went off-lineת(file lost in dirת(צ bad file name(צno room on vol( vol not found́dʁdתʁd0ʁdʁd؞&"á*ʁd ضá0?ʁdצ*SYSTEM.STARTUP(߫7ת(file not foundת(צ dup dir entry(צfile already open(צ file not open(צbad input format(r%́eʁ%ʁeȡlضʁ%ʁbQ́fƁfʁdƁfƁ&ʁ% Ɓf(ߡʁ% ʁbʁ%́bʁ%́%ing buffer overflowת(צdisk write protected(uillegal block #ת(]bad byte countת(Fצbad init record(.;??ٟá'C CONSOLEצSYSTERMGRAPHICצPRINTERREMINצREMOUTex&}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!  áצ 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%7詄% š t Welcome ?צ, to-*SYSTEM.WRK.CODE[*]תצTo what codefile? (צ,áuצ$,,ˡ-U.C.S.D. Pascal System II.0Current date is C -C-,::(,$,]ˡ$-::(:צ.CODE[*]0:--"ˡ צ Can't opeC %System re-initialized(, 06" 0 MayתצJunJn -   áث 7_a 7& š+ ulתצAug Sepת צOct Novת צDec ???תצ??????ת6! š%צSYSTEM.WRK.CODEsSYSTEM.WRK.CODE׷Fš5ު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쓡 2IھPھNéN˄  ˥P۾ܥOڂ  ٕ ݞ݂ ˡ !U܂Zhڡ?١ ( P!کN˄9!'۹  vڤVڳNĩ1ۥ č%`wȡ'ڤġڤڤ؂  * 񿥆P&  IĩIɄ I؂ IHZګ ء8ȩ쾩 쾩 vPv v&áٕٕ:áܕܩܕ   á   "á <&ȡ<-á á.á é Äە߂ũȍ0 á   ٪P&áצERROR: á<& Please press to continue.۩ߞ á<á / é쾩Í ߂  á߂߂܂܂צ*Command: U(ser restart, I(nitialize, H(altP')%$z쓡 áR۾8۾áݩ۾ ۾ á ܕR` Linking...ˡ&צ Restarting...צ U not allowedۥ    ڞڂ ˡ  !Uقč ~ \6F& EDITOR w^  á  ܂áũؓɍš  ٚáء  INITIALIOUT COPYFILEENVIRONMPUTSYNTAEDITCORE e   ݂ɡ  ݂ەݕ ; Z-š 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 IJ 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    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"á   d>h ٪Pצ what marker? -P,-V$I HIآ"Hآ$Iآ!Hآ$Pأ.Oآ/ POPآ),Vȡ-,-, ,,-- -- C ƂNƃz   šOآ/ Pآ-Oآ/ Pآ,Oآ/ Pآ,Oآ/ Pآ'Oآ/Pآ á á  á ƂN-R; v< ~*^LLbP& F > Z   ~ 'Oآ/Pآ(Oآ/P آ(O آ/أ.áPáPJO ,  B!۩ߞ á<á / é쾩Í ߂  á߂߂܂܂Pپخ%v ACDFIJLMP Q R S V XZ,>.+-?/= :v CC^v̂5ʂ5ȡܤܚAẐ5ʂ5ȡܤAaẑ5צImproper marker specification.  2ꂶ6צMarker exceed>Quit:תP# U(pdate the workfile and leaveצ E(xit without updatings file bounds.ĩ :ꕕ,צ[á$ + R(eturn to the editor without updatingצ% W(rite to a file name and return ר  צ]ɍٲˍ.ڕ.P..P,áؕ" RáEáꥂNWáצ)Name of output file ( to return) -->ƂPƂ     ە ..ȡ۲۾ ..ȡáƂ̂.ʂ.ȡƂƂ۾ .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.ĩƂ=  > K%̂5ʂ5ʂ5ʂ5ʂ5 ʂ5PHGvXTN*SYSTEM.WRK.CODENתeצ4Do you want to E(xit from or R(eturn to the editor?  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ꩂƂ=fV^vdN  ׷   ׷ U=ˡ צ Date Created:  - -  Last Used:  - ׷     ׷     Ƃ=ƃiצ& Copy: From what file[marker,marker]? P -   Jצ Not option d ƂPƂá Ƃ=Ƃ# Copy: File not present. Filename? תP"áצ CopyP  Ⓞ wi[M=/AT(k) geQ"c&ڕɄ čⓄ% Ʉ "ˡ Disk Error.ĩƂ=; E &(38 xؤá   ȡ.ءצ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&   á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á ɡ"צNo room to insert. j˄' ǀ vá(ȡ  á ĄJ IꩂJ멂JꩂJ ĩ Fá * צJump to   ꂫꂶÄ  Í  K \ةwxؤ xؤ  Not there.ؤ ĩ.\ $ JUMP: B(IJڶȡ6No insertion to back over.   oڶġd5Please finish up the eginning E(nd M(arker תP  Bá)EáMá ةˡة$ insertion   ڶ š Buffer Overflow!!!! á  i ĩ צInappropriate environmentKR  w w > ! á ^á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 ؂ȡ ؂ġ   b   Ȅ5  ɡášĶ  rflow<) <á"#˶˄ >á#"+ $   Í      !ń9  á   á8á  á  Cá1á  á   ɡit"  Ʉ: á    |  *ȡGھ á-ń ۂšĶ   #<áTń1 á  ꂫġ ھO Z+ȡˡˡȡ ȡ  ø ɡzɄ2  ɡáĸ š# Í 4` x š ɡ,ń    $%&؂ɡ šٮ ݮ+,    IP Ä؂ jš앞0dšצBuffer overflow' 앞ˡ앫؂  vá   w"#<á"# |!x$sá< >  (  P  Nġ Integer Ovflw) <á"#]_nlDtٕ ,˄ Ä˄Ąۄy á  háOȡ% ˡܡ Má M vá    á< >   ȩMd$ Tá(J    á áث8   Ʉ ܹ-(1ڕ($ڕ( 4-"á(wá (eDŽP   ڂ٥ č9h  ^ġ) á (- áڕ(ڕ( ˡá۫ k 'šA>áš (š  ) <öÍ   ˄#áR)  M;%*&&<á%&  ń     ɡT "$"#<á"# !$šToo many$ġצInteger Ove   ö D. ./ Lá .Vá . Tá 'R' replaces, ' ' doesn't 9 á Rr˄Fš[Fš9צBuffer full. Abo . VTÍLÍ/SsÍV^0/L(Invalid delimiter. rting 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 ١ނ߫ á: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átÄ S ٕ܄Lɡ ꕞ ٩ٕٕ   ȥ  Ä: N6.۪PڪP.P [M /ثLK IٕJ٫ ö ݓ -á- á'*  á צ]: ء% áL(itT(okz9z  Replaceצ' aborts, ˡsegtbl read errá>-2-2ȡ+/c-˫ZZ--Z/ -0,šá8 ١צ li read err ١آ&SYSTEMLELINKER á11/22`-ˡצ bad byte sex02`-Ä02-2`-˄'2` -ˍfunny code seg2-2-ɍ2-,ōצ bad diskinfo2`-1צ bad seg kind2 -  bad seg name,š----š0ÄצAll segs linked,á/[`9ȡ Linker [II.0 a2]E˫[':'צ in workspت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ë[ !šš (ǐɡ sep seg 2 big ȡˡsep seg rea@1 undefined˄$ܚsX$ f"؟ˡ&&&آߣޟd err5Ǡō bad proc dict!   #ȡ ˡˡš ޢ? ɡڟá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)  (! (ǐɡ%(ǐɡצ out of mem  Wȡ צ Sep proc refs -؟ˡ# צ Local seg refs ؟ˡ צ  ˡsep seg read errظZ+! (ǐġ public LC =   צ const val =   privat LC =   צ unit seg# =ނ  ȡ݂ˡצ proc read errLáܞ  _ glob def in    @  s j Q  +á؂ ,  ݟˡ  ˡ+J Copyin@ ;&H_0 O Linking #צ #  g  áצproc func  N,á(׷0*--.   !/Ɓ ƂL/צ Output file?  ' ˡٕ! *ٟˡ  f}u fׯ2*SYSTEM.WRK.CODE[*] 2 "ˡ Code open err ƀ  ̂MʂMȡ'@á [ɡ addr oflow$g[NPi  ˡš  ƀצƁ "ˡ-צ Can't open ת'WƁ Link map for ˡ#ڢ욥    ˡ+  "؟ˡ`%" '" ٟˡؓ c ޟˡáߟᄡ:á. ġɡ ᓡ6 ٢؟ˡ 8%"4o(ǐɡ no mem room$ڶ ڶڶ,ɡ  - á'ȡ  ܶˡ seg read errڕ 2ضˡצcode write err  ڕڕˡ4šٶەەڞ 6 $) "  @#؂.  Seg #    ,  #  ޟˡ á ڂُȡצ size oflow)Ǡ  ؟ˡ Sep procs ؟ˡ צ   á  proc  func ޟˡQ ؚá6ǠǠšצproc num oflowǠޢǠݶq  #    base =   leng =   ȡ١.؟ˡ" ,$ T@ F$ h###f$$2%%%%%&&L&`0n ת'WƁ Link map for ˡe), E(dit EÍeÍ^ÍEeÍ ^U ǐÍ ^ /<W >Ɓ #Ɓ Ɓ צ 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ڞá% š  ,$ T@ F$ h###f$$2%%%%%&&L&`0n ת'WƁ Link map for ˡڞ d66U6Zń/צ>>>>>> 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("ëƁ #Ɓ Ɓ צ assem hostƁ Ɓ  #̂MʂMȡ" ˥ ˄//Z 2 ˡCode write erráh2#?SYSTEM.WRK.CODEת׷3ˡ'Ɓ צnext ^^^Uˍ^U^^ؚ^E/)ǐȄ Zá .Z Z Zڕbase LC = Ɓ Ɓ Ɓ Ɓ r2Ɓ^&2  $F.  n \:ڕǴצ <<<<Line W , error  :/2( (continue), (terminat ) -ë/򥂀 z+ë1s-ë#l+ë(e+-Í-ë11-2$(0 -CU&fc^ [áڣb 3g3ChG4E(DFCBښxrmhc,ˡ áá)}Í+-*68Fu!^:,+,+á !ک9áˡ <  ڟˡá 9Ä+ á +'á,'ˡ++%++á #R---+-+RZ     y2y y%á:á9% ީ4 ޢ  '09ō.á7.ˡ. 09ȄáEáL ޢ ǂإ (é`á  á  ˡgá áVީ;áá -á  +á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   آآ;;آآ::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 *STá OO&J XIō~ %M >á á á  á BOOLEAN ۢ8ۢ  STRING רۢ4ۢ  TEXT ۢ7ۢ  INTERACTרۢ5M Mé Äܓ+MáM Mé ÄmܓMá áۢ @ @INPUT רۢ7ۢۢ ۢ @ ? ?OUTPUT ۢ7ۢۢ ۢ ?  KEYBOARDMÄ% Ä  xMˡݣ 9.*IÄN+N[ۢ7ۢۢ ۢ  ȡN ܢ8áFALSE TRUE ܢؚܢ ښܢ 8ٚ I \M!M MON Iá>D.  MáNIL רۢ6ۢۢ ۢ  MAXINT ۢۢۢ   ZG G רآZ^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 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@š  ڢ  ڢ ڢ ڢ R ȡ  PASCAL Compiler [II.0.A.1]< 0>~؟آآآ(T  / ł ڢ ڢ  ˡ   ٶ˄/ڣ %ڣ áڢ ڣ ڣ Ȅ ڢ ڢ %>PNmmDz I~؟آآآ N>>آآPROGRAM آآآ ٢٢٢ á   ٢٢٢٢ 3 3 á!   áR +GOTOXY +̀ʀȡ{(ٳ %`ٳڡ  ̀ʀʀʀڡ ʀآ آ آ آ آآآ!á^ áN>ˡ >>   á (má  á ʀʀ ʀ ٚ b ODD CHR MEMAVAILROUND  L M Mآ آآ>آآIآ\آ آLj z Z }*I / SIN COS LOG ATAN  LN  EXP  R ȡ  PASCAL Compiler [II.0.A.1]< 0>~؟آآآ(T  SQRT  MARK  RELEASE IORESULTUNITBUSYPWROFTENUNu 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 ߩ:  á$    Í kk    áá> 9"ڤ "ڤ ~/rڤbڤë'']PP ߚ       ˫  á   PPš Nۢۢ"ڤ ۢ ۢbڤۢ[Ǿ á $,Z+U)Uˡ ál ˡáá&     ޟˡ   68 Iˡǽ   ؓ*$<ؓ˄ $+<́ʁˡʁ ʁ́Ǽ á؟*/1-" h   آآ ái3 3 á)  إآ ء"ƁTURTLE ר́́Ɓ\Ɓ [( צ words]<W >آ=آ =$ ˡ ˩   l   q q qu ́ [́Ɓ ʁoƁ ʁ́ʁƁʁ<ʁʁ' ʁ ʁ ʁ ʁ<[áʁ 'Uá+á$ ] ] ,á á    ߚ ' ʁ ʁ['ؓ ˫ ˡ  ؍ؓá  ʁʁƁ$ <0ce2 ޟˡ1ȡ$ީ;á m á Ǖ ޚq ˫  á   á  #áS~؟ٓˡ Ǧ ٓ۩ۢۢڢؚ       ˡ ál "ȡˡ9   ˫  á   ˡ  á ۥۢۢۢ )é Ä   ȡ ǎ   ߟá-á  ɡ ~  ł   آٚآ á%   é   ˡ   áU  ˡ8ȡ,; m   ء n     ~ߚ á  *á  á   ߟˡ%Íߩ;Í s  ߩ;ár    ł á       ˡ o   ߚߟˡ% š ǩ \.áW ǿ    á  ٢٢ ٢٢    ˫  á  á  á (  š ߚߟˡ ,(  ٟá138:+ Aٟ٥  öń ˡ%      ł  á%    ˫ -N٣ ë''٣ [N٣ /80"ˡ ǻ 0ˡ ǻ  á%   é  =ˡu ={ áM   ݥݢٚ ɡ. ~ޡ áޓܢۚo ޓܢۚáP á4ޡz  ݢݢ I ݢ ݢ   ] ] ˫  á  ܢݚݟˡ x ܢ   ޓ{ á  ܢ5é$'IˡǷ  $Ǹ ء]ٟˡ<ݢۚݢ ܂ á۟ˡáݢ~~ؚá%     [( צ words]<W >\*5á+  é  ]=ˡu =OS ^   áw   @    $ܢ"é Bޡǡ ܢ"á á    @ ! @á  ˡ = ߚá 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   ˡ"g . VCˡˡء!%" أ } } nˡ} á  á  " ˡ} áR   ˡ Ä á)  6I ' á" ˡ} á   ˡ}  á :ȡ ǀ  (ǀ 3ámá šˡ ۚš$ ~á Iá)6    < ˡǖ g    ġ  á ٳ0d@ h ٳ ǀ  FJ)ÍȄ ) :ˡńi; i iáݟˡˡ NJ  á ؂ ؂ #Ȅ ؂ خ @MÍǀ   Gڳáق ˡ ˡq ݟˡ < , 1 ˡ䀮šNj ˡ>'šخáخǀ  خj[ؤ[[[[Ǖš +2 ؤá "Oá 1 @$ńˡá  áˡˡ nj  áˡu á ؤ 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أ á'أ أ  أ ! ˡ}  ˡǏ á  á  " ˡ} á   ˡ} ˡ 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á " á ;á} ˡá;á}  >á  á  ˄ٮ%"ág ˡ[ M K; <:  )9 M     ˡ ˡ} Má   Má  8خ2خ"ɡٮM2خ˫  ɡ  šث  4 ٚ M} -˫  áٮ%M- &?ö;}R ˡ(á!9á t á +ˡ/îá2خá   ˡ ˡ} á " á ˄ۮ%&؟ˡ#š á$ á% &ˡ ˡ     ˡ ˡ} á/M2خ٣ɡ ٣ šث ٫+áMM: á ١M ة;á5١á" " ˡ ˡ} rة:  ١]ة9á ١MJá :} á     t ^"ˡ ˡ} ás á ١M5 )ˡ ݕ١ܮܮM} -˫  áۮ%M-Y4eNORMAL ILOCK ׯ 2PURGE CRUNCH ׯ    M- 'ޣ á ޣ ˡǐ áٟá~  "ٟ˄٣ڟˍ٣áȡw9Ä á \ "ˡˡ}  áǏ Xá   ˡ} } FM?M8ˡ 9ˡǏáá :;é1 %ک;  ; 4D Ä ,'S  M (_83 6-!ˡ ˡ} á  )á á á}  }ˡ ݕˡǎ ګ1á&ág ڟˡ ˡǎ ǚ  ǎ ٟˡˡá    ˡ 9ˡ} á  "á    "ˡٟˡ~ ޣ áޣá V"7ޣ ޣ ÄOޣ ޣ á Mޣ ޣ Ǖ ޣMޣ ޣ Fޣ "   ܮˡá ; á9 4 ˡ ȡ ܟ˄á+á   ǁ  ǂ ˡ )* .   :     á   -8Ä퓫 ˡ8ˡ LJ  S. f  ܩ;á ܩ8á  ǃ   DŽ  u   á  ˡˡ Lj   Ȅ   %  ˡ  ǃ 5ǃ  "Dž  o1 á @ áG    lj ޡȄ   ޡ 䔜ߡlj*564/1(0!7/ 1, )ǁ 8 jF@خá  ˫  á  ߡ,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, (é`   ˡ ˡ}  "ˡ ˡ} ˡ!áM )  ÍM,. á";áá dž (á  , ܟ˄)-á ;ˡ;áá} U'NweD+$&*,._ 6*Ä?ܩ;;Ä/Ä  dž )*Ä?ܩ;;Ä/Ä>@DFHJLޡá  (s ;;Í؍á ;á ٩;0)Í!á  dž (ܩ88Ä  dž  |& +ˡ ە :á ة:6*e: e e^  ܣáܮ&ܣáˡǁ ؚ,.+)á 9Íˡ ȡ  S + 9#  9߮ ٟˡ٩;Í ǐ  á    ٟˡ^ Oܟˡ ȡáǜ  /#!  /# @# ( Tɡ Tˡ;צ [   ܚޚ۟áښǓ ˫  á  /aڟˡ9 ˫   Í߮ words]<W >ˡڟˡ ˡtáašQ2 6ٮ / ݟˡ` ݚܟá ,   9 š   ݟá á  >=jF*ˡ (ޕ( áWV~ܟˡ ܢ  .Iá(<ڟˡG#4 خ/a˫   á خ 5 EG V5 ٮ@  ġ ڣ M~ڟˡN 2 2 ,á5á9áMIéخ á 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 ڣn1/a˫   á  8: B2á8á ܓ ٮ á a `}p  ܣá ܮ0v 2o 1h 3a 4Z 6S 5L 7E 8> 4  /ܡ ۡګ  á-ܓ  9خ ٮ /ܡ ۓګ خܓٮ 3 6h  "$&fZUIRFAm!dš  &  JJ7 Ql  $ M M I ɡ- ~ݟˡ   á   0'&6á" é ڣ  ,ڣ ڣá ڣ ڣ á[ڣ áOڣá$ڣ"  2ˡ "" N NN 3á   _4ˡ a  " "ڣ"  " ١qˡAۣá "ۣáȡ  \ &š(&ˡǒ *Nݢݢ" á   ˡ`  ڣ 0  ]Z@B.١NáöÍá  M I\[ M M! Ddnt ݫAN؞ (١ بȡ      áأ ` أ  أ   M M I ɡ- ~ݟˡ   á   0'&6á"           ȡ   á     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؞ (% á ޣ Ąޣ ݣ ˡ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 $ "TYPE DECMAX = INTEGER[36]; STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGERؼɡ ؼ߀$ ؼߞ$"Hɍ -   $[12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:I $ ݞ$' ݑ$ $݂ō $݂ġ ݂$NTEGER[36]) /END; ' " "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCE $ $ȡ%  0 ފ$čQ   .ˡ5  Eɡ DURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWR -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑ0 ݕ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&  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    -w` F   &  & w %%  | x |rntjfhX \L -LL   *      l  b  w!     a  E _ ,/36:GJNQUbeilp}  }rg\QF;0%á vJ  b h^  XVD$`h d  20$`   +-Í-۲z0ݡߑ ع   747( a "  ` $$ _ * ˕͕07 7 2w&7$" G8  2jh$,7w& <  & 6  D!@   ͕- ͕0  F\  F  ##- (     Aa@  U  D D   D !@          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. '  108:File not allowed here  109:Type must not be real  110: type must be scalar or subrange  111:Incompatible with 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 declared 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 suO^cted  55:'TO' or 'DOWNTO' expected in for statement  56:'IF' expected  57:'FILE' expected  58:Error in (bad express%[ion)  59:Error in variable  101:Identifier declared twice  102:Low bound exceeds high bound  103:Identifier is not of the appropriate class  104:Undeclared identifier  105:sign not allowed  106:Number expected  107:Incompatible subrange types ( brange  137:Set element types must be compatible  138:Type of variable is not array  139:Index type is not compatible with thd in UNIT  186:Labels not allowed in INTERFACE section  187:Attempt to open library unsuccessful e declaration  140:Type of variable is not record  141:Type of variable must be file or pointer  142:Illegal parameter soluti 188:Unit not declared in previous USES  189:'USES' not allowed at this nesting level  190:Unit not in library  191:File noton  143:Illegal type of loop control variable  144:Illegal type of expression  145:Type conflict  146:Assignment of files no allowed to be private  192:'USES' must be in INTERFACE section  193:Not enough room for this operation  194:Comment must appt allowed  147:Label type incompatible with selecting expression  148:Subrange bounds must be scalar  149:Index type must be ear at top of program  195:Unit not importable  201:Error in real number - digit expected  202:String constant must not exceeinteger  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 allowe)  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 undefined0צ 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* N "IF X<0 THEN X:=0; "IF X>79 THEN X:=79; "IF Y<0 THEN Y:=0; "IF Y>23 THEN Y:=23; "WRITE (CHR(27),'Y',CHR(Y+32),CHR(X+32));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 GOTOXY(X,Y: INTEGER) procedure:Pá "ˡ" ++P+צ.CODEU+"á2 SYSTEM.PASCAL"ˡ2ˡ+ZZ ++++2+ˡ ˡZ( BINDER  ٚ.ȡ$ˡ,(*The following is a sample gotoxy procedure for the VT-52*)  (*$U-*)  PROGRAM DUMMY;  PROCEDURE FGOTOXY(X,Y:INTEGER);  BEGI  Tȡܢ"6 ERROR ( Pas+ ˡ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 ( Ɓ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+צincompatible byte sex+Z ++++ +ˡe  INITS TEACHSET ZؕܕZؕܕ'ؕ'ؕە''''۞ۂەZ Y]U9Copyright (c) The Regents of the University of CaliforniaˡF\ PASCALSYר\욶\UXXUU' Yض[ ZتPٓצ BUG LOCATION צ'PLEASE WRITE DOWN THIS LOCATION AND ANY&SUPPORTING DETAILS YO, E NOT DONEE(XIT) TERMINATES THIS PROGRAM"DMC ,R썡E07}---! !->(-)-! !-DIGIT<-!! !!->D{DECIMAL}!ڡצ OR IF YOUR KEYBOARD CAN C(ONTINUE) Q(UIT)CUN Vצ OCTAL DECIMAL HEXADE GENERATEצ%THE VALUE YOU WANT, JUST TYPE THE KEY&AND THEN TYPE CARRIAGE RETURN, OR TYPECIMALء.ǀɡצ ASCII ɡ CONTROLɡ 1) ń ġ$THE ASCII MNEMONIC FOR THE CHARACTER C(ONTINUE)Cá &  쓡jWANT TO CHANGE THIS    ń ġ= ɡ  VALUE? (Y,N,!)YE@썡p | Gצ NOW OCTALL 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 OFHE NEXT SYSTEM INITIALIZATIONצ"R(ETURN) TAKES YOU BACK INTO SETUPצ IF YOU'Rצ'--DEFAULT----!----------->DIGIT--->(CR)"! ! ! ! ! !"!->H-{HEX-  $ 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(K FIELD: `쓄Mצ DIDN'T FIND NAME OF FIELD: 쓡cR TצFFCRצSOSIצDLEצDC1צDC2צDC3צDC4צNAKצSYNצETBצCANצEMSUBESC쓄<쓡4 FIELD NAME = آخLצ#CHANGE: S(INGLE) P(ROMPTED) RFSצGSRSצUSSPتP+ +(++!T&ڪP. (á  W(ADIX) H(ELP) Q(UIT)צ&S(INGLE) ALLOWS YOU TO EXAMINE 1 VALUEW--̀ƀצENTER ƀVƀ/̀ʀPʀʀٚʀؚʀʀʀʀW.צ BY NAME'P(ROMPTED) TAKES YOU THROUGH ALL FIELDSצ(R(ADIX) ALLOWS YOU TO CHANGE THE ASSUMEW.PتP,+,---ٚ-P-,-V6TFTRUE׮FALSE׮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. GOTOXY 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  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 "TREY TO MOVE CURSOR RIGHT(צKEY TO END FILE)צ KEY FOR FLUSH)צ KEY FOR BREAK*צ KEY FOR STOP*KEY TO DELETE CHAALUE, TYPING "*" TO THEת( !"PROMPT "NEW VALUE" WILL ESCAPE THE׮צ"CHANGE WITHOUT ALTERING THE VALUE.Y*RACTER+NON PRINTING CHARACTER+צKEY TO DELETE LINE,EDITOR ESCAPE KEY,LEAD IN FROM KEYBOARD-EDITOR ACצ%THE LINE DELETE CHARACTER, "*" ALLOWS(<(YOU TO DELETE A RESPONSE YOU GAVE IF YOU׮צ'HAVE NOT YET TYPED CR. CR CEPT KEY-KEY TO ALPHA LOCK.VERTICAL MOVE DELAY"G  /ڢתPڢ/ + +צ +צWILL BE SENTצ'TO THE TERMINAL AND YOU WILL BE ABLE TOצ'START OVER ON A NEW LINE. THE BACKSPACEצ(CHARACTER, "*" WILL D L@æINITS ث /ȡ٤٤צ INITIALIZING  ELETE YOUR RESPONSE( /צ%TO A QUESTION CHARACTER BY CHARACTER,צ(ECHOING EACH CHARACTER AS IT IS DELETED.%THE ECHTE 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 A/ O^ A' or 'B' expecteddexed addressingPROCtBundefined labelcteddexed addressingPROCtBoperand out of rangeexed addressingPROCtBmust have procedure name addressingPROCtBnumber of parameters expectedessingPROCtBextra garbage on lineexpectedessingPROCtBinpUE" OR "FALSE"צ (AND CR). FOR MORE INFORMATION,$PLEASE SEE THE SYSTEM DOCUMENTATION.׮z צ"HINTS ON DEALING WITH BACKSPACING:'THE 'KEY TO DELETE CHARACTER' SHOULD BE׮(SET TO THE KEY YOU WISH TO TYPE TO CAUSE׮צA BACKSPACE. THE 'BACKSPACE'צ(CHARACTER WILL BE ECHOED TO THE TERMINAL"WHEN THE 'KEY TO DELETE CHARACTER'׮צ IS TYPED.   .d< L d  OR THAT CHARACTER,׮&JUST TYPE IT IN (AND CR). BOOLEANS ARE׮צ!INPUT BY TYPING "TRDOCUMENT ADDENDA:  THE TOGGLE BETWEEN UPPER AND LOWER CASE  (ALPHA LOCK) IS R.  HJKCA PABDC ?0 QU before use if not to a labelCtBmacro identifier expectedot to a labelCtBword addressed machinetedot to a labelCtB#backward ines 1eB(lost file, file is no longer in directorBbad title, illegal file name in directorB#no room, insufficient space on disk.ORG currently not allowedbelCtBidentifier expectedntly not allowedbelCtBconstant expectededntly not allowedbelCtBinvalid strectorBno unit, no such volume on-linediskectorBno file, no such file on volumediskectorBduplicate filech file on volumediskecuctureedntly 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 intBoluteametersexllowedbelCtBillegal 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 .PROCtBut line over 80 charactersessingPROCtBnot enough .IF's80 charactersessingPROCtB&must be declared in .ASECT before usedCtBidentrracters 1eBstring expectedrdn .ASECTmeterracters 1eBbad block, parity error (CRC)rracters 1eBbad unit numberty error (CRC)rrifier previously declaredore usedCtBimproper formatiously declaredore usedCtB .EQU expectedatiously declaredore usedCtB&must .Eacters 1eBbad mode, illegal operationC)rracters 1eBundefined hardware errorionC)rracters 1eB$lost unit, unit is no longer on-l1 N&6 B %. TLA @[( ]<! >#PDII I IPAGE - IMTPD MFPD @MTPS MFPS PC SP R7 R6 R5 R4  INITIALISYMTBLDUPROCEND ASSEMBLEPRINTERR R3 R2 R1 R0 MARK SOB ~TRAP EMT BPT IOT RTI  RTT RESET WAIT HALT CLR CLRB COM @ COMB @INC INCB CCOPYRIGHT (C) 1979 REGENTS OF UNIVERSITY OF CALIFORNIA AT SAN DIEGODEC DECB NEG NEGB TST TSTB ASR ASRB ASL ASLB ROR II#ffIIERROR #I IءEI"I11Iצ.ERRORS" file not aroundI 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)#fD2 c 0c 0ˡ*c0c0c0c ؓB  B @٫>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)é:" I IoIצ FILE:IDIIצ IIII ""stt4tssts.|&/-u! (,$. W|gknV !!D.!2á  7á  ɡCcc cIצ|  $ 434r%á qr%á II| Iceše#áI#III IInǀĶȄ<r%á qqr%á ácX #3*j& ءUá"IHIHá'I I :n١qo7ppˡ  s1ssI á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'(<! 'ؤ>Gáš%GG ˡH) ˡšo+&á+&áon+p+%HšnHš))(á#3@󓄩Ä DAá<#橂ˡ%<0 P P ˄ 0YYH) ëC))H) ;áf H) )؂) 0 éA:f H) )؂) ˡ á C%o onꫂs%onꫂs%onꫂss^*ō˄ J(ˡonꫂsV&NC  "$&(*,_acegHš 뚶á#á  òHÄ&rq뚹áˡܤܤܤܤHˡšFOHÄf_!뚹 %rqQSUWi$od,u0>@BDFHJLNPTVXZ\^`dfhjlnprtvxz|~ ˡġݡHáٳyG  ,4,. P P~7Aġ .7.0XXPX.ǠXP$س$$$Ä?oڳ<<ڹ$$Íޢۂ$ˡػÍHá8.á .á$BáBá>E.ڹšMɡXX.P4 ngV'N'  "$&(*,.0246O:DdHJc "$&(v\EL 468:<>@BDFHJLNPRTVXZ\^`bdfVxA~ڤڤꚹ'áá"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 PROC},á (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 ȡ"قٓ؄PY0ǠYP á'&)%G ')(D󄓡#ffRwƄoƅƄGƅsIƁu  $ũ@  ?áƄoƄGI-! רɡEȡڂؾړلٓǀړلٓXF,zT#$J 2x| p!!P""# $H$H$+áá>-áڤE˄ EEh𩂒 %   !$!u(á>>á>!~3?Bz 5 ǀٓ؄ؓ٤E˄ EE2Opcode declared twice=#6:ׯצREMOUT:#8:ׯ Ib.TEXTá+ÍƁPƁצ.TEXT[*]XƁ$ÍƁPOڡWWۚWW٤٤ꚲWW WÍW=&'Ɓ[*]SƁ"ءצ @87? ́ʁȡVX[&ZYnV>)(,* FRB*LINKER.INFO[*]ת.11צ.OPCODES PW*Wn ;A:<FBo ר" P)IPAGE - I" I""o.Q"ˡW#4:.S"ˡW#5:.S"ˡW#9:.ب 'áߢꚹ%áߢꚹޡ]rˡ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 L6 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&ƁVB - Label UD - Undefined MC - MacroII=RF - Ref DF - Def PR - Proc FC - FuncVáVܮܩ67 l (š(@FICurrent minimum space is I I wordsIIצ,PB - Public PV - Private CS - ConstsIII  áצ------ áצ-I@DMצCurrent minimum space is  צ wordso 36545 n9!ȡڤڤV- Bة6ɡf4šHɡ6ق2šV41w$41#41#ƥFn!ثHFƨȡH2 "áHá65ة6š4šHɡ6ق2šق2 2ġ( WI I blocks for procedure code I( Iצ words leftID_  blocks"á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:7 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áFNFá,>+&ˡ ,+%+++Bá3ˡ٩> ݂>ġá ݂Oá LMáO  Ǡ0ššٕȡ   RDá<ȡ(˄  # Ǡ qq,Ǡ hnnV ڻ ./! ݢݣÄɡ3ڕġ$ڕš3ؾ  9 VF xo?5F"ˡ-á F$F0 FFš"šޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡ FˡF%éF"Í FF F 'ˡ=@ 'GGݣ ˄ݢ!ۂ"ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ á>G7 ר: šGešG á (.á ɡ   / x^ ` > f  cX  (ˡ(ˡ #3&ƁVENDM ׯ  ȡG GG &: aSá AáDáAPړ ˡ>Dáۯ.S;Eo8á+ǀȡ  v á 6 ۯX(ˡ(ˡ eš á#3.á Ä ˡ8X á Eǀ Ä ˡE b  Ʉ>IF ׯ (ENDC ׯ ɡ  ةUGá;é? (ɡȡ   h)# 8 ޡǠ ˡRá QhnnV ڻ ٻ"ˡw0II#ffIII  D󄓡/#ffܡnhۡ ~Ǡ ǀ :(@<840,r ݢݣÄɡ3ڕġ$ڕš($  0.,*(&$" P  D @2٩؄٤ءš"šޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ   2 D@#5IצCurrent memory available:I( IBCÍ˄ݢ!ۂ"ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ  ȍ@č$(Ʉ(ˡ 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ٻܡnhۡ \Ǡ á P4Ǡ á   (ɡ( qmieɡNJ?Bk|YQˡRhnnV ڻ ٻܡnhۡ ~S Ǡ Ɓ.́mƁmצ#4:Ɓm11Ɓm.ERRORS Ɓm"ˡ8́mƁmצ#5:Ɓm11Ɓm.ERRORS Ɓm áR á=3%á*@nV TRQvǠ "ˡ8́mƁmצ#9:Ɓm11Ɓm.ERRORS Ɓm"ˡ9́mƁmצ#10:Ɓmצ11Ɓmצ.ERRORS Ɓm"   ݻ ܻhnnVˡR ڻ ٻbnnVnhߡnb9́mƁm#11:Ɓm11Ɓm.ERRORS Ɓm"ˡ9́mƁmצ#12:Ɓmצ11Ɓmצ.ERRORS ƁmƁC 9 $$ "ˍ܍.$צnot enough spaceYš7 macros you have defined are:צ -  ȡ&ˡ צ - צYour text buffe ނš $۞ꂫ@\ <YALOE:%צ - ? r is  צ bytes,  צ of which are filled, leaving  צYour 'save' text is  for details ڕLjڕńܓܡɡ}2 ȡ 2 צ bytes@   +   ȡ " , , $:&*צ ٓáǀáǀ١álšg# %<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ɡ š@$á ەš ۞%צnot enough space  y Write eXchange ?elp%Ctrl-X (can) to cancel command input.צ The: spaceh Ȅؿ؞ؾ.ؾ]˄צ.TEXTÄ ۳ $?zx{(.TEXT-(ؾ.á$"áSFile: .צ is in error. Write not done.KywusqoqnHFyFDB@:<>@BD ؂ˡfġ!צ Find too long9؞9ؿؿڍڡ'9צ no! Illegal title؂(x ɡ 񗜳Ʉt foundɡ؂؂ث Z  ڂš@%insertion truncated, not enou-۳( , 쾂0ǀ ō۳ $ˡ =ágh spaceš'צ'save' area deleted.ڂڂڞڂڂګ ءڂǼܡڑġ۳I۹   %  Unimplementedá ɶɄ ōt: ȡؕؕؕꕕ ۳ $?zx{D ȡ ؕ ,ɶ ō# á 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۹   %  Unimplemented; + á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++ Pascal segment+s p+ library unit+s @+ separate proc+"á++צ LIBRARY MAP FOR +,++š+ ++++ gKM LIBMAP edure segment+@ l>́ʁʁZ䍡 [<Ɓ́́ʁʁȡƁʁ ʁ́Ɓˡ߹ZM+ + global addr P #+ +צ, I #+ +Z6+ + public var base = + +Z5+ +צ constant value of + +Y5+?COPYRIGHT (C) 1979, THE REGENTS OF THE UNIVERSITY OF CALIFORNIA +צ 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,,ˡצ< 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?  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}? .6 Ɓ+ƂWƁƂ/Ղ1Library map utility [II.0]X XƁ+Ɓlruplicate. 6 A duplicate directory is already being maintained on ̄ʄȡ'l ~^  ^  ferenced items (Y/N)? ٳ@@ٳ YYX: .צ Mark not done. צType to exit. +  DUPLICAT Z`re that they are free? ?צ3 Are you sure that blocks 6 - 9 are free for use? , Do you wa nt the directories to be marked? b צ+ Directories are now marked as duplicate. 6 A duplicate directory is already being maintained on ̄ʄȡ'= irectory copy aborted. צType to exit.  Qb 06 sure you want to zap the direˡȡצ P ר C  Enter title of output Texctory of ̄ʄȡ': {blocks 2-5}? t file:PšצEnter unit # of Pascal disk : #4:V RT11TOTE SPצ#5:SP#9:SPצ#10:TP^צ#11: TP<צ#12:TP  zZ:j (Transfer Option? B(inary R(t11 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 ˡ Z"  E   GˡGá[ .  צ)Place Pascal Disk In Drive and Type   ȡn(w (Put system disk in drive, then type [Y]: Q3The RT11 directory on the Pascal disk was náo)  P= á/o)o) ؂ o)߿o)߿jnot foundƯjZ!_Z X h $ dv Ajo݂ˡ6 THERE WAS AN ERROR IN TRANSFER!!ݡjn !Eצ RT-11.DIRPE0"ÄˡġDisplay the directory? (y/n) j_ H2 šצ'Place RT11 Disk in Drive and Type  ġZ"  E    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 START? X צ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     GݓGáp  ƃr:6D~" T` á     ȡ   .   ݓ  ؿ>   ;  ݡdG  SIZE: צ, START: p! ˡ_ | ƃƄ;Ձ5@Place RT11 disk in drive, indicate unit number [4,5], t 4GˡGګGFč:No space at end of RT11 diskE^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-written@  "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 צ 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 ܍ܡښ@Ǿܓ>Ǧȡˡܡ systems. The difference between the versions is confined to the  section which tries to read the existing, and possibly damaged,  directory.  %The II.0.terak version makes modification to the I/O drivers at  the BIOS level. They are reconfigured to RECOVER  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  directories 4 blocks uses a separate unit  read, while in the II.0.terak each sector is a separate read. In  both cases this 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) @A t 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 ĶɄ SCREENDI SCREENHA1 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:**ؾT0ڿٻڶ$خخڤ ábܢÄܢńܢȄܣĄܣMȄ5ܢܢ۾G@ܢšvܢ**ؾT0ػڿٻ$ڶ/خخȡ܍ܡ  W*ܩ˄کM ȡ۩ȡ٩ܢȄܢńܢȄĄܣ Ȅܣ ńܢ  dɄ6ܢܢ۾G@ܢš5 M ġ M ġM M M ښݢݢػݢ ݢá!   ڣAצHow many blocks on disk ?  "áMةȡa'.TEXTá!  .CODEݢ ݢ ݢ צFile   inserted aؤ  found,ȡ٤  k0 Ձצ/Are theB  ۢ-ۢ)Cۢ:ۣ%ۣ&ݢݢݢݢݢݢ۶ġ !:̀̀צ:̀ʀʀ[ʀ ̀]ƀʀʀƀ̀*ۢ-ۢ ۢܢܢܢܢܢܢܢ ۢ%ܢ̀ʀ̀ʀʀ̀ˡʀʀ̀ʀȡ̀ʀʀ̀ʀ ʀ ̀ʀʀ̀ ܢܢ ܢ ܢ ܢܢܢܢ áצ ܢʀ̀ʀʀ̀ʀʀʀʀʀ ̀ʀȡ1ʀʀʀʀ !̀ʀʀá̀̀ʀġʀ ܢܢá&צ  ** 0 ۢ" šˡ ʀʀʀʀʀɡ ? ʀʀʀʀ!̀ġۓƀ ʀ?ˡʀ ء ۢܢܢܢ:ܢ:ܢܢۢOe zɡٚ šؚ\-2 á`;צ for none)  Po "å Íȡ  B    F" N ڂ ˫t| צ$Done with Screen Control Diagnosticsoo***** End Diagnostic; C   ;|0 0|Does this message also start at the upper-left corner?(test_gotoxy: gotoxy(0,0) did not go home neצ:|0 1| with just five '%'s (and maybe a stray character in'|0 2| the extreme lower-right corner)?$test_etoeos: scȡ ȡ >צ:*|0 0|Is there a '>' immed. followed by a '*' in the lower|_eras_eos didn't work ;|0 0|Is the cursor at the upper-left corner (over the 'I')? צ test_home: cursor0 1|right corner?צ6test_gotoxy: gotoxy(screenwidth-1,screenheight) not ok ȡ -------->|9 9| didn't go homeot 4|15 15|*|0 0|Is the cursor to the right of the star?צ)test_single_vectors: sc_rigo o errors encountered.ooצ Error File " " closed with   errors.  ȡ   ȡ  ȡ  ȡ צ@|5 0|Does the box have 10 starsت$ o o oo4تP++@@+@@ per side and start at the arrow?$test_gotoxy: box not correctly drawn \  3|0 10|Is the screen=TJܳm ܂0šU%integer overflow in message procedureצ .  blank (except for this sentence3|0 11|and (maybe) the lower-right hand character) ?#test_clr_screen: screen not clearedindex= MˡH,illegal character in message procedure. ch=á צ1Does this message start at the upper-left corner?צ4test_clr_screen: cursor not left at (0,0) afterwardstت̀̀ʀʀȡʀʀ|ʀ ʀ̀ʀʀšʀʀʀʀ̀NʀʀʀʀتP 3 צ*|0 0|Is this the only thing on the screen?--צ%test_clr_line: didn't clear enough |á)ʀ̀ƀ ̀ƀ|̀ʀʀʀ̀g  9* Is this sentence surrounded by two asterisks (s- %-u-- צ(45,12) צ(0,10)(0,Screenwidth) ȡ3tars). *0test_basic: not all characters being written out Õġ!A   >|0 0|Are there two blocks of "%"s (no gaps or missing chars) ?צ1test_clr_line: Clearing one line affected anothera+ @  ȡAġ צ6|0 0|Are all of the below lines the same (e ȡ*>ȡ$צ;|0 0|Is the line bexcept for a'|0 1|missing char in the lower right) ?*exhaustive_gotoxy_check: first pass not ok   low a series of stars immed. followed byצ a right-arrow ('>')?צ+test_erase_eol: sc_erase_to_eol didn't work צ$Are all of the above lines the same?'exhaustive_gotoxy_check: top line errorV8 N * ȡ%3Õɡ   צ9|0 0|Are there five full lines of '%'s followed by a liD //Í Ä./ öÄ..|0 5|Key typed is not correct.צ.|0 6|Do you wish to try typing this key again?h@@@@--@00test_keyboard: 0_0 key not correcto0-._y  צup-arrow down-arrowצ left-arrow right-arrow editor accept (etx)line delצDC1צ backspaceצescapereturn צtab צ line feed تP"|4 7|Bad character. You typed a '  chr( )++'+Q+-|4 9|Do you wish to try this character again?o@@h@@9 P+++ht didn't workצ,|0 0|Is the cursor to the left of the star?(test_single_vectors: sc_left didn't work +  Rf 8Please type in the following characters|2 1'|0 0|Is the cursor just below the star?(test_single_vectors: sc_down didn't workצ'|0 0|Is the cursor just above|in the EXACTצ order shown:|4 4| á3צ.|2 2|Note: The first character is a space|4 4|ȡ the star?צ&test_single_vectors: sc_up didn't work 33|0 1|Is this the top (and only) l ˡ3צ,,|4 8|which is interpreted as a special key.áצšk  &צine of the screen? צ1test_scroll: sc_down at bottom line didn't scrollƀ- + ȡ O P`{~P~šC̀ƀצ%check_normal_keys: Can't type these: %ƀƀp:o  ȄGؕš ȡ<ڕš ƀ́ʁȡ   oaB\LV&b2 Z H|  ZZ8ters|2 14|0 0|Are all the lines below a '<' followed by '-'s?צ4test_DLE_expansion: expansion not happening properly_O^*ڪP 00Please press the 0a0 key. h0  / Í:jE :jbGOTOXYTE  {$U-}  program GOTOXY_test; " "var X, Y : integer;  "procedure F_GOTOXY( X, Y : integer ); " $ "begin " ${ RangeɡOšOɡšY  LODE  #צCode  checking on the (X,Y) values passed } $if X < 0 then X := 0; $if X > 79 then X := 79; $if Y < 0 then Y := 0; ${$U-}  program GOTOXY_test; " "var X, Y : integer;  "procedure F_GOTOXY( X, Y : integer ); " $ "begin " ${ Rangefile saved62"o.צצ not named2 Workfile is :.񄓡 checking on the (X,Y) values passed } $if X < 0 then X := 0; $if X > 79 then X := 79; $if Y < 0 then Y := 0; $ (not saved) No workfilev%.ת&תת(&Ɓ.񄓡9&צTif Y > 23 then Y := 23; $ $write( chr(27), 'Y', chr(Y+32), chr(X+32) ); $ "end;   begin end. hrow away current workfile ?  ءצ*SYSTEM.WRK.TEXTצ*SYSTEM.WRKVO^F O^:jbGOTOXYTE  {$U-}  program GOTOXY_test; " "var X, Y : integer;  "procedure F_GOTOXY( X, Y : integer ); " $ "begin " ${ RangeɡOšOɡšY  L checking on the (X,Y) values passed } $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) ); $ "end;   begin end. if Y > 23 then Y := 23; $ $write( chr(27), 'Y', chr(Y+32), chr(X+32) ); $ "end;   begin end. VG hrow away current workfile ?  ءצ*SYSTEM.WRK.TEXTצ*SYSTEM.WRKVDáAPړ ˡ>Dáۯ.S;Eo8á+PAGE - 0 COPYRIGHT (c) 1979 CINEMATRONICS, INC. CINEMATRONICS 2076-Assembler Version III.3 <06.30.81> 0000| 5 [ Cur ۯX(ˡ(ˡ eš á#3.á rent memory available: 8891 words. 0 records on Empties-Stack. ] 0000| 5 0000| 5  ; THIS VERSION LAST UPDATED OCT. 2, 1981 0000| 5  0000| 5  ; THIS VERSION HAS BEEN MODIFIED TO TEST MACROS. 0000| 5  ; 0000| 5  ; 0000| 5  ; DIAG22 0000| 5  0000| 5  ; THIS IS A DIAGNOSTIC FOR "WAR OF THE WORLDS". 0000| 5  0000| 5  0000| 5  0000| 5  0000| 5  0000| 5  ; IN THIS DIAGNOSTIC THE SECONDARIES SELECT THE TEST TO BbGOTOXYTE E PREFORMED 0000| 5  ; THE FOLLOWING IS A TABLE OF WHAT EACH TEST DOES. 0000| 5  ; ( AN 'L' IN THE SECONDARY COLUMN REPR ESENTS A LOGICAL LOW, A 'H' 0000| 5  ; REPRESENTS A LOGICAL HIGH). 0000| 5  0000| 5  ;***************************************************************** 0000| 5  ;* * 0000| 5  ;* FOR: * 0000| 5  ;* 'WAR OF THE WORLDS' ɡOšOɡšY  LODE  #צCode  * 0000| 5  ;* AUDIO AND CONTROL PANELS. * 0000| 5  ;* file saved62"o.צצ not named2 Workfile is :.񄓡 * 0000| 5  ;***************************************************************** 00 (not saved) No workfilev%.ת&תת(&Ɓ.񄓡9&צT00| 5  0000| 5  0000| 5  ; SECONDARY TEST 0000| 5  ; 0 1 2 3 4 5 6 HEX DEC 0000| 5  0H  FˡF%éF"Í FF F 'ˡ=@ 'GGQˡRhnnV ڻ ٻܡnhۡ ~S Ǡ  á>G7 ר: šGešG á (.á ɡ  áR á=3%á*@nV TRQvǠ ENDM ׯ  ȡG GG &: aSá Aá   ݻ ܻhnnVˡR ڻ ٻbnnVnhߡnbǀȡ  v á 6ޡǠ ˡRá QhnnV ڻ ٻÄ ˡ8X á Eǀ Ä ˡE b ܡnhۡ ~Ǡ ǀ :(@<840, Ʉ>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áFNFá,>+&ˡ ,+%+++Bá3ˡ٩> ݂>ġá ݂Oá LMáO  Ǡ0ššٕȡ   RDá<ȡ(˄  # Ǡ qq,Ǡ hnnV ڻ 3ؾ  9 VF xo?5F"ˡ-á F$F0 FFٻܡnhۡ \Ǡ á P4Ǡ á I `(b^ ` b \  < צCurrent memory available:I( IBCÍ H_?ȍ@č$(Ʉ(ˡ 7788$š@? _ 6_ 8/efAA"V  (ɡ( qmieɡNJ?Bk|Yw7&  G 7w:pr g/"ˡ! Bad block # 0Ɓ.́mƁmצ#4:Ɓm11Ɓm.ERRORS Ɓm"ˡ8́mƁmצ#5:Ɓm11Ɓm.ERRORS Ɓm&E7 5@vVq7w k7w 7 bcw ]-@U a"ˡ8́mƁmצ#9:Ɓm11Ɓm.ERRORS Ɓm"ˡ9́mƁmצ#10:Ɓmצ11Ɓmצ.ERRORS Ɓm"zE z3F E@ nh f:XF?X E@F F-B7 8?2 . 7E@U@9́mƁm#11:Ɓm11Ɓm.ERRORS Ɓm"ˡ9́mƁmצ#12:Ɓmצ11Ɓmצ.ERRORS ƁmƁC   E7 w. wU &    07 7 7  "ˡw0II#ffIII  D󄓡/#ff7 E7 ~ "7 E7 ,tv LwU W 7 .7 , (g E@r ݢݣÄɡ3ڕġ$ڕš &?  w U@w& K C & ^ T7 N 6 0($  0.,*(&$" P  D @2٩؄٤ءš"šޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ   2 D@#5IצCurrent memory available:I( IBCÍ˄ݢ!ۂ"ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ  ȍ@č$(Ʉ(ˡ 7788$š@?/ x0II#ffIII  D󄓡/#ff  (ɡ( qmieɡNJ?Bk|Y V*z:ykig7=$QY[]_a~|~ˡ(ˡ(ˡ Fy2~G"xCOPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SDJ ^~T6  TZ`flrx~$,4<DL7  V& EE dd`z ~ %&  '  " E ```a@N| @H  x h   D  %    & VAA E e @`& E& AA  @ @f ~f{fxfufrfoflfE e @`&AA E e @`  `:`  @L2 A2ifffcf `f"]f$Zf&Wf(Tf*Q NKHEB?<963 0"-$@@A   J@ PV ``f  ``A  c ҇e 8 ``&& ` *&'($*!ing eeee e  e e&    Ee7  N  E e @a&&6E e @a&E e @a EE7-n @$@$@$@" fE  &7 2n# %% 7 |% \\VD@`@`$fH@7$`e    V _7 |% `` B  aBE B<V  wN E   U (f 7@` dd&`f&d&b&  m e ɋ er&7 z%   eN @@ >ZE L4U@ 7`6 BE 2B @ w`&   rhfwBC % e 7jb Aɋ  BP@ Bm> @ BmV7  & & E N\E &  & > U  . @ Bm    h  I Ձ@  a a! F@    DVE `E `E? g& 7h  AF|eA VWFlN   mAɋF! &(W   `E e `&& `& `E e `&EՀ V  ffD e  wl5 wfDeVC:VB@B VC w  ?  "U@  wE7 wT?  ~7   ҂  V E e ` E   @ ` G7 7 @# \& `lrv~  F j n z  *   X \ p ~ J  , v Z B x  @ b r 4LV\7H 7 6W ww N B  V6 E EK \^^k `#ǭaxXc'exfhShjQYkoNmo9?pIrs|ouEw7x߄z @|Η}½  & && nr r H  > P_F  :6 *7 $E7 _n& Ο @  e E`E`` A EwwDw J  '((@`@`&7 |z67 n`z67 `67 TB`z`z67 <N`z`z66 \ F "  \m( (/m ]   P P eeNPP  W    eV\  W  m e5`\_e w5 5@^j x\ɋEee``!  e#    %V   ce 5\\\&       B  BB`   V& $  ί%@ eAp6% "1, 1,1,^  % ^A   @ B  B`     V R\x 6>%^A&Daef ¥_09E AZ   \^C FNV^fVpv wU &f&f7 U   8ɝ^&  f ee $ $ $ $ @A eeee >eJV _E7 ~)˵'ӵU$ aC  `  7Bw|7*!$'(****AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELSE  iU? ~zw ^x O 5 7  h5@ 7RB z @END EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC% eC % C ``` e5 ̋̋ 2@RU@>`F 27 ,53LABEL MOD 'NOT &OF OR (PACKED +PROCEDURPROGRAM !RECORD -REPEAT SET 5h @wp75   #̋ 7̋4 PRTV wU  *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE   E@   U@_E7 _R ~Ev7 rl 2 WITH $"7 & & @  7 & 7 n '7 n'7 n"7 nj(7 n"7 n$7 n)\ vw9874 CAYEDITO,RALPH PATRICK 43 000 2 0832 CECERE,STEPHANIE IRENE 43 523 3 nn 4V \'(((@ BCzEG@HPtJ$LM nO(kQRChTV焵W!cY_[ wU  R _&:?ŀ -5 -n b ^ -|L  . )   v     C 6  %%    w 6 &@& *  49 000 3 0310 GUNDERSEN,CINTHIA ANNE 46 540 3 6 %   Dv   0e%6  6  E v v ·ͅ%\ @      3995 HAKY,LISA SUE 46 123 2 8795 HAME,PENNY ANN 46 780 3   D f C_  fW & @&&&&7 $%&%|%$n# %% n# n#$ $%B%e\\;@\5946 HARNER,JAY LINDSAY 52 391 2 1158 HART,KATHERINE ANNE 43 780 1  \N @   =@f&ysE[\pCf&f&\% a @w   6 6 & 8185 HATAMIYA,PAUL KOUSO 49 073 3 8145 HAYS,DAVID JESSE 43 540 2 7 E7 (U@ %<LN ^wU  E@  f 6A  v  6N\&f f & G   v  76   pf ^& 7 7 8ߊ3 7 | v n "w \    X F  d deA @ A @ %  A @ 6v %\%    w    `@ `   wC w2 7 $" ?U@  _E7 w|f U? ` `  \\ N A f C %C B    \ w   E7  e&&   v |N v  6 6  hv   D& &&@7  ,'D& && 6  A7 ^n#~'# '~'#' '~'~'%'% % % % %p' e `   @ (%.% D %e% e @ D   m\ \S\ e& @7  'T'e\'f& \:יc&>X4%]@& & & & & D&m@ 0     A C v %\w @    0  @  @ w   &D&& @%7 rn#0(  IA e e@ e& & & & & D&&& Dr)&&\   5@5@7 T " n#""%""""% % % % "|%"% "%"e #@  @6 7 n#(6 6 #?%-0 @ ׳f&& "f&\  \& \\r1@\[?\ ew " ?U?*@ڪAD@׳@f&7 % X) n# )f&f&7 l%b)% % % % % ~) &T)   \)f& \  C %     @  f&\   B -  e \&f  & N & e\>:L]L?ƪ@ \fEA#& e@ & f& f& f7 n# ) ff w