IMD 1.16: 7/09/2007 11:27:54 SOFTECH MICROSYSTEMS UCSD p-System CZP40D.C CP/M ADAP  M!9~#&|=|'|$||:G!|DM||* ^*H SYSTEM.INTERP Can't find SYSTEM.INTERP M~# xY*9##~y y>{>2NŠ#N+ "! >Ӆ{*c"y2|g@2V*y*}"x*|ʿ΅>2z*c}o|g"F">2V:{F*m"xͼ*xMDz:oOp:pOu:{m͑p͌ʅ!z5ɅF:V*}*c"}:{¿*}*DM*m xʿ~#ò@*> >2{""""}"""}"g*}!*a*a*_Ņs#r#`i_ ~# x,*cMD!{2v:aGOW_RetS;_~+ͼʡ#o&N<µw#~6Bև3ۇև!ty*ST   O ~@# *Q:U :U2U7"Q"Sկ2U!XJ@ɯ2U!͜ͼ:Uc:UM;z!iq#6Ņq"}y @OSͼXʽO͎Orõ@OGͼJO͎Or> ._$-'*]d!Ņ>ŅÛ͛O ͛5> =5=Éy2,ÛÛÛ!Û:,=>$Ó':,҉*Y@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ SYSCPM1鹁! SYSTEM.INTERP2!v SYSTEM.PASCAL2v SYSTEM.FILER 2䢖SYSTEM.MISCINFOq,,,,,,,,,,,,,,,,<<<<<<<<IIIIIIIIbbbbbbbb        Ye p T  \Dm&%t G 0 $ i tp  -  " 9 ; z ,&~d=  M_ < js;&S Y HH$ÌBJ:> } Copyright (c) 1979, 1980 by the Regents of the University of California>2&>>~ڬ *6*͇*.Ì.Ì.Ì.Ì.Ìi`"Z*MD.Ì. Ì. Ì. Ì*MD. Ì. Ì.Ì.Ì.Ó"*".&"*"!#ͩ#*MDo& o& %^,V!<~# c!|2>2!" !P ?*MDo& o& %^,V o& o g!_*^,VB_*2_*s,rͯ *ͯ *^,Vͯ *s,rƢ_*^,Vͯ *ͯ *^,Vͯ *s,rͽ ͯ TͿ ͽͽ^,Vͽs,rͯ s,r^,V_^,Vͯ ^,Vͯ MD{= ) 2J*ͯ i`":x:xBKx~#~# e)BKx~# ~_"*^,V&o)>o>g)9|¶}!9|}i`" 2ͯ * _>͋ڸ:: +^-V= +V-^= ͯ **}o|gi`" o&>͋ڸ})+V-^=H lo&)9^,Vs,r#=c^{w _ i`"K} ) o&E¡oi`"CK^,VxGjS]zW{_!> ~_,~Wi`"y!> N#Fo{_zW}o`ALbS\))o{_zWyOxG-{_zWy/w,x/w?? {^,Vͯ `^,V`s,r`ͽ z!è*^,Vz!*s,r *!9s,r#*s,r#,#*yx*s,r#:w*~2+V-^"^,V#""^,V#"^,V"^,V"^,V-" *~2##^#V*"+F-N* MD+-+V-^""+V-^ ͯ i`")DM~ ~i`"O~"^,V#{= i`"N,F"^,V^,V{< *MD ^,V***MD {ozg}o|g}/o|/g}/o&#+| MD |ʃ z MD MD ᯕo>g}o|gz }| z {z  i`"ûyH ) y ɯ w w x? ( } {/oz/g} {/_z/W7yoxgɯO>Gze R e +} {/_z/W}o|g#ɯo>g} o>g`i<)ҁ MD!xGyO){_zWҢ ã #‹ }· | !} |ʷ !z }| ÷ ÷ |ڷ }ڷ  +  !+  !+  ">22 C *S :2S # _ *o :2o #ͯ i`"BK* x:˜ }– +Ù ###:« {©   _W _ *^,V= ɯO>Gi`"E#)9~"## GOx {w#zw# y Gw#w# * " Gx6 {/w#z/w#' * ] xV {w#zw#I *O!9Axx w#w#j *H+~+~} i`"E#)9N,#Y"!9xڰ AOy/< G{  *͏ x  , # 믑Oʹ   ͏ x/ ,/ # ' ʹ ͏ ?믑Oi`"x!{zyoxgyGM{ozg{2&@&o>͋^#Vʪæ=¥x! G{_#zWx:w,w# Y]#)9N,F#! ڴyoxgyGMҴy_!~h&###)yʨ,9ʴ÷ @ OxG}|}| o g MDͯ i`"*N,F#^,V#:>xAOzS_|O{zTx]}o|g)N,F:uxAO* MD"2/<_*^,V*^,V#>:ʳ>(͋ø>(͋>2:o&:2**yoxg*KB*!>(͋*}=͇i`"i`"!" ~ڸ7i`"!" ~ڸ*!9""i`"!"Ϳ ji`"!"ͽ " ~ڸ*6*_^,V"^,V#""^,V#"^,V"^,V-{=*"^,V-" ~2##^#V*">{*"*"͇^,V!^,V->w,4-*!9r-s+V-^**{_zWs,r**^,V,#4,4i`" ʧ ~ *6i`"oti`" ¥ _!&|ڒ£}ң^#V{=ʣi`">ʧ ~ *6i`" ʧͽ " ~ *6i`"""":~  *6***i`"*^,V*zB{Z"͇ʧ+V-^s,rͯ "*" "}2|ʕ}/<2)*^#V*+F+N*)9* MD*MD *͇*MD **MD **͇ 9RX}`կ»ʻ=û G* i`"Nb ~# W*MD͈ ͈    " ʘ* ʤ*i`"*N2GںAy#¾: s#  y~# ~#  y*+~ +~ %%J͂M\}o|gͥr {# ff{+ ssx {# ŒŒ{+ ™™y_",#^,V""",#^,Vz-+~-===*MD!*3_*^,V^,V:=3+V-^_>W"+F-Ny+V-^*:w#:w ; "%()++++AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELSE END  EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD 'NOT &OF OR (PACKED +PROCEDURPROCESS 8PROGRAM !RECORD -REPEAT SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE  WITH !WØ""""*> #w±*^#V**` w_` A[0:#w*7{_zW*s#r*~m3>2Àc>ã>ã!>!"t"r}"l>¸>ø!"t>ø!>ã>à>!"t"r"p"n"l#^#V#~#"v2*t *}s#r*s#r!"v>D! !  *{"*À!!{!cO:k'O:jWDD*r*lW*r*l*n*p*v_nͺ2x*n*l:jz>͍ͪʜ>`Ҝ>zڜy O:r:±͕w:q:kw#zq#:kw9̀͝:x!!s>W+zN#p3̀y! O=%:rGyGxO>ͪy m:rm >ͪ:xG:yp2y:x/G:y2y:xG:z͍2z:x/G:z2z*v_nͺ& ##"-#Í#×#Ê#Ý#âçÓö a#k#^#q#)$)$0$-$ù#ù#ü##  MV=3$ $T$ $>é>͛ {ʸ*+"Gy2D3$ $2*IA!*E"@*G|ʇ Җ >2B*+}o|g"G "G>2:C *5"@̈́"*@MDO$:7OA$:8OH$:C5 f$8 a$M !B5ʈ T$‘  :e *E*+"Eͷ!:C‡ *E*GDM*5 xʇ ~#z $*M> È >È 2C"M"I"G"E"K"M"E"K3$*E! *+ *) *' Í s#r#`i' ~# x *+MD!!{2>:)GOW_!-!GQ!:)O!z";!':K}!{27:;<ò!:/?о27!:1=!Î!"9*;$'"~+̈́"i"#o&N<}"w#~6$ʞ"#ͣ"ڞ"!O<"y*T " " "O ~@"""*:":27""կ2O! "" $ɯ2!Od"̈́":+#:#$G#B#!O1"q#6Í 9#̈́""M}y $$¶#$̈́"$$G#ʅ#$V#$:#}# $$¶#$̈́"$G#ʱ#$V#$:#é#> #' #G##*% 0$#! Í >Í r$r$O r$$> $$ $^$y2#^$r$r$r$!r$:# $>$j$':#^$*! SYSTEM.PASCALCan't find SYSTEM.PASCAL  H_?z$"}o|!z$$"$!G("! s#r# %*!$ (!""">22!">2>2!">2!$(!%(!"!@%(**!!!͊*##~ʠ% ʠ%>â%>2N±%#N+ "z$%#%%*" ¸%!$>3(**!!*^#V:&zS_"͊*~2-&>*^#Vs+r##=!&* ^#V:A&zS_"*##~#+ʭ&""!**+V+^*^#V!9*!9*s#r+++"*## M&*^#V"##65,5 ^#V#N#Fo>g)9*s#r*)͊!*!!9""*"^#V"^#V#N#Fo>g)9"*s#r**!)͊* ~ʝ'*͖'͖'{++͖'zʍ'*͖'++͖'=t'Ý'V#^r+s*^#V+"* ~2##^#V*"*+V+^*##"*"DMq,p#,#,#,#",#q,p-*"!" "*"!">2Z~# y(s#r# y((OJD(bN0* 60  [WRGC@;62zole[WJ>3-" tka^[OKH?<70*% UNHD4"|xokb_ZWKHEB740# }zwtqnkhc`]TND@961-$"{vohb_[PLHC@;6,)  ~wpke`]ZWTOLG30-  }yvspkhe_ZWQKFC<41.)# |vpld[WRMJB62%"tb_UI3.~SLE<7.+(%  y v h [ W T G B > ; 7 4 %        | v p l h e b \ X P L I F @ < 5 2 - ) & #       { m U P L I / % !        { v n g c ] W Q E : . "      | n e ` X S M D = 5 , $    |ukc<' xnjXROB>5/*vh`]ZUQKGC>91'$ xurifc]ZWOGB:2*#|yvpli^[XPB=:3-)&# @=:741.+(%"~|zxvtrpnljhfdb`^\ZXVTRPNLJHFDB@><:86420.,*(&$"   ~|zxvtrpnljhfdb`^\ZXVTRPNLJHFDB@><:86420.,*(&$"  ~a^84 }yuqkd_\SMHEB?941,&  zupmifc`XTPLEB>:72-($  {vmhd[PH@<.%##########x#o#i#b#_#)##""b" D 6 0 %   ####################{#u#r#l#f#M#H#E#@#7#4#1#.#&#!###### ##""""""""""""""""""""""z"n"j"e"P"I"="7"2" """ ""!!!!!!!!!!!!!!!!!!!!!!!!!~!{!w!t!n!i!f!c!]!W!T!N!G!B!=!9!3!/!+!&!"!!!! !! ~ x r n k f c ` ] Y U R N K H A = : 3 - ( !      O u$p$k$d$\$W$R$M$F$?$:$5$1$'$"$$$ $$#A(((( ( ((((''''''''''''''''''i'\'Y'M'I'B'=' %'''' '&&&&&&&&&&&u&m&i&[&W&I&F&C&8&.&&&& &&%%%%%%%%%%y%u%l%i%]%T%N%I%C%>%9%3%0%+%(%%%%%%%$$$E(0("(''''~'y'q'l'f'&T&<&+&&&%%%%%%%%%%%r%c%Z%Q%%% %$$$$$s.2469:V>@ABCEKERNEL PRINTERRINITIALIGETCMD PASCALIOEXTRAIO HEAPOPS EXTRAHEASTRINGOPSCREENOPSEGSCINICONCURREPERMHEAPOSUTIL FILEOPS USERPROG  XAKERNEL KERNEL KERNEL (   SCREENOP( KERNEL TCCopyright (C) 1981 by SofTech Microsystems Inc., and the UC RegentsKERNEL #8ĭĖk2jl"n& o&|;$& l#ihm!%#!z&z!z&z! & -!h!i%-'yj"2ұ$(x)N0 )p*p#i#k!n& o2!'y2&&{'y 'x'x'y''((x& &)(xԻ 7 F ,{+(k+Mmc,l$%$e,,$%jb2ih!. ! .xx.xf. !h/.xx. p.. .y ..zĊ..z/yi!2ҕ ' . .x/z. p.//xh 2 +Mb*!!{!2! 2 ą2 !ą2 ! !27iFj"{k#l'm%zn!!& (`!!!& %z.EM"& MM& `M%z.& `*%z.!!& '`'zĖi +0 ((n((xm`( V }{zo zo' ))|#L!)N@ 7 N$! *z*z|"d**z*z|ąN d*ր))|(%(&b 'ނ  "xh`i```!" Ė -,x,0,xi!u,!0,!xh e,! 0,! x ,0,x ok)> #'ko,! '#0'(,! '#x' 'o*) ,0,xk,#0,#xl$%#k,#0,#xm% ,%0,%0$l,0,xj"8,"x0,"0,"0"j,"x k#+,"0"j#kȖ)`*Pp"``p` `p+a#`!" l1c%b$`#"cb i ! h nLb$a#`"! mfb$a#`"! m}b$a#`"! m c j) c-j) 'h ) i( !! c"!0"j) h cp )`*P``p+.!p"  `p`0,⼃` jjaf" # a ) % 1h==%`ppc.//'Ċ2.Ɩ *+o' p m)`p%'`m%4. / 'p4 ((x2(x(% ja"#zh x! p#za3a/p !!# aW u;s^;P^^p`psNoFm^DP^^pa! 4N6&0c6%#%%{Ć<Ę69j"9 ""j+p'@0xl`0m%n%&&)&(&'V%%V 0$ċ8aą;"0 m%%x}{zn&&|'s&&|Ċ7t0z@'pvM N ' '! 4166 +p / e% hb"{y)xk"i!n&&|! "i!!|!yi! &|(&{#! l&yi$ɖ =E E6 E  E s6 Ezxrxrppp"EԞ `b(#l$m n%&y%&z&&z%$ %}ĆJ'('߆Jޖ @ QO5O(SO 5O'7XX ;EEw+E Ttwaiting:: Type to continuee Put volume in unit Segment not found: Exec err--REBOOTT*STACK OVERFLOW** Exec err # po= o==Z bn7fx5*** CONCURREEXTRAHEAEXTRAIO PASCALIO HEAPOPS STRINGOP REALOPS COMMANDIDEBUGGERFILEOPS SCREENOP DUSERPROG."xh`i```!" ĖS -,x,,xi!u,!,!xh e,! ,! x ,,x ok)> #'ko,! '#'(,! '#x' 'o*) ,,xk,#,#xl$%#k,#,#xm% ,%,%$l,,xj"8,"x0,",""j,"x k#+,""j#kȖ`aĈ! !l$m%'%%%%&% $ b(!kj%(b !xh!````!x! Ė``xտ՟```x ``x```x ``x`p`+`݇W```hlcc$&mi!%c!!i譅cchcccdcׁY pcׁli!$cׁmc94!x4!xz eĈ!4!xċ%`!ըcĈ#n&&&&&& %!y& %!xY& e%`!& %瀐!xĊ& && &%瀀!bĈ"n&#&&Ĉc!"!icׁh cխc p `!!!!`a%xMjh "?! k# # # #l $ $ $ $ $ $ hO s4xz dph UdUpU yU y U U XXUX  XX݇UX xYh ećedćeU  ᥁UTnWWn0aׁ WgWxWWcn[[n`a[ׁopWWp:o Wo瀀WɥUo`Wo Wfo瀐Wxćfgĭh oWzo瀐WzqVVqVćVVᇅo瀐WzVVxp4xćxx{Ċ6fgqVVq4VćVVᅁ4cqZZqaZׁrsVVsVWZ[hr`V#r瀐Va[ׁ WhhzZVxSr瀀VSćSćSfSzr VSzr瀀VćSz ećSS{ćVV(ZZ[WxTĄ[WxToWqqyqxY`qy_o瀐Wy^^mdn`p``^q]]qBr\\rEi\n_xć___dn`p``_\\i">[WxyxbmVV[WxybpcrZZrՄsVVsiaZׁ ViI[WxymZVxĄZVxZVx{ćVVZZr]]WW[[5T33Ls 0ĆFj"{k"#"{""{#####x`a "{! !i!iM"z!ĖL 3h i! z&i! |h! *p  z229Fj 7k2l$ m#Mx$ $M$ x$x$ $ p$$$${%2%2Ė Jh   00 p"4ą4xz7aĆQxSWFa ;VN=4U` yyє Too many dicts in SYSTEMM SYSTEM.PASCALKERNEL USERPROGKERNEL *** GOTOXY missing unit GOTOXY`*6B`l TREALOPS +)+` *` +O` ```s 0g1Pdjigh 3g-n&g+kk# g#Zڡdd g#0#kg#.# 2#kg#Z"jdd g#0# g#Z&ddg#eg#E# =#kg#-n&g#+#k# g#Zڡ! g#0i#k&!i!"j""idd!p dd"!p "idd!p dd"!p 3d2698߇8{8s8x 8shjkl 8xȄ m8  h"`at" "j# #k0mfZ":ff ff #ff "ff%e%E" jf%.#" kf%fl$8s$8{8ć8 Zڡ  塠 ȇ7P9 xĖ8)  (-Ȋ( he cp p ec heec  heecep )) eep ) ee) p ec heecoj"'ei("!0ee!c"j) e(((.j L("E"j ("-"j h c(" d0"j dh (" 0"j(" 0("Ȋ^ '(( p( .()  p() Ȋ2(( p(0(.( 0p( )  p()Ȗ  -,xl$,$xk#,$#xn&,x $#ph p & xoi 'x4 %m  'x 'xi'o'!Է x* xm %p x%p & xm %p x%p 'o`'ph&n2 b"y{p (@(( " * <@ `-TIہI1r ^[ʀʊ*V*T!*R*P!*J*H!*F*D**-**x***j*h-**-**x***j*h-0*""͌" "͂* *0**!0*""͌0" "* ***!-*b*`!'}2"$""*B*@"":"!$"":"GM>P͊:"*:*"":"ʂ͊Ë>:"*{*B*@2"*^*\:"=«""0͌" "* ***!""-'""$*"͛:3""0{3""*X"*Z" !"")-$*"KB$*** *!"" *"-p : *f*d**-* *3 **-* *!:*  ""| 9}# 3}ց2$_}o""*F" *D">2"*** *!x" ":"=L :$o:3*B*@""*X"*Z" >2"o&$:"<OYP$*** *!"" :"=· *** *!|$ }' 9>2&9 3>2&}ց2$.͐  *$&$*n*l:&g *v*t*$&$*r*p:&g(*/(e/(y /(L /(C /( /( /Q|*  j g \ 2 c ` & w W Q ; 4 ' $   ]V tfJG630:S n c _ V S D > 7 / , % "    | x t o k f \ X T P M H D A = : 6 /      z q k h e b _ [ L H 7 1 - * !  {vsnjYQNKHE@;83/" {wplia]XSO,($  }6+     SCREENOPPASCALIOEXTRAIO  GOTOXY ~^^h```^&^&`___^%^%_^$ a ^ ha ^ h^$(^! a ` p a `^!p `h2`,a ^a ^!a a ``p ``ha _ p _ha p` | PRINTERR` yh {zl|j$zxxx"xie(ee(^e(Te"(Je.(@e6(6e?(,eG("eR(e`(eh(eo(ey(e(e(e(xe(oe(fe(]e(Te(Ke(Be(9e(0e('e(e(e( e(ցe( Ke(Be,(9e7(0e?('eG(eS(eY( eh(ցop ep p $pp "p p !p Unknown run-time errorrValue range errorNo proc in seg-tableeExit from uncalled procStack overflowwInteger overflowwDivide by zerooNIL pointer referenceProgram interrupted by userSystem IO error unknown causeparity error (CRC))illegal unit ##illegal IO requesttdata-com timeouttvol went off-linefile lost in dirr bad file nameno room on voll vol not foundfile not foundd dup dir entryfile already open file not openbad input formattring buffer overfloww write protect illegal blockillegal bufferrWaku IO error: Unimplemented instructionFloating point errorrString overflowProgrammed HALTIllegal heap operationn BreakpointtIncompatible real number size Set too largeSegment   Proc# Offset# rINITIALI~`PZrZ`raoc*`lp0~~B~G~Hć~I~%O ~" ~" ʆT~"ȆT~"pZrp"OĆO ĆOdĆOĆO'ĆZ 000ʖ~ `d&p"p &`6Ć   ! ) 04xpprqh q, rr8r 0ćr hqh q rr| p"pյ rծr0|  0z!@ra9ar!rs33sj 0z3pڠRattr t43  tar퇁3 ap3pr33 h"$<@@rh- Ap D- MQUY]`M8ą;ą:ą9Ć;Ć:Ćh y xĖ<Ć8 8r; ` ; r: ` : r9 ` 9 r;Ć:Ći! !yr! !xr@$(*r*8&d.` '  e  &  *`r%*ć%x'* &**r*h   ĭ$3 f g &h @  @ @ yi    xr   0, 0 0ĖS 8ryrxr;r:r`{;`r:`r$`9`r@;Ć:Ć9ĆĆĆĖ #`````````` ` ` ` ` ``$9""9!"W"ć""?8N:=q $tq  $դ!՜q @       D# # -`# -#     $*SYSTEM.MISCINFOO:SYSTEM.ASSMBLERR:SYSTEM.COMPILERR:SYSTEM.EDITORR :SYSTEM.FILER:SYSTEM.LINKERR*SYSTEM.STARTUPCan't find system diskkCONSOLESYSTERMGRAPHICPRINTERREMINREMOUTT:*SYSTEM.WRK.TEXTT*SYSTEM.WRK.CODEECONSOLE::SYSTERM:: *USERLIB.TEXT???JanFebMarAprMayJunJulAugSepOctNovDec?????????REALOPS  Welcome , toU.C.S.D. p-System IV.00Current date is System re-initializedk"{z  GETCMD  # k p;)`*P`P p+WW3h3L |3 z  z  yi!xkj"#ն!l$"xm%zn$"xՕ"$$xx $"Ċ}%y!x&x&|&& %&Ċ:0&y)& o&'x 'x'yĊ0 'y'y'y 'x%" $" $""jDa!xh3h 4UĘ5Lh 4 yi!k##xxj"#"x!4 #" |hȖ9j"i!h!{"! k#x#y#y #xą2!#y2a i!"Ϙpih ! ׁj"k##   h{daF"ih !"  " " Aa hޖ;hx@rp )Tx @    rp )$@ @    )x   o n *& (p( (' k #ձ#j" "pi "! !"k)Պ"!i ""j!" "pl"$j!" !pl!$i!"m%m%E* + " %p %ȇ *  ${ hB ,  )d d{*d+APddd h * +Ĉ* +* h{xrX!xh!````!x! Ė8``xտ՟```x ``x```x ``x`p`+`݇W```y_ՂIPbaćbxbĈbxׁ,`h*a+--x+-xha aP{ a*a+Pxarp++ՑaaJՁRa aUa aaTx--aP -XU -rp++'*a+--aP -[U -P+ս,-x.-. ć-.ć-a-`ć-x -z.++-{,-z pp+, +6a .++ //aP /^Y /P//c /a` /P<*a+*p ՂlP--u -aX -P+bxa*a+,Ćxr+cb#h#x '#xׁi!j"x"yxh ##xĊ l8jaa&'x j'x'xh"[!ׁk#l%$ %$ %$` %$p x%$瀀 % $瀐 % #'Ė di h 2! ! x! x3!x3 !  ! x ! xj"zk""###"zf"z # %# $## # ## Ą  #Ċ#Ė %& ih! !p d c pgtczgjbxp)c g((6c~W h   p h!ibg'& o322'2zo'2|22Ֆjokc"3#'159ɠ9ɇ; o' #kc"3'"j'"dԯ"dS ! p p  ȭ]] ] U ]_ ]P`>> ՂP >f &C&D<le$$f`>ՂP%4xx 4x x]i!] !!iia >pia"HQ!#H!ia"H! x23222{ 22{ć2o &xkh%x&x4:&xl$$xxh %xkh$ x$ %xxĊ%xkE&xxli!$:&x!x! $&x!xj"y&x&x4 %#"ykc%k!i#o ׬PهՂP 5bcbcfh b lh bbbcf 5Ղ$|| |^ |՘l7&   j4||Uhć|Ux^WYL``zƹ` `|`ᇊ`.`zx0W`zuW3``O`}}z~~|ᰇ~x)e~ ~ ՂP`ep`|`{Yd}cc}F*c+~~*+ ~   cc|Uxy5_|Ux___|U_xć|UxٖRS cj"ղ  S -1`ar ՞9999FF|YF9rJF0| :GGF G G1 G:S :cj9"Ԍ"S : 1 "TSj     Ջ  4`           `  ```. $` `    ``ȇ y`rp ` ċ y    ` 퇁 #퇁    $&  8`r, մ6 `  `@Վ`0,~A`  %`  ` B`  ``.` `  $ `  C  xrpH  $ ć ć ć yr8r0 yr8rh z {q  y Na x   x VB   0 a  a^ & a  a ĭj *t=a 0 e k   = ᇁ= `Ȅ` ``p``tm t p  ۄK. v   *  h Uq  ia  ay a  a-z    u,qhq   -t,t't"  ց ԡ t;ą;ą;ą:ą9ą9Ć;Ć:Ėijaq jj0,,ć,ć,Ě?,,+ ,X ,z ,,qh?q     kgb]j4Ux  #    ւ*jREALOPS.TEXT.TEXTLibrary File is not a Textfilee*SYSTEM.LIBRARY(Too many libraries in library text file..*SYSTEM.LIBRARY*SYSTEM.LIBRARY.CODE.code.CODE.CODE not codeBad block #0 in Illegal file nameNo file *** REALOPS  Unit not founddUnable to allocate global dataaUnable to allocate global dataaNo program in Linking....Must L(ink firsttREALOPS REALOPSREALOPSUnable to load segment on heappWarning: library not found.: Cannot find Assembling... Compiling....:AssembleeCompile what text? .TEXT Can't find :SYSTEM.SWAPDISK*SYSTEM.WRK.CODE[*]To what codefile? $$.CODE[*]] Can't open SYSTEM.WRK.CODESYSTEM.WRK.CODE.CODEExecute what filee? redirection error.CODE: Running....1Monitor: B(egin, E(nd, A(bort, S(uspend, R(esume & no monitor openAS pi="" pi= po=*SYSTEM.STARTUP+Command: E(dit, R(un, F(ile, C(omp, L(ink, -X(ecute, A(ssem, D(ebug, H(alt, I(nitialize, "U(ser restart, M(onitor [IV.0 B3h]]z3$ Linking.... U not allowed Restarting... XTfx D    .% : vU PASCALIO i(m%n&ս% % drċjh $ "$ x&x$ y&yj h"Ċu $ $ k$ xk&y#& K$ o'#' % $r p-%%%{%&#& &  d i     zi ޖ1    yi ޖizćxȋ@kxx x k  kćd   jjdd)!yxx  wȊ)"p ?ڡw#' ۚ,ۀ #p|*dć Ā xȇȇ ath!i*!!! !!x!|sh !!x!|h Ė   ޖ !!{! !x!{!!!ޖ9  y  {  Ċ z  ޖ%%{%%y$ȊU% j$%xh" h#k$`ct% %$ #si %$ #"i$ !%y $$Ȋ%%y%{%%ޖ ,`u+`uĖ 8` ppO   `s% =   p  `p !!h 8  ! x |s" = p x |p !ޖ##S!G! #!  ip-##"!s # = # # p # "!pĊ #ޖb߇ykbh  hp> to continueeD5 zqlPvsdH<`RGOTOXY PASCALIOEXTRAIO STRINGOP SEGSCINI=J f*f*J UJ "ȆJ !ʖl"$!  Q f*f*Q " ʆQ "ȆQ !ʖ"/!   ap!klh $   hQ#-ĆJ#Ćf)D#lf:m%#%%#&%%%$%$%$%ʆf*#-# #l$$$$$$$$ #%l$ $$ $ $ $$$$ QJlG$G$xȊGȆG$$GmeGseseG sef*f* YȆA pA#"ȆA A Ȇ`k###f:#f:##ĆZ`q   ]M8-! hCONCURRE `b par! !n&o" '(y'(z'({'+s+p''+p''**'*& & '}' c!l)ěLc)e,%,!ĚNNLޖ LњNNJޛL``ߖLߚNL JߛLߊLޖd xEXTRAHEAHEAPOPS  PERMHEAP| sF#kb#r$bp`< b`p a`` "#"``< .WĊ..WĊ.WĊ.WĖ\`!!!!`Ȗqa%xMjh "?! k####l $$$$ $$  hh Ɂڡl$ p Ɂڡl$Վa`p  ,  ɡl$epp  l$Nćykj:"ppl# "p:$a p$!Ė l$m)n$|$w)$|p$xi!$| o'y'y $::i'x%% '%'թ''''MՉi'&~h 'G$| (((y(x( ( (  ɀd i $|  h!+'k:$)$|#p$xi:$!&'&'b' p! !!&"&$ $:  'ji)m)#)>jhm)%Zj" )%0h%m%)"" #ڡi(!塤 !jh) j" h" "X |Nnj&|)&| dcp#&| ,j"!!j !)&| jpj"('h n&| )&j" h" "2 n &)&&||'|d'x p Znih # !## j"%$"  ɀdi n hЖ# i$!jh "# # h#! %!!Ė# i!$jh "# # h#$ % !!Ė!"h #   #i jhmTl"k### y# x#k"" y $%% i<k#"# x# y#i"k#k! " y"i"Mi!9! yn&o ʄ ʄʄ df! !R#h       "!!ᰠ x ! Ċ! Ċ !!ĖR "i!!!!!!h !!!հ ! !!Ċ!!!!! h! !!!"~! = ! ! p !"! !#!!!!p! !#!!p !!&!!!#p! !#!!p!!!!!Ċ!Ė ?BPě6߇D߇D ċQf de >f`i! ċ!ćć !ć fć|ć|| ՜ A jA"  ċ  " r"  ċc%m $% j"%) " yx yćyx" j"ċL " ! ] | ċ! ć!}ć%ʇ& ćʇʇ ʇAĊćՈ!ć"ćA  Ċ ćSćAI#p =   p  #xp #xpDAćĊ|{DućDxĊćDޛ6ޖD 8 6'ߚ'l$$x9xՄ$^$m%O&2$$%  dn$$ $!$"$#$!$!p'$%  ɀd&$ b$ ċik!" #"! x%x"! y%yk!i#ċ!i&&"!  ɀd!" %" h ! " !!i"!  ɀd%  ɀd % D%$D % D % "! %%x$$% $ $ $"! $ $ " &$$ '$Ě8 'ޛ6ޖ !ߚ!h ! | {!u !ޖb&ߚ&}&k#l%#$#|`%#|%#|%#|@%#|@@i%#| % #| j"j!i$y$xh! ! "$  i$ j##### #!Ċ###!# # #!!#~#"<#"## = # # p # ##$x#ppg!#"0# = # # p # ##$x!pp*####{##!#!"Ċ &ޖh:[].TEXT.CODE.BACK.INFO.GRAF.FOTOjN/; p+EXTRAHEA HEAPOPS STRINGOPPASCALIOEXTRAIO SCREENOPOSUTIL  [SOFTOPS UOhh p    Ė9 +m. ) )z )xȋ.n*ih))4* )!l)!%) )!)|) )))x ȋq)!l$%%l$)|մ)%$)y՚)#)! h( )( Đ c(!hX( B(5))!!)))!)!Ċ)!)nH)Ā %m-,(, )!)!$l.x(ȋV)#)!-,$p)!)!$,$ %$m%)yk#s)!j) = ) ) p )"&)")) )#*x)pp-) )#*x)pp))&)!#T+%   h !i ml |  x  y; !% t ċ  !k !kN x  y3tć "ć  ć !!ċ  ! k  !k%j"##j( "j"- "ć$ # !"p ! !"$"l%"m%o'n "Ր "ć ( 8 #pn #& &p #&&p = p # x pp}  9 = p # x p #pp# #&p  ć !&'  x  y ! ć  zĖ *SPASCALIOEXTRAIO SCREENOP SMALLCOMD6543x1:17W!xh!!xx`u!xh       p!664435jR4/4`t 4y  h4z43 r r4  ap 4 ap j!0 s(i==pi=.J$ UPERMHEAPPASCALIOEXTRAIO COMMANDI COMMANDIf+1 u _ u `Pu u `A*-r+*-pć*+s*`spu *r*+1,h!ssp u `rDĆĆĆĆ:ĆĆĘ:v# $x$v:#j`"r " # #p$xi!$ Ċ !x!xi! vޖ pv`` 0"!xh x"!xxA! xs" x!xx!x!x r "!xxĖX0[P]ZYxk0}b-rab-p"!s"0Ysp"ld0Pwd'UwdYsp+ZY Z#xYxx Yx"#"Ċbr]ZY v\<@p  [ [ ii/W[h=W hi?hWW ""WW h, ! Ȋ !!iWW ""ԯ!ȭWX ґ ґ "*"!  A)`+P҈.҂+,҂,-`P* -P.[݄۬͛<@ZччZ`-(ъ℀.02345UWՁ WWWXX ⼃6 XXX =խU `:(чч VXW^VWXZYYZDY SS; SaASSYWVYYVvXXUՇU "  d`XW`ZYYZ=[WYSSC SaAS`YSȇYYXWyU `K(<@@LݖS ]file already openWrite to what file? can't open filecan't close filee.text   PIIPOOIOPL  *USERLIB.TEXTi=o=pi=po=i=""pi=""qG bW#dSTRINGOPSMALLCOMPASCALIOEXTRAIO FILEOPS PERMHEAP  L\OPUGOTOXY SOFTOPS SMALLCOMCOMMANDIREALOPS   #q L FILERPROBUFF1 BUFF2 NONBUFF1NONBUFF2NONBUFF3   h-FILERPROFILERPROFILERPROFILERPROFILERPRO&&_hSTANLEY2LPh*)L_&::_&.KBUFF1 <:f3rfӘrpq fq mj%%ql"i!00if!vhpq "!j$lqBB#131|1Jq1#w Fw :vww wq q1qwqp qrpq q 6%% h p6 % 6 % k # 6 6 q vipq !q #fw 6 % q"fw՜6/%0/0 ć/0ʇ/0 0 D /Drpq % %//6  / /6 /qfrfr:qih:>H$(aq4`qiꆀ肀9ԘF86>`-r;`**: *6 *r`q ))*)C*  dʇ<++. +A +6 +*<@`r @:9q `r?ph`蘀 `B ` `I `B `J `Z `K ` `L `TZ.FB98w q q .M:qNw w :v.w Sw q -UYqZ q B@-肀Z[9^8膀 p.ZFq9ka&  I8;d . e hq iw sw 8 |w 8~   w m  րPut in Insert destination disk:TransferrTo whereeTransferrblockss# of blocks to transferTransferr *SYSTEM.WRK... *SYSTEM.WRK..,:.,Save as  ? Save asTEXTTCODEETEXTT*.CODEOld code removed, Text file saved & CODEECode file savedSTY "BUFF2 ] Hq `qil $k#00k1#$ppK$$#mj"%?1"pp)!ibq"w "w&w w"j$#l$ Ԏ!w*w wq5 h վ0w w   w w 4 F@ "x#x  0 01#x ppq 1!x ppq  ԕ"!x #!xq;?@q@LM5 y q q q w`W ( )-$5) .x5) y ..5) ) 5 o `\ 5 ( )-5) .y'..g.xo) ߚFw _w w,ew wʖ րmBad block scan ofScan forrblockssScan for how many blockssBlock  is bad bad blocksMoving SYSTEM.PASCALCrunchhFrom end of disk, blockStarting at block #forward back : cruncheddPlease re-boottBKk TNONBUFF1c+%+Jqq+;q 2|;qwJw :v+ %+w++!"h * *) ) H7w  w w = "w"wG&r qh c5 (rpq 5c-,+*)(5 y'i:5 i : %+!q,q`2|;-q w .v--5, .5, y.x.y.x('('.w .w (w. w-v/.  /w -v.  wHՂ=M.xw. ww /. /w w 2.xw v/. /w ? !վ:Ֆ5, y5 -w/v5 w"w =&w 'w/w 6w )w8w <w *w>w pq b b wrpq rHwDw wh1 1p"1Frh1 O1i!K81w!| Lw Nw !w :vw1Ow @w :vwWw <w :vw  ր_ < UNUSED >>Dir listing off#1:ListtWritingfilee filess, blocks usedd,  unused, in largest Vols on-line: # Root vol is - Prefix is  - EVD tWNONBUFF2*`-rqq_`Әrpq `q ))****`rpq qFw :vZw w w肀 z`r*q Q.   w 'w w :v.w 98 w w C.$&%&3`-r98q'w q p 4w7@qAJqKTq)). )U )Xq  4q\w `r4.e&fgh` `h `. ` `q>Ah`. ` ` iw w  kmqF.Z.j"hq i!"3.c" cn.c" cq ." ..t,ux&{~h!z w w `piHqqw q  i!gqw w w q膀: "蘀  蘀DqFw w q }bcF D3Jq3`ppq cw w RfHqqw SwwSRRwwwRR5R5 5 RSSRCqwSRdVVd VqVVqw q pap pT USRdVVdw Vw1dVp1dVpp 1dVppddw wkw wVq5RV5 yHUV5aayćTTTMɢ5 q aTVaTVćVUVV!ayqw  w w q pqYʁbcDZ aydVVdaVeeyWexXfTTf1Z TeyOTx0ȇeeyOTxćTT5 TW5T yTTWT5r VVyqw fy   ցMakee made not named Workfile is (not saved)) No workfileThrow away current workfile ? *SYSTEM.WRK.TEXTT*SYSTEM.WRK.CODEE*SYSTEM.LST.TEXTT.BACKRemoveeWorkfile clearedd:& Get.TEXT.CODE.TEXTText .CODECode No file loaded Zero dir ofDuplicate dir ? Are thereblks on the diskk# of blocks on the diskNew vol name ? : : correct ? : zeroeddExamine blocks onBlock-range ? Fix them ? Block may be okk is badMark bad blocks ?? (files will be removed !)) (Y/N) BAD.xxxxx.BADBad blocks markedGZK RX  NONBUFF3mM`-rqz:պRV--V - -(: --( -zA -(**q\`Әrpq `q )qq%)-- dʇ- -Zq-Z`rpq zհDq>q ,  35p5 F35pp+, +q 3F@Jz3@F1z5 D15r as>D+>asOw Dw-v?D ?w -vD wX  րVChangeeChange to whatt:Changee:RemoveeRemoveeremovedUpdate directory ? %Date set: <1..31>--<00..99> Today is New date ? : The date is CRR?{ bp FILERPRO s$s ,s c c i!!@?ih jj!H"i!h !00h ww p0` ` !p";Ě`w a z aAh j`! j wFjzb(VRӂ(J N!  p8.1`ڇ0`"(1Z`#(T`-(K`5(B`>(9`E(0`N('`W(`^(`f( `p(րx0`(`(`(`(`(`(`(x`(o`(f`(]`(T`(K`(B`(9`(0`('`(`(`( `+(ց80``( P1 (1 pɡUw 1w'[w 0w`w /p1Ewt 4,p4Yiww sp35r p h !7! !!} ! a! z ! ! aA h!  !bp(/-a+h5Q5 *Gw  v5 w vw cw  h)5  ;aw hw )ww )x*jw p0>5,ow Fw tw  p2[pDia( aw/ a(ih !  0ȇ  h e{ e1e0 e-h-$ raearh a h O}w  w w ew w -erh e pb)g/3J5$5 ih !b  5r h( B6E)C`-r`6rpGpG)2)w  v6w w  G `rp `rFaw :vw &h P(ha  w w aw w J!!ڭpp *- : @w :v: <w w &P w  #" !8h7Zh'hhhցB &P w   w  w pb(bFZar o` ` BFFr5+1 1p"p1|ZZ5r    5Cx hr iaV a a  a(Y+;Y+w  v w w ww4,p4YF  ` 5 ` p`  ?+D(FCxձB2|2BA: wBJN 5  h )j5 *ʆj*F!j*j!**:*<ʆ ʆ h< BCCxĆ'@3JNCx5 4Y5Cx CCx< Cx)) )ʑCxBէa) )j  az[zpbh  :堡M R    z!  a0  b?  (): J) Cxʆʋ? ? E T *pTi *T-h $$=$?$%+*aT a(*T * *aT aw &P w ,'w w w ց ", www w p- * *pieׄ肁Nטw =E w w w w w ,pTT#p*蘄WT WPT  ;?%* :%T*#T* #*** 炁WW W W($%UU*S* #p`*P**Ȉ*Up`U*U`Up*P=%TT*?%TT*0F%:  #*T# `:H+WWR W W> #WW䘀( W昀A W( S1NF3J肁HSS:Ә@ ӘDGC7K*I`P7VjӐ"1JFH"肁H*Rzb"L >,rZJF(h`F ` `Z ` yw wMih !_ Q5 j w w "w "w "xw"yww h5P5 ih !65 y#x'"# Ċ5 x#xʆ ʊ h" #5 ĖN肂jkc' c+K c>o cQ cd,s4j ki!#e!l$pO! mh %E$ 3 qw !wyw  w{w h!i474 4u 4 74 t74 ^74Hl Non-Wild) carddIll file/vol nameIll change (Vol file) nameBad dest for files founddCakuMWku expected I/O error # Filer error # ? (Y/N)  ? Invalid #Destroy : ? [*****]# Put : in unit  ?  -->  - C1*,  : ? :not proccessedd ...too long < file name scan string  vol name  - char. max >>- Illegal formatt what filee what vol ? *::: Remove olddFile(s) endangered: Directory'Filer: G(et, S(ave, W(hat, N(ew, L(dir,$ R(em, C(hng, T(rans, D(ate, Q(uit, $B(ad-blks, E(xt-dir, K(rnch, M(ake, %P(refix, V(ols, X(amine, Z(ero [C.10]xBWarning units  &  have the same name&buff1,buff2,nonbuff1,nonbuff2,nonbuff33buff1buff2nonbuff11nonbuff22nonbuff33Prefix titles byy Prefix is BZHvHvHHvSYSTEM.WRK.TEXTSYSTEM.WRK.CODE0???JanFebMarAprMayJunJulAugSepOctNovDec?????????? Bad CodeTextInfoDataGrafFotoo4FHANDLER,FILERPROG,HEAPOPS,EXTRAIO,PASCALIO,STRINGOPP!SCREENOP,OSUTIL,FILEOPS,EXTRAHEAP'COMMANDIO,SMALLCOMMAND,SOFTOPS,PERMHEAP4FHANDLER,FILERPROG,HEAPOPS,EXTRAIO,PASCALIO,STRINGOPP!SCREENOP,OSUTIL,FILEOPS,EXTRAHEAP'COMMANDIO,SMALLCOMMAND,SOFTOPS,PERMHEAPepoI N 'MlN|{eY %EXTRAHEAHEAPOPS STRINGOP  PASCALIOEXTRAIO COMMANDISCREENOPFILEOPS  ARYq. SYSTEM.PASCALQSYSTEM. !P ?KM.COMPILER\ + SYSTEM.FILER \+\ SYSTEM.EDITOR\\SYSTEM.ASSMBLER,VLH>:3/U R O c ` ] q n k  | y SCREENOPPASCALIOEXTRAIO  ARYq. SYSTEM.PASCALQSYSTEM. !P ?KM.COMPILER\ + SYSTEM.FILER \+\ SYSTEM.EDITOR\\SYSTEM.ASSMBLER, M!9~#&|=|'|$||:G!|DM||* ^*H SYSTEM.INTERP Can't find SYSTEM.INTERP M~# xY*9##~y y>{>2NŠ#N+ "! Ý>͏{ʬ*c"y2|͉ͬ2V*5*}"x*|{Ҋ>2z*c}o|g"">2V:{*m"x*xMD͘:oO͎:pO͓:{)͢,͝A!z5|ͧ…:VY*}*c"}ͫ:{{*}*DM*m x{~#nͱ*> |>|2{""""}"""}"͉*}!م*aم*aم*_مÁs#r#`i_ ~# x*cMD!Ԇ{2v:aGOW_!0< 0w!e *k:J!:vGE:aOԆz"s!_:q{2o:s<æ:g?о2o!:i=Â"q*s0^*q:aOԆ,}2p7:s p_hͺb*]مͿU!ممÁ>ÁˈĈĈĈ Ĉ ĈĈĈĈĈĈĈ!Ĉ$Ĉ'Ĉ*Ĉ> ɯ*YS@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ M!9~#( !ͩ!":2O0'${2z!uͺ×2!ͺ>ހ>ހ*:=T*!ź{́!ͩø22:O:<2̀22: GO:=O:<2! /<:,2ckI*! :w/#==*! :Ž/#TT!!#p!+ͺ!:x́!Eý!3ͺ*#"!ex́y!ṕ!Júͺ y ¬~ʁ#Oû݁w݁#w#Ɛ'@' :: =H**WritingReading track , sector Bad data transfer on track , sector Disk is not on line Testing disk Insert blank disks into all drives then hit the key. Error count = Test complete 88SYSu! SYSTEM.INTERP2!v SYSTEM.PASCAL2v SYSTEM.FILER 2䢖SYSTEM.MISCINFOq,,,,,,,,,,,,,,,,<<<<<<<<IIIIIIIIbbbbbbbb        Ye p T  \Dm&%t G 0 $ i tp  -  " 9 ; z ,&~d=  M_ < js;&S Y HH$ÌBJ:> } Copyright (c) 1979, 1980 by the Regents of the University of California>2&>>~ڬ *6*͇*.Ì.Ì.Ì.Ì.Ìi`"Z*MD.Ì. Ì. Ì. Ì*MD. Ì. Ì.Ì.Ì.Ó"*".&"*"!͌#͎ͩ#*MDo& o& %^,V!<~# c!|2>2!" !P ?*MDo& o& %^,V o& o g!_*^,VB_*2_*s,rͯ *ͯ *^,Vͯ *s,rƢ_*^,Vͯ *ͯ *^,Vͯ *s,rͽ ͯ TͿ ͽͽ^,Vͽs,rͯ s,r^,V_^,Vͯ ^,Vͯ MD{= ) 2J*ͯ i`":x:xBKx~#~# e)BKx~# ~_"*^,V&o)>o>g)9|¶}!9|}i`" 2ͯ * _>͋ڸ:: +^-V= +V-^= ͯ **}o|gi`" o&>͋ڸ})+V-^=H lo&)9^,Vs,r#=c^{w _ i`"K} ) o&E¡oi`"CK^,VxGjS]zW{_!> ~_,~Wi`"y!> N#Fo{_zW}o`ALbS\))o{_zWyOxG-{_zWy/w,x/w?? {^,Vͯ `^,V`s,r`ͽ z!è*^,Vz!*s,r *!9s,r#*s,r#,#*yx*s,r#:w*~2+V-^"^,V#""^,V#"^,V"^,V"^,V-" *~2##^#V*"+F-N* MD+-+V-^""+V-^ ͯ i`")DM~ ~i`"O~"^,V#{= i`"N,F"^,V^,V{< *MD ^,V***MD {ozg}o|g}/o|/g}/o&#+| MD |ʃ z MD MD ᯕo>g}o|gz }| z {z  i`"ûyH ) y ɯ w w x? ( } {/oz/g} {/_z/W7yoxgɯO>Gze R e +} {/_z/W}o|g#ɯo>g} o>g`i<)ҁ MD!xGyO){_zWҢ ã #‹ }· | !} |ʷ !z }| ÷ ÷ |ڷ }ڷ  +  !+  !+  ">22 C *S :2S # _ *o :2o #ͯ i`"BK* x:˜ }– +Ù ###:« {©   _W _ *^,V= ɯO>Gi`"E#)9~"## GOx {w#zw# y Gw#w# * " Gx6 {/w#z/w#' * ] xV {w#zw#I *O!9Axx w#w#j *H+~+~} i`"E#)9N,#Y"!9xڰ AOy/< G{  *͏ x  , # 믑Oʹ   ͏ x/ ,/ # ' ʹ ͏ ?믑Oi`"x!{zyoxgyGM{ozg{2&@&o>͋^#Vʪæ=¥x! G{_#zWx:w,w# Y]#)9N,F#! ڴyoxgyGMҴy_!~h&###)yʨ,9ʴ÷ @ OxG}|}| o g MDͯ i`"*N,F#^,V#:>xAOzS_|O{zTx]}o|g)N,F:uxAO* MD"2/<_*^,V*^,V#>:ʳ>(͋ø>(͋>2:o&:2**yoxg*KB*!>(͋*}=͇i`"i`"!" ~ڸ7i`"!" ~ڸ*!9""i`"!"Ϳ ji`"!"ͽ " ~ڸ*6*_^,V"^,V#""^,V#"^,V"^,V-{=*"^,V-" ~2##^#V*">{*"*"͇^,V!^,V->w,4-*!9r-s+V-^**{_zWs,r**^,V,#4,4i`" ʧ ~ *6i`"oti`" ¥ _!&|ڒ£}ң^#V{=ʣi`">ʧ ~ *6i`" ʧͽ " ~ *6i`"""":~  *6***i`"*^,V*zB{Z"͇ʧ+V-^s,rͯ "*" "}2|ʕ}/<2)*^#V*+F+N*)9* MD*MD *͇*MD **MD **͇ 9RX}`կ»ʻ=û G* i`"Nb ~# W*MD͈ ͈    " ʘ* ʤ*i`"*N2GںAy#¾: s#  y~# ~#  y*+~ +~ %%J͂M\}o|gͥr {# ff{+ ssx {# ŒŒ{+ ™™y_",#^,V""",#^,Vz-+~-===*MD!*3_*^,V^,V:=3+V-^_>W"+F-Ny+V-^*:w#:w ; "%()++++AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELSE END  EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD 'NOT &OF OR (PACKED +PROCEDURPROCESS 8PROGRAM !RECORD -REPEAT SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE  WITH !WØ""""*> #w±*^#V**` w_` A[0:#w*7{_zW*s#r*~m3>2Àc>ã>ã!>!"t"r}"l>¸>ø!"t>ø!>ã>à>!"t"r"p"n"l#^#V#~#"v2*t *}s#r*s#r!"v>D! !  *{"*À!!{!cO:k'O:jWDD*r*lW*r*l*n*p*v_nͺ2x*n*l:jz>͍ͪʜ>`Ҝ>zڜy O:r:±͕w:q:kw#zq#:kw9̀͝:x!!s>W+zN#p3̀y! O=%:rGyGxO>ͪy m:rm >ͪ:xG:yp2y:x/G:y2y:xG:z͍2z:x/G:z2z*v_nͺ&A"P"."h"""""^cOr Ü"æ"Ù"ì"~#~#Å#Â#"""#  MQ#t#o#y#>e>W {t*+"Gy2DQ#t#2*I *E"@*G|C R >2B*+}o|g"G"G>2:C*5"@!*@MD`#:7OV#:8O[#:Cj#e# !B5D o#M :! *E*+"Es!È:CC *E*GDM*5 xC ~#6 y#*M> D >D 2C"M"I"G"E"K"M"E"KQ#*E!͡ *+͡ *)͡ *'͡ I s#r#`i' ~# x° *+MD!͜!{2>:)GOW_  < w!- *3:K!!:>G !:)O͜!z";!':K9!{27:; 8#'ͨ 0#͂"*#*%͡ ͇##!͡ ͡ I >I #Ð#Ð#Ð# Ð# Ð#Ð#Ð#Ð#Ð#Ð#Ð#!Ð#$Ð#'Ð#*Ð#> ɯ*!!è 5 SYSTEM.PASCALCan't find SYSTEM.PASCAL  H_?#"}o|!#$"#$!m'"! s#r# +$*!# @'!""">22!">2>2!">2!#@'!K'!"!@K'**!!!͊*##~$ $>$>2N$#N+ "#$#$ %*" $!#>Y'**!!*^#V:+%zS_"͊*~2S%>*^#Vs+r##=G%* ^#V:g%zS_"*##~#+%""!**+V+^*^#V!9*!9*s#r+++"*## s%*^#V"##65,5 ^#V#N#Fo>g)9*s#r*)͊!*!!9""*"^#V"^#V#N#Fo>g)9"*s#r**!)͊* ~&*ͼ&ͼ&{++ͼ&zʳ&*ͼ&++ͼ&=š&&V#^r+s*^#V+"* ~2##^#V*"*+V+^*##"*"DMq,p#,#,#,#",#q,p-*"!""*"!">2Z~# y@'s#r# yN'OJj'bN0* 60  [WRGC@;62zole[WJ>3-"  tka^[OKH?<70*% UNHD4"|xokb_ZWKHEB740# }zwtqnkhc`]TND@961-$"{vohb_[PLHC@;6,)  ~wpke`]ZWTOLG30-  }yvspkhe_ZWQKFC<41.)# |vpld[WRMJB62%"tb_UI3.~SLE<7.+(%  y v h [ W T G B > ; 7 4 %        | v p l h e b \ X P L I F @ < 5 2 - ) & #        { m U P L I / % !       { v n g c ] W Q E : . "       | n e ` X S M D = 5 , $    |ukc<' xnjXROB>5/*vh`]ZUQKGC>91'$ xurifc]ZWOGB:2*#|yvpli^[XPB=:3-)&# @=:741.+(%"~|zxvtrpnljhfdb`^\ZXVTRPNLJHFDB@><:86420.,*(&$"   ~|zxvtrpnljhfdb`^\ZXVTRPNLJHFDB@><:86420.,*(&$"  ~a^84 }yuqkd_\SMHEB?941,&  zupmifc`XTPLEB>:72-($  {vmhd[PH@<.%#""""""""""""""o"d"F"="!! F |yZVSP-#(#$# ## # ###"""""""""""""""""""{"r"l"i"a"\"Y"T"Q"L"I"C":"5"1"*"#" """"" ""!!!!!!!!!!!!!!!!!!!|!x!t!o!j!d!`!Z!V!S!P!L!H!B!:!7!3!0!*!%!"!!!!! !! | x t n i e a ] X U P J A : 4 . * ' "         vrolfa ####|#w#r#m#h#c#^#Y#T#O#J#E#@#;#6#1#g'>';'8'3'0'-'*'''$'!'''' '&&&&&&&&&&&&&&&s&o&h&c&K&@&=&:&3&%&&& &%%%%%%%%%%%}%o%l%i%^%T%E%<%4%1%-%"%%% %$$$$$$$$$$$z$t$o$i$d$_$Y$V$Q$N$K$?$8$5$'$$$$$k'V'H'&&&&&&&&&%z%b%Q%@%&% %%%$$$$$$$$$$$w$E$<$2$!$$$$# ks.2469:V>@ABCEKERNEL PRINTERRINITIALIGETCMD PASCALIOEXTRAIO HEAPOPS EXTRAHEASTRINGOPSCREENOPSEGSCINICONCURREPERMHEAPOSUTIL FILEOPS USERPROG  XAKERNEL KERNEL KERNEL (   SCREENOP( KERNEL TCCopyright (C) 1981 by SofTech Microsystems Inc., and the UC RegentsKERNEL #8ĭĖk2jl"n& o&|;$& l#ihm!%#!z&z!z&z! & -!h!i%-'yj"2ұ$(x)N0 )p*p#i#k!n& o2!'y2&&{'y 'x'x'y''((x& &)(xԻ 7 F ,{+(k+Mmc,l$%$e,,$%jb2ih!. ! .xx.xf. !h/.xx. p.. .y ..zĊ..z/yi!2ҕ ' . .x/z. p.//xh 2 +Mb*!!{!2! 2 ą2 !ą2 ! !27iFj"{k#l'm%zn!!& (`!!!& %z.EM"& MM& `M%z.& `*%z.!!& '`'zĖi +0 ((n((xm`( V }{zo zo' ))|#L!)N@ 7 N$! *z*z|"d**z*z|ąN d*ր))|(%(&b 'ނ  "xh`i```!" Ė -,x,0,xi!u,!0,!xh e,! 0,! x ,0,x ok)> #'ko,! '#0'(,! '#x' 'o*) ,0,xk,#0,#xl$%#k,#0,#xm% ,%0,%0$l,0,xj"8,"x0,"0,"0"j,"x k#+,"0"j#kȖ)`*Pp"``p` `p+a#`!" l1c%b$`#"cb i ! h nLb$a#`"! mfb$a#`"! m}b$a#`"! m c j) c-j) 'h ) i( !! c"!0"j) h cp )`*P``p+.!p"  `p`0,⼃` jjaf" # a ) % 1h==%`ppc.//'Ċ2.Ɩ *+o' p m)`p%'`m%4. / 'p4 ((x2(x(% ja"#zh x! p#za3a/p !!# aW u;s^;P^^p`psNoFm^DP^^pa! 4N6&0c6%#%%{Ć<Ę69j"9 ""j+p'@0xl`0m%n%&&)&(&'V%%V 0$ċ8aą;"0 m%%x}{zn&&|'s&&|Ċ7t0z@'pvM N ' '! 4166 +p / e% hb"{y)xk"i!n&&|! "i!!|!yi! &|(&{#! l&yi$ɖ =E E6 E  E s6 Ezxrxrppp"EԞ `b(#l$m n%&y%&z&&z%$ %}ĆJ'('߆Jޖ @ QO5O(SO  5O'7XX ;EEw+E Ttwaiting:: Type to continuee Put volume in unit Segment not found: Exec err--REBOOTT*STACK OVERFLOW** Exec err # po= o==Z bn7fx5*** CONCURREEXTRAHEAEXTRAIO PASCALIO HEAPOPS STRINGOP REALOPS COMMANDIDEBUGGERFILEOPS SCREENOP DUSERPROG."xh`i```!" ĖS -,x,,xi!u,!,!xh e,! ,! x ,,x ok)> #'ko,! '#'(,! '#x' 'o*) ,,xk,#,#xl$%#k,#,#xm% ,%,%$l,,xj"8,"x0,",""j,"x k#+,""j#kȖ`aĈ! !l$m%'%%%%&% $ b(!kj%(b !xh!````!x! Ė``xտ՟```x ``x```x ``x`p`+`݇W```hlcc$&mi!%c!!i譅cchcccdcׁY pcׁli!$cׁmc94!x4!xz eĈ!4!xċ%`!ըcĈ#n&&&&&& %!y& %!xY& e%`!& %瀐!xĊ& && &%瀀!bĈ"n&#&&Ĉc!"!icׁh cխc p `!!!!`a%xMjh "?! k# # # #l $ $ $ $ $ $ hO s4xz dph UdUpU yU y U U XXUX  XX݇UX xYh ećedćeU  ᥁UTnWWn0aׁ WgWxWWcn[[n`a[ׁopWWp:o Wo瀀WɥUo`Wo Wfo瀐Wxćfgĭh oWzo瀐WzqVVqVćVVᇅo瀐WzVVxp4xćxx{Ċ6fgqVVq4VćVVᅁ4cqZZqaZׁrsVVsVWZ[hr`V#r瀐Va[ׁ WhhzZVxSr瀀VSćSćSfSzr VSzr瀀VćSz ećSS{ćVV(ZZ[WxTĄ[WxToWqqyqxY`qy_o瀐Wy^^mdn`p``^q]]qBr\\rEi\n_xć___dn`p``_\\i">[WxyxbmVV[WxybpcrZZrՄsVVsiaZׁ ViI[WxymZVxĄZVxZVx{ćVVZZr]]WW[[5T33Ls 0ĆFj"{k"#"{""{#####x`a "{! !i!iM"z!ĖL 3h i! z&i! |h! *p  z229Fj! 7k2l$ m#Mx$ $M$ x$x$ $ p$$$${%2%2Ė Jh   00 p"4ą4xz7aĆQxSWFa ;VN=4U` yyє Too many dicts in SYSTEMM SYSTEM.PASCALKERNEL USERPROGKERNEL *** GOTOXY missing unit GOTOXY`*6B`l TREALOPS +)+` *` +O` ```s 0g1Pdjigh 3g-n&g+kk# g#Zڡdd g#0#kg#.# 2#kg#Z"jdd g#0# g#Z&ddg#eg#E# =#kg#-n&g#+#k# g#Zڡ! g#0i#k&!i!"j""idd!p dd"!p "idd!p dd"!p 3d2698߇8{8s8x 8shjkl 8xȄ m8  h"`at" "j# #k0mfZ":ff ff #ff "ff%e%E" jf%.#" kf%fl$8s$8{8ć8 Zڡ  塠 ȇ7P9 xĖ8)  (-Ȋ( he cp p ec heec  heecep )) eep ) ee) p ec heecoj"'ei("!0ee!c"j) e(((.j L("E"j ("-"j h c(" d0"j dh (" 0"j(" 0("Ȋ^ '(( p( .()  p() Ȋ2(( p(0(.( 0p( )  p()Ȗ  -,xl$,$xk#,$#xn&,x $#ph p & xoi 'x4 %m  'x 'xi'o'!Է x* xm %p x%p & xm %p x%p 'o`'ph&n2 b"y{p (@(( " * <@ `-TIہI1r ^[ʀʊ*V*T!*R*P!*J*H!*F*D**-**x***j*h-**-**x***j*h-0*""͌" "͂* *0**!0*""͌0" "* ***!-*b*`!'}2"$""*B*@"":"!$"":"GM>P͊:"*:*"":"ʂ͊Ë>:"*{*B*@2"*^*\:"=«""0͌" "* ***!""-'""$*"͛:3""0{3""*X"*Z" !"")-$*"KB$*** *!"" *"-p : *f*d**-* *3 **-* *!:*" ""| 9}# 3}ց2$_}o""*F" *D">2"*** *!x" ":"=L :$o:3*B*@""*X"*Z" >2"o&$:"<OYP$*** *!"" :"=· *** *!|$ }' 9>2&9 3>2&}ց2$.͐  *$&$*n*l:&g *v*t*$&$*r*p:&g(*/(e/(y /(L /(C /( /( /Q|*  j g \ 2 c ` & w W Q ; 4 ' $   ]V tfJG630:S n c _ V S D > 7 / , % "    | x t o k f \ X T P M H D A = : 6 /      z q k h e b _ [ L H 7 1 - * !  {vsnjYQNKHE@;83/" {wplia]XSO,($  }6+     SCREENOPPASCALIOEXTRAIO  GOTOXY ~^^h```^&^&`___^%^%_^$ a ^ ha ^ h^$(^! a ` p a `^!p `h2`,a ^a ^!a a ``p ``ha _ p _ha p` | PRINTERR` yh {zl|j$zxxx"xie(ee(^e(Te"(Je.(@e6(6e?(,eG("eR(e`(eh(eo(ey(e(e(e(xe(oe(fe(]e(Te(Ke(Be(9e(0e('e(e(e( e(ցe( Ke(Be,(9e7(0e?('eG(eS(eY( eh(ցop ep p $pp "p p !p Unknown run-time errorrValue range errorNo proc in seg-tableeExit from uncalled procStack overflowwInteger overflowwDivide by zerooNIL pointer referenceProgram interrupted by userSystem IO error unknown causeparity error (CRC))illegal unit ##illegal IO requesttdata-com timeouttvol went off-linefile lost in dirr bad file nameno room on voll vol not foundfile not foundd dup dir entryfile already open file not openbad input formattring buffer overfloww write protect illegal blockillegal bufferrWaku IO error: Unimplemented instructionFloating point errorrString overflowProgrammed HALTIllegal heap operationn BreakpointtIncompatible real number size Set too largeSegment  # Proc# Offset# rINITIALI~`PZrZ`raoc*`lp0~~B~G~Hć~I~%O ~" ~" ʆT~"ȆT~"pZrp"OĆO ĆOdĆOĆO'ĆZ 000ʖ~ `d&p"p &`6Ć   ! ) 04xpprqh q, rr8r 0ćr hqh q rr| p"pյ rծr0|  0z!@ra9ar!rs33sj 0z3pڠRattr t43  tar퇁3 ap3pr33 h"$<@@rh- Ap D- MQUY]`M8ą;ą:ą9Ć;Ć:Ćh y xĖ<Ć8 8r; ` ; r: ` : r9 ` 9 r;Ć:Ći! !yr! !xr@$(*r*8&d.` '  e  &  *`r%*ć%x'* &**r*h   ĭ$3 f g &h @  @ @ yi    xr   0, 0 0ĖS 8ryrxr;r:r`{;`r:`r$`9`r@;Ć:Ć9ĆĆĆĖ #`````````` ` ` ` ` ``$9""9!"W"ć""?8N:=q $tq  $դ!՜q @       D# # -`# -#     $*SYSTEM.MISCINFOO:SYSTEM.ASSMBLERR:SYSTEM.COMPILERR:SYSTEM.EDITORR :SYSTEM.FILER:SYSTEM.LINKERR*SYSTEM.STARTUPCan't find system diskkCONSOLESYSTERMGRAPHICPRINTERREMINREMOUTT:*SYSTEM.WRK.TEXTT*SYSTEM.WRK.CODEECONSOLE::SYSTERM:: *USERLIB.TEXT???JanFebMarAprMayJunJulAugSepOctNovDec?????????REALOPS  Welcome , toU.C.S.D. p-System IV.00Current date is System re-initializedk"{z  GETCMD  # k p;)`*P`P p+WW3h3L |3 z  z  yi!xkj"#ն!l$"xm%zn$"xՕ"$$xx $"Ċ}%y!x&x&|&& %&Ċ:0&y)& o&'x 'x'yĊ0 'y'y'y 'x%" $" $""jDa!xh3h 4UĘ5Lh 4 yi!k##xxj"#"x!4 #" |hȖ9j"i!h!{"! k#x#y#y #xą2!#y2a i!"Ϙpih ! ׁj"k##$  h{daF"ih !"  " " Aa hޖ;hx@rp )Tx @    rp )$@ @    )x   o n *& (p( (' k #ձ#j" "pi "! !"k)Պ"!i ""j!" "pl"$j!" !pl!$i!"m%m%E* + " %p %ȇ *  ${ hB ,  )d d{*d+APddd h * +Ĉ* +* h{xrX!xh!````!x! Ė8``xտ՟```x ``x```x ``x`p`+`݇W```y_ՂIPbaćbxbĈbxׁ,`h*a+--x+-xha aP{ a*a+Pxarp++ՑaaJՁRa aUa aaTx--aP -XU -rp++'*a+--aP -[U -P+ս,-x.-. ć-.ć-a-`ć-x -z.++-{,-z pp+, +6a .++ //aP /^Y /P//c /a` /P<*a+*p ՂlP--u -aX -P+bxa*a+,Ćxr+cb#h#x '#xׁi!j"x"yxh ##xĊ l8jaa&'x j'x'xh"[!ׁk#l%$ %$ %$` %$p x%$瀀 % $瀐 % #'Ė di h 2! ! x! x3!x3 !  ! x ! xj"zk""###"zf"z # %# $## # ## Ą  #Ċ#Ė %& ih! !p d c pgtczgjbxp)c g((6c~W h   p h!ibg'& o322'2zo'2|22Ֆjokc"3#'159ɠ9ɇ; o' #kc"3'"j'"dԯ"dS ! p p  ȭ]] ] U ]_ ]P`>> ՂP >f &C&D<le$$f`>ՂP%4xx 4x x]i!] !!iia >pia"HQ!#H!ia"H! x23222{ 22{ć2o &xkh%x&x4:&xl$$xxh %xkh$ x$ %xxĊ%xkE&xxli!$:&x!x! $&x!xj"y&x&x4 %#"ykc%k!i#o ׬PهՂP 5bcbcfh b lh bbbcf 5Ղ$|| |^ |՘l7&   j4||Uhć|Ux^WYL``zƹ` `|`ᇊ`.`zx0W`zuW3``O`}}z~~|ᰇ~x)e~ ~ ՂP`ep`|`{Yd}cc}F*c+~~*+ ~   cc|Uxy5_|Ux___|U_xć|UxٖRS cj"ղ% S -1`ar ՞9999FF|YF9rJF0| :GGF G G1 G:S :cj9"Ԍ"S : 1 "TSj     Ջ  4`           `  ```. $` `    ``ȇ y`rp ` ċ y    ` 퇁 #퇁    $&  8`r, մ6 `  `@Վ`0,~A`  %`  ` B`  ``.` `  $ `  C  xrpH  $ ć ć ć yr8r0 yr8rh z {q  y Na x   x VB   0 a  a^ & a  a ĭj *t=a 0 e k   = ᇁ= `Ȅ` ``p``tm t p  ۄK. v   *  h Uq  ia  ay a  a-z    u,qhq   -t,t't"  ց ԡ t;ą;ą;ą:ą9ą9Ć;Ć:Ėijaq jj0,,ć,ć,Ě?,,+ ,X ,z ,,qh?q     kgb]j4Ux  #    ւ*jREALOPS.TEXT.TEXTLibrary File is not a Textfilee*SYSTEM.LIBRARY(Too many libraries in library text file..*SYSTEM.LIBRARY*SYSTEM.LIBRARY.CODE.code.CODE.CODE not codeBad block #0 in Illegal file nameNo file *** REALOPS  Unit not founddUnable to allocate global dataaUnable to allocate global dataaNo program in Linking....Must L(ink firsttREALOPS REALOPSREALOPSUnable to load segment on heappWarning: library not found.: Cannot find Assembling... Compiling....:AssembleeCompile what text? .TEXT Can't find :SYSTEM.SWAPDISK*SYSTEM.WRK.CODE[*]To what codefile? $$.CODE[*]] Can't open SYSTEM.WRK.CODESYSTEM.WRK.CODE.CODEExecute what filee? redirection error.CODE: Running....1Monitor: B(egin, E(nd, A(bort, S(uspend, R(esume & no monitor openAS pi="" pi= po=*SYSTEM.STARTUP+Command: E(dit, R(un, F(ile, C(omp, L(ink, -X(ecute, A(ssem, D(ebug, H(alt, I(nitialize, "U(ser restart, M(onitor [IV.0 B3h]]z3$ Linking.... U not allowed Restarting... XTfx D &  .% : vU PASCALIO i(m%n&ս% % drċjh $ "$ x&x$ y&yj h"Ċu $ $ k$ xk&y#& K$ o'#' % $r p-%%%{%&#& &  d i     zi ޖ1    yi ޖizćxȋ@kxx x k  kćd   jjdd)!yxx  wȊ)"p ?ڡw#' ۚ,ۀ #p|*dć Ā xȇȇ ath!i*!!! !!x!|sh !!x!|h Ė   ޖ !!{! !x!{!!!ޖ9  y  {  Ċ z  ޖ%%{%%y$ȊU% j$%xh" h#k$`ct% %$ #si %$ #"i$ !%y $$Ȋ%%y%{%%ޖ ,`u+`uĖ 8` ppO   `s% =   p  `p !!h 8  ! x |s" = p x |p !ޖ##S!G! #!  ip-##"!s # = # # p # "!pĊ #ޖb߇ykbh  hp> to continueeD5 zqlPvsdH<`RGOTOXY PASCALIOEXTRAIO STRINGOP SEGSCINI=J f*f*J UJ "ȆJ !ʖl"$!  Q f*f*Q " ʆQ "ȆQ !ʖ"/!   ap!klh $   hQ#-ĆJ#Ćf)D#lf:m%#%%#&%%%$%$%$%ʆf*#-# #l$$$$$$$$ #%l$ $$ $ $ $$$$ QJlG$G$xȊGȆG$$GmeGseseG sef*f* YȆA pA#"ȆA A Ȇ`k###f:#f:##ĆZ`q   ]M8-! hCONCURRE `b par! !n&o" '(y'(z'({'+s+p''+p''**'*& & '}' c!l)ěLc)e,%,!ĚNNLޖ LњNNJޛL``ߖLߚNL) JߛLߊLޖd xEXTRAHEAHEAPOPS  PERMHEAP| sF#kb#r$bp`< b`p a`` "#"``< .WĊ..WĊ.WĊ.WĖ\`!!!!`Ȗqa%xMjh "?! k####l $$$$ $$  hh Ɂڡl$ p Ɂڡl$Վa`p  ,  ɡl$epp  l$Nćykj:"ppl# "p:$a p$!Ė l$m)n$|$w)$|p$xi!$| o'y'y $::i'x%% '%'թ''''MՉi'&~h 'G$| (((y(x( ( (  ɀd i $|  h!+'k:$)$|#p$xi:$!&'&'b' p! !!&"&$ $:  'ji)m)#)>jhm)%Zj" )%0h%m%)"" #ڡi(!塤 !jh) j" h" "X |Nnj&|)&| dcp#&| ,j"!!j !)&| jpj"('h n&| )&j" h" "2 n &)&&||'|d'x p Znih # !## j"%$"  ɀdi n hЖ# i$!jh "# # h#! %!!Ė# i!$jh "# # h#$ % !!Ė!"h #   #i jhmTl"k### y# x#k"" y $%% i<k#"# x# y#i"k#k! " y"i"Mi!9! yn&o ʄ ʄʄ df! !R#h *      "!!ᰠ x ! Ċ! Ċ !!ĖR "i!!!!!!h !!!հ ! !!Ċ!!!!! h! !!!"~! = ! ! p !"! !#!!!!p! !#!!p !!&!!!#p! !#!!p!!!!!Ċ!Ė ?BPě6߇D߇D ċQf de >f`i! ċ!ćć !ć fć|ć|| ՜ A jA"  ċ  " r"  ċc%m $% j"%) " yx yćyx" j"ċL " ! ] | ċ! ć!}ć%ʇ& ćʇʇ ʇAĊćՈ!ć"ćA  Ċ ćSćAI#p =   p  #xp #xpDAćĊ|{DućDxĊćDޛ6ޖD 8 6'ߚ'l$$x9xՄ$^$m%O&2$$%  dn$$ $!$"$#$!$!p'$%  ɀd&$ b$ ċik!" #"! x%x"! y%yk!i#ċ!i&&"!  ɀd!" %" h ! " !!i"!  ɀd%  ɀd % D%$D % D % "! %%x$$% $ $ $"! $ $ " &$$ '$Ě8 'ޛ6ޖ !ߚ!h ! | {!u !ޖb&ߚ&}&k#l%#$#|`%#|%#|%#|@%#|@@i%#| % #| j"j!i$y$xh! ! "$  i$ j##### #!Ċ###!# # #!!#~#"<#"## = # # p # ##$x#ppg!#"0# = # # p # ##$x!pp*####{##!#!"Ċ &ޖh:[].TEXT.CODE.BACK.INFO.GRAF.FOTOjN/; p+EXTRAHEA HEAPOPS STRINGOPPASCALIOEXTRAIO SCREENOPOSUTIL  [SOFTOPS UOhh p    Ė9 +m. ) )z )xȋ.n*ih))4* )!l)!%) )!)|) )))x ȋq)!l$%%l$)|մ)%$)y՚)#)! h( )( Đ c(!hX( B(5))!!)))!)!Ċ)!)nH)Ā %m-,(, )!)!$l.x(ȋV)#)!-,$p)!)!$,$ %$m%)yk#s)!j) = ) ) p )"&)")) )#*x)pp-) )#*x)pp))&)!#T+%   h !i ml |  x  y; !% t ċ  !k !kN x  y3tć "ć  ć !!ċ  !+ k  !k%j"##j( "j"- "ć$ # !"p ! !"$"l%"m%o'n "Ր "ć ( 8 #pn #& &p #&&p = p # x pp}  9 = p # x p #pp# #&p  ć !&'  x  y ! ć  zĖ *SPASCALIOEXTRAIO SCREENOP SMALLCOMD6543x1:17W!xh!!xx`u!xh       p!664435jR4/4`t 4y  h4z43 r r4  ap 4 ap j!0 s(i==pi=.J$ UPERMHEAPPASCALIOEXTRAIO COMMANDI COMMANDIf+1 u _ u `Pu u `A*-r+*-pć*+s*`spu *r*+1,h!ssp u `rDĆĆĆĆ:ĆĆĘ:v# $x$v:#j`"r " # #p$xi!$ Ċ !x!xi! vޖ pv`` 0"!xh x"!xxA! xs" x!xx!x!x r "!xxĖX0[P]ZYxk0}b-rab-p"!s"0Ysp"ld0Pwd'UwdYsp+ZY Z#xYxx Yx"#"Ċbr]ZY v\<@p  [ [ ii/W[h=W hi?hWW ""WW h, ! Ȋ !!iWW ""ԯ!ȭWX ґ ґ "*"!  A)`+P҈.҂+,҂,-`P* -P.[݄۬͛<@ZччZ`-(ъ℀.02345UWՁ WWWXX ⼃6 XXX =խU `:(чч VXW^VWXZYYZDY SS; SaASSYWVYYVvXXUՇU "  d`XW`ZYYZ=[WYSSC SaAS`YSȇYYXWyU `K(<@@LݖS ]file already openWrite to what file? can't open filecan't close filee.text   PIIPOOIOPL  *USERLIB.TEXTi=o=pi=po=i=""pi=""qG bW#dSTRINGOPSMALLCOMPASCALIOEXTRAIO FILEOPS PERMHEAP , L\OPUGOTOXY SOFTOPS SMALLCOMCOMMANDIREALOPS   #q L FILERPROBUFF1 BUFF2 NONBUFF1NONBUFF2NONBUFF3   h-FILERPROFILERPROFILERPROFILERPROFILERPRO&&_hSTANLEY2LPh*)L_&::_&.KBUFF1 <:f3rfӘrpq fq mj%%ql"i!00if!vhpq "!j$lqBB#131|1Jq1#w Fw :vww wq q1qwqp qrpq q 6%% h p6 % 6 % k # 6 6 q vipq !q #fw 6 % q"fw՜6/%0/0 ć/0ʇ/0 0 D /Drpq % %//6  / /6 /qfrfr:qih:>H$(aq4`qiꆀ肀9ԘF86>`-r;`**: *6 *r`q ))*)C*  dʇ<++. +A +6 +*<@`r @:9q `r?ph`蘀 `B ` `I `B `J `Z `K ` `L `TZ.FB98w q q .M:qNw w :v.w Sw q -UYqZ q B@-肀Z[9^8膀 p.ZFq9ka&  I8;d . e hq iw sw 8 |w 8~   w m  րPut in Insert destination disk:TransferrTo whereeTransferrblockss# of blocks to transferTransferr *SYSTEM.WRK... *SYSTEM.WRK..,:.,Save as  ? Save asTEXTTCODEETEXTT*.CODEOld code removed, Text file saved & CODEECode file savedSTY "BUFF2 ] Hq `qil $k#00k1#$ppK$$#mj"%?1"pp)!ibq"w "w&w w"j$#l$ Ԏ!w*w wq5 h վ0w w -  w w 4 F@ "x#x  0 01#x ppq 1!x ppq  ԕ"!x #!xq;?@q@LM5 y q q q w`W ( )-$5) .x5) y ..5) ) 5 o `\ 5 ( )-5) .y'..g.xo) ߚFw _w w,ew wʖ րmBad block scan ofScan forrblockssScan for how many blockssBlock  is bad bad blocksMoving SYSTEM.PASCALCrunchhFrom end of disk, blockStarting at block #forward back : cruncheddPlease re-boottBKk TNONBUFF1c+%+Jqq+;q 2|;qwJw :v+ %+w++!"h * *) ) H7w  w w = "w"wG&r qh c5 (rpq 5c-,+*)(5 y'i:5 i : %+!q,q`2|;-q w .v--5, .5, y.x.y.x('('.w .w (w. w-v/.  /w -v.  wHՂ=M.xw. ww /. /w w 2.xw v/. /w ? !վ:Ֆ5, y5 -w/v5 w"w =&w 'w/w 6w )w8w <w *w>w pq b b wrpq rHwDw wh1 1p"1Frh1 O1i!K81w!| Lw Nw !w :vw1Ow @w :vwWw <w :vw  ր_ < UNUSED >>Dir listing off#1:ListtWritingfilee filess, blocks usedd,  unused, in largest Vols on-line: # Root vol is - Prefix is  - EVD tWNONBUFF2*`-rqq_`Әrpq `q ))****`rpq qFw :vZw w w肀 z`r*q Q.   w 'w w :v.w 98 w w C.$&%&3`-r98q'w q p 4w7@qAJqKTq)). )U )Xq  4q\w `r4.e&fgh` `h `. ` `q>Ah`. ` ` iw w  kmqF.Z.j"hq i!"3.c" cn.c" cq ." ..t,ux&{~h!z w w `piHqqw q  i!gqw w w q膀:. "蘀  蘀DqFw w q }bcF D3Jq3`ppq cw w RfHqqw SwwSRRwwwRR5R5 5 RSSRCqwSRdVVd VqVVqw q pap pT USRdVVdw Vw1dVp1dVpp 1dVppddw wkw wVq5RV5 yHUV5aayćTTTMɢ5 q aTVaTVćVUVV!ayqw  w w q pqYʁbcDZ aydVVdaVeeyWexXfTTf1Z TeyOTx0ȇeeyOTxćTT5 TW5T yTTWT5r VVyqw fy   ցMakee made not named Workfile is (not saved)) No workfileThrow away current workfile ? *SYSTEM.WRK.TEXTT*SYSTEM.WRK.CODEE*SYSTEM.LST.TEXTT.BACKRemoveeWorkfile clearedd:& Get.TEXT.CODE.TEXTText .CODECode No file loaded Zero dir ofDuplicate dir ? Are thereblks on the diskk# of blocks on the diskNew vol name ? : : correct ? : zeroeddExamine blocks onBlock-range ? Fix them ? Block may be okk is badMark bad blocks ?? (files will be removed !)) (Y/N) BAD.xxxxx.BADBad blocks markedGZK RX  NONBUFF3mM`-rqz:պRV--V - -(: --( -zA -(**q\`Әrpq `q )qq%)-- dʇ- -Zq-Z`rpq zհDq>q ,  35p5 F35pp+, +q 3F@Jz3@F1z5 D15r as>D+>asOw Dw-v?D ?w -vD wX  րVChangeeChange to whatt:Changee:RemoveeRemoveeremovedUpdate directory ? %Date set: <1..31>--<00..99> Today is New date ? : The date is CRR?{ bp FILERPRO s$s ,s c c i!!@?ih jj!H"i!h !00h ww p0` ` !p";Ě`w a z aAh j`! j/ wFjzb(VRӂ(J N!  p8.1`ڇ0`"(1Z`#(T`-(K`5(B`>(9`E(0`N('`W(`^(`f( `p(րx0`(`(`(`(`(`(`(x`(o`(f`(]`(T`(K`(B`(9`(0`('`(`(`( `+(ց80``( P1 (1 pɡUw 1w'[w 0w`w /p1Ewt 4,p4Yiww sp35r p h !7! !!} ! a! z ! ! aA h!  !bp(/-a+h5Q5 *Gw  v5 w vw cw  h)5  ;aw hw )ww )x*jw p0>5,ow Fw tw  p2[pDia( aw/ a(ih !  0ȇ  h e{ e1e0 e-h-$ raearh a h O}w  w w ew w -erh e pb)g/3J5$5 ih !b  5r h( B6E)C`-r`6rpGpG)2)w  v6w w  G `rp `rFaw :vw &h P(ha  w w aw w J!!ڭpp *- : @w :v: <w w &P w  #" !8h7Zh'hhhցB &P w   w  w pb(bFZar o` ` BFFr5+1 1p"p1|ZZ5r    5Cx hr iaV a a  a(Y+;Y+w  v w w ww4,p4YF  ` 5 ` p`  ?+D(FCxձB2|2BA: wBJN 5  h )j5 *ʆj*F!j*j!**:*<ʆ ʆ h< BCCxĆ'@3JNCx5 4Y5Cx CCx< Cx)) )ʑCxBէa) )j  az[zpbh  :堡M R    z!  a0  b?  (): J) Cxʆʋ? ? E T *pTi *T-h $$=$?$%+*aT a(*T * *aT aw &P w ,'w w w ց ", www w p- * *pieׄ肁Nטw =E w w w w w ,pTT#p*蘄WT WPT  ;?%* :%T*#T* #*** 炁WW W W($%UU*S*0 #p`*P**Ȉ*Up`U*U`Up*P=%TT*?%TT*0F%:  #*T# `:H+WWR W W> #WW䘀( W昀A W( S1NF3J肁HSS:Ә@ ӘDGC7K*I`P7VjӐ"1JFH"肁H*Rzb"L >,rZJF(h`F ` `Z ` yw wMih !_ Q5 j w w "w "w "xw"yww h5P5 ih !65 y#x'"# Ċ5 x#xʆ ʊ h" #5 ĖN肂jkc' c+K c>o cQ cd,s4j ki!#e!l$pO! mh %E$ 3 qw !wyw  w{w h!i474 4u 4 74 t74 ^74Hl Non-Wild) carddIll file/vol nameIll change (Vol file) nameBad dest for files founddCakuMWku expected I/O error # Filer error # ? (Y/N)  ? Invalid #Destroy : ? [*****]# Put : in unit  ?  -->  - C1*,  : ? :not proccessedd ...too long < file name scan string  vol name  - char. max >>- Illegal formatt what filee what vol ? *::: Remove olddFile(s) endangered: Directory'Filer: G(et, S(ave, W(hat, N(ew, L(dir,$ R(em, C(hng, T(rans, D(ate, Q(uit, $B(ad-blks, E(xt-dir, K(rnch, M(ake, %P(refix, V(ols, X(amine, Z(ero [C.10]xBWarning units  &  have the same name&buff1,buff2,nonbuff1,nonbuff2,nonbuff33buff1buff2nonbuff11nonbuff22nonbuff33Prefix titles byy Prefix is BZHvHvHHvSYSTEM.WRK.TEXTSYSTEM.WRK.CODE0???JanFebMarAprMayJunJulAugSepOctNovDec?????????? Bad CodeTextInfoDataGrafFotoo4FHANDLER,FILERPROG,HEAPOPS,EXTRAIO,PASCALIO,STRINGOPP!SCREENOP,OSUTIL,FILEOPS,EXTRAHEAP'COMMANDIO,SMALLCOMMAND,SOFTOPS,PERMHEAP4FHANDLER,FILERPROG,HEAPOPS,EXTRAIO,PASCALIO,STRINGOPP!SCREENOP,OSUTIL,FILEOPS,EXTRAHEAP'COMMANDIO,SMALLCOMMAND,SOFTOPS,PERMHEAPepoI N 'MlN|{eY %EXTRAHEAHEAPOPS STRINGOP 1 PASCALIOEXTRAIO COMMANDISCREENOPFILEOPS  ARYq. SYSTEM.PASCALQSYSTEM. !P ?KM.COMPILER\ + SYSTEM.FILER \+\ SYSTEM.EDITOR\\SYSTEM.ASSMBLER,VLH>:3/U R O c ` ] q n k  | y SCREENOPPASCALIOEXTRAIO  EFGL"STRINGOPGOTOXY SMALLCOMCOMMANDIREALOPS    ( 2 3 INTCPMSYSTEM.LIBRARY{q& INTERP.8.CODE2F&@INTERP.8F.CODE2F@FRSP.CODE54 2FM TERTBOOT.CODE2MQ INTER.CODE 2QU INTER.X.CODE 2UYINTER.CPM1.CODEY]INTER.CPM2.CODE]aINTER.CPM4.CODEai BIOS.CODE4 22iq BIOS.C.CODE 22qy BIOS.CR.CODE 22y BIOS.CRP.CODE22CPMBOOT.CODE`{q6 LONGOPS  4   uses {$U kernel.code} kernel;  TYPE DECMAX = INTEGER[36]; %STUNT = RECORD CASE INTEGER OF /2:(W2:INTEGER[4]); /3:(W3:INTEGER[8]); /4:(W4:INTEGER[12]); /5:(W5:INTEGER[16]); /6:(W6:INTEGER[20]); /7:(W7:INTEGER[24]); /8:(W8:INTEGER[28]); /9:(W9:INTEGER[32]); /10:(W10:INTEGER[36]) -END; "procedure decops; "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER);   IMPLEMENTATION 5LONGOPS : `& q``!`s !!ct ~qqsqqeqqWqqIqq;qq-qqq q q q րhc  c-hjj"c(c"0i !i   qq!qqq qq!qqq qq!qqq qq!qqq qq!qqqw qq!qqqZ qq!qqq=  qq!qq q   qq!qq q ր"j!$ ( 0Nl"!n^#V(%MN! -W*.. ."}=_"!9~#{2"+"#~=_##~2G##~ #{2"+"!2:WN*yѕ>GF|J1!Ι'+>Ι'y::/2&{{y&x.2Í{{<:/2y&x.>2Í{yx2C!9+"x<2=2/'?WyOz+¶**:G~+yO**:G'w+y*:G~'w+ *+"*+"!5!5*":22dC*+*}|ڌ"7**:GҀ>Ι'+l ^'+ yʒ{­**A­#¢:!2*+w"!4*+w!4+":/<_"":G/<_#x222*"*"~+>2*~;2!:<22*"*"*:G~w+E =>2*":2_D**}o|z!4y2*":2_D:*#"w!4:V*"*}o|g":*:G#~w 2!""zz/W{/_>2{_zW!~'w+ ***!Ä!9"~=2oB$"~W+~_!9}oY%:G*~#d*!~+u:>Ä}=2"کG| >22:ʿ} |2":2:2:2zW{_!~0w555+ : zW{_: {/_z/WÄÈ""{=G{8 >-#w!9H > Z 0#wp p O0#wy0#wX }*O:ڂ ywÍ / { w r n V S K F B 2 ' #     {qmjb5 \VKC?82+#|wtkgd`]ZWTOKB?9630-*& ~zjfc_[XPH;852/,($!{rmg^YTOLID?:730+&#  ~wra^WRGC?<962/,'$ |ytojebZUKHD<93.%  ~|zxvtrpnfbfOSUTIL PASCALIOEXTRAIO  BINTERP  INTERP  IV.0 [a.3]A ?,,,,,,,,,,,,,,,,<<<<<<<<IIIIIIIIbbbbbbbb       Ye p T  \Dm&%t G 0 $ i tp   -  " 9 ; z ,&~d=  M_ < js;&S Y HHÌ } Copyright (c) 1979, 1980 by the Regents of the University of California>2&>>~ڬ *6*͇*.Ì.Ì.Ì.Ì.Ìi`"Z*MD.Ì. Ì. Ì. Ì*MD. Ì. Ì.Ì.Ì.Ó"*".&"*"!ͩ*MDo& o& %^,V!<~# c!|2>2!" !P ?*MDo& o& %^,V o& o g!_*^,VB_*2_*s,rͯ * *^,Vͯ *s,rƢ_*^,Vͯ *ͯ *^,Vͯ *s,rͽ ͯ TͿ ͽͽ^,Vͽs,rͯ s,r^,V_^,Vͯ ^,Vͯ MD{= ) 2J*ͯ i`":x:xBKx~#~# e)BKx~# ~_"*^,V&o)>o>g)9|¶}!9|}i`" 2ͯ * _>͋6 ڸ:: +^-V= +V-^= ͯ **}o|gi`" o&>͋ڸ})+V-^=H lo&)9^,Vs,r#=c^{w _ i`"K} ) o&E¡oi`"CK^,VxGjS]zW{_!> ~_,~Wi`"y!> N#Fo{_zW}o`ALbS\))o{_zWyOxG-{_zWy/w,x/w?? {^,Vͯ `^,V`s,r`ͽ z!è*^,Vz!*s,r *!9s,r#*s,r#,#*yx*s,r#:w*~2+V-^"^,V#""^,V#"^,V"^,V"^,V-" *~2##^#V*"+F-N* MD+-+V-^""+V-^ ͯ i`")DM~ ~i`"O~"^,V#{= i`"N,F"^,V^,V{< *MD ^,V***MD {ozg}o|g}/o|/g}/o&#+| MD |ʃ z MD MD ᯕo>g}o|gz }| z {z  i`"ûyH ) y ɯ w w x? ( } {/oz/g} {/_z/W7yoxgɯO>Gze R e +} {/_z/W}o|g#ɯo>g} o>g`i<)ҁ MD!xGyO){_zWҢ ã #‹ }· | !} |ʷ !z }| ÷ ÷ |ڷ }ڷ +  !+  !+  ">22 C *S :2S # _ *o :2o #ͯ i`"BK* x:˜ }– +Ù ###:« {©   _W _ *^,V= ɯO>Gi`"E#)9~"## GOx {w#zw# y Gw#w# * " Gx6 {/w#z/w#' * ] xV {w#zw#I *O!9Axx w#w#j *H+~+~} i`"E#)9N,#Y"!9xڰ AOy/< G{  *͏ x  , # 믑Oʹ ͏ x/ ,/ # ' ʹ ͏ ?믑Oi`"x!{zyoxgyGM{ozg{2&@&o>͋^#Vʪæ=¥x! G{_#zWx:w,w# Y]#)9N,F#! ڴyoxgyGMҴy_!~h&###)yʨ,9ʴ÷ @ OxG}|}| o g MDͯ i`"*N,F#^,V#:>xAOzS_|O{zTx]}o|g)N,F:uxAO* MD"2/<_*^,V*^,V#>:ʳ>(͋ø>(͋>2:o&:2**yoxg*KB*!>(͋*}=͇i`"i`"!" ~ڸ7i`"!" ~ڸ*!9""i`"!"Ϳ ji`"!"ͽ " ~ڸ*6*_^,V"^,V#""^,V#"^,V"^,V-{=*"^,V-" ~2##^#V*">{*"*"͇^,V!^,V->w,4-*!9r-s+V-^**{_zWs,r**^,V,#4,4i`" ʧ ~ *6i`"oti`" ¥ _!&|ڒ£}ң^#V{=ʣi`">ʧ ~ *6i`" ʧͽ " ~ *6i`"""":~  *6***i`"*^,V*zB{Z"͇ʧ+V-^s,rͯ "*" "}2|ʕ}/<2)*^#V*+F+N*)9* MD*MD *͇*MD **MD **͇7  9կ»ʻ=û G* i`"Nb ~# W*MD͈ ͈  ͈  " ʘ* ʤ*i`"*N2GںAy#¾: s#  y~# ~#  y*+~ +~ %%J͂M\}o|gͥr {# ff{+ ssͥx {# ŒŒ{+ ™™y_",#^,V""",#^,Vz-+~-===*MD!*3_*^,V^,V:=3+V-^_>W"+F-Ny+V-^*:w#:w ; "%()++++AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELSE END EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD 'NOT &OF OR (PACKED +PROCEDURPROCESS 8PROGRAM !RECORD -REPEAT SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES  1VAR WHILE WITH !WØ""""*> #w±*^#V**` w_` A[0:#w*7{_zW*s#r*~m@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~   "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~  -0369<?BEHKNQTWZ !&-036=@CGMTW\jrux"*3=DLT\aiqtw}  #15>AKSX]aekotwz  *-039DIOX\ilr '*/AV}   % - 6 > F O W ^ g m r z    ! & , 2 6 < H T _ k q w }    " ) - 2 7 ; ? I c f j o       # * - 0 3 : = @ C G L O V Z ` c f j r v |      ! + . 2 5 9 ? N Q U X \ a n q u  "(06:?BEHQV_fm)/3HMcoy|8  +/47<?LP\dglqu~ !&,148=CHKNV]`ekqty %5:GJMafinqtwz  "%(+05:CFPUZ]bfjuy|,2<>GKPSZ^hnwz} "%47=JNQ\_beqty|  "/258<N^bho %+069?DJQVYbeiux{  "%)28<GMXdqu!*7LPUZ]alqu_!$'*JP .046:,DJh| ,2<>GKPSZ^hnwz} "%47=JNQ\_beqty|  "/258<N^bho %+069?DJQVYbeiux{  "%)28<GMXdMSCINFO GDIRP BASED0 MPD0 UCLEAR 6LEAR SYSRD XCLEAR 'LEAR CURTASK USTATUS :TATUS ROOTASK DEBOFS UWAIT 4AIT XSTATUS *TATUS EVENT 5QUIET h,JABORT WORD1 MP IOC  C NP BUGSTA BACK SIB SEXFLG IPCSAV LTSTRNG EREC CONBASE EVEC SETBACK ZSYALPHA BIOSVC BASE SEGBOT TIM M SETBRK sIOINIT IOR .R UREAD EAD XREAD !EAD UWRITE RITE SYSCOM XWRITE $RITE READYQ DEBPROC SEGTOP UBUSY 0USY MEMTOP STEPFLG INTERP INTERP STARTNP UIOERR BOOT OT ENABLE |JDPNOCHK IORSLT XEQNUM DEBSEG BACK1 SYEOF GBLVEC SIGVEC CURPROC SYSUNIT  ?INTERP  INTERP  IV.0 [a.3]9 > <,,,,,,,,,,,,,,,,<<<<<<<<IIIIIIIIGGGGGGGG       Ye p T A)R %t G 0 $ i tp   -  " 9 6? $; z QZf,&~d=  2_ -< OXd  S Y --Ì } V%Copyright (c) 1979, 1980 by the Regents of the University of California>2&>>cڬ**l*.Ì.Ì.Ì.Ì.Ìi`"Z*MD.Ì. Ì. Ì. Ì*MD. Ì. Ì.Ì.Ì.Ó"*".&"*"!͎*MDo& o& %^,V!<~# c!|2>2!" !P ?*MDo& o& %^,V o& o g!_*^,VB_*2_*s,rͯ * *^,Vͯ *s,rƢ_*^,Vͯ *ͯ *^,Vͯ *s,rͽ ͯ TͿ ͽͽ^,Vͽs,rͯ s,r^,V_^,Vͯ ^,Vͯ MD{= ) 2J*ͯ i`":x:xBKx~#~# e)BKx~# ~_"*^,V&o)>o>g)9|¶}!9|}i`" 2ͯ * _>͋ڝ:: +^-V= +V-^= ͯ **}o|gi`" o&>͋ڝ})+V-^=H lo&)9^,Vs,r#=c^{w _ i`"K} ) o&E¡oi`"CK^,VxGjS]zW{_!> ~_,~Wi`"y!> N#Fo{_zW}o`ALbS\))o{_zWyOxG-{_zWy/w,x/w?? `^,Vͯ `^,V`s,r`ͽ z!è*^,Vz!*s,r *!9s,r#*s,r#,#*yx*s,r#:w*~2+V-^"^,V#""^,V#"^,V"^,V"^,V-" *~2##^#V*"+F-N* MD+-+V-^""+V-^ ͯ i`")DM~ ~i`"O~"^,V#{= i`"N,F"^,V^,V{< *MD ^,V***MD {ozg}o|g}/o|/g}/o&#+| MD |ʃ z MD MD ᯕo>g}o|gz }| z {z  i`"ûyH ) y ɯ w w x? ( } {/oz/g} {/_z/W7yoxgɯO>Gze R e +} {/_z/W}o|g#ɯo>g} o>g`i<)ҁ MD!xGyO){_zWҢ ã #‹ }· | !} |ʷ !z }| ÷ ÷ |ڷ }ڷ +  !+  !+  ">22 C *S :2S # _ *o :2o #ͯ i`"BK* x:˜ }– +Ù ###:« {©   _W _ *^,V= ɯO>Gi`"E#)9~"##:  GOx {w#zw# y Gw#w# * " Gx6 {/w#z/w#' * ] xV {w#zw#I *O!9Axx w#w#j *H+~+~} i`"E#)9N,#Y"!9xڰ AOy/< G{  *͏ x  , # 믑Oʹ ͏ x/ ,/ # ' ʹ ͏ ?믑Oi`"x!{zyoxgyGM{ozg{2&@&o>͋^#Vʪæ=¥x! G{_#zWx:w,w# Y]#)9N,F#! ڴyoxgyGMҴy_!~h&###)yʨ,9ʴ÷ @ͯ *^#V#^#Vs#r#s#r!!!9]T>!*/hZQH[oxGyOzW{_-n$%~o###zW+yO+~7GtGyOzW{_,t_~W+~O+~7GE$g_|W|O|GEGNʋ ʋ#x=ҕڏƁOGOG~#V#^_P|gx*zWyOxGyOzW-||L}l&._aOG~ʏ  ʋG#y|ڕҏƁO ~#V#^_~G#N#Vڷxڷyڷ}?}o|g{_7}o!9~+~r#wS@){_Þ{_PZxþzG{֐$ +>_xGyO,CO>Ga{ʋ} ڕÖ,GOWoʬ,-ʐ|<怨BW]"}ʾl&9*{zWzW|g.!!V]T C))OF+N+V+^ Hz@CPt$> nk(:Chԥ5!c_ʹ1^ l $-xX(y)hSYR%oNˑ?;! I|oŰE7v@pvi`"V%o o  o  i`""zWx怺¨ʒYPÓ{©z©{ªzê* OxGڮҮ}®|®}|î o g MDͯ i`"*N,F#^,V#:#xAOzS_|4{z9xB}o|g)N,F:ZxAO* MD"2/<_*^,V*^,V#>:ʘ>(͋Ý>(͋>2:o&:2**yoxg*KB*!>(͋*}=li`"i`"!" cڝi`"!" cڝ*!9""i`"!"Ϳ Oi`"!"ͽ " cڝ**_^,V"^,V#""^,V#"^,V"^,V-{=*"^,V-" ~2##^#V*">`*"*"l^,V!^,V->w,4-*!9r-s+V-^**{_zWs,r**^,V,#4,4i`" ʌ cک*i`"oYi`" Š _! |wˆ}҈^#V{=ʈi`">ʌ cک*i`" ʌͽ " cک*i`"""":c****i`"*^,V*z'{?"lʌ+V-^s,rͯ "*" "}2|z}/<2)*^#V*+F+N*)9* MD*MD *l*MD **MD **lHvoկ»ʻ=û ,* i`"NG ~# <*MDm m  m  " }* ʉ*i`"*N2GڟAyʬ#£: s# ½½ y~# ~#;   y+~ +~  /g2A}o|g͊W {# KK{+ XX͊x} {# qq{+ ~~y_",#^,V""",#^,Vz-+~-===*MD!ø*ø_*^,V^,Vø:=+V-^_>W"+F-Ny+V-^*:w#:w  "%()++++AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELSE END  EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD 'NOT &OF OR (PACKED +PROCEDURPROCESS 8PROGRAM !RECORD -REPEAT SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE WITH !<}""""*> #w–*^#V**`ڶ w_` A[0:#wø*7{_zW*s#r*~R {B 1 +PYN#Fq#p "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~   "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~  -0369<?BEHKNQTWZ !&-036=@CGMTW\jrux"*3=DLT\aiqtw}  #15>AKSX]aekotwz  *-039DIOX\ilr '*/AV}   % - 6 > F O W ^ g m r z    ! & , 2 6 < H T _ k q w }     " ) - 2 7 ; ? I c f j o       # * - 0 3 : = @ C G L O V Z ` c f j r v |      ! + . 2 5 9 ? N Q U X \ a n q u   "(06:?BEHQV_fm)/3HMcoy| -36>HMqx  :OXdnq} */5<AOTagmx|"7IOd!$'*-0369<?BEHKNQTWZ]`cfilorux{~< !$15AILQVZckou{ "(-03;BEJPVY^dgjorux| ,/2FKNSVY\_djov}  (+5:?BGKOZ^agnuz!#,058?CMS\_bgjmpsvy| "/36ADGJVY^ajnw{!3CGMT $)/6;>GJNZ]`js !,2=IVZdkny    1 5 : ? B F Q V Z !$'*JP)/Ma !#,058?CMS\_bgjmpsvy| "/36ADGJVY^ajnw{!3CGMT $)/6;>GJNZ]`js !,2=IVZdMSCINFO GDIRP BASED0 MPD0 UCLEAR LEAR SYSRD XCLEAR 'LEAR CURTASK USTATUS TATUS ROOTASK DEBOFS UWAIT AIT XSTATUS *TATUS EVENT QUIET MJABORT WORD1 MP IOC C NP BUGSTA BACK SIB SEXFLG IPCSAV LTSTRNG EREC CONBASE EVEC SETBACK ZSYALPHA BIOSVC BASE SEGBOT TIM M SETBRK sIOINIT IOR R UREAD EAD XREAD !EAD UWRITE RITE SYSCOM XWRITE $RITE READYQ DEBPROC SEGTOP UBUSY USY MEMTOP STEPFLG INTERP INTERP STARTNP UIOERR BOOT OT ENABLE a/)PNOCHK IORSLT XEQNUM DEBSEG BACK1 SYEOF GBLVEC SIGVEC CURPROC SYSUNIT  aRSP  RSP  IV.0 [a.3]= ` ^>2>9>9!>͙!" "}">N>N!" >N!>9>6>!" """"͙#^#V#~#" 2* ͣ*s#r*s#r!" >!͟!ͣ͟*"*!!!O:O:******* _nP]2**:qz`>@]#2>`2>z2y O:c:G+ :cq:`w#zW`q#:̜ |ͨ]3:—!!>+ͨzN#y! =û:yèè>@y : >@:G:2:/G:2:G:#2:/G:2* _nP&2:BRZbjrz &+18CJTX\`fis{ %*/36:@FMRY\_fjox{ !%)-16:>BFJNSW]e.QxUbm zN#y! =û:yèè>@y : >@:G:2:/G:2:G:#2:/G:2* _nP&2:BRZbjrz &+18CJTX\`fis{UCLEAR SYSRD  XCLEAR USTATUS UWAIT XSTATUS ABORT zIOC BACK  SYALPHA UALPHA BIOSVC mOSVC TIM dSETBRK TBRK IOINIT IOR UREAD 2RSP RSP XREAD UWRITE +SYSCOM SCOM XWRITE UBUSY MEMTOP MTOP UIOERR OERR IORSLT xBACK1 Q.SYEOF bEOF SYSUNIT SUNIT  TERTBOOT  TERTBOOT IV.0 [a.3]  SYSTEM.PASCALCan't find SYSTEM.PASCAL  H_?"}o|!z"ƒ!"! s#r# ‹*!' ͠!""">22!">2>2!">2!G͠!> ͫ!"!@ͫ**!!!*##~& &>(>2N7#N+ "U#Gk*" >!>ù**!!*^#V:‹zS_"*~2³>*^#Vs+r##=§* ^#V:zS_"*##~#+3""!**+V+^*^#V!9*!9*s#r+++"*## *^#V"##65,5 ^#V#N#Fo>g)9*s#r*)!* !!9""* "^#V"^#V#N#Fo>g)9"*s#r**!)* ~#*{++z*++=#V#^r+s*^#V+"* ~2##^#V*"*+V+^*##"*"DMq,p#,#,#,#",#q,p-*"!""*"!">2~# y s#r# y®Oe49>L]djm{~S &+14)  ),CVpw  15>HKVa !>GJRZ_bipsvb {++z*++=#V#^r+s*^#V+"* ~2##^#V*"*+V+^*##"*"DMq,p#,#,#,#",#q,p-*"!""*"!">2~# y s#r# y®OeMSCINFO CINFO GDIRP IRP BASED0 K wpVMPD0 > SYSRD )CURTASK RTASK ROOTASK ASK DEBOFS BOFS WORD1 1 MP  NP  BUGSTA GSTA SIB aSEXFLG RCIPCSAV pCSAV LTSTRNG STRNG BIOSTB OSTB EREC EC CONBASE _NBASE EVEC EC SETBACK TBACK BASE  v,SEGBOT  iZJ>! IOINIT INIT TERTBOOT TERTBOOTSYSCOM SCOM XWRITE RITE READYQ ADYQ DEBPROC BPROC SEGTOP bGOP MEMTOP HOP STEPFLG EPFLG STARTNP s5BOOT cNOCHK CHK IORSLT RSLT XEQNUM QNUM DEBSEG BSEG BACK1 CK1 GBLVEC V1 SIGVEC  GVEC CURPROC RPROC SYSUNIT   `INTSBIOS  INTSBIOS IV.0 [a.3]? _ ]g``` ` ```````!`$`'`*`> ɯ* %*/49>CHMRW\af} CLKREAD WSBIOSVC }IOSVC USRWRIT NDSKREAD 5CONREAD SETTRAK &REMREAD WSETDISK !EVENT ENT QUIET \STOPDSK IPRNREAD WINTSBIOS INTSBIOSSETSECT +STRTDSK DUSRREAD NSYSHALT DSKINIT ?CONINIT  REMINIT ZSETBUFR 0DSKCHNG KCHNG POLLUNITLLUNITCONSTAT REMSTAT UPRNINIT ZPRNSTAT UUSRINIT UENABLE ^SYSINIT USRSTAT RDSKWRIT :CONWRIT REMWRIT WPRNWRIT W INTXSBIO  INTXSBIO IV.0 [a.3] ååå å ååååååå!å$å'å*å-å0å3å6å9å<å?åBåEåHåKåNåQåTÝWÝͥ* %*/49>CHMRW\afkpuz  CLKREAD SBIOSVC IOSVC INTXSBIO INTXSBIOUSRWRIT DSKREAD 5CONREAD SETTRAK &REMREAD lSETDISK !EVENT ENT QUIET STOPDSK IPRNREAD XSETSECT +STRTDSK DUSRREAD SYSHALT DSKINIT ?CONINIT  REMINIT bSETBUFR 0DSKCHNG KCHNG POLLUNITLLUNITCONSTAT REMSTAT gPRNINIT NPRNSTAT SUSRINIT vENABLE SYSINIT USRSTAT {DSKWRIT :CONWRIT REMWRIT qPRNWRIT ] @ kCPMINTER  CPMINTER IV.0 [a.3]j h~~O ~ >  jy2j~~~!~:>$v':j*#(07?HMW[`elsx} CLKREAD <SBIOSVC IOSVC USRWRIT 5DSKREAD mCONREAD  SETTRAK MREMREAD +SETDISK ?QUIET STOPDSK PRNREAD SETSECT TSTRTDSK USRREAD 5SYSHALT DSKINIT `CONINIT REMINIT SETBUFR [CONSTAT REMSTAT 'PRNINIT PRNSTAT 'USRINIT <ENABLE SYSINIT USRSTAT 9DSKWRIT rCONWRIT REMWRIT 0PRNWRIT "CPMINTER CPMINTER kCPMINTER  CPMINTER IV.0 [a.3]j h~~O ~ >  jy2j~~~!~:>$v':j*#(07?HMW[`elsx} A CLKREAD <SBIOSVC IOSVC USRWRIT 5DSKREAD mCONREAD  SETTRAK MREMREAD +SETDISK ?QUIET STOPDSK PRNREAD SETSECT TSTRTDSK USRREAD 5SYSHALT DSKINIT `CONINIT REMINIT SETBUFR [CONSTAT REMSTAT 'PRNINIT PRNSTAT 'USRINIT <ENABLE SYSINIT USRSTAT 9DSKWRIT rCONWRIT REMWRIT 0PRNWRIT "CPMINTER CPMINTER kCPMINTER  CPMINTER IV.0 [a.3]j h~~O ~ >  jy2j~~~!~:>$v':j*#(07?HMW[`elsx} CLKREAD <SBIOSVC IOSVC USRWRIT 5DSKREAD mCONREAD  SETTRAK MREMREAD +SETDISK ?QUIET STOPDSK PRNREAD SETSECT TSTRTDSK USRREAD 5SYSHALT DSKINIT `CONINIT REMINIT SETBUFR [CONSTAT REMSTAT 'PRNINIT PRNSTAT 'USRINIT <ENABLE SYSINIT USRSTAT 9DSKWRIT rCONWRIT REMWRIT 0PRNWRIT "CPMINTER CPMINTER DBIOS  B BIOS  IV.0 [a.3]C AÎlæÜáÍð225@HKNQTM>ã>͕{ʲ*i"y22\*;*"~*|ʁҐ>2*i}o|g"">2\:*s"~ *~MD:uO:vO:/2G!5ʂ‹:\_**i"ͱ:**DM*s xʁ~#t*> Â>Â2""""""""*!*i*g*eÇs#r#`ie ~# x*iMD!{2|:gGOW_'6<6w!k*q:P!:|GK:gOz"y!e:w{2u:y<ì:m?о2u!:o=È"w*y6^*w:gO,}2v7:y eh*c[!>Ç!$'*-0369<?BEHWZ]`cfilo   #&.5<AGNQU\_bfimqtwz"+36:?CGMQV[bhkqwz}"/5@HPXehlosx{%+14:BGPS[_bemx|KNQT+29DJX+2 !(.7>MVi' !$'*-0369<?BEHWZ]`cfilo   #&.5<AGNQU\_bfimqtwz"+36:?CGMQV[bhkqwz}"/5@HPXehlosx{CLKREAD iKREAD SBIOSVC _USRWRIT NRWRIT SECTSIZ iCONFLG [DSKREAD JKREAD CONREAD 2EAD SETTRAK 2TTRAK REMREAD MREAD SETDISK K INTRPVC ]STOPDSK DSK PRNREAD (NREAD SAVEHL IUNIT GTBLKDV SCBKNUM |LOWRAM aSETSECT 9TSECT STRTDSK DSK BIOSTB ]USRREAD KRREAD INTLV kTRAKNUM eBIOSVC SYSHALT MSHALT IBLK SECTNUM gDSKINIT XNIT ILEN CONINIT NINIT REMINIT MINIT SETBUFR +TBUFR STATPRM IBUF DSKCHNG POLLUNIT IREQ CONSTAT +TAT REMSTAT  T PRNINIT NINIT BIOS BIOS SKEW oC FRSTTRK mPRNSTAT >7!T USRINIT QRINIT CHKCHAR "SYSINIT VSINIT IASY USRSTAT TRSTAT DSKWRIT DKWRIT CONWRIT NWRIT REMWRIT MWRIT HIRAM cPRNWRIT .NWRIT  BIOS  BIOS  IV.0 [a.3] GS+kßéÜïHKNQTM=>>{*i"y22\**"~*|>2*i}o|g"L">2\:L*s"~*~MD:uO:vO:svʋ!5L:\£**i" :**DM*s x~#ø*> >2""""""""*!#*i#*g#*e#s#r#`ie ~# x2*iMD!{2|:gGOW_XkzYe~+ʧ#o&N<»w#~6!zy*YT   O ~@)&*W:[&:[2[7"W"Yկ2[!^Pɯ2[!͢:[i:[Sͅʀ!oq#6w"}y ͔ͅxû͔ͅx> e*ͅ-*c# !##>!$'*-0369<?BEHWZ]`cfilo "'*-27<@JMQVY^adgjry %(+.147;GTW_cfowz~ #&*/36?GW^bfux$'+.27:AHLQTWZcfinqvy~  $'*2=AEJKNQTov}].& Z]`cfilo "'*-27<@JMQVY^adgjry CLKREAD .KREAD SBIOSVC _USRWRIT NRWRIT SECTSIZ iCONFLG [DSKREAD KREAD CONREAD NREAD SETTRAK vTTRAK REMREAD MREAD SETDISK D K INTRPVC ]QINIT PSTOPDSK DSK CHARSINQoPRNREAD NREAD SAVEHL #IUNIT GTBLKDV SCBKNUM |LOWRAM aSETSECT }TSECT STRTDSK DSK BIOSTB ]USRREAD KRREAD INTLV kICINQIB ^TRAKNUM eBIOSVC SYSHALT SHALT IBLK SECTNUM gDSKINIT NIT ILEN CONINIT ]NINIT REMINIT MINIT SETBUFR oTBUFR STATPRM IBUF DSKCHNG *POLLUNITQSTORE zIREQ CONSTAT NSTAT REMSTAT T PRNINIT NINIT QLOAD BIOS BIOS SKEW oFRSTTRK mPRNSTAT T USRINIT QRINIT CHKCHAR SYSINIT SINIT IASY USRSTAT TRSTAT DSKWRIT KWRIT CONWRIT RIT QSETUP eREMWRIT MWRIT HIRAM cCINQIB PRNWRIT NWRIT  BIOS  BIOS  IV.0 [a.3] æòÊ6@3F$)8bbepHKNQTM==>+>{:*i"y22\**"~*| >2*i}o|g"Ґ">2\:*s"~ *~MD:uO:vO:ʷú!5 Ð:\**i"9N: **DM*s x ~#*> > 2""""""""*!g*ig*gg*egs#r#`ie ~# xv*iMD!b{2|:gGOW_ڜ;<×;w!k—*q:!:|G:gObz"y!e:{2u:y<4:m?о2u!:o="w*y;^*w:gOb,}2v7:yͰ~+ #o&N<w#~6'@'!;;!y*YT a v ~O ~@ˆrÅ*W:[Å:[2[7"W"Yկ2[!͔ɯ2[! :[:[²!ͺq#6 "}y !͔_! .!ͺ&_ ZR> enʘ*cgʋ!gg>!$'*-0369<?BEHWZ]`cfiloAFLORV`cE fknqv{ !*058=AEINTX\bilorux{ "(,036:@DJOTX\_cgjnswz 069<?FJPS^fnv&),/58;>FKU[adjrwKNQT036:Y\&_,3BM"2BNQX^gn}& LORV`cCLKREAD KREAD SBIOSVC _RINQIB USRWRIT NRWRIT SECTSIZ iCONFLG [DSKREAD KREAD CONREAD 3NREAD SETTRAK TTRAK REMREAD MMREAD SETDISK _Y0K INTRPVC ]QINIT STOPDSK &:DSK CHARSINQPRNREAD XNREAD SAVEHL gIUNIT GTBLKDV SCBKNUM |LOWRAM aSETSECT TSECT STRTDSK \3DSK BIOSTB ]USRREAD KRREAD INTLV kICINQIB TRAKNUM eBIOSVC SYSHALT }SHALT IBLK SECTNUM gDSKINIT 6NIT ILEN CONINIT NINIT REMINIT MINIT SETBUFR TBUFR IRINQIB STATPRM IBUF DSKCHNG nPOLLUNIT QSTORE IREQ CONSTAT ,NSTAT REMSTAT B"BT PRNINIT NNINIT QLOAD BIOS BIOS SKEW oFRSTTRK mPRNSTAT ngQT USRINIT QRINIT CHKCHAR @SYSINIT SINIT IASY USRSTAT TRSTAT DSKWRIT KWRIT CONWRIT RIT QSETUP REMWRIT 2MWRIT HIRAM cCINQIB PRNWRIT ^NWRIT  ;BIOS  BIOS  IV.0 [a.3]: 8)ÞëÒñhmY|fsZyHKNQTM===>o>a{~*i"y22\**"~*|M\>2*i}o|g"">2\:*s"~X*~MD:uO:vO:!5NW:\+**i"}Ò:M**DM*s xM~#@*> N>N2""""""""*!ͫ*iͫ*gͫ*eͫSs#r#`ie ~# xº*iMD!ͦ{2|:gGOW_F <w!k*q:!:|G:gOͦz"y!e:C{2u:y~+X=#o&N!q#6S5X"}y !!8XCʍ!6Å!!8XC!6ý> eͲC*c!ͫͫS>S!$'*-0369<?BEHWZ]`cfilo/ !(+.259=@CFKNRX^enty| "'.47=CFINTW[^flptwz~ %+7>SX\h{ !$',/47<DGJMV[^cux{ KNQTtwz~$jPw~?~&  !(+.259=@CFKNRX^enty| "'.47=CFINTW[^flptwz~ %+7>SX\h{ !$',/47<DGJMV[^cux{CLKREAD KREAD SBIOSVC _PINQIB RINQIB USRWRIT NRWRIT SECTSIZ iCONFLG [DSKREAD KREAD CONREAD ~NREAD SETTRAK TTRAK REMREAD MREAD SETDISK tK INTRPVC ]QINIT STOPDSK j~DSK CHARSINQPRNREAD NREAD SAVEHL IUNIT GTBLKDV aSCBKNUM |LOWRAM aSETSECT TSECT STRTDSK wDSK BIOSTB ]USRREAD KRREAD INTLV kICINQIB TRAKNUM eBIOSVC SYSHALT SHALT IBLK SECTNUM gDSKINIT $zNIT ILEN CONINIT NINIT REMINIT ~MINIT IPINQIB SETBUFR TBUFR IRINQIB STATPRM CIBUF DSKCHNG POLLUNITXQSTORE IREQ CONSTAT wNSTAT REMSTAT T PRNINIT NINIT QLOAD 8BIOS BIOS SKEW oFRSTTRK mPRNSTAT T USRINIT QRINIT CHKCHAR SYSINIT SINIT IASY USRSTAT TRSTAT DSKWRIT KWRIT CONWRIT ?PRIT QSETUP REMWRIT MWRIT HIRAM cCINQIB PRNWRIT NWRIT  G s ss !ss/!ȭe1"s 1ss s h 1/ p hψ/p<s ss sss ss sih!09 b!0ʊ b!A 09 b 0ʊ b A bkNs !ss  ss bsss s(s ss )xsskji"!m%(x%)x(xon&'&n)%(#d#"!#on&'hdd &nddds s9 s #ss %sss s #s snmlkji/ph : i n.s s]P9s siCs ]s Ks cPs s cpRct c22cPt2UTt2Pc-r11Xs cs s1n^s ]s sfs sp|rrhsr1UIs s s02s sss s Put CP/M disk into drive  and type >&Error reading CBIOS at logical sector Put bootstrap disk into drive  and type >&Error writing CBIOS to logical sector Entering get_nextPut CP/M disk into drive  and type >Leaving get_nexttEntering out_data l_sector= out_index= data==Put bootstrap disk into drive  and type > l_sector= out_index=Leaving out_dataaEntering convert_ASCIIIb1= b2== convert_ASCII ==Leaving convert_ASCIIEntering process_a_line old_address==Checksum errorr data_bytes= new_address=Leaving process_a_lineeEntering get_HEX_codeLeaving get_HEX_codeeEntering write_codeEnter name of .HEX file: .HEXX.HEXX Can't find Error writing Leaving write_codeeCP/M Boostrap Generator[A1]] bootstrapprimary bootstrapCBIOS from a .HEX file (Y/N) ? CBIOSGeneration complete$Put in system disk and type >qF| STRINGOPPASCALIOCPMUNIT   "CONST $bytes_per_sector = 128; $sectors_per_track = 26; $tracks_per_disk = 77; $map_size = 16; {Number of bytes in disk allocation map} $buffer_size = 1024; {2 blocks + 1 (Must be multiple of 1024)} $buffer_blocks = 2; {Number of blocks in buffer, Must be even} "TYPE $byte = 0..255; $buffer_range = 0..buffer_size; $map_range = 1..map_size; H $map_array = PACKED ARRAY [map_range] OF byte; $map_rec_p = ^map_rec; $map_rec = RECORD 0extent: byte; 0map: map_array; 0next_rec: map_rec_p; .END; $finder_rec = RECORD 3records: INTEGER; 3disk_map: map_rec_p; 1END; $a_buffer = PACKED ARRAY [buffer_range] OF byte; " "VAR $dir_read: BOOLEAN; { Directory read into core Boolean } $CPM_drive: INTEGER; { Drive from which directory was read } " "PROCEDURE initialize(title, version: STRING); "{ (Initialize the Unit and write out a header containing the 'title' $and 'version' of the program. Must be called before any routines within $this Unit are called. "} "FUNCTION get_drive(title: STRING): INTEGER; "{ (This function returns the drive number for the 'title' unit $desired. The drive number 0 is used as an abort. "} "FUNCTION get_char: CHAR; "{ (This function returns the character reads from the CONSOLE. $It will always return upper case. "} "FUNCTION read_directory: BOOLEAN; "{ (Finds out which drive to read the directory off and reads the $CP/M directory on the given drive. (It is known to be the first DIR_SCTR_SIZE CP/M logical sectors $on the DIR_TRK track. (Returns the directory in the globals variables: directory $and dir_structure. (Returns TRUE is the read is successful, FALSE otherwise. (Sets global variable 'drive' and 'dir_read'. "} "FUNCTION find_a_file(the_name: STRING; VAR the_file: finder_rec): BOOLEAN; "{ *Find the specific file in the global directory and return $its attributes in 'the_file'. *Returns FALSE if search is unsuccessful and 'the_file' record $is junk, otherwise TRUE. "} "FUNCTION list_directory(force: BOOLEAN): BOOLEAN; "{ (This routine will list a CP/M directory. $'force' is used to display deleted entries. (Returns TRUE if directory read was good, FALSE otherwise. "} "FUNCTION read_a_file(the_file: finder_rec; VAR buffer: a_buffer; 8VAR i,j,k: INTEGER): BOOLEAN; "{ &This routine will read up at most 8 sectors from 'the_file', $starting with the 'i'-th extent, the 'j'-the map and the 'k'-th $sector and put them into the 'buffer'. &This routine will return TRUE if a valid read was done or FALSE $is not. &One would normally initialize i,j and k to 0 and repeatly call $this routine until the entire file was read. "}  IMPLEMENTATION  CPMUNIT 8US+VPaTPr r`spĆĆ ĆĆĆĆ ĆĆ Ć Ć  Ć Ć ĆĆĆĆĆĆĆ ĆĆĆĆ ĆĆĚr+r  r ar rrr rW+b,Pr r"r br +r `rr 1 . p"pi!"7r  r;r r! Ԗ .Br r-`r I  K aAi i$iSr #rr]r !xrrdr !r kr !r rrr !rzr !rrr jh "! r hr !xjr rl1Ւijh " 1! @  ppp h@jh "V k#! ! #p!  #p#!  #! ! #p hlr r,@r rr Sr r Srr-SSSji!"#S!S!S!aA!i؈SjbSPtbRtbP pS.Spir !rr!!R-S!p pS!hr  rr  S! pr r, {S}Pr rp i ;r rr br r fr r!@*!x\!ObOfO *5|P2r br fr r !rrOx !ćPOćP sPyOćPyOPy !@Qh Qհ RbRfRRx(Ն r  rr Ą sPPxRɢ+R+RPy ,),x+x ),, -P+Ċ- ++ , hI!ir r*&r r~O0r rbpJ@Li!L!! !i@Li!L!MMxPb!xMxKb!ĄCMGMMɤIJJ!@Nh NJ OOxK塇OxKOCOGb ćIOɢI hK (u uCr Gr IrK =r Ar Jr!irEr rPQr ri1]r 1rri pr rg f,|r r+p'G'h x*x  h x*x)x(x*x)x(x& m%)xk#i#j(x*x)x(x&Ղr *xrr )xrr (xrrr !rr "rrr "! rr1+(x"! ppp"j"j!i!Mp((xċ'(x())x)x)**xr r n Entering initialize Leaving initializeeEntering get_driveeWhat unit is the  disk (0,4,5,9..12) ? Drive not on-lineeLeaving get_driveFile Control Block Entry_type: File_name: file_type:  File_extent:  record_count:  Map: Entering read_directoryCP/MMLeaving read_directoryyEntering test_the_namee The_name: Length: ... Dot_loc: Ext_size: Leaving test_the_nameEntering find_a_fileeEntering find_a_file WHILE loopName:  Ext: Found the file:  as FCB Adding a map - FCB Leaving find_a_file WHILE looppLeaving find_a_fileEntering write_directoryyK) K Leaving write_directoryEntering list_directory%Error in reading directory from unit Leaving list_directoryyEntering read_a_fileei:  j:  k: track: sector: PASCAL absolute sector: Leaving read_a_fileo qFy 6 EXTRAIO STRINGOPHEAPOPS PASCALIO J K L