IMD 1.18: 23/09/2013 11:02:25 II.0 Terak  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ,lŗkm HBf     &  :[SAMPLEGOTO.TEXT GOTOXY.TEXTl%C e U7N ?IO ERROR WHILE BOOTING? 7, ?NOT ENOUGH CORE TO BOOT?   e   ևߕ vߕ 7 SYSTEM.PASCAL? w7j SYSTEM.PDP-11? @Aw  `! m d!  \ZD C& H&  0  EL    _ U@pe5w E ŋw Ŋw C! @  ̋   wLwDԤ eeW 7 ?YOU DON'T HAVE A  ߋt_v @ @ COUNT BEQ RWBAD ; HAVE WE RUN OUT OF CHOICES ?? MOV @SP,R0 ; GET ADDRESS OF IDCODE CMP (R0)+,(R1)+ ; IS FIRST WORD EQUAL ? BNE 1$ CMP (R0)+,(R1)+ ; IS SECOND WORD EQUAL ? BNE 2$ CMP (R0)+,(R1)+ ; IS THIRD WORD EQUAL  {TERAKAa.Z  SYSTEM.PDP-11Z$SYSTEM.CHARSETZ"$@ SYSTEM.FILER:[g@a SYSTEM.PASCAL:[8a SYSTEM.EDITORje SYSTEM.LINKERjSYSTEM.COMPILERSYSTEM.LIBRARYk SYSTEM.SYNTAXj%SYSTEM.MISCINFOȟ  11.ERRORS:[ß  11.OPCODES:[? ASM11.CODE:[?a PATCH.CODE:[DaDISASM.II.CODE[4 OPCODES.II.0:[`4RT11TOEDIT.CODEC BINDER.CODE:[5 HCLASS.TEXT {TERAKAa.Z  SYSTEM.PDP-11Z$SYSTEM.CHARSETZ"$@ SYSTEM.FILER:[g@a SYSTEM.PASCAL:[TEXT XXREF.TEXT:[ XXREF.CODE:[ BOOTER.CODE:[s RXBOOT.TWO:[ CALC.CODE8a SYSTEM.EDITORje SYSTEM.LINKERjSYSTEM.COMPILERSYSTEM.LIBRARYk SYSTEM.SYNTAXj w U@w@ > 6 & p f7 ` N H~w : ?2  "U@ $ wE7 w  "&\htx   $ ( 2 6   F X l   0 FR R R R R R $ 6 L p >  (.> FH  ,JN $*06<BHNTZ`f%SYSTEM.MISCINFOȟ  11.ERRORS:[ß  11.OPCODES:[? ASM11.CODE:[?a PATCH.CODE:[DaDISASM.II.CODE[4 OPCODES.II.0:[`4RT11TOEDIT.CODEC BINDER.CODE:[5 HCLASS.TEXT )`*f!N TEXT XXREF.TEXT:[ XXREF.CODE:[ BOOTER.CODE:[s RXBOOT.TWO:[ CALC.CODE"COPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SD:[SAMPLEGOTO.TEXT GOTOXY.TEXTl  P  ? _ 6_ 8/efAA"w7&  G 7w prǀ ?̌fʌfȡƊDؤؤ P&E7 5@up7w j7w 7 Nbw \-@T azE z3F E@ nh f9XF?X E@F F-B278?2 .~7E@U@   E7 w0 wU &    *7 7 7  7 E7  7 E7 tv wU W 87 H7 F BZ E@ &?   w`& B~z& & E N\Et& B~ & > vUB~     I?f& 7  AFeA  Ձ@  a a!~F@  B~ ~E `E `EՀW WFlxT   mhAɋF!p &.JffD e w,5 w&De D `E e `&& `& `E e `&EՀ~  7 CB@B C& Ο @ e E`E``B~A EwwD  ҂ ~ E e ` E   @ ` Gz7<z   7NH w   '((@`@`( (+m ]   P~P~7 6W w{ N B  6 E E7N eeNPP  W  ~~eee``!~ e C~C~ %~& EET Bd`n * %  D~ " ~ E D~ D C~ %  D~ C~C~cheί^Z%@ eAp6% "1, lrx~``@n`faf@d"# 6!"@* X r   ~& AA~E e @`& E&~AA~E e @`&AA~E $ B h Z t  @ @ e @`  `` t @L A@@A tBt J@ P ``f~f ~f{fxfufrfoflfifffcf `f"]f$Zf&Wf(Tf*Q NKHEB ``A~ c ҇e  ``&& `  E e @a&&6?<963 0"-$*&'($*!6eeee e  e eE e @a&E e @a \@@`@`$fH& ,   EezN EE7- @$@$@$@" EB~ H&z%%@7 `e B~  B~ _7@`  7 &X\7 &X``WtB  aBE B<  wN EC~ B~ dd&`f&d&b&  m e, ɋ e  rfwBC % eU f &z  eN 8@ 6NE LU@t7`.~BE B @Wt 7dz\ Aɋ BJ@ Bm8~@ Bm*~@ Bm~  IF IMPLEMEN4IN )INTERFAC3LABEL MOD 'NOT &OF OR (PACKED +PROCEDUR Ette E e' eZ-V잇ELE7 @ e dddPROGRAM !RECORD -REPEAT SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIdddd|ddddddddddddd"PE Ґ~X wU &f&L USES 1VAR WHILE WITH 7 `&X& @  z7 `&X7 &7 &7 #7 f7 \U   0ɝ^& _E7 \C DE!:7  7a(7 #7 %7 P)\ vw J r'(((@ BCzEG@HehD A   aw7e:wXP@P7n@eI70@wnM)w\ 7 ,PtJ$LM nO(kQRChTV焵W!cY_[\^^k `#ǭaxXc'exfhShjQYkoNmo9?pIrs|ouEw7x߄z @|Η} ßz 5U$ J  E     7 7  @  27 ½  & && &7 <b7 <b7 <b7 t&<nb7 \&<z!ׯ+U E `    ͋D 5|w 5B N  5b6 \ = "  \m\  W  m e,5`\_e w5 5@ , W#D  7W ΁?Zw w   D5H5   :@ S~ e&-" \ɋE 5\\\wvr@p@8D:NDwn.5) 5|w 77 :  .-& pU`E@ wHLbjrz - e6_ 8 E E7 _ wUw .h FU@ % eC ~% C ``` 1,1,^  % ^A %^A&Daef ¥_09E AZ K E|7 xvv vV R-N$D TO SCREENMOVE CURSOR    C  f ee@ $ $ $ $ @A eeee >eHOMEERASE TO END OF SCREEN  &fEʝ@W $  xw w ʕJ !$'(****AND 'ARRAY ,BEGIN CASE CONST DIV tʕ  Q~EU 5 \ N  X UU0 >e0 'DO DOWNTO ELSE END EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO    W #@e@ E@W $ E&@W $E  t`  Ue _ E7 ~ TO THE PROMPT/5"NEW VALUE" WILL ESCAPE THE SINGLE OR PROMPTED CHANGE4SEQUENCE WITHOUF',','D&n'D&#D&#D&#D&#D&' e\ \S\ e& @7 #^''e\'f&T CHANGING THE CURRENT FIELD'S VALUE.I0 wU  M _&5ŀ - \:יc&>X4%]@& & & & & D&&D&& @%7 r%'  IA e / -.!  xt -.! v v ^ T `_VB JF ":7 4e@ e& & & & & D&&e #@  @6 7 %n(6 6 #E7 _ 7  E7 D"U@ %LN wU  ?%-0 @ ׳f&& @׳@f&7 D&#)#%(f&f&7 lD&)D&#D&#D&#D&#D&##,)#R&E@ e ]& 7 7 7ߐ2 7  | t ~"w d  )   \L)f& \ e\>:L]L?ƪ@ \fEA#& e@ & f& f& f7 %#|)  X N wK w: 7 ,* $? U@ _E7 wnf U? ff w   &@& )   E7 ez\& Dr)&&\   5@5@7 X#>$#%T$T$>*>$$~$~$$>> >.*.:*:8DD88(800   $~$|8(8D&*$4$4$4$D&#D&#D&#D&#H$&^$D&#h$D&h$$f&\  \& \\r1@\[?\  ~8(8``0 > BB~~BB~>BBBBB>~>~~-  e \z\D f C_  fW & @&&&&7 %D&`&%&%%#%D&#%##%z%#%D&%e\>>"rBB^@BBB~BBB ">B""B~fZBBBBBBFJZRbB~BBBBB~~BB~~BBBRr~@~BB>BBB<\;@\ \N @   =@f&ysE[\pCf&f&\% a @w  B<@B<~BBBBBB~BBBBB$BBBBBZfBB$$BBBBB<~B0< B~>> 0``|@@@@@|> 6 6 &  f 6A  v  6N\z\\\ N A f C %<@\B|:FBF: Non-Wild) card(Ill file/vol nameת(}Ill change (Vol <??`(H"a- TR cbd cto> file) nameת(UBad dest for files foundת(4,"iEbUġ#(צ fZBBB>BBBB>xx > 5 FILEHAND ہہǻ ýýýýݽGצצkת{צcתת(WצSתԦת(KצOת  ÿ۽ϟn`Äצ(ڹצParity (CRC) error(Bad unit numberת(Bad I/O operationת( Timeout errorÿŹýýýŹת(Vol went off-lineת(File lost in dirת(|צ Bad file name(fצNo room on vol(ONo such vol on-lineת(ýýýŻ3File not foundת( t`K1ٹVol already on-lineת(Text file lostת(צCode file lost(Qˡá  File foundת(צBlkd vol( Unblkd volת(צ File name(צFile/(unblkd vol)(צFile/(blkd vol)(צ000 Q 0 ̌̌̌? ?File/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 " " ġ  7x8>` PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD צCrunch@צFrom end of disk, blockצStarting at block # 3 % forward ת   ȡ'  š 7  צback  ġ ɡ7 G"""""   overflowת(צInteger overflow(Divide by zeroת(צNIL pointer reference(צProgram interrupted by user(ʁ%ʁ% t*&*n تٞ&"á ~٤  :SYSTEM.ASSMBLERת :SYSTEM.COMצ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ʁ%́%8FNo user programתP8F0turn  RáEáꥂNing buffer overflowת(צdisk write protected(uillegal block #ת(]bad byte countת(Fצbad init record(.Wáצ)Name of output file ( to return) -->ƂPƂáƂ̂.ʂ.ȡƂƂ۾ &}eN:%oYDצ IO error: (צUnimplemented instruction(צFloating point error(u.TEXTƂƂƂȍƂƂ.˄%Ƃ̂.Ƃ.ƂPƂ..TEXTUƂ.PƂƂ.á ƂƂtV,tString overflowת(]Programmed HALTת(EProgrammed break-pointת(&eP9$oYC#Bj| #fn^:R T>&`L " > d j p> I:*צ dup dir entry(צfile already open(צ file not open(צbad input format(r8FNo debugger in systemתP8F6  RáEáꥂNing buffer overflowת(צdisk write protected(uillegal block #ת(]bad byte countת(Fצbad init record(.Wáצ)Name of output file ( to return) -->ƂPƂáƂ̂.ʂ.ȡƂƂ۾ &}eN:%oYDצ IO error: (צUnimplemented instruction(צFloating point error(u.TEXTƂƂƂȍƂƂ.˄%Ƃ̂.Ƃ.ƂPƂ..TEXTUƂ.PƂƂ.á ƂƂtV,tString overflowת(]Programmed HALTת(EProgrammed break-pointת(&eP9$oYC#Bj| #fn^:R T>&`L " > d j p> I٢ š٢ ٢٢ 4*ƁV`tDoo odoo'zrצUnknown run-time error(צValue range error(צNo proc in seg-table(Exit from uncalled procת(Stacḱʁʁʁצ*SYSTEM.MISCINFOP*"áO* ?́*́ʁʁʁʁʁʁ  ? צ*SYSTEM.WRK.TEXT& *SYSTEM.WRK.CODEײ , 7 !! !:!!ڤ  ڤ  áڤ R :9CONSOLE:ת(:9SYSTERM:ת(8:98áצ Assemblingצ Compiling...á999':::::&: 6ëצ???JanתצFebMarתצAprMayתצJunJ(yáצAssembleצCompile what text? (ׯ::(:.TEXT-:( ulתצAug Sepת צOct Novת צDec ???תצ??????ת6! "ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&:(7%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& š+ ;??ٟá'C CONSOLEצSYSTERMGRAPHICצPRINTERREMINצREMOUTexulתצAug Sepת צOct Novת צDec ???תצ??????ת6! <ƋD*SYSTEM.CHARSETת(ƋDʋI&"áǀʋUʋTʋKƆD ʋT  ̌fʌުP11ˡCۡ>1áIllegal file nameצNo file ́3ˡ fȡƆD   ̌fʌfȡƈD  ل7@ǀ ?̌fʌfȡƊDؤؤ  not code3"ˡצ Bad block #02́42ʁ4ȡCƀ2ƀ2ō$ƀ ƀ P  ƋDR677::9 3222́42ʁ4ȡuƀ2ˡaݡ9צ Linking...ܡ #צ988:9  6 ۪1٦׷)Must L(ink firstg222́42ʁ4ȡJ22č7ʁ302́532́6ʁ5ʁ5ʁ6ʁ5ʁ622צ: ܢܢH d    0&צצ.צ??e f@^ڤ áڤ !~ e ת*U    צ:) Running...ء ء:9á+ ɡ _1+ˡ  +á -8:9á'צ*SYSTEM.STARTUP %áá  ˡ.$  š t@..$$&ˡ . 6   FצKCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(ebug,? [II.0]P')%?á@F.6% .&$&!F:F FˡFFD'%ɡצ*Command: U(ser restart, I(nitialize, H(altP')%$z쓡šɡš  P&:+:azȄaA Linking...ˡ&צ Restarting...צ U not allowed:) Type צ to continue) & ,Í ˫hp(PRRJHá68AX0qz((* "D&(,. Dv\xצצ22ȡ5233 ȡ 23aĩ3zȄ 23aA22š*á ?צ:26   FצKCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(ebug,? [II.0]P')%?á@F2ȡá;2á!2ȡ5252š[ץ22š2222ȡ2š52צ*Command: U(ser restart, I(nitialize, H(altP')%$z쓡52á4w4]ץ11á4\1šV42233z 3042221é42é1Ä Linking...ˡ&צ Restarting...צ U not allowed2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$צS#  צ, P#  צ, I# آ   .GRAFׯצ.FOTO8 <!~áë š%צSYSTEM.WRK.CODEsSYSTEM.WRK.CODE׷Fš5,á*6!F *STK OFLOW*תPFF+ ˡ 6!:9 "8צ.CODE.. Execute what file??á <צ Exec err #   á, ,(+,  šA.á צ.CODEm%,ábÍš 쾿  .Tá  INITIALIOUT COPYFILEENVIRONMPUTSYNTAEDITCORE삫Ú š a "á61 " *áá0á +-Í-ɚ l šš áš zV 0á$-á z   šš!邚邫镫ë퓡S  ! "ˡ!kO  ȡ*ńȄ4šá "ˡ "ˡáˡ á xń# Ȅ RתPńȄ ,ń.áš 隹Ká/Ä   ~@šQȡ2 š:X fE6 á1 š2    šš$ !邚邫!~?8FצPut in :P?FP'Ǡá*EEE   !#镫ë퓡h  ! "ˡ ɡ!  ! "ˡf á3E$ á"ˡ"& E ##&Eá +6+6ˡ á+á! "ˡ  +Uz 6á  Z4" V(n|lv J.*L  .Tf0 zL d2 Oš *š  @šQȡ2 š:X fE64T h ɡ 逫-á-32768ת Pġ>o00ń0ˡ o!~?8FצPut in :P?FP'Ǡá*EEE   !#  "á <&ȡ<-á á.á é Äە߂ũȍ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 .Ǐ  & , PASCALIODECOPS *SYSTEM.INFO[*]"ˡǒ . Ƕ . Ǐ QI \ [ MPPPPš [   ˡ TAݟޓݥ e ޓ* A ݫAN؞ (M M I ɡ- ~ݟˡ   á   0'&6á" ?COPYRIGHT (C) 1979, THE REGENTS OF THE UNIVERSITY OF CALIFORNIA2ˡ "" 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  x*b`$7w& 8  & 2  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    e^TPJ$BLOCK <= FMAXBLK) AND (BYTE <> FBLKSIZE) THEN 0BEGIN 2UNITREAD(FUNIT,FBUFFER,FBLKS_DB F  F   _% _ "77 * &IZE,DFIRSTBLK+BLOCK-1); 2IF IORESULT <> ORD(INOERROR) THEN GOTO 1 0END ,END; *IF FNXTBLK > FMAXBLK THEN ,BEGIN FMAXBLK := F     w aB  ~ B   `w`7& 7 7 7 7aNXTBLK; FMAXBYTE := FNXTBYTE END *ELSE ,IF (FNXTBLK = FMAXBLK) AND (FNXTBYTE > FMAXBYTE) THEN .FMAXBYTE := FNXTBYTE; *FEOF : E  Da7 D7zE mna R Ha H R e<! F  (&  = FALSE; FEOLN := FALSE; FREPTCNT := 0; *IF FSTATE <> FJANDW THEN FSTATE := FNEEDCHAR; *FNXTBLK := BLOCK; FNXTBYTE := BYTE  _d 7dwH J7 D aw> w* (7 "D 7Da7  DECOPS DECOPS GDEC GDEC ' d procedure 120:Function result type must be scalar, subrange or pointer  121:File value parameter not allowed  122:A forward 1:Error in simple type  2:Identifier expected  3:'PROGRAM' expected  4:')' expected  5:':' expected  6:Illegal symbol (termdeclared function's result type can't be re-specified  123:Missing result type in function declaration  124:F-format for realsinator expected)  7:Error in parameter list  8:'OF' expected  9:'(' expected  10:Error in type  11:'[' expected  12:']' ex only  125:Error in type of standard procedure parameter  126:Number of parameters does not agree with declaration  127:Illegpected  13:'END' expected  14:semicolon expected  15:Integer expected  16:'=' expected  17:'BEGIN' expected  18:Error in dal 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 apprope declaration  140:Type of variable is not record 141:Type of variable must be file or pointer 142:Illegal parameter solution riate class  104:Undeclared identifier  105:sign not allowed  106:Number expected  107:Incompatible subrange types  143:Illegal type of loop control variable  144:Illegal type of expression  145:Type conflict  146:Assignment of files not al 108:File not allowed here  109:Type must not be real  110: type must be scalar or subrange  111:Incompatible withlowed  147:Label type incompatible with selecting expression  148:Subrange bounds must be scalar  149:Index type must be inte 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 declare( ger  150:Assignment to standard function is not allowed  151:Assignment to formal function is not allowed 152:No such field ind source line  203:Integer constant exceeds range  204:8 or 9 in octal number  250:Too many scopes of nested identifiers  25 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 assinged 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 bas 399:Implementation restriction  400:Illegal character in text  401:Unexpected end of input  402:Error in writing code file,e set  170:Value parameter expected  171:Standard file was re-declared  172:Undeclared external file  173:Fortran procedure  not enough room  403:Error in reading include file  404:Error in writing list file, not enough room 405:Call not allowed in sor function expected!  174:Pascal function or procedure expected  182:Nested units not allowed  183:External declaration not eparate procedure  406:Include file not legal  allowed at this nesting level  184:External declatation 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) 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 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 Źýý  P  ?dsonl symbolslowedbelCtB&cannot handle this relative expressionCtBconstant overflows relative expressionCtBillegal decimal conýýýŻstantive expressionCtBillegal octal constantntive expressionCtBillegal binary constanttive expressionCtBinvalid key wordonstanttive expressionCtB%macro stack overflow - 5 nested limitnCtBinclude files may not be nested limitnCtBunexpected end of inpute nested limitnCtB(this is a bad place for an .INCLUDE fileB'only labels & comments may occupy col 1eBexpected local labelts ma A' or 'B' expecteddexed addressingPROCtBundefined labelcteddexed addressingPROCtBoperand out of rangeexed addressingPROCtBmy occupy col 1eBlocal label stack overflow occupy col 1eB#string constant must be on one lineol 1eB%string constant exceeds 80 ust have procedure name addressingPROCtBnumber of parameters expectedessingPROCtBextra garbage on lineexpectedessingPROCtBinpcharacters 1eBillegal use of macro parameterracters 1eBno local labels in .ASECTmeterracters 1eBexpected key wordn .ASECTmeteut 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-lQU 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 volumediskec* 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Ʉ ust declare .ABSOLUTE before 1st .PROCtB ust declare .ABSOLUTE before 1st .PROCtB ust declare .ABSOLUTE before 1st .PROCtB usBGT BLE BHI BLOS BHIS BLO CLC CLV CLZ CLN SEC t declare .ABSOLUTE before 1st .PROCtB ust declare .ABSOLUTE before 1st .PROCtB ust declare .ABSOLUTE before 1st .PROCtB ust  SEV SEZ SEN SCC CCC NOP JMP @JSR RTS MFPI @ declare .ABSOLUTE before 1st .PROCtB ust declare .ABSOLUTE before 1st .PROCtB ust declare .ABSOLUTE before 1st .PROCtBclose pMTPI XOR xMUL p DIV r ASH t ASHC v FADD zFSUB zFMUL zFDIV zaren ')' expectedefore 1st .PROCtBregister expectedxpectedefore 1st .PROCtBtoo many special symbolsefore 1st .PROCtBunrecognizable operandlsefore 1st .PROCtBregister reference onlysefore 1st .PROCtBfirst operand must be register1st .PROCtBcomma ',' expected be register1st .PROCtBunimplimented instructionister1st .PROCtBmust branch backwards to label1st .PROCtBN&6 B %. TLA MTPD MFPD @MTPS MFPS PC SP R7 R6 R5 R4  INITIALISYMTBLDUPROCEND ASSEMBLEPRINTERR + m>6 H) fɡH)#H)#f, H) fɡH)# H)#fDn0o5ppˡ  0s?0ssˡ@[( ]<! >#PDII I IPAGE - I  0T&LG  "$&(*,.0246s:<>@BHsˡ0s" 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'(>>>>c 0c 0ˡ*c0c0c0c ؓB  B @IؤD󄓡)>>>>>ؤؤ*,* áu)ɡ 4*?r$˄8á$oؚo٨o 4J, f G ڂGپ ;Í GB˥Hپ ˄Hپ;˄Hپ,áf H ڂHپ ;˄Eޢ6ޢ$) ASH$XnV٫>l > >Gá,G ëCeɡ##G ;;x}?뻹ˡ %;á áI**á%á J éA*f G ؂fɡ# ؂؂ ˡfɡ# á > >š G 5á n%Hš 뚹 뻹á nV nH %éń, Í;ÍZšF G F H ؂Gá >] nánV%HšEá 6ȡ+ȡ۾$HABfɡ# š G H ˡ fɡ# á >))>)ġH)é:šo+&á+&áon+p+%HšnHšH) ë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.P$$Äޢە$ˡ$ܡ ޢۍܡ ޢۄzܡޢۓۄbܡ ޢۏQܡ ޢۆXǠXPW WWWWšyɡXX.PXǠXPXXȡ"پ)# H)#fG 19ō1š^G˩Gپ ˄Gپ;˄Gپ,á@ܡ ޢێ/(tT-  ^$á{1ޢ-  D(C :áBȄ#F>(*<V" רء$ALIGN ר'$ASCII 'BLOCK ר'%BYTE ''CONST רۤ+á* *+,ɡá'EE+Ʉ+ E++E'8EQU '3FUNC ר'>PUBLIC '6PRIVATE ר'7 PROC š   پ ń ÄɡXX.PXǠX},á (nءH++,+** ȡ٤٤򥂳+ &,,CPXXȡپš WW W WWWWšZɡXX.PC:Ä>R @#DA PתP"PɄ ˄5򿥁,,P,Ǡ,PáXǠXPXXȡ%پš   WٕپW&Nq *] A١ؑ ؂ á()Pš*w $(ëC áC á( "!  P  רɡá-EE Ʉؤ EE-   (*$á09ō>##$+áá>-á><! 'ؤ>Gáš%GG ˡH) ˡ(á>>á>!~3?Bz ))(á#3@󓄩Ä DAá<#橂ˡ%<0 P P ˄ 0YY "$&(v\EL 468:<>@BDFHJLNPRTVXZ\^`bdfVxA~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 ngV'N'  "$&(*,.0246O:DdHJc "$&(v\EL 468:<>@BDFHJLNPRTVXZ\^`bdfVxA~ڤڤꚹ'áá"vš  ) ˡ *,*GáGwƄoƅƄGƅsIƁu  $ũ@  ?áƄoƄGI-. >)(,* 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| ˡ ' = WORD ר' & INTERP ' 0 MACRO ר' 1 ENDM ' G$ .á v&v.v @2Output file for assembled listing: ( for none) áIF ר'2ENDC ')ELSE ר'*REF '4DEF ר'5@á$ġ  ˡ áٿצCONSOLE:#1:ׯDצDPRINTER:ORG '"INCLUDE ר'ALIST '9NOLIST ר':ASECT #6:ׯצREMOUT:#8:ׯ Ib.TEXTá+ÍƁPƁצ.TEXT[*]XƁ$ÍƁP' PSECT ר'!TITLE '<END ר'?PAGE ';MACRƁ[*]SƁ"ءצ @87? ́ʁȡVX[&ZYnVOLISר'+NOMACROL',PATCHLISר'-NOPATCHL'. ABSOLUTEר' /Wn ;A:<FBo ר" P)IPAGE - I" I""oë9  ȡƶWWWE ȡ"قٓ؄Wh-jPV  áٿצCONSOLE:#1:ׯDצDPRINTER:ǀٓ؄ؓ٤E˄ EE2Opcode declared twice=#6:ׯצREMOUT:#8:ׯ Ib.TEXTá+ÍƁPƁצ.TEXT[*]XƁ$ÍƁPOڡWWۚWW٤٤ꚲWW WÍW=&'Ɓ[*]SƁ"ءצ @87? ́ʁȡVX[&ZYnV/  "$&(*,.0246C:GIKMOQSUWY6ǪPǦSYMBOLTABLE DUMPתP I>AB - Absolute L:468:<>HJ nrV ˡ V ȡ/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  ?á  #3  רݢݢ__ȡzܤˡeV'N  >>>>>I  D󄓡$>>>>>V FVVVuV "$&(*,.0246C:GIKMOQSUWY6ǪPǦSYMBOLTABLE DUMPתP I>AB - Absolute LkVaV WV M#F  "$&(*,.02468:uogUVVB - Label UD - Undefined MC - MacroII=RF - Ref DF - Def PR - Proc FC - FuncVVVˡ;VáVV ˡVVIIצ,PB - Public PV - Private CS - ConstsIII  áצ------ áצ-V$VVá V V VVVVVVVN#F[--- 6PI   ! .4 __ȡzܤˡeV'N    "$&(*,.02468:9;=?T&L  "$&(*,.02460 sII Iצ" Errors flagged on this AssemblyII IƁ.&צAssembly complete:ENDC ׯ ڡ ٟˡc6٢؂٢Ʉoo٨o!  lines צ" Errors flagged on this Assembly쥈n $$٢٫jrBáZF꫄Fٟ˄á"+&áá $%  0 /| .u -$šƁVoo 41=á#FˡFNFá,>+&ˡ ,+%+++Bá3ˡ٩>>$áso$áEˡcX  (ˡ(ˡ #3&ƁV0ššٕȡ   RDá<ȡ(˄  #./! ݢݣÄɡ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)#  "áHɡ6 #@ǀ Ɓ II.0 [d.4]תPƁ HÔʂȡڥsELSE ׯ ةENDC ڡH eš á#3.áH "áá6@DIIAssembly complete:I! Iצ line רɄ>IF ׯ (ENDC ׯ ɡ  ة1 ($  0.,*(&$" P  D @2٩؄٤ءš"šޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ !48 #-FˡCˡ 5 á+áEáآآˡ&\  2 D@#5IצCurrent memory available:I( IBCÍDá ǥP."á.áˍáȍ@č$(Ʉ(ˡ 7788$š@?JåÄ݂FÄ ˡLMvá `á.á   (ɡ( qmieɡNJ?Bk|Yá)á åÄNá˥ÄFÄd áRáykig7=$QY[]_a~|~ˡ(ˡ(ˡ Fy2~G" ݂>ġá ݂Oá LMáO  Ǡ`(b^ ` b \  < צCurrent memory available:I( IBCÍ Ǡ qq,Ǡ hnnV ڻ ȍ@č$(Ʉ(ˡ 7788$š@?ٻܡ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 ޡǠ ˡRá QhnnV ڻ ٻ"ˡw0II#ffIII  D󄓡/#ffܡnhۡ ~Ǡ ǀ :(@<840,r ݢݣÄɡ3ڕġ$ڕš2 .-ġs-&.-0-.--6צ)Error in string. Value defaults to zero..-. Gצ| GEGG썡E ȡe/؂ɡ'צInteger constant overflow.Z áئ-32768תPlá0Paצ Pɡ ّ/؂Eǀ"G G| GEGGšۛ  ڡ ۛ-ەەC5?h#ꓩ鍡E ȡE/؂E/؂ȡ.ٛ ٛٛaA6 F FILENAME : < c/r for Unit I/O > E/؂E/؂˄ݢ!ۂ"ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ  Pš"ˡ4צ!Error opening file. Ioresult is "ۢB////P/ x0II#ffIII  D󄓡/#ff///צ File opened. Unitnumber : 2 ..   ( 0 quits ) P@ PATCH ...š.&"ˡ5צ"Error clearing unit. Ioresult is "ۢ-- áT vتPlock.B Ioresult is "ë֩֡VRتPR)ܹUDLR 8Tۓڄړ۳  aA۳ZڪPš  --š----!؛"퓩썡E ȡ-/؂Eǀ"G3 E E EEE EG G| GEGGީ!ݍEG G| GEGGB*L3\%䓩㍡E  ȡ/؂EE EEȡ/؂E/؂`E/؂E/؂EEG G| GEGGBR/؂E/؂`E/؂*(E#$%&'ߡ(: ȡة󏩁 šE/؂G Gצ| GEGG䩁㍡ 8 N)G ȡ7ȡ&G Gצ: eȡ&G E ȡ/؂E/؂`E/؂G: ȡ%G Gצ: G4k *šE/؂/؂E/؂`E/؂ȡ/GCORE DUMP Startbyte : G G Number of valid bytes : G Gצ| GEGGꩁ鍡E ȡE/؂E/؂G G| GEGE/؂E/؂EG B~D&ᩁ!E ȡi/؂E/؂G G| GEGGB2q?h$ǀ"/؂Eǀ"G G| GEGGᩁ瓩捡E ȡ/؂EE E E!E ȡi/؂Eǀ"/؂EEEG Gצ| GEGG"G G| GEGGE'ީ!ݍE 穁捡E ȡ/؂/؂Eȡ/؂EEEEE4 you want to continue ? ( y/n )س@@YyÍ7 ,٨ܡצTrueةȄث5,Value out of range. Maximum block number is ש 'צ Input file must be opened firצFalse'ۡTrueFalse8ڡצTrueצFalse. DUMst.Pšث(!Number must be greater than zero. x+),P : D(o, Q(uit  A) Input File צ B) Starting Block  צInput file is not opened.yCONSOLE:ׯ񍄡H#Type < space > to redisplay prompts  C) Number of Blocks צ E) Read from Memory  F) Starting Byte -!צOutput file is not opened./P P צ G) Number of Bytes  H) Output File צ I)   tG  y PȄث+צ Value out range. DefaWidth in words @ Flip Both  J) ults to 15.   /' /8 //'/8//'Decimal צ K) Hexadecimal  L) Characters //8//'/8/n/'/8/ݹI/<//צ M) Octal  N) Decimal bytes צ O) Octal bytes AT(z\b "$E:Qá /Z18"$UPeVLצ: 0: 2:  S) Space between Lines צ T) Space between Groups 4: 6: 8: 10: 12: 14: 16: 18: 20:צ 22: 24: 26: 28:ȡ$ |  צTrue False   y+00ȡȡق 0/ / G G*)š/ڞ/ڕ GCORE DUMP Startbyte : G   ......צTrueצFalseTrueG Number of valid bytes : G G*)9`+٩Ʉ򥃢fGצ Block numbFalse-ڳ @@ڳTrueצFalseer [ G Gצ ] of the file GG*)zError occurred reading block ש!Do f n/-ٳٹá𩃦wP5 V/؂/؂0/ /.-I--.-á -I-3-š-.-I--.-á -I- 9.ɩ-ɩ.Ä V/؂/؂0 ..3-Iɡ-.-I--.-á -I-\:-š -I--á -I- .šII-/"/ V//..-.N;-Iɩ.Ʉ.é-Ʉ%-I--é.Ʉ -I- -IáI-..-.0/"/ V//b<.--šەȡ/ڂٿP>צNumber of bytes : P-.8C 1צBlocknumber : P***ō@/B+++ō,+צ Number of bytes is out of range.What pattern : Pɡצlocknumber is out of range. Highest value is ש**ѥХצRead was successful.OT2ѩInvalid format.++>1.+.ɡצInvalid format.+#ɡ1ѥХRead was successful.1 צHave reached end of file.d3š1ѥХRea#O~A *3~a * 0*~d was successful.1צAlready at block # 0.\4ӡSХ/"ˡ+צ!Error saving block. Ioresult is "A **6~a ** 0***+>1.+.@צ6Invalid format. Hexdigits ::= 0 ..  Block saved.S/ˡ,צ"Error saving buffer. Ioresult is "צ Block saved.59 , A .. F, a .. f +TChLk \ "$&(*,.02468:<>@DFHJAצ7Invalid forFile : צ Length :  צ Current :  ֡+צ Byte 0 : HIGH mat. Must have prefix character, 'C' or 'H' +-.,+.,.ȡ <<,,57z~\"=Byte) Byte 0 : LOW Byteԡ Open : True  Open : Falseӡ%צ2CHARACTERS : , quits -é-Í -I--.ˡz٥M/צ Unit I/O : True # Unit I/O : Falseצ Unitnumber :  צ .--ٿ -.<<.é-Ä;#Invalid character-.á-. á/Z1* 6ȡ $7.š ..j-š1 ?צ6HEXADECIMAL : 0 .. 9 , A .. F , a .. f , Quits-.ˡإ#Ä.6 KՉHBZOճ aAթճ"չХԡ Хھھ˄ C ˡܓݢݢ 0006צ/The display will be in characters if printable./צ*The display will be in hexadecimal digits.67\C  C  C C-/1Z//ԡPչ2E5A8=394511BV*  ?=;(3צError. File notȡ H    ?<-- ֡إ3/0Bس~/A  open. 9?W2 ;=, "$&.QáAƂGƁƂ"$_ #/a aA-.<צ Invalid input-.á-.: h@ȡC ٢ڢ٣%٣&ڢ ڢ ٢-٢٢$٢ -.س $XLع?E@A==99:5;1<-CU&#! )!)"$;Qá/Z٢$٢ ٢$٢#٢$٢#٢$٢!1~8G$A Zצ!EDIT : D(ump, G(et, R(ead, S(ave,!צ. M(ix, T(yp٢$ ٢"٢$٢!٢$C٣.٣.٢e, I(nfo, F(or, B(ack, ? II.0 OP1!EDIT : V(iew, W(ipe, Q(uit, ? !. / C٣.C٢)٢)٢/ C٢-٢-٢/  OPLTYPE : C(har, H(ex, F(ill, U(p, D(own, L(eft, R(ight, , Q(uitתPHValid format : C<C٢,٢,٢/ C٢,٢,٢/ C٢'٢'٢/printable char> or H תP0/3#~~C٢'٢'٢/C٢(٢(٢/C٢(  ٢( d' ȡ0؂ȡ A؂ ٢/á#For use with SYSTEM.MISCINFO [S.5b]תPV " š " "FI-.٫弄צ áزC Cب,ب"٢ ٢ؾ6CC7إPХתPyצPxwvutT BƂGƃsƁƃ#ƂáٕٕPC C C C 7 á ˄ۮ%&؟ˡ#š á$ á% &ˡ ˡ  á ١,0̅ʅȡR,0š,0,0ٻ, `d!^%  CODESTAT UCSD P-CODE DISASSEMBLER צ II.0 [a.6]Input code file: Pl INIT DISASSEMGATHER DATACOUN ̅ƅPƅ.CODEUƅ"ˡ llá̅ʅȡRˡ!Ǘ.   צ(Is this code file designed for a machine צ9where byte zero is the most significant byte ?YyÍ צ*Dis-assembly output f(ȡ.press spacebar to continue...ile ( for none): PP׷צCONSOLE:#1:ׯ /'#"! L" T ɡ Dڡ̀ȡ/ġړƀ ʀ?ˡ áhƂlƃƁ/Ƃ[Յ    ׷ /ƂlƁ/ؒX^̀ƀתPƀȦתPצ[ˡAƀƁ[צ[ƁPƀƀצ:ˡ-ƀƁצצCONSOLE:#1:ׯ//P/š///צ s:ƁPצ:ƀ̀ʀƀ̀ƶƀʀ¾ áʀ̀ʀʀ•ʀʀorry but there were no accesses/צ3 to this data segment from dis-assembled procedures/! Z D̀ʀ•ʀƕšʀđ ʀʀĂ ̀ʀʀẦƀʀĿʀƀʀĞƀړ ?  צ ع// / / //-s/b/ƀʀʀẰʀġ̀ġړ ƀ ʀ?ʀʀ/<0<B z x1Q/*@/// teVK<-/ع٢ 4 $N0T"$'z"'(8*++-/2.57 9$9l+B9::;r====>?@6@X@h(B"pfxb@DM} ٢ ٢  ٢8 w٢ j٢ ٢ U٢ ٢ ٢! 8٢R +٢  -˫  áٮ%M- &?ö;}R ˡ(á!9á " e\I2'u",ƁX0 ,צ OPCODES.II.0"ˡ4 *OPCODES.II.0 not on system disk8  |š"ǀ>ۢÄÄÄńɄWۢۢ8/8؂44/ /\Jɡá*//áǀɡK##/aڡ(ǖǖ3/ / / /\/ ۢ ۢ @/44/ / /\//44šɡE"" f//44)/ / /\/ ٢-/ / /\/ɡD!!-/ / /\/6 ٢//44  ۢۢ -/ / /\/"/ /\/ /6:   ۢۢڕ ۢ!ۢ!ǀɡ ?c=  áءGd //4/ / / / /\/ڕȡ`+\ ؕ)/4ǭÍǡǹǀɡ@ 0/ / /\/) / /\/h //448/V`?c :/?c / /\/Ǯ44/ /\/آ(آ( //44١(ǖǖ)/ / /\/ / ڢڢ٢٢ Í/צREAL/ /\//STR +\ רd0123456789ABCDEFר ,7d  ˡ!  /$ǥǧǫ/44 ۢǗ.   צ(Is this code file designed for a machine ۢڡخ١خ)/ / /\/ //4ۂ(ڂ(() Ʉl(á= Jɡ %%  %% 4 /  ڢڢ ڢ ڢ ؕٮ)/ > š  +ɡF \+d\+d++/ /\/ //44á ۢ9 /צBYTE/ / /\/X/WORD/ / /\/ A3)/-?=KZ4ǖ́3ʁ3ȡƀǖ4ǖ́3ʁ3ȡ V# //44/ /צ '4ǖ́4ʁ4ȡ&ǖġǖǖǖǖƀǖƀǖƀ ڢڢ!ȡ/ȡ /'//*M /4ǖ́3ʁ3ȡ;ǖ2Ä G4ǖ́3ʁ3/44)/ / /\/ ۢۢ.2Äצ 7KD'zh5)ȡT+\ )/) / /\/\ $ %%&1)&)(& š & & 4ǖ 4ǖ$$?$cؕ?$cũ$cÍ?c$%ɡ%  4ǖġ4ǖ) ٥۩cĄá<c۩c% $?c$ȡ!?$c?$c$$) 4ǖá+Procedure not in fileš۩á ؤؤ?ń4šکá ؤؤ6y  *&4ǖ ɡ!&4ǖ  š  % á؂(؂l 24ǖáN Procedure   is written in Assembly./ /BLOCK #4ǖȡ%צ # LL SIZE4ǖȡH/( / OFFSET IN BLOCK=/ //צSEGMENT PROC OFFSET#/ #/צ :  4ǖȡ" HEX CODE/8*[ ] .x/ / / צ"Procedure guide: #(of procedure),&צL(isting),Q(uit)*צA(ll),L(isting),Q(uit)/(/d/d/d/צ): 0.2áצ to segment: ȡ ?قצwhich procedure $/ /\//צBOOL/ /\//POWR/ /\/ +\ ר'', EA= 951 - )%! : T  1 Do you wish to keep track of referencesצ2 to a parš//צ5 Positive jumps Negative jumps//ȡw/ /ticular procedure's data segment?YyÍ צ&Do you wish control over dis-assembly? /d/ /d/3//Sorry no juצdata segment to watch?צto dis-assemble?LlÍAaÍdis-assembling allYyÍ;*** WARNING - - STATISTICS ARE GATHERED ON DIS-ASSEMBLEDצ PROCEDURES4ǖ צ proceduresꓡ2( ) ONLY ***q /*** THIS INCLUDES DATA SEGMENT WATCHING ***Q09Ȅ009Ȅ 04ǖōG$I didn't say you had THAT procedure!| ȡU(( )Mצdis-assembling procedure  dˡe` 2 P l l f JD* n  L !: ol over dis-assembly?ȡ  4ǖȡcQqÍÍX6cXrצ$SegmeYyÍ;*** WARNING - - STATISTICS ARE GATHERED ON DIS-ASSEMBLEDצ PROCEDURESnt guide: #(of segment),Q(uit)צyou have these segments:ȡV عצ Parameter oneצ Bits used Total Percentageצ7 Parameter one  ȡ ?؂which segment to look at  Parameter two ٦7Bits used Total Percentage Total Percentageצ. Para(צto decide on DATA SEGMENT?&צfor possible DIS-ASSEMBLY?Qq˄09Ȅ00meter one Parameter twoצ Case table sizeצ7Bits used Total Percentage Total9Ȅ 0ōL"I didn't say you had THAT segment!  Percentage٦ Total Percentageצ*Flavor Total Percentage Flavorצ TotalˡAQqÍÍ&4QqÍi 7have you changed your mind about data segment watching? Percentage٦2 # Total Pct # Total Pct # Total٦ Pct # Total PctYyÍéQȡFˡ dc3C~ //Jump statistics on the/ /צ Total jumps/; "d :إ/ إ/"d  :إ/  إ  /٢ d/á䥁//áȡ/8؂44/٢/ "d "JئSLDO OPCODE: 232..247 TOTAL:ة!  // /8؂44/٢ //ة!'dئ % !!ˡ ȡ :إ/ إ/!dȡ襁/8؂44/٢ /٢d/צ /8؂44 :إ/ إ/!d :إ/ إ//٢ /٢d/z / / !d  :إ/  إ/ !d צSIND OPCOD/'d/צ % ˡ/////ȡI/ /٢ /mps today!/r6 z//Procedure call statistics/ȡˡǖE: 248..255 TOTAL:ة  ة 'dצ %   ˡ ȡ :إ/ȡǖšz/ Segment:/ / Procedure:/ / Calls:/ إ/ d :إ/ إ/ d :ǖ / 􊉇ȡ/*2ئSLD/ إ/ d :إ/ إ/ d C OPCODE: 0..127 TOTAL:ة# ة#'dئ % ##ˡ ȡ : (\ // / / /'d/ % /إ/ إ/#d  :إ/  إ/ #d@ :L / / /'d/צ % ˡ/////ȡI/إ/@ إ/@#d` :إ/` إ/`#d /٢ /٢d// \ // /' צSLDL OPCODE: 216..231 TOTAL:ة" ة"'dצ % ""ˡd/צ % /////ámȡ`/ /٢ / ȡ :إ/ إ/"d :إ/ إ//٢  //ȡw/ /٢ /٢d/< ٢! /٢!d//  4// /'d' צ Total operators TT "ɍ -   $/צ % ///áȡ/V؂44/٢( //  $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ /j؂44/٢( ///~44,/٢((  $ $ȡ%  0 ފ$čV   .ˡ:  Eɡ //ȡ/V؂44/٢( /٢(d/j؂44  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑ0 /٢( /٢(d//~44,/٢(( /٢((ݕ݂ ؂ ɡ  |,  j  ,. o look at (צto decid/RGP/ / /'d/צ % ///de on DATA SEGMENT?&צfor possible DIS-ASSEMBLY?Qq˄09Ȅ009Ȅ 0ȡˡ]/3؂44/٢ /٢󊉇d/ N/3؂44ōL"I didn't say you had THAT segment! ˡAQq/٢ // á// 6 ǀ ȡ/Í&4QqÍi 7have you changed your mind about data segment watching?d// \ / / /'d/צ % Tš dš Xš Lš @š 4š (š / \FT>4fh.$/////ȡw/ /٢ /٢d/٢  V   3Output file for opcode statistics ( for none): P /٢ d/ȡI/ /٢ $ /٢ d/צCONSOLE:ׯצ#1://Pǀ **ȡ//44/ \ Z/ / /'d/צ % ˡ/////צ Opcode:/ / Total: : 6 2 .*&" ("(" ,/ȡ/ /٢ /٢d/٢ /٢d/. 8 ////' / Total operators/= ئData Segment size:ة צ Data references:ة ئ Lex levelإ۩c  ȡ :إ/ إ/"d :إ/ إ/צ For segment ȡإ?قצ Procedure #ة ئOREAL STRING BOOLEAN POWER BYTE WORD EXEC-ERRINIT RESET OPEN CLOSE GET PUT SEEK EOF EOLN ffset(word) Total %u8ˡ3/ / /d /ˡREADINT WRITEINTREADREALWRITREALREADCHARWRITCHARREADSTR WRITESTRWRITBYTSREADLNN WRITELN CONCAT INSERT COPY DELETE POS X  8Output file for data segment statistics( for none): PBLOCKIO GOTOXY IOCHECK NEW MOVELEFTMOVERGHTEXIT UREAD UWRITE IDSEARCHTREESRCHTIME FILLCHARSCAN DRAWLINEDRAWBLOC׷צCONSOLE:#1:ׯ//P/š///צ s TRUNC ROUND SIN COS LOG ATAN LN orry but there were no accesses/צ3 to this data segment from dis-assembled procedures/! Z EXP SQRT MARK RELEASE IORESULTUBUSY PWROFTENUWAIT UCLEAR HALT MEMAVAL SLDC ABI ABR ADI ADR pɍ -   $ $ ݞ$' ݑLAND DIF DVI DVR CHK FLO FLT INN INT LOR MODI MPI MPR NGI NGR LNOT $ $݂ō $݂ġ ݂$ $ $ȡ%  0SRS SBI SBR SGS SQI SQR STO IXS UNI LDE CSP LDCN ADJ FJP INC IND  ފ$čV   .ˡ:  Eɡ  -ݑ š 0 0 ߿`ġ(  IXA LAO LSA LAE MOV LDO SAS SRO XJP RNP CIP EQU GEQ GTR LDA LDC  ݂. ݕ ؂݂3  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ  |, pLEQ LES LOD NEQ STR UJP LDP STP LDM STM LDB STB IXP RBP CBP EQUI t  إ/#d  :إ/  إ/ #d@ :GEQI GTRI LLA LDCI LEQI LESI LDL NEQI STL CXP CLP CGP LPA STE BYT EFJ ɡ=ˡ/آ;ˡ/آإ/@ إ/@#d` :إ/` إ/`#dةؕؤ ؤšؤؤةġ= d צSLDL OPCODE: 216..231 TOTAL:ة" ة"'dצ % ""ˡ> 11 edit :س@ BáRá X *Place PascaNFJ BPT XIT NOP SLDL SLDL SLDL SLDL SLDL SLDL SLDL SLDL SLDL SLDL SLDL SLDL ;COPYRIGHT (C) 1979, REGENTS OF THE UNIVERSITY OF CALIFORNIASLDL SLDL SLDL SLDL SLDO SLDO SLDO SLDO SLDO SLDO SLDO SLDO SLDO SLDO SLDO SLDO ۡ (ۡ*(3 ġ((((ȡ;á ȡSLDO SLDO SLDO SLDO SIND SIND SIND SIND SIND SIND SIND SIND @ġ ٿB  ( @ Dz?$ TITLE SIZE STARTGˡGá[ ׷ .  צ   @ G    ړGáu   ׯ  ȡ  .  ړ ڡeG  SIZE: צ, START: @o& :%Enter title of wanted RT11 text file:PšZ.ץˡȡצ P ר C  Enter title of output Text 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(t? 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( BINDER jnˡJצ OUTPUT ERROR, program terminatedj  l disk in drive then Type "á Enter title of output Text file:P تP!-̄/+.-ʄ/m.-á̄/--,+̄1,ʄ1ȡ%,.-ˡ̄/--,,šj צ(Transfer Option? B(inary R(t11 edit :س Báʄ/ -+- -+--š---.-.-` ƯjưՁצRá * 2jnn T, n n jn(Are you using a standard RT11 disk[Y,N]? צ,Are you using a Single floppy drive machine? ȡnȡn á#n Ǭš Pޡ= áצAPlace RT11 disk in drive, indicate unit number [4-12], then (C/R) A/nn ؂nݿnݿ j% š !Eצ RT-11.DIRPE0"ÄˡġDisplay the directory? (y/n) o) n( n צ'Place RT11 Disk In Drive and Type  ġ nZ"  E   צ)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) @  re-create it,2it will terminate with the cryptic message "ERROR"?You also need to execute th2 Calling system linker to create new SYSTEM.PASCALצ SYSTEM.PASCALצSYSTEM.PASCAL[35] 2e program SETUP to get the system toצ&work intelligently with your terminal.צ* File with GOTO6.\ ]UZ\̀[̀[ʀȡ;ʀ [ רʀ[XY(X,Y: INTEGER) procedure:Pá "ˡ" ++P+צ.CODEU+"á2 SYSTEM.PASC[[[ , Z\]\á ]*צCode file write error ] AL"ˡ2ˡ+ZZ ++++2+ˡ ˡZ1 &O^+צincompatible byte sex+Z ++++ +ˡe IZؕܕZؕܕ'ؕ'ؕە''''۞ۂەZ Y]UˡF\ PASCALSYר\욶\UXXUU' Yض[ Zˡl]ZUˡM\ [آ [\[\[UXXUٚ.ȡ$ˡ,U ,š YáZY [[ȡY[š [[ -n  Tȡܢ"6 ERROR ( Pas ,٪PتP]ƁX\Y]UZ\̀[̀[ʀȡ;ʀ [ רʀ[cal System Binder (2.1 a2)>This program modifies the SYSTEM.PASCAL of your default prefix?d[[[ , Z\]\á ]*צCode file write error ] isk. If any of the files it expects to be around are missing,צ?i.e. SYSTEM.PASCAL, or enough room (60 blocks) to Ɓ62Ɓ^Ձ.  Moving procedures around  ! A  /END; ,REPEAT /WRITE('ARE THERE ANY MORE STUDENTS, [y/n] :'); /READ(CH); /WRITELN; /UNTIL CH IN ['Y','y','N','n']; ,CASE PROGRAM CLASSRECORD(INPUT,OUTPUT,OUTFILE);   CONST #MAXSTUDENT = 20; #NUMDAYS = 8;   TYPE #CLASSSIZE = 1..MAXSTUD CH OF /'Y','y' : FLAG := FALSE; /'N','n' : FLAG := TRUE /END; ,I := I + 1 )END #END;   PROCEDURE GRADEENTER; #VAR &CENT; #CLASS = RECORD &NAME : PACKED ARRAY[1..20] OF CHAR; &SEX : (MALE,FEMALE); &DAILYGRADE : ARRAY[1..NUMDAYS] OF INTEGERH : CHAR; &TST, BUF : ARRAY[1..20] OF CHAR; &I, J, NUM, DAY, GRADE : INTEGER; &FLAG : BOOLEAN; #BEGIN # NUM := 0; &FLAG ; &COURSEGRADE : CHAR &END;   VAR #THISCLASS : ARRAY[CLASSSIZE] OF CLASS; #INFILE,OUTFILE : FILE OF CLASS; #CH : CHAR; := FALSE; &WHILE (NUM <= MAXSTUDENT) AND (FLAG = FALSE) DO )BEGIN ,FOR I := 1 TO 20 DO /BEGIN 2BUF[I] := ' ';  I : INTEGER; #DONE : BOOLEAN;   PROCEDURE INITIALIZE; #VAR &I,J : INTEGER; #BEGIN &FOR I := 1 TO MAXSTUDENT DO )WIT2TST[I] := ' ' /END; ,WRITELN('List FULL student name or roster number.'); ,WHILE NOT EOLN DO /BEGIN 2READ(CH); 2IF (ORD(H THISCLASS[I] DO ,BEGIN /FOR J := 1 TO 20 DO 2NAME[J] := ' '; /FOR J := 1 TO NUMDAYS DO 2DAILYGRADE[J] := 0; /COURSEGRADECH) >= 48) AND (ORD(CH) < 57) 5THEN 8BEGIN ;NUM := NUM*10; ;NUM := NUM + ORD(CH)-ORD('0') 8END 5ELSE 8BUF[I] := CH /END; := ' ' ,END #END;   PROCEDURE READOLD; #VAR &I : INTEGER; #BEGIN &RESET(INFILE,'GRADE.THIS'); &I := 1; &WHILE (EOF(I ,IF BUF <> TST THEN /FOR I := 1 TO MAXSTUDENT DO 2BEGIN 5FOR J := 1 TO 20 DO TST[J] := THISCLASS[I].NAME[J]; 5IF TST = BUFNFILE) = FALSE) AND (I <= MAXSTUDENT) DO )BEGIN ,THISCLASS[I] := INFILE^; ,GET(INFILE); ) I := I + 1 )END; &CLOSE(INFILE THEN 8NUM := I 3END; )IF NUM = 0 THEN EXIT(GRADEENTER); )FOR I := 1 TO 20 DO ,WRITELN(THISCLASSS[NUM].NAME[I]); )WHILE NO) #END; )  PROCEDURE ENROLLSTUDENT; #VAR &I,J : INTEGER; # FLAG : BOOLEAN; #BEGIN # I := 1; T(DAY IN [1..NUMDAYS]) DO ,BEGIN /WRITE('ENTER DAY'); /READ(DAY) ,END; )WRITE('ENTER GRADE :'); )READLN(GRADE); )THISCLAS&WHILE (THISCLASS[I].NAME[1] <> ' ') AND (I <= MAXSTUDENT) DO )I := I + 1; &FLAG := FALSE; &WHILE (FLAG = FALSE) AND (I <= MS[NUM].DAILYGRADE[DAY] := GRADE; )CH := 'N'; )WRITELN('ARE THERE NY MORE ENTRIES? [Y/N]'); )READ(CH); )CASE CH OF ,'Y','y' AXSTUDENT) DO )BEGIN ,WRITELN('ENTER THE STUDENT''S NAME.'); ,J := 1; ,WHILE (EOLN = FALSE) AND (J <= 20) DO /BEGIN 2READ(CH); 2THISCLASS[I].NAME[J] := CH; 2J := J + 1 /END; ,REPEAT /WRITE('ENTER THE STUDENT''S SEX AS [m/f] :'); /READ(CH); /WRITELN /UNTIL CH IN ['F','f','M','m']; ,CASE CH OF /'M','m' : THISCLASS[I].SEX := MALE; /'F','f' : THISCLASS[I].SEX := FEMALEB : FLAG := TRUE; ,'N','n' : FLAG := FALSE ,END )END #END;   PROCEDURE LISTSTUDENTS; #VAR &I,J : INTEGER; #BEGIN # I := 1; &WHILE (I<=MAXSTUDENT) AND (THISCLASS[I].NAME[1] <> ' ') DO )WITH THISCLASS[I] DO ,BEGIN /WRITE(I:3,'. '); /FOR J := 1 TO 20 DO 2WRITE(NAME[J]); /CASE SEX OF 2MALE : WRITELN(' MALE'); 2FEMALE : WRITELN(' FEMALE') 2END; /I := I + 1 ,END #END;   PROCEDURE LISTGRADES; #BEGIN #END;   PROCEDURE COURSEGRADE; #BEGIN #END;   BEGIN {CLASSRECORD}  CH := '1'; #WHILE NOT (CH IN ['N','n','U','u']) DO &BEGIN )WRITE('Is this a new roster or an update, answer [N/U].'); )READ(CH) &END; #WRITELN; #CASE CH OF &'N','n' : INITIALIZE; # 'U','u' : READOLD &END; #DONE := FALSE; #WHILE DONE=FAO^LSE DO &BEGIN )WRITELN('WHAT OPERATION DO YOU WISH TO PERFORM?'); )WRITE('ENTER E(nroll,G(rade,S(tudentlist,L(istgrade,C(oursɞegrade,Q(uit :'); )READ(CH); )WRITELN; )CASE CH OF ,'E','e' : ENROLLSTUDENT; ,'G','g' : GRADEENTER; ,'S','s' : LISTSTUDENTS; ,'L','l' : LISTGRADES; ,'C','c' : COURSEGRADE; ,'Q','q' : ,END; )WRITELN; )WRITE('DO YOU WANT ANOTHER OPERATION, [y/n] ? ');  READ(CH); )WRITELN; )CASE CH OF ,'Y','y' : DONE := FALSE; ,'N','n' : DONE := TRUE & END &END; #REWRITE(OUTFILE,'GRADE.THIS'); #FOR I := 1 TO MAXSTUDENT DO &BEGIN )OUTFILE^ := THISCLASS[I]; )PUT(OUTFILE) # END; #CLOSE(OUTFILE,LOCK)  END. {CLASSRECORD} # C ENERATOR FOR PASCAL PROGRAMS. N.WIRTH, 7.5.74*) (*'QUADRATIC QUOTIENT' HASH METHOD*) (* ORIGINAL CODE ASSUMED 48 BIT INTEGER OALPHANUMERICS, NUMERICS, SPECIALCHARS: CHARSET; LINECOUNT: INTEGER; EMPTYFILE: BOOLEAN; $ F CDC 6000 MACHINES *)  (* MODIFIED BY R. L. PALASEK SEPT/OCT 1979 TO RUN ON U.C.S.D PASCAL *)  (* ON AN LSI/11 PROCESSOR . TH$UCSDLST: BOOLEAN; (*THE FILE TO BE CROSS REFERENCED IS A LISTING BGENERATED BY THE UCSD COMPILER *) $ PROCEDUREE HASH METHOD WAS CHANGED TO  (* PREVENT INTEGER OVERFLOW *)   CONST P = 749; (*SIZE OF HASHTABLE*) N INITIALIZE; BEGIN (* INITIALIZE *) ERROR := FALSE; FOR I := 0 TO P DO T[I].KEY := ' '; C1 := 0; (*$LC.LST.TEXT*)  (*====================================================================*) (* K = 31; (*NO. OF KEYWORDS*) MAXLINES = 10000; ALFALEN = 10; REFSPERLINE = 15; REFSPERIT *) (* PROGRAM TITLE: PASCAL CROSS-REFERENCING PROGRAM *) (* EM = 5; PAGESIZE = 55; TYPE ALFA = PACKED ARRAY[1..ALFALEN] OF CHAR; TEXT = FILE OF CHAR; INDEX = 0..P *) (* PROGRAM FILE: XREF.TEXT *) ; ITEMPTR = ^ITEM; WORD = RECORD KEY: ALFA; FIRST, LAST: ITEMPTR; (* *) (* LAST UPDATE: 29-SEP-77 10:25  FOL: INDEX END ; CHARSET = SET OF CHAR; NUMREFS = 1..REFSPERITEM; REFTYPE = (COUNT, *) (* OCT-79 R.L.P. *) (* PROGRAM SUMMARY:  PTR); ITEM = RECORD REF : ARRAY[NUMREFS] OF 0..MAXLINES; CASE REFTYPE OF  *) (* *) (* THIS PROGRAM COUNT: (REFNUM: NUMREFS); PTR: (NEXT: ITEMPTR) END ; VAR TOP: INDEX; (*TOP OF CHAIN  PRODUCES A CROSS-REFERENCE LISTING FOR ANY *) (* PASCAL PROGRAM. OCCURENCES ONLY ARE LISTED. NO DISTINCTION IS *) (LINKING ALL ENTRIES IN T*) N: INTEGER; (*CURRENT LINE NUMBER*) CH: CHAR; (*CURRENT CHAR SCANNED *) * MADE BETWEEN DEFINITIONS AND REFERENCES. *)  C1, C2: INTEGER; (*FREQUENCY COUNTERS*) T: ARRAY [INDEX] OF WORD; (*HASH TABLE*) KEY: ARRAY [1..NK] OF ALFA(* *) (* ; (* RESERVED KEYWORD TABLE *) ERROR, (* ERROR FLAG *) LISTING: BOOLEAN;  *) (*====================================================================*) PROGRAM XREF; (*CROSS REFERENCE G(* LISTING OPTION *) I: INTEGER; (* YOU-KNOW-WHAT *) INFILE, PRINTER: TEXT; ALPHAS, D ITH '; NUMERICS := [ '0', '1', '2', '3', '4', '5', '6', '7', '8', '9' ]; ALPHAS := [ 'A' , ,LISTING := FALSE; , ,{IF NOT UCSDLST THEN BEGIN}  /WRITELN; /WRITE( 'LISTING OF INPUT FILE (Y/N)?' ); /READLN( LIST, 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', OPTION ); # /LISTING := NOT(LISTOPTION = 'N'){ END}; # ,EMPTYFILE := FALSE END ELSE  'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h' EMPTYFILE := TRUE END; (* OPEN *) PROCEDURE PAGE; BEGIN (* PAGE *) WRITELN( PRINTER ); WRITELN( PRINTER, CH, 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'R(12) ); WRITE( PRINTER, ' ' ); LINECOUNT := 0 END; (* PAGE *) PROCEDURE WRITEOLN; BEGIN (* WRITEOLN *) WRITELN(y', 'z', '#', '$', '%', '&', '_' ]; ALPHANUMERICS := ALPHAS + NUMERICS; SPECIALCHARS := [ '''', ' PRINTER ); WRITE( PRINTER, ' ' ); LINECOUNT := LINECOUNT + 1; IF LINECOUNT = PAGESIZE THEN PAGE END;(', '/', '{' ]; N := 0; TOP := P; CH := ' ' END; (* INITIALIZE *) PROCEDURE OPENFILES; VAR NUMBLOCKS: INTE (* WRITEOLN *) PROCEDURE NEWLINE;  VAR I: INTEGER; DUMMYCH: CHAR;  BEGIN (* NEWLINE *) (*COMPLETELY REDONE OCT 79. R. C2 := 0; KEY[ 1] := 'AND '; KEY[ 2] := 'ARRAY '; KEY[ 3] := 'BEGIN '; KEY[ 4] := 'CASE '; KGER; OPENOK: BOOLEAN; OPENERRNUM : INTEGER; LISTOPTION: CHAR; FILENAME: STRING; BEGIN (* OPEN *) EY[ 5] := 'CONST '; KEY[ 6] := 'DIV '; KEY[ 7] := 'DOWNTO '; KEY[ 8] := 'DO '; KEY[ 9] := 'ELSE  REPEAT WRITELN; WRITE( 'INPUT FILE NAME - ' ); READLN( FILENAME ); IF LENGTH(FILENAME) >0  '; KEY[10] := 'END '; KEY[11] := 'FOR '; KEY[12] := 'FUNCTION '; KEY[13] := 'IF '; KEY[1THEN (*$I- DISABLE I/O CHECKS *) OPENOLD( INFILE, FILENAME ); (*$I+ ENABLE AGAIN *) 4] := 'IN '; KEY[15] := 'MOD '; KEY[16] := 'NIL '; KEY[17] := 'NOT '; KEY[18] := 'OF  OPENERRNUM := IORESULT; OPENOK := ( OPENERRNUM = 0 ); IF NOT OPENOK THEN WRITELN( '*** I '; KEY[19] := 'OR '; KEY[20] := 'PROCEDURE '; KEY[21] := 'PROGRAM '; KEY[22] := 'RECORD '; KEY[23] :NPUT OPEN ERROR #', OPENERRNUM ); UNTIL OPENOK; OPENNEW( PRINTER, 'XREF.LISTING' ); IF LENGTH(FILENAME) > 0 TH= 'REPEAT '; KEY[24] := 'SET '; KEY[25] := 'THEN '; KEY[26] := 'TO '; EN BEGIN ,WRITELN; (* RLP SEPT 79 *) ,WRITELN('WAS ', FILENAME, ' GENERATED AS A'); ,WRITELN(' KEY[27] := 'TYPE '; KEY[28] := 'UNTIL '; KEY[29] := 'VAR '; KEY[30] := 'WHILE '; KEY[31] := 'WLISTING FILE BY THE '); ,WRITE('U.C.S.D. PASCAL COMPILER? (Y/N)? ' ); , ,READLN(LISTOPTION); ,UCSDLST := (LISTOPTION = 'Y');E )WRITE('<',N,'>') END; # #WRITE('.') # END; (* NEWLINE *) PROCEDURE GETNEXTCHAR; BEGIN (* GETNEXTCHAR *) IF EOLN(IX^.REFNUM := 1; X^.REF[1] := N; T[H].LAST^.NEXT:= X; NFILE) THEN IF N < MAXLINES THEN NEWLINE ELSE BEGIN  T[H].LAST := X; END ELSE WITH T[H].LAST^ DO  PAGE; WRITELN( PRINTER, ' **** TOO MANY LINES' ); ERROR := TRUE EN BEGIN REFNUM := REFNUM + 1; REF[REFNUM] := N D; #READ( INFILE, CH );(*CODE MOTION HERE. RLP OCT 79 *) # #IF LISTING &THEN )IF CH = CHR(12) ,THEN /BEGIN 2P END END ELSE IF T[H].KEY = ' ' THEN AGE; 2WRITE( PRINTER, N:6, ' ' ) /END ,ELSE /WRITE( PRINTER, CH )  END; (* GETNEXTCHAR *) FUNCTION NOKEY(X: ALFA): BOOL BEGIN (*NEW ENTRY*) F := TRUE; C1 := C1 + 1; NEW(X)EAN; VAR I,J,K: INTEGER; BEGIN I := 1; J := NK; REPEAT K := (I+J) DIV 2; (*BINARY SEARCH*) I; X^.REFNUM := 1; X^.REF[1] := N; T[H].KEY := ID; F KEY[K] <= X THEN I := K+1; IF KEY[K] >= X THEN J := K-1; UNTIL I > J;  T[H].FIRST := X; T[H].LAST := X; T[H].FOL := TOP; T NOKEY := KEY[K] <> X END (*NOKEY*) ; FUNCTION ORDALFA(ID: ALFA): INTEGER; VAR I, J: INTEGER; BEGIN J := 0; OP := H END ELSE BEGIN (*COLLISION*) H := H+D;  FOR I := 1 TO ALFALEN DO J := (J*10 + ORD(ID[I]) ) 8MOD (MAXINT DIV 11);(*RLP SEPT 79*) ORDALFA := ABS(J) END; (* D := D+2; IF H >= P THEN H := H - P; L.P. *) IF LISTING THEN BEGIN # &WRITEOLN; # IF UCSDLST THEN BEGIN # READ(INFILE,N); *WRITE(PRINTER,N:6); *F ORDALFA *) PROCEDURE SEARCH( ID: ALFA ); (*MODULO P HASH SEARCH*) (*GLOBAL: T, TOP*) VAR H,D : INTEGER; OR I := 7 TO 23 DO BEGIN -READ(INFILE,DUMMYCH); -WRITE(PRINTER ,DUMMYCH) END END &ELSE BEGIN )N := N + 1; )WRITE(PRINTER , X : ITEMPTR; F : BOOLEAN; BEGIN H := ORDALFA(ID) MOD P; F := FALSE; D := 1; C2 := C2 + 1; REPEAT N:6, ' ') END END $ #ELSE &IF UCSDLST THEN BEGIN )READ(INFILE,N); )FOR I := 7 TO 23 DO READ(INFILE,DUMMYCH) END &ELSE )N IF T[H].KEY = ID THEN BEGIN (*FOUND*) F := TRUE; IF T[H].LAST^.REF := N + 1; ) # IF N MOD PAGESIZE = 0 THEN BEGIN WRITELN; )WRITELN( 'Running...' ); NUM = REFSPERITEM THEN BEGIN NEW(X); F  WRITELN( PRINTER, ' **** TABLE FULL' ); ERROR := TRUE GER; ID: ALFA; BEGIN (* GETIDENTIFIER *) I := 0; ID := ' '; REPEAT IF I < ALFALEN THE END ; END UNTIL F OR ERROR END (*SEARCH*) ; PROCEDURE PRINTWORD(W: WORD); N BEGIN I := I+1; IF ('a' <= CH) AND (CH <= 'z') THEN  VAR L: INTEGER; X: ITEMPTR; FUNCTION NEXTREF : INTEGER; VAR THISREF: NUMREFS; BEGIN THISREF := (L-1) MOD REFSP ID[I] := CHR( ORD(CH) - ORD('a') + ORD('A') ) ELSE ID[I] := CH END;ERITEM + 1; NEXTREF := X^.REF[ THISREF ]; IF THISREF = X^.REFNUM THEN X := NIL ELSE IF THISR GETNEXTCHAR UNTIL NOT(CH IN ALPHANUMERICS); IF NOKEY(ID) THEN SEARCH(ID) EF = REFSPERITEM THEN X := X^.NEXT END; (* NEXTREF *) BEGIN WRITE(PRINTER,' '); WRITE( PRINTEND; (* GETIDENTIFIER *) PROCEDURE GETNUMBER; BEGIN REPEAT GETNEXTCHAR UNTIL NOT(CH IN NUMERICS); END; (* GEER, W.KEY ); X := W.FIRST; L := 0; REPEAT IF L = REFSPERLINE THEN BEGIN L TNUMBER *) PROCEDURE GETCHARLIT; BEGIN REPEAT GETNEXTCHAR UNTIL (CH = '''') OR ERROR OR EOF(INFILE); GETN:= 0; WRITEOLN; WRITE( PRINTER, ' ' ) END ; L := L+1; WRITE( PEXTCHAR END; (* GETCHARLIT *) PROCEDURE GETPARENSCOMMENT; BEGIN (* GETPARENSCOMMENT *) GETNEXTCHAR; IF CH = '*' RINTER, NEXTREF:6 ) UNTIL X = NIL; WRITEOLN; WRITEOLN END (*PRINTWORD*) ; PROCEDURE PRINTTABLE; VAR I,J,M: I THEN BEGIN GETNEXTCHAR; WHILE (CH <> ')') AND NOT(ERROR OR EOF(INFILE)) DO NDEX; BEGIN I := TOP; WHILE I <> P DO BEGIN (*FIND MINIMAL WORD*) M := I; J := T[I].FOL; BEGIN WHILE (CH <> '*') AND NOT(ERROR OR EOF(INFILE)) DO GETNEXTCHAR;  WHILE J <> P DO BEGIN IF T[J].KEY < T[M].KEY THEN M : GETNEXTCHAR END; GETNEXTCHAR END END; (* GETPARENSCOMMENT *) PROCEDURE GETSLASHCOMME= J; J := T[J].FOL END ; PRINTWORD(T[M]); IF M <> I THEN NT; BEGIN (* GETSLASHCOMMENT *) GETNEXTCHAR; IF CH = '*' THEN BEGIN GETNEXTCHAR;  BEGIN T[M].KEY := T[I].KEY; T[M].FIRST := T[I].FIRST; T[M].LAST := T[I] WHILE (CH <> '/') AND NOT(ERROR OR EOF(INFILE)) DO BEGIN  IF D = P THEN BEGIN PAGE; .LAST END ; I := T[I].FOL END END (*PRINTTABLE*) ; PROCEDURE GETIDENTIFIER; VAR I: INTEG  '8', '9': GETNUMBER; '''': GETCHARLIT; '(': GETPARENSCOMMEN OF רx OR רx PROCEDURE רx PROGRAM רx RECORD רxT; '/': GETSLASHCOMMENT; '{': GETCURLYCOMMENT END (* CASE *)  REPEAT רx SET רx THEN רx TO רx TYPE רx WHILE (CH <> '*') AND NOT(ERROR OR EOF(INFILE)) DO GETNEXTCHAR; GETNEXELSE GETNEXTCHAR END; (* WHILE *) PAGE; PRINTTABLE; WRITEOLN; WRITE( PRINTER, C1:6, ' IDETCHAR END; GETNEXTCHAR END END; (* GETSLASHCOMMENT *) PROCEDURE GETCURLYCOMMENT; BEGNTIFIERS' ); WRITELN( PRINTER, C2:6, ' OCCURRENCES' ); PAGE; CLOSE( INFILE ); CLOSE( PRINTER, LOCK ) END.  IN (* GETCURLYCOMMENT *) GETNEXTCHAR; WHILE (CH <> '}') AND NOT(ERROR OR EOF(INFILE)) DO GETNEXTCHAR; GETNEXTCHAR END; (* GETCURLYCOMMENT *) BEGIN (* CROSSREF *) INITIALIZE; OPENFILES; IF LISTING THEN PAGE;  XREF  NEWLINE; WHILE NOT(EOF(INFILE) OR EMPTYFILE OR ERROR) DO BEGIN IF CH IN (ALPHANUMERICS + SPECIALCHARS)   THEN CASE CH OF 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z': GETIDENTIFIER; 'a', 'b', 'c', 'd', 'e', 'f', ȡ% רx AND רx ARRAY רx  'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u',BEGIN רx CASE רx CONST רx DIV רx DOWNTO רx 'v', 'w', 'x', 'y', 'z': GETIDENTIFIER; '#', '$', '%',  DO רx  ELSE רx  END רx  FOR רx  FUNCTION רx  '&', '_': GETIDENTIFIER; '0', '1', '2', '3', '4', '5', '6', '7',  IF רx IN רx MOD רx NIL רx NOT רxH  C 9'ɡ.צ **** TOO MANY LINESC' á   uwy{}rtvx|   ڨ   x  x  šx O bڨ  IDENTIFIERS  OCCURRENCESCƘƙCv~~`52~,ȡ    ( > ب   z á< |T &C * &ƘƙBƙCƚoՂC 쥚') ' l p #{!#%'579;=?ACEG02468:<cegikmoqs 'Iނġuwy{}rtvx|    UNTIL רx VAR רx WHILE רx WITH ר* **** TABLE FULLᩘNf     ڶ á á  xp   INPUT FILE NAME - > ب   á צ    á? h ˡPš C"ٓ4*** INPUT OPEN ERROR # ١צ XREF.LISTINGˡ5  ˡFšWAS צ GENERATED AS ALISTING FILE BY THE    ɡ(azȄ !U.C.S.D. PASCAL COMPILER? (Y/N)? YëצLISTING OF INPUT FILE (Y/N)?aA  쥚 H d쥚  'éC  *NÓZ   0 7áá2)˩C *˩C  3" F*á2/˩C *˩C ,^.tp #{!#%'579;=?ACEG02468:<cegikmoqsI  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š /"ˡ: isF CALCULAT  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;ȡ ;훾#azȄ 0Ȫ} ꊃ0 ڡ&UT4 h5x $4 0̋̋ ̋P  h Rfd.ˡ.áړ dڡ99 ˸N COPYBOOT % eC % C ``` eߋt_v @ @  7 ?NOT ENOUGH CORE TO BOOT? 8DԤ eeW @7j ?YOU DON'T HAVE A  U854 7 SYSTEM.PASCAL? wL7v SYSTEM.PDP-11? B A f8 @ 46 7 ?YOUR SEGTBL IS RIDICULOUS? 8 -$8`d d 7b Ƃ/ƃ[ צ*This program is a general bootstrap mover.צATo copy a boot from one disk to another, type the6 5 xߋz\@ 8 6U@fe C6U@p & J 5dd ddd ddddd##^x )&AMLF "$&(*,.024I8:<>@B_ 'P e#SIN רآe#DFHJLNPRTVXZ\^`bdfhjlnprv dؓ ˡ  dáG;P;á ˡadÄddvdécצ Undefined LOGc צ Undefined LNc  Undefined SQR*Unexpected end of expression cIllegal Symbol : Try Again/צ Tc !ɍ3!Cannot calculate factorial GTR 33c/ ȡߊa7a ɍ -   $ $ xof+c0R  dáڥ9d$d e# ݞ$' ݑ$ $݂ō $݂ġ ݂$ $dá{p áT#ȡe# /Table full. Assignment not donecˡe#ڼ $ȡ%  0 ފ$čQ   .ˡ5  Eɡ  -ݑ š8 á!צUnrecognized IDcڥe#/dá dáڥ7 C4 ,  0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑ0 ݕ݂ ؂ a۩d ÄW H+צCannot calculate powercۡs  ɡ   x,  *2 l 8 d    ۩dd ܹ%cצDivision by zero Tdڨe#e#   8 רȡ á cצ MOD by zero F ۡ $< LASTX d%še# dd dn @' d` d Xۡ ܩd`Ad  . 'K  INTEGER);  CONST "RS = 30;  BEGIN "WRITE(CHR(RS),CHR(X+32),CHR(Y+32))  END;    (* Following is an example of how you O^O^(*The following is a sample gotoxy procedure for the VT-52*)  (*$U-*)  PROGRAM DUMMY;  PROCEDURE FGOTOXY(X,Y:INTEGER);  BEGIN "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. {$U-}  PROGRAM OUTERSPACE;   (*THE FOLLOWING IS THE FGOTOXY PROCEDURE FOR A DATA MEDIA TERMINAL.*)  PROCEDURE FGOTOXY(X,Y:L ND;}     {PROCEDURE FGOTOXY(X,Y: INTEGER);   (*Cursor positioning routine for the TELERAY Model 1061 CRT*)   CONST  127 1 2:1 245 KEY[ 8] := 'DO '; 128 1 2:1 271 KEY[ 9] := 'ELSE '; 129 1 2:1 297 !ESC = 27;  BEGIN !WRITE(CHR(ESC),'Y',CHR(Y+32),CHR(X+32))  END;}    {(*The following is the FGOTOXY procedure for an H KEY[10] := 'END '; 130 1 2:1 323 KEY[11] := 'FOR '; 131 1 2:1 349 KEY[12] := 'FUNCTION P 2640 terminal.*)   PROCEDURE FGOTOXY(X,Y:INTEGER);  VAR X1,X2,Y1,Y2: INTEGER;   BEGIN "X1:= X DIV 10; "X2:= X MOD 10; '; 132 1 2:1 375 KEY[13] := 'IF '; 133 1 2:1 401 KEY[14] := 'IN '; 134 1 2:1  "Y1:= Y DIV 10; "Y2:= Y MOD 10; "WRITE(CHR(27),'&a',CHR(X1+48),CHR(X2+48),'c',CHR(Y1+48),CHR(Y2+48),'R')  END;}   BEGIN 427 KEY[15] := 'MOD '; 135 1 2:1 453 KEY[16] := 'NIL '; 136 1 2:1 479 KEY[17] := 'NOT might want to write your FGOTOXY #procedure. Do whatever sneakyness you can to get your terminal to #go to the correct x and "(*DUMMY MAIN BLOCK*)  END.   y coordinates. The upper left hand corner #of the screen is considered to be 0,0. Coordinates are postitive.  *)   {PROCE 104 1 1:D 6835 105 1 1:D 6835 106 1 1:D 6835 107 1 1:D 6835 108 1 2:D 1 DURE FGOTOXY(X,Y: INTEGER);  BEGIN "WRITE(CHR(HOME)); "WHILE Y > 0 DO $BEGIN &Y := Y-1; &WRITELN $END; "WHILE X > 0 DO PROCEDURE INITIALIZE; 109 1 2:D 1 110 1 2:0 0 BEGIN (* INITIALIZE *) 111 1 2:0 0 112 $BEGIN &X := X-1; &WRITE(' ') $END  END;}  (* THIS IS THE GOTOXY PROCEDURE FOR THE LSI ADM-3A TERMINAL *) {PROCEDURE FGO1 2:1 0 ERROR := FALSE; 113 1 2:1 4 114 1 2:1 4 FOR I := 0 TO P DO 115 1 2:2 TOXY(X,Y: INTEGER); BEGIN IF X < 0 THEN X := 0; IF X > 80 THEN X := 80; IF Y < 0 THEN Y := 0; IF Y > 24 THEN Y := 24; 20 T[I].KEY := ' '; 116 1 2:2 57 117 1 2:1 57 C1 := 0; 118 1 2:1 60 C2 := WRITE(OUTPUT,CHR(27),CHR(61),CHR(Y+32),CHR(X+32)) END;}  (* THIS IS THE PROCEDURE FOR THE DEC VT-52 TERMINAL *)   0; 119 1 2:1 63 120 1 2:1 63 KEY[ 1] := 'AND '; 121 1 2:1 89 KEY[ 2] := 'ARRAY  {PROCEDURE FGOTOXY(X,Y:INTEGER);  BEGIN #IF X < 0 THEN X := 0; #IF X > 79 THEN X := 79; #IF Y < 0 THEN Y := 0; #IF Y > 23 '; 122 1 2:1 115 KEY[ 3] := 'BEGIN '; 123 1 2:1 141 KEY[ 4] := 'CASE '; 124 1 2:1  THEN Y := 23; #WRITE(CHR(27),'Y',CHR(Y+32),CHR(X+32))  END;}    {This is the procedure for a Perkin-Elmer OWL terminal } 167 KEY[ 5] := 'CONST '; 125 1 2:1 193 KEY[ 6] := 'DIV '; 126 1 2:1 219 KEY[ 7] := 'DOWN   {PROCEDURE FGOTOXY(X,Y:INTEGER);   CONST #ESC = 27;  BEGIN #WRITE(CHR(ESC),'Y',CHR(X+32),CHR(ESC),'X',CHR(Y+32))  ETO ';