IMD 1.16: 7/09/2007 11:16:46 PASCAL ADAP ORIENTER STARTUP: 88SYS 2-6-1  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 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        ^,V_^,Vͯ ^,Vͯ MD{= ) 2J*ͯ i`":x:xBKx~#~# e)BKx x:˜ }– +Ù ###:« {©   _W _ *^,V= ɯO>Gi`"E#)9~"## GOx {w#zw#~# ~_"*^,V&o)>o>g)9|¶}!9|}i`" 2ͯ * _>͋ڸ:: +^-V y Gw#w# * " Gx6 {/w#z/w#' * ] xV {w#zw#I *O!9Axx w#w#j *H+~= +V-^= ͯ **}o|gi`" o&>͋ڸ})+V-^=H lo&)9^,Vs,r#=c^{w+~} i`"E#)9N,#Y"!9xڰ AOy/< G{  *͏ x  , # 믑Oʹ Ye p T  \Dm&%t G 0 $ i tp  -  " 9  _ i`"K} ) o&E¡oi`"CK^,VxGjS]zW{_!> ~_,~Wi`"y!> N#Fo{_zW}; z ,&~d=  M_ < js;&S Y HHo`ALbS\))o{_zWyOxG-{_zWy/w,x/w?? {^,Vͯ `^,V`$ÌBJ:> } Copyright (c) 1979, 1980 by the Regents of the University os,r`ͽ z!è*^,Vz!*s,r *!9s,r#*s,r#,#*yx*sf California>2&>>~ڬ *6*͇*.Ì.Ì.Ì.Ì.Ìi`"Z*MD.Ì. Ì. Ì. Ì*MD. Ì.,r#:w*~2+V-^"^,V#""^,V#"^,V"^,V"^,V-" *~2##^#V*"+F-N* MD+-+V-^" Ì.Ì.Ì.Ó"*".&"*"!͌#͎ͩ#*MDo& o& %^,V!<~# c!|2>2!""+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  !P ?*MDo&) y ɯ w w x? ( } {/oz/g} {/_z/W7yoxgɯO>Gze R e +} {/_z/W}o|g#ɯo>g} o>g`i o& %^,V o& o g!_*^,VB_*2_*s,rͯ *ͯ *^,Vͯ *s,r<)ҁ MD!xGyO){_zWҢ ã #‹ }· | !} |ʷ !z }| ÷ ÷ |ڷ }ڷ Ƣ_*^,Vͯ *ͯ *^,Vͯ *s,rͽ ͯ TͿ ͽͽ^,Vͽs,rͯ s,r +  !+  !+  ">22 C *S :2S # _ *o :2o #ͯ i`"BK* ^,V"^,V#""^,V#"^,V"^,V-{=*"^,V-" ~2##^#V*">{*"*"͇^,V!^,VSET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE ->w,4-*!9r-s+V-^**{_zWs,r**^,V,#4,4i`" ʧ ~ *6i`"oti`" ¥ _! WITH !WØ""""*> #w±*^#V**` w_` A[0:#w&|ڒ£}ң^#V{=ʣi`">ʧ ~ *6i`" ʧͽ " ~ *6i`"""":~ *7{_zW*s#r*~m͋^#Vʪæ=¥x! G{_#zWx:w,w# Y]#)9N,F#! ڴyoxgx {# ŒŒ{+ ™™y_",#^,V""",#^,Vz-+~-===*MD!*3yGMҴy_!~h&###)yʨ,9ʴ÷ @ OxG}|}|_*^,V^,V:=3+V-^_>W"+F-Ny+V-^*:w#:w ; "% o g MDͯ i`"*N,F#^,V#:>xAOzS_|O{zTx]}o|g)N,F:uxAO* MD"()++++AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELSE END 2/<_*^,V*^,V#>:ʳ>(͋ø>(͋>2:o&:2**yoxg*KB*!>(͋*}=͇i`" EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LABi`"!" ~ڸ7i`"!" ~ڸ*!9""i`"!"Ϳ ji`"!"ͽ " ~ڸ*6*_EL MOD 'NOT &OF OR (PACKED +PROCEDURPROCESS 8PROGRAM !RECORD -REPEAT  *{"*À!!{!cO:k'O:jWDD*r*lW*r*l*n*p*v_nͺ2x*n*l:jz>ͪ> ɯ*!!è 5 SYSTEM.PASCALCan't find SYSTEM.PASCAL  H_?#͍ʜ>`Ҝ>zڜy O:r:±͕w:q:kw#zq#:kw9̀͝:x!!s"}o|!#$"#$!m'"! s#r# +$*!# @'!""">22!">2>2!">2!#>W+zN#p3̀y! O=%:rGyGxO>ͪy m:rm >ͪ:xG:yp2y@'!K'!"!@K'**!!!͊*##~$ $>$>2N$#N+ "#$#$ %*" :x/G:y2y:xG:z͍2z:x/G:z2z*v_nͺ&A"P"."h"""""^cOr Ü"æ"Ù"ì"~#~#Å#Â#$!#>Y'**!!*^#V:+%zS_"͊*~2S%>*^#Vs+r##=G%* ^#V:g%zS_"*##~#+%""""#  MQ#t#o#y#>e>W {t*+"Gy2DQ#t#2"!**+V+^*^#V!9*!9*s#r+++"*## s%*^#V"##65,5 ^#V#N#F*I *E"@*G|C R >2B*+}o|g"G"G>2:C*5"@!*@MD`#:7OV#:8O[#:Cj#e# !B5D o>g)9*s#r*)͊!*!!9""*"^#V"^#V#N#Fo>g)9"*s#r**!)͊o#M :! *E*+"Es!È:CC *E*GDM*5 xC ~#6 y#*M> D >D 2C"M"I"G"E"K"M"E"KQ* ~&*ͼ&ͼ&{++ͼ&zʳ&*ͼ&++ͼ&=š&&V#^r+s*^#V+"* ~2##^#V*"*+V+^*##"*"DM#*E!͡ *+͡ *)͡ *'͡ I s#r#`i' ~# x° *+MD!͜!{2>:)GOW_  < w!- *3:Kq,p#,#,#,#",#q,p-*"!""*"!">2Z~# y@'s#r# yN'OJj'bN0*!!:>G !:)O͜!z";!':K9!{27:;3-" #:+V-^MD-s,r-y=!} |^,V6-6**|J}J("BK^#VzY{]L+PYN#Fq#p*9"9:73>2Àc>ã>ã!>!"t"r}"l>¸>ø!t"!"M}y Ê#ͅ#"Ç#!Ç#͂""ͅ#͑"ͅ#u"ø"Ê#ͅ#"Ç#!Ç#͂""ͅ#͑"ͅ#u""> 8#'ͨ 0#"t>ø!>ã>à>!"t"r"p"n"l#^#V#~#"v2*t *}s#r*s#r!"v>D! !  ͂"*#*%͡ ͇##!͡ ͡ I >I #Ð#Ð#Ð# Ð# Ð#Ð#Ð#Ð#Ð#Ð#Ð#!Ð#$Ð#'Ð#*Ð# D4"|xokb_ZWKHEB740# `^\ZXVTRPNLJHFDB@><:86420.,*(&$"   }zwtqnkhc`]TND@961-$"{vohb~|zxvtrpnljhfdb_[PLHC@;6,)  ~wpke`]ZWTOL`^\ZXVTRPNLJHFDB@><:86420.,*(&$"  ~a^84G30-  }yvspkhe_ZWQKFC<41.)#  }yuqkd_\SMHEB?941,&  |vpld[WRMJB62%"tb_UI3.zupmifc`XTPLEB>:72-($  {vmhd[PH@<.%~SLE<7.+(%  y v h [ W T G B > ; 7 4 %      #""""""""""""""o"d"F"="!! F |yZVSP-#(#$# ## # #  | v p l h e b \ X P L I F @ < 5 2 - ) & #       ##"""""""""""""""""""{"r"l"i"a"\"Y"T"Q"L"I"C":"5"1"*"#" """"" ""!!!!!!!!!!!!!!!!!!! { m U P L I / % !       { v n g c ] W Q E : . "      |!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  | n e ` X S M D = 5 , $    |ukc<' A : 4 . * ' "         vrolfa xnjXROB>5/*vh`]ZUQKGC>91'$ ####|#w#r#m#h#c#^#Y#T#O#J#E#@#;#6#1#g'>';'8'3'0'-'*'''$'!'''' '&&&&&&&&&&&&&&&s&o&h&xurifc]ZWOGB:2*#|yvpli^[XPB=:3-)&#c&K&@&=&:&3&%&&& &%%%%%%%%%%%}%o%l%i%^%T%E%<%4%1%-%"%%% %$$$$$$$$$$$z$t$o$i$d$_$Y$V$Q$N$K$?$8$5$'$$$$ @=:741.+(%"$k'V'H'&&&&&&&&&%z%b%Q%@%&% %%%$$$$$$$$$$$w$E$<$2$!$$$$#tka^[OKH?<70*% UNH~|zxvtrpnljhfdb MM& `M%z.& `*%z.!!& '`'zĖi +0 ((n((xm`( V }{zo zo' ))|! "i!!|!yi! &|(&{#! l&yi$ɖ =E E6 E  E s6 Ezxrx#L!)N@ 7 N$! *z*z|"d**z*z|ąN d*ր))|(%(&b 'ނ rppp"EԞ `b(#l$m n%&y%&z&&z%$ %}ĆJ'('߆Jޖ @ QO5O(SO "xh`i```!" Ė -,x,0,xi!u,!0,!xh e,! 0,! x ,0,x ok)>k #'ko,! '#0'(,! '#x' 'o*) ,0,xk,#0,#xl$%#k,#0,#xm% ,%0,%0$l,s.2469:V>@ABCEKERNEL PRINTERRINITIALIGETCMD PASCALIOEXTRAIO HEAPOPS EXTRAHEA0,xj"8,"x0,"0,"0"j,"x k#+,"0"j#kȖ)`*Pp"``p` `p+a#`!" lSTRINGOPSCREENOPSEGSCINICONCURREPERMHEAPOSUTIL FILEOPS USERPROG1c%b$`#"cb i ! h nLb$a#`"! mfb$a#`"! m}b$a#`"! m  XAKERNEL KERNEL KERNEL (   SCREENOP c j) c-j) 'h ) i( !! c"!0"j) h cp )`*P``p+.!p"( KERNEL TCCopyright (C) 1981 by SofTech Microsystems Inc., and the UC Regents  `p`0,⼃` jjaf" # a ) % 1h==%`pKERNEL #8ĭĖk2jl"n& o&|;$& l#ihm!%#!z&z!z&z! & -!pc.//'Ċ2.Ɩ *+o' p m)`p%'`m%4. / 'p4 h!i%-'yj"2ұ$(x)N0 )p*p#i#k!n& o2!'y2&&{'y 'x'x'y''((x& &)(xԻ ((x2(x(% ja"#zh x! p#za3a/p !!# aW u;s^;P^^7 F ,{+(k+Mmc,l$%$e,,$%jb2ih!. ! .xx.xf. !h/.xp`psNoFm^DP^^pa! 4N6&0c6%#%%{Ć<Ę69j"9 ""x. p.. .y ..zĊ..z/yi!2ҕ ' . .x/z. p.//xh 2 +Mb*!!j+p'@0xl`0m%n%&&)&(&'V%%V 0$ċ8aą;"0 m%%x}{zn&&|'s&&|Ċ7{!2! 2 ą2 !ą2 ! !27iFj"{k#l'm%zn!!& (`!!!& %z.EM"& t0z@'pvM N ' '! 4166 +p / e% hb"{y)xk"i!n&&| ՟```x ``x```x ``x`p`+qqyqxY`qy_o瀐Wy^^mdn`p``^q]]qBr\\rEi\`݇W```hlcc$&mi!%c!!i譅cchcn_xć___dn`p``_\\i">[WxyxbmVV[WxybccdcׁY pcׁli!$cׁmc94!x4!xz eĈ!4!xċ%`!pcrZZrՄsVVsiaZׁ ViI[WxymZVxĄZVxըcĈ#n&&&&&& %!y& %!xY& e%`!& %瀐!xĊ& && &%瀀!ZVx{ćVVZZr]]WW[[5T33Ls 0ĆFj"{k"#"{""{#bĈ"n&#&&Ĉc!"!icׁh cխc p `!!!!`####x`a "{! !i!iM"z!ĖL 3h i! z&i! |h! *p  z229Fj5O'7XX ;EEw+E Ttwaiting:: Type to contia%xMjh "?! k# # # #l $ $ $ $ $ $ hO s4xz dph UdUnuee Put volume in unit Segment not found: Exec err--REBOOTT*STACK OVERFLOW** Exec err # po= o==ZpU yU y U U XXUX  XX݇UX xYh ećedćeU  bn7fx5*** CONCURREEXTRAHEA ᥁UTnWWn0aׁ WgWxWWcn[[n`a[ׁopWWp:o EXTRAIO PASCALIO HEAPOPS STRINGOP REALOPS COMMANDIDEBUGGERFILEOPS SCREENOP Wo瀀WɥUo`Wo Wfo瀐Wxćfgĭh oDUSERPROG."xh`i```!" ĖS -,x,,xi!u,!,!xh e,! ,! x ,,xWzo瀐WzqVVqVćVVᇅo瀐WzVVxp4xć ok)> #'ko,! '#'(,! '#x' 'o*) ,,xk,#,#xl$%#k,#,#xm% ,%,xx{Ċ6fgqVVq4VćVVᅁ4cqZZqaZׁrsVVsV%$l,,xj"8,"x0,",""j,"x k#+,""j#kȖ`aĈ! !l$m%WZ[hr`V#r瀐Va[ׁ WhhzZVxSr瀀VSćSćS'%%%%&% $ b(!kj%(b !xh!````!x! Ė``xտfSzr VSzr瀀VćSz ećSS{ćVV(ZZ[WxTĄ[WxToW  " * <@ `-TIہI1r ^[ʀTREALOPS +)+` *` +O` ```s 0g1Pdjigh 3g-n&gʊ*V*T!*R*P!*J*H!*F*D**-**x***j*h-+kk# g#Zڡdd g#0#kg#.# 2#kg#Z"jdd g#0# g#Z&ddg#eg#**-**x***j*h-0*""͌" "͂* *0**E# =#kg#-n&g#+#k# g#Zڡ! g#0i#k&!i!"j""idd!p dd"!p "idd!p dd!0*""͌0" "* ***!-*b*`!'}2"$"""!p 3d2698߇8{8s8x 8shjkl 8xȄ m8  h"`at" "j# #k0mfZ*B*@"":"!$"":"GM>P͊:"*:*"":"ʂ":ff ff #ff "ff%e%E" jf%.#"͊Ë>:"*{*B*@2"*^*\:"=«""0͌" "* ***! kf%fl$8s$8{8ć8 Zڡ  塠 ȇ7P9 xĖ8)""-'""$*"͛:3""0{3""*X"*Z" !"")-$*"KB  (-Ȋ( he cp p ec heec  heecep )) eep $*** *!"" *"-p : *f*d**-* *3 **-* *!:*7k2l$ m#Mx$ $M$ x$x$ $ p$$$${%2%2Ė Jh   00) ee) p ec heecoj"'ei("!0ee!c"j) e(((.j L("E"j ("- p"4ą4xz7aĆQxSWFa ;VN=4U` yyє "j h c(" d0"j dh (" 0"j(" 0("Ȋ^ '(( p( .()  p() Ȋ2(( p(0(.(Too many dicts in SYSTEMM SYSTEM.PASCALKERNEL USERPROGKERNEL *** GOTOXY missing unit GOTOXY`*6B`l 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 (@((  * *!|$ }' 9>2&9 3>2&}ց2$.͐  *$&$*n*l:&g *v*t*$&$*r*p:&g(*/(e/(y /(L /(C /(PRINTERR` yh {zl|j$zxxx"xie(ee(^e(Te"(Je.(@e6 /( /Q|*  j g \ 2 c ` & w W Q ; 4 (6e?(,eG("eR(e`(eh(eo(ey(e(e(e(xe(oe(fe' $   ]V tfJG630:S n c _ V S D > 7 / (]e(Te(Ke(Be(9e(0e('e(e(e( e(ցe( Ke(Be,(, % "    | x t o k f \ X T P M H D A = : 6 /     9e7(0e?('eG(eS(eY( eh(ցop ep p $pp "p p !p Unknown run-tim z q k h e b _ [ L H 7 1 - * !  {vsnjYQNKHE@;83/"e errorrValue range errorNo proc in seg-tableeExit from uncalled procStack overflowwInteger overflowwDivide by zerooNIL p {wplia]XSO,($  }6+ ointer referenceProgram interrupted by userSystem IO error unknown causeparity error (CRC))illegal unit ##illegal IO reques    SCREENOPPASCALIOEXTRAIO  ttdata-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 HALTIllegGOTOXY ~^^h```^&^&`___^%^%_^$ a ^ ha ^ h^$al heap operationn BreakpointtIncompatible real number size Set too largeSegment  ""| 9}# 3}ց2$_}o""*F" *D">2"*** *!x" ":"=L :$(^! a ` p a `^!p `h2`,a ^a ^!a a ``p ``ha _ p _ha p`o:3*B*@""*X"*Z" >2"o&$:"<OYP$*** *!"" :"=· ** |  r:`r$`9`r@;Ć:Ć9ĆĆĆĖ #````!4 #" |hȖ9j"i!h!{"! k#x#y#y #xą2!#y2a i!"Ϙpih ! ׁj"k##Proc# Offset# `````` ` ` ` ` ``$9""9!"W"ć""?8N:=q $tq  $դ!՜q rINITIALI~`PZrZ`raoc*`lp0~~B~G~Hć~I~%O ~" @       D# # -`# -# ~" ʆT~"ȆT~"pZrp"OĆO ĆOdĆOĆO'ĆZ 000ʖ~ `d&p"p    $*SYSTEM.MISCINFOO:SYSTEM.ASSMBLERR:SYSTEM.COMPILERR:SYSTEM.EDITORR :SYSTEM.FILER &`6Ć   ! ) 04xpprqh q:SYSTEM.LINKERR*SYSTEM.STARTUPCan't find system diskkCONSOLESYSTERMGRAPHICPRINTERREMINREMOUTT:*SYSTEM.WRK.T, rr8r 0ćr hqh q rr| p"pյ rծr0|  0z!@ra9EXTT*SYSTEM.WRK.CODEECONSOLE::SYSTERM:: *USERLIB.TEXT???JanFebMarAprMayJunJulAugSepOctNovDec?????????REALOPS ar!rs33sj 0z3pڠRattr t43  tar퇁3 ap3p Welcome , toU.C.S.D. p-System IV.00Current date is System re-initializedk"{z  r33 h"$<@@rh- Ap D- MQUY]`M8ą;ą:ą9Ć;Ć:Ćh y xĖ<Ć8 8r; ` ; r: ` : r9 ` 9 r;Ć:Ći! !yr! !xr@$(*r*8&d.` '  GETCMD  # k p;)`*P`P p+WW3h3L |3 z  z  yi!xkj"#e  &  *`r%*ć%x'* &**r*h   ĭ$3 f g &h @ ն!l$"xm%zn$"xՕ"$$xx $"Ċ}%y!x&x&|&& %&Ċ:0&y)& o&'x 'x'yĊ0 @ @ yi    xr   0, 0 0ĖS 8ryrxr;r:r`{;` 'y'y'y 'x%" $" $""jDa!xh3h 4UĘ5Lh 4 yi!k##xxj"#"x  -`ć-x -z.++-{,-z pp+, +6a .++ //aP /^Y /P/|՘l7&   j4||Uhć|Ux^WYL/c /a` /P<*a+*p ՂlP--u -aX -P+bxa*a+,Ćxr+cb``zƹ` `|`ᇊ`.`zx0W`zuW3``O`}}z~~|ᰇ~x)#h#x '#xׁi!j"x"yxh ##xĊ l8jaa&'x j'x'xh"[!ׁk#l%$ %$ %$` e~ ~ ՂP`ep`|`{Yd}cc}F*c+~~*+ ~  %$p x%$瀀 % $瀐 % #'Ė di h 2! ! x! x3!x cc|Uxy5_|Ux___|U_xć|UxٖRS cj"ղ h{daF"ih !"  " " Aa hޖ;hx@rp )Tx @   3 !  ! x ! xj"zk""###"zf"z # %# $## # ## Ą   rp )$@ @    )x   o n *& (p( #Ċ#Ė %& ih! !p d c pgtczgjb(' k #ձ#j" "pi "! !"k)Պ"!i ""j!" "pl"$j!" !pl!$i!"m%m%Exp)c g((6c~W h   p h!ibg'& o* + " %p %ȇ *  ${ hB ,  )d d{*d+AP322'2zo'2|22Ֆjokc"3#'159ɠ9ɇ; o' #kc"3'"j'"dԯ"ddd h * +Ĉ* +* h{xrX!xh!````!x! Ė8``xտdS ! p p  ȭ]] ] U ]_ ]P`>> ՂP >f &C՟```x ``x```x ``x`p`+`&D<le$$f`>ՂP%4xx 4x x]i!] !!iia >pia"H݇W```y_ՂIPbaćbxbĈbxׁ,`h*a+--xQ!#H!ia"H! x23222{ 22{ć2o &xkh%x&x4:&xl$$xxh +-xha aP{ a*a+Pxarp++ՑaaJՁRa aUa aa%xkh$ x$ %xxĊ%xkE&xxli!$:&x!x! $&x!xj"y&x&x4 %#"ykc%k!i#o ׬PTx--aP -XU -rp++'*a+--aP -[U -P+ս,-x.-. ć-.ć-aهՂP 5bcbcfh b lh bbbcf 5Ղ$|| |^   $ `  C  xrpH  $ ć ć ć yr8program in Linking....Must L(ink firsttREALOPS REALOPSREALOPSUnable to load segment on heappWarning: library not founr0 yr8rh z {q  y Na x   x VB   0 a d.: Cannot find Assembling... Compiling....:AssembleeCompile what text? .TEXT Can't find :SYSTEM.SWAPDISK*SYSTEM a^ & a  a ĭj *t=a 0 e k   .WRK.CODE[*]To what codefile? $$.CODE[*]] Can't open SYSTEM.WRK.CODESYSTEM.WRK.CODE.CODEExecute what filee? redir= ᇁ= `Ȅ` ection error.CODE: Running....1Monitor: B(egin, E(nd, A(bort, S(uspend, R(esume & no monitor openAS``p``tm t p  ۄK. v pi="" pi= po=*SYSTEM.STARTUP+Command: E(dit, R(un, F(ile, C(omp, L(ink, -X(ecute, A(ssem,    *  h Uq  ia  ay a  a-z   D(ebug, H(alt, I(nitialize, "U(ser restart, M(onitor [IV.0 B3h]]z3$ Linking.... U not allowed Restarting... X u,qhq   -t,t't"  ց ԡTfx D S -1`ar ՞9999FF|YF9rJF0| :GGF G G1 G:S : t;ą;ą;ą:ą9ą9Ć;Ć:Ėijaq jj0cj9"Ԍ"S : 1 "TSj     Ջ ,,ć,ć,Ě?,,+ ,X ,z ,,qh?q   4`           `  ```   kgb]j4Ux  #   . $` `    ``ȇ y`rp ` ċ y  ւ*jREALOPS.TEXT.TEXTLibrary File is not a Textfilee*SYSTEM.LIBRARY(Too man   ` 퇁 #퇁    $&  8`r, մ6 y libraries in library text file..*SYSTEM.LIBRARY*SYSTEM.LIBRARY.CODE.code.CODE.CODE not codeBad block #0 in Illegal`  `@Վ`0,~A`  %`  ` B`  ``.` `   file nameNo file *** REALOPS  Unit not founddUnable to allocate global dataaUnable to allocate global dataaNo  DI SMALLCOMEXTRAIO OSUTIL SCREENOPSOFTOPS FILEOPS  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 EXTRAIO n##h A!5!#!s x"p  # xr xpĊ #ޖcg+j"Q"?ڡw#' ۚ,ۀ #p|*dć Ā xȇȇ??i"i!h.=c.p ) .-, *p.-, *px"!j, *! +" (ߚ&ċ(i!%! ath!i*!!! !!x!|sh !!x!|h Ė   ޖ !!{! !x!{!!j$!l"x$h% %% m %"y#6(s6! %"y!z"y m%Ċ}! '&% #! m% #!!$%!!!!ޖ9  y  {  Ċ z  ޖ%%{%%y$ȊU% j$%xh" h#k$`ct% %$!!ĊB! '&%$#! l$ #,$l$$'&$pl$l$ !$%Ċ (ޖ 9 lPASCALIOSOFTOP #si %$ #"i$ !%y $$Ȋ%%y%{%%ޖ ,`u+`uĖ 8` ppO   S  `s% =   p  `p !!h 8  ! x |s" = p x |p .% : vU  !ޖ##S!G! #!  ip-##"!s # = # # p # "!pĊ #ޖb߇ykbh  hp> to continueeD5 z*& & '}' c!l)ěLc)e,%,!ĚNNLޖ LњNNJޛL``ߖLߚNLUSCREENOPr6"x!"!Ċ "x " ĖeJh ! xt !tAu `Z !h !qlPvsdH<`RGOTOXY PASCALIOEXTRAIO STRINGOP  j!"h`Z # lfh"!f<f!<! ZZ ZyhZxhZhb za {f; |" }!vu " !Ė#if;mZj!$#"z"|f:ɰJd"zc"{Y"z$ #"}f:ɰ! Y"z$ ȚYu !u$#Zh y  yĖZh y z  yĖZh x xĖZh x {SEGSCINI=J f*f*J UJ "ȆJ !ʖl"$!  Q f xĖJ i'Q isQj#x"x"x i#u i#xh !" ɡ!" 塠 h l *f*Q " ʆQ "ȆQ !ʖ"/!   ap!klh $   hQ#-ĆJ# p"!   Zh  Ė#"%f;#""Ćf)D#lf:m%#%%#&%%%$%$%$%ʆf*#-# Z{ih ! h#"Pu u ćx x ćx`Ζq`p`Ț`u ! i!#l$$$$$$$$ #%l$ $$ $i!j "f: sm%%[%pl  $$s sj%o*k Zz%"k $ $$$$ QJlG$G$xȊGȆG$$Gm*u'i#nc$'n& 'p &(n'(o&#h ## '#pn& '$' 'po!'nn&eGseseG sef*f* YȆA pA#"ȆA A Ȇ`k###f:#f:##ĆZ`ԝ%% t'&'&$  u $"'&o!!    )? )$#'&xh jq   ]M8-! h &n& % PP% Phkli!$,&O!xj#"k# h% "0&O!xn!i# %P% Ȗ-0/߇/{/t/x>jhm)%Zj" )%0h%m%)"" #ڡi(!塤 !jh) j" h" "X |Nnj&|)&|  /thjd /xd k/  h d`ar0k  #j #Zj"/t"/{/ć/ dZڡ d dcp#&| ,j"!!j !)&| jpj"('h n&| )&j" h" "2 n &)&.dP0 xĖ/( -327688- 0(t8 PASCALIOEXTRAIO SCREENOP &||'|d'x p Znih # !## j"%$"  ɀdi n hЖ# i$!jh "# # hFILEOPS V.[PZYXćW]i!.-.!j" .!v" .!"aA!i˄.Չ.#! %!!Ė# i!$jh "# # h#$ % !!Ė!"h #   #*Z@.v .vi!ZZ<!.v!Z.d!vd.!vZ" .vi!!i.i!i jhmTl"k### y# x#k"" y $%% i<k#"# x#!Y.d!vd.!v.k#_.vh k# Fki.!j"Zk# XXx "0!i! #! .!* y#i"k#k! " y"i"Mi!9! yn&o ʄ ʄʄ df! !R#h JߛLߊLޖd xEXTRAHEAHEAPOPS  Xk#]#Yq.YdYvdP.WĊN.WĊ>.WĊ..WĊ.WĊ.WĖ\`!!!!`Ȗqa%xMjh "?! k####l $$$$ $$  hhPERMHEAP| sF#kb#r$bp`< b`p a`` "#"``< f`i! ċ!ćć !ć fć|ć|| ՜ A jA" SCALIOEXTRAIO SCREENOPOSUTIL   8 #pn #& &p #&&p = p # x pp} !xx!x!x r "!xxĖX0[P]ZYxk0}b-rab-p"!s"0Ysp"ld 9 = p # x p #pp# #&p  ć !&'  x0Pwd'UwdYsp+ZY Z#xYxx Yx"#"Ċbr]ZY v\<@p  y ! ć  zĖ *SPASCALIOEXTRAIO SCREENOP   [ [ ii/W[h=W hi?hWW ""WW h, ! Ȋ !!iWW ""ԯ!ȭWX ґ ґ "*"!  A)`+P҈.҂+,҂,-`P* -P.[݄۬͛<@ZччZ`SMALLCOMD6543x1:17W!xh!!xx`u!xh     -(ъ℀.02345UWՁ WWWX  p!664435jR4/4`t 4y  h4z43 r r4  aX ⼃6 XXX =խU `:(чч VXW^VWXZYYZDY p 4 ap j!0 s(i==pi=.J$ UPERMHEAPPASCALIOEXTRAIO COMMANDI SS; SaASSYWVYYVvXXUՇU "  d`XW`ZYYZ=[WYSSC SaAS`YSȇYYXWyU `K(<@COMMANDIf+1 u _ u `Pu u `A*-r+*-pć*+s*`spu *r@LݖS ]file already openWrite to what file? can't o*+1,h!ssp u `rDĆĆĆĆpen filecan't close filee.text   PIIPOOIOPL  *USERLIB.TEXTi=o=pi=po=i=":ĆĆĘ:v# $x$v:#j`"r " # #p"pi=""qG bW#dSTRINGOPSMALLCOMPASCALIOEXTRAIO FILEOPS PERMHEAP k  !k%j"##j( "j"- "ć$ # !"p ! !"$"l%"m%o'n "Ր "ć ( $xi!$ Ċ !x!xi! vޖ pv`` 0"!xh x"!xxA! xs" x vipq !q #fw 6 % q"fw՜6/%0/0 ć/0ʇ/0 0 D /DBUFF2 ] Hq `qil $k#00k1#$ppK$$#mj"%?1"pprpq % %//6  / /6 /qfrfr:qih:>H$)!ibq"w "w&w w"j$#l$ Ԏ!w*w wq5 h վ0w w L\OPUGOTOXY SOFTOPS SMALLCOMCOMMANDIREALOPS (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@q L FILERPROBUFF1 BUFF2 NONBUFF1NONBUFF2NONBUFF3 -肀Z[9^8膀 p.ZFq9ka&  I8;d . e  hq iw sw 8 |w 8~   w m  րPut in I h-FILERPROFILERPROFILERPROFILERPROFILERPROnsert destination disk:TransferrTo whereeTransferrblockss# of blocks to transferTransferr *SYSTEM.WRK... *SYSTEM.WRK&&_hSTANLEY2LPh*)L_&::_&...,:.,Save as  ? Save asTEXTTCODEETEXTT*.CODEOld code removed, Text file saved & CODEECode file savKBUFF1 <:f3rfӘrpq fq mj%%ql"i!00if!vhpq "!j$ledSTY "qBB#131|1Jq1#w Fw :vww wq q1qwqp qrpq q 6%% h p6 % 6 % k # 6 6 q  qh c5 (rpq 5c-,+*)(5 y'i:5 i @qAJqKTq)). )U )Xq  4q\w `r4.e: %+!q,q`2|;-q w .v--5, .5, y.x.y.x('(&fgh` `h `. ` `q>Ah`. ` `'.w .w (w. w-v/.  /w -v.  wHՂ= iw w  kmqF.Z.j"hq i!"3.c" cn.M.xw. ww /. /w w 2.xw v/. /wc" cq ." ..t,ux&{~h!z w  ? !վ:Ֆ5, y5 -w/v5 w"w =&w 'w/w 6w )ww `piHqqw q  i!gqw w w q膀: w w 4 F@ "x#x  0 01#x ppq 1!x 8w <w *w>w pq b b wrpq rHwDw wh1 1p"1ppq  ԕ"!x #!xq;?@q@LM5 y q q q w`W (Frh1 O1i!K81w!| Lw Nw !w :vw1Ow @w : )-$5) .x5) y ..5) ) 5 o `\ 5 ( )-5) .y'..g.xo) ߚFw _w vwWw <w :vw  ր_ < UNUSED >>Dir listing off#1:ListtWritingw,ew wʖ րmBad block scan ofScan forrblockssScan for how many blockssBfilee filess, blocks usedd,  unused, in largest Vols on-line: # Root vol is - Prefix is lock  is bad bad blocksMoving SYSTEM.PASCALCrunchhFrom end of disk, blockStarting at block #forward back : crunc - EVD tWheddPlease re-boottBKk TNONBUFF2*`-rqq_`Әrpq `q ))****`rpq qFw :NONBUFF1c+%+Jqq+;q 2|;qwJw :v+ %+w+vZw w w肀 z`r*q Q.   w 'w w :v.w 98+!"h * *) ) H7w  w w = "w"wG&r  w w C.$&%&3`-r98q'w q p 4w7 w q pqYʁbcDZ aydVVdaVeeyWexXfTTf1Z TeyOTx0w wDTCw Dw-v?D ?w -vD wwHw w w ȇeeyOTxćTT5 TW5T yTTWT5r VVyqw fy   ցqD ʐlFȆFp?h ?$F AF ZF F Aa h ?h ?#@  @FDMakee made not named Workfile is (not saved)) No workfileThrow away current workfile ? *SYSTEM.WRK.TEXTT* hאcD ??@ ?N ?@q>1z5 D15r as>D+>asOw SYSTEM.WRK.CODEE*SYSTEM.LST.TEXTT.BACKRemoveeWorkfile clearedd:& Get.TEXT.CODE.TEXTText .CODECode NDw-v?D ?w -vD wX  րVChangeeChange to whatt:Chao file loaded Zero dir ofDuplicate dir ? Are thereblks on the diskk# of blocks on the diskNew vol name ? : : correctngee:RemoveeRemoveeremovedUpdate directory ? %Date set: <1..31>--<00..99> Today is New date ? : The dat ? : zeroeddExamine blocks onBlock-range ? Fix them ? Block may be okk is badMark bad blocks ?? (files will be re is CRR?{ bemoved !)) (Y/N) BAD.xxxxx.BADBad blocks markedGZK RX  p FILERPRO s$s ,s c c i!!@?ih jj!H"i!h !NONBUFF3mM`-rqz:պRV--V - -(: -00h ww p0` ` !p";Ě`w a z aAh j`! j"蘀  蘀DqFw w q }bcF D3Jq3`ppq -( -zA -(**q\`Әrpq `q )qq%)-- dʇ- -Zq-Z`rpcw w RfHqqw SwwSRRwwwRR5R5 5 RSq zհDq>q ,  35p5 F35pp+, +q 3F@JSRCqwSRdVVd VqVVqw q pap pT USRdVVdz3@F5,ow Fw tw  p2[pDia( aw)j  az[zpbh  :堡M R    z!  a0  b?  (/ a(ih !  0ȇ  h e{ e1e0 e-h-$ raearh a): J) Cxʆʋ? ? E T *pTi *T-h $$=$? h O}w  w w ew w -erh e pb)g/3J5$5 i$%+*aT a(*T * *aT aw &P w ,'w w h !b  5r h( B6E)C`-r`6rpGpG)2)w  v6w w  w ց ", www w p- * *pieׄ肁NטwG `rp `rFaw :vw &h P(ha   =E w w w w w ,pTT#p*蘄WT WPT w w aw w J!!ڭpp *- : @w :v ;?%* :%T*#T* #*** 炁WW W W($%UU*S*wFjzb(VRӂ(J N!  p8.1: <w w &P w  #" !8h7Zh'hhhց`ڇ0`"(1Z`#(T`-(K`5(B`>(9`E(0`N('`W(`^(`f( `p(րx0`B &P w   w  w pb(bFZar o` ` BFFr File lost in dirr Bad file nameNo room on vollNo such vol on-lineFile not foundd Vol already on-lineMMAND,SOFTOPS,PERMHEAPepoI N 'MlN|{eY %EXTRAHEAHEAPOPS STRINGOP #p`*P**Ȉ*Up`U*U`Up*P=%TT*?%TT*0F%:Text file losttCode file lostt File founddBlkd voll Unblkd voll File nameFile/(unblkd vol)File/(blkd vol)File/vollVol nam  #*T# `:H+WWR W W> #WW䘀( W昀AeeOutput file fulllWorkfile is savedNo directory on volNo workfile to saveWildcard not allowedd"Bad form (Wild Non-Wil W( S1NF3J肁HSS:Ә@ ӘDGC7K*I`d) carddIll file/vol nameIll change (Vol file) nameBad dest for files founddCakuMWkP7VjӐ"1JFH"肁H*Rzb"L >,rZJF(h`F ` `Zu expected I/O error # Filer error # ? (Y/N)  ? Invalid #Destroy : ? [*****]# Put : in unit  ?  -->  ` yw wMih !_ Q5 j w w "w "w  - C1*,  : ? :not proccessedd ...too long < file name scan string "xw"yww h5P5 ih !65 y#x'"# Ċ5 x#xʆ ʊ h" #5 ĖN肂 vol name  - char. max >>- Illegal formatt what filee what vol ? *::: Remove olddFile(s) endangerejkc' c+K c>o cQ cd,s4j ki!#e!l$pO! mh %E$d: 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( 3 qw !wyw  w{w h!i474 4u 4 ake, %P(refix, V(ols, X(amine, Z(ero [C.10]xBWarning units  &  have the same name&buff1,buff2,nonbu74 t74 ^74Hl:3/U R O c ` ] q n k  | y SCREENOPPASCALIOEXTRAIO    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   Ñyœ**œ# ‘*#*!Ä!Ä*#!!Ä:G**w+#:+6<*o,Ä*#Ä*:A*:2E**'w+JG:Oxtiy/Ι'+>Ι'y::/2GER[8]); /4:(W4:INTEGER[12]); /5:(W5:INTEGER[16]); /6:(W6:INTEGER[20]); /7:(W7:INTEGER[24]); /8:(W8:INTEGER[28]); /9:(W9:I&{{y&x.2Í{{<:/2y&x.>2Í{yx2C!9+"x<2=2/'?WyOz+¶**:G~+yO**:G'w+yCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER);   IMPLEMENTATION *:G~'w+ *+"*+"!5!5*":22dC*+*}|ڌ"7**:GҀ>Ι'+l ^5LONGOPS : `& q``!`s !!ct ~qqsqqeqqWq'+ yʒ{­**A­#¢:!2*+w"!4*+w!4+":/<_"":G/<_#x222*"qIqq;qq-qqq q q q րhc  c-hjj"c(c"0i !*"~+>2*~;2!:<22*"*"*:G~w+E =>2*":2_D**}o|z!4y2*i   qq!qqq qq!qqq qq!qqq qq!qqq":2_D:*#"w!4:V*"*}o|g":*:G#~w 2!""zz/W{/_>2{_ qq!qqqw qq!qqqZ qq!qqq=  qq!qq q   zW!~'w+ ***!Ä!9"~=2oB$"~W+~_!9}oY%:G*~#d*!~+u:qq!qq q ր"j!$ ( 0Nl"!n^#V(%MN! -W>Ä}=2"کG| >22:ʿ} |2":2:2:2zW{_!~0w555+ :*.. ."}=_"!9~#{2"+"#~=_##~2G zW{_: {/_z/WÄÈ""{=G{8 >-#w!9H > Z 0#wp p O0#wy0#wX }*O:ڂ yw##~ #{2"+"!2:WN*yѕ>GF|J1!o>g)9|¶}!9|}i`" 2ͯ * _>͋\VKC?82+#|wtkgd`]ZWTOKB?9630-*&<<<<<<<<IIIIIIIIbbb ~zjfc_[XPH;852/,($!bbbbb       Ye p T  \Dm&%t G 0 $ i tp  {rmg^YTOLID?:730+&#   -  " 9 ; z ,&~d=  M_ < js;&S Y HH~wra^WRGC?<962/,'$ Ì } Copyright (c) 1979, 1980 by the R|ytojebZUKHD<93.%  ~|zxvtrpnfbfOSUTIL PASCALIOegents of the University of California>2&>>~ڬ *6*͇*.Ì.Ì.Ì.Ì.Ìi`"Z*MD.ÌEXTRAIO  . Ì. Ì. Ì*MD. Ì. Ì.Ì.Ì.Ó"*".&"*"!ͩ*MDo& o& %^,V!<~# c!|2>2!"BINTERP  !P  ?*MDo& o& %^,V o& o g!_*^,VB_*2_*s,rͯ * MD |ʃ z MD MD ᯕo>g}o|gz }| z {z >(͋*}=͇i`"i`"!" ~ڸ7i`"!" ~ڸ*!9""i`"!"Ϳ ji`"!" i`"ûyH ) y ɯ w w x? ( } {/oz/g} {/_z/W7yoxgɯO>Gze R e +} {/_z/W}o|g#ɯͽ " ~ڸ*6*_^,V"^,V#""^,V#"^,V"^,V-{=*"^,V-" ~2##^#V*">{*"o>g} o>g`i<)ҁ MD!xGyO){_zWҢ ã #‹ }· | !} |ʷ !z }| ÷ *"͇^,V!^,V->w,4-*!9r-s+V-^**{_zWs,r**^,V,#4,4i`" ʧ ~ *6i`"÷ |ڷ }ڷ +  !+  !+  ">22 C *S :2S # _ *o :oti`" ¥ _!&|ڒ£}ң^#V{=ʣi`">ʧ ~ *6i`" ʧͽ " ~ *6i`"2o #ͯ i`"BK* x:˜ }– +Ù ###:« {©   _W _ *^,V= ɯO>Gi`"E#)9~"##""":~  *6***i`"*^,V*zB{Z"͇ʧ+V-^s,rͯ "* GOx {w#zw# y Gw#w# * " Gx6 {/w#z/w#' * ] xV {w#zw#I *O!9Ax" "}2|ʕ}/<2)*^#V*+F+N*)9* MD*MD *͇*MD **MD **͇ڸ:: +^-V= +V-^= ͯ **}o|gi`" o&>͋ڸ})+V-^=H lo&)9^,Vs,x w#w#j *H+~+~} i`"E#)9N,#Y"!9xڰ AOy/< G{  *͏ x  r#=c^{w _ i`"K} ) o&E¡oi`"CK^,VxGjS]zW{_!> ~_,~W, # 믑Oʹ ͏ x/ ,/ # ' ʹ ͏ ?믑Oi`"x!{zyoxgyi`"y!> N#Fo{_zW}o`ALbS\))o{_zWyOxG-{_zWy/w,x/w?? {GM{ozg{2&@&o>͋^#Vʪæ=¥x! G{_#zWx:w,w# Ys,r#,#*yx*s,r#:w*~2+V-^"^,V#""^,V#"^,V"^,V"^,V-" *~2##^#V*"]#)9N,F#! ڴyoxgyGMҴy_!~h&###)yʨ,9ʴ÷ @ OxG+F-N* MD+-+V-^""+V-^ ͯ i`")DM~ ~i`"O~"^,V#{= i}|}| o g MDͯ i`"*N,F#^,V#:>xAOzS_|O{zTx]}o|g`"N,F"^,V^,V{< *MD ^,V***MD {ozg}o|g}/o|/g}/o&#+| )N,F:uxAO* MD"2/<_*^,V*^,V#>:ʳ>(͋ø>(͋>2:o&:2**yoxg*KB*! *MD!*3_*^,V^,V:=3+V-^_>W"+F-Ny+V-^*:w#:w ;  "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~"%()++++AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNT  O ELSE END EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4I-0369<?BEHKNQTWZ !&-036=@CGMTW\jruxN )INTERFAC3LABEL MOD 'NOT &OF OR (PACKED +PROCEDURPROCESS 8PROGRAM !"*3=DLT\aiqtw}  #15>AKSX]RECORD -REPEAT SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES aekotwz  *-039DIOX\ilr '*/A 1VAR WHILE WITH !WØ""""*> #w±*^#V**` w_` AV}   % - 6 > F O W ^ g m r z    ! & , [0:#w*7{_zW*s#r*~m@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~# ff{+ ssͥx {# ŒŒ{+ ™™y_",#^,V""",#^,Vz-+~-===   !&,148=CHKNV]`ekqty %5:GJMafinqtwzLTSTRNG EREC CONBASE EVEC SETBACK ZSYALPHA BIOSVC BASE   "%(+05:CFPUZ]bfjuy|SEGBOT TIM M SETBRK sIOINIT IOR .R UREAD ,2<>GKPSZ^hnwz} EAD XREAD !EAD UWRITE RITE SYSCOM XWRITE $RITE "%47=JNQ\_beqty|  "/258<N^bhoREADYQ DEBPROC SEGTOP UBUSY 0USY MEMTOP STEPFLG INTERP  %+069?DJQVYbeiux{  "%)28<GMXdINTERP STARTNP UIOERR BOOT OT ENABLE |JDPNOCHK qu!*7LPUZ]alqu_!$'*JP .046:,DJh|IORSLT XEQNUM DEBSEG BACK1 SYEOF GBLVEC SIGVEC CURPROC  ,2<>GKPSZ^hnwz} SYSUNIT  "%47=JNQ\_beqty|  "/258<N^bho %+069?DJQVYbeiux{  "%)28<GMXd?INTERP MSCINFO GDIRP BASED0 MPD0 UCLEAR 6LEAR SYSRD XCLEAR  'LEAR CURTASK USTATUS :TATUS ROOTASK DEBOFS UWAIT 4AIT INTERP XSTATUS *TATUS EVENT 5QUIET h,JABORT WORD1 MP  IV.0 [a.3] +/47<?LP\dglqu~ IOC  C NP BUGSTA BACK SIB SEXFLG IPCSAV    *^,Vͯ *s,rƢ_*^,Vͯ *ͯ *^,Vͯ *s,rͽ ͯ TͿ ͽͽ^,V÷ |ڷ }ڷ +  !+  !+  ">22 C *S :2S # _ *o :ͽs,rͯ s,r^,V_^,Vͯ ^,Vͯ MD{= ) 2J*ͯ i`":x:xBKx2o #ͯ i`"BK* x:˜ }– +Ù ###:« {©   _W _ *^,V= ɯO>Gi`"E#)9~"##> <,,,,,,,,,,,,,,,,~#~# e)BKx~# ~_"*^,V&o)>o>g)9|¶}!9|}i`" 2ͯ * _>͋<<<<<<<<IIIIIIIIGGGڝ:: +^-V= +V-^= ͯ **}o|gi`" o&>͋ڝ})+V-^=H lo&)9^,Vs,GGGGG       Ye p T A)R %t G 0 $ i tp  r#=c^{w _ i`"K} ) o&E¡oi`"CK^,VxGjS]zW{_!> ~_,~W -  " 9 6? $; z QZf,&~d=  2_ -< OXd  S Y --i`"y!> N#Fo{_zW}o`ALbS\))o{_zWyOxG-{_zWy/w,x/w?? `Ì } V%Copyright (c) 1979, 1980 by the R^,Vͯ `^,V`s,r`ͽ z!è*^,Vz!*s,r *!9s,r#*egents of the University of California>2&>>cڬ**l*.Ì.Ì.Ì.Ì.Ìi`"Z*MD.Ìs,r#,#*yx*s,r#:w*~2+V-^"^,V#""^,V#"^,V"^,V"^,V-" *~2##^#V*". Ì. Ì. Ì*MD. Ì. Ì.Ì.Ì.Ó"*".&"*"!͎*MDo& o& %^,V!<~#+F-N* MD+-+V-^""+V-^ ͯ i`")DM~ ~i`"O~"^,V#{= i c!|2>2!"`"N,F"^,V^,V{< *MD ^,V***MD {ozg}o|g}/o|/g}/o&#+| MD |ʃ z MD MD ᯕo>g}o|gz }| z {z  !P  i`"ûyH ) y ɯ w w x? ( } {/oz/g} {/_z/W7yoxgɯO>Gze R e +} {/_z/W}o|g#ɯ?*MDo& o& %^,V o& o g!_*^,VB_*2_*s,rͯ *o>g} o>g`i<)ҁ MD!xGyO){_zWҢ ã #‹ }· | !} |ʷ !z }| ÷ ! x=ҕڏƁOGOG~#V#^_P|gx*zWyOxGyOzW-||L}l&._aOG~ʏ  |wˆ}҈^#V{=ʈi`">ʌ cک*i`" ʌͽ " cک*i`"""":c ʋG#y|ڕҏƁO ~#V#^_~G#N#Vڷxڷyڷ}?}o|g{_7}o!9~+~r#wS@){****i`"*^,V*z'{?"lʌ+V-^s,rͯ "*" "}2|z}/<2_Þ{_PZxþzG{֐$ +>_xGyO,CO>Ga{ʋ} ڕÖ,GOWoʬ,-ʐ|<怨BW]"}ʾl&9*{zWzWHvoկ»ʻ=û ,* i`"NG ~# <*MDm m  m|g.!!V]T C))OF+N+V+^ Hz@CPt  " }* ʉ*i`"*N2GڟAyʬ#£: s# ½½ y~# ~# GOx {w#zw# y Gw#w# * " Gx6 {/w#z/w#' * ] xV {w#zw#I *O!9Ax$> nk(:Chԥ5!c_ʹ1^ l $-xX(y)hSYR%oNˑ?;! I|oŰE7v@px w#w#j *H+~+~} i`"E#)9N,#Y"!9xڰ AOy/< G{  *͏ x  vi`"V%o o  , # 믑Oʹ ͏ x/ ,/ # ' ʹ ͏ ?믑Oi`"x!{zyoxgyo  i`""zWx怺¨ʒYPÓ{©z©{ªzê* OxGڮҮ}®|®}|GM{ozg{2&@&o>͋^#Vʪæ=¥x! G{_#zWx:w,w# Y2/<_*^,V*^,V#>:ʘ>(͋Ý>(͋>2:o&:2**yoxg*KB*!>(͋*}=li`"]#)9N,F#! ڴyoxgyGMҴy_!~h&###)yʨ,9ʴ÷ @ͯ *^#V#^#Vs#r#i`"!" cڝi`"!" cڝ*!9""i`"!"Ϳ Oi`"!"ͽ " cڝ**_s#r!!!9]T>!*/hZQH^,V"^,V#""^,V#"^,V"^,V-{=*"^,V-" ~2##^#V*">`*"*"l^,V!^,V-[oxGyOzW{_-n$%~o###zW+yO+~7GtGyOzW{_,t_~W+~O+~7GE$g_|W|O|GEGNʋ ʋ#>w,4-*!9r-s+V-^**{_zWs,r**^,V,#4,4i`" ʌ cک*i`"oYi`" Š _!" L MOD 'NOT &OF OR (PACKED +PROCEDURPROCESS 8PROGRAM !RECORD -REPEAT DLT\aiqtw}  #15>AKSX]aekotwzSET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE   *-039DIOX\ilr '*/AV}WITH !<}""""*> #w–*^#V**`ڶ w_` A[0:#wø*   % - 6 > F O W ^ g m r z    ! & , 2 6 < H T _ k q w } 7{_zW*s#r*~RHMqx  :OXdnq} */5<AOTagmx|:+V-^MD-s,r-y= } |^,V6-6**|/ }/ "BK^#Vz> {B 1 +PYN#Fq#p "$&(*,."7IOd!$'*-0369<?BEHKNQTWZ]`cfilorux{~  y+~ +~  /g2A}o|g͊W {# KK{+ XX͊02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~x} {# qq{+ ~~y_",#^,V""",#^,Vz-+~-===*MD!ø*ø   "$&(*,._*^,V^,Vø:=+V-^_>W"+F-Ny+V-^*:w#:w  "%02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~()++++AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELSE END   -0369<?BEH EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LABEKNQTWZ !&-036=@CGMTW\jrux"*3=#   (+5:?BGKOZ^agnuzSEGBOT TIM M SETBRK sIOINIT IOR R UREAD !#,058?CMS\_bgjmpsvy| EAD XREAD !EAD UWRITE RITE SYSCOM XWRITE $RITE "/36ADGJVY^ajnw{!3CGMTREADYQ DEBPROC SEGTOP UBUSY USY MEMTOP STEPFLG INTERP  $)/6;>GJNZ]`js !,2=IVZdINTERP STARTNP UIOERR BOOT OT ENABLE a/)PNOCHK kny    1 5 : ? B F Q V Z !$'*JP)/Ma IORSLT XEQNUM DEBSEG BACK1 SYEOF GBLVEC SIGVEC CURPROC !#,058?CMS\_bgjmpsvy| SYSUNIT  "/36ADGJVY^ajnw{!3CGMT $)/6;>GJNZ]`js !,2=IVZdaRSP MSCINFO GDIRP BASED0 MPD0 UCLEAR LEAR SYSRD XCLEAR  'LEAR CURTASK USTATUS TATUS ROOTASK DEBOFS UWAIT AIT RSP XSTATUS *TATUS EVENT QUIET MJABORT WORD1 MP  IV.0 [a.3]!$15AILQVZckou{ IOC C NP BUGSTA BACK SIB SEXFLG IPCSAV "(-03;BEJPVY^dgjorux| ,/2FKNSVY\_djov}LTSTRNG EREC CONBASE EVEC SETBACK ZSYALPHA BIOSVC BASE $ UCLEAR SYSRD  XCLEAR USTATUS UWAIT XSTATUS ABORT zIOC }o|!z"ƒ!"! s#r# ‹*!' ͠!""">22!">2>2!">2!G͠!` ^>2>9>TBRK IOINIT IOR UREAD 2RSP RSP XREAD UWRITE +9!>͙!" "}">N>N!" >N!>9>6>!" """"͙#^#V#~#" 2* ͣSYSCOM SCOM XWRITE UBUSY MEMTOP MTOP UIOERR OERR *s#r*s#r!" >!͟!ͣ͟*"*!!!O:O:*****IORSLT xBACK1 Q.SYEOF bEOF SYSUNIT SUNIT ** _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{TERTBOOT  %*/36:@FMRY\_fjox{ !%)-16:>BF JNSW]e.QxUbm zN#y! =û:yèèTERTBOOT>@y : >@:G:2:/G:2:G:#2:/G:2* _nP&2:BRZb IV.0 [a.3]jrz &+18CJTX\`fis{  SYSTEM.PASCALCan't find SYSTEM.PASCAL  H_?"% ,#,#",#q,p-*"!""*"!">2~# y s#r# y®Oe`INTSBIOS MSCINFO CINFO GDIRP IRP BASED0 K wpVMPD0 >  SYSRD )CURTASK RTASK ROOTASK ASK DEBOFS BOFS INTSBIOSWORD1 1 MP  NP  BUGSTA GSTA  IV.0 [a.3]ͫ!"!@ͫ**!!!*##~& &>(>2N7#N+ "U#Gk*" >!SIB aSEXFLG RCIPCSAV pCSAV LTSTRNG STRNG >ù**!!*^#V:‹zS_"*~2³>*^#Vs+r##=§* ^#V:zS_"*##~#+3""!BIOSTB OSTB EREC EC CONBASE _NBASE EVEC EC **+V+^*^#V!9*!9*s#r+++"*## *^#V"##65,5 ^#V#N#Fo>gSETBACK TBACK BASE  v,SEGBOT  iZJ>! )9*s#r*)!* !!9""* "^#V"^#V#N#Fo>g)9"*s#r**!)* IOINIT INIT TERTBOOT TERTBOOTSYSCOM SCOM XWRITE RITE ~#*{++z*++=#V#^r+s*^#V+"* ~2##^#V*"*+V+^*##"*"DMq,p#,#READYQ ADYQ DEBPROC BPROC SEGTOP bGOP MEMTOP HOP ,#,#",#q,p-*"!""*"!">2~# y s#r# y®OeSTEPFLG EPFLG STARTNP s5BOOT cNOCHK CHK IORSLT 49>L]djm{~S &+14)  ),CVpwRSLT XEQNUM QNUM DEBSEG BSEG BACK1 CK1 GBLVEC   15>HKVa !>GJRZ_bipsvV1 SIGVEC  GVEC CURPROC RPROC SYSUNIT   b {++z*++=#V#^r+s*^#V+"* ~2##^#V*"*+V+^*##"*"DMq,p#,#& SETSECT +STRTDSK DUSRREAD NSYSHALT DSKINIT ?CONINIT  REMINIT ZSETBUFR 0DSKCHNG KCHNG POLLUNITLLUNITCONSTAT REMSTAT UPRNINIT ZPRNSTAT UCLKREAD SBIOSVC IOSVC INTXSBIO INTXSBIOUSRWRIT DSKREAD 5CONREAD USRINIT UENABLE ^SYSINIT USRSTAT RDSKWRIT :CONWRIT REMWRIT WPRNWRIT WSETTRAK &REMREAD lSETDISK !EVENT ENT QUIET STOPDSK IPRNREAD X SETSECT +STRTDSK DUSRREAD SYSHALT DSKINIT ?CONINIT  REMINIT bSETBUFR 0DSKCHNG KCHNG POLLUNITLLUNITCONSTAT REMSTAT gPRNINIT NPRNSTAT SUSRINIT vENABLE SYSINIT USRSTAT {DSKWRIT :CONWRIT REMWRIT qPRNWRIT ]INTXSBIO  _ ]g``` ` ```````!`$`'`*`> ɯ*  %*/49>CHMRW\af} INTXSBIO IV.0 [a.3] ååå å ååååååå!å$å'å*å-å0å3å6å9åCLKREAD WSBIOSVC }IOSVC USRWRIT NDSKREAD 5CONREAD SETTRAK &REMREAD W<å?åBåEåHåKåNåQåTÝWÝͥ* %*/49>CHMRW\afkpuzSETDISK !EVENT ENT QUIET \STOPDSK IPRNREAD WINTSBIOS INTSBIOS  '  CPMINTER IV.0 [a.3]kCPMINTER j h~~O ~ >  jy2j~~~!~: >$v':j*#(07?HMW[`elsx} CPMINTER IV.0 [a.3]j h~~O ~ >  jy2j~~~!~:CLKREAD <SBIOSVC IOSVC USRWRIT 5DSKREAD mCONREAD  SETTRAK MREMREAD +>$v':j*#(07?HMW[`elsx} 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 ( CLKREAD <SBIOSVC IOSVC USRWRIT 5DSKREAD mCONREAD  SETTRAK MREMREAD +>$v':j*#(07?HMW[`elsx} SETDISK ?QUIET STOPDSK PRNREAD SETSECT TSTRTDSK USRREAD 5SYSHALT DSKINIT `CONINIT REMINIT SETBUFR [CONSTAT REMSTAT 'PRNINIT PRNSTAT 'USRINIT <ENABLE SYSINIT USRSTAT 9DSKWRIT rCONWRIT REMWRIT 0PRNWRIT "CLKREAD <SBIOSVC IOSVC USRWRIT 5DSKREAD mCONREAD  SETTRAK MREMREAD +CPMINTER CPMINTER 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]DBIOS j h~~O ~ >  jy2j~~~!~: ) ó/ *ó"> eh*c[!SECTNUM gDSKINIT XNIT ILEN CONINIT NINIT REMINIT MINIT >Ç!$'*-0369<?BEHWZ]`cfilo   #&.5<AGNQUSETBUFR +TBUFR STATPRM IBUF DSKCHNG POLLUNIT IREQ CONSTAT \_bfimqtwz"+36:?CGMQV[bhkqwz}+TAT REMSTAT  T PRNINIT NINIT BIOS BIOS SKEW oBIOS "/5@HPXehlosx{ IV.0 [a.3]%+14:BGPS[_bemx|KNQT+29DJX+2 !(.7>MViC AÎlæÜáÍð225@HKNQTM' !$'*-0369<?BEHWZ]`cfilo   #&.5<AGNQU>ã>͕{ʲ*i"y22\*;*"~*|ʁҐ>2*i}\_bfimqtwz"+36:?CGMQV[bhkqwz}o|g"">2\:*s"~ *~MD:uO:vO:/2G!5ʂ‹:\_**i"ͱ:"/5@HPXehlosx{**DM*s xʁ~#t*> Â>Â2""""""""*!*i*g*eÇs#r#CLKREAD iKREAD SBIOSVC _USRWRIT NRWRIT SECTSIZ iCONFLG [DSKREAD `ie ~# x*iMD!{2|:gGOW_'6<6w!k*q:P!:|GK:gOz"y!e:JKREAD CONREAD 2EAD SETTRAK 2TTRAK REMREAD MREAD SETDISK w{2u:y<ì:m?о2u!:o=È"w*y6^*w:gO,}2v7:y>  $'*2=AEJKNQTov}].& Z]`cfilo{*i"y22\**"~*|>2*i}o|g"L">2\:L*s"~*~MD:uO:vO: "'*-27<@JMQVY^adgjry svʋ!5L:\£**i" :**DM*s x~#ø*> >2""CLKREAD .KREAD SBIOSVC _USRWRIT NRWRIT SECTSIZ iCONFLG [DSKREAD """"""*!#*i#*g#*e#s#r#`ie ~# x2*iMD!{2|:gGOW_XkzYKREAD CONREAD NREAD SETTRAK vTTRAK REMREAD MREAD SETDISK FRSTTRK mPRNSTAT >7!T USRINIT QRINIT CHKCHAR "SYSINIT VSINIT e~+ʧ#o&N<»w#~6!zy*YT   O ~@)&*W:[&:[2[7"W"Yկ2[!^Pɯ2[!͢:[i:[SBIOS ͅʀ!oq#6w"}y ͔ͅxû͔ͅ x> e*ͅ-*c# !##>!$'*-0369<?BEHWZ]`cfiloBIOS  "'*-27<@JMQVY^adgjry + ]NINIT REMINIT MINIT SETBUFR oTBUFR STATPRM IBUF DSKCHNG **i}o|g"Ґ">2\:*s"~ *~MD:uO:vO:ʷú!5 Ð:\**i"9NPOLLUNITQSTORE zIREQ CONSTAT NSTAT REMSTAT T PRNINIT : **DM*s x ~#*> > 2""""""""*!g*ig*gg*egNINIT QLOAD BIOS BIOS SKEW oFRSTTRK mPRNSTAT T s#r#`ie ~# xv*iMD!b{2|:gGOW_ڜ;<×;w!k—*q:!:|G:gObz"yUSRINIT QRINIT CHKCHAR SYSINIT SINIT IASY USRSTAT TRSTAT !e:{2u:y<4:m?о2u!:o="w*y;^*w:gOb,}2v7:yCINQIB PRNWRIT NWRIT  Ͱ~+ #o&N<w#~6'@'!;;!y*YT a v ~O ~BIOS @ˆrÅ*W:[Å:[2[7"W"Yկ2[!͔ɯ2[! :[:[²!ͺq#6  "}y !͔_! .!ͺ&_ ZR> BIOS enʘ*cgʋ!gg>!$'*-0369<?BEHWZ]`cfiloAFLORV`cK INTRPVC ]QINIT PSTOPDSK DSK CHARSINQoPRNREAD NREAD  IV.0 [a.3]SAVEHL #IUNIT GTBLKDV SCBKNUM |LOWRAM aSETSECT }TSECT STRTDSK  æòÊ6@3F$)8bbepHKNQTMDSK BIOSTB ]USRREAD KRREAD INTLV kICINQIB ^TRAKNUM eBIOSVC ==SYSHALT SHALT IBLK SECTNUM gDSKINIT NIT ILEN CONINIT >+>{:*i"y22\**"~*| >2,  "(,036:@DJOTX\_cgjnswzUSRSTAT TRSTAT DSKWRIT KWRIT CONWRIT RIT QSETUP REMWRIT  069<?FJPS^fnv&),/58;>FKU[ad2MWRIT HIRAM cCINQIB PRNWRIT ^NWRIT  jrwKNQT036:Y\&_,3BM"2BNQX^gn}& LORV`c;BIOS CLKREAD KREAD SBIOSVC _RINQIB USRWRIT NRWRIT SECTSIZ iCONFLG [ DSKREAD KREAD CONREAD 3NREAD SETTRAK TTRAK REMREAD MMREAD BIOS SETDISK _Y0K INTRPVC ]QINIT STOPDSK &:DSK CHARSINQPRNREAD  IV.0 [a.3]XNREAD SAVEHL gIUNIT GTBLKDV SCBKNUM |LOWRAM aSETSECT TSECT : 8)ÞëÒñhmY|fsZyHKNQTMSTRTDSK \3DSK BIOSTB ]USRREAD KRREAD INTLV kICINQIB TRAKNUM e==BIOSVC SYSHALT }SHALT IBLK SECTNUM gDSKINIT 6NIT ILEN =CONINIT NINIT REMINIT MINIT SETBUFR TBUFR IRINQIB STATPRM >o>a{~*i"y22\**"~*|M\>2*i}o|g"">2\:*s"~X*~MD:uOIBUF DSKCHNG nPOLLUNIT QSTORE IREQ CONSTAT ,NSTAT REMSTAT :vO:!5NW:\+**i"}Ò:M**DM*s xM~#@*> N>N2B"BT PRNINIT NNINIT QLOAD BIOS BIOS SKEW oFRSTTRK m""""""""*!ͫ*iͫ*gͫ*eͫSs#r#`ie ~# xº*iMD!ͦ{2|:gGOW_fknqv{ !*058=AEINTX\bilorux{PRNSTAT ngQT USRINIT QRINIT CHKCHAR @SYSINIT SINIT IASY -  !(+.259=@CFKNRX^enty| SINIT IASY USRSTAT TRSTAT DSKWRIT KWRIT CONWRIT ?PRIT "'.47=CFINTW[^flptwz~ %+7>SX\h{QSETUP REMWRIT MWRIT HIRAM cCINQIB PRNWRIT NWRIT  <w!k*q:!:|G:gOͦz"y!e:C{2u:y~+X=#o&N!q#6S5X"}y !PRNREAD NREAD SAVEHL IUNIT GTBLKDV aSCBKNUM |LOWRAM aSETSECT !8XCʍ!6Å!!8XC!6ý> eͲC*cTSECT STRTDSK wDSK BIOSTB ]USRREAD KRREAD INTLV kICINQIB !ͫͫS>S!$'*-0369<?BEHWZ]`cfilo/TRAKNUM eBIOSVC SYSHALT SHALT IBLK SECTNUM gDSKINIT $zNIT  !(+.259=@CFKNRX^enty| ILEN CONINIT NINIT REMINIT ~MINIT IPINQIB SETBUFR TBUFR "'.47=CFINTW[^flptwz~ %+7>SX\h{IRINQIB STATPRM CIBUF DSKCHNG POLLUNITXQSTORE IREQ CONSTAT  !$',/47<DGJMV[^cux{wNSTAT REMSTAT T PRNINIT NINIT QLOAD 8BIOS BIOS  KNQTtwz~$jPw~?~& SKEW oFRSTTRK mPRNSTAT T USRINIT QRINIT CHKCHAR SYSINIT . rhsr1UIs s s02s sss ses in disk allocation map} $buffer_size = 1024; {2 blocks + 1 (Must be multiple of 1024)} $buffer_blocks = 2; { Put CP/M disk into drive  and type >&Error reading CBIOS at logical sector Put bootstrap disk into drive  Number of blocks in buffer, Must be even} "TYPE $byte = 0..255; $buffer_range = 0..buffer_size; $map_range = 1..map_size; 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_as ss !ss/!ȭe1"s 1ss s h 1/ ddress==Checksum errorr data_bytes= new_address=Leaving process_a_lineeEntering get_HEX_codeLeaving get_HEX_codeeEntering p hψ/p<s ss sss ss sih!write_codeEnter name of .HEX file: .HEXX.HEXX Can't find Error writing Leaving write_codeeCP/M Boostrap Generator[A109 b!0ʊ b!A 09 b 0ʊ b A bkNs !ss  ss bss]] bootstrapprimary bootstrapCBIOS from a .HEX file (Y/N) ? CBIOSGeneration complete$Put in system disk and s s(s ss )xsskji"!m%(x%)x(xon&'&n)%(#dtype >qF| STRINGOPPASCALIOCPMUNIT  #"!#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|r "CONST $bytes_per_sector = 128; $sectors_per_track = 26; $tracks_per_disk = 77; $map_size = 16; {Number of byt/ rive from which directory was read } " "PROCEDURE initialize(title, version: STRING); "{ (Initialize the Unit and write out &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'-tha header containing the 'title' $and 'version' of the program. Must be called before any routines within $this Unit are calle $sector and put them into the 'buffer'. &This routine will return TRUE if a valid read was done or FALSE $is not. &One would. "} "FUNCTION get_drive(title: STRING): INTEGER; "{ (This function returns the drive number for the 'title' unit $desiredd normally initialize i,j and k to 0 and repeatly call $this routine until the entire file was read. "}  IMPLEMENTATION . The drive number 0 is used as an abort. "} "FUNCTION get_char: CHAR; "{ (This function returns the character reads from t he CONSOLE. $It will always return upper case. "} "FUNCTION read_directory: BOOLEAN; "{ CPMUNIT 8US+VPaTPr r`spĆĆ ĆĆĆĆ Ć(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 firĆ Ć Ć  Ć Ć ĆĆĆĆĆĆĆ ĆĆĆĆst DIR_SCTR_SIZE CP/M logical sectors $on the DIR_TRK track. (Returns the directory in the globals variables: directory $and ĆĆĚr+r  r ar rrr rW+b,Pr r"r  dir_structure. (Returns TRUE is the read is successful, FALSE otherwise. (Sets global variable 'drive' and 'dir_read'. "} "br +r `rr 1 . p"pi!"7r  r;r r! Ԗ .Br r-`r 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 $map_array = PACKED ARRAY [map_range] OF byte; $map_rec_p = ^map_rec; $map_rec = RECORD 0extent: byte; 0map: map_array; 0nTRUE. "} "FUNCTION list_directory(force: BOOLEAN): BOOLEAN; "{ (This routine will list a CP/M directory. $'force' is used text_rec: map_rec_p; .END; $finder_rec = RECORD 3records: INTEGER; 3disk_map: map_rec_p; 1END; $a_buffer = PACKED ARRAY [buo display deleted entries. (Returns TRUE if directory read was good, FALSE otherwise. "} "FUNCTION read_a_file(the_file: findffer_range] OF byte; " "VAR $dir_read: BOOLEAN; { Directory read into core Boolean } $CPM_drive: INTEGER; { Der_rec; VAR buffer: a_buffer; 8VAR i,j,k: INTEGER): BOOLEAN; "{ 0 r rl1Ւijh " 1! @  ppp h@jh "V k#! ! #p!  #p#r *xrr )xrr (xrrr !rr "rrr "! rr1+(x!  #! ! #p hlr r,@r rr Sr r "! ppp"j"j!i!Mp((xċ'(x())x)x)**xr r n Entering inSrr-SSSji!"#S!S!S!aA!i؈SjbSPtbRtbP pSitialize Leaving initializeeEntering get_driveeWhat unit is the  disk (0,4,5,9..12) ? Drive not on-lineeLeaving get.Spir !rr!!R-S!p pS!hr  rr  S! _driveFile Control Block Entry_type: File_name: file_type:  File_extent:  record_count:  Map: Epr r, {S}Pr rp i ;r rr br r fntering read_directoryCP/MMLeaving read_directoryyEntering test_the_namee The_name: Length: ... Dot_lr r!@*!x\!ObOfO *5|P2r br fr r !rrOx !oc: Ext_size: Leaving test_the_nameEntering find_a_fileeEntering find_a_file WHILE loopName:  Ext: Found the file:  ćPOćP sPyOćPyOPy !@Qh Qհ RbRfRRx(Ն r  rr as FCB Adding a map - FCB Leaving find_a_file WHILE looppLeaving find_a_fileEntering write_directoryyK) K LeaviĄ sPPxRɢ+R+RPy ,),x+x ),, -P+Ċ- ++ , hI!ing write_directoryEntering list_directory%Error in reading directory from unit Leaving list_directoryyEntering read_a_fileeir r*&r r~O0r rbpJ@Li!L!! !i@Li!L!MMxPb!:  j:  k: track: sector: PASCAL absolute sector: Leaving read_a_fileo qFy 6 EXTRAIO STRINGOPHEAPxMxKb!ĄCMGMMɤIJJ!@Nh NJ OOxK塇OxKOCOGb ćIOOPS PASCALIO ɢI hK (u uCr Gr IrK =r Ar Jr!irE K aAi i$iSr #rr]r !xrrdr !r kr !r rr rPQr ri1]r 1rri pr rg f,|r r+rr !rzr !rrr jh "! r hr !xjp'G'h x*x  h x*x)x(x*x)x(x& m%)xk#i#j(x*x)x(x&Ղ1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L