IMD 1.18: 2/06/2016 18:32:20   7\XMASMENU MASMENUCOPYRIGHT (C) 1979, DIGITAL RESEARCH _͌> ͒> Ò> Ò͘~#͌ì _2<د2? ه!߶2:2a{_:߷ʖ:߷>Ľʖ:=2–!B!6#5ʖ:S:2E!~Яw>T D^6k-äPYy 5*{zBK5ڋ>*Cw~#+w#w+ɯ2E22i^ *C :~w~͔͔# #  w ~>2!E5T*C!"C"C!w# F! w͌x2͢*C ~<wʃG:!ʎ ݯw4!Y~ʆ͌†t=ʆf ^ T ݯ2o&)|+!<ͧÆNO SPACE^ :Ty!B*O=?_s#"^sG!~Y޸psp2mÆÆf ͧÆFILE EXISTS _: É: :߷ʉ=2)ͽÉ T!@k!B}|q=qf^!~2>`~2߯2\!!B!~> >#0~O#Cx2͘1)ͽÂf zͧÆBAD LOO*!O*|!6ʝ6>*w#w*w#w'û*! J*""!N#F*^#V*~#foyx*{_zW+*yx#*DM*s#r*s#ryOxG*0MD!!N: EG>O: \S*C :qn& ^#V>O^"*}:*)=":O:o"*C *C!ͮ~2~2ͦ:2ͮ:O:w:w |g}o*# ):BO!yoxg*:BO}!N#F "*#*s#r^ ~!J! J*:o$*C~i6iw*Ľ!ͬʧ )!F#xʺ~0wëw!" !~6ͽ:ý(!#͘*~ "ڷ"͌#>?͌͘ =_.:;<> Oڅo$>!Y2*O"ʉ@G:ʐ:wÖx2p0ʹ#*©6?ëw˜0ï#6 ¹.0#*6?w0#6 #6" #~?  xDIR ERA TYPESAVEREN USER!yO#< Ty#O 3ۯ21y_͸2y2ͽ:طì 4~ʶ¬:<ʶ$ʶïZͻx>2>2ͻ:!Z2:Eẅ́͊Ͳ>2>2T*CGͻ:ẅ́n>2;O ^DM;}H>"*C ::ddslO s#r:E͊:==»y==»*Ww#*"͸*:G#š"͸:!w4!iw:Z!E~=262*C!!~~#~O~G#n,-.‹! w! yG!x͢.:E<ʄ! q!pQ:E<. ʄ$.:E<ʄADCOMf^: !߶ Â$$$ SUB"C{2!"E9"1A22!ty)K!G_^#V*C~E ,&-AGMS!!ô!ô!Bdos Err On : $Bad Sector$Select$File R/O$:BA2!~6 O͐  :E B 2>: b# : y! 4 5~yy5 6y*{#zr+s{ozg**͕** ,w͜͸Ͳ!!N#F$**O!~#:A#~$=2Ek͌::/GyO>2!q*C"͡ʔ*JҔ^:Oyʃ?|x | s-|N-# 1͘A͌>><92^ :߷¥.!_~#fow]ݭގޥ!v"!çREAD ERRORçNO FILE^:߷ ! ~ 3#0 Wx x ڀ ڂ G ~ # 3x~#B!Y~ɯ2:߷=!߾ý:߷=!߾:ý^T!~  6?#ˆ:`O> K{͘A͒>:͒͢>:͒͢xK > K > ͒x  ͢ØÆ^ BRͧ9!5‚#~Y‚#"T<ÆALL (Y/N)?^ Tʧ͘!6!~ڇҐ^H@Oy H H: –ͬ  #H: !  Hù H H $O͐: 2 *CN# x: 2 p&x~+é72 H! >w_: ! 5ͤNkͱ¦ͱxʊ#Nx: ! 2 ͤ! 5™#wO~x½p Hy<< ʑ :!qMD#2E>! ^#V w#P:BO|^#V#"##"##"##"!A     -BOSKUG 505EXEC COM: JRTPAS3 COM*LASM3 LBRjLSTXRF13LBR4 !"#PASCAL LIBc$%&'()*PASCAL0 INT<+,-./0123456PASCAL1 INT1789:PASCAL2 INT';<=PASCAL3 INTO>?@ABPASCAL4 INTCJRT-INT LBRDEFGHIJKLZ[\]^_`JRT-INT LBR?abcdefghijklYAPRINT DQCMNYAPRINT1PQSAOPQRSZ80ASM LBR]TUVWXYÊ ÛY Copyright 1982 JRT Systems DISKSABZZZ UZ!9"1Ù UZgZ͖\Z'[5\ xZ(*]DM*ofͦ*_####Rq#p >2:x{V  :g|KxGs1%VKW{MLLLh  1234567890-=`qwy[]a;'\zm,./eiou!@#$%^&*()_+JRT-MISCLBRmnopqrstuvwxyz{|JRT-MISCLBRK}~C-TO-PASCQ exec comYAPRINT PQS͛Y* Program termination $>2*]"d*d*d"d\3\""`i"*^#V#"{Šzʟ*^#V+*s#rt*_w#w#w#w#Rs#rx2L"JOH*J:LGdHI!yw# y*J@ z{xN*J:LGd"M-*glL!.#z !IyEw# y;*Mx2"!"*""­*͹\"ʗ**DM*"Ý*Y:G**ͩɯ<##N#Fxyxxyx`i>`i>^#V>i6}2ExN! ~态O>G~G!~G} *C!r#r#r ^ͥ_y#x#{s+p+q-*C ͥ!!q#p#w*:BOYG}*MD "ã:!Bw!>2*C~=2u:B2~2wE:A*Cw>"!""2B!"!rQQQâ~?ͦ~?rQ*"CQ-Q͜QüQrQ$Q*):B"*)*)Q;*"E:;:A2AQÓQÜQ*C}/_|/*W}_*"}o|g":ʑ*C6~QWY{}A:"|ZM<>?EIOU16T!336&*D+2:$2(Iu1 ## #### ###^^nfut ###:ʑw:2E**E}DQ>2Ó5ELV_hqx|ÀÄÈÌÓÚÞâ$ͷtE(tͷtͷtͷtͷttt t!t"t#ͪt$ͪt%t&t'z2t!("R!"T:C*R|+"R|*T"R!"Tt4t012P2Q2<:P(2Q+2:P+:<:Q+:P+_ 1!"3"5)>22!"!"!~~jwO1!VsV1!  <"O"Q`i"U "W*Q|/g}/o#T]"S*U*Ws#r#*Ss#r*W*s#r*s#r*c *eDMz/W{/_`iDMxyxڥ`i"e*Jͩɯ G*%5+V+^xɯ<48#+C.!,#z +~>8>4q#p#s#r#w"*:_s#r#s#r#p**s#r#64"" <26#6#N6#F6#~6**"s#r#q#p:4*:_M\*^#V ^#V+r*c+V+^pC:12:1@2*1*1s#r!i$z *c+V+^"c~6#~6#^#V͌2*c+V+^"c~ #~ #^#V#"* *cs#r#"c!R#z >2c*c+V+^"c*s#r#"*+V+^"*cs#r#"c!"2:#"Ë*cC4+F+NG+F+Nx/Gy/O N"c^#V#z/W{/_`iDMxڟ^#V#DMʥ^#V#"+*"*:=2#*DM!)#z !(#z b*c+V+^"+~2"+F+Nq#p#`i""c"M ~+ z `i"`i"O ~w : *K *M *O DMͽ :I @ă z/W{/_`iDM`i"G *C ^#V+"E q#p ¼ *G s#ro&))*E *G z/W{/_##N#F r+s" " `i" | }x * " * |/g}/o#T]" * DM* fI !1 >N#F#x* yx< <@ !+#z _*gK*I* " * +" !]͛ *_DM*a!xw yxʖ ͛ bk##^#V!n ^#V* DMz® {x* DMz {x* DM r+s**E DM^#V##z {x < !/#z +""2!͹""*Cd*͌**!N#F#z{xN#F#x"yx5######=h~# :*|*͹""*"*͟""*z/W{/_`iDM|“}xڛ`i"*z/W{/_͟""*"7*:2***:|^&--  $MXC !*#z virt addr:1234 call:1234 $}xgxqg{q&* >“#ʞŠ!-#z +"> 2@!͹:_!))>p#p#="|!*"s#r#s#r6#w#w#w#w*:_>w#w#w!N#F#N#F |}*e*cDMx/Gy/O *>Y*}#"}ͱ ͑ {ʞ"##^#V" :_!*^#V*5 i "!""2W2N*"!"- !1 "/ *- #"- *gK:I$ :I */ 6"*c+~2Ì͓"c*"**z/W{/_#*DM+"*w# L":=2**s#r͹*6#6#s#r+V+^"+V+^"+V+^z/W{/_~2+V+^z/W{/_~222*c@ *ez{!3#z *]^#"]!^#VUz #U\nUU$ 9 UU// /./TbUUUP UUU-VFVUUU UUUUk UUUP$y$$$UUUUUU UUU,..,.,g.UUUUU['@KUQSUS.U..c!UUUU!#Q##U_U#UU`w#" *"e*s#r#6F !""bk6#6#s#r#6#>q#p#p#p#p#=c >dp#=s >2͞ ͐  $|#}3ʫ .   %Error: Insufficient main storage$:w    ͌ %Warning: $*a*_z%{x]: h!:G*|:y#~# L s = =%Line 1234 $%Main $%Proc $g͚̈́*]!UZ*o*_ *a-*c:*eF*}S*` addr :0000 Ow# ":=2*]T ":*T:O**w# _ s Msg err $  PASCAL.LIB error $}_}|og%Error: =*cs#r#"cBK*c+V+^ s#r*c+V+^^#Vs#r*c+V+^N#Fq#p2*c+V+^ s#r>2 x4y7{PY!A)I)Q)Y)a)i)q)y*]^#V#"]*a*cs#r#"c*]^#V#"]*_*cs#r#"c*]^#"]*a*cs#r#"c*]^#"]*_*cs#r#"c*]N#"]*c+V+^ s##6#"/ *I:I*/ s#r#"/ */ 6#6* ^#V##{ z ¶ 4~ w !"1 *"3  *3 ^#V##"3 { z *1 5 "1 + *1 w#w#w#w#"1  >4^#V#xI yxy ###=< yd xd q#p#*w DMq#p###~ BK++++"w !> ^#V#x¦ yxگ û BK++" ##2##=™ x :_> 2* ɯ<"C N#F#`i"K ^#V#~2I bk +*DMQ  prog :0000 size :0000 base :0000 cur :0000 tos :0000 low :0000 compr:0000 purge:0000 $  !"2*#"*gK:Iʨ:¢<2 +y  exproc name addr use cnt time stat $ 12345678 0000 0000 0000 00 $|S'r#s#yS'r#s:G:> :>+2I!w# E*I:I*I*I:IS'cj" :1:21:2@2!2 ~#  :1S'cj"<@2  :----------- 00 * $PASCAL LIBA     U*0F0UUUUUUUc--c0h0m0r0w0|0VTlTSST.TBTUUUUUUUUUUUUUUUUUUUA%F%K%P%U%Z%UU!!5!L!---U|&&TT&&{GGGU&U&'Tx'1SUUUUUUU!U!I"UUUUUUZ**>*DMx*:**<*~+ x**4**.*#":**8*"<**6*">**>*DMx*:**<*~#V+^>*]~#,GO*cw# p#6#"c"]"]*c6#6#"cw# y?q#p#"c*cq#"c!| *c+F+N"cq#p!| *cw#w#"c*c+V+^w#"c*c +~ "c*c w#  "c*c+F+N+V+^"cq#p*c+F+N"c*aq#p*c"c^#V#~# ` BK*c+V+^z/W{/_+V+^"c" Õ 2 z¢ {x >2 z/W{/_`iDMy2 x2 BK* w# y : *  p#z *c"c^y/O +V+^`i"=%"?%T]x*%w# x %*=%DM*?% s#r>_%>_%>_%>_%>_%>_%2v&*c+V+^"y&z/W{/_T]+F+N`i"w&x/Gy/O "c2{&*w&DM*y&x®%yx%ھ%MD>2{&%>2{&x%I&D&# x%:{&N&&*w&*y&DMx/Gy/Obk T]~ D&I&#z&N&*w&*y&DM|/g}/o# DM I&D& x1&N&>P&>P&>G:v&g&*c6#6#"c*c6#6#"c*c+F+Nx/Gy/O #6#"c*c+6#6#"c*c+V+^z/W{/_~>>>z+xyx>>>>*]Fx2#~#>N#Fp+q##"]`i:> ~#_6 #6 :x@!:G%Entry *]N#T] "]:x@ A^# %Exit $ $^#ʐ:ʚg0 Q ʁ@G!E# :!x!4#z 0Z *]"]"=*a"*c"as#r#*s#r#s#r*a+~/G+~/O "c##^#V#"a^#V"]"]*c++~"c"]*c++~"c"]*c"c x**c+V+^"X++F+N`i"Z++V+^"\+"ch++*`+*b+MDxK+*^+w# yA+*f+*\+s#rx+ʮ+*X+ +^#V"d+zŠ+{xڴ+:Y++*X+*d+z/W{/_"f+!Q#z !R#z !S#z *\+#*Z+"^+*X+"`+*Z+DM*X+*d+x/Gy/O z/W{/_#"b+*c6#6#"c",!,>6#=,*,|d,+",*c+V+^"cz^,*cz/W{/_"c~_-a,g,#,,*c+F+Nx/Gy/O ~O+V+^z/W{/_"c~_3-",!,>6#=«,*,|,+",*c+V+^"cz,-,%-ò,*c,w# ,"c#V#~# !*c+~/w+~/w*c+F+N"c+V+~w#zw*c+F+N"c+V+~w#zw*c+F+N"c+V+~w#zw*c+V+^N#F#y!~# yu!s#r#"c*c+F+Nx/Gy/O xª!yxڲ!BK+V+^"c##yxy~# y!*c+V+^N#Fyx*c+V+^"G"+V+^+F+N*G"x "yx"!F#z x/Gy/O *G"DMy;"~# y1"s#r#"c*c+~N_"+V+^"G#g"!"G#+F+Nzt"{xچ"ʆ"چ"!G#z x/Gy/O "I#+V+^"K#z/W{/_"M#"cy"{"~2F#*G#+|/g}/o# DM:F#"# y"*cw#w#"c*K#"O#*M#*Oc*c+V+^+"M'"O'"c)+r+s+"Q'*M'|J'+"M'*O'~+"O'S'*Q's+r+"Q'&'G `'7b'0_x t'7v'0W*c+V+^z/W{/_͑'{~͞'w#Ñ'a{ *c+V+^+F+N"c͹s#r*c+V+^"c^#V͌*c+V+^+F+N"cͩs#r*c+V+^"I(+F+N+V+^"c"+(`iN#F#N#F#^#V#^#V*I(q#p#q#p#s#r#s#r#*c+V+^"c{ʬ(ʷ((((((( ) ) () 3)>)I)T)_)!@#z :w2w:w2w:w@2w:w2wN *c+V+^"c"s*c+V+^"c*ez{x*glL*glLN "*iMD*gIa*c+V+^"c*gCLÕ*c+F+N+V+^^#Vr+sxxڃxyڃ*]##"]*c++++"c"]zxÃ*c+F+N+V+^^#Vr+sxz{*]##"]*c++++"c"]z*c+N+V+^^sy*]##"]*c+++"c"]*c+N+V+^^s{8*]##"]*c+++"c"]**cs#r#"c*c+V+^N#Fq#p*aN#F*cq#p#"c*cs#r#"c*cs#r#"c*cs#r#"c*cs#r#"c*c+V+^w#"c*]*cw#"c"]BK*c+#+"O#|$# y#"#""*I#|/g}/o#T]*cs#r#"c *c+V+^z/W{/_T]N#F#~# xk#s#r#"c*c+T]F+N+xʙ#~+ Ì#+DM"cz±#{xڿ#}|{z*c+"cV+^+F+N`iN#Fx#yx#~w#6#6!O#z .$*c+F+N+V+^"c^#V z${x($w!P#z *c+V+^zK$z/W{/_~"c"c*cDM+V+^z/W{/_~#zg$`i"c*c+V+^z/W{/_"c*c+F+Nx¥$yx$z/W{/_`iDMx/Gy/O "cx/Gy/Obk T] p#z$"c*c+F+N"cx/G  {怲{xO!, {G7-w*c+F+N+V+^"cx<-yx`i"a-"_--*a-DM*_-3-*c+V+^z/W{/_"c~_×-*cV+^"c##ͯ.¬-*c6#6#"c*c6#6#"c*c+T] w+-"c*c+T] w+-"c*c+T] /w+."c2f.".<2f.*c T] "cP. 1.:f.P.*c6#6#"c:f.:.*c6#6#"c*c T] "c. v.*c6#6#"c*c6#6#"c*c T] "ct.x».yx.{xO {G7.ɯ*c!~# ."c*c"c*1"1YF~C**2|f=:=C= = :=<2=!="=O +6,:= =:==2=*=~#"=B>ʖ=C=:)2u=2=Ç=:=‡=:w 2wÏ=:w2w!"u!"u = %Input error $'Z>???Z>>'2?:?n>2?2?þ>:?:? > ʆ>:121 •>:121 ʾ>,ʾ>*?w#"?>2?:?<2?һ>>:??**2+"*2*52iAN"32! ? >:?»>2?2?!=2"?**2|?>3!=2w# 323232333!3ͱ3!3ͱ3!3ͱ3!3ͱ3!3ͱ3!3ͱ3!3ͱ3:3G292x:3_:3W";2!=22202 d'B@GN#V#^!3{w+zw+ywº3~23#33 3:3?_!3+3~+ 3~#Gx:02#4*;2!=22202*92T]=2 w#"92}*;2T]#";2!=2ͽ2!"92>202*92}o4*;2#";2!=22!"92!=2~#"92*92|*;2!=2ͽ2!2! s#r#6*.2:)2@ʽ4*1!4R4*.2SV!43!"u"7"7*c+~2)2+V+^"c"*2;:)24H5E5*,288U!T82I:*32~2J:#"K::J:AN9=2J:*K::I:<2I: N0*C:w#"C:(9:I:*C:60#"C:*E:|ʼ9}o9>2N:*C:6.#:J:@җ960#<"C:2J::N:=2N:z9"C::I:<2I:*K: N0*C:w#"C::N:=2N:š9:I:<2I:>2M::M:*K: N9:I:G:M:=2M:9*C:6.#:J:@960#<9"C::I:*K: N0*C:w#"C::M:G:I:<2I::*32++~"32f:!t:!p:truefalse*32+F+N++~"32ړ:!t:Ù:!p:z/W{/_`iDMxҳ:*32"32!:";;";;";;";;";;";!:00*c+F+N##q#p#"c*c++"c*c+V+^s#r*c+V+^s#r*c+~/W+~/_s#r*c+F+N"c+V+^ s#r*c+F+N"c+V+^x/Gy/Obk T]s#r2)0*c+F+N"c+V+^xү/x/Gy/O>2)0z/z/W{/_:)02)0x/y/{PY!/)/)/)/)/)0) 0)0:)0!0|/g}/o#s#r*c+F+N+V+^`i0s#r#"c*c+F+N+V+^`i0s#r#"c>Á0>Á0>Á0>Á0>Á0>Á020*c+V+^"c+F+Nx0z0x¦0yx>ʵ0>ڵ0>G:006#66#6>õ0z0x0yx>ʵ0>ڵ0>õ0>õ0|A1z:?H77@:?&?>2?:?3?>2?ɯ2?>2z?O!=2 +~HS?{?V?*@!=2~-g?z/W{/_BK*32+V+^q#p:y?:z?ڌ?>2y?!ɯ2y?!=2~+ʞ?-Ÿ?#?~#?²? ä?!? ~?W#~?W#~?_#~?_000000000000:0@:%@A@G%@a@g%@H'@h'@<2y?ɯɯ<:z?;@>2y?!ɯ2y?:z?G!=2~+S@-U@#z@~#@q@ Z@!u@ ́@!000000000000"@'ͭ@ͭ@dͭ@ ͭ@ͭ@*@~O#+*@"@0@:@ɯ<2y?*32+V+^+F+No&z@{x A A|/g}/o#TpC:15!9#z :)2`,5:1@&5!>#z v5=5:1@:5!=#z ͥ6*,2~C> 21<7r5:wb5:w@M5M5 $*1"5<7*5*1DM s`i"1Y652S6ʮ5`i"Q65*1"Q6*1*1z/W{/_"1*Q6)|2X6*1"V6"T6*V6T] "V62#66!I#z 6!J#z !K#z :X6=2X65:S6*T6*1 ~# H6*1*1|/g}/o#T]*1z{6{xܟ5*c+V+^"cpC*1*1"1Y6~C!" 7͜4:)2@6* 7*1z6{x66!:#z <76{ 4* 7#" 7î6:)2@ 7* 7*1z/W{/_0002!;DM|;:!;<2!; ;`i:!;0*;w#";ɯ2};|D;|/g}/o#>2};:!w;:};Y;6- #0f;[;w# g;Y!w;000000*32+V+^z/W{/_"32*32+F+N+V+^z/W{/_`iDMx½;z/W{/_"32:)2G*c+;V+^+",2x;".2+"52**2<#"czF< << O~x/Gy/O 1<1<<#N#Fx/Gy/O .<    !"u!=2"?2=2?2?2?:12212*c+~2)2+V+^"c"*25A:)2ʠ<=<*,2pC:1¶#z D<:1@ó1²1O:12111O:121}o|g1x21*c+~ 297&7297:97 4*:7+":7|&7*7|M7+"7 â7*7|d7+"7*7^#"7â7**2|ʤ7+"*2*5221"1*LBB:)2`ACC*1͹"1!"122!K#z 2žB!M# :12121>2ME3D2ME22!K#z 22#~+:B~22##!2 6 # B2~#.CB~#.PQ*QQ*Q.N!!Qw#6Q*Qw#DQ*Q!Qw#VQ!QnN/Q! Q'+ nQ=*QF*QNPYxG{Aw:(Q*Q#!)Q±Q#¢Q<ɯ*Q#~!B# *Q~w>#6#=Qɯ2Q͓QQeQ:Q<2QQ!!Q̓P:Q"R!RO*R42nO>#1O~w"R"Rz5R6z/W{/_7R6E͖R͖R*R#w"R͖R͖R*R#w"R͖R*R#w>#6#=„R*R.N2RDM|ڬR:R<2RÚR`i:R"MS_S7S!"OS*MS~A3S@G>#z2nO1O>*MS# NQS> N QS> +G 4G!8#z *EGV+^"F!"F G!"F G!"F G*EGV+^+"EG"F G*c+V+^z^G{^GrGpC:1rG6#66#6*c+V+^zšG{šG:w ʮGåGpC:1ʮG6#66#6͜4R4G:1 xG̓FGB>ʺG!?# *c++N +V+^"cq#+ ~6+w2HH2FH2GH2PH2QH2RH<2OH*32+V+^"IH"KH!=2"MHH}H:FH IPI*KH.NG:OHmH>2OH*IHxw#"IHɯ2OHx*IHwH®H0}H.ʰHEʸHeʸH2H@:HSH!PH4HʈH>2FHîH>2GHîH:HHH=2HH*MHF#"MHxɯ<*MH~+H-I*IH6#"IH>6#=HHM*M"My2RM!$͹"SM"UM:RMXM*UMMMGxNM*SM2M"M:WMw#w#fMw#w#w#:Mw#w#ƒM*M# ͑'!IM~#  M Mz %Extern 12345678$M_OG>Ow# M6#M ~Ow+yGMɷ,NG=_Nx$Nyyɯ>2kN#"lN:kN*lN NWN:kN<2kN7N*lN+6@*lN:kN=M*lN+~wxw# rN+~'w +N#ڜNŸN ŒN>>~GڵNʳN>ɯ>N~N͢NNN#͊N~N͢NNN>>#͊NNN2O"O͝CB2~#C:)2O(Cx@Gy@2CxGy'E# D:LE=2LE¿ NdQS> NQS> N'QS+~*OS|/g}/o#!!A# *MS~IS!!*OS=VS"OS}S͸NzS*MSS͸NzSɯ<2vE2vp"S~ڜS!SßS!SS~# ¤S*S!SO*SͳR@PP~w~w*c S*c S*c "cT] O*c "cT] ~w.NO*c "cT] SV*c "cT] P*c+V+^ "cR*c+T] "c+w+ |TV+^R*c ͳRs#r#"c*c ͍Ss#r#"c*c+V+^{2T+V+^"T"cU:TZU+0.12345678901234E+9HH*IH6H:PH%IHEI0(I!QH4IHEGIeGI2OI@:OISHH(I>2GHEI:GH[I}I:PHqIG:RH@*KHw:RH!QH@iIH2IH2I@H2I@!Í@:I-ʫI}2RH}/<2RH00000 K:IJ:I I͚J"I"I*I#"I*I#"I"I:I2IL*I:I!!͹"I"?JIAJXM*?JDJ!D#—MINT"iJkJ>kJfJ*iJwKJɯ<ʂJ*J~#"JZJ>!U"J͌:IʨJ!N#z *IJ"J"J ͹"J"J*IDM*J*J3K*JDM*Jf*J*JP|O*O͝P|O:O>> 'w+ &Oɷ "lOG>GxoOWxoO*lOw+"lO CO|O|O N:nOڅO> ͢NOʭO2nOO~#1OO~2nOG#1OO#O"~P"P~GOylP/P_P~6P*~P~2P~w*P~w͈O#P*~P~z2nO1O~w*~P~G:Pw*~P.N#nN*~P*P͈OUP*~P~w#nN/P*~P~w/P~O#nN:P/<O~#uP ~Ow+yG‰P#>~#O O =¥P"Q"Q#"QͳQ}Q0QQP*Q5QOQ*Qw#"QD*JE*HE|/g}/o#T]"1:121E*HEz/W{/_"1:121E*1*1|^E}xҙEYFNE*1*1DF"1*1z†E{xʏEx:121x:121> **2|:1NE̓FE«E!?# **2|E:121:1NE E EB>EEF> :)26F:1NE F -F F,F*1+"1:121:1G21:1NE UF AFNE*1*1|/g}/o#T]*1zzF{x3D2F:12F:12@½F:F*Fw#"F*F+"F|ʯF**2|ʽFFíF:12@212>:12?212F*52**2"*2iA~+"EGG"GG ! 6:3 K!Q#×M+K!C#×M**`i"K"Kbk{_z/W{/_"K2KʓK*K*KyK!C#×M*K"K:K=2KfK*K*KDM*KyKw# y¶KK:I@2ILK:I2ILBK)))) I~#KBK)))) Iw#L!"K*I͌*I͋J2ILK*I#"I"I*I+"I}fL:I2IL"M!" M"M*MK:IʻL:I²L:I ʲL* M*Iz¬L{xL*MxL* M|L}L* M͌*M*MK:I2IL*#"ɯ<" M*I"   9"UU~U>+2TU>-2T~͏U>2YU!T"WU*UU# N0*WUw#"WU:YU<2YU'U!T"T>2T>2T:T*c6 #=`U:TG*Tw#pU:To&:TO s#r#"cɷU@ڣU@G>+2TíUG>@G>-2Th&:###~2T#~2U>+2T>02T2U>U>U>U>U>U>U2,V*c T] "c͸NV>G:,VV*c6#6#"c*c6#6#"c*c!~# 7V"c*c"cV"V"V#rY*V#rYzgxںV{*V*VVy*V*V#'W W~+WW zW VXs#r**ws#rͳ*ws#r*c *eDMz/W{/_`iDMxQyxg`i"e* kɯ G*5+V+^xɯ<4#+!,# +~>>4q#p#s#r#w"L*O:Q_s#r#s#r#p*L*Rs#r#64"͜" <26#6#N6#F6#~6ʖ*I*"Is#r#q#p:4*l:ʲ:M\*M^#V ^#V+|^--  :!T$! >2}[ [< INT file not found$[\F[ N[K[_[ɯ< INT file empty$:[3ʏ[ r[ INT module not version 3 $*]*["g*["k*["o*["q*["i*"m*]*o"_"a"c*]*qt\t\*mzl\{xt\ \< insufficient storage$!\½\½\\  PASCAL.LIB damaged or not found $"&]6>Ê2 Copyright 1982 JRT Systems DISKSABZZZ2r<!9"1Ùr<=ͦ>̓<͵<͓=c *]DM*o(h*_####q#pb*>2*]"&*&*&2gWjW~Gx# /W:gW=wWW`iX! !wW=RW=!wW_PY +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? !VX# XGY! ~ YT]qYXxx*M >2#=)!-# +"R> 2Q@!{:Q_!))͜>p#p#=c"|!ʁx͜*I"Is#r#s#r6#w#w#w#w*M:_>w#w#w!IN#F#N#F |½}½*e*cDMx/Gy/O *I>*}#"}g 9 {="C##^#V"E* :G_!*M^#V*C̈́ U C D E H L M A B D*M"A!"!"*#"*g27: 5:5 ª*6#6#"}*5:5̜*s#r#"}*6#6<2(]!U")]+]#]*&]w> ]>*)]~ZE]#")]G:(]+]xɯ`i>^#V><""`i" "*|/g}/o#T]"*ͳ*s#r#*Y*VF#~## Y*VNyWxGyO:V>5Y>@]YWYw*V6@#w# PY!U$z !V$z ~W#ʊYڊYOzʖYږYOxYyYxY"ZzʷY##"Yi&^#V+DM`if*Yq#p#s#r## Y"Z6#6͌ ZACALL error $i&))Z^#V+ KZ͛Y͛YExec ver 3.0 $!0 ~# oZ:0O!1>$ʋZ# Z# ~ nʫZaʿZlZpZ# ŽZ͛YåZ͛YåZ:x2xåZ:x@2xåZ>I2e>N2f>T2g\A     *M ^#V##{ z  4~3 w * !" *M"  * ^#V##" {_ zk * ̈́ " z * w#w#w#w#" G >4^#V#x˜ yx ###=‹ y³ x³ q#p#* DMq#p###~ BK++++" !> ^#V#x yx BK++"( ##2G##= x% :G_> 2G*( ɯ<" N#F#`i" ^#V#~2 bk +*ADM͠ " ~+ zT `i"A`i" ~w ʉ * * * DM : @ z/W{/_`iDM`i" * ^#V+" q#p# * s#ro&))* * z/W{/_"c^#V#~# b*c+~/w+~/wb*c+F+N"c+V+~w#zwb*c+F+N"c+V+~w#zwb*c+F+N"c+V+~w#zwb*cDM+V+^z/W{/_~#z`i"cA*c+V+^z/W{/_"cb*c+F+Nx½yxz/W{/_`iDMx/Gy/O "cbx/Gy/Obk T] p#z"cb*c+F+N"cx/Gy/O +V+^`i"U"WT]xBw# x8*UDM*W s#rb>w>w>w>w>w>w2*c+V+^"z/W{/_T]+F+N`i"x/Gy/O "c2*DM*xyxMD>2>2xa\# x:f1*`z/W{/_`iDM|#}x+`i"\*`z/W{/_/"^"`*V"bd͞*Z:X2 n ʂ*Z*Z*b:\Ow# ’"b:^=2^*b]T "bn ʞ:`*Zn :`O*Z*bw#   Msg err $  PASCAL.LIB error $}_}|og%Error: ͊ͻ*cs#r#"cbBK*c+V+^ s#rb*c+V+^^#V͜s#rb*c+V+^N#Fq#pb2Z!"[2]:Z"^-*cC+F+N+F+Nx/Gy/O N"c^#V#z/W{/_`iyx>>>>z/x#yx>>>>ʜʆ(X R &.!E#! !x!4# ͊*]"]"ͻ*a"*c"as#r#*s#r#s#rb*a+~/G+~/O "c##^#V#"a^#V"]b"]b*c++~"cb"]b*c++~"cb"]b*c"c*ez {xA*gͰ7*gͰ7A͊"*iMD*g"5_*c+V+^"c*g͇7Ó*c+F+N+V+^^#Vr+sxxځvyځ*]##"]b*c++++"c"]bzvÁ**cs#r#"cb*c+V+^N#Fq#pb*aN#F*cq#p#"cb*cs#r#"cb*cs#r#"cb*cs#r##N#F r+s"^ "` `i"\ |$ }xf *\ "b *^ |/g}/o#T]"d *\ DM*b (͘ !>N#F#xy yxʋ <@l !+# _*g27*5*^ " *` +" !] *_DM*a!x yx bk##^#V!ý ^#V* DMz {x* DMz {x*d DM r+s*M* DM^#V##z< {xN < . !/# +++Gx!"I*A#"e*m"M>`w#q *M"e*Ms#r#6͕ !"I"Obk6#6#s#r#6#>q#p#p#p#p#=² >dp#= >2 F > $|#}3 .   %**DMx/Gy/Obk T]~ \a#zf**DM|/g}/o# DM a\ xIf>h>h>G:*c6#6#"cb*c6#6#"cb*c+F+Nx/Gy/O #6#"cb*c+6#6#"cb*c+V+^z/W{/_~2ZÝxqyt{PY!~)҆)Ҏ)Җ)Ҟ)Ҧ)Ү)Ҷ*]^#V#"]*a*cs#r#"cb*]^#V#"]*_*cs#r#"cb*]^#"]*a*cs#r#"cb*]^#"]*_*cs#r#"cb*]N#"]*c+V+^ s#rb*c@ *ezbW\{b!3# *]^#"]!v^#VFZoV`V 'VVVDYVVi!|!!!tVVVVVVVVVVVVVV.VVVVpVVVh &VVVVVV#"cb*cs#r#"cbBK*c+V+^^*]~#LGO*cw# 5p#6#"c"]A"]*c6#6#"cbw# y_q#p#"cAv*cq#"cbv! *c+F+N"cq#pbv! *cw#w#"cb*c+V+^w#"cb*c-+~ "cb*c&w# 6"cb*c+F+N+V+^"cq#pb*c+F+N"c*aq#pbBK*c+V+^z/W{/_+V+^"c"Ú2z§{x>2z/W{/_`iDMy2x2BK*w# y:* p#zb*cError: Insufficient main storage$:w J    N %Warning: $|Ar#s#yAr#sPASCAL LIB"T"Vd2 !{"\͜"Z͊*T͠*\N*X*V! N#F#zv{xڅN#F#x²yx######=¥^~# *V|*`{"X͜"V*\͜"Z*^/"X"ZVVVg} v! VVVVV\%>VQVVVVVVVVVVC!\!VVVVVVVVVVVVVVVV!!!!VVVVVVVVVV""""""VVVVVVVVVVVVVVVVVVVVVVVVVVY^chmrVV#:Q" ^ @ VVVV4VVVVfVVVVVVVVVVVVVVVVVVV*V3%V?/-1VVVVVVVVVVVVVVVVV9VV*]N#"]*]^#V#"]*]N#^#V#"]*]N#^#V#~#F#"]`o*]^#V#N#F#"]`iyBK*a^#V= ^*]"*cDM*a*_!"]b[xzx  `iN#F#N#F#^#V#^#V*7q#p#q#p#s#r#s#r#b*c+V+^"c{ʚʥʰʻ    !,7BM!@# :w2wb:w2wb:w@2wb:w2wbb b*c+V+^"c"sb*c+V+^"c*g 7b*c+V+^"c*g7b:w2wb:w2wb:x@2xb:x2xb:x2xb:x2xb*c+V+^"{+V+^"c"yb*c6#6#"cb"!Z>6#=ƒ*|+"*c+V+^"cz*cz/W{/_"c~_jÊB*c+F+Nx/Gy/O ~O+V+^z/W{/_"c~_- -z/W{/_BK*P#+V+^q#p:-:-1->2-!ɯ2-!Z#~+C--D-#-~#͜-W- I-!- ~͔-W#~͔-W#~͔-_#~͔-_000000000000:0ں-:-Aں-G-aں-g-H-h-<2-ɯɯ<:-->2-!ɯ2-:-G!Z#~+---#.~#g.. -!. &.!000000000000"P.'R.R.dR. R.R.*P.~O#h*P."P.0s.:s.ɯ<2-*P#+V+^+F+No&z.{xڱ.ʱ.|/g}/o#T]".T]÷.!".!Z#z.~#ú.`i*.z6 #.:F#G*c+.V+^+"I#x.V+^+"K#""z"#x#yx>">">">" "$$"$*$*$2u2v"4$$"6$*4$*6$2u2v}2V#2W#)l&K$&"X#!Z# $2M#:M#q$*X#!Z# $2M#*V#T]Z# w#"V#}*X#T]#"X#!Z##!"V#>2M#*V#}ڽ$*X##"X#!Z# $!"V#!Z#~#"V#*V#|*X#!Z##{2 %z%bk)|2!%l&)4# ^#V| %>2>)͆(!8):>))6- #0'))w# ()Y!8)000000*P#+V+^z/W{/_"P#*P#+F+N+V+^z/W{/_`iDMx~)z/W{/_"P#:F#G*c+³)V+^+"I#x³)V+^+"K#"R#*G#)#"cz* )) O~x/Gy/O )))#N#Fx/Gy/O )    !"u!Z#",2_+2,2,2,:N#2N#*c+~2F#+V+^"c"G#.:F#b*Ͷ*ó**I#*k0:3#{*!9# :F#`—*:3#@ʑ*!># 1è*:3#@¥*!=# 4*I#*k1b*G#| +:]+* ^+ :_+<2]+!`+"[+O +6,:]+*:]+=2]+*[+~#"[+Ú"X!Z>6#=*X|B+"X*c+V+^"cz<j?͌*cZw# J"cb{怲{xO!Z {G7„w*c+F+N+V+^"cx£yx`i""j*DM*Ú*c+V+^z/W{/_"c~_*cV+^"c##! *c6#6#"cb*c6#6#"cb*c+T] w+. "cb*c+T] w+L "cb*c+T] /w+j "cb2 É <2 *c T] "c· ˜ : · *c6#6#"cb: ¡ *c6#6#"cb*c T] "c *c6#6#"cb*c6#6#"R#*G#/#"cz5/ // O~x/Gy/O /  !"u͊/!"B#:F#`/:F#@s/ y//|/0|/:0*I#*k1b*c+~2F#`ʨ/+V+^ {_"/+V+^"/z/W{/_+V+^"c"I#*k0*/r0*/">#0*>#{"<#!"@#!(#0#V8"4#͜!K# !(#0#V8"4#60!M# 2!!{"4#͜"p0(#0#͜8*p0*p0!K# 23#28#~+:‹0~28##!(# 6 # ‘0(#~#.ʹ0ž0~#.ʹ0í00#~#¾0:3#G:F#O0x@Gy@0xGy0x Gx23#BK)) )):!%"%s#r͜: %! w!6# !(#0#OV8!5# !"u"'"'*c+~2F#+V+^"c"G#͎):F#d%͸%õ%*I#*k0:3#}%!9# :F#`™%:3#@ʓ%!># %ê%:3#@§%!=# ͟&*I#*k1b> 23#L'%:w%:w@ʽ%ý% $*<#͜";&L':&*;&*@#DM s`i"@#*>#|&}x%*4#͜*>#DM*;&=&!"@#%"&"&! )|2&*&T] "&*&ʇ&v&!I# &!J# !K# :&=2&M&!"'*K#:F#@ʻ&*D#DMh8$:F#@&*'*D#z&{x&&!:# L'&{Z$*'#"'þ&:F#@+;+*:F#+2]+,+:]+,+:w 2w4+:w2w!"u!"u J+ %Input error $'+ͽ,ʥ,ʥ,+>'2,:,,2,2,c,:,:,E, +,:3#23# :,:3#23# c,,c,*,w#",>2,:,<2,`,>:,ʥ,*G#+"G#*R#/N"P#!, ,:,`,2,2,!Z#",*G#|¥,>ɯ,y.:,,>2,:,,>2,ɯ2,>2-O!Z# +~H, -,-!Z#~cb*c T] "c x"!yxA!{xO {G7:!ɯ*c!~# M!"cb*c"cb*c+F+N##q#p#"cb*c++"cb*c+V+^s#rb*c+V+^s#rb*c+~/W+~/_s#rb*c+F+N"c+V+^ s#rb*c+F+N"c+V+^x/Gy/Obk T]s#rb2"*c+F+N"c+V+^x"x/Gy/O>2"z*"z/W{/_:"2"x3"y6"{PY!B")J")R")Z")b")j")r")z":"ʈ"|/g}/o#s#rb>ï">ï">ï">ï">ï">ï"2'#*c+V+^"c+F+Nx#z"x"yx>">">G:'#"6#6b6#6b>'*'*D#z/W{/_|'$"J':3# 2'> 2I'6'2I':I'Z$*J'+"J'|6'*'|]'+"' ò'*'|t'+"'*'^#"'ò'*G#|ʴ'+"G#*R#)N"P#!' :3# ʞ' '"'"'`i"'L':F#':F#2F#!'"'!"'L')|)|/g}/o#A      (#~#1BK)) )) (#w#$1!"u*c+V+^"I#"c*k0:3#H̋1!4#1## ]1*<#}N!(#6# w1*I#*k1b*>#*@#|/g}/o#T]"1*<#͜*@#*1z16#z»1*4#͜*<#͜*@#DMx=&^#Vz͜N*<#͜"2:3# 2E3!3*<#͜"2"2*4#͜"2*># )|22*2"2T] "2*22:3# n2*2>ʜ2# e2:2=2242!"@#*2*2|/g}/o#T]"B#x2*2z/W{/_"B#x2*B#*@#|2}x3*>#z2{x22ü2*2F"@#*B#z3A:NA:#A=2#A@&AÍMError in writing TEMP1 file$> BAAZA[ZAdBBA'eA}LBA%xA>x@>dBBAˆA:>?DBA0ғAIBA:ҞA@DBAAҩAJBAAKBANA:N*@ixz/W{/_}|@[N[Nq@!i"bB*Nz/W{/_}|2aB*bBT] "bB[N?B:aB=2aBB[NEBÍMError in writing TEMP3 file$2B!B:NAڃB[ڗBaڃB{ڗB_ʗB$ʗB0ڤB:ҤB>w#lBz2B!B#LxBx@y@xyCy@@YNREALP)Ej@YNERRMSG2EAYN2DECF BYNSKIP9627:5@25L727:525L7BK))))  5~#C7BK))))  5w#]7!"27*5N*5525L727* 5#" 5"5*5+"5}ª7:525L7"L8!"N8"T8*L827: 57:57:5 7*N8*5z7{x:8*T8ü7*N8|8}78*P8N*L8*R827:525L7*#"ɯ<"N8*5"P8*T8"R8y28!${"8͜"8:8͜8*8ʑ8GxÒ8*828"8:8w#w#ª8w#w#w#:8w#w#8*8# ! 59~# 8 8 %Extern '="o*)="q*+="i*"m*]*o"_"a"c*]*q==*mz={x= =< insufficient storage$!n J>> n >&>  PASCAL.LIB damaged or not found $">6><2>!U">͉>>*>w>i>>*>~Zʣ>#">G:>ʉ>xɯ< >@BAͯAA JRT Pascal ver 3.0 Copyright 1983 JRT Systems $? ?a{x 3x:3#23#x:3#23#> *G#|:3#ͼ23>3'3!?#! *G#|u3:3#23#:3#ͼ2 y3 y3+>3U3|3> :F#IJ3:3#ͼ2 ʄ3 ʩ3 ʄ3,ʄ3*@#+"@#:3#23#:3#G23#:3#ͼ2 3 ý3ͼ22*4:N#4:N#@4:*4*&4w#"&4*(4+"(4|4*G#|4+43:N#@2N#>:N#?2N#+4*R#*G#"G#/~+"4k4t4k4 }4 ʆ4!8# *4V+^"&4!"(4_4!"(4_4!"(4_4*4V+^+"4"(4_4*c+V+^z°4{°44*k0:3#46#6b6#6b*K#:F#@4*D#DMh8$͠$G:3# x434+SE>YN1HEX"F:>?:>?—C:?@> C(C'—C>2M}L2M:L_!LͽC2N !|N~@# RC> _C)—C>|NʗC*;?"C*N"C>2>?!"N?CÍMError in %INCLUDE directive$~@w#¿Cѯ2|N#~+:C~2|N##!}N 6 # C}N~#.DC~#.DDN~#D|N*C";?*C"N2>?> 2N2N>2E2E>i2E2E!E"E2E:N*Ew#"E>0~D:~D2E<2EDAڢDIҢDEʢDGʢD2E<2E>h2ED.D:N.·D>i2ED>2E>r2EDED>r2E>2E2ED+D-D:ED2E2E:EWD>2=?:12345678$9"9"9#(<*9#( :=??2=?:N:N͆?2N*;?~#";?6???!?2Ngt:>??>@2?!gT"?";?*?T] "?!N}?:?=2?T?*?6 ʻ? ? ¸?:E³?>@2?*N#"Nø?>2E> !?4:?<2?> >2@!ht"@";?*@T] "@!|N@:@=2@?*@6>2gt2hx!1N~ +@#!@#~+:;@~2N##~w@H@#;@Nk@:N:Nq@@ÍM@ÍM@0ڎ@:ړ@Aڎ@[ړ@G 2#A!ix"$A*$AT] "$4!?#! 27:5k5:5 A55"5"5*5#"5* 5#" 5"5:525L7*5:5̜!!{"5͜"5 55͜8*5͘5!D#8INT"5Ϳ5>Ϳ5ʺ5*5wʟ5ɯ<5*5~#"5Z5>!U"5͜N:55!N# *5͜P6"L6"J6 {"F6͜"H6*5͜DM*H6*J6w6*H6DM*L6(*L6*F6! 6o6!C#8**`i"7"7bk{_z/W{/_" 72 76*7*7ʽ6!C#8*7"7: 7=2 7ª6*7* 7DM*7y7w# y +' ? +' ? +' ? +' ? +' ? +' ? +' ? !9›;# ;;! ~ ¸;T]'<ͼ:ʸ;*9F#~## ;*9NyWxGyO:9>;>@< @2E2E*EEz/W{/_}2E:Ei]EhfE:E!E{G2E>@@~#@ BE:EE :EFlE:E;F>?@}@|@:EE Format error in integer literal $Format error in real number $ xEyE{PY!F) F)F)F)"F)*F)2F):F:ELF>2E!ɯ2E!E~F~#ͬFgF YF!F ~ͤFW#~ͤFW#~ͤF_#~ͤF_000000000000:0F:FAFGFaFgFHFhF<2Eɯɯ<:EF>2E!ɯ2E:EG!E~!Gcr e! rz ;done dcr d! jnz ym2lp1 ; ;scan until type field is found or input exhausted ym2lp3 mov a,m! inx h cpi '.'! jz ym2type dcr e! rz jmp ym2lp3 ; ;type field processing ;hl=name ptr e=name length ym2type mvi d,3 lxi b,ym1type ym2lp2J:N=K>OJ>SJ:N>%K=*K>PJ>UJ>VJ:N=QJ>WJ[VK][K^J{ʿJ>LJ>MJ^#6$ KxK€KK  ** found ** $ -- not found -- $# ¨Ki&+)))GKNKTKN^#V+N#~+ͲKK 2 L`i#"!LzL*!L: LOͨKL^#V+K+F+NKx1L"{L*Nw#*N"yLs#r#O "N*{Ls#r6#6#Ow# hL"N*yLDM*N"M!L?'ʥLLw #yLÈL:N'·L?ÙLy2L:M>>@:L@:LO!L~@# L*M"NqMÍMLYS64|PIXIFPGET QNOT8QSET!QNIL#%QORD",QNEWi3QSQR^:QODDsAQRBArHQRRNOQPOS(PUT3]QVAR;XORlQCHARtQELSE|QCASEQEOLN QADDRQFILEQFREEqQCONSQCOPYCALLQGOTOkQHEX$zLIST+QREAL.QREAD&QOPENdQPREDeQSUCC*PAGE2RTHEN6 RTYPEZRTRUE:RWITHuTEXT-RBEGIN6RARRAY?RCONST[HRFALSECLOSE$ZRLABEL_INPUT-lRRESETguRROUNDlREAL$7RWRITE5RWHILE<RUNTILfRTRUNCTITLEREXTERN RDOWNTOtRBINARYRCONCATDELETE]RMAXINT~RLTRACEwRLRANGESINS~#iGG G!G (G!000000000000!"RG'TGTGdTG TGTG*RG~O#E*RG"RG0uG:uGɯ<2E"G2G2G2G2G2G2G<2G!G"G"GWHG:GĉHH*G͟I!GG:GG>2G*Gxw#"Gɯ2Gx*Gw>H+H0G.-HE5He5H2=HiG:=HG!G4>HH>2G+H>2G+H:GTH=2G*GF#"Gxɯ<*G~+xH-~H*G6#"G>6#=pH>HeH>H*G6jH:G¢H>HH0¥H!G4ÐH>HEHeH2HiG:HG>HʥH>2GH:GHH:GHG:G@*Gw:G!G@H>H20IGXINPJXOFPJXOREPFXTOPP<XFORPGXCHRP^EXANDP_IXDIVPXEOFPJXABSPString literal tooStrStriString literal too large$  N*N>Z#M~# ¨MM :>?M !}NN~# MM N Line 0000$ in %INCLUDE file: filenametyp $ i PASTEMP1 $$$TEMP3 $$$12345678123PPPPPP QVQdQQQQ$RQRcR~RRRSsS}SSSSST3TMT[TERTLENGTH0SREADLN,#SRECORD1-SREPEATb7SPORTIN`ASOUTPUTyKSNOLIST|USPTRACEp_SNOCONSiSSTRINGaSYSTEMmUPCASEASBOOLEANSDISPOSEFORWARDSINTEGERINCLUDE)SPROGRAM/SREWRITEcPORTOUT9SWRITELNoWARNINGSFUNCTIONYTCOMPRESSTFILLCHARALLOCATE}'TNOLTRACE{NOPTRACE'@TPROCEDUREnNOWARNINGDEALLOCATEjINITIALIZEloop1 ; pop h! lxi b,ym1name ;hl=name ptr de=name length bc=ym1name ptr mvi d,8 ym2lp1 mov a,m! inx h cpi '.' jz ym2type stax b! inx b d>H24IiG>H25IiG!1I(G:0I-(I}2G}/<2G00000aI_OG>Ow# QI6#YI ~Ow+yGgIɷҝIG=_NxڕIyyɯ>2I#"I:I*I{II:I<2IڨI*I+6@*I:I=6I*I+~w,J+"J.@J-'J(\J),J*1J/6J&;J"ʶJ@@?>BJ>CJ>DJ>FJ>GJ>HJ>J:N.RJ)WJ>IJ>TJ>MJ:N*sJ.nJ>EJ>LJ*N"M>>ʕJ*|J:N)|J>*M"NJÍMComment does not end$>"¶J*N"M?ʕJ}J;J:K=J>/K<K@J>KJ>NJ>R DOPIFINPOFOR4TO PENDPFORPCHRPAND PDIVPEOFhABSPMOD%QMAPA      LASM3 COM.<#LASM3 DQC-R vLASM3.DOC] o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\)=Hʣ4`<^`S:[8)qtv)-Ali$6H>ɇE~݇%F@۶+b"W1>|păж]^ŠY*I@lue$oACݍ߂$@&-Q@yY_$pD7Yۂgm v3}8[m%*/a2lH;н;З2l { gKH{?@(g5"-F2P;hkrF}Ġ0N tᯑAo(8h[h Z(h$mA߂(x1qt v_a\øJ:A0Bh<+h#(a  f<4 h$:\/nm3P4 8HѤ]ql8 xwѳ ΟLSϨ'ρsZ1Ο[`$Ռ<{G2yzgnzxfa ۤH),[g؆{yeW.c*l4p6!EFPclS@p=kL8`Y6ozmm3&}ԍ[@9mֈС gi4iUXoJb yǚՊQ=l @lÞmP II@&hGH!F@(5hDRkE]Š8BݕW GIBgCERg(;][#(h :$QQj 8Bݕhh$$(]7dpy0эme.~@ypy0A Q.ImdA$2 AqLd_bSj_bSj!q(2KbS:ۥĦF((]Q@\`S:ۥĦэ2PG>>|#m1;СJ萁8CEжZ?`ͫ$~(;6_A_;TI㡜@}_;#m0݁UXWt}@dBm H$Qsa }on4Vh^%qn_Nwm$8h[u3Lwy1Y9݁dP هPF@۪tO,X3vFԧѾ'#8O_o}e%NWD7YPH;|3bdx&U+vxexBCǖqJW^I}B|YV d$~T;tP(vj^`Yz ߓ4|ӳ|#MHcQ`w(& <03lx[GU5,;؆1F & #x>=Vhޱfb 8y6bF>yW{^cØ,; a =6 UGS7F4YyWlÚ1؆1i~P(TVSa샑 n`*y^`=u44,;)npxkȲaUq>xgaȬ`/@|Y#Ua$ i'#-'4il i^Yx^Ƙ6gil C㝧ءO-[`0Hu>a82r  aH>W0Ld_!_!"aРyBmO;t Iaon4^0݁tz@y 8< 1@rᡜ@& +}Vz]aͯ;re< 4 h{]au@ aaXaۣh~ݡۗ-aX-@00 h~ݡ>@KLF@H;tt2%4H I'Lw p*;!e חrۣ]u.; W:d\eэF2PU~ 02BR*#(*0t@yT_^BkСpZ@u]\`ЗzYꃑ _0h~bP2萁zĦԠC=[bSj#( P2hzl)F|!uNsppk l͋#K`o E`nPLSnb6jO0&)m؈-&;pj07b0LXO`WhXmXO1lGO bUO=[FaVWōg |Y#UaO;ݙlp |(4R8׳`zBmw(& A w\(6T=cS<6ުA26 擑 v(<{ 8 tqsO63©ֈnz/px7*x/Hy PbeDTbV*(4NA Wmz/px7*xr8OaQpYJ\(4/x a9# K VWpn*6CE!"ݾC no)W] @yI/Q$+tO[T_!`$Ѭ{p wO.+#(ͣYonIT_!ͻ Hʣ*\Ѭ/nIT_ 4+\F@ۨj5h*h g{ЂS}5j[E4෠yʻ м{/d<"UyYMApVcSj#mLLYbS:[8޿CH 1Vi߳C=[bWhln eg)<[jOaԳ%yeW@g)$4sY<gäM韱JƎ1byoUzaԳ%Ɉ^-*B6PLXMjxlR sFWFj۱6:|ǻwj{kt[ti:Vi*ݭ?0~o}eЕ#F@_>}EJ{ 4@Ǐ}7#FD^9cyU(yF'l,TayFRU4҆%ũD21:wPz~1b$׿c cu5+ OMgAqWsbb6 jF`F3^m`gU I}BV:a'#ogLXq, lP3)V:KW(;؆1i~6/7^`Y@basJ؆?мcxlF|5ӷF,F1N +4lܧ{eOVW"^?K\T3l {e4:98>S6bt@b2:g#Ct~#ˆ1(~ qT3v}zsm*d/VEvֈ#F' +M+_ߌmIUРJqALd<4O I9э2P^m@8 X 'Q͓BRF(E@8 X #mRP I I@ חU@8 X^VF2P%QA$pZ>gfRc͌IA$"$*G˫Hʓ(j@$ uEP t# Je@yE 8<"$/n(iq rF#  -)=HʯuͯCA ׳ҁrG7@uXAr*4@yĠ:Nm8RC*.F6uРy'F2Pm@8ߖR#h:[8м ~{t "RC_R#h:py'эF2P_VU9(5(t_ #(Y@8B4+F6uРy&F2P]@8BݕR#h: [8м ~{t6n}h]*GкT : py&эF2P~ @8ߖJ2P^!c$F2PJqQ*z@y!4h^1Ç.GХ3P^a aon4*-0э(pa_h$t8/n,h^?]B~6ڞ?Kz#R(.[8м~G7@i.-on(.pytDYANDXANDYBITXBITYCALLCCDRCCIRCMPXCMPYDADCDADXDADYDCRXDCRYDCXXDCXYDJNZDSBBEXAFINDRINIRINRXINRYINXXINXYJRNCJRNZLBCDLDAILDARLDAXLDDRLDEDLDIRLHLDLINKLIXDLIYDLSPDLXIXLXIYMOVXMOVYMVIXMVIYOTDROTIROUTDOUTIOUTPPCHLPCIXPCIYPUSHRALRRALXRALYRARRRARXRARYRESXRESYRETIRETNRLCRRLCXRLCYRRCRRRCXRRCYSALRSALXSALYSARRSARXSARYSBBXSBBYSBCDSDEDSETXSETYSHLDSIXDSIYDSLRRSLRXSLRYSPHLSPIXSPIYSSPDSTAISTARSTAXSUBXSUBYXCHGXORXXORYXREFXTHLXTIXXTIYENDIFMACROTITLE  PF FP$5 ( 2(@/"!B.~~# 2 !]=uE*!B2w#"!Mͼ!"!B2 _O: :yo:J!ʹG!G~|#¢!~|#¯2J!>x6 #=G!~ p> |> |:!~476! ~0 |> |!~|~# > |:MͬM*}M>=:u: *" *}u>;eͬʄ͵~:ͼ~:!!_:2:222͵͏͔!"!=<:!Ax[!D7!ɯ2K̈́ :E 6 ;# */ :D / < # < G >{ ͬ R >{ :E 'c 2E >{ y :đ!6 >2J>2K:E 2D Č :K !E :K® ͥ ~ ~ D ͥ ~ ͷ ~ :E O Q > H >2F 2E :D B > D> !N52F !"L!NN#~#A 0 7O!F Z ~*L!9 3 )* "L  :E ` '~ '~ >Vf >Of !B6w#w#v !"!NF#Š 2o G*##~w*##~<*}ͅ !N~ 6!o ^!B6^#fk"ͬ ͢ !N G#*### # *^#V !_h$t@oq]Fм~@R?]B@ylK:=Ԡy& i! t@8/n,5(@y[8м݇F#mLZ\q9>\>/n4ˤEh6 }(hG I9(5Db0Ab$q4GffNֈС gi4iUXoJb yǚՊQ1B7LASM3 11/01/84 Page 000 Pass 1 B7B7ASMPRN?'  vFV^4@585(:P@D<  !(og 6'6/(PP6?272p3p (!!!.F/F!$J7 8 !55"+#+5$B!44"###505 %KW_ %[*&*'*%{&!'!)F*F06164A"#9-+,-+,./ME-+,-+,- +&,&-(+.,.!%C%S./"&"'"-8+>,>"#%sGO!!"#  NZZ NCC POPEP M xʶ_BH!ŽO#¨ ˜{ڲKzCz<:OJCR:N!Q6 e!P#  ɯ+::~O#~z#+}|#1T]1##x G#####*|ʭ~_##N#~yͨ~#axҙ> {҂> { ڎ> ####~#foB> > Î> *}ʽ>í͵~Ɛ'@'Ɛ'@':!!*"!>w+t> > *|~ > ##~W#~_"#~#fo"> <*͍}͠}:›#:+######~#~#>  > > > *+++++}|Cross Referenced Symbol List Symbols !N^*"*{zY "*!o N!B6 N#Fr+sq#pNC >G=#w#wG #w#w#w#w!b =)Symbol table overflow G*##~w*##~͢ *_###͗ s#r#E w# w͗ ^#V   Ol_ ()*+,-/ABCDEHLMXYDBDIDSDWEIIFINJRORSPACIADCADDADIANAANDANIBITCCDCCICMACMCCMPCPIDAADADDCRDCXENDEQUEXXHLTIM0IM1IM2INDINIINPINRINXJMPJRCJRZLDALDDLDILXIMODMOVMVINEGNOPNOTNOWORAORGORIORXORYOUTPOPPSWRALRARRESRETRLCRLDRRCRRDRSTSALSARSBBSBISETSHLSHRSLRSTASTCSTXSTYSUBSUISYMXORXRAXRIADCXADCYADDXADHEXSYM!w_#~ 9A:~o~#R => o> oL\ ?Dw#_!=!u=!=:"::":"!=:] D2!d/2/2/2!Z!Zͬ͵͏͔:ʪ!Zͼ͏͔ê!"22ͥm!/=z{*M¢ͥ!" !B–w# ‡pâһ6# ›B*#"~ `!F=G:xo*!B.w#"!M͵!=No source file present No directory space Source file name error Source file read error Output file write error Cannot close files End of assembly G:x!~ڸ **O {z *"!^4!wWƐ'@';>:;!^Ww*{|}{4 !~#+ > ;> ;S k k :Jxk _<2J!ẅ́ 2E 2J> 2D ͑>2Jɯ2N2F !N~@ښ 6` ^4#:E w~$w:E 0 ͬ :E A:E A ͬ :E a{_2E G 2E :K A     <:NO=_L! F! V#fjQu7! ^#Vo&)~#F͹xGyѯ<!v~چ͢6~44O!e s#r!u~ ڣ6͢^4!Qw![p!v~͢!55N!e N#fiͳͳo&)^#fkmv}z {͢>ɯo>g"O!Q6ů{_zW5>)D*OOxGH !Q?*DM!xGyOfg)WRwwww)=Æw|g}o=Òwæͳwͳ#÷zg{owzg{owzg{ow:K:O ;,!ɯ2u 8LISTT DQFILISTT2 DQF LISTTXRFDQC BLISTTXRFIQC&gR vLISTT.DIF\ o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEF>BxÌ͊n: n""͚Mn͐ʹ͊ Ą>x ͐ͥ !"n :K¹:NG!O$ʌ~#Á n!!~wÌ!!~wÌ&ҹ_!^#fk!Xap(=CU[sy 9TN9L$ROny8O8Edy0>>N/GT$/THH/(dy$/À/ÀXXXa/0dTH2v=2P!"A!u~,5_!Q~:vĢ: *e": œ:Km:N̢Ԣ!O^#=iVÎx*LÎ  O:P™̢>2Py:u_![~!us!Q~Ýy !u~=w_!Q~ ͔͢>2PÜyʜP R͊ >Uͼ :ʎ:!ʎ*w#w#:Ew#:Fw"*}|Y :P̢2Pw >Eɯ2*"p m :12H!C=!Z-2!"""" :K :O*nGHIJKLMNOPQRSTUVWXYZ[m# Kz QMj jlqj~X,}CҔ.4>muɯgw9gFXX}4i.X$a4\,CNM> P"1< q_,Wb&py *bvު%%>2z^BX,vt~Y` F&D,W-)z+d( h2z^BX,ڡJo7,S4lG2~VMC˘%8 i{qn(vj4^l;oUВYi(bSܰ^/4,o|mƩɷ{H $/TH+HTHF$dTH^/0d*# |ʢn}¼>Odyny8Ody0$¼>͚͉n:Kx:O,; x *|n}n$8O/dy0:Kf:O,k>C͚:K¹:O ‡ ;¯͚ :K:O !Ï!>SÏ{ozgɯ2E<2F!~4ʻ M!6 !=****\͐¹Ï¹\Ͳ ͬ * :~8͊ 8͊Ï*}Ą*" :K:O:¦X!o^#fkEH$*Dk͚ :K¼:N=ʼG!OʶF#æ *|xE͉,ʎn͚M*""n͚ED͉,n͚M: n: *"> 2 :K¹:O ¹Ì !O:NʕG> ڕOw#a s6 #i :E ʕ s- p# as!=͑++ERROR IN LINK OPERAND++ ͐ʹ*"͚P!6="n͚: n}n :K :OP!)w#H use factor !=*"!F#~ 8=) input lines read :z!L~0'w+>'w*"*"ͬ ͐!":͊ Ąx *ͥ ͊ ~ͼ *M~>>>>G:x͘: *P:x=*#"ED0:%!^4!w--*!6z={=4>R>V>DÍ>PÍ>LÍ>N  2f6jyW EpHGF =qکɇsC `C]BYc )]8Efq$6 Ecyq0N;5pn(@wX`G8fVВo|m6 '%%CoSxkF{D,i=4:v дxkX`פF ET%͈H`C]Byb h,d|x[ T#̆8ùxݑb]4{hK(2`B}ʷ{0\a)u`vjP ݑ8Ms矟(lX`ה8k! h,d7B:wX``/?A!cH)6#M2fjrPTytp^姲(}dT~y:Y`| [m"1KuV2\ӳPV-ABCDEFGHIJK/?Ojӯ_MM:0.q0WSS@1Bxh2"iɅyvH*} C RMΌҚ.qٱҚfG H=K5E5])ҽ0SAgjtb#:l])1jjc#05GigjjAx8ɶ`E.1'b7|"\Hxô%|"ݾx55ͧ8xi :tغT\Ht|vYK55sY(.$FDM0EzsY?[KV)R| yLte SэWS;)эWS;aHw.6;qH)ҙBBVSg`B14S{.K"Y8 ]lv4E nÅ\n3(͎Hea;*js2*Eè_:sRc# דSS\eT&pmJF W^o"Ľa>p5OIu-[*@Quulq?FⱿs{,S)-*4xTlݗgtOiul;xgX&Ó0"èY<.6$mzM*4c# Ǔe@=aD z-r(E5Y ^F&@Qu #״M^*PMq2ˆ<#溩߹)-PMuwp+Q(̅rKa;U/M2ԽRم@QjuH 2ˆn>5ˆftOQM3ˆ6-eNX #l ^F&@Qu #-5^ #Pz~(QMq2ˆ.Ģi0ˋ:gFxH@QNy"7;Q Vi#z[6δJ.ɸ7AanL4 UHc/n+-y,S77ogC#+U5 PybF0CL^ne b^n%/h?o0p"p4vTvQFa K>>E4)ctL!ЩoJ)J)F 1)޼G0T4: *Ŕjɝk$1_cG`G♅*6itHd{D6J&USݻ3|LF-:fBgAD i%; qJsJ&=(T1b5Zq.YZD%$vGH#]_ '4)b*zYTƙD pA'Tq, Đ,NiG Ңg$vЃqQؓ#Yw%\ﯸkJ.ӿ)HYtO-z~ 2)?Kd5J"X` O[jBVSX`F ?4 ]h|Pgut2fiA~0-~MY,m_2eQ\ )tG 54b<ļ/[طG8+coQ ni>BwX` ZR2Vjd4b}WƘoQ Ba64vm;R,-)z+d5 ZR2VxE+coQJ'yf)i cAKJ Y ^F('yf4>E,}HS4q%%CoFAKJ F('yf}>E,c4ء^,U#ط_Ո-%>^87;5Hߣ)mgwcBaS: Xְgut(ow8oA^ G9 G0 r߂99 nÅ\n!e9ÅD7…HC5e 6^wC) >.$^MM%$įpvqYWS?m泣K5yC3Ez# t#RM! қ"=%L/+a^)K ¼8bhH粄)ҽ0%nדÿoݞRMO.FD)1j^Zُ7LA7B1"a)HTzb% |y(C3E=%L#¼HwC3E t#O.IC5E:/+a^)Y?∛ 3¼Hga^aK݈'+N="y#nO.FD)3c|Bb^bvrl}(M?O=6= NB\6;˺؈)a^0.s7o]aRb_~رFIFucZ۠,ۑƖВ>"zP&k<۾U^c#|DO &k#bҥ/<%gb$˨($MK%~ #zG4/7[;મO_A3wU!Zx\Fek^}&N8>Ľa>p5OIu-[ WriteLn(Indent); Say('%@%!HeadingvrLISTTXRF.DOCF  !"#$%&'()*+,-./0123456789:;<=ou%F7ei3SL#ʡG 9F%m.:v2*Ua,mJ) qJvLѩ"yD+O=*`CG.:mJiݕ\q1ēqEgAoݘqA'!Wh|dW*o)))))u Ͳu*o)))))u za|•WvLISTTXRF.INCL o !"#$%&'()*+,-./0123456789:;<=>?@ GP߱H&Nq:ԄƝkzX5YF,W5X,?o7S1[H"we >jx-MG 'TYPE','UNTIL','VAR','WHILv@LISTT2.DIFT  !"#$%&'o()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRS0C<۬|aq#~~ÅS>?@ABCDE_n._q}pŋGܽxWp|\rw6*Ad{=%||q#4Rtj@J#S$:Q8OzM1$r3iE%pK>AG ne S[0%r n޺)҇Ga~89pr|s7o])҇3>k[ ~/O_aHޗQNHx懓qhu7n{-~^)"}>0WS;PMΗMn)1TSSPM@7"\M1TSsź"# >0!̋jtэza͢( (ʉ&*%&!!9ͨ(A$(ʭ&!9ͨ(Z#('&!9ͨ(a$(&!9ͨ(z#(''!9ͨ(0$w#6 #6 #6$> 2{*|}>+2{:xG!x2x>:2Sx2x>#2S :x~$_#<!kw# R>:x2x:x2x Y "ei "gw "i*g*e|/g}/o#T]*i>z{eL z Maximum of 100 counters exceeded Enter new parameters $ LV !GNw# *:MO!B > 00000xxxxxactivan data areas @# 0 A#= o B# C#2!) D#[!( E#!. F#!Q G#"C H#E"0 I#u" J#"! K#"+ L#"$ M#"# N#"#/ O#Q#Q P##Q Q##V R#I$1 T$z$, U$$, V$$- W$$& X$%%' Y$L%& Z$r%' [$%) \$%* h$% i$ &M u&X& x&w&X y&&. z&&F {&C'N |&'[ }&'@ ~&,(? &k(G &(N &)O &O)K &)N &)6 &*K &i*1 &*, &*@ &+Q &W+/ &+W &+J &',. &U,c &,c &-O &j-; &-V &-I &D.D &.E &.P &/T &q/c  Activan interrupt $ command : $ $ start line : $end line : $spacing : $ C clear the counters H display histogram I initialize line range M run program with monitoring R run program Z terminate program $ Line range count Activan 3.0 * = 0000 $0000-0000 00000:  !$*16;@EJMPSV]fm$4E0#@#P#y&&&@  r@ 57 l '      $ 5 E X i }  1     -6 c    .      4 M k !    ! - = W' ~ !! "( #% &/S &'0R &y0C {U>:2S 3 IV/  cLhʷizm`rkz[/*g|a}x*ezq{x|/g}/o#T]*i|/g}/o# | !k ~w#~w6+6!"1?O>#~# !k>d2^#V#xyxBK:=2`i"*!*>z*"!"*|g}o"*c)/*e"!k"*^#V#""͜j/**gz‰{x_V/*j*i"+o*>u~# ***>!|{>*$" %'1 &X( ' (" )2 *( +# ,: -R .` /q 0 1) 2) 3* 4+) 5T 6r 7 87 9' : ;! <? =]* >( @) A3 B 5 C@4 Dt2 E3 F3 G - H9 IT" JvX K4 ' (#) )#A *#Y4 +#2 ,#S -#@ .#R /#qS 0#/ 1# 2#u! 3#& 4#x 5#4' 6#[% 7#0 8#) 9#" :#G ;#BF <# =## >## ?#    "'.2<@CFILPSY]`gknqtwz~*-JPVY{#&039 >:2  ʵ lp*gUndsletrMz  t"y t"{   !w# Œ:O! > 00000xxxxx:xGx2x>:2 x2x>#2  :x~$_# >-:x2x :x2x -B:xstorage overlay $Dynamic storage tables full, more than 1632 blocks allocated $Insufficient dynamic storage $System error in dynamic storage pointer tables, possibly due to storage overlay $Invalid parameter in SYSFUN builtin function $Integer division by zero, if dividend is positive then quotient is set to +32767 else -32768, remainder is always set to zero $System error in assert monitor $Insufficient storage for data stack $Invalid virtual machine code encountered, possibly due to storage od $DO expected $Type identifier expected $In subrange, first constant exceeds second constant $Undeclared type identifier $'[' expected $']' expected $OF expected $More than 8 dimensions in array declaration $'(' expected $')' expected $'[' expected $']' expected $More than 10 files declared $'Simple type' expected $WITH statement syntax error $Record identifier expected $Undeclared variable identifier $THEN expected $Pointer type expected $Undeclared field identifier $Array declarationted $REAL expression expected $Pointer symbol '^' expected $Parameter list syntax error $String or character expression expected $Parameter error in OPEN/RESET/REWRITE $ABS parameter not real or integer type $First parameter in COPY function not string type $Second parameter in COPY function not integer type $Third parameter in COPY function not integer type $First parameter in POS function not string type $Second parameter in POS function not string type $Third parameter in POS function not int@2x :x2x   :x2x> > :†  > Program module not yet loaded, exproc table not available. $ Exec interrupt $ command : $ E external procedure table G set line range for trace L+ L- line trace on/off N current line and last proc P+ P- procedure trace on/off R resume program execution S system status display Z terminate program $ lower : $upper : $$),16;@EJMPSV^dlrw}verlay or incorrectly defined external procedure $Error opening file for random access $Error accessing random access file $Invalid data format in input/output statement $Invalid data format in input statement $Attempt to access unopened file $Data items exceed record size in random file in RRN write statement $Error opening file due to 'file not found' or 'no directory space' $Error writing sequential file $Random access of sequential file $Sequential access of random file $Format error in in syntax error $Invalid expression type in array reference $Invalid array reference $Invalid expression type in parameter $Parameter syntax error $Incorrect number of parameters $Incompatible types in set constructor $Incompatible types in set subrange $Invalid type in set constructor $Invalid parameter in system procedure/function $Incompatible data types in expression $File identifier expected $Assignment symbol ':=' expected $Incompatible data types in assignment statement $Incompatible dataeger type $Pointer variable or file variable expected $String variable expected $Dynamic array variable expected $Index types in ALLOCATE incompatible with index types in dynamic array's declaration $Incorrect number of index expressions in ALLOCATE $'Block' structure of program invalid $Array index too large $Array index too small $Pointer variable contains invalid virtual address $System error during dynamic storage compression $System error in dynamic storage pointer tables, possibly due to  (05@KVjry|Invalid virtual machine code generated, system error $PROGRAM or EXTERN expected $Compilation does not end with period $Program identifier expected $Unsigned integer expected $Semicolon expected $Identifier expected $'=' expected $Comma expected $'..' expected $Undeclared label $Colon expected $Error in constant $Syntax error in constant $Syntax error in constant $Constants in subrange are not compatible types $END expected $BEGIN expecte types in CASE label $Data type error in FOR statement $TO or DOWNTO expected $DO expected $UNTIL expected $Boolean expression expected $Data type error in expression $Syntax error in input/output statement $RBA or RRN expression not integer type $Invalid file name in OPEN/RESET/REWRITE $Buffer size parameter not integer type $Invalid parameter in SYSTEM $Integer expression expected $'Factor' syntax error $First operand in set membership test is invalid type $External procedure/function expecA     put/output $Invalid parameter in SYSTEM builtin procedure $Out of range in TRUNC or ROUND function, if parameter is positive then result is set to +32767 else -32768 $Floating point division by zero, if dividend is positive then quotient is set to +0.99999999999999e+63 else -0.99999999999999e+63 $Error while loading external procedure $External procedure INT file not found $Invalid code passed to EXEC service routine $Error in COPY function, start_pos + length - 1 is greater than current_length  XXX XX XX XX XX XX XX YY YY YY YY YY YY YYYY YY YY YY YY YY ZZZZZZZ ZZ ZZ ZZ ZZZZ ZZ ZZ ZZ ZZZZZZZ overable $Attempt to access buffer variable - file was not both open and sequential $ ***** 000000 00 00 00 000 00 0000 00 00 00 0000 00 000 00 00 00 000000 11 111 11 11 11 11 11 11 1111 22222 22 22 22 22 22 22 22 22 2222222 33333 33 33 33 33 333 33 33 33 33 33333 44 444 4444 44 44 44 44 44 44 444444444 44 44 5555555 55 55 55 KKK KK KK KK KK KK KK KK KK LL LL LL LL LL LL LL LL LL LLLLLLL MM MM MMM MMM MMMM MMMM MM MMM MM MM M MM MM MM MM MM MM MM MM MM NN NN NNN NN NNNN NN NN NN NN NN NN NN NN NNNN NN NNN NN NN NN NN OOOOO OOO OOO OO OO OO OO OO OO OO OO OO OO OOO OOO OOOOO PPPPPP PP PP PP PP PP PP PPPPPP PP PP PP PP QQQQ QQ QQ QQ QQ QQ QQ QQ QQ QQ QQ QQ Q QQ QQ QQ QQQQ Q RRRRR $Error in POS function, start_pos is greater than current_length $Invalid data format in input/output statement $Error in extending file $No more space on selected disk $No more directory space on selected disk $Random access files not supported $File RESET error, file not found $External procedure libraries not implemented $Attempt to access character in dynamic string. Index exceeds current length. $Attempt to update character in dynamic string. Index exceeds current length. $External proc 555555 55 55 55 55 55555 66666 66 66 66 66 66 666666 66 66 66 66 66666 777777777 77 77 77 77 77 77 77 77 88888 88 88 88 88 88 88 88888 88 88 88 88 88 88 88888 99999 99 99 99 99 99 99 999999 99 99 99 99 99999 A AAA AA AA AA AA AAAAAAA AA AA AA AA AA AA AA AA BBBBBB BB BB BB BB BB BB BBBBBB BB BB BB BB BB BB BBBBBB CCCC CC CC CC CC R RR RR RR RR RR RR RRRRRR RRRR RR RR RR RR RR RR SSSSS SS SS SS SS SSSSS SS SS SS SS SSSSS TTTTTTTT T TT T TT TT TT TT TT TT TT UU UU UU UU UU UU UU UU UU UU UU UU UU UU UU UU UUUUU VV VV VV VV VV VV VV VV VV VV VV VV VV VV VVVV VV WW WW WW WW WW WW WW WW WW W WW WW WWW WW WWWW WWWW WWW WWW WW WW XX XX XX XX XX XX XXX X edure/function was not compiled with version 3 of JRT Pascal compiler $Attempt to access an unallocated dynamic array $Invalid variable or data type declaration $Overflow in floating point multiplication $Underflow in floating point multiplication $Overflow in floating point division $Underflow in floating point division $Overflow in floating point addition $Underflow in floating point addition $Overflow in floating point subtraction $Underflow in floating point subtraction $Syntax error - unrec CC CC CC CC CC CCCC DDDDD DD DD DD DD DD DD DD DD DD DD DD DD DD DD DDDDD EEEEEEE EE EE EE EEEEE EE EE EE EEEEEEE FFFFFFF FF FF FF FFFFF FF FF FF FF GGGG GG GG GG GG GG GG GGG GG GGG GG GG GGGG HH HH HH HH HH HH HH HH HHHHHHH HH HH HH HH HH HH HH HH IIII II II II II II II II IIII JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJJJ KK KK KK KK KK KK KK KK K  N=N "ZajZ' R  !P  jP` 'RU hZi=NXs) ajZhR 'ihZBR7 hZKFNR h jP` <jZP`   NR aZ aj Z    Ra hKR hZFR  j   NR1   R hZY_#'NR$hZ=NXs0;INn@~@hh=P;hZIRjZPRhZ0;INn@~@hh=X;hZIRjZg=Y5PjZPhZhjZhXqYP?I'_'Y_ijZhXhX?jjZ^0=A=PI=YLRijZYPII I II?III P_\rhjZrR=0=YR7ehrZ hjZ[PII I II?XPRhX^PQ RhXP'0=NRhX-[P`II I II?III PtI@Ps_@RjZYP_KRhZPjZYP_ hjRjP RiiP RjP R P R' RiP Rv   QR hR[ jPr Rr iiPr P Q  a0;Z NR i ' jX hZP h) ajZ 'a  3Z hZhXs a  jZ a  Z R ONXshZR=iA+N XsajZ'Xa Z  iR  ja   Z a  'Z hXRhZR5 P?P?  0u (E ji  = 5i(0III PP_=A5)YP_ =A5!)YP!_=A5+05)YP^_*=A5)05 ( YP_ =A5)!YP_ =A5)YP_ =N5!#YP^_ =N5Q R iP Q R jP R P P YPN P _  hRo  hR jZ hR4   NR`   i  P YPs _jhERM hZh h=Q 3Q R 3R hZ P R hZP  P i=NXs) ajZhR: 'ihZBR[ hZOR hZR =iA+*PASCALX PQ0200ZR]PRII I II?III PPq_hhR= No errors iPiR=1 error iPh= errors jP= detected i Y_Xh?`= 8P%hZ)RhZ=RfjZKRyhZPfhZ!#%YP_ =05!YP_=A5  )YP-_09=AR)jZ v vP9=0RP:Y_ \Q Q QQRhXPQQQQQQR%hXPR5hXPREhXPiQSR[hXPjRihX!PRyhX^PhRh A     `  ( d05P aRa PRP _a  Z _iP|RXhZR> PHPHPhhZ P|Rn PxPxP|a Z  NRi0=XR"=Y5PiR"=F5P"=P5Pa0;@i "0;Z jX hXPQ YP(_RR    R  09=FR hR PiR =Y5PjZPhZ P0 9=TR0 mjX hR zjXP, iR, {jX=Y5P, P0 :YP5 _  hhZ=NXn Rr jZP R R hR jhZ  iP P  R jZhZY_$h=N5Q9! RL!iXP! Ro!iXjXP!Rz!P! QKNE09=FR iPPhhZ =P:a0=X$R hZhXBRhZhXPhXR<hZhXhX=R<hXhXP$6RnhZhXhX=RnhXhXPV3R~hXz0=XRhZ hXN ^0=YRa0;Z0=XhR[hZ hRa 3Z "h"h"_hZ =0=YRH\hhZ 0=YRhR0u (E ji ( vRPhR'Q  Q  Q Q Q R;      PRZ  PiQhR!PjR+05PR0 5 (PR!P[P[II I II?III P/8IPn_@R  PoPDYPP_ZR!iP[R!hPajZYP_DR !P!iajZYP%_DRNi i 05+05jajZYPl_ajZYP_ a0;ZRhXlPiR!hXPjR+05hX%PjZPY_=NKN"Z) hZNNXshZCQCDRKhZPK?R`hXP@RphX%P>RhXlP! Q! R!'iiXP!jZP!hZLIRNR"LR*"R"hXP'"R""hXP'"hXSP"IR:"hX5 P"RR"hZR"jXjR"R"""Ph"P"R" jXP"GjZP"P"P!jR" =I5P$R&# =C5iR#xP##0P$RC# =B5P$R`# =R5 P$R# =N5pR0 i@`(  d= 5P0=YR^=* (0@<5jP^(0@5^i h5^j h5fjhZ hZ@RcRcPa@"Z RhXP# RjZhZ0=YR hR (0@= R 0=YR^=* (0@<5P^(0@5ghZ "hR3"jZ 0=YRO[hhZ P[YhhZ hX(IKN'hN"Z[PjZYP_RZ YP_ ii33iYP IP_ hZ@=L;=N;Z 0=IR+6jZMNXnhZiYPS_ hhZ 05 0=TRljXCDE =?>!^#edmkfghi NRm  i@=L;=N; Z     05 0 0RZjZBRjhZPMNXnhZ=RhXPZQ[RhXPjZPhZYP_?R!hhajZPjZhZYP_ a0;ZR5) ajZ'hZNNXshZajZa'Z YPz_hZ=Rs a=R) ajZhZBRhZPORhZPjZ 'ajZ!'  Rk  a jZ a Z PhXPY_m\n@II I II?III PGPI _cRhPFciRj  iP ihhR RvRiPPRiPhPyR=h Z jhZ Y_\hXhRxvvjZx  P$R# =F50P$R# =I5P$R# =E5@P$Q#R$ =C50P$RA$ =N5pP$R$Qg$hR{$ =I5P$R$ =C50iP$P$P$0=YR$00=LR$ 0=F0=FR$hZ YP*%_jRE%=I5PN&R[%=C5PN&Rq%=B5PN&R%=3gR3jXP3P4hR4hZhZhXi&hZ0509=IR3jXP39=RR3jXP3@jZP3:P4iR4hZhZhXi&09=IRF4jXjX=I5Pv49=RRk4)jXjX=R5Pv4%jZPv4:hZP47jZP40=RR40=IR4=R5jXY_ hX*i0=IHR4jX=R5P405hRG6hGRZ509=IR25PV59=RRD5PV59=ERV5PV5:P5HRl5P5 R~5P5 jQ)R)jP)R)iP)R)P)R)R iP)  R) iP)_hZ iR**hZ hZERT*@Z h Z  Q|* R*XP* R*ZP* Z  R*wjXX*%Y_=R}+ 0;Z Q+ Q+ R*+'jXN)Py+QN+iQN+jQN+QN+Rc+hX'05Py+hX  05Py+P4?hZhXi&09=CR/jXP/9=IQ/9=BR/P/%jZP/:hZ=I5P4R 0hZhZhXi&0=IR0jZhZjX=C5P4LR'1hhZMR0ihXi&TR0 05hZhXi& 00R0#jZIjXBMN$XnBR0hZP20hZ09=IR0NP 19=CR0LP 1hR0$jZP1NP 1:hZ =E5P4Q71R?1hX'P4eQO1dR2hZhZhXi&09=IR1=I5R5PN&R%=N5PN&R%=I5PJ&R%=E5PJ&Q%R%=C5PJ&R%=N5PJ&RJ&Q$&hR1&=I5PF&RF&=C5PF&PJ&PN&YPH6IP4P*Pi&_@=L;=N;Z YP&_@=L;=R;Z YP&_0=N=CLR&jZYP&_hXi&=jX&BR 'hZYP'_hZER'hZ 0;Z@=S;=Y;Z 0=FR''jZR5P5R5=B5P5hRD6hZhX*09=IR50=RR5jX=R5P!69=RR!60=IR6jX=R5P!6:00R;60jZjXP4Y_ hCRd6hZPy6DRy6 ihZPy6hX40505 iR609=IR6jXP69=RR6jXP6: i hR.8 hCRH709=IR7 PD79=RR7 PD79=CQ(79=NR27 <PD79=ERD7 PD7:P7DR709=IRh7 P79=RRz7 P79=ERQ+@Q+>Q+!R+hX'05P4ER,hZ@=L;0;Z hZ05P4 R,hZhX*jXP4ZR?,hZijX=B5P4[Ra,hZhjX=B5P4R,hZjX=I5P4]R,hZhZ =I5P4bR,hZhZhXi&0=IR,6jZhZ=C5jXP4R-hZhZhXi&AjX&hZhXi&0=IR5-BjZhZhXi&0=IRW-CjZFNXnhZjX=N5PeR1jXP1dR1jXP1P19=CR1=C5eR1jXP1dR1jXP1P1%jZP1:hZP4mR<2hZhZhXi&hZ=jX&jX=C5P4kR2hZhZhXi&hZ09=IQq29=BR|2jjXP29=RR2hZ P29=ER2hZ P2:jX=C5P4lR3hZhZhX&0=RR2:jZhjXhjXjX=C5hZP4fQ-3gR3hZhZhX&0=RR\3:jZhZ=I5fR3jXPFNXnhZP'hiZ R'jXP'R'jXP'=B5YP'_?R (hZ =I5PD)@R8(W05=R5$hhZ PD)>Rh(^05=C54h Z PD)=R!)Q(iR(h!Z =I5P)jR(W+05$hhZ =R5P)R(^05=C54h Z P)R)h!Z =B5P)PD)!RD)=I5hZ PD)hZYPN)_ h0=SRz)hX  05P* 4R(.hZhZhXi&DjX&hZhXi&EjX&BR-hZhXi&0=IR-FjZShZ P-NhZ FNXnhZjX=I5P4R.hZhZ 0;Z@=S;=Y;Z 0=NR.HjZhZjX=I5P4R.hZhZhX&FR.hX&<jXP.hZ=N5P4^R/hZhZhXi&hZ=B5P4 Rs/hZhZ 0;Z@=S;=Y;Z hZ=I5P4#R/hZ A     7 P7:P7R7 =B5P7;R7 =B5P7 hR+8hZhX400R"800<50=CN0=NCR"80jZ jXP6Y_ \0=YRX8hX  05P#:hXH605 hNR8 iP8UR8 jP8PR8 P8WR8 P8QR8 P8VR8 P8 hRW909=IQ89=BR 9  PV99=RR 9  PV99=NQ099=CR?9  PV99=ERV9  IPV9:R909=IRz9 P99=CRL¤G G>2M G>2 N G:6LIʺG>2 GL*9L"7L>S26L2K GͳIrIEG>y2KøErI?HrI2;LrI2Y2KE>N2KErIE–HrIrI?ҖH2LEO!ALrIw# ~HrIF–HEH  %TITLE error or string > 64 bytes$rI !LrIw# HrII͔F2KL*7L"9L!N"7L>I26LEI  Error in %INCLUDE $$4I'I_:KY{ ZI MI2qIQI!qI4:qIOGO> 4I eI*LO}­I|i <hR= j <3P= j <5 iYP=I_  7E R;>ER>CP&> i  =37 iYPi>I_;iX<R? <050i`>R> ]>iP> ]>hP>i ]>iR?h i jZj ]>iR.?;iX< ]>iR? ]>iRQ?hX==3050;iX<  PNC  RC=S5PC=L5 XA0=RRC=R5PC=N5@0;0;Z 00<9=IIQOD9=RRQOD9=EEQOD9=BBQOD9=FFRRDPD9=NNQdD9=NCRD  R~Dvh Z PD9=CCQD9=CNRD  RD;h Z PDjZPD:BFN XcABRDhZPCFRE jZFKNREhZPE hRFE!jZFKNRFEhZP,EhZ[POEPRE_\@REjZ@@E9 P98jZP9:=E5 hR:hZhXH600R900<50=CN0=NCR90jZ jX=B5P#:05[P:II I II?III P:_\iR:Po<jR: Po<R:Po<R;  Po<R1;  Po<RP;  Po<Ro;  Po<R;INK OK!N~#"L|!"=L*?L#"?L>Z##LJ~# IJ'I:L> 4I> 4IO!AL~#4I IOJ'I JRT Pascal ver 3.0 1234567890 Page 000 $*Ls#"L:L<2L!O"LOK PK:LʞJO>TJ “JK>2K*P!"P!"P! "P! "P!"P!"P!"P!3"P!"P!^"P!t"P!r"P!`~2L*P#~:+K~2K##K~# $KKK*P ,J~# LK:LQ{KXfK2QIYuK2QI>2UI>24I2K0;iX< ]>iR?i`?W u<0;iXiR?i`?^ <0;iX[P]AII I II?III PBPcA_@R|AjZYPA@REhZPyE[_\"PV+^z<ʋJz'I:ĶJ>y2KrIErI*Pw#6E*Pw#6Wz9F?LF>rF@]FxE̔F:Ky°E>n2KrI*GyXHzPH~@H}HH|0H{8HErIH`HErI*Pw#r*P6=ErI*Pw#rIwE*PrIw# bFErI*Pw#6EO*PrIw# „FE>n2K*=L*;L|ªF}̳I*P^#VF>Z*=L#"=L*K#"K*Ps#r>Z#G~# FF'I:KF> 4I=F G0000 0000: $*7L~#.GʬG 'G4IG"7L4I:6LIeG!L"7LKMK G!M"7LLœG NPo< R; Po< R; Po< R;Po< R <Po< R)<Po<RH<Po<Rd<Po<jZPo<[P<II I II?II@III P?P<_0 ii33iYP=_  5A @Ru=ARW=?P`= i _jRA=I5PBRA=C5iPBRA=B5PBRA=R5PBRB=N5RPBRB=I5PBR0B=E5PBRRB=F5PBRtB=N5PBQBRB=C5PBRBQBhRB=I5PBRB=C5iPBPBPBY_\hZ F hRD  i  hRNC    INRC  hRC  K!Kw# ˆKKK!TJ"RIY7 PASTEMP1 $$$ LST12345678123SMOOGG!G%G(G+G/G4G7G:GCGKGSGcGfGiGrG{G~GGGGGGGGGGGGGGGGGGGGGGGGGGGGGHH H1H6H9H>HAHFHIHNHSHVH[H^HaHfHiHlHqHtHxH|HHHHHHHHHHHHHHHHHHHHIII.I2I6I?IDIHIKINI[IiInIsIvI{IIIIIIIIIIIIIIIIIIIIIJJUJZJ]JaJeJhJkJsJ{JJJJJJJJJJJJJJJJJJJJK K KKK"K*K7K?KEKJKRKUKZK_KcKiKmKrKxK~KKKKKKKK7LLLPP Q QYQlQQQQQQ<tFLDLST PARMREF @tSYMBOL TEST LEtLEX2 EtBIT6 Ptlo|&3;L\ow,0_d&?\\+=du~  #+03;@CIQVY_dgotw}aq  % 2 J P Y a p t |   ) I m q  0  ..&..............///q/y/////////////00&0;0J0U0n0000000000001%1-151:1=1E1M1d1u111111111111111112 22%2-2:2B2Q2g2o2w2z222222222223 33#3+3B3R3u3}333333333333333344'4/474D4L4T4\4i4t4}44444444455&50585B5J5T5X5`5j5r5|555555555555 66616B6E6Z6b6j6w6}666666666667 777&70787B7F7N7\7f7n7x777777777778)8,8>8C8V8[8x888888888888888999&9.9=9E9T9`9n9x99999999::%:::T d t 0 F S ^ w  F ` } P`p )3=!2<FVblvz"&MYx #29@j 9AIV[^fknv{~Px inq"-27:EOT_dilw|:S\.^a>M^)3Fh NW 9AX^f}\l|!9Q6Pck{::::::;;/;7;N;V;m;u;;;;;;;;;<<'>G>Z>w>>>>>>>>>>>??,?5?;?D?J?O?y??????????????@ @@@$@-@7@=@F@P@X@b@l@r@|@@@@@@@@@@@@@^AaAqA~AAAAAAAAAAA BB!B.B6BPBXBrBzBBBBBBBBBBB'CCC_C}CCCCCCC)D2D;DDDMDPDYDbDmDDDDDDDDDDDEE"EtBLOCK tFIND ~tPASCAL2 PASCAL3 EXPR tUPDATE $:tGEN q    * . 3 P e p /!7!G!J!R!b!j!m!u!x!!!!!!!!!" " """ "%"("0"5"8"@"R"Z"z"""""""""""""##$#-#A#J#^#g##########$$?$G$_$e$y$$$$$$$$(%6%C%L%Y%b%o%x%%%%%%%%%%%%%&&"&/&7&D&H&L&Q&a&d&g&&&&&&&' '('x''''''''''' ((6(>(f(n(z(((((((())')B)L)b)g)x))))))))))))*8*r*z******** +++%+(+0+6+<+D+L+Q+a+f+w+{+++++++++,,,,#,0,=,E,R,_,g,t,,,,,,,,,, ---+-=-M-e-r----------- A     MUTIL2 0200PkII I II?III PPiIP_B&0&0 5 0 5 &.i 00.it= 5 2=A=ZI=:L@E(j( 0= (0R((iP*i( 02@* Ret* _( 05((i**iP,h(i0`( $$ j= TEMP3.$$$YP7II@IIIP@PII_/h505 =$$$5'5'''Y_=TEMP1;X=TEMP2;X=TEMP3;XYPI _ h5g0=NRai `  { 05PR0  0  jPiiiiYP_ CERK0 iPv i7i`v  iPXI;=A;X=SLI;=B;X=SII;=C;X=SGI;=B;X=COPI;=A;X=DELI;=A;X=INCI;=A;X=DCRI;=A;X=LITY;=K;X=STOT;=K;X=LODT;=K;X =LODR;=A;X!=LLR;=B;X"=LIR;=C;X#=LGR;=B;X$=LITR;=E;X%=STOR;=A;X&=SLR;=B;X'=SIR;=C;X(=SGR;=B;X)=COPR;=A;X*=_=INT;=B;X`=FRIT;=I;Xa=FRID;=I;Xb=FRCT;=I;Xc=FRCD;=I;Xe=LTRC;=B;Xf=PIN;=L;Xg=POUT;=L;Xh=L0;=A;Xi=L1;=A;Xj=L2;=A;Xl=PUSH;=A;Xm=POP;=A;Xn=COPE;=A;Xo=DELE;=A;Xp=LODN;=A;Xu=STON;=B;Xv=SPARM;=B;Xw=SRET;=A;Xx=LELM;=A;Xz=DAE;=A;0=$R,(Pu,hR*,i0`* 09=PR=Y5P~9=LR=Y5P~9=ER^=Y5P~9=SR^=Y5P~9=TR~^*i 05^0=A=PI=X=ZILR{h =Error in $T parameter i hP~:PYP~P_09=ARPj9=BRPj9=CRPj9=DRPj9=ERPj9=FRPj9=GRPj9=HR"Pj9=IR4Pj9=JRFPj9=KRXPj9=LRjPj: E5Y_ R)iiYP_  3h R 0 ii  Ph i`  0 iPYP_hiǸR  iiiR=Error : INT file too large i P#YPBPP_ 050 0 05Y_ i j  05 0;Xi 0;XY_? A Rk@Pu5i iDELR;=A;X.=STRT;=A;X/=LDRT;=A;X0=LODS;=B;X1=LLS;=G;X2=LIS;=H;X3=LGS;=G;X4=LITS;=D;X5=STOS;=B;X6=SLS;=G;X7=SIS;=H;X8=SGS;=G;X9=COPS;=A;X:=DELS;=A;X;=ADJS;=B;X<=CCS;=A;X==LIT2;=L;X@=LODE;=A;XA=LLE;=B;XB=LIE;=C;XC=LGE;=B;XX{=DAS;=A;X}=SELM;=A;X=ERR;=A;XYP _hh= 5=a=zILE=A=ZI=%L@E=0=9ILE=A=ZI=0=9I=_=$L@E=N5=N5=N5hhjhlhg=N5_iacenhj51:"%7?9.0v(a&-/=cNE~$63'NE?=E LNE3h?ACE579^=N5^=N5^=X5hX~Y_ hX hXi= TEMP2.$h5h` E05Ph=MODE;=A;Xi=LDA;=C;Xj=LDD;=B;X=LDP;=A;X=LDI;=A;X=LDAL;=B;X=LDAG;=B;X=LDLS;=K;X =CAE;=I;X =CAS;=I;X =BUFV;=A;X =LDLS;=K;X =LDGS;=K;X=LDDS;=K;X=LODI;=A;X=LLI;=B;X=LII;=C;X=LGI;=B;X=LITI;=B;X=STOD=LITE;=F;XE=STOE;=A;XF=SLE;=B;XG=SIE;=C;XH=SGE;=B;XI=SRNG;=A;XJ=TEQ;=A;XK=TNEQ;=A;XL=CTSC;=B;XM=TGEQ;=A;XN=CTSI;=B;XO=TLEQ;=A;XP=JMP;=I;XQ=JPCT;=I;XR=JPCF;=I;XX=CAL;=J;XY=RET;=A;XZ=XCAL;=C;X[=XRET;=A;X\=LPN;=A;X^=EOP;=A;X  ` jXPRUYPP_7CRPY_ M itj _0=:RK `Ht _0 iP,Pqi`qt _0 iPU3g0=YRjP_ij jhX  jj=0300   = Module size =  = dec bytes  i4`6hiP&Y_ii= TEMP2.$$$@t0 =.INT< hXhXhXBhXhXhXqijXhZPShZjZ! '       RKRhZP2hR  jXjR.hX.09=RR^Z Pr9=VRrPr:YPw_0;ZR   P)jZ ' hYP_hZ=R jXw PiR0 iPRG jjPAR` jP+R{ P jZMPTYPE 0200PkII I II?III PPq_@RjZYP_KRhZPjZYPP_ iRPZ i YP.P_OR-hZPY_ hhZ=iA+N Xq  hZOR  jXhhX@=End of compile for  t0  j h Y_\iRhXiPjRhX7P[lo2<Fcv+P| (2:DLV^hs6Oh-E]v ";Tm1Iaz&?Xp  5 M e }  ( A Z s   8 Q i  . G ^ u  ! ; T m fotRctx3IYgt0Cm jjP !#jjZ'hZYPGP_!#%jZ'YP_P _ CD?=>NKN"Z>Ra =C5 i +05PYCDRhZPX?=N=N"Z?R =I5PB=RB 0;ZQiR  =I5!P>R3 =C5 i +05P>jZP>PBDRYhZY_hX TNXqhZZ=iA+N XqjZ'!!NXqhZKRhZCD>=?@NRhXORNBNXqhZhXP&hZENXqhZFR=V; XRFNXqhZKRhZPY_09=RR jZ'hP19=VR1iR.PP1:=RjX hZORBNXqhZ=NX&?_i-7FIV`o'4glqv{ A       05  05hX  0 0RjZPF 09=IRR jZPiXPE9=CRE 0 0R  jZPB 0 0 0iXPE:Y_ER hZhhhX) !hjZhZFRBNXqhZ=NFKN"Z) !!ijZhZPhZ!iZ P =RU  0;ZRM 'hZPR hX_P iRl hZP R jhZMSTMT ""0200"&PkII I II?III Pj Pq_=#patch patch patch patch patch patch i YP_@RjZYP_KRhZPjZYP_0=IR6jZYP_0=CR,0=NR,=jZYP0_@=L;=N;Z YPIPm_jZ MR hZP P ;  05hZBMNXqhZP&  Z Y_=hZLN XqhZiNR%iP*hjZ '';! ;Z 8ihRhX PhXU ;RhZPjZjZ !;  'Z R; hX YP_hZLRyhZ?NXq!h#jjZ'hZMNXqhZPP +R hZP AR hZP hX_P YP _hZNXqhZhXG!h#jZ'YP _hZNXqhZjZ'#5jZ'#5YP IIP _ ii33i;333  hi  {   {  { 0    ii iiR KNRhZPyYP_7jX070=NR7=C570 1 ^0RJjZY_>3hZENXhZ=R%jXmP 0;ZiZ hZ55RuIjXmP"50 5 0!5!0=FRIjXmP"3RPlhhZ 1hLN XhZCDE =?>!^#edmkfghi NR|11ihXTNXhZhXBRdhZ70hZ PMNY_\RhXP&RRhXP&RhX P&8RhX P&RhX P&,RhZhh=R; X NXqhZP&hXGP&'hRRhQcRk!jPR{!iP!PP!PPjQR!jPR!iPR!PR!RP[lo#+Sk}$/?ILaq ,/;D\l',:\dpuZ YP _R jZ0 5 Q hR :=I5P R :=C5P jZP 8 { :058 { 8 { 88iYPU _;=F5=?CD>ENR ihXG;  R jZMR hZP P hX ;  :05BMNXqhZPf YP _;=T5iNR iRY =I5Pk iRk =C5Pk R jZ .6EM^fy AV_s (1<@Leu@CTc . K P S Y j r  - x   ) n  , S    3 K W ] i v #y~)ow $6CYaiqy   XhZ1RKjZhZ hZ mhhZ FNXhZ3RhhZ PhhZ PYP_ hZENXhZ 0;Z@=S;=Y;Z 0=FR'jZFNXhZ RhhZ PhhZ PYP_ hZhZ@=S;=N;Z hZjX00;XhZjX00;XhZhhZ YPS_ hZhZ@=S;=Y;0=IR+jZ4R`hhZ P RahhZ P,jZPhhZ hZjX00=IR+jZ R"hZP*-jZ 3hhZ =@ZPh Z hZ YP_jX00=CR+jZ4RbhhZ P RchhZ P,jZP5hiZ hZjX00=CR$+jZ;hiZ  RChZPK-jZ 3hhZ =@Z@=S;=Y;Z hZhhZ YP _hZENXhZ 0;Z@=S;=Y; Z  0=FR. 'jZ hZ BNXhZ jX0hhZ  0=C=NLR 3jZBNXhZuR  P tR  hP >jZP hZ&R hZ jX0 0=IR 4jZ&R2  hZ Pn -RP  @hZ Pn /Rn   hZ Pn hhZ hZX0 79NR0=RRORhZjX0ORhZjX0PhiZ PhiZ hiZ hZ   iY_hh_QP`RkhZhZP=R@0;=F;Z 0=FRilhhZ KRhZPFRPBRhZisR( PLrRA@PL1jZPLhZhZjX009=RRsP9=IRhhZ 0=NRHjZhZjX0hZ0;XjX00;XhZhhZ YP_ hZhZjX00;XhZ@=S;=Y;Z hZ hZ0=NRjHjZjX00;XhZhhZ YP_ hZhZjX00;XhZjX00;XhZhhZ YP_ hZ hiZ  hZ hZERhZ 0;Z@=S;=Y;Z 0=FR'jZPh Z hZ Y_ hZ 0;Z@=S;=Y;Z hhZ SN(XhZ09=IRhXoP:9=CR/hXP:+jZP::YP?_n@KNEhZ@RRP@Z RhXPV NXhZYP_n@KNEhZ3@Z@RQKR3hZ@ZP<N.XhZjX00=BR/YP _ hZENXhZ 0;Z@=S;=Y;Z 0=FR 'jZhhZ FNXhZYP _hZhZqR? ihZP(pRT jhZP(zRk hZP(yR hZP(YR hZP(jR hZP(oR  hZP(nR  hZP(|R  hZP({R hZP(~R# hZP(}R: hZP(wR hZhZjX00;XBNXhZjX0Z P2jZP:.hhZ hZPPijXSBRhZPPFKN RhjXSBRhZPFR,hZP4jZ R?PhiRT/hhZ RhmhhZ Y_ h hh  9Q0RP .Q0R=S5P=L5PhZERhZhX.P RPhh Z hZ  9Q97RHhhZ Pg0QX.RghhZ PgYPPo_jX0 hZP hiZ  hZ hhZ YP_hZhZ 0;Z@=S;=Y; Z "R R=jZhRvhZ hhZ FRhZPPRhhZ P%RhZ jX0 0;XhhZ PhZYP_ hZhZjX00;XhZ 0;Z@=S;=Y;Z hZ 0;Z0;XP(*Q \R*R P  P hZhZ 0;Z NR9jZhZ hZP(5jZP(hZ hhZ hZYPiP.PS_R@0;=N;Z 09=IRhP[9=RRP[9=BRP[9=ER P[9=CQ9=NR[ 0.NRQhZ 0=N hR.GjZ0=NRQhhZ  i P[:O0=RRhZj A     jZRhZ YPII_ hhZjX0RhZPjZ0509=IQ9=BR P9=NQ09=CRH9:P9=RRh)*P9=ERnJoP: h R-hORBRhZRhZiPChhZ jX000R600<509=CNQ'9=NCR*P5*jZP5:hhZ ORnhRkRhhZ =PiQhhMERROR OQ0300SqPkII I II?III PIP~_6jZY_\hR=Y5llijhRjPNjhRNhhi=N5j=---- $;X~0;X~lR=Severe error condition, = compile terminated j ^0=A=PI=YLR=Severe eRGjhZ iRcRcPeeB NXBRDhZPOjZP8hZRu@ZRPc e  R YP_RPR4P=YPA_hZ?RjXRtjZPhRP  $ Z g   0 8 N V l   0 = E R Z i q  ! ) 8 @ R b r  &KNQ\$=YtFNiq&.?J]nqy"*:=FZ/7FNVejmx  9A%*-8=a!,O_l|&.FNfn%(3LUl #(+9FRhZ  =P i`  hZ PhZ@Z  iPhhZ   =hRhZ  R*hXP i `T  hZ P8hhZ hZYPj_ 'hZER@Z h Z QRXPZP Z YP_@=S;=Y;Z SN(XhZ0=RRZ=R5Pc=N5@=L;0; rror condition,= compile terminated< < <=$<;X~ijZh^0=Y^0=XRI=Error stop: enter 'E' to = end compile :  ji0=EREhh jh[l| $t;i3Z PhhZ PPhZ PjZhZYP_ hZ3jX00=BR /jZRhhZ = R( hZP0 jZ@ZPhZ hZ Y_\?R jXR jZP hR ihZ i3Z hZOR hZP jZ=R?! 0;ZQ+!Q+!R3!hXjP;!hXP;!P"hRM!hX?P"R]!hXP"9Q}!7Q}!0Q}!.R!hX7LX$7? 6A2=EPf'2?R[gr & w !!!)!.!1!6!9!=!C!H!K!S!X![!c!k!s!{!!!!!!!!!!!!!!!!!!!!!!!!!" """"!")"."1"9">"A"I"N"Q"Y"^"a"i"n"q"y"~""""""""""""""""Z 0 0R0 0<9=RIRhhZ P9=NCQ9=CNRP)jZP:hZ YP_ hZjX00=BR./jZ2RAhZPIjZRhhZ =@ZRhZ PPhhZ =hZ hZ@ZhZ YP_h c ehZ R8iP RR 0;Z@=S;=Y;Z iP"jR!hXP"R!hXP"1R!hXP"5R!hXP"R!hXAP":R!hXP"-Q!/Q!&R"hX P"R"hX P""Q+"Q+"%R3"hXP"aRC"hX P"RS"hXP"vRc"hXP"cRs"hXP"R"hXP"R"hXSP"R"hXP"Q"(R"hXP"Q"R"hXP"[lo".[k #hps)8HR]z4,<Q`p'w3  hXPv 9=$Q 9=LR 4R x;iXP x;iXhXehXPv 9=,Q 9= Q 9=:Q 9=/R x;iXwPv 9=BR" = ;iXwPv 9=0R8 =0;iXPv =invalid format character vRxTX,p i Pv :PYP~ _6j >0=-R =-;iX_&jX@$R hX1"h(hR ( X0=9R ( X=95&(YP# _"_&jX@RY &hX*h *h i MPICTURE 0300wPPPIII(CCDIIIPP}PeP{P,Ps_X=0=-Rx;iXix;iXP3= ;iX= ;iXiPEP8 Pv 9=EQX9=^R8iRix=Z=S=9=#=%=-=+=^LRiPPPax=eR=e;iXP=E;iXhXPv 9=_Q9=\R! R ix;iXPv 9=*R hXR iR pij=*$R i=$}j=#} t/CONVERTMINT-CUSTOMIZINT nDEBUG INTERASE INT%INDEX0 INTK߳INDEX1 INTQ3^*INDEX2 INT ގJGRAF INT('JRTASM INT.v0LETTERS INT LINKER INT, PICTURE INT*RENAME INTJ}DSEARCH INT(VERIFY INT8hXR0=9R: X=95P: X=#5YP__hXR+: X=^5_hXR+: X=^5_hXR+: X=^5Y_ Rs= %PICTURE:  p = pos   iYPw__hXR: X= 5: X05YP__hXR: X=_5: X05YP__hXR-: X=*5: X=*5YP1_<ih hYPK_j >0=-Rl=-5P0=-R=+A     h *h i h hR hX1P hR  P   YP _= 5i:` X0509=#QC9=9R. hRm..iPC. . i<.iR=%;iXbP.hR0=9R=0;iXbP0;iXbPQR[.  >0;iXb<RX. . iPjQyQyQyR=0;iP9=IRhXP:%hXhXuh hR= No errors iPiR=1 error iP= errors jP= detected i =End of assembly for  t0  j YP IIIIII I@I I I I I, I IIPu PY P _i0=00=9R+ 00PW 0=A0=FRW 07PW Y_ hi  i'  d 0   5 : ? B Y  ( 9 D K W a m v { $9APVkz".=OY_gow#FIQ^fs %/2;JScty|*JRTASM 2303003:PIIIIII I@I I IXRXY_iiXY_hXh = Symbol Flag Value i ii`q=:  V 0  =  V  0 V  =  _V  jZ  PYPu_ii`_V  0;hZ RV 0  i= : UNRESOLVED SYMBOL;  Z PYPIh_M0=0  >0=0 >0=-RPh= 5= 5P= 5PhXhX~  R4P <R  8R~hX# PhX=HR =Invalid hex literal;  Z P   i hR _'  d 0;iX   iP  YP _ hi  i hRl '  d 00   iP&  Y_-\ = =, LE~ ~ 0 @R iP '= 5 i~ ~ 05i07@R2 '  d ~ ~ 05i  i~ ~ 0W@R ''05P0G@R =0=9I=A=FI=H=a=fI=hLE h'  d ~ ~ 0 I I, I IIPI_Rh =File not found i hYP!PI_=!Options (c=com 1=pass1 n=none) :  i i 05h &=INNN5=.INT5i 0= R  09=CR&=C5=.COM5P9=SR&=Y5P9=PR&=Y5P9=1R&=Y5P:iP~Y_"h =Program name :  i h =.pNhR=0enter filename of program, do not e 05Pw% 0  ihi`%   0  iP% ii ji`%   iP% i iY_#&=JRT Assembler ver 3.0 i h =Copyright 1983 JRT Systems i hX!h =Working storage = = bytes  h %0=NRhZP&0=YRhZhXh h $=Y5%=N5j%=00005 hhh%%it0 =.ASM<@%jX%0=NR=hZP(hZ%&09=CRhi`%   0  iPa hX h:RP0Pi:uRPP=??uRY_\hX[ehknq%6AHV`{#/bkx!9>JT`o#9u%/CIT^jx?Xorz (058@HPadirz&1@CFNVm  ' , : J `    ( 3 6 f t x |  ! A J \ g r { nter filetype i P$tp5 h hX%it0 =.ASM<@%jX%it0 0< i hhhV= 55 hih%=N5$=Y57=A=ZI=a=zILEG=0=9ILEW7@G@E%=00005%i&h&=15&= 1111111115  ihYPPP_$i Vj 0 5 V 0  0 RiP 0 V 0 RiPRgV 0 5 V V 0 5 V 0 5 iiRR  5i  i~ ~ 0G@R Pi P ~ ~ 0@R  iPi ''05 iR hXY P hR hX P '=NUMBER5P0=; LR5 '=@@@EOL5P0='R ii~ ~ 0='R  ~ ~ ~ 05iiPS i'=STRING5 iP0=&=$=!=+=-=*=/===(=)L R'05iP0=>R[~i ~ 09==RA'=>=5jPW'=>5iPW:P0=PhP:P'09=EIRjX>P9=NOPRhjX>P9=HLTRvjX>P9=WRITERhXQPhP:P:hRE=Undefined opcode;  Z YP PL_#0=YRq= EQU error;  Z hZjZ=Reloc tab ovfl;  Z P  YP_hZjZjXhXSjXYP_hZ_'0;XjXhZYP_hZ@_'0;XhZ_'0;XjXhZYPh_hZi_'0;XhZjZjXhXSjXYP_hZ jXhZYP_hZ_'0;XhZjZjXjXYP+_hZ'0=@@@EOL'0=!R'0=STRINGRi ` 0jP19=JNZRjXP19=JZRjXP19=JNCRjXP19=JCRjXP19=JPORjXP19=JPERjXP19=JPRjXP19=JMR)jXP1hP1:P9=SR '09=SHLDRY"jXP 9=STARn2jXP 9=STAXRjjXP 9=SUBRjXP 9=SBBRjXP 9=STCR7jX>P 9=SPHLRjX>P 9=SUIRjX&P 9=SBIRjX&P hP :P9=DR'09=DBR,hX+P9=DWR=hXP9=DSRhhZ    P9=DCXR} jXP9='=<=5jP9=>R'=<>5jP'=<5iP:P0=: invalid char<;  Z P[PIPI_\j5 05 05 05[PIIIIII I@I I I I I, I IIPa"P_% RM%% 05%%iYPQ_i W0;iXj W0;iXYP|_0=RR@Phj;X|%==5iR 0; ; ZP8jR8 0;  ZV  R5= Phase error;  Z P8YP=_#0=YRg=SET/READ error;  Z '0=READjR 0;  ZV  j;X|P '09=SETRhZjZ0=RR@PhP/ 9=READR/  0 =:=  ji h hP/ : 0;  Zj;X|%=#5hR  0; ;XPnhZPjZjXP3YP_hZ'0=@@@EOL'0=!RjZhXSjXPYP_hZ_'0;XjXhZYP&_hZjZjXjXYPQ_hZ'0=@@@EOL'0=!R'0=STRINGRiRi ` 0 iPhZPjZiRiPYiRh Y_i'i 09=RR:'09=RLCR$jX>P69=RRCR9jX>P69=RALRNjX>P69=RARRcjX>P69=RETRxjX>P69=RNZRDADR jXP9=DCRRjXP9=DAAR'jX>P9=DIRjX>PhP:P9=ARt'09=ADDRjXPp9=ADCRjXPp9=ANAR)jXPp9=ADIR>jX&Pp9=ACIRSjX&Pp9=ANIRhjX&PphPp:P9=MR'09=MOVRhXP9=MVIRhXPhP:P9=OR-'09=ORGRhZ   P)9=ORARjXP)9=ORIR jX&P)9=OUTR!jX&P)hP):P9=XR'09=XRARPjXP9=XCHGRfjX>P9=XTHLR|jX>P9=Xi q0;iXj q0;iX q0;iX q0;iXYPP_09=ARP9=BRhP9=CR iP9=DRjP9=ER/P9=HRAP9=LRSP9=MQn9=SPQn9=PSWRxP=Invalid register: 0<;  Z P:YP_  05 i 05j  jj;X|YP_  5i  i;jXQYP>_jXhZYPS_0=RjRi,RjX>P69=RZRjX>P69=RNCRjX>P69=RCRjX>P69=RPORjX>P69=RPERjX>P69=RPRjX>P69=RMRjX>P69=RSTR.hXP6hP6:P9=CRb'09=CALLR^jXP^9=CNZRsjXP^9=CZRjXP^9=CNCRjXP^9=CCRjXP^9=CPORjXP^9=CPERjXP^9=CPRjXP^9=CMRjXP^9=CMPRjXP^9=CMAR,/jX>P^9=CMCRA?jX>P^9=CPIRVjX&P^hP^:P9=JR5'09=JMPRjXA      ZP V  V  5Y_'09=EQUR hXLP}!9=SETQ 9=READR hX=P}! 0= #0=NRu!iR-! 0; @;  ZPt!jRt! 0;  Z V  Rq!= Phase error;  Z Pt!hXP}!:YP!_#0=YR!=IF error;  Z hZjZ&09=0R!=05P"9=1R"hR!=05P!=15j;X|P":&R("&&iPA"= Nesting error;  Z && 05&05Y_\hZ~i 0=;=*LRvçYAPRINT.DOCO  !"#$%&'(o)*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNi|9vϧp|oikS756C 89gb4uSc(2z_'g=R,hZ_hXz*R,P,hP,hP,:PX+YP,_'0=NOTR,hZ_hXD+P-_hXD+YP -__hX,'0=ANDR@-hZ_hX,P-YPL-_ _hX -iiR-'09=ORR-hZ_hX -P-9=XORR-hZ_hX -P-hP-:P`-Y_\=A5'09=HIGHR".hZ_hXL-05h5Pj.9=LOWRW.hZ_hXL-h5Pj._hXL-Pj.:[P2/I"P=$i = 5~ 07@R#~ 0W@R"  ~ 05iP"  05~ 0=:R#i#=N5hZ'09=IFR3#hX!P#$9=ELSERv#&0=0RW#&=15P`#&=05&& &05P#$9=ENDIFR#&hR#&&iP#= Extra ENDIF;  Z &&& 05P#$9=ENDR#%=Y5&hR#= Unbalanced IF;  Z P#$&0=0R$'=@@@EOL5P $hX P#$:'0=!R=$#=Y5P#[P%IIIII؇Nw[TX :h4M`ƨm3& \{z, 8T2P@S?ؖ٭m3D%%=OVg8kmSZUEC2{ 0+ۙʲ"F]p웚AmъPQCZ69=&Q|i5 rua[ІCGXBbn,:Gի)TLeA%~&7r9vϧ'LV%jE Wmԃj zBxBt27uS:BrХJM pЬ *4Vb4qw A&-4\& hbJLn"Nq&z\N]'LV9j)`Ao:@62eJ;7uS'!P Ɩ0eJLn<MeN]M$(i '05P( i '05 h5 P)9=(R)hZjX (0=RR(=R5'0=)R )=Expression error;  Z P)'0;  ZhR[)'0; ;h Zh=R5P)_V ' 0;hZ R)h=R5P)V ' _V ' 0;iZ R)=R5P):hZYP)_ _hX(iiRn*'09=*R*hZ_hX(Pj*9=/R?*hZ_hX(Pj*9=MODRb*hZ_hX(Pj*hPj*:P)YPz*_ 'IIIII I@I I I I I, I IIP5/_\0 ;  ZhR/V /0 5 V / 05V / iR/= Symtab ovfl;  Z P%0_V / 0;hZ R/=Duplicate symbol;  Z P%0V / V / 05[P0IIIIII II I@I I I I I, I IIP%_\ji&0=YRx%%0 =:   ij`q%~ $0 iPX%h P% hR%=+ iP%=- i2hR%h %= 5%_ jZ5%ii[P&IIIIII I@I I I I I, I09=-Q*9=+R* '05hZP* =+5P*:_hX) 0=-R*iiR8+'09=+R +hZ_hX)P4+9=-R,+hZ_hX)P4+hP4+:P*YPD+_ _hXz*iiR,'09=EQQx+9==R+hZ_hXz*R+P+hP,9=NEQ+9=<>R+hZ_hXz*R+P+hP,9=LTQ+9=RH,hZ_hXz*R@,PE,hP,9=LEQZ,9=<=R,hZ_hXz*Ry,P~,hP  ¼!sScs1&R@456koɅl me ʂ)hH|656jB0uItT.*HX;V47uSa eAۭ* 29:b`+dHDL\&QҲ'ϟц9'LyB3cp%+VB$L%dpO6d:&Qɸ+8^i[|=>\v -)aHL%'#oE~ MEZ6qȄ І9SƉd Z$+ 4568Qu3Eo ٵОgx,3P Xyt]iX Ip~,u]iVq*2LhVC{7͂[;8VtL4F~1Оgx},1 #|N TdVtL4FF;ړ O͂[;8O;97c5!r= cDxx&(ι07[y@Xs3f[›$8E7 W ɼEq*2^@S5$HZړ /^G7 "kVD /Vhdk.cjhO3*"Y\/BEuLT - VHT Țc5a= Ջf +hL(*2zyקwf+q&lkB8 `5'.N]}[i&4UCch;n+;97N# $vG VАV*VQv7YAPRINT1.PASo o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmn^D`Ap.ŏ>~_Wrw[''LR\$Fe456i?ҭpN| Ok*/ޫW4456o[ !9솚/d\͕M DR%4:h4` q=ǻ7ᶩwno[Z,{. Q)\ĵlX s7--8p;XBцT4tAhg|o1wZ~ڐ.(L팗O/WMgkAm>tD8//M\|w&*[+4K=N]f͟ u*4u%c1^?OtO8Se 2Hdl;@SeJ(Ns`MT Ț `5'մ;H #;:H*c vGS23^~ilFFx@bhLN;XjhO,NZ:H*ciw$AAj`,~r+*1-gBx9О$Xw-LX#^PDc^[΄f=Iwd ym9f;&v˕wX ifk˙jhO,úG^[΄Y`s;MՐv2c^[΄VC{`=r&bwhdtBnn1-gB~=ID5l2T_Jhհổwf+q&GƊA~@au?X+;D5 2? pPiѓ 〼$"=d`,ۓ|2X+Vf{GkU,=EHl{ -[bJổw5b3Փ5ǗuuO;/?'wj͚j3Éo\^ .l )XvsU* wo\* SVCZݫo)`̜@~wjajd+_,x~{|q|w _ b,֔yW%d ~;Td`5'N#›umMh*˕wJ?jhO3|%"Y Ec{ST[y1smc5jhO3||,1zg"v;ƞkFx3Оg/n V;;ƞk<#|?Оg&"\~nAkCnl&-FVC{EDxl&-F~Ual&-<#b= p1"Y~kgpXyM8~= ,.M8Vq*2^wTs1yFx9Tl ~}L1kbW+mȪkY!ZM0Y! TqYf`7a .VA҂GS/rIqJ At&+)d|8>aV2m-WFlJ4-(Bڶ-*[+,b;Sۢ|8>RJdlЀuYiAՍ =WǩUhcp KܐC[s4+-p9[E=c2= ه蒦@}9S+U%A&pO΍CIbHL|U,|?M}(IH 0r), gS(>H84HwJ~9}nHBYhy |\1ҸR仹r{{'H84HwJ~9}nA     L$bF;Ҟ;ZBŔ7]Pk`a֤ %mDUA 5$iw$+2L5=mQv;:z]#6S= LՈ9!Ո j)wGڳ"H{VIt@NRd %mKiS^]]'g_~~x~{\]]]@/l(i@/l(i[N7PQݫ_cшDuE$rM6z6Ԗ(6e,v/RLTcDEFX U$V.z@n& jSa6y--䵴VxZYX Ec{ST[y@`R t;:"z!a&;IlJ~ܑAMs5%J(*Qidޢ8Xyw=+H{V*_;97N# a87;X5 _EVvLTB CXǼ 0iBZ @/l(i[> aݣ̜Hu;m*̦YX ~f8ߓlۋ ~w}Rv;m*L{aCIT.z_s"5hgNtwgE8-Gڳ_s"5Xyp鶒Mb.zppz4R%Vp!f+p D76Rzp8Ҟr=+f+V!tgկw0kR< 5Ib%V[ +^iϊpZgHǽ6fXOE~3&I+IAFJ@FJXzcJT0TJ;5W i XiKJaҚ$35&IC8BZcl¡6Ԧl."tAeD$w^P6fCFJ]i^,55'Zwxle7D(X18CyY 𮾭4!xkVv=kҖՐlnƼw/5aR ]~XA8c^[at ;ۼ|0{0[ٍ3Q=L3BWVy׈TOB(M ?ڬqGư TZTspXyw=+r=+ sh*!')DmrxfS^]]$L.zp %;C/l(i[Nb~kc"9f]v;C/l(i[Nn1kCEmrx:mʧvjMZP]v;C/l(i[Nvl&-CEmrx:mTsQv;C/l(i[Nv{iĹCEmrx:m ׏lpuuUv;C/l(i %! EH4{ +!|e/l-QOMy%ʆw/OVmanym9S+Dgk8fl6 +0R5Xym^S>!&5`ϣw\$r&[gE ZyzaCm*&"w1smc5u jSa6y-le7DmM][> ?+͔ lw ', 򎴎hլPKcx<67' `5'"PYo'9Z|]T +ϕT;2$(,v]:H';jhO;Ҟ!.Gڳ?Ǖwo&>޴."')XY-ذU<~C;\b8 E/lmwǛbssE0[%3\pcqsBmp=w5}\vײ!Ǜ"zaCme@ZG쭱7EVp 0'Pv;jew5i~֨qwL$]:H߾X5WiϊH{V*qG:Ywo& J Jږ(Mw/_-m^PlPC jk5$HT!k^(ataNjbblHFּ|am^S>p=iGR+;MT Ț;Ƣ2:H*cNZ:H*c 0mZJؐy=f[Ski+ESeuڑTJEHz!X5Wy׈TOBhH8&"f;$x&T" snFvGwGڳ"h9Ҟ <ܬ Jږ(MyuugJe*ιUE†^Pd[F†w?[<_+3.Pv;jew5^P[{tel5^PҶO._]mQv;<d \wk;8fiw$wo& jK$V*e{aCIwk;;B U;C/iϊ\p8գPc`8CyPF_.#(LehGj; f+q&GƊpU~ FX IổwH녴F ZyGZGkf'!4j"_.߿PYo'9Z*A7ʻJ0sңH=+!PaşE\"t=I5Ib%7&4z`DZO_,zw=+r=+a5+,~ | jʆoi*% @NRd %mK7YX dXb/l(i5Ib% gTPPC jDUA 5$jG3fNcPv;PU'mgNՎ¡* k;sd3s"vE˧XA Μn+|ac8CVwìI Jږ+-KF9V;ڔM } 5$[]yw/O jSa6y--䵴ƞk䵴t]†TM^K֤]CxzaCm*&Vk҂sE^^P ki&eS%EE^~6fRM^K˦JsEuD i\ shk˙p;:"BZ07Vy׈TOB`5pJ3ըƷv:&>'+gEr=+X if*!')Dmr8}ܔWWWTCZL.zp %;C/l(i[Nb^LuEmrx:mvuj?<] Jږ(Ӧ|nwF.zp %mKiS~nwFpPv;C/l(i[Nv#\]]] J{aCIw*^P[NZ J [Pv;˧+Uul-Ր@ݑvFbޒ!T(ataN܌:$O?C8k;N;<8fiw$Yzp 0mZZcq͘mM]Jyp 0mZ✛1ۚM^K[s3;t]􎴎ZHk4$XsλFlzBS5$LD!d.UyFʻ#Y~iϊjHF;wzaCIp)\5$ 5wzaCIwzaCIpz)/VDhv2R% %mKŦ]~XAMՐv2c^[at ;ۼ|0{T h'3L3Biϊ\p6fRM^KT h'3VDuE'   ^PҶD9\ޔORU\l/6hs} ﶸD랤wzaCIc/l(iZrM6z6-QOO;mr8ؔ M"=flte Jږ(ӋMynwdp`sSv;mr8ؔO ~J\j^]@/l(i[N/6v{G$ʰUܝsSv;mr8ؔ/_6/6/]xӾ؜.*¡6Ԗ(Mww׸~=^뿻~gqwo/_ (ataN*Ŵν*mOԟ-d[F3o>l}8ݧn#:=/YO<S{h7R}X6cG02O;Lݣi tU?[`fiM<>]b&A_7zKnq JgRw&G,Nm{->D(&\[? рLtGE[ӄ;sC>0m=[?&\}͎ xGMW<8I[V܂s;rprjG0;QrUaẖCCtG(hBJI.(%WG)(%W>裔ӄG)Km꣏>JQwuQ*"7)}+o7裏RnܲpORV>裔`_<1-g|am^S>p=ޑW i]:Hw5b3ՓrUиX#Opg*C;R X5k˙;ҞGˑUAb]y ')D *1-g>,Gڳ"WC8\`@anE' `5 +cC2uy,ι!^`@S5$LVvLTG1V@ZG_/5rU;:"j!]źλ+^~W]yLՈ uuN(&!4jH`5 jJ;lJj-ՔL ʬ y`~͉XǼ 5>?^|kNk˙-›wgE-~dW!v#"?-dXז3\ypUAb s%rd~i jKŦ|O4jHP\Mho~ߠw:i[iѓtViEvQL,ٔ>cm(H8RKlxn:Cll&E=M}\Uť"(J-S>( Mo寛7z#X]pEm$Mo}"ĕoG(0ڦI6 RP޿BO0!徏RϞVG{{s]޿~>ᛅZ*(\R0:-O,R5|U[h o룔GV޿~>yߓ(c}QrUbY(gOYu>ٞYD[3_}Q޿A꣏BSO9~,7~{R{G>U'KE%,e LvyfgkV;o;>(`{4꣏RߪKI*+sJzS=Z(e'W?Ue}\pJՕK~ie_ǒGYE.>( .xWB|pל,_\.)$B>8ag1 M Sl5ٞr=ػ$.pǴ^^}}qo\<Є[ˋK E(/YTpBk.q _%o=ػԓsZdwBBчi>`B})qOᛶ7/ޮ>( . |g#a,>~.~˳cB}p., (F6;A.|~EfGP[}H]ߖ[؇o}?>sоerjYKl2S({GPdG0cvʮ]nqNAdν]sʱ܊?ۄ>3A.~vvH8R룏rp,`j ?S /([0Bў}1o N~̩;(i%Q<}RyYyyme]%>JYR}bWee}Ql&|M`Yu#ȜE֏LMi-.~~{#[߿˙s,rӫ=% .rkk2A>489, YȩyGYTpYO{Tվ,̧=R\^5 ,ǧ( ZW"܂F`iWf`fv\Z{P0Pg>(Wg|ڣ`grj9 ֏F\Uuj}QP9slvˁX诛Yy"!j"=Q}xNk?=`l40_<Yf1~G+3O;`%z(x\!!!EN !!]\!!!fQ !:e2{ :f2| <  :| N ]] ]  !"~2 !  SOURCE (.ASM) FILE NOT FOUND $ UNABLE TO CREATE/OPEN OBJECT (.HEX) FILE $ASMHEX~O* !" 6+++* ʲ 2 G$ʓ O q O ~ ‡ ===O ɯ _ a_!~> ? 5*~#" K 0 7 A A >  >   |P }P *A*! ~ ʰxkb))))_y‘BK{ͅ*!66!"80*{#z+++ ## A*!u* yA*!* y)*)*=!w# ] *w!e* yUͅ* w#"  UD*!Z±È !͈ͶÉ!͈͉ͅxÉ!G@É! yG!'' É!+C͉ͶÉ!CiyVG?͉!G„Ͷ*MAY BE FULL) $:³t]dʲ`$_<2!wGx 0w#^#Vx~PCZM  ( "!"2!" """!1!++"">28!"9:] \! 1` >-  ( \A  _!^#V  / Y    2 ů2[\ ! = Ͱ " \ Ͱ " =Ͱ "= > 2\ :Ͱ *"=:Ͱ = E*}o"` j \*"x  ~P #͏ n}Z"* ̀ * The only problem with running CP/M on a Z-80 machine is that lots of your programs are written in Z-80 assembly language, while DIGITAL RESEARCH only supplies an 8080 assembler and disassembler. Many times this presents a terrible problem! Finally, here is half of the answer: a free Z-80 assembler that supports all of the standard ZILOG mnemonics! Assembly language programmers will need no explanations as to how this package is used, and the rest of you Ҋ  >. *}o1YY ZILOG/MOSTEK Z-80 ASSEMBLER VERSION 2.0 (C) 1977 LCS $( !6#  , >2 ͷ  ( ͷ  ( ͷ  ! XN!~- H @ !_^!!" *" ͑ >82l 2Y !" 2 2v 2q !"m > 2} ͚ :  r ;r͋ ͝ :ʿ͠ :Y !Z ~ #x >L2} r2: w#: w#6!Z ͗ >M2} r!͔ "͋ :Z r!Z ͗ 1>O2} r~2w #~2x #~=_!J^#Vf&'<`j#>2 :w 2 :x r>2 :x É!S¤ ˜ÚHÉ:J´zþCz͉y͉xÉR*UÉ** {z*~#" <AOGƐ'@'OxƐ'@'ON#( z86O!W N#N 6SP6* |} !9"ͽ:ʧ!"<§<2*  U!~ʽ5UkW!Z#  # # @zʴ=ʮ=ʚznzcXM>zO!N &6½!K&ç!G&6çC=J=R=ç!/z=ʌ}x|ã Ç ~ T l õ >2 2 2 !" 0 : $ A [ +& -+ *0 'v 8 * "j 8 ͇ !Z l  ~2j #~2k 8 !"j : 2 8 >2 >2 >2 ô : S f * *j " ô * *j {ozg" ô * *j *" ô 2j 2k 8 > 2Z ![ Z !!Z Aں [Һ w#*W ~#"W á .ʫ $ʡ 0 :ګ *W "~ ! "  + - *  ; ) ,  *W ~#"W  +"W +~H, !" 8 B8 !" *W *~ "W "~  *W ~#"W A^ * *_O *~ "W "j !<are invited to peruse the ZILOG manuals as well as the Z80ASM.DOC file on this disk. Have fun! Ö$*1LT\dltzÇîÙô,Ï10 !~=W!xe~#Xbxʇ {z~#o}o҃ JbýÂ<"!Y , <    *$A!6 # T!w $r# *`: 0 O &Wç&W,!+&6,!'÷!#&6çz8O! &!&6,zçyO! &Wzçy~_ ~ # _ ! 6 ! 6      ~# x{•#Š!y© á|}*~ͮ!"*t<\*"!"~*~~#"~OV: t]\_<2!~:Pt<dO`$_<2!w OUTPUT FILE WRITE ERROR (DISK   2 r͝ (͠ ͋ !Z ͗ ʥ>U2} r:Z A>2 :w G~2 >2 r͝ ͝ LY>2 >2 :w 2 ͝ ͈ : 2 >2 r>2 >2 :w 2 >2 r:w 2 >2 r͝ (ʏ*W ~,X#~,X:w 2 >2 ͠ ͈ * " r:w 2 >2 *" ͠ ͈ : 8!" G: 2 >2 L͝ ͝ LʱYʾ>2 >2 >2 r>2 >2 r>2 ä͝ *W ~,#~,:w 2 >2 ͠ ͈ : ==2 r*" ͠ ͈ : 8!" 2 >2 ͈ : ==2 r͈ : 82 >2 r͝ (ʇ*W #~,͠ ͈ : r:w 2 : 2 >2 r:w ƀG: 2 >TDRLDRLCRLRRCRRSLA SRA(SRL8RLDoRRDgPUSH POP EX ADD ADCJSBCBSUBAND OR0XOR(CP8INC DEC BIT@ SET RES JPCALLJRDJNZRET RSTINOUTEQUDEFSDEFBDEFWENDORG EJECTIBM%A%B%C%D%E%H%LHLBCDESPIXIYAFZNZCNCPOPEPMNAMEPAGEPCHLPUSHREPTSHLDSPHLSTAXXCHGXTHLENDIFEXITMEXTRNLOCALMACROSTKLNTITLEINPAGEMACLIBPUBLm$}p$ʅ͈ * "y : .͝ ͈ : >22 *y " >2 r: &>2 : 8C2 *y " >2 r>"2 *y " >2 r>2 >"2 *y " >2 r>2 : 82 >2 r͝ ͝ ͝ ͝ ͈ : m>62 : 2 >2 r: p2 >2 r>2 Ê>2 ͝ ͝ ͝ ͈ * "y ͝ ͈ : >62 :y 2 : 2 >2 r: p2 :y 2 >2 r͈ : : 8G:w 2 >2 r>2 :w 2 >2 r>2 ͝ (EA8>2 >2 r>2 >2 r*W "W ͝ LnY{>2 >2 >2 r>2 >2 r>2 Nʮ: ʏʹ!K ~6#”>6Ÿ]* ! z9{9* !)z9{9. LAST ADDRESS USED IN THIS ASSEMBLY IS: XXXX$ NEXT SYMBOL ADDRESS IS: XXXX$ Z-80 ASSEMBLY COMPLETE $:00000001FF G:| Nx*'~*#'ʇʹ"2 ": ڤʹ*"2 <2 =_! w*': OG! 6:#x9:O:9:O:99 O9y/<96 #6 ! ~6~ #:l 7P=!!!:9:0@> 2:'2![<2l !  Z80ASM-2.0A (C) 1977 LCS SOUR2 r͝ ͝ LYʸ>2 :w Ɔ2 >2 ͝ ͈ : 2 r>2 Ü:w Ɔ2 >2 r͠ ͈ : &.:x >2 >2 ͈ : 8G:x 2 r͈ : 8G:x 2 >2 r>2 3>2 ͈ : HH>2 : 8G:x 2 >2 r:w ʬ͝ AŒ͝ ͝ ͈ >2 : 2 >2 r͠ ͈ >2 : 8@2 >2 r͝ ͝ C*W ~)͠ ͈ >2 : 2 >2 r͝ ͝ ͈ >2 : 8A2 >2 rA,IA,RI,AR,ASP,HLSP,IXSP,IY͝ ͠ *W $.$<$B$H$N $[$a͝ (g͠ ͈ : IC7 PF FPA A A* A A A(#&&#&2#/?&#' '( v'( %:P!@"a͝ ʼ ʼ;ʼ*" ͠ ͈ !" : 82 >2 r:w 2 >2 r͈ * "y ͝ (͠ ͈ >2 :y 8G:w G: 2 >2 r͝ ͝ LKYC>2 ͝ ͈ >2 : 2 :y 8G:w 2 >2 r>2 >2 :y 8G:w 2 >2 r͝ (͠ ͈ : : ʥʺ: 8G:x 2 >2 r>2 :x 2 >2 r>2 ê: 8G:w 2 >2 r͝ ͝ LY >2 ͝ ͈ :w 02 : 2 >2 r>2 :w 02 >2 r:w =_!4^#VD_k͈ * *s#r* "r >2q r͈ * "m r͝ 'ʇ͠ ͈ >2 :CE FILE NAME: XXXXXXXX PAGE # XX "O!0" * ~6!N^*O^#fk"V0͉=* G#*V0####*V0^#V!0^*K0"V0*M0{z"K0!N"O1#w#w*V0!NN*O N#Fr+sq#p0U>G=#w#wY*M0!0n& {ozg"V0!K0{#z$"!EXXLDILDIRLDDLDDRCPICPIRCPDCPDRDAA'CPL/NEG@CCF?SCF7NOPHALTvDIEIIM0FIM1VIM2^RLCARLARRCARRARETIMRETNEINIINIRINDINDROUTIOTIROUTDOe͝ (* "y ͠ ͈ : º:y 82 : 2 >2 r:y 8G: @2 >2 r͝ ͝ L"X7Y]͠ ͠ ͈ : >:2 * " >2 r: 8 2 >2 r: 8F2 >2 r>2 : 8F2 ͝ ͈ : 2 >2 r>2 <͝ (* "y ͠ ͈ :y ʠʸ:y 8<2 * " >2 r>2 >!2 >2 * " r>2 å* "y ͈ :y &>2 :y 8K2 * " >2 r>*2 * " >2 r>2 >*2 * " >2 r>2 !W" >2 r!_1!G1!O1>2 >2 r!1!1sHL)IX+IY+*W j$C 2 r *W : <2 ~#~ r'r͈ * " >2 r͈ * "t "r >2q 2v r͈ * " "r >2q r>62l r! "~ ͝ '6: <2 ͝ , r*W ~#"W r,*~ w#"~ : <2 g͝ ,a axOgx*~ w#"~ ͠ VAn G:Y %: ʅ>U2} 2 :} ™:{ N:} 2 > 2 !  !:q * ! z9{9# : G9 ! *r ! z9{9! : %G * "~ *~ X*~ #"~ * : O *m " :v }:Y /2Y }!H6< !\6!"~2v !" >2>82l "}:| A     @I I I I I, I IIP0_\Vh 00 5 iV 00 0 R11iP 1[_\++++F+~H1W1+6+6+6+6_\++++F+V+^N>r1w_\++++F+V+^N>Ž1wP\2IIIIII I@I I I I I, I IIP_2_\iR2&0=YR2 0hRPPiY_  * R *i ` 0 "0hRPPYP$_R_f h. 00 / i hRf .0 / i hfR1 $C%`.0 / i hR(1 h.0 / i h1YPP8_iihR_jXR_h$'/3;LTWailw} "'*38;Dfpx{$'19<FNQ[cfnrz '+3CKNYadowz (+5=@IQT\`hy 'GJZ6;K| - P e ! !+!1!P!X!r!x!{!!!!!!!! " ""&"I"o"""""""""""#)#.#1#< i@R  . _@ / i @ $Bd%iP hR=iR: R;  . l  / i PRh  . y / i PR  .  / i PR  .  / i PjR  . j / i PiR  . i / i P %jPYPA_i@R  . _0@ / i  $Bd0  i P2jR2i0  i P2[LEXA , tHEXINT tPROCESSLStPRNTLINE>$tLINE %tEXPRA F'tADD l.tLOOKUP &0tTESTBIT :1tSETBIT ^1tRESETBITz1tERRORA 1tY.8Hq})<[osx i&3;Rbq-  ) C U { . D j  0 @XZhRiPPhRhPhPMhY_ h_hX5hRqjX 00Rq_ jX8Rq jXiP _0;iXhR jX_ jX8R jXiPn_ijXR 0i 0R iPY_ hR _jXR  00R  00R iR #I#U#h#t#########$$$!$/$;$?$%'%Y%c%o%v%%%%%&&&'2'G' ((&(1(9(O(\(e(o((((((((().)Y)f)z)))))))))***$*8*=*G*[*`*h*l*x*********+ ++%+*+2+6+B+P+_+n+v+++++++++++++++,,,,0,4,>,F,O,X,i,m,w,,,,,,,,,,,,,,---%-9->-J-X-g-v---------- .*.:.U.d.h.m.3/P/Z/m///////00'0001"1/1K1N1u111]2k2{2222222233'3:3M3`3s33%@iPIhR  . _0@i / i YPZPP P P P P PPPlPPPP_=iR5 0hhhhiYPv_hR%P$EeS`%0$EeS` %YP_)0=B=R=S=ULRiPh YP_iiaT 0 0RQ hPiY_ i` 0 q { " 3 B [ f p z (?UYht T+8OYdkvz #-5?GQYblv8<HQi~ -R]f%)Oaoy$>KOu",47AILV^aksv$),48@QY\fnqz '*4<?IQT\`hxMINDEX0 0300!$P.IIIIII I@@I@ I IIIIIIIIIIIIII*PP4_X=Rj}I_=Convertm ver 3.0 i h =enter name of REL file :  i h =.pNhR=*enter filename only, do not enter filetype i P'h (ip=.rel<@(jX ih(l i mi h]ip=.int< i` h5P]l0 mihYP,_  j ]lmji i`]l EmiPm]lmij ijYP_]ip=.int<]lh. /mi 05 PI_iR%=enter filename or 'end' :  i i 0=ENDRXP%i0@ h%hǸR &  i  &&&&&& & &&&&&&&&&& &"&$&&&(&*&,&.&0&2&4&6&8&:&<&>&@&B&D&F&H&J&L&N&P = u = u = u = u = u = uPb:YPtIx_0@R= 5cPyH&0hi= 5ci `yi h050 RL 05ii h05PjiRvPY_\=A=ZI=0=9I=-LEpuRhX7i` x;iXt i `    p= <  0 i"1i36Yfj .CP[^go " . 2 B O c q z " ? K 7 A I Y     ? |    6 9 H V Z e h Ka%h $(1DH^d{ 1?I]jn#04Mol}  $9f*ERao2Vqv  8EV/48@Pu #+IN[g&R&T&V&X&Z&\&^&`&b&d&f&h&j&l&n&p&r&t&v&x&z&|&~%iPt= sectors = = sum =    h PYSVz#MLETTERS 0300  =03005i 5j M5 i5]lh.0 /mi ]YPj_R(l i mih_ 0;ZR=15P=05iYP_i _ihXj5j _ihXj505YP _ _jhX5_jhX505YP>_ h i`_ihXj=1Rw   jPW5YP_h_ihXj=1R_ihXj=1Rj_ihXj=1RiYP__MEXTERN 0300]_\+V+^+}2|2>zV+^~##~2#~2#N#F#~2#~G<2+V+^z,$""+V+^2#"+V+^* :O::=G:2›=ʸ*##¢:=2¢*}_:G|W*: …:=2‚*r+s(-2;AEIMW[admrz 9=1111R% = end file  iiPY = *** error - unknown special item i iPY :h YPb __hX=program relative =  _jXT j ]lmi  E   i  jYP _=data relative =  __hXjXT j YP _=common relative =  __hXjXT j YP= __ihXj9=0RY hX3P 9=1R _jhX9=00R{ hXP 9=01R hXb P 9=10R hX P 9=11R hX P :P :Y_hX R hX= P hX,(]hX= byte count =  j h =Co 5=Disk containing index files:  ii i =)Index file name (no . or .ix0 required):  i i =.0NhR=!Disk to contain new index files:  ii i 0= R`05Pi=Y5_=w;iXRz_=o;iXRP _  jX8  =Maximum number of records:  ii hR&=Maximum number: j iRn=File already has = records  hP R=MihX>5_ihX>500YP3_]l_ihX> mi  iYPX_ h_jhX9=00R= absolute  iP9=01R=program relative  iP9=10R=data relative  iP9=11R=common relative  iP:_hX= =  j YP_ = name field  i_hX= len = j= 5i`y _ihX>5P]= =  0 j YP_=-- special link item i _hX 9=0000R= entry symbol  ihXPY 9=0001R=select common blMLINKER 3 5 03007 Pt IIIIhI?III?PuI_Rh =File not found i hYPIII_.h5=LINK25 =$$$55h505 =INT505=IN255h5nvertm processing complete i Y_\++++F+~/ > +6+6+6+6TESTBIT ! tRhq~f*n|(6Fhv)<Xah1AVgp2^hqw 5DOotw 25@ado # W ` n  , 1 ; G O T W _ h q v y 2 5 M aximum number of records is  j hRih 00RL=Erase old files?  i i i   05 0=YRiPL 0=NR)hPL=Please answer Yes or No? i PR`=Y505=k;Z hR iP_=c;iXR R=!*** Serious Error Encountered *** i P=Reorganization Successful i Y_hXkYINDEX0 INDEX1  (6ViL^ux8l{ 'JRock  ihXPY 9=0010RF= program name  ihX05PY 9=0101Ry=define common size  ihXXhXPY 9=0110R=chain external  ihXXhXPY 9=0111R=define entry point  ihXXhXPY 9=1001R =external plus offset  ihXXPY 9=1010R7=define data size  ihXXPY 9=1011Rf=set location counter ihXXPY 9=1100R=chain address  ihXXPY 9=1101R=define program size  ihXXPY 9=1110R = end module  ihXXR_ihXj5PPYMINDEX2 -0300/yPIIIIIIIIIIII*I<P_X=.2i.iRh .  R5=+ iP>=. i.ihR1i.Rsll0 milhhjn _iX5jn 000jn  0hR0jn 05jn  jnRRS1l$D$.0 /mi h _jXIRhP1l$D$. /mi YP_)05YP_ 05i` h5P05Y_iac  05P7Y_ia  05PsYP_ hi  jXhRw_jXLR=YR8_0;0;=dat; X R8fid0=:<0<=.dat<hj05l05ihh 40050d05hXg hXY_\ h0509=JQ9=KR%_hXR"hXT P3 P3: h 0=TWR=%INDEX1 error:  i R= Key not found i PR=Invalid command i PR= File not open i P R= Serious error i P[/25 h_X< YP __0;0;0; X 0d0Rc iYPg _jlYPx _i 05j 0ji5 0i5YP IIIIII_& h05 050505_0=AX< hR h_X< YP II_d0=:<0<=.$$d<5 pi0  0  05P'0jn 05nniP=/%INDEX1 - did not find all records on data base i .= out of     PlXd_hX% R>l_ X;Xx f  Xp4XQ 4%0_liX5Pll0 mi 0=TWRh _hX% Rflh.400 /mi i0 lh.j0 /mi _hX% Rp hfh_XkRfi_hXhRfhX(PiRP  i_ jXIR PijXCYP_0=iRRi  P h Y_  $EeS`5 0$EeS`05Y_ hhR=set_curvRTXF,0i5_,0;X%Y_=%INDEX1 ** system error  phhpl400 mipl0 mipl0 mi$D$%Y_d05_hX% Rz d= 5d0=YR d05d0=YR dP  ijX hR iPOi i iROiP"!0=dBR{=npb  4 005044h4 i_hX% R4h4h4 hX ljA     8;>ADGJMP $0ES[p~"KObr$7KZ]` os8HXat>Ddu. 6 F J S f j    # : v   E \ e v  k o @M`'3LU2+VjPS Y\36 #1OveX  05eYi  05eZgCRLFSYe\e]Pe_e`Pjeaebec_.fX_AXESedee  eg =x5eh  eiiej%ek %el %em& $A0  %enl& miepeqRn erPs iesh et`  =-5PeugX_AXESYew_fXGRIDexiXjey eziRe{e|hXj P=!Activate procedure trace? y/n :  ii i 0=YR Ph [HMCUSTOMIZ0300P7IUII'I_=A=PILE=Customiz ver 3.0 i h h ='Which disk is JRTPAS3.COM located on :  ii i =$Which disk is EXEC.COM located on :  ii i h i0= :jrtpas3.com<TieePeIeIeI eIeIe Ipe IXe I@e I(#e eeeeeeIeeeeeeeeP-eee e!P e"e#e$e%e&e'I2e)e*Pe+e,e-e.e/e0_fALLOCATE_BUFFERe1e2e3e4ie6i e7Re8=JGRAF - graph size error: e9j e:P/e;e<e=iMERASE 0300GPPI IIP0_'pujx=:Reix@5Prh5i= 5 p= RP=A=ZI=0=9I=$=/LEx@RiPi x5iix@Rx@R1iP R?P i` x5iiPPe} e~PegXGRIDYeePeeP;eee_*fY_AXESeeRejeiie`e =I5eePeePeeje =I5ee =y5e eie %e %e %e" $B  %el" miegY_AXESYe_fYGRIDeiX;eeRee0= :exec.com< h. / i T h. / i =6The disk search list may contain up to 4 disk letters. i =8These indicate which disks will be searched for external i =6procedures and for PASCAL.LIB. Pascal source programs i =6are not searched for by the compiler and compiled main i =&programs are not searched for by EXEC. i h =4The disk search list is entered as 1 to 4 contiguous i =8characters, e.g. ABC. There must be no spaces, commas, i =or quotation marks. RP+e>jR:  P+e?R\   P+e@R~P+eARP+eBRpP+eCRXP+eDR@P+eE R((#P+eFeGgALLOCATE_BUFFERYeIeJPSeKeLeM_ fCRLFSeN  5eO  5ePieQiieR`eS  05eTi  05eUeVPeW0 5 Y_=\1_  pvX05 10 5#0Rh =%Erase - file does not exist:  p j [.Hc"/:=Q[}MDEBUG 0300PP_ \h =Activate line trace? y/n :  ii i 0=YR=Range of lines? lower,upper :  i j i h =enter new disk search list :  i i 05i`| +0@Ry +=Z5PPh  +=Z5U05U05 h.0 / i T h.0 / i Th =end of Customiz i YQ[gqzMJGRAF 0300?  hX;e ePegYGRIDYeePReIeeeee_f CLEAR_BUFRe= 5eeiie` 705Peg CLEAR_BUFRYeePeee_ f MOVE_TITLEe= JGRAF ver 2.2uei `.  x5P ej8jejeie` e =*5eiePa eiei8e` e 8x5eieP eie UZgZ͖\Z'[5\ xZ(*]DM*ofͦ*_####Rq#p >2:x͛Y* Program termination $>2*]"d*d*d"d\3\""`i"*^#V#"{Šzʟ*^#V+*s#rt*_w#w#w#w#Rs#rx2L"JOH*J:LGdHI!yw# y*J@ z{xN*J:LGd"M-*glL!.#z !IyEw# y;*Mx2"!"*""­*͹\"ʗe(i= jgraf.$$$0e)hXe*hXe+l=  mie,e-hXa e.hXe/gSETUPYe2e3P!e4e5e7e9P~e:e;_fPLOTe<e=e>e?R=plot computation error e@i PeA 05eBgPLOTYeD_ fDATAeE    eF   " eGR{PeH   eI   eJX~eKgDATAYeNeOPePeQ_ f DISPLAYeR0= f|-BOSKUG 506ARCTAN PAS7 1CONVERTMIN2oCONVERTMPASu.ECOS PASZ yCRTMAP PASuEXEC COM EXP PASBJGRAF PAS9]1JSTAT PASc$LN PAS& lREADTHIS RESETBITASMSETBIT ASM.SIN PASRډie`8 e =*5eieP eg MOVE_TITLEYeePa eIeeeePv ee_f XLABELSe &ie$ e eR e e eeP eeeee ie`H e   U 05eieP egXLABELSYeePd ee_f YLABELSe &ie$ e eR ee jie eeP eee**DM*"Ý*Y:G**ͩɯ<##N#Fxyxxyx`i>`i>^#V><"O"Q`i"U "W*Q|/g}/o#T]"S*U*Ws#r#*Ss#r*W*s#r*s#r*c *eDMz/W{/_`iDMxyxڥ`i"e*Jͩɯ G*%5+V+^xɯ<48#+C.!,#z +~>8>4q#p#s#r#w"*:_s#r#s#r#p*pR eS0=seTR4i*0 eUeV ieWeXRjeYPreZ0=se[Rl0(#  e\miP0(#  ie]  e^e_hRRe`0=pRea0=sebRecgDISPLAYYef_=\f * JGRAFeg0eh9=DRZhX!Pei9=IRmhX Pej9=SR=s;iXPek9=CR=c;iXPel9=PR=p;iXPem9=XRPen=JGRAF - unknown command:  eo0 j PSQRT PAS2zTESTBIT ASM *C Ê ÛY Copyright 1982 JRT Systems DISKSABZZZ UZ!9"1Ùee ie`Q e   U 05eie P e gYLABELSYe _)fPROCESS_AXIS_LABELSei= jgraf.$$$@el(i mie$iie`] e= 5e&ieel(i mie& U (05e&&ie(0= R e$ 0e9=xR@ hXv PV e9=yRS hXd PV e:eP eegPROCESS_AXIS_LABELSYe!_fSETUPe"  %e#"  %e$hXe%hXRe&hXSe'iep:erg* JGRAF[es !8CZe|&H9V_Yl'0]01  , b u  6 O n  " - F \  + 6 O  ( 6 ; > I N Q [ !)KSgvvy[hPUXchkvA     *s#r#64"" <26#6#N6#F6#~6**"s#r#q#p:4*:_M\*^#V ^#V+|^&--  $MXC !*#z virt addr:1234 call:1234 $}xgxqg{q&* >“#ʞŠ!-#z +"> 2@!͹:_!))>p#p#="|!*"s#r#s#r6#w#w#w#w*:_>w#w#w!N#F#N#F |}*e*cDMx/Gy/O *>Y*}#"}ͱ ͑ {ʞ"##^#V"+*"*:=2#*DM!)#z !(#z b*c+V+^"+~2"+F+Nq#p#`i""c"*c+~2Ì͓"c*"**z/W{/_#*DM+"*w# L":=2**s#r͹*6#6#s#r+V+^"+V+^"+V+^z/W{/_~2+V+^z/W{/_~222*c@ *ez{!3#z *]^#"]!^#VUz #U\nUU$ 9 UU// /./TbUUUP UUU-VFVUUU UUUUk UUUP$y$$$UUUUU͛ bk##^#V!n ^#V* DMz® {x* DMz {x* DM r+s**E DM^#V##z {x < !/#z +++Gx!"*#"e*m">`w#" *"e*s#r#6F !""bk6#6#s#r#6#>q#p#p#p#p#=c >dp#=s >2͞ ͐  $|#}3ʫ .   %Error: Insufficient main storage$:w    ͌ %Warning: $*a*_z%{x]: h!:G*|:y#~# L s = =%Line 1234 $_`iDM|“}xڛ`i"*z/W{/_͟""*"7*:2***:Ow# ":=2*]T ":*T:O**w# _ s Msg err $  PASCAL.LIB error $}_}|og%Error: =*cs#r#"cBK*c+V+^ s#r*c+V+^^#Vs#r*c+V+^N#Fq#p2*c+V+^ s#r>2 x4y7{PY!A)I)Q)Y)a)i)q)y*]^#V :_!*^#V*5 i "!""2W2N*"!"- !1 "/ *- #"- *gK:I$ :I */ 6#6#"/ *I:I*/ s#r#"/ */ 6#6* ^#V##{ z ¶ 4~ w !"1 *"3  *3 ^#V##"3 { z *1 5 "1 + *1 w#w#w#w#"1  >4^#V#xI yxy ###=< yd xd q#p#*w DMq#p###~U UUU,..,.,g.UUUUU['@KUQSUS.U..c!UUUU!#Q##U_U#UU :>+2I!w# E*I:I*I*I:IS'cj" #"]*a*cs#r#"c*]^#V#"]*_*cs#r#"c*]^#"]*a*cs#r#"c*]^#"]*_*cs#r#"c*]N#"]*c+V+^ s#r*c+V+^pC:12:1@2*1*1s#r!i$z *c+V+^"c~6#~6#^#V͌2*c+V+^"c~ #~ #^#V#"* *cs#r#"c!R#z >2c*c+V+^"c*s#r#"*+V+^"*cs#r#"c!"2:#"Ë*cC4+F+NG+F+Nx/Gy/O N"c^#V#z/W{/_`iDMxڟ^#V#DMʥ^#V#" BK++++"w !> ^#V#x¦ yxگ û BK++" ##2##=™ x :_> 2* ɯ<"C N#F#`i"K ^#V#~2I bk +*DMQ "M ~+ z `i"`i"O ~w : *K *M *O DMͽ :I @ă z/W{/_`iDM`i"G *C ^#V+"E q#p ¼ *G s#ro&))*E *G z/W{/_##N#F r+s" " `i" | }x * " * |/g}/o#T]" * DM* fI !1 >N#F#x* yx< <@ !+#z _*gK*I* " * +" !]͛ *_DM*a!xw yxʖ :1:21:2@2!2 ~#  :1S'cj"<@2  :----------- 00 * $PASCAL LIB""2!͹""*Cd*͌**!N#F#z{xN#F#x"yx5######=h~# :*|*͹""*"*͟""*z/W{/  *:#~# ’ %Trace 1234 $*]"*cDM*a*_!"][ɯ>>>z+xyx>>>>*]Fx2#~#>N#Fp+q##"]`i:> ~#_6 #6 :x@!:G%Entry *]N#T] "]:x@ A^# %Exit $ $^#ʐ:ʚg0 Q ʁ@G!E# :!x!4#z 0Z *]"]"=*a"*c"asz !U#z !V#z *4**2*#"<**6*":**.**2*z/W{/_#">**>*DMx*:**<*~+ x**4**.*#":**8*"<**6*">**>*DMx*:**<*~# x**c+V+^"X++F+N`i"Z++V+^"\+"ch++*`+*b+MDxK+*^+w# yA+*f+*\+s#rx+ʮ+*X+ +^#V"d+zŠ+{xڴ+:Y++*X+*d+z/W{/_"f+!Q#z !R#z !S#z *\+#*Z+"^+*X+"`+*Z+DM*X+*d+x/Gy/O z/W{/_#"b+*c6#6#"c",!,>6#=,*,|d,+",*c+V+^"cz^,*cz/W{/_"c~_-a,g,#,,*c+F+Nx/Gy/O ~O+V+^"c" Õ 2 z¢ {x >2 z/W{/_`iDMy2 x2 BK* w# y : *  p#z *c"c^#V#~# !*c+~/w+~/w*c+F+N"c+V+~w#zw*c+F+N"c+V+~w#zw*c+F+N"c+V+~w#zw*c+V+^N#F#y!~# yu!s#r#"c*c+F+Nx/Gy/O xª!yxڲ!BK+V+^"c##yxy~# y!*c+V+^N#Fyx*c+V+^"G"+V+^+F+N*G"x "yx"!F#z x/Gy/O *G"DMy;"~# y1"s#r#"c*c+~N_"+V+^"G#g"!"G#+F+Nzt"{xچ"ʆ"چ"F+Nx/Gy/O #6#"c*c+6#6#"c*c+V+^z/W{/_~6#=«,*,|,+",*c+V+^"cz,-,%-ò,*c,w# ,"c{怲{xO!, {G7-w*c+F+N+V+^"cx<-yx`i"a-"_--*a-DM*_-3-*c+V+^z/W{/_"c~_×-*cV+^"c##ͯ.¬-*c6#6#"c*c6#6#"c*c+T] w+-"c*c+T] w+-"c*c+T] /w+."c2f.".<2f.*c T] "cP. 1.:f.P.*c6#6#"c:f.:.*c6#6#"c*c T] "c. v.!G#z x/Gy/O "I#+V+^"K#z/W{/_"M#"cy"{"~2F#*G#+|/g}/o# DM:F#"# y"*cw#w#"c*K#"O#*M#*O#+"O#|$# y#"#""*I#|/g}/o#T]*cs#r#"c *c+V+^z/W{/_T]N#F#~# xk#s#r#"c*c+T]F+N+xʙ#~+ Ì#+DM"cz±#{xڿ#}|{z*c+"cV+^+F+N`iN#Fx#yx#~w#6#6!O#z .$*c+F+N+V+^"c^#V z${x($w!P#z *c+V+^zK$z/W{/_~"c"c*cDM+V+^z/W{/_~#zg$`i"c*c+V+^ ) ) () 3)>)I)T)_)!@#z :w2w:w2w:w@2w:w2wN *c+V+^"c"s*c+V+^"c*gK*c+V+^"c*gK:w2w:w2w:x@2x:x2x:x2x:x2x*c+V+^"{+V+^"c"y*c+V+^z/W{/_F++~"c2)x*c+V+^z/W{/_~+V+^+F+N"c`iGzp#þ)*c+V+^".*+V+^"0*+F+N`i"4*+V+^"6*z/W{/_"8*"c`i^#V"2*@*͎*ͺ****2**6**4*s#r*.*||*|**2*#|Z*}xڂ*+*6**0*++|u*}xڈ*!T#c*cs#r#"c*cs#r#"c*cs#r#"c*cs#r#"c*c+V+^w#"c*]*cw#"c"]BK*c+V+^>*]~#,GO*cw# p#6#"c"]"]*c6#6#"cw# y?q#p#"c*cq#"c!| *c+F+N"cq#p!| *cw#w#"c*c+V+^w#"c*c +~ "c*c w#  "c*c+F+N+V+^"cq#p*c+F+N"c*aq#p*c"c^#V#~# ` BK*c+V+^z/W{/_z/W{/_"c*c+F+Nx¥$yx$z/W{/_`iDMx/Gy/O "cx/Gy/Obk T] p#z$"c*c+F+N"cx/Gy/O +V+^`i"=%"?%T]x*%w# x %*=%DM*?% s#r>_%>_%>_%>_%>_%>_%2v&*c+V+^"y&z/W{/_T]+F+N`i"w&x/Gy/O "c2{&*w&DM*y&x®%yx%ھ%MD>2{&%>2{&x%I&D&# x%:{&N&&*w&*y&DMx/Gy/Obk T]~ D&I&#z&N&*w&*y&DM|/g}/o# DM I&D& x1&N&>P&>P&>G:v&g&*c6#6#"c*c6#6#"c*c+A     *c6#6#"c*c6#6#"c*c T] "ct.x».yx.{xO {G7.ɯ*c!~# ."c*c"c*c+F+N##q#p#"c*c++"c*c+V+^s#r*c+V+^s#r*c+~/W+~/_s#r*c+F+N"c+V+^ s#r*c+F+N"c+V+^x/Gy/Obk T]s#r2)0*c+F+N"c+V+^xү/x/Gy/O>2)0z/z/W{/_:)02)0x/y/{PY!/)/)/)/)/)0) 0)0:)0!0|/g}/o#s#r*c+F+N+V+^`i0s#r#"c*c+F+N+V+^`i0s#r#"c>Á0>Á0>Á0>Á0>Á0>Á121 •>:121 ʾ>,ʾ>*?w#"?>2?:?<2?һ>>:??**2+"*2*52iAN"32! ? >:?»>2?2?!=2"?**2|?>ɯ:?H77@:?&?>2?:?3?>2?ɯ2?>2z?O!=2 +~HS?{?V?*@!=2~-g?z/W{/_BK*32+V+^q#p:y?:z?ڌ?>2y?!ɯ2y?!=2~+ʞ?-Ÿ?#?~#?²? ä?!? ~?W#~?W#~?_#~?_000000000000:0@:%@A@G%@a@g%@H'@h'@<2y?ɯɯ<:z?;@>2y?!ɯ2y?:z?G!=2~+S@-U@#z@~#@q@ Z@!u@ ́@!00000000000*;2!=2ͽ2!2! s#r#6*.2:)2@ʽ4*1!4R4*.2SV!43!"u"7"7*c+~2)2+V+^"c"*2;:)24H5E5*,2pC:15!9#z :)2`,5:1@&5!>#z v5=5:1@:5!=#z ͥ6*,2~C> 21<7r5:wb5:w@M5M5 $*1"5<7*5*1DM s`i"1Y652S6ʮ5`i"Q65*1"Q6*1*1z/W{/_"1*Q6)|2X6*1"V6"T6*V6T] "V62#66!I#z 6!J#z !K#z :X6=2X65:S6*T6*1 ~# H6*1*1|/g}/o#T]*1z{6{xܟ++~"32ړ:!t:Ù:!p:z/W{/_`iDMxҳ:*32"32!:";;";;";;";;";;";!:000002!;DM|;:!;<2!; ;`i:!;0*;w#";ɯ2};|D;|/g}/o#>2};:!w;:};Y;6- #0f;[;w# g;Y!w;000000*32+V+^z/W{/_"32*32+F+N+V+^z/W{/_`iDMx½;z/W{/_"32:)2G*c+;V+^+",2x;".2+"52**2<#"czF< << O~x/Gy/O 1<1<<#N#Fx/Gy/O .<    !"u!=2"?2=2?2?2?:12212*c+~020*c+V+^"c+F+Nx0z0x¦0yx>ʵ0>ڵ0>G:006#66#6>õ0z0x0yx>ʵ0>ڵ0>õ0>õ0|A1z2V12W1z1z/W{/_|#1|/g}/o#X1:W141z/W{/_:V1|/g}/o#!1# zR11!"1zn1{xډ1|/g}/o#T]͢1ѷ|g}o:1=21e1*1:11G>ó1²1O:12111O:121}o|g1x21*c+~21"1*LBB:)2`ACC*1͹"1!"122!K#z 25*c+V+^"cpC*1*1"1Y6~C!" 7͜4:)2@6* 7*1z6{x66!:#z <76{ 4* 7#" 7î6:)2@ 7* 7*1z/W{/_|7{4":7:1 "7> 297&7297:97 4*:7+":7|&7*7|M7+"7 â7*7|d7+"7*7^#"7â7**2|ʤ7+"*2*52#z D<:1@ʖ=C=:)2u=2=Ç=:=‡=:w 2wÏ=:w2w!"u!"u = %Input error $'Z>???Z>>'2?:?n>2?2?þ>:?:? > ʆ>:"2͌4"2*2*2("3͌4"3*3*3!3!=2w# 323232333!3ͱ3!3ͱ3!3ͱ3!3ͱ3!3ͱ3!3ͱ3!3ͱ3:3G292x:3_:3W";2!=22202 d'B@GN#V#^!3{w+zw+ywº3~23#33 3:3?_!3+3~+ 3~#Gx:02#4*;2!=22202*92T]=2 w#"92}*;2T]#";2!=2ͽ2!"92>202*92}o4*;2#";2!=22!"92!=2~#"92*92|!#:"C:*32+F+N+V+^`i"E:"G: "32~3 9M 9~8*C:6-#"C:9]9*C:#:z/W{/_*G:|9z/W{/_|8DM88U!T82I:*32~2J:#"K::J:AN9=2J:*K::I:<2I: N0*C:w#"C:(9:I:*C:60#"C:*E:|ʼ9}o9>2N:*C:6.#:J:@җ960#<"C:2J::N:=2N:z9"C::I:<2I:*K: N0*C:w#"C::N:=2N:š9:I:<2I:>2M::M:*K: N9:I:G:M:=2M:9*C:6.#:J:@960#<9"C::I:*K: N0*C:w#"C::M:G:I:<2I::*32++~"32f:!t:!p:truefalse*32+F+N  žB!M# :12121>2ME3D2ME22!K#z 22#~+:B~22##!2 6 # B2~#.CB~#.CB2~#C:)2O(Cx@Gy@2CxGy#6#=„R*R.N2RDM|ڬR:R<2RÚR`i:R"MS_S7S!"OS*MS~A3S@G>#z2nO1O>*MS# NQS> N QS> NdQS> NQS> N'QS+~*OS|/g}/o#!!A# *MS~IS!!*OS=VS"OS}S͸NzS*MSS͸NzSɯ<2vE2vp"S~ڜS!SßS!SS~# ¤S*S!SO*SͳR@PP~w~w*c S*c S*c "cT] O*c "cT] ~w.NO*c "cT] SV*c "cT] P*c+V+^ "cR*c+T] "c+w+®H0}H.ʰHEʸHeʸH2H@:HSH!PH4HʈH>2FHîH>2GHîH:HHH=2HH*MHF#"MHxɯ<*MH~+H-I*IH6#"IH>6#=HHHH*IH6H:PH%IHEI0(I!QH4IHEGIeGI2OI@:OISHH(I>2GHEI:GH[I}I:PHqIG:RH@*KHw:RH!QH@iIH2IH2I@H2I@!Í@:I-ʫI}2RH}/<2RH00000 K:IJ:I I͚J"I"I*I#"I*I#"I"I:I2IL*I:I!!͹"I"?JIAJXM*?JDJ!D#—MINT"iJkJ>kJfJ*iJwKJɯ<ʂJ*J~#"JZJ>'w +N#ڜNŸN ŒN>>~GڵNʳN>ɯ>N~N͢NNN#͊N~N͢NNN>>#͊NNN2O"O͝P|O*O͝P|O:O>> 'w+ &Oɷ "lOG>GxoOWxoO*lOw+"lO CO|O|O N:nOڅO> ͢NOʭO2nOO~#1OO~2nOG#1OO#O"~P"P~GOylP/P_P~6P*~P~2P~w*P~w͈O#P*~P~z2nO1O~w*~P~G:Pw*~P.N#nN*~P*P͈OUP*~P~w#nN/P*~P~w/P~O#nN:P/<O~#uP1 ~# ˆD*FE"FE:1ʿD*1*1z/W{/_"1E*FE"JET] "FE2E:1 D*JE>'E# D:LE=2LE¿D*JE*HE|/g}/o#T]"1:121E*HEz/W{/_"1:121E*1*1|^E}xҙEYFNE*1*1DF"1*1z†E{xʏEx:121x:121> **2|:1NE̓FE«E!?# **2|E:121:1NE E EB>EEF> :)26F:1NE F -F F,F*1+"1:121:1G21:1NE UF AFNE*1*1|/g}/o#T]*1zzF{x3 |TV+^R*c ͳRs#r#"c*c ͍Ss#r#"c*c+V+^{2T+V+^"T"cU:TZU+0.12345678901234E+99"UU~U>+2TU>-2T~͏U>2YU!T"WU*UU# N0*WUw#"WU:YU<2YU'U!T"T>2T>2T:T*c6 #=`U:TG*Tw#pU:To&:TO s#r#"cɷU@ڣU@G>+2TíUG>@G>-2Th&:###~2T#~2U>+2T>02T2U>U>U>U>U>U>U2,V*c T] "c͸NV>G:,VV*c6#6#"c*c6#6#"c*c!~# 7V"c*c"cV!U"J͌:IʨJ!N#z *IJ"J"J ͹"J"J*IDM*J*J3K*JDM*Jf*J*J! 6:3 K!Q#×M+K!C#×M**`i"K"Kbk{_z/W{/_"K2KʓK*K*KyK!C#×M*K"K:K=2KfK*K*KDM*KyKw# y¶KK:I@2ILK:I2ILBK)))) I~#KBK)))) Iw#L!"K*I͌*I͋J2ILK*I#"I"I*I+"I}fL:I2IL"M!" M"M*M ~Ow+yG‰P#>~#O O =¥P"Q"Q#"QͳQ}Q0QQP*Q5QOQ*Qw#"QPQ*QQ*Q.N!!Qw#6Q*Qw#DQ*Q!Qw#VQ!QnN/Q! Q'+ nQ=*QF*QNPYxG{Aw:(Q*Q#!)Q±Q#¢Q<ɯ*Q#~!B# *Q~w>#6#=Qɯ2Q͓QQeQ:Q<2QQ!!Q̓P:Q"R!RO*R42nO>#1O~w"R"Rz5R6z/W{/_7R6E͖R͖R*R#w"R͖R͖R*R#w"R͖R*R#D2F:12F:12@½F:F*Fw#"F*F+"F|ʯF**2|ʽFFíF:12@212>:12?212F*52**2"*2iA~+"EGG"GG +G 4G!8#z *EGV+^"F!"F G!"F G!"F G*EGV+^+"EG"F G*c+V+^z^G{^GrGpC:1rG6#66#6*c+V+^zšG{šG:w ʮGåGpC:1ʮG6#66#6͜4R4G:1 xG̓FGB>ʺG!?# *c++N +V+^"cq#+ ~6+w2HH2FH2GH2PH2QH2RH<2OH*32+V+^"IH"KH!=2"MHH}H:FH IPI*KH.NG:OHmH>2OH*IHxw#"IHɯ2OHx*IHwHK:IʻL:I²L:I ʲL* M*Iz¬L{xL*MxL* M|L}L* M͌*M*MK:I2IL*#"ɯ<" M*I" M*M"My2RM!$͹"SM"UM:RMXM*UMMMGxNM*SM2M"M:WMw#w#fMw#w#w#:Mw#w#ƒM*M# ͑'!IM~#  M Mz %Extern 12345678$M_OG>Ow# M6#M ~Ow+yGMɷ,NG=_Nx$Nyyɯ>2kN#"lN:kN*lN NWN:kN<2kN7N*lN+6@*lN:kN=M*lN+~wxw# rN+~A     "V"V#rY*V#rYzgxںV{*V*VVy*V*V#'W W~+WW zW VX2gWjW~Gx# /W:gW=wWW`iX! !wW=RW=!wW_PY +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? writeln(f2; 'write(chr(27),''*'');'); writeln(f2; 'end;'); writeln(f2); writeln(f2; 'procedure gotoxy ( x,y : integer );'); writeln(f2; 'begin'); writeln(f2; 'write(chr(27),''='',chr(y+20h),chr(x+20h));'); writeln(f2; 'end;'); writeln(f2); end; {part2} procedure part3; {create DISPLAY procedure} procedure process_coordinates; var x_coord, y_coord : char16; begin get_word; x_coord := word; get_word; y_coord := word; writeln(f2; 'gotoxy( ',x_coord,',',y_coord,');'); end; procedure  insufficient storage$!\½\½\\  PASCAL.LIB damaged or not found $"&]6><2(]!U")]+]#]*&]w> ]>*)]~ZE]#")]G:(]+]xɯ 'EXPROC' then error('EXPROC command expected'); get_word; exproc_name := word; rewrite(f2, exproc_name + '.pas', binary, 256); get_word; if word <> 'INCLUDE' then error('INCLUDE command expected'); get_word; include_name := word; +' ? +' ? !VX# XGY! ~ YT]qYXY*VF#~## Y*VNyWxGyO:V>5Y>@]YWYw*V6@#w# PY!U$z !V$z ~W#ʊYڊYOzʖYږYOxYyYxY"ZzʷY##"Yi&^#V+DM`if*Yq#p#s#r## Y"Z6#6͌ ZACALL error $i&))Z^#V+ KZ͛Y͛YExec ver 3.0 $!0 ~# oZ:0O!1>process_string; begin {find start of string} while not (ch in ['''',chr(0dh),' ',chr(9),chr(1ah)]) do get_char; if ch <> '''' then error('Literal string expected'); write(f2; 'write('); repeat write(f2; ch); get_char; until ch = chr(0dh); writeln(f2; ');'); end; begin {part3} writeln(f2; 'procedure display;'); writeln(f2; 'begin'); writeln(f2; 'clear;'); while not end_of_file do begin get_word; case word of 'LITERAL' : begin process_coordinates; process_string; als modify PROCEDURE PART2 which generates the cursor positioning (gotoxy) and clear screen (clear) codes. } program crtmap; type char16 = array [1..16] of char; var ch : char; alphameric : set of char; end_of_file : boolean; map_file_name : string[15]; word : char16; exproc_name : char16; include_name : char16; record_name : char16; f1, f2 : file of char; procedure error ( msg : string[40] ); var dummy : char16; begin writeln; writeln; writeln(msg); writeln; { abnormally teget_word; if word <> 'RECORD' then error('RECORD command expected'); get_word; record_name := word; end; {init} procedure part1; begin writeln(f2; '{ CRTMAP generated external procedure }'); writeln(f2; 'extern'); writeln(f2); writeln(f2; 'type'); writeln(f2; '%include (''',include_name,''')'); writeln(f2); writeln(f2; 'procedure ',exproc_name, '( var r : ', record_name,');'); writeln(f2); end; {part1} procedure part2; begin writeln(f2; 'procedure clear;'); writeln(f2; 'begin'); $ʋZ# Z# ~ nʫZaʿZlZpZ# ŽZ͛YåZ͛YåZ:x2xåZ:x@2xåZ>I2e>N2f>T2g\[ [< INT file not found$[\F[ N[K[_[ɯ< INT file empty$:[3ʏ[ r[ INT module not version 3 $*]*["g*["k*["o*["q*["i*"m*]*o"_"a"c*]*qt\t\*mzl\{xt\ \< rminate - return to CP/M } call(0,dummy,dummy); end; procedure get_char; begin read(f1; ch); if ch = chr(1ah) then error('Premature end of input file'); write(ch); end; procedure get_word; label 99; var i : integer; begin word := ' '; while not (ch in alphameric) do begin get_char; end; word[1] := ch; i := 2; get_char; while (ch in alphameric) do begin word[i] := ch; i := i + 1; get_char; end; word := upcase(word); end; {get_word} procedure init; begin writeln  end; 'FIELD' : begin process_coordinates; get_word; writeln(f2; 'write( r.',word,');'); end; 'CURSOR' : process_coordinates; 'END' : end_of_file := true; else : error('LITERAL, FIELD, CURSOR or END command expected'); end; end; writeln(f2; 'end;' ); writeln(f2); end; {part3} procedure part9; begin writeln(f2; 'begin'); writeln(f2; 'display;'); writeln(f2; 'end;.'); end; {part9} begin {crtmap} init; part1; part2; part3; part9; close(f1); close(f2); end {crn y_axes(y,false); y := y + 10; end; end; (* ygrid *) procedure clear_bufr; type buffer = array [1..20] of char1000; var a : char1000; i : integer; ptr : ^buffer; begin a:=' '; map(ptr,addr(jg.b^)); for i:=1 to (jg.bufr_size div 1000) + 1 do ptr^[i]:=a; end; procedure move_title; var s : string[20]; x,i : integer; begin s := 'JGRAF ver 2.2'; for i:=1 to 13 do jg.b^[i]:=s[i]; x := (jg.line_size div 2) - (length(jg.graf_title) div 2) + 2; for i:=1 to 4 do begin jg.b^[x]; end; procedure allocate_buffer; label 99; var x : integer; b1 : ^char1000; b2 : ^char2000; b3 : ^char3000; b4 : ^char4000; b5 : ^char5000; b6 : ^char6000; b7 : ^char7000; b8 : ^char8000; b9 : ^char9000; begin jg.line_size:=jg.columns+16; jg.row_count:=jg.rows+5; jg.bufr_size:=jg.line_size * jg.row_count + 8; x := (jg.bufr_size div 1000) + 1; if (x < 1) or (x > 9) then begin writeln('JGRAF - graph size error:', jg.bufr_size); goto 99; end; case x of 1 : begin new(b1); jg.b:=0) * ss) + ll; write(f1; xx); if jg.x_grid or main then count := jg.columns else count := 1; for i:=0 to count do jg.b^[ptr+i] := '-'; end; (* x_axes *) begin (* xgrid *) x_axes(3,true); x := 13; while x <= jg.row_count-1 do begin x_axes(x,false); x := x + 10; end; end; (* xgrid *) procedure ygrid; var y : integer; procedure y_axes ( c : integer; main : boolean ); var i, ptr : integer; cc,ll,ss,yy : real; begin if jg.y_grid or main then begin ptr := (2 * jg.line_siztmap}. %ltrace %ptrace extern type char1000 = array [1..1000] of char; char2000 = array [1..2000] of char; char3000 = array [1..3000] of char; char4000 = array [1..4000] of char; char5000 = array [1..5000] of char; char6000 = array [1..6000] of char; char7000 = array [1..7000] of char; char8000 = array [1..8000] of char; char9000 = array [1..9000] of char; jgraf_interface =  := '*'; x:=x+1; end; x:=x+1; (* skip 1 space *) for i:=1 to length(jg.graf_title) do begin jg.b^[x] := jg.graf_title[i]; x:=x+1; end; x:=x+1; (* skip 1 space *) for i:=1 to 4 do begin jg.b^[x] := '*'; x:=x+1; end; end; (* move_title *) procedure process_axis_labels; var hold : array [1..30] of char; i,j : integer; ch : char; procedure xlabels; var count,ptr,number_length,k : integer; begin number_length:=j-1; ptr := axis_labels[i].ptr; if number_length <= 8 then b1 end; 2 : begin new(b2); jg.b:=b2 end; 3 : begin new(b3); jg.b:=b3 end; 4 : begin new(b4); jg.b:=b4 end; 5 : begin new(b5); jg.b:=b5 end; 6 : begin new(b6); jg.b:=b6 end; 7 : begin new(b7); jg.b:=b7 end; 8 : begin new(b8); jg.b:=b8 end; 9 : begin new(b9); jg.b:=b9 end; end; 99: end; (* allocate_buffer *) procedure crlfs; (* put crlfs in buffer *) var i, ptr : integer; cr, lf : char; begin cr:=chr(0dh); lf:=chr(0ah); ptr:=jg.line_size - 1; for i:=1 to jg.row_count-1 do begin jg.b^[e) + c; for i:=1 to jg.rows + 1 do begin jg.b^[ptr]:='I'; ptr:=ptr + jg.line_size; end; end else begin (* no ygrid *) ptr := (jg.line_size * (jg.rows+2)) + c; jg.b^[ptr]:='I'; end; (* update axis labels array and file *) axis_labels[ai].axis:='y'; axis_labels[ai].ptr:=ptr; ai:=ai+1; cc:=c; ss:=jg.x_spacing; ll:=jg.x_lower; yy := ((cc - 14.0) * ss) + ll; write(f1; yy); end; (* y_axes *) begin (* ygrid *) y_axes(14,true); y := 24; while y <= jg.columns + 14 do begi record command, plot_char : char; x_grid, y_grid : boolean; rows, columns : integer; x_lower, x_upper, y_lower, y_upper : real; filename : array [1..14] of char; graf_title : string; b : ^char9000; bufr_size, line_size, row_count : integer; x_spacing, y_spacing : real; end; procedure jgraf ( var jg : jgraf_interface; x, y : real ); var i : integer; f1 : file of char; procedure setup; var ai : integer; axis_labels : array [1..50] of record axis : char; ptr : integerptr]:=cr; jg.b^[ptr+1]:=lf; ptr:=ptr + jg.line_size; end; ptr := ptr + 8; jg.b^[ptr]:=cr; jg.b^[ptr+1]:=lf; end; (* crlfs *) procedure xgrid; var x : integer; procedure x_axes ( r : integer; main : boolean ); var i,r1,ptr,count : integer; ll,ss,rr,xx : real; begin r1 := jg.row_count - r; ptr := (r1 * jg.line_size) + 13; (* update axis labels array and file *) axis_labels[ai].axis:='x'; axis_labels[ai].ptr:=ptr; ai:=ai+1; rr:=r; ss:=jg.y_spacing; ll:=jg.y_lower; xx := ((rr - 3.A      begin ptr := ptr - number_length; count:=number_length; end else begin ptr:=ptr - 8; count:=8; end; for k:=1 to count do begin jg.b^[ptr] := hold[k]; ptr := ptr + 1; end; end; (* xlabels *) procedure ylabels; var count, ptr, number_length, k : integer; begin number_length:=j-1; ptr:=axis_labels[i].ptr; if number_length <= 8 then begin ptr := ptr + jg.line_size - (number_length div 2) + 1; count:=number_length; end else begin ptr := ptr + jg.line_size - 4; ;testbit.asm ;external function which returns bit value of a byte ; ; function testbit ( x : char; bit : integer ): ; boolean; extern; ; ; bit number is in range 0..7 ; ;entry code db 95,6,0 ;int vmcode db 92 ;lpn vmcode db 0 ;mode vmcode ;on entry bc=wtos de=wb hl=wbase ; ;get bit# into b_reg and x into a_reg testbit xchg ;hl=wb dcx h! dcx h! dcx h! dcx h ;point to bit lownib mov b,m ;low byte of bit dcx h! mov a,m ;x inr b ;shift loop loop rlc dcr b jnz loop jc tr + (x + 14); if ptr > jg.bufr_size then writeln('plot computation error') else jg.b^[ptr] := jg.plot_char; end; (* plot *) begin if not ((x >= jg.x_lower) and (x <= jg.x_upper) and (y >= jg.y_lower) and (y <= jg.y_upper)) then goto 99; x1 := round((x - jg.x_lower) / jg.x_spacing); y1 := round((y - jg.y_lower) / jg.y_spacing); plot(x1,y1); 99: end; procedure display ( mode : char ); var bytes_remaining, len, start : integer; begin if mode = 'p' then system(list); if mode = 's' tde=wb hl=wbase ; ;get bit# in b_reg, addr(x) in hl, x into c_reg setbit xchg ;hl=wb dcx h! dcx h! dcx h! dcx h mov b,m ;bit# dcx h! mov d,m! dcx h! mov e,m ;addr(x) xchg ;hl=addr(x) mov c,m ;c=x ;create mask inr b ;incr loop count mvi a,1 loop rrc dcr b jnz loop ;a=mask c=byte ora c mov m,a ;store byte ret ; end ;resetbit.asm ;external procedure which reset bit in a byte ; ; procedure resetbit ( var x : char; bit : integer ); ; exter count:=8; end; for k:=1 to count do begin jg.b^[ptr]:= hold[k]; ptr := ptr + 1; end; end; (* ylabels *) begin reset(f1,'jgraf.$$$',binary,128); read(f1; ch); (* skip over leading blank *) for i:=1 to ai-1 do begin hold:=' '; j:=1; repeat read(f1; ch); hold[j]:=ch; j:=j+1; until ch = ' '; case axis_labels[i].axis of 'x' : xlabels; 'y' : ylabels; end; end; close(f1); end; (* process_axis_labels *) begin (* setup *) jg.x_spacing := (jg.x_upper - jg.x_lue ;bit is set ;false : bit is zero dcx h! mvi m,0! dcx h! mvi m,0 ret ;true : bit is one true dcx h! mvi m,0! dcx h! mvi m,1 ret ; end extern function ln ( x : real ): real; const index = 16; ln4 = 0.13862943611196e+01; r3 = 0.33333333333333e+00; r5 = 0.20000000000000e+00; r7 = 0.14285714285714e+00; r9 = 0.11111111111111e+00; r11 = 0.90909090909091e-01; r13 = 0.76923076923077hen rewrite(f1,jg.filename,binary,1024); bytes_remaining := jg.bufr_size; start:=1; repeat if bytes_remaining >= 1024 then len:=1024 else len:=bytes_remaining; if mode = 's' then write(f1; copy(jg.b^,start,len)) else write( copy(jg.b^,start,len)); start:=start+1024; bytes_remaining:=bytes_remaining-1024; until bytes_remaining <= 0; if mode = 'p' then system(nolist); if mode = 's' then close(f1); end; (* display *) begin (* jgraf *) case upcase(jg.command) of 'D' : datan; ; bit# in range 0..7 ; ;entry code db 95,6,0 ;int vmcode db 92 ;lpn vmcode db 0 ;mode vmcode ;on entry bc=wtos de=wb hl=wbase ; ;get bit# in b_reg, addr(x) in hl, x into c_reg resetbit xchg ;hl=wb dcx h! dcx h! dcx h! dcx h mov b,m ;bit# dcx h! mov d,m! dcx h! mov e,m ;addr(x) xchg ;hl=addr(x) mov c,m ;c=x ;create mask inr b ;incr loop count mvi a,0feh loop rrc dcr b jnz loop ;a=mask c=byte ana c mov m,a ;store byte ret ; end ower) / jg.columns; jg.y_spacing := (jg.y_upper - jg.y_lower) / jg.rows; allocate_buffer; clear_bufr; crlfs; ai := 1; (* axis labels array index *) rewrite(f1,'jgraf.$$$',text,128); xgrid; ygrid; write(f1; ' '); close(f1); process_axis_labels; move_title; end; (* setup *) procedure data; label 99; var x1, y1 : integer; procedure plot ( x,y : integer ); (* place char in graph area - origin 0 at lower left *) var ptr : integer; begin ptr := (jg.line_size * (jg.row_count - y - 3)) ; 'I' : setup; 'S' : display('s'); 'C' : display('c'); 'P' : display('p'); 'X' : dispose(jg.b); else : writeln('JGRAF - unknown command: ', jg.command); end; (* case *) end; (* jgraf *). ;setbit.asm ;external procedure which sets a bit on in a byte ; ; procedure setbit ( var x : char; bit : integer ); ; extern; ; bit# in range 0..7 ; ;entry code db 95,6,0 ;int vmcode db 92 ;lpn vmcode db 0 ;mode vmcode ;on entry bc=wtos   e-01; r15 = 0.66666666666667e-01; r17 = 0.58823529411765e-01; r19 = 0.52631578947368e-01; r21 = 0.47619047619048e-01; r23 = 0.43478260869565e-01; r25 = 0.40000000000000e-01; r27 = 0.37037037037037e-01; r29 = 0.34482758620690e-01; r31 = 0.32258064516129e-01; var div_count,i : integer; result,term,term2 : real; p : array [1..index] of real; begin (* ln - natural logarithm *) if x <= 0.0 then ln:= -0.99999999999999e+63 else begin (* x must be in range 0.7 to 2.85 *) div_count:=0; whilr result,xa : real; p : array [1..21] of real; count,i,j : integer; sign : char; begin (* exp *) if x >145.0 then exp:=0.99999999999999e+63 else if x < -145.0 then exp:=0.0 else begin if x < 0.0 then begin sign:='-'; x:=-x; end else sign:='+'; (* compute exp(x) for 0 1.5 then if x < 6.0 then begin count:=1; x:=x/4 end else if x < 24.0 then begin count:=2; x:=x/16 end else if x < 96.0 then begin count:=3; x:=x/64 end num:=sq; exponent:=ord(zap.ch8[1]); exponent:=(exponent div 2) + 32; zap.ch8[1]:=chr(exponent); a:=zap.num; b:=0; i:=0; while a <> b do begin b:=sq/a; a:=(a+b)/2; i:=i+1; if i > 4 then begin i:=0; if abs(a-b) < (1.0e-12 * a) then a:=b; end; end; sqrt:=a; end; (* else *) end; (* sqrt *). extern function arctan ( x : real ): real; const half_pi = 1.5707963267948; sixth_pi = 0.52359877559828; twelfth_pi = 0ult + sixth_pi; if flag2 = 1 then result:=half_pi - result; if sign = '-' then arctan:=-result else arctan:=result; end; (* else *) end; (* arctan *). extern function exp ( x : real ): real; const factor2 = 0.50000000000000e+00; factor3 = 0.16666666666667e+00; factor4 = 0.41666666666667e-01; factor5 = 0.83333333333333e-02; factor6 = 0.13888888888889e-02; factor7 = 0.19841269841270e-03; factore x < 0.7 do begin x:=x*4; div_count:=div_count-1; end; while x > 2.85 do begin x:=x/4; div_count:=div_count+1; end; term:=(x-1.0)/(x+1.0); term2:=sqr(term); for i:=1 to index do begin p[i]:=term; if (abs(term) <= 0.9e-51) then term := 0.0 else term:=term*term2; end; result:= 2.0 * ( p[1] +(p[2] * r3) +(p[3] * r5) +(p[4] * r7) +(p[5] * r9) +(p[6] * r11) +(p[7] * r13) +(p[8] * r15) +(p[9] * r17) +(p[10] * r19) +(p[11] * r21) +(p[12] *  else begin count:=4; x:=x/256.0 end; if x < 0.007 then result:=x+1.0 else begin xa:=x; for i:=1 to 21 do begin p[i]:=xa; xa:=xa*x; end; result:= 1+x +(p[2]*factor2) +(p[3]*factor3) +(p[4]*factor4) +(p[5]*factor5) +(p[6]*factor6) +(p[7]*factor7) +(p[8]*factor8) +(p[9]*factor9) +(p[10]*factor10) +(p[11]*factor11) +(p[12]*factor12) +(p[13]*factor13) +(p[14]*factor14) +(p[15]*factor15) +(p[16]*factor16) +(p[17]*factor17) +(p[18]*factor18); e.26179938779914; sqrt3 = 1.7320508075689; var flag2,flag3,i : integer; result : real; sign : char; procedure compute; var flip,power,x2,odd1,result2 : real; i,j : integer; begin (* compute *) flip:=1.0; power:=x; x2:=sqr(power); odd1:=1.0; j:=0; i:=0; result:=0.0; repeat result2:=result; result:=result + flip * ( power/odd1 ); odd1:=odd1+2.0; flip:=-flip; power:=power * x2; j:=j+1; i:=i+1; if i > 5 then begin i:=0; if abs(result-result2) 8 = 0.24801587301587e-04; factor9 = 0.27557319223986e-05; factor10 = 0.27557319223986e-06; factor11 = 0.25052108385442e-07; factor12 = 0.20876756987868e-08; factor13 = 0.16059043836822e-09; factor14 = 0.11470745597730e-10; factor15 = 0.76471637318198e-12; factor16 = 0.47794773323874e-13; factor17 = 0.28114572543455e-14; factor18 = 0.15619206968586e-15; factor19 = 0.82206352466245e-17; factor20 = 0.41103176233122e-18; factor21 = 0.19572941063392e-19; type str = array [1..22] of char; var23) +(p[13] * r25) +(p[14] * r27) +(p[15] * r29) +(p[16] * r31) ); ln:=result + div_count * ln4; end; (* else *) end; (* ln *). extern function sqrt ( x : real ): real; var sq,a,b : real; exponent,i : integer; zap : record case integer of 0 : (num : real); 1 : (ch8 : array [1..8] of char); end; begin if x = 0.0 then sqrt:=0.0 else begin sq:=abs(x); zap.< (1e-12*result) then result2:=result; end; until result = result2; end; (* compute *) begin (* arctan *) if x = 0.0 then arctan:=0.0 else begin if x < 0.0 then begin x:=-x; sign:='-' end else sign:='+'; if x > 1.0 then begin x:=1.0/x; flag2:=1; end else flag2:=0; if x > twelfth_pi then begin x:=( sqrt3 * x - 1.0 )/( x + sqrt3 ); flag3:=1; end else flag3:=0; if (abs(x) <= 1.0e-08) then result := x else compute; if flag3 = 1 then result:=resA     nd; (* else *) for i:=1 to count do result:=sqr( sqr(result) ); if sign = '-' then exp:=1.0/result else exp:=result; end; (* else *) end; (* exp *). extern function sin ( x : real ): real; const pi = 3.1415926535897; two_pi = 6.2831853071796; var i : integer; procedure compute_sin; var result,result2,f,exclam,x2,power : real; odd1,i : integer; begin (* compute_sin *) x2:=sqr(an:=mean; for i:=1 to n do begin tx := x[i] - mean; tx2 := sqr(tx); tx3 := tx * tx2; tx4 := tx * tx3; total_x := total_x + tx; total_x2 := total_x2 + tx2; total_x3 := total_x3 + tx3; total_x4 := total_x4 + tx4; end; end; (* totals *) begin (* jstat *) totals; r.m1 := total_x / n; r.m2 := total_x2 / n; r.m3 := total_x3 / n; r.m4 := total_x4 / n; r.standard_deviation := sqrt(r.m2); r.variance := r.m2; r.kurtosis := r.m4 / sqr(r.m2); r.skewness := r.m3 / sqrt( cube(r.m2)); e factorial; begin f:=f+2.0; exclam:=exclam * (f-1.0) * f; end; begin (* compute_cos *) x2:=sqr(x); power:=x*x2; odd1:=-1.0; i:=0; result:=x; exclam:=6.0; f:=3.0; repeat result2:=result; result:=result + odd1 * (power/exclam); power:=power*x2; odd1:=-odd1; factorial; i:=i+1; if i > 5 then begin i:=0; if abs(result-result2) < (1e-12*result) then result2:=result; end; until result = result2; cos:=result; end; (* compute_cos *) begin at ( n : integer; var x : jstat_array; var r : jstat_interface ); var i : integer; total_x,total_x2,total_x3,total_x4 : real; function cube ( x : real ): real; begin cube:= x * sqr(x); end; function sqrt ( x : real ): real; var sq,a,b : real; exponent,i : integer; zap : record case integer of 0 : (num : real); 1 : (ch8 : array [1..8] of char); end; begin if x = 0.0 then sqrt:=0.0 else begin sq:=abs(x); zap.num:=sq; exponent:=ord(zap.ch8[1]); exponent:=(exponent div x); power:=x*x2; odd1:=-1; i:=0; result:=x; exclam:=6.0; f:=3.0; repeat result2:=result; if odd1 = 1 then result := result + (power/exclam) else result := result - (power/exclam); power:=power*x2; odd1:=-odd1; f:=f+2.0; exclam := f * (f-1.0) * exclam; i:=i+1; if i > 5 then begin i:=0; if abs(result-result2) < (1e-12*result) then result2:=result; end; until result = result2; sin:=result; end; (* compute_sin *) begin (* sin *) if (x=0.end; (* jstat *). program convertm; (* convert rel modules to exproc int modules *) type char2 = array [1..2] of char; char4 = array [1..4] of char; char8 = array [1..8] of char; char14 = array [1..14] of char; file_char = file of char; control_record = record id : char4; name : char8; ept,ft : integer; version : char4; codtab, codtabr : integer; x : array [1..104] of char;(* cos *) if x = 0.0 then cos:=1.0 else begin (* else_1 *) x:=x+half_pi; if (x=0.0) or (x=pi) or (x=two_pi) then cos:=0.0 else begin while x < 0.0 do x:=x+two_pi; while x > two_pi do x:=x-two_pi; compute_cos; end; (* else *) end; (* else_1 *) end; (* cos *). (* JSTAT ver 1.0 JRT Systems *) (* *) (* jstat computes several basic statistics on *) (* an input array. *) (* 2) + 32; zap.ch8[1]:=chr(exponent); a:=zap.num; b:=0; i:=0; while a <> b do begin b:=sq/a; a:=(a+b)/2; i:=i+1; if i > 4 then begin i:=0; if abs(a-b) < (1.0e-12 * a) then a:=b; end; end; sqrt:=a; end; (* else *) end; (* sqrt *) procedure totals; var i : integer; tx,tx2,tx3,tx4 : real; sum_x, mean : real; begin (* totals *) total_x:=0; total_x2:=0; total_x3:=0; total_x4:=0; sum_x:=0; for i:=1 to n do sum_x:=sum_x + x[i]; mean:=sum_x / n; r.me0) or (x=pi) or (x=two_pi) then sin:=0.0 else begin while x < 0.0 do x:=x+two_pi; while x > two_pi do x:=x-two_pi; if x > 1.0e-08 then compute_sin else sin := x; end; (* else *) end; (* sin *). extern function cos ( x : real ): real; const half_pi = 1.5707963267948; pi = 3.1415926535897; two_pi = 6.2831853071796; var i : integer; procedure compute_cos; var result,result2,f,exclam,x2,power,odd1 : real; i : integer; procedur *) (* parameters: *) (* n - the number of data items in the *) (* input array *) (* x - the input array of real numbers, *) (* may be up to 1000 elements, *) (* actual variable in calling pgm *) (* may be much smaller array *) (* r - the computed statistics are stored *) (* in this record *) extern type jstat_interface = record mean, standard_deviation, variance, skewness, kurtosis, m1, m2, m3, m4 : real; end; jstat_array = array [1..1000] of real; procedure jst   end; var program_name, name : char8; ept,ft,codtab,codtabr : integer; rel_tab : array [1..500] of integer; done : boolean; ch, b : char; byte_count, rel_ptr : integer; i, bit_ptr : integer; filename : string[20]; f1,f2 : file of char; function testbit ( x : char; bit : integer ): boolean; extern; function hexint ( x : integer ): char4; var a : char4; begin a:=hex$(x); hexint[1]:=a[3]; hexint[2]:=a[4]; hexint[3]:=a[1]; hexint[4]:=a[2]; end; %include 'reset.pas' procedu end; '1101' : begin write('define program size '); value_field; end; '1110' : begin write('end module '); value_field; while bit_ptr <> 8 do ch:=bit; end; '1111' : begin write('end file '); done:=true; end; else : begin writeln('*** error - unknown special item'); read(i); end; end; (* case *) writeln; end; (* special_item *) procedure program_relative; var relocatable_field : integer; begin relocatable_field := address_field; writeln('program relative = ', hexintc.codtabr:=codtabr; c.version:='0300'; c.id[1]:=chr(0a0h); c.id[2]:=chr(04dh); c.id[3]:=chr(001h); write(f2,rba,0; c); close(f2); end; (* update_control_record *) function bit : char; var x : boolean; begin if bit_ptr >= 8 then begin read(f1; b); bit_ptr:=0; end; x:=testbit(b,bit_ptr); if x then bit:='1' else bit:='0'; bit_ptr:=bit_ptr+1; end; (* bit *) function two_bit : char2; var x : char2; begin x[1]:=bit; x[2]:=bit; two_bit:=x; end; (* two_bit *) function four_bit procedure name_field; var i, n : integer; begin write('name field '); n:=name_count; write(' len =',n); name:=' '; for i:=1 to n do name[i]:=byte; writeln(' = ',name); end; (* name_field *) procedure special_link; begin writeln('-- special link item'); case four_bit of '0000' : begin write(' entry symbol '); name_field; end; '0001' : begin write('select common block '); name_field; end; '0010' : begin write('program name '); name_field; program_name:=name; end; '0101re init; label 10; var i : integer; c : array [1..128] of char; begin writeln('Convertm ver 3.0'); 10: writeln; write('enter name of REL file : '); readln(filename); writeln; if pos('.',filename) <> 0 then begin writeln('enter filename only, do not enter filetype'); goto 10; end; writeln; reset(f1,filename+'.rel',binary,1024); reset_check(f1); rel_ptr:=1; bit_ptr:=0; read(f1; b); byte_count:=0; rewrite(f2,filename+'.int',binary,2048); for i:=1 to 128 do c[i]:=chr(0); write(f2;(relocatable_field)); write(f2; relocatable_field); rel_tab[rel_ptr]:=byte_count; rel_ptr:=rel_ptr+1; byte_count:=byte_count+2; end; procedure data_relative; begin writeln('data relative = ', hexint(address_field)); end; procedure common_relative; begin writeln('common relative = ', hexint(address_field)); end; procedure process_one_field; begin case bit of '0' : byte_data; '1' : case two_bit of '00' : special_link; '01' : program_relative; '10' : data_relative; '11' : co : char4; var x : record a,b : char2 end; begin x.a:=two_bit; x.b:=two_bit; four_bit:=x; end; (* four_bit *) function byte : char; var a,i,m : integer; begin a:=0; m:=128; for i:=1 to 8 do begin if bit = '1' then a:=a + m; m:= m div 2; end; byte:=chr(a); end; (* byte *) function name_count : integer; var x : integer; begin x:=0; if bit = '1' then x:=x+4; if bit = '1' then x:=x+2; if bit = '1' then x:=x+1; name_count:=x; end; (* name_count *) function address_field ' : begin write('define common size '); value_field; name_field; end; '0110' : begin write('chain external '); value_field; name_field; end; '0111' : begin write('define entry point '); value_field; name_field; end; '1001' : begin write('external plus offset '); value_field; end; '1010' : begin write('define data size '); value_field; end; '1011' : begin write('set location counter'); value_field; end; '1100' : begin write('chain address '); value_field;  c); done:=false; end; (* init *) procedure write_suffixes; var i : integer; begin ept:=byte_count; ft:=byte_count+2; codtab:=byte_count+4; write(f2; 0ffffh, 0ffffh); for i:=1 to rel_ptr-1 do write(f2; rel_tab[i]); write(f2; 0ffffh); codtabr:=codtab + (2 * (rel_ptr - 1)) + 2; end; (* write_suffixes *) procedure update_control_record; var c : control_record; begin open(f2, filename+'.int',binary); read(f2,rba,0; c); c.name:=program_name; c.ept:=ept; c.ft:=ft; c.codtab:=codtab; : integer; var low, hi : char; begin low:=byte; hi:=byte; address_field:= ord(low) + 256 * ord(hi); end; procedure byte_data; begin write(f2; byte); byte_count:=byte_count+1; end; procedure value_field; var x : integer; pgm_relative : boolean; begin pgm_relative:=false; case two_bit of '00' : write('absolute '); '01' : write('program relative '); '10' : write('data relative '); '11' : write('common relative '); end; x:=address_field; writeln(' = ',x); end; (* value_field *) A     mmon_relative; end; end; end; (* process_one_field *) begin (* convertm *) init; while not done do process_one_field; write_suffixes; close(f1); close(f2); update_control_record; writeln('byte count =',byte_count); writeln; writeln('Convertm processing complete'); end (* convertm *). MCONVERTM! 6 03008 r  sectors sum ARCTAN.PAS 11 12243360 CONVERTM.INT 27 14517511 COS.PAS 9 10210105 CRTMAP.PAS 30 38065559 CUSTOMIZ.INT 10 8256088 DEBUG.INT 3 1513428 ERASE.INT 6 1883617 EXEC.COM 186 61403522 EXP.PAS 16 16721381 INDEX0.INT 75 24192007 INDEX1.INT 51 14850541 INDEX2.INT 12 6867133 JGRAF.PAS 57 05YP _ _jhX5_jhX505YP>_ h i`_ihXj=1Rw   jPW5YP_h_ihXj=1R_ihXj=1Rj_ihXj=1RiYP__ihX>5_ihX>500YP3_]l_ihX> mi  iYPX_ h_jhX9=00R= absolute  iP9=01R=program relative  iP9=10R=data relative  iP9=11R=common relative  iP:_hX= YP _=common relative =  __hXjXT j YP= __ihXj9=0RY hX3P 9=1R _jhX9=00R{ hXP 9=01R hXb P 9=10R hX P 9=11R hX P :P :Y_hX R hX= P hX,(]hX= byte count =  j h =Convertm processing complete i YTESTBIT Rhq~f*n|(6Fhv)<Xah1AVgp2^hqw 5DOotw P IIIIIhIPT_ j5i  05j  05 i 05 j 05YPI_Rh =File not found i hYP I_=Convertm ver 3.0 i h =enter name of REL file :  i h =.pNhR=*enter filename only, do not enter filetype i P'h (ip=.rel<@(jX ih(l i mi h]ip=.int< i` 70433894 JRTASM.INT 118 39515005 JRTPAS3.COM 170 62032386 JSTAT.PAS 18 20914830 LETTERS.INT 10 2127916 LINKER.INT 30 10304547 LN.PAS 12 11677289 PASCAL.LIB 99 96853545 PASCAL0.INT 188 63422713 PASCAL1.INT 49 17099726 PASCAL2.INT 39 9356304 PASCAL3.INT 79 20773060 PASCAL4.INT 6 2616456 PICTURE.INT 42 10666019 RENAME. =  j YP_ = name field  i_hX= len = j= 5i`y _ihX>5P]= =  0 j YP_=-- special link item i _hX 9=0000R= entry symbol  ihXPY 9=0001R=select common block  ihXPY 9=0010RF= program name  ihX05PY 9=0101Ry=define common size  ihXXhXPY 9=0110R=chain external  ihXXhXPY 9=0111R=define entry point  ihXXhXPY 9=1001R =external plus offset  i25@ado # W ` n  , 1 ; G O T W _ h q v y This file contains information which can be used to verify that files on the distribution disk are free from error. The VERIFY program will compute the sum of the bytes and the number of sectors for a file. To run VERIFY just enter "EXEC VERIFY". It will ask for the name of the file to be checked. It will then print out the sum and sector count for the file. filename h5P]l0 mihYP,_  j ]lmji i`]l EmiPm]lmij ijYP_]ip=.int<]lh. /mi 05 =03005i 5j M5 i5]lh.0 /mi ]YPj_R(l i mih_ 0;ZR=15P=05iYP_i _ihXj5j _ihXj5hXXPY 9=1010R7=define data size  ihXXPY 9=1011Rf=set location counter ihXXPY 9=1100R=chain address  ihXXPY 9=1101R=define program size  ihXXPY 9=1110R = end module  ihXXR_ihXj5PPY 9=1111R% = end file  iiPY = *** error - unknown special item i iPY :h YPb __hX=program relative =  _jXT j ]lmi  E   i  jYP _=data relative =  __hXjXT j  INT 7 2441556 RESETBIT.ASM 5 5944774 SEARCH.INT 4 421409 SETBIT.ASM 5 6016140 SIN.PAS 8 9287473 SQRT.PAS 5 5310766 TESTBIT.ASM 6 6850814 VERIFY.INT 8 610304 w/*Tz~¼o'`a>,*@R3.yj ّmQ1_ó;2O~N-AE]>t=~?Sw }^|GBHx1g\Z\:q JE#9t}@T֭o=ͩ_?Ӝ P]wR&U8kKޓШp*uv}[بpKޓ[Fq5*\% C\nhn&Y w4cHn!NZuv}[W?,Qa6*̜f uv}[p:Gg[cKޓήoXjTӏ:~jxuEBX*:-~\v oW8 JObݪ0C85]ѹ)̹ms q4uPʃ+JtHh-xH~$̩%ԩmq$\R#H)˅dڏsz?7Q2R>PI冒ZtF swq47?5*F*SBaRp!6**f C\nhn7 p !ʅǺUaN>PM swq47TK55*PhnSPQٮ#ψ{nU?.b+D aTU}JW"&ph#@T S*iVL;'iC^BFӎ"!@)cl8kUhGv%1C Sh9+?) a\>tEvx図 B>HKFNˁPgcN':} 8R?@ABCDEFGHIJKLMNOPQ*3: ZŜZO>QZ$Cw*џ̧\`G$-#GJYւ{J+w0g!Z9Oe~o*R̿{Uo'Z9#t)<RS=?3kTr9:nfjTٹQhP}@KP}jufGGvnT8Z T_j