CPM @ !6X1"!_$$ *%.!~.1~.!~ͺ :G_$$ G͸.5~`*.~q> =y*.~ږ„*%%%.*.wG,Ÿ$wG,©*.~*.~*.~º*|!w@ _ W@UQAUTO COPYRIGHT (C) 1978, DIGITAL RESEARCH _͌> ͌> Ì͘~#͌ç _2<ɯ2þ2<2<2<2a{_:ȷw:ȷ>ĸ:=2w!'!5w:ȷĸ!ͧ͝ʂq !F#xʕ~wÆw!"  w# µ!~6͸:ø !¼#͘*~ ÷͌#>?͌͘q =_.:;<> 5Åo$>!?2*5"o@G:v:w|x2pʟ#*6?Ñw~ʦÕ#6 Ÿ.#*¿6?w®#6 #6" #~? xDIR ERA TYPESAVEREN J!y1# 6y#1 ķL;L>Mį2ɯ21ͳy͸<::‡1͘ͰA͌>>͌&;Ͱ2D:ȷt!_~#fo\+{t!v"!âREAD ERRORâNOT FOUND! ~ #0 Wxx€‚G ~ # x~#'!?~ɯ2:ȷ=!Ⱦø:ȷ=!Ⱦ:øD9!~ t 6?#m͘ͰA͌>:͌> ͌:`Ox0 ±> 0> ͒x > ͒Ý͝z`D ͢&!5q#~Yq#"!6?=ͳ`9`ALL FILES (Y/N)?D9u͘!6!~UnƯw4!?~`͌͝`B=`KD:ȷD9o&)|+!;ë͢͢`NO SPACECANNOT CLOSED:9_!'*5=%_Y#"DYG!~?ǸpYp2S``Kh͢`FILE EXISTS: “:ȷc=22͸c 9!]%C!;}|Ið=IKD!~2>F~2ȯ2\!!'!~ #~#x2͘:2ͫ;1:͸qKR͢`LOAD ERRORCOMKD: !ȶq$$$ SUBJA`lr:ط+yGy_!/~O ! (?" ! q!9"1@** }D!{!u!{S:A2]]úBDOS ERR ON : $BAD SECTOR$SELECT$R/O$!~6 ͺO: :˷  2> :˷y!4 5 6y:^@Oy  :@#   $O:]* N#ͺ ‘xs~+žSu¯!>wsʹNkNx#N)s#wO)~xsp *@M*>w#6*w*{*::+s#r*5Y*::͕"ڣ**s#r*4{*:@ɆO*M!q:'2*2:!* ͼͼ*!վږ*&*:Ն2!4u:!q:͹!ն:+!վ*&*z6!4A!6:(*&*~V*& *~$!Զw͢*" :2q!6!:Ֆ*&* ~2:!ԆO* :?HHҼ!4v!:վ`!q:2* "!6AZ :͢*&*6Z!q:2!>:Ֆ>!ՖHr>!Ֆ~Hw#~!>ɖ!Նw*MT`:*MTo:>!s+q:=2ʪ:!ՆO* :!ՆO* w{W u * * w: uZ :#!6 >!վ#:!ԆO* *&*  w!4!6ͮ1 :Aͱ* "!@" :ʈ*" !6 >!վڅ*&* 6!4iͱ!q$:™ * 4 :¼:ҶBÿ:!6(!6:*DM$:*DM$(:!վ#!6:͉!6:#*}7!6IY?(>!վa!6*}!6y!#wO>Ҕ:=O* ~2*M2«!6*Mr*&"*&* :w:Y:!վ:<2:?͉:!6!6?>!˾)!)* :ˇO! "z:ˇO!} "*& "*&) "*M::=2:2* ~2* >w͌* "DM$* }2!" }22* M!/ ^#Vm2m*M:m2m*Mm*Mm*" m*&" m:2m* DM]mkm2mm!6!6!6!" m͌m͠m͠$m͠ m*" ͠Zm͠m͠m͠Jm͠Bm͠͹m:2m:2m:* " m*z" mͻm:|2m!6m#-6AJU[dgӅӋӔӝӨӷ $:ʅ* :w:2͌: ͫ+s#r_og_{ozg_og~ ¹~ ^#V) ~ i`N#Fogo&ogZio٢٬ٲ.@QT\_fp CP/M on North Star double density disk 54K Version 1.45 Copyright (C) 1979 Lifeboat Associates at '@EJ] VER 11 COPYRIGHT (C) 1979 LIFEBOAT ASSOCIATES12!á1>!t>!t>2J>22!"!":O!~6: y2 : !ؾwȷ:!!Õ>2:<ͻ.!YY""P2:>:O! 6Yy2y2`i">22د2ͻ!͞p.!͞ʆ!͋ͭ*$$͘*͓گ:=O=>2͈´>!͎گͻ!͞.!͎*͘*͓! !͋e.! ~ѯɯ7 #!ضw!~<͋ͭBe*:T]$$ԓ NPz>j>͍:@͈Ï!:œ~zW>:!w#4YYYYyg> gy?O 2! ~Y̜͜*~}OG<=:5SO@:m>wG#7wG# J>zWr!0O/z::::$0:ط):عy2:_ :@;>z::R:Z::q:I~_G#~_G# sXJÕ~#•##~͵O͵ڹ=!91a!~N# ?O(?@#é >vÞv>,:.=6ۯ>>:^=j=L>0^j:ʓ=ʞ=ʄy> ʓyʞy>:۷!:W|g~w,$|û>A>>>7>0H  " @B D $@D @@$ $$$BI$H"! $HD@B "B "   D  HB $$UPHH@ @DB  $H I!H ! $BI"HI$@I" I$I$H I $I$!IBI$IBDA$H $ $! I$@$HD  $$IBH DD  !$ $"@B $I$I"$""I$D"$" @@D"DHDI$DDD" @"H! "! "AIB  !   DDI$$BB DI "$ABH I BHH$A"$H !BA $! DBI$  $$$I$$HHHHB$! D"D BIHDAAI$$$H$HI$BI$I $I$I$I$$I$ "I$UUUUUP$I$I $@ A@D!HHDHH  $$HD AHI$$!$ DHABA! B  !@@D$  "@$I$ @@ MOVCPM COMO CONFIG COM ASM COM@DDT COM&DUMP COMED COM0 !"LOAD COM#$PIP COM7%&'()*+STAT COM,-.SUBMIT COM /0SYSGEN COM 12DUMP ASM!34567LIST COM8COPY COM9:FORMAT COM ;<DENSITY COM=^CPMOVE VERS 6 COPYRIGHT (C) DIGITAL RESEARCH, 1978 COPYRIGHT (C) LIFEBOAT ASSOCIATES, 1979 1] ?! ʑʑ0 Ҧ))) O r|¦}ڦ<<.g))K Invalid memory size.$!$~/w/w|g|?>@!_wG!00"!4~:60+4!_F!00"!4~:60+4K!N#F! Wxc  F_Q#0# =+w+w:>Q}o|g"]! *]! xʬ {Ÿ~#o}oҨÎ*.Q# ·! ~#* DM!  u*DM! D!00"I!J4~:!6X1"!_$$ *%.!~.1~.!~ͺ :G_$$ G͸.5~`*.~q> =y*.~ږ„*%%%.*.wG,Ÿ$wG,©*.~*.~*.~º*|!w@ _ W@UQAUTO COPYRIGHT (C) 1978, DIGITAL RESEARCH _͌> ͌> Ì͘~#͌ç _2<ɯ2þ2<2<2<SAVEUSERCOM>GENUSER ASM|?@ABCDEFGHIJKLMNFILECOPYCOMOF80 COMPQRSTUVWXYZ[\]^_F80 COMJ`abcdefghiL80 COM;jklmnopqFORLIB RELrstuvwxyz{|}~FORLIB REL4FORT06 DATFPPLIB RELGLIM RELzKAPPA BAKKAPPA FOR60+4*"OK!N#F*]! u*]=1!v"P!M6X!K !0"[ZZ Syncronization error.$y~# uy~+ À Constructing 00K CP/M Version 1.45 for North Star double density disk.$ System requires 00K of memory.$ New CP/M in memory at 900H (sysgen position) is ready for "SYSGEN" or "SAVE 00 CPM00.COM"$K VERS͆2!p+q*̓!p+q*͆!p+q*͆!p+q*͆2!p+q*̓!6 ̓ ͆ ̓!p+q*̓> >ڦÚ!p+q*DM͞:̓ ̓:}2:~!!:*& N̓!4!6::2a{_:w:>ĸ:=2w!'!5w:ĸ!ͧ͝ʂq !F#xʕ~wÆw!"  w# µ!~6͸:ø !¼#͘*~ ͌#>?͌͘q =_.:;<> 5o$>!?2*5"o@G:v:w|x2pʟ#*6?Ñw~ʦÕ#6 Ÿ.#*¿6?w®#6 #6" #~? xDIR ERA TYPESAVEREN J!y1# 6y#1 L;L>M2ɯ21ͳy͸<::‡1͘ͰA͌>>͌&;Ͱ2D:t!_~#fo\+{t!v"!âREAD ERRORâNOT FOUND! ~ #0 WxxG ~ # x~#'!?~ɯ2:=!ø:=!:øD9!~ t 6?#m͘ͰA͌>:͌> ͌:`Ox0 ±> 0> ͒x  > ͒Ý͝z`D ͢&!5q#~Yq#"!6?ͷ  #~#x2͘:2ͫ;1:͸qKR͢`LOAD ERRORCOMKD: !q$$$ SUBJA`lr:+yGy_!/~O ! (?" ! q!9" 1@ * * }D!{!u!{S : A2] ] úBDOS ERR ON : $BAD SECTOR$SELECT$R/O$! ~6 ͺO: :    2O* n&"*<M!:=!͡" * ~2* ~2:< * w* :w:2O`i"Y !6+6>!ږ *&*:2!4u :!q: ͹!: +! *:!O* *&*  w!4!6ͮ 1 :Aͱ * "!@ "  :ʈ*" !6 >!څ*&* 6!4iͱ!q$:™ * 4 :¼:ҶBÿ:!6( !6:*DM$:*DM$( :!#!6:͉!6:# *}7!6I Y  ? ( >!a!6 *}!6 y!#wO>Ҕ:=O* ~2*M2«!6*Mr *&"*&* :w: Y  :!:<2:? " m*z" mͻ m:|2m!6m#-6AJU[dg $:ʅ* :w:2͌: ͫ+s#r_og_{ozg_og~ ¹~ ^#V) ~ i`N#Fogo&ogZio.@QT\_fp CP/M on North Star double density disk 22K Version 1.45 Copyright (C) 1979 Lifeboat Associates =ͳ`9`ALL FILES (Y/N)?D9u͘!6!~Unw4!?~`͌͝`B=`KD:D9o&)|+!;ë͢͢`NO SPACECANNOT CLOSED:9_!'*5=%_Y#"DYG!~?pYp2S``Kh͢`FILE EXISTS: “:c=22͸c 9!]%C!;}|Ið=IKD!~2>F~22\!!'!~ > : y! 4 5 6y: ^ @Oy    : @ #     $O: ] * N#ͺ ‘ xs ~+ ž S u ¯ ! >ws ʹ  N k  N x #N) s #wO) ~x s p  *@M*>w#6*w*{ *::+s#r*5Y *::͕"ڣ **s#r*4{ *:@O*M!q: '2 *2: ! * ͼ ͼ *<M!&*z6!4 A !6 :( *&*~V *& *~$!w͢  *"  :2q !6!:*&* ~2:!O* :?HHҼ !4v !: ` !q:2* "!6A Z  : ͢ *&*6 Z !q:2!>:>!Hr>!~Hw#~!>!w*MT `:*MT o:>!s+q:=2ʪ:!O* :!O* w{W   u  * * w: uZ  :#!6 >!#:!6!6? >! )!)* : O! "z: O!} "* & "* &) "* M:: =2: 2* ~2* >w͌* "DM$* }2!" }22* M!/ ^#Vm2m*M: m2m*Mm*Mm*" m*&" m:2m* DM] mk m2mm! 6!6!6!" m͌m͠m͠$m͠ m*" ͠Z m͠ m͠m͠Jm͠Bm͠͹m:2m: 2m:* at '@EJ] VER 11 COPYRIGHT (C) 1979 LIFEBOAT ASSOCIATES12!á1>!t>! t>2J>22!"!":O!~6: y2 : !wȷ:!!Õ>2:<ͻ.!YY""P2:>:O! 6Yy2y2`i">222ͻ!͞p.!͞ʆ!͋ͭ*$$͘*͓:=O=>2͈´>!͎ͻ!͞.!͎*͘*͓! !͋e.! ~ѯɯ7 #!w!~<͋ͭBe*:T]$$ԓ NPz>j>͍:@͈Ï!:œ~zW>:!w#4YYYYyg> gy?O 2! ~Y̜͜*~}OG<=:5SO@:m>wG#7wG# J>zWr!0O/z::H  " @B D $@D @@$ $$$BI$H"! $HD@B "B "   D  HB $$UPHH@ @DB  $H I!H ! $BI"HI$@I" I$I$H I $I$!IBI$IBDA$H $ $! I$@$HD  $$IBH DD  !$ $"@B $I$I"$""I$D"$" @@D"DHDI$DDD" @"H! "! "AIB  !   DDI$$BB DI "$ABH I BHHX`hp 2 CONFIG VERS 1.5 COPYRIGHT 1979 LIFEBOAT ASSOCIATES !6!6P!6M!6S (Ăy 2͵ ͋ ͖ ͖ Ăy0 ͖ 2ͯ 1 'd ! ^#V#*0}o|g*  ":D x=D yɇ_^#V~$N# * x~# " CONFIG Version 1.5 Copyright (C) 1979 Lifeboat Associates Your CP/M System is now configured. Type SAVEUSER to permanently save on disk.$ / o g^#V*s#r:!"/LYfs * TB z y " C!$'*-0369UX[^adgjmy     $ + 0 C F I L O R U X [ { ~    ( , 2 8 > D H N Q z } ô"`i"A: y2*DM*yɯ2ͭ3***68 é >vÞv>,:.=6>>:^=j=L>0^j:ʓ=ʞ=ʄy> ʓyʞy>:!:W|g~w,$|û>A>>>7>0BF%===%GJ1>/1%~6!I45wy͘ɯ2Iɯ::$0:):y2:_ :@;>z::R:Z::q:I~_G#~_G# sXJÕ~#•##~͵O͵=!91a!~N# ?O(?@#bjqqqjv!U͕!">!w! wJ>22!"!"2OCONFIG >/ɯ ɯA $A"$H !BA $! DBI$  $$$I$$HHHHB$! D"D BIHDAAI$$$H$HI$BI$I $I$I$I$$I$ "I$UUUUUP$I$I $@ A@D!HHDHH  $$HD AHI$$!$ DHABA! B  !@@D$  "@$I$ @@1!~66*.".#^#V{2{_":MʢSʳy ! ! ^#V# [N#"É! !N#F!":P!N#F*"!*!- / o g^#V*s#r:!": O:#  >>>>@>>7 @@@@CCCBBC/>$YU 0@@@0P>/0@y)$$$24ͭy:>ɯ7;qÜâêw:2!"!":"`i"O! "~fy"wf6h>*DM*::2@:"*~6*:ô:ô:1*" COPYRIGHT(C) 1978, DIGITAL RESEARCH á 4êü /L9ASMPRNHEX!)ͼ !ͼ :5͡ :6:6͡ :7͡ :\ ʻ 24!dͮ 25ͮ 27ͮ 26!8 ( ʃ !Y 1  :7ʞ !z 8  !"2D2X2#! 8 !ͼ z{* ! !"!8 w#  +6# *#"~!ͼ G:6QxJQS*!w#"! 1 !"!Y~~# …¡z!ͼ wʹ* ! w#" ! 8 !" ! zz_O4:  :6y@2 0 0:x0_<2! wI2 2> 2 >2ɯ22 !~@_6^4#: w~$w: 0 q: A: A͋q: a{_2  2 ͞ !ɯ2I:  ;*:  ͭͷ ͭ͋>9q>9: '!2 >9 7:! 6 >2>2: 2 Qͭ:Ğ! :lj<͖<j<|<: OʊQ>ÖH >2 2 û: B­>ôD> ¸!52 !"!N#~#A07O! ~*!) " !4w_#~ ʸ A:4~~# ¼ > \ ?ʻ w# !ͼ ? !ͼ :! G~#x=2> > ! >x6 #='G! ~ p( O*}O>4?:7w:#ĸ*"!͸* }w>ͪg( ʆ1 Y :7ʗ8 z !<ͼ CP/M ASSEMBLER - VER 1.4 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:7xʘ!#~ʄl͸Ä**!O {zʊ͸*"!!#^4!$wͯͯWƐ'@'ê>:ͪ!#^Ww*!{͚|͚}͚͚{!$~#͚͚> ͪ> ͪ:  '<ͭ'<>V$>O$à\ÞØ`rÍÖ![w#w#b!"!F#v2[G*##~w*##~<*}q!~ڬ6![^![^#fk"͎͘!G#*####*^#Vû!^*"*{zA"*![N![ N#Fr+sq#p/>G=#w#w3#w#w!JSYMBOL TABLE OVERFLOW G*##~w*##~͎*_###s#r^#V`à 4 Wm ()*+,-/ABCDEHLMDBDIDSDWEIIFINORSPACIADCADDADIANAANDANICMACMCCMPCPIDAADADDCRDCXENDEQUHLTINRINXJMPLDALXIMODMOVMVINOPNOTORAORGORIOUTPOPPSWRALRARRETRLCRRCRSTSBBSBISETSHLSHRSTASTCSUBSUIXORXRAXRICALLENDMLDAXLHLDPCHLPUSHSHLDSPHLSTAXXCHGXTHLENDIFMACROTITLE  PF FP! ( 2/z'{ͅ>ɯo>g"k!m6ů{_zW5>)D*kOxGd !m?FDM!xGyOڂÃ)sn55)=â|g}o=î--#zg{ozg{ozg{oÓ:: ;,!ɯ22=2l!"]!~H5_!m~0:ą:  *":  :‰:̅ԅ!^#=ʅVq”*qͦ1& O:lµ̅>2ly:_!w~!s!m~ùy !~=w_!m~ ͅ:|: |Ë  |*" ͩ !6="1 :  1}1:n:>BʋSSͦSSxS 1:  1"" ͦ 1 |R >O U!" 1 1!|_!^#fk $8AP`ixH ñññ81Ľ y0îH ñGîG  ñH ñ(Ľ yîH ñîîĽ y0îîH ñG 1: :,; c*| } 8O=COPYRIGHT (C) 1978, DIGITAL RESEARCH DDT VERS 1.4$10 !~=W!xe ~#Xbxʇ {z~#o}o҃i.*|g> >کÝ!p+q*DM͡:͆ ͆:_2:`!!:*& N͆!4!6ÃO$+q+p+qy͏ , $  ͌ 9!z6 # L!zw͌j# X:z 0 ͘=N#Fy}80*z{¯#z+++ ¥ z#½# · 9!`͠ y9!rͷz8O!B N#N ¾SP.* |} !9":q!"2lyPLnR>UX:l̅2l͓*>E2C!" """ :ʼ:*1 |R|ͦ0FIL: R  R* } *" :¿::¿üX!C^#fk[@ :Œ:=ʌG!ʆF#H vÛc*| EH ͺ,^1 ͦ *""1 EH DH ͺ,1 ͦ :  1:  " > 2 Ľ y0G G t :):,.>C :|: Jü;r :R: ʼʋ!ʼR!ʼʋ>SR{ozg!~4ʧͦ !6 ! **̈́**̈́\iͩ !w#H USE FACTOR !* "z{*"* "I !" :1 R O*UR X* G:xl :  *̩ : l x͖ *#"EH DH 0:~ ! ^4! w͆ Æ *! 6z͖ {͖ 4>R>V>D >P >L >N y=!z{w# % w!P͠ y͓}*w#"͌ @.@<!Eͷ~P !ͷ’P͌Q!ͷªP}QxQ!ͷ͓G@Q! ͷ y͓Gþ!ͷ ͓Q!ͷ͓Q͌Q!.ͷ6y#G͙Qà!2ͷQ͓͌Q!>ͷq eg͙Q:zJEËC–EQyQxQRQ** {zҷ*~#" <AOGƐ'@'OxƐ'@'ON# O!b q!vz͒q.?*!9"8"͉Z*" +*'/7?v"*2:EI SPHLDI XCHGPCHLXTHLRET HLT CMC STC CMA DAA RAR RAL RRC RLC NOP CPI ORI XRI ANI SBI IN SUI OUT ACI ADI CALLJMP LDA STA LHLDSHLDMOV ADD ADC SUB SBB ANA XRA ORA CMP INR DCR MVI LXI STAXINX DAD LDAXDCX RST PSW POP PUSHNZZ NCC POPEP M B C D E H L M A B D H SP PSW ??= Öâê ð ' Ê `  "D*"!"!"2I!" "W""!1!++""G>28!"9:] !ç 1͍ !" >- Ͱ Aڥ ҥ _!7^#V~  \p Z t ů2[\͍͢ ҥ ͊ =¥ ` " ͍ ҥ ͊ ʻ` " =ʻ` "=¥ ý> 2͊ ` "W=` =¥ *W}o"Y  *W"[( Ϳ ~ #? }"W*[Ϳ 0 *W}#|#*W? ͊ ¥ ` ` ` {zA|¥ W}d ͊ ` ` ` DMʡڏ"=ʡͲ=ʡYPͲ1**!I~4#~#F#x~#s#r#w>͊ ¥ ` `  ( Ϳ ᯕo>g( ¥   Ϳ Ͱ ͊ =¥ ` xS |¥ }ҥ gA>M Ag}M M c |¥ }!w s#r:[ʎ _!~ʠ ![4á \͢  2[y 7 >?  _͢!a"]> _͢a_!`~> 5*]~#"] 0 7   > >  ͢| } : >. *Y}o| , 0 å ^#V#!S ))))o J k s#r#!P4 !P6# ,¨ >2Pë g  g  g  ¥ Pʥ ! XN!~  ! ;#ø##>%><7"T6*}^!T42 G Ͱ *hMͽG:ͮ+GGW +GU!ͩ>̀+! @!!BH @@ABH B! "BHI$$BI$BI $ HI D$HD$$ H B!$D$"$B$DA!ABI$H B$I $HI$H$! $I $I$$A !A@$I$"!$H$I$I "! $A$  HHAA"I @$BH! $!D$H$ !9"1W͜Q>2!͢QG}DrYQ|͏}͏#> ex͏#r* _> e> e ҉0Ë7e}} :³ʳ7_<2!~ɯ2|\\FILE DUMP VERSION 1.4$ NO INPUT FILE PRESENT ON DISK$!Y , <    *$A!6 # T!w $r# *`: 0 *A*! ~ ʰxkb))))_y‘BK{ͅ*!66!"80*{#z+++ #Ê COPYRIGHT (C) 1978, DIGITAL RESEARCH DISK OR DIRECTORY FULL$FILE EXISTS, ERASE ITNEW FILE$BAK$$$BAK$$$-(Y/N)?$NO MEMORY$BREAK "$" AT $1dB" '+!Vs~1|~ *M n *8M c 1!$6!6!#6:%2E 2|2\  !]w# ʥ .&  0 6 #& .K !e K w# ʥ : U 6 #K 6AW w#] !e~H#~E#~X*}|{ "!{ ͊ !ʦ =¥ ` kʥ j \͢@ w# ͅ ú n ʥ : W _ O { `i"@ w# ͅ ¥ n S n S GтWx ͢!i ~T #H  *( Ϳ *(  NEXT PC͊ =¥ `  ( Ϳ ~ Ϳ Ͱ ʵ .͍ =¥ ` |¥ }w#~ ÿ >2F͊ ! =¥ ` }ʥ +"G> Å >  !  # _^! ^#V~ x% >= 7 !~ ( !   #x ` F Ϳ F Ϳ ͍ Ҁ *" !6é +"Y*~ #? ک Ϳ ʥ ^#V( é ~ CZMEIABDHSP!"G"+"!91*~!I~6 =G#^#V#~x "#"!N#FW" *D>7Å*G|H+"G H:FBÅ> Å >* *͍ \" ( *"W !)~##{nZ*F#h!Cs!^#V   ##::^#V#þ*^#V>%#x'8_#*I$$DH@H"B$HDDH@$""A $@ D$BB H A$$BAB"DH I$I "D H@ @@" @D"II!$I A"UUUI$$ D$$!::2{ × H;:28:2:82À× :8IU!:%:H2#c͙D9:86:8:8H:8Hҽc !"3!76#~±͇ú͙͙:8>9Jú*9d ~28O :8 *)+")!86:8 :8 ͙:8 .!86  ͍3!86jc:8D:-!#Rc × O=aÀ:8R/!6͈DҊ>!҄Ü^q!86 :2ҷ. -¦ͳ >!^÷!6!6͠ !6:!6Oú͖28!^6!::2{ × H;:28:2:82À× :8IU!:%:H2#c͙D9:86:8:8H:8Hҽc !"3!76#~±͇ú͙͙:8>9Jú*9d ~28O :8 *)+")!86:8 :8 ͙:8 .!86  ͍3!86jc:8D:-!#Rc × O=aÀ:8R/!6͈DҊ>!҄Ü^q!86 :2ҷ. -¦ͳ >!^÷!6!6͠ !6:!6Oú͖28!^6:,!T:^,*^& ~28:^<2^× Q=D[ { × ͣ:8-W!76:8#hå|҅͋:8:‚!86Lͷå:8:¥͋ͷ:7¥*3#"3ұ!76:8B!7>w!"=*"?͓× :8C͓ͦ× :8D͙ͦ× :8K͙× :8L͟× :8PC0!76͇@@0{0× :8TQ͇× :8Ug:72'× :8V¥җ9;=DM/ *DMc â:72-× :8 ::H͇ͣ͟× :7HҔ :8A"!76*9"=*"?͓ Y :U/, ͆ !U6  :, ͌ *="b?b=Y *bd N *b"b5 Ñ :8Z† v ͜ v ú҃ {v Ñ :8ʑ ç× çv!q*&!q: !4: !6*Mͥ !q: :O>H2y !6 !6:! *M͵ !4 !q: [ : : H: H[ ^ :@2*M     !p+q* !p+qc *DMn !p+q* !p+q*2!p+q*2!p+q*2!p+q*!p+q*!p+q*~"~:0<20¸  !"~W~=* ͩ *~*Y~21B *~#"~:1*M[ !#+!3s{b ͧ !26:3!2ڣ **|DMk [ ʏ ͌ *":2<22j ͧ !"!4qW= F **|:4w*#"!5q:T ͛  ͌ !T6*T& :5w:T<2T!h6*}+:h<2hͮ F [ͳ :?͌ d͢ |*M[ .[\ -W[ |g͢ *M[ [ .k[ -„!%q:ʚ*%M !(q:(a/>z!(/H!)q*)M͢:)_:)!*q:&**Mͺ:*!,p+q!'"/!.6>/ *3#"3*9"A!"E+"C2*;"A*"E!"C!J6:JҼEA=2I*C*A"Gd ~ Ht*G"A>*++"+*3+"3>32J:I/Ҭ!J6CA=+s#rù:Jҹ*G"A7:7*A"=*9+"?*;#"=*A#"?*9#"9*;#";*9+"9*;+";*)#")!Kq:7T?;=Q:KN*;d ~2L @*9d :LwÒ=9=Ғ*9d ~2L z*)+"):Kҏ*;d :LwT  ͓:7*;"?93=!"=39="=*9"=;=3M*"?*3*;:T2U/H%:T<2T*?#"?:U9*?+"?͓:U!6e:2*Ͱ/]Ü*8Mͺ:<2=O! Hq*+*)DMZ!#6:7¦!"+*9"Vì*="V*V+d ~2X :Hc *="V?V=:X y*+#"+8 Ü*Vd ~2XO *V"V!"3*3"5*5"3"͟:72Y!76͇:Y27?=>=JHwz)!Z6>!Zڢ8 ғú>U:Z<2Z€!76!"39=ò!86 !86 !&6*8M͢2[*8M28:[/ ͯ !76͓Ñ :8F==:L-Ñ :8J=e:2eL:=2:<2!҆*& ~28e*9"`*M*Ͱ/ҟÜ!:9J"=!76͓*`"9TÑ :8M:H%! 6>3Jͦ: <2 O!6 Hqy : 2! 6*3#s#rÑ :8N†=҃*Ͱ/Ҁ8 Oú"ͯ!76!"=͓)!76;=}Ü70Ñ :8S=eL:29J+s#r!:*& ~28:<2ïÔÑ :8WͷÑ :8X\ ͛  ͆ ͜!p+q*2!p+q*!6͐  O >>!&q*&&!(p+q*':U҈  c )~ [ͳ c { !/p+q.*.DMd -´ *W"~!"!h6!|6.![\ - !: *M[ \ : @~ { *M[ \͠ :: \ :1 ͌ U~ c ^͢ [ !:] *M[ [ a͢ [ [ !{6: ͌ !")!U6!6!6!T6*M[ k  *M[ !06:V!0 *~*YDMk \ 2 >! ͌ *~*Y6:V20 *JY*+*/{2-*+*/"+*/! "/:-!.Q!.6:-0O V  !2p+q:-/i*1DM:   :#Ҋ  Ï* *)DMZ:ʢ͐>!8 ҹÜ!: >!J*!+"!>3Ü! 6: <2 =O!6 N:# ͜ O:$X!$6:!-A;=;Z>͐F* , !%6  !6!:%2$t*%& 6 :%<2%=O! N*M[ k :ڴ͈ ʯ>!6:<2=O! N!"3>3J!"3/*3+"3>>!"+:7"?;9=ò OE2M'*9d :Mw:M A!Nq:'X*NM:N;=l*;d ~2OOͮ :O Š\Ҷ;=Mڰó\Ñ!76!"=*;"?͓͎\?;=!76͓ͷ 28*8Mͮ  ;9=*ò*9d :8w:8 Cͦ28:8 :#/HH/DҒ:8 !86 ͓!86 :8Œç͓e*& :8w:<2dگò!Qs+q*;"R!U6:U/R=H(*R#"?"R:P2T*T& *?d !Q!'+w!&6ͦ28!\q!\:8:H:H!]q*]Myc *]Mͥ j ͜ Oͺ2]c :]Yv>>:802_O> /!"3|Ҷ*3)))*3) *_& "3Ñ)3=!76)3=+s#r!763)="3DM!>))덑o|g =^#V) ^#V|g}o '_{ozgi`N#Fogo&og H X=W LIBX$$$$$$$LIB@ COPYRIGHT (C) 1978, DIGITAL RESEARCH ERROR: $, LOAD ADDRESS $DISK READ$INVERTED LOAD ADDRESS$DISK WRITE$LOAD ADDRESS $ERROR ADDRESS $BYTES READ:$INVALID HEX DIGIT$CHECK SUM ERROR $FIRST ADDRESS $LAST ADDRESS $BYTES READ $RECORDS WRITTEN $HEXCANNOT OPEN SOURCE$COMNO MORE DIRECTORY SPACE$CANNOT CLOSE FILE$*!9"!e !" !" \!""͊: ƒde"\\\͊: ²d\͝: )d;! q* &f  ! q> ! : A O6Y: !2 6=21 á:1 : r+s#r==_HL"4 " >6 ͪS* "6 =23 :1 =21 v=O* #" Y8  ͝҉* +"8 .!2 ʞR̀* "4 4 = ͝* #" çR*6 DM+R*8 DM+R*: DM+R*< M!? q=  ͝Kd*= ! ͸p!@ 6>!@ X*= }O!< *@ & w*= #"= !@ 4)!< 4\mad* }O!< :? wlR*4 DM+{R* DM+R 4 ͝*4 }¿= 4 ͝< N*4 #"4  å;*4 DM+: Y2\(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE) COPYRIGHT (C) 1978, DIGITAL RESEARCH, PIP VERS 1.4$$$ SUB =.:,<> _[]INPIRDPTRUR1UR2RDROUTLPTUL1PRNLSTPTPUP1UP2PUNTTYCRTUC1CONNULEOFDISK READ ERROR$DISK WRITE ERROR$VERIFY ERROR$NOT A CHARACTER SINK$READER STOPPING $NOT A CHARACTER SOURCE$ABXD͈:͜:3)\:2e:pG:!3H͜XD͈:we!D +pG:–y: ʍÖpG!~6e͈:!3ҵͫ!C6:ͣ!6:/>!/Hͫ:<2D͈::=H (ͫ!6:*D͈!B6::3/HY!6:> !/>HH;ͫ:!Bw:<2:œ:¬ͭ :!Cҿ!6: !6:!6:!6*'D͈::, :͓~!s+p+q+p+q:=2G ** w*#"*#" !"*AMͺ!6:9!ڴ **?DM͂D2ʣ :ʍ ͫ*"*?6:92í *"!4Z !"!}=2 !6!"*Mͺ!6:!H * ": : * !"!4*DM͂e/7 ͫ*"!4 :1 :<2!":ʚ ͂e!:q2q:2e:ր2O:2ä !:2͂!6:! e2!6:ր! *& :͏ 2!4: 0O! q: O: O! p+q* |O* }O! p+q*  f! p+q* DMB! p+q)R* DMB1B* DM+;! p+q* i2 ! p+q* i2 ! p+q* i2 i2 !" p+q*! f!$ p+q*# i!& p+q*% i!( p+q*' i2 !* p+q*) f!/ s+p+q+p+q:/ =2/ X*+ *- w*+ #"+ *- #"- 1* #" ͖r*   ~!" ! ͸×* " x20 º*   DM":0 Ad*   6!" Ç!" : !"6 "8 ": }2< !"4 "= ! A 0O> :A 0:A AO>&R̀:A A H.2B !2 w:B !D s+q*C &͍:D _og_{ozg^#V) _{ozgi`N#Fogo&og_{_z#W-$UNRECOGNIZED DESTINATION$CANNOT WRITE$INVALID PIP FORMAT$CANNOT READ$INVALID SEPARATOR$1. :2͆2:1.y!6+6+6!6#6!16#6:Ҵ*̓b͓!~6:*:Mͺ!*/!6!A6!6+6e͈:Ö:5:=2ORTED$BAD PARAMETER$RECORD TOO LONG$INVALID DIGIT$END OF FILE, CTL-Z?$CHECKSUM ERROR$CORRECT ERROR, TYPE RETURN OR CTL-Z$INVALID FORMAT$HEX$$$$NO DIRECTORY SPACE$NO FILE$COM$START NOT FOUND$QUIT NOT FOUND$CANNOT CLOSE DESTINATION FILE$$$$NOT FOUND$COPYING -$UNRECOGNIZED DESTINATION$CANNOT WRITE$INVALID PIP FORMAT$CANNOT READ$INVALID SEPARATOR$1. :2͆2:1.y!6+6+6!6#6!16#6:Ҵ*̓b͓!~6:*:Mͺ!*/!6!A6!6+6e͈:Ö:5:=2: HHGͫ: 2%::ͭ :GF:2Äv!.q!^*8!g*6: >͆͆!q*&̓ ̓ ̓!p+q͓* ̓ ̓!q*&̓!p+q*͆2!p+q*͆2!p+q*͆2͆2!p+q*̓!p+q*͆!p+q*͆!p+q*͆2!p+q*̓!6 ̓ ͆ ̓!p+q*̓> >ڦÚ!p+q*DM͞:̓ ̓:}2:~!!:*& N̓!4!6:: *": ͫ!4¯ :1 !q4e!"!q: \ !14>!\ :!1\ :2*M!E ^#V=ځ ͻ * :w*#"m å å å å å ͫm *MRm !6 m !6 m !6 m *&̓m !6 m !6  m !60 m *&̓m !67 m !67 m !67 m *&̓m r   ! , 7 :2!q: ʊ *M8 :œ *M8 :12!:ڹ !:2â !:w>! !5 8 : !16!q:!w  t :0Ot !q:O :O !6:2:'2:'2:'2*M *M *M :z :t  t   t *}2͟"ͻ * * *&"!q: : :: :2: !6<:2<22!!26 t >! & !6:4::H4̀ : A!26*Mt : U!6!q:a/>z!/Hy:_2:!q:A/>Z!/HҠ: 2::=O>:!pHz>͞>!6:2*M! ^#V;H *6> ::Ð!q:7!wO! ~2A*& :w>!:R!74W!76>:~<2~!k> *~& NVZ2 ‡y!p+q!36!6+6 !6: һ: µ!6ày:~2}*M͠!6!6!6>!*& 6!4!46!66#6#6!6*M͠B:&:*69Z2::':S:” A<2O>ny*M͠ґ:[‡!~5!6:ʝ!6#6>!!6:<2O>/:!O!R *M Hó: !6Z[!~Z2:_!6=!6>'!.ͭ !4!p+q*n !r+s+p+q*~$v** e>*#"*#"L>u2:BҒ/:!6!6}2:!6:2͞z>!6må!62}2m:>>"2:!0!52!BFRm:O>>!p+q:l!6*DM͞:|!6̀ :Һu2—!6Ä*& :w:<2OڶR:>}20O> :0:AO>$R:A ͽͽH! "?͟";"=ͼ:!2@:!Qbyb*Mͭ Q:ò :2}ͣ!6#6>!*& ~ʼ::Hڼ!6!4‡:H *"*="ͻ **MF!6#6*AMͺ͂\!:=-:W:S͓ͫ:<2:_!e eD :<2–͞͠p͓!6> !*&e ~2 : .̓*M̓!4¨>!:=2A::2A:4$ COPYRIGHT (C) 1978, DIGITAL RESEARCHCON:RDR:PUN:LST:DEV:VAL:TTY:CRT:BAT:UC1:TTY:PTR:UR1:UR2:TTY:PTP:UP1:UP2:TTY:CRT:LPT:UL1: IS $ =$BAD DELIMITER$INVALID ASSIGNMENT$BAD DELIMITER$: $BYTES REMAINING ON $R/$, SPACE: $FILE NOT FOUND$RECS BYTS EX D:FILENAME.TYP$R/O INVALID DISK ASSIGNMENT$!9" ! !E <" !E >" ! 6:\:] Hr:\ʽ: =§͝ҞLmä ú:\ʷ:\=O]͠]* ! q* &(    ! p+q*  ( *?~2*#"_2͒2!6H!6H!6 H͆2ppppppppͫ!6Ú!6Ú!6Ú!6͆2'2=HX[^adgjmpy:2::2!6*Mͭ :2:D:B:<22%: 2:DpDz>>ͫ:S:2:b*MV:q*M}:>!8Ґ:8=28> >>!6Ү!65+N! ~2!54ͤ2¼>>!*M:25!6:7<26>! *M!6!85:2:2!4¥:[$Ü:0!6:.jZ2O͠j: T:*d g=:[u!~5!6:::<2*6 * 6 !q!6> !*&G :>!4©>:<2O* :w:?!36!q!6?!:!q*&*~!46Z2: :]H:A2O>e: \Z2bͫ:S:QHҫ:~<2Z2: HڢÄZ2Z202O> !6Z202O> *&ͪ*& !s*& :w$wO`iͿͱ͛2O>r:!\!6:!\:=O! Nͭ !4< ͭ  ͭ :o͓*& 6$͞U͓͞z˜yͫ*MͺnB2Cn /ee?:ͫ!6!"!"*AMͺD:ͫ!d6MB2B*;">!6ͫ>!Eͫ!q:Z:Q2r_!r6*}v!r4ͭ _'ͻ *Mͺe:—ͫ/eeu /eR!=>͜+!9s!"?@=!"=*;*="=ͼ͜>!:=2::2!A:*͜y: 9͜!p+q+D*DM! D͈::=Hy͜:~2_og_{ozg^#V))) _{ozg^#V) ¿^#V|g}o i`N#Fog H = 4! 4! q* & : w! 4! 6*E2 : ! 4: 1:2 ! 6+6>! .: O!* DMͳ: ! p+q*  ( ! q* &( ! p+q* + 2 ! p+q* + 2 + 2 + . + ( + ! q: O* : ! * &* * & >! 4¨>* & ~ ! 4! 6: ҅* & ~2 O>* M͊ ͊>! /~,H~:H~*H~.H~>H~<H~=H~* & 6Â! 4! 4! q* & : w! 4! 6*E2 : ! 4: 1:2 ! 6+6>! .: O!* DMͳ: ! O!B DMͳ: 2 : 2 ! 4": ©! 6>! ڦ: O!* DMͳ! 6> ! ڟÀ: 2 fß : ! O!B DMͳr! 4>": =2 2 : =>* &B DME=2 >! 6: =2 : 2 : 2 : !! 2: 0>: ,A>å! s+p+q! 6! 66: ! ڰ! 6! 6>! ڞ* &* * & ʕ! 6! 4+4m: ҩ: ! 4Y>! p+q* ~:* N* #" ù:!" " * N!͌ m " ! 6* ~! *!4å:0! !*!5Á :* 2*!!* 4͢ **!&+ :*!w!+!6> !+![ *+!&*&!*+!&*(! w!+!43 **!&* 6**!&) 6**!&() >w#6**!&* 4**!&() *&! ~4 +s#r!+!6>!+! *+!&*&!~ "!+!4¬ FÁ:* á >!* !,!6>!,! !,!6#6:* ==!-! *-!&, ~2*!͢ *(!"&!*-!&+ ~2*!͢ !+!6> !+!ں *+!&*&!~2.!*+!&*(!~2/!OҤ *-!&+ ~2+!*-!& *-!& w*-!& :+!w!,!4+6 ó :/!!.!ҳ !+!6 !+!4C !-!4 !,!6!* :,!҆ *,!&+ ~2*!͢ **!&() N#Fͳ  COPYRIGHT(C) 1977, DIGITAL RESEARCH $ERROR ON LINE $SUBNO 'SUB' FILE PRESENT$DISK WRITE ERROR$COMMAND BUFFER OVERFLOW$COMMAND TOO LONG$PARAMETER ERROR$INVALID CONTROL CHARACTER$DIRECTORY FULL$CLOSE ERROR$!9"!Ϳ}z!p+q* }!p+q*̀2!p+q*̀2!p+q*}!p+q*̀!p+q*̀!p+q*̀2!s+p+q+p+q:=2ʙ** w*#"*#"r!p+q(+*DM*c*& 6:ec\:=͚!g6>!gP:͚m2qX:q2O! 6*q& 6$>!qRm*q& w!q55k :l͚*i+"ii ~_{ozg001 $$$$ SUB > ~#O****!*$*'! !"S>2P!P4:wN$>2Q:!Q4:Pš!Q^!~x!Q^!F+N,y*SDM42U:U ! x<2U:RD<xÿ:*SSYSGEN VER 1.1 COPYRIGHT (C) 1978, DIGITAL RESEARCH COPYRIGHT (C) 1978, LIFEBOAT ASSOCIATES OPERATING SYSTEM TRKS=  SRS PER TRK= ( TRANSLATE TABLE  %&'( !"#$ TABLE EXTENSION SPACE o&)))))))a{_*O* > > ~#O****!*$*'! !"S>2P!P4:wN$>2Q:!Q4:Pš!Q^!~x!Q^!F+N,y*SDM42U:U ! x<2U:RD<xÿ:*S A* M:* ^* ++" :* ~**!&)==w ! 4* !" p+q!'"% !$ 6>% ͩ ʲ*! *% N {2# *! P "! PY! N "% >͒ !$ +~Hү!$ 6:# 0OVK[" RAODMEͻd2' v2( !) 6:' K:' 4*) Mͻ:( &O+W:' 2' :( 2( !) 4:\\:\=OL:] l!* 6!\6!h6?\3: : ƀo&"&!!0!6!*!6:0!/!* :*!H ͢ !+!6> !+!*+!&*&!*+!&*(! !+!6 :+! 20!!+!4!**!&) Ndͳ K**!&* N ͳ RAO:!+!6> !+! *+!&*(!~ x :+! j .*+!&*(!N!+!4D !,!4 :]?:e?Hҡ **!&))))+ "(!!4!r+s+p+q!5!6>3!ͩ $ *1!*3!N !6!s*1!P "1!PY! N "3!>͒ !5!#~H ! !5!6:6!0O _og_ogDM!>))덑o|gg =U DM!>))| =t ~ ‚ ^#V) Œ _{ozgi`N#Fogo&og\0>!g6:g<2g=O! ~2h U:<2O>9U!60+~9U!60+4:hag:h_2h:h@|S͚!i6!"i!o6:os!k62p:p H^:p [:p$)2p$*pMͷ&:p02pO> ͚&!m6͠:p!p5t͠t&*lMͷ[:p^TA2pO>I͚Q:p>*m& ~ ¶!m4à!nq*i#"i͌d͚*ii :nw:k<2kO>}|͚ !6"Sd1v!:] e\Q<,!! 2|\L\ 2! DM4\L«D!8 !-  ʫAڀeA2]A!S 2RV!!q  AëA2A!  !R6V!ë>! SYSGEN VER 1.1 FOR NORTH STAR DD CP/M SOURCE DRIVE NAME (OR RETURN TO SKIP)SOURCE ON 8, THEN TYPE RETURNDESTINATION DRIVE NAME (OR RETURN TO REBOOT)DESTINATION ON , THEN TYPE RETURNPERMANENT ERROR, TYPE RETURN TO IGNOREFUNCTION COMPLETEINVALI"Sd1v!:] e\Q<,!! 2|\L\ 2! DM4\L«D!8 !-  ʫAڀeA2]A!S 2RV!!q  AëA2A!  !R6V!ë>! SYSGEN VER 1.1 FOR NORTH STAR DD CP/M SOURCE DRIVE NAME (OR RETURN TO SKIP)SOURCE ON 8, THEN TYPE RETURNDESTINATION DRIVE NAME (OR RETURN TO REBOOT)DESTINATION ON , THEN TYPE RETURNPERMANENT ERROR, TYPE RETURN TO IGNOREFUNCTION COMPLETEINVALID DRIVE NAME (USE A, B, C, OR D)NO SOURCE FILE ON DISKSOURCE FILE INCOMPLETE 579, PACIFIC GROVE ; CALIFORNIA, 93950 ; ORG 100H BDOS EQU 0005H ;DOS ENTRY POINT CONS EQU 1 ;READ CONSOLE TYPEF EQU 2 ;TYPE FUNCTION PRINTF EQU 9 ;BUFFER PRINT ENTRY BRKF EQU 11 ;BREAK KEY FUNCTION (TRUE IF CHAR READY) OPENF EQU 15 ;FILE OPEN READF EQU 20 ;READ FUNCTION ; FCB EQU 5CH ;FILE CONTROL BLOCK ADDRESS BUFF EQU 80H ;INPUT DISK BUFFER ADDRESS ; ; NON GRAPH; FILE DUMP PROGRAM, READS AN INPUT FILE AND PRINTS IN HEX ; ; COPYRIGHT (C) 1975, 1976, 1977, 1978 ; DIGITAL RESEARCH ; BOX 579, PACIFIC GROVE ; CALIFORNIA, 93950 ; ORG 100H BDOS EQU 0005H ;DOS ENTRY POINT CONS EQU 1 ;READ CONSOLE TYPEF EQU 2 ;TYPE FUNCTION PRINTF EQU 9 ;BUFFER PRINT ENTRY BRKF EQU 11 ;BREAK KEY FUNCTION (TRUE IF CHAR READY) OPENF EQU 15 ;FILE OPEN READF EQU 20 ;READ FUNCTION ; FCB EQU 5CH ;FILE CONTROL BLOCK ADDRESS BUFF EQU 80H ;INPUT DISK BUFFER ADDRESS ; ; NON GRAPHEA (RESTORED AT FINIS) LXI SP,STKTOP ; READ AND PRINT SUCCESSIVE BUFFERS CALL SETUP ;SET UP INPUT FILE CPI 255 ;255 IF FILE NOT PRESENT JNZ OPENOK ;SKIP IF OPEN IS OK ; ; FILE NOT THERE, GIVE ERROR MESSAGE AND RETURN LXI D,OPNMSG CALL ERR JMP FINIS ;TO RETURN ; OPENOK: ;OPEN OPERATION OK, SET BUFFER INDEX TO END MVI A,80H STA IBP ;SET BUFFER POINTER TO 80H ; HL CONTAINS NEXT ADDRESS TO PRINT LXI H,0 ;START WITH 0000 ; GLOOP: PUSH H ;SAVE LINE POSITION CALL GNB POP H ;RECALLTHAT A JMP TO 0000H REBOOTS) CALL CRLF LHLD OLDSP SPHL ; STACK POINTER CONTAINS CCP'S STACK LOCATION RET ;TO THE CCP ; ; ; SUBROUTINES ; BREAK: ;CHECK BREAK KEY (ACTUALLY ANY KEY WILL DO) PUSH H! PUSH D! PUSH B; ENVIRONMENT SAVED MVI C,BRKF CALL BDOS POP B! POP D! POP H; ENVIRONMENT RESTORED RET ; PCHAR: ;PRINT A CHARACTER PUSH H! PUSH D! PUSH B; SAVED MVI C,TYPEF MOV E,A CALL BDOS POP B! POP D! POP H; RESTORED RET ; CRLF: MVI A,CR CALL PCHAR MVI A,LF CALL PC ; READ ANOTHER BUFFER ; ; CALL DISKR ORA A ;ZERO VALUE IF READ OK JZ G0 ;FOR ANOTHER BYTE ; END OF DATA, RETURN WITH CARRY SET FOR EOF STC RET ; G0: ;READ THE BYTE AT BUFF+REG A MOV E,A ;LS BYTE OF BUFFER INDEX MVI D,0 ;DOUBLE PRECISION INDEX TO DE INR A ;INDEX=INDEX+1 STA IBP ;BACK TO MEMORY ; POINTER IS INCREMENTED ; SAVE THE CURRENT FILE ADDRESS LXI H,BUFF DAD D ; ABSOLUTE CHARACTER ADDRESS IS IN HL MOV A,M ; BYTE IS IN THE ACCUMULATOR ORA A ;RESET CARRY BIT RET ; IC CHARACTERS CR EQU 0DH ;CARRIAGE RETURN LF EQU 0AH ;LINE FEED ; ; FILE CONTROL BLOCK DEFINITIONS FCBDN EQU FCB+0 ;DISK NAME FCBFN EQU FCB+1 ;FILE NAME FCBFT EQU FCB+9 ;DISK FILE TYPE (3 CHARACTERS) FCBRL EQU FCB+12 ;FILE'S CURRENT REEL NUMBER FCBRC EQU FCB+15 ;FILE'S RECORD COUNT (0 TO 128) FCBCR EQU FCB+32 ;CURRENT (NEXT) RECORD NUMBER (0 TO 127) FCBLN EQU FCB+33 ;FCB LENGTH ; ; SET UP STACK LXI H,0 DAD SP ; ENTRY STACK POINTER IN HL FROM THE CCP SHLD OLDSP ; SET SP TO LOCAL STACK ARIC CHARACTERS CR EQU 0DH ;CARRIAGE RETURN LF EQU 0AH ;LINE FEED ; ; FILE CONTROL BLOCK DEFINITIONS FCBDN EQU FCB+0 ;DISK NAME FCBFN EQU FCB+1 ;FILE NAME FCBFT EQU FCB+9 ;DISK FILE TYPE (3 CHARACTERS) FCBRL EQU FCB+12 ;FILE'S CURRENT REEL NUMBER FCBRC EQU FCB+15 ;FILE'S RECORD COUNT (0 TO 128) FCBCR EQU FCB+32 ;CURRENT (NEXT) RECORD NUMBER (0 TO 127) FCBLN EQU FCB+33 ;FCB LENGTH ; ; SET UP STACK LXI H,0 DAD SP ; ENTRY STACK POINTER IN HL FROM THE CCP SHLD OLDSP ; SET SP TO LOCAL STACK AR LINE POSITION JC FINIS ;CARRY SET BY GNB IF END FILE MOV B,A ; PRINT HEX VALUES ; CHECK FOR LINE FOLD MOV A,L ANI 0FH ;CHECK LOW 4 BITS JNZ NONUM ; PRINT LINE NUMBER CALL CRLF ; ; CHECK FOR BREAK KEY CALL BREAK ; ACCUM LSB = 1 IF CHARACTER READY RRC ;INTO CARRY JC FINIS ;DON'T PRINT ANY MORE ; MOV A,H CALL PHEX MOV A,L CALL PHEX NONUM: INX H ;TO NEXT LINE NUMBER MVI A,' ' CALL PCHAR MOV A,B CALL PHEX JMP GLOOP ; FINIS: ; END OF DUMP, RETURN TO CCP ; (NOTE HAR RET ; ; PNIB: ;PRINT NIBBLE IN REG A ANI 0FH ;LOW 4 BITS CPI 10 JNC P10 ; LESS THAN OR EQUAL TO 9 ADI '0' JMP PRN ; ; GREATER OR EQUAL TO 10 P10: ADI 'A' - 10 PRN: CALL PCHAR RET ; PHEX: ;PRINT HEX CHAR IN REG A PUSH PSW RRC RRC RRC RRC CALL PNIB ;PRINT NIBBLE POP PSW CALL PNIB RET ; ERR: ;PRINT ERROR MESSAGE ; D,E ADDRESSES MESSAGE ENDING WITH "$" MVI C,PRINTF ;PRINT BUFFER FUNCTION CALL BDOS RET ; ; GNB: ;GET NEXT BYTE LDA IBP CPI 80H JNZ G0 SETUP: ;SET UP FILE ; OPEN THE FILE FOR INPUT XRA A ;ZERO TO ACCUM STA FCBCR ;CLEAR CURRENT RECORD ; LXI D,FCB MVI C,OPENF CALL BDOS ; 255 IN ACCUM IF OPEN ERROR RET ; DISKR: ;READ DISK FILE RECORD PUSH H! PUSH D! PUSH B LXI D,FCB MVI C,READF CALL BDOS POP B! POP D! POP H RET ; ; FIXED MESSAGE AREA SIGNON: DB 'FILE DUMP VERSION 1.4$' OPNMSG: DB CR,LF,'NO INPUT FILE PRESENT ON DISK$' ; VARIABLE AREA IBP: DS 2 ;INPUT BUFFER POINTER OLDSP: DS 2 ;ENTRY SP VALUE FROM CCP ; ; STACK AREA DS 64 ;RESERVE 32 LEVEL STACK STKTOP: ; END y>d2x2z:yO:xWax2yy¨:zʷy0_ >2zú5:xO ay2x:x‹:y0_ -\+ _ 5###~5!9"v1!]> I 6?#B>?2hHkHs'Z *v$ 2  ; E55Q| >^^ #T|.7?yOxGxwGyO-e2y>d2x2z:yO:xWax2yy¨:zʷy0_ >2zú5:xO ay2x:x‹:y0_ -\+ _ 5###~5!9"v1!]> I 6?#B>?2hHkHs'Za# COPYRIGHT (C) 1979 LIFEBOAT ASSOCIATES PATCH NUMBER OF TRACKS IN BINARY AT LOCATION 103 HEX 1͖ COPY - Ver 1.5 - $3:!lq͖ Copyright (C) 1979 Lifeboat Associates$31͖ Insert SOURCE in , DEST in and press RETURN to copy. (Press any other key to reset options) - $ͣ ¶͖ Copy in progress - Control C to abort $:2:AO:AO\͖ Copy complete - $:»͖NO errors were detected.$͖Errors detected. *** ERRORS ***$͖ Press RETURN to copy again$ͣ R_2AҸ͖ Enter DESTINATION drive (A, B, C or D) - $ͣ2A>A2<2ɯ2>2!5:A}!?e͖*$>2!5:A}!D͋ڋ!4:`H$'*>)´:NM : !~ # x77?H$'.-!>)F2:O:G> 0zL>wz7?2O:O!͵2!?ʮ:7ͷ# y 6)$D!xw#͖ Compare$͖ Read$͖ Write$͖ erro~# NORTH STAR DD FORMAT VER 1.5 COPYRIGHT (C) 1979 LIFEBOAT ASSOCIATES PATCH NUMBER OF TRACKS IN BINARY AT LOCATION 103 HEX 1!:!!!0ͭ £>B22qA2Uғ!Nͭ >102Vҳ:V!!>ͭBʿ “!!6# x:UO>;>2S:U P‚!SF!TN!> P”!S4::UO>;!ͭBʿNʓR?ͦ`:S!y!|`:S!y!`YOͭ ³!ͭ ¿ FORMAT Vers 1.5 - (C) 1979 Lifeboat Associates*** "A" = Copy ALL ab TRACKS "M" = Copy all tracks UNTIL 0E5H track "O" = Copy ONLY CP/M system tracks "F" = Copy FILES to end of disk "N" = Copy files UNTIL 0E5H track "E" = EXIT to CP/M (INSERT SYSTEM DISK FIRST) Enter your selection - $_2!Rf.AaMa!Oa!Rf.FaNaEIllegal selection - try again.$"Enter SOURCE drive ( CR copies A: to B:) - $_2Enter DESTINATION drive - $_2>A2<2ɯ2!65:A! D65 *$:A or any other key to reset options. - $ͣ ʹö͖ ***** O P T I O N S ***** "A" = Copy ALL  tracks "M" = Copy all tracks UNTIL 0E5H track "O" = Copy ONLY CP/M system tracks "F" = Copy FILES to end of disk "N" = Copy files UNTIL 0E5H track "E" = EXIT to CP/M (FIRST insert system disk) Enter your selection - $ͣ2!f.AʵMʵ!Oʵ!f.FʵNʵE͖ Illegal selection - try again.$3"͖ Enter SOURCE drive (A, B, C or D) ( CR copies from A to B ) - r at $>:U'͖ $>2͵͖ on drive $:A͋:!Qq͖ Track $Hy!mq͖ - Sector $ ́0w+>06 6/4҃#O~#$͋ÖOB{_͖ ^C ABORT$ö! N  !"#$%&'(:! w###  !$'*0͖for double density North Star BOTH source and dest MUST be double density$. For track double density North Star disk.$ Drive Nr. (A,B,C,OR D) ? $ Density (0=SD, 1=DD) ? $ Error on track $ - Cant write disk.$ - Cant read disk.$ Warm BOOT, RUN again or NEW parameters (B, R or N) ? $ Press "RETURN" to format single density in drive : or "B" to REBOOT, "N" for NEW parameters. $ Press "RETURN" to format double density in drive : or "B" to REBOOT, "N" for NEW parameters. $ ....Disk being formatted. $ To reboot: INSERT CP/M System Disk and press "RETURN". $ 0w+~06 6/4 #~$N8#:!4 w###) !$'*0; 8*:.AO > Ÿ_/W:³zw  Change which drive (A,B,C,orD) ? $ Set single or double density (0=SD, 1=DD) ? $ Press CR to set drive : to $single density$double density$ Anything else makes NO change, ^C to reboot $g Density setter for CP/M on North Star - Vers 1.3 Press "E" at any time for EXIT with NO change $ # EAmA2I E0҇2qx :qʲ  E m*:AO > _/W:qzw:AO I   * Change which drive (A,B,C, or D) ? $ Set single or double density (0=SD, 1=DD) ? $ First INSERT proper density disk. Then press "RETURN" to set drive to $single density.$double density.$ (or press "E" to EXIT, "Copyright (C) 1978, Lifeboat Associates Saveuser Ver 1.2 NR OF SECTORS TO WRITE:  SECTOR TABLE:  !"#$%&'( for North Star double density. Saves mode byte and 2 sectors starting at user area.$1J= Saveuser Vers 1.2 - $!w2= Copyright (C) 1978 Lifeboat Associates$= Place CP/M SYSTEM DISK into drive A: and type RETURN to patch (or ^C to not patch) $^ dg*  DMm:vO:T#Ojs! Þ= User area patching completed.$= Returning to C; ;GENUSER MARCH 8, 1979 PAGE 0 VERS EQU 11 ; ;GENERAL USER AREAS FROM CONFIG ; ;THESE USER AREAS ARE DUPLICATES OF WHAT CONFIG WOULD PRODUCE. ;THEY MAY BE USED AS A BASIS FOR MODIFYING YOUR OWN ROUTINES. ;IN ACTUAL USE, YOU MUST PICK *** ONLY ONE *** ; ;********************************* ;*** SIMPLE TELETYPE DRIVER *** ;********************************* ; MSIZE EQU 22 ;DECIMAL SIZE OF SYSTEM BIOS EQU (MSIZE*1024)-200H ;STANDARD CP/M CONVENTION USER EQU BIOS+500H ;LOCATION TO USER AREA OW ; ;*** USER AREA JUMP TABLE *** TTY0: ;BASE OF JUMP TABLE JMP TTYCINIT ;COLD INITIALIZATION JMP TTYST ;CONSOLE STATUS JMP TTYIN ;CONSOLE INPUT JMP TTYOUT ;CONSOLE OUTPUT JMP TTYLIST ;LIST OUTPUT JMP TTYPUNCH ;PUNCH OUTPUT JMP TTYREADER ;READER INPUT JMP TTYPRST ;PRINTER STATUS NOT IMP DB 0,0,0 DW TTYLEN ;LENGTH DB 0,0,0 ; ;*** CONSOLE STATUS CHECK ROUTINE *** TTYST: ;RET ACC=0 IF NO KEY, ACC=0FFH IF KEY IN TTS ;GET STATUS NOP ANI RDA ;AND WITH STATUS BITS XRN" for NEW parameters) $ Density change complete - Returning to CP/M.$ Returning to CP/M - NO change made.$P/M - NO patch made.$Oa*vd ~!v4~$#2~#$=:!] w###R !$'*FFSET EQU 1F00H-BIOS ;TO SYSGEN IMAGE IOBYT EQU 3 ;PAGE 0 LOCATION ;JUMPS MUST REMAIN HERE, IN SAME ORDER ORG USER ; ; TEMPORARY CONSOLE DEVICE ASSIGNMENTS ; FILLED IN BY CONFIG WITH OTHER PORTS/MASKS ; THESE ARE VALID FOR CONFIGURATION 2 TTS EQU 0 ;CONSOLE STATUS PORT TTI EQU 1 ;CONSOLE DATA INPUT PORT TTO EQU TTI ;CONSOLE DATA OUTPUT PORT RDA EQU 1 ;INPUT READY MASK RDAMSK EQU 0 ;MASK TO CONVERT TO ACTIVE LOW TBE EQU 80H ;OUTPUT READY MASK TBEMSK EQU 0 ;MASK TO CONVERT TO ACTIVE LOI RDAMSK ;MAKE ACTIVE LOW MVI A,0 ;NO KEY FLAG RNZ ;NO KEY WAITING CMA ;KEY FLAG 0FFH RET ;KEY CHAR WAITING DB 0,0,0,0 ; ;*** CONSOLE INPUT ROUTINE *** TTYREADER: ;NOT IMPLEMENTED TTYIN: IN TTS ;GET STATUS NOP ANI RDA ;AND WITH STATUS BITS XRI RDAMSK ;MAKE ACTIVE LOW JNZ TTYIN ;LOOP UNTIL READY IN TTI ;GET CHR FROM DATA NOP ANI 7FH ;STRIP PARITY RET ;DONE ; ;*** CONSOLE OUTPUT ROUTINE *** TTYLIST: ;NOT IMPLEMENTED TTYPUNCH: ;NOT IMPLEMENTED TTYOUT: IN TTS ;GET STATUS NOP ANI TBE ;AND WITH STATUS BITS XRI TBEMSK ;MAKE ACTIVE LOW JNZ TTYOUT ;LOOP UNTIL READY MOV A,C ;INTO ACC FOR OUT OUT TTO ;OUTPUT IT NOP RET ;DONE NOP ; ;*** PRINTER STATUS CHECK *** TTYPRST: NOP ! NOP ! NOP XRA A ;NO CHAR READY RET NOP ! NOP ! NOP ! NOP ; ;*** COLD INIT ROUTINE *** TTYCINIT: ;DEVICE INIT MOVED TO HERE RET DS 38 ; TTYLEN EQU $-TTY0 ;*** END OF SIMPLE TELETYPE DRIVER *** ; ; ; ; ; ;*** OTHER TELETYPE CONFIGURATIONSFIC BYTES NEEDED ARE SELECTIVELY ;INSERTED INTO THE ABOVE GENERAL HANDLER BY CONFIG ;WHEN YOU SPECIFY A CONFIGURATION NUMBER. ; ;CONFIGURATION 0-- ALTAIR 88-2SIO ; OR OTHER SIO USING MOTOROLA 6850 UART CNFG0: DB 16,17,17,1,1,2,2 DB 9 ;INIT LENGTH INIT0: ;INIT ROUTINE MVI A,3 ;RESET 6850 OUT 16 ;PROGRAM FOR 8 BITS MVI A,11H ;2STOP,NOPARITY OUT 16 ;16 CLOCK RET ;DONE ; ;CONFIGURATION 1--IMSAI SIO2 ; OR OTHER SIO USING THE INTEL 8251 USART CNFG1: DB 3,2,2,2,2,1,1 DB 17 ;INIT ;DONE ; ;CONFIGURATION 4-- PROCESSOR TECHNOLOGY 3P+S SERIAL I/O CNFG4: DB 0,1,1,40H,40H,80H,80H DB 1 INIT4: ;INIT ROUTINE RET ;DONE ; ;CONFIGURATION 5-- IMSAI MIO SERIAL I/O CNFG5: DB 43H,42H,42H,2,2,1,1 DB 4 ;INIT LENGTH INIT5: ;INIT ROUTINE XRA A OUT 43H RET ;DONE ; ;CONFIGURATION 6 -- ALTAIR 88-4PIO ; OR OTHER PIO USING THE MOTOROLA 6820 PIA CNFG6: DB 16,17,19,80H,80H,3,3 DB 17 ;INIT LENGTH INIT6: ;INIT ROUTINE XRA A ;SELECT DATA DIRECTION OUT 16 ;REGIST;DECIMAL SIZE OF SYSTEM BIOS EQU (MSIZE*1024)-200H ;STANDARD CP/M CONVENTION USER EQU BIOS+500H ;LOCATION TO USER AREA OFFSET EQU 1F00H-BIOS ;TO SYSGEN IMAGE ;JUMPS MUST REMAIN HERE, IN SAME ORDER ORG USER ; PAL0: ;COMPAL USER AREA JUMP TABLE JMP PALCINIT JMP PALST JMP PALCI JMP PALCO JMP PALLIST JMP PALPUNCH JMP PALREADER JMP PALPRST DB 0,0,0 DW PALLEN ;LENGTH PALCINIT: RET ;INIT BY COMPAL MONITOR PALCI: PALREADER: CALL 0E0ADH ;CHR IN COMPAL MONITOR ANI 7FH RETSER EQU BIOS+500H ;LOCATION TO USER AREA OFFSET EQU 1F00H-BIOS ;TO SYSGEN IMAGE ;JUMPS MUST REMAIN HERE, IN SAME ORDER ORG USER ; SOL0: ;SOL USER AREA JUMP TABLE JMP SCINIT JMP SCONST JMP SCONIN JMP SCONOUT JMP SLIST JMP SPUNCH JMP SREADER JMP SPRSTAT DB 0,0,0 DW SOLLEN ;LENGTH ; ;*** SOL EQUATES *** SOLOS EQU 0C000H SOLRAM EQU SOLOS+800H SOUT EQU SOLOS+19H AOUT EQU SOUT+3 SINP EQU AOUT+3 AINP EQU SINP+3 UIPRT EQU SOLOS+800H ;STORE LOC OF USER INPUT PORT UOPRT EQU SOLO *** ; ;THE CORRECT PORT NUMBERS, STATUS BITS AND MASKS ;FOR EACH CONFIGURATION IS INSERTED INTO THE ;GENERAL ROUTINE ABOVE BY CONFIG. ;THEY ARE OBTAINED FROM THE FIRST LINE ;OF DATA BYTES FOR EACH CONFIGURATION. ; ;THE ORDER OF THE DATA BYTES IS: ; TTS, TTI, TTO, RDA, RDAMSK, TBE, TBEMSK ; ;THEN, THE INDIVIDUAL INITIALIZATION ROUTINES ;ARE MOVED INTO PLACE AT TTYCINIT. ; ;THE CODE FROM HERE DOWN, ALTHOUGH ASSEMBLED IN ;THIS EXAMPLE, IS NOT MOVED INTO THE USER AREA BY CONFIG. ;ONLY THE SPECI LENGTH INIT1: ;INIT ROUTINE MVI A,0AAH ;DUMMY MODE BYTE OUT 3 MVI A,40H ;RESET OUT 3 MVI A,0CEH ;MODE INSTRUCTION OUT 3 MVI A,37H ;COMMAND INSTRUCTION OUT 3 RET ;DONE ; ;CONFIGURATION 2-- ALTAIR SIO A,B,C (NOT REV 0) - OLD MITS ; OR OTHER UART TYPE SERIAL I/O BOARD ; NOT REQUIRING INITIALIZATION CNFG2: DB 0,1,1,1,0,80H,0 DB 1 INIT2: ;INIT ROUTINE RET ; ;CONFIGURATION 3 -- ALTAIR SIO A,B,C (REV 0) CNFG3: DB 0,1,1,20H,20H,2,2 DB 1 INIT3: ;INIT ROUTINE RETER AND SET OUT 17 ;PORT A=IN OUT 18 ;PORT B=OUT CMA OUT 19 ;CA2/CB2=OUTPUT MVI A,24H ;LEVEL HANDSHAKE OUT 16 OUT 18 RET ;DONE ; ; ;********************************* ;*** SPECIAL CONFIGURATIONS *** ;********************************* ; ; ; ;*************************************************** ;SPECIAL CONFIGURATION 80 -- COMPAL 80 ; TERMINAL I/O DONE THROUGH THE COMPAL MONITOR ; INTERRUPTS MUST BE ENABLED ;*************************************************** ; MSIZE EQU 22 PALCO: PALLIST: PALPUNCH: MOV A,C CALL 0E0C2H ;CHR OUT COMPAL MONITOR RET PALST: EI LDA 0EDFDH ;CHR FROM INTERUPT KEYBRD ORA A ! RZ MVI A,0FFH RET PALPRST: XRA A ! RET PALLEN EQU $-PAL0 ; ; ;******************************************************* ;SPECIAL CONFIGURATION 81 -- PROCESSOR TECHNOLOGY SOL-20 ; WITH SOLOS 1.3 ;******************************************************* ; MSIZE EQU 22 ;DECIMAL SIZE OF SYSTEM BIOS EQU (MSIZE*1024)-200H ;STANDARD CP/M CONVENTION US+802H ;STORE LOC OF USER OUTPUT PORT ; ;EQUATES FOR SELECTION OF SOL PSEUDO-PORTS CON EQU 0 ;KEYBOARD AND VIDEO RDR EQU 1 ;SERIAL PORT PUN EQU 1 ;SERIAL PORT LST EQU 2 ;PARALLEL PORT IOSET: ;INITIAL IOBYT MAPPING STORED HERE ;CHANGE TO SELECT OTHER DEVICES DB LST SHL 6 + PUN SHL 4 + RDR SHL 2 + CON ; SCINIT: ;INSERT YOUR COLD INIT HERE IF NEEDED NOP ! NOP ! NOP ;USER SPACE SOLINIT: ;INIT FOR SOL-20 XRA A OUT 0FAH ;SHUT OFF SOL TAPES LDA IOSET ;PICK UP INITIAL IOBYT STA IOBYT ;STORE INITIAL IOBYT MAPPING ; ;BE SURE TO INITIALIZE SOLOS IF YOUR DEVICES ARE MAPPED ;INTO THE IOBYT - USE THIS ROUTINE WITH YOUR OWN VECTORS. USERIN EQU 0C9H ;RETURNS UNTIL USEROUT EQU 0C9H ;DEVICES SETUP LXI H,USERIN ! SHLD UIPRT LXI H,USEROUT ! SHLD UOPRT RET ;END OF INITIALIZATION ; SWINIT: ;PUT YOUR WARM INIT ROUTINE HERE NOP ! NOP ! NOP ;USER SPACE RET ; SCONST: ;PUT YOUR STATUS ROUTINE HERE ;RET Z SET AND A=0 IF NO KEY ;RET NZ AND A=0FFH IF KEY LDA IOBYT FLAG XRA A ;A=0 IF NO KEY JMP CSEXIT ;NO KEY CSKEY: MVI A,0FFH ;A=0FFH IF KEY CSEXIT: ;FLAGS ARE SET LHLD SAVBC ;RESTORE MOV B,H ;BC MOV C,L ;AND LHLD SAVHL ;HL REGS RET ; SCONIN: ;CONSOLE INPUT DRIVER LDA IOBYT JMP SOLIN ; SREADER: ;READER INPUT LDA IOBYT RAR ! RAR JMP SOLIN ; SOLIN: ;GENERAL SOL INPUT ANI 3 ;ACC HAS DEV SELECT STA DEVSEL ;SAVE CALL SOLST LDA DEVSEL JZ SOLIN ;UNTIL CHAR READY SHLD SAVHL ;SAVE HL REG LHLD PTCHAR MOV A,M LDA LASTOUT ;CHAR TO OUTPUT IN C CPI 0DH ;ASCII CARRIAGE RETURN JNZ OUTVID CMP C ;CHECK IF 2 X CR ;DON'T OUTPUT TWO CARRIAGE RETURNS JZ OUTEXIT OUTVID: MOV A,C STA LASTOUT ;SAVE IT XRA A ;SET A=0 FOR VIDEO OUTSOL: ;SEND THE CHAR TO SOLOS CALL AOUT OUTEXIT: ;RESTORE REGS AND EXIT LHLD SAVBC ;PICK UP BC MOV B,H MOV C,L LHLD SAVHL ;AND HL REGS MOV A,C ;SOME PROGS EXPECT CHAR RET ;PUT OUT TO RET IN ACC SPRSTAT: ;PRINTER STATUS XRA A ! RET ; ;*** DATA AREA OF SYSTEM BIOS EQU (MSIZE*1024)-200H ;STANDARD CP/M CONVENTION USER EQU BIOS+500H ;LOCATION TO USER AREA OFFSET EQU 1F00H-BIOS ;TO SYSGEN IMAGE ;JUMPS MUST REMAIN HERE, IN SAME ORDER ORG USER SMB0: ;SMB USER AREA JMP SMBCINIT JMP SMBST JMP SMBCI JMP SMBCO JMP SMBLO JMP SMBPO JMP SMBRI JMP SMBPRST DB 0,0,0 DW SMBLEN SMBCINIT: ;INIT DONE BY SMB RET SMBCI: CALL 0F003H ;CI ENTRY IN SMB ANI 7FH RET SMBRI: CALL 0F006H ;RI ENTRY IN SMB ANI 7FH RET SMBCO: JMP 0F009H ;REMAIN HERE, IN SAME ORDER ORG USER HOR0: ;BASE OF HORIZON USER AREA JMP HORCINIT JMP HORST JMP HORIN JMP HOROUT JMP HORLIST ;SET TO RIGHT SERIAL PORT JMP HORPUNCH JMP HORREADER JMP HORPRST DB 0,0,0 DW HORLEN HORIOB: DB 0 ;DEVICE SELECT ;SET HORIOB 0 FOR LEFT (FIRST) SERIAL, 1 FOR RIGHT (SECOND) SERIAL PORT ;SET HORIOB TO 2 FOR PARALLEL PORT. PARFLG: DB 0 ;0=NO PAR, 1=PARITY ON MEMORY BOARD PROMLOC:DB 0E800H/256 AND 0FFH ;ADDR OF PROM ;CHANGE PROMLOC ONLY IF YOUR PROM IS ATANI 3 SOLST: ;GENERAL SOL CONSOLE STATUS ;ENTER WITH ACC= 0-3 FOR DEVICE SELECT ;STORE CHAR INPUTTED (OR 80H IF NO KEY) SHLD SAVHL ;SAVE HL MOV H,B MOV L,C SHLD SAVBC ;AND BC REGS MOV C,A ;DEVICE SELECT MVI B,0 LXI H,CHAR0 DAD B ;POINT TO CHAR FOR DEVICE SHLD PTCHAR MOV A,M ;80H IF NO CHAR CPI 80H ;CHAR THERE? JNZ CSKEY ;YES ;READ THE PORT IF NO CHAR IN MEMORY MOV A,C ;PSEUDO-PORT CALL AINP MOV M,A ;STORE CHAR JNZ CSKEY ;CHAR RCVD MVI M,80H ;NO CHAR ;GET CHAR MVI M,80H ;NO CHAR FLAG LHLD SAVHL ;RESTORE HL REG ANI 7FH ;STRIP PARITY RET ; SCONOUT: ;CONSOLE OUTPUT DRIVER LDA IOBYT JMP SOLOUT ; SLIST: ;LIST OUTPUT LDA IOBYT RLC ! RLC JMP SOLOUT ; SPUNCH: ;PUNCH OUTPUT LDA IOBYT RAR ! RAR ! RAR ! RAR JMP SOLOUT ; SOLOUT: ;GENERAL SOL OUTPUT ;ACC HAS DEVICE SELECT SHLD SAVHL ;STORE HL MOV H,B MOV L,C SHLD SAVBC ;AND BC MOV B,C ;SOLOS WANTS CHAR IN B ANI 3 ;DEV SELECT JNZ OUTSOL ;NOT VIDEO *** LASTOUT:DB 0 ;STORES POSS CARRIGE RET DEVSEL: DS 1 ;TO SELECT PSEUDO-PORT PTCHAR: DS 2 ;POINTER TO CHAR 0-3 CHAR0: DB 0 ;LASTIN FROM PSEUDO-PORT 0 CHAR1: DB 0 ;LASTIN FROM 1 CHAR2: DB 0 ;LASTIN FROM 2 CHAR3: DB 0 ;LASTIN FROM 3 SAVHL: DS 2 ;SAVE HL REG SAVBC: DS 2 ;SAVE BC REG SOLLEN EQU $-SOL0 ;LENGTH ; ; ;************************************************* ;SPECIAL CONFIGURATION 82 -- TDL SMB MONITOR BOARD ;************************************************* ; MSIZE EQU 22 ;DECIMAL SIZECO ENTRY IN SMB SMBPO: JMP 0F00CH ;PO ENTRY IN SMB SMBLO: JMP 0F00FH ;LO ENTRY IN SMB SMBST: JMP 0F012H ;CSTS ENTRY IN SMB SMBPRST: XRA A ! RET SMBLEN EQU $-SMB0 ; ; ;********************************************* ;SPECIAL CONFIGURATION 83 - NORTH STAR HORIZON ;********************************************* ; MSIZE EQU 22 ;DECIMAL SIZE OF SYSTEM BIOS EQU (MSIZE*1024)-200H ;STANDARD CP/M CONVENTION USER EQU BIOS+500H ;LOCATION TO USER AREA OFFSET EQU 1F00H-BIOS ;TO SYSGEN IMAGE ;JUMPS MUST NON-STANDARD ADDRESS HORST: ;CONSOLE STATUS ROUTINE LDA HORIOB ANI 3 ;STRIP OUT CONSOLE JZ HORST0 DCR A JZ HORST1 HORPRST: XRA A ! RET ;ONLY 2 SERIAL PORTS HORST0: IN 3 ANI 2 RZ ;NO KEY MVI A,0FFH ! RET ;KEY HORST1: IN 5 ANI 2 RZ ;NO KEY MVI A,0FFH ! RET ;KEY HORREADER: HORIN: ;HORIZON INPUT ROUTINE LDA HORIOB ANI 3 JZ HORIN0 ;1ST SERIAL PORT DCR A JZ HORIN1 ;2ND SERIAL PORT DCR A RNZ ;NO 4TH DEVICE ;FALL INTO PARALLEL ROUTINE HORIN2: ;PARALLEL PORT IN 6 ;MOTHERBOARD STATUS ANI 2 ;MASK TO GET PI FLAG JZ HORIN2 IN 0 ;READ KEYBOARD PUSH PSW ;SAVE CHAR MVI A,30H OUT 6 ;RESET PI FLAG POP PSW ! ANI 7FH RET HORIN0: IN 3 ;FIRST SERIAL PORT ANI 2 JZ HORIN0 IN 2 ANI 7FH RET HORIN1: IN 5 ;SECOND SERIAL PORT ANI 2 JZ HORIN1 IN 4 ANI 7FH RET ; HORPUNCH: HOROUT: ;HORIZON OUTPUT ROUTINE LDA HORIOB ANI 3 JZ HOROUT0 ;1ST SERIAL PORT DCR A JZ HOROUT1 ;2ND SERIAL PORT DCR A RNZ ;ONLY 3 PORT ;DISARM PARITY LDA PARFLG ORA A JZ NOPAR ;IF PARITY NOT USED ; ;SPECIAL INIT ROUTINE FOR HORIZON ;COME HERE IF YOU USE THE PARITY OPTION ; TINIT: LXI H,0 LDA PROMLOC MOV D,A TINKL: MOV A,H CMP D JNZ TINCP ADI 4 ;SKIP 400H OVER PROM MOV H,A JZ TINU TINCP: MOV A,M ;READ ALL MEMORY MOV M,A ;PUT BACK WITH PARITY SET INR L JNZ TINCP INR H JZ TINU MOV A,H ANI 3 JNZ TINCP JMP TINKL TINU: MVI A,41H OUT 0C0H NOPAR: XRA A OUT 6 ! OUT 6 ! OUT 6 ! OUT 6 URATION 84 - VECTOR GRAPHICS PROM MONITOR ;******************************************************* ; ; MSIZE EQU 22 ;DECIMAL SIZE OF SYSTEM BIOS EQU (MSIZE*1024)-200H ;STANDARD CP/M CONVENTION USER EQU BIOS+500H ;LOCATION TO USER AREA OFFSET EQU 1F00H-BIOS ;TO SYSGEN IMAGE ;JUMPS MUST REMAIN HERE, IN SAME ORDER ORG USER ; ;VECTOR MONITOR ROUTINES CNTLC EQU 0C0DCH ;CONTROL X RTN ;JMPS TO VECTOR MONITOR RDCN EQU 0C0BDH ;INPUT RTN WITH AUTO ECHO PTLOP EQU 0C098H ;OUTPUT CHAR FROM ACC STORAGE INR M ;THIS IS 0 IF DCR M ;NO CHAR THERE PREV RNZ ;RET IF CHAR ALREADY THERE CALL CNTLC ;PROM INPUT RTN MOV M,A ;STORE CHAR ORA A ;FLAG RET VECLIST: VECPUNCH: VECOUT: ;OUTPUT ROUTINE MOV A,C ;PROM WANTS CHAR IN ACC CALL PTLOP ;PROM OUTPUT RTN RET ;EXIT VECCINIT: ;COLD INIT XRA A STA VCHAR RET ;WARM INIT VECPRST: XRA A ! RET ;PRINTER STATUS VCHAR: DB 0 ;STORE CHAR FROM VECSTAT VECLEN EQU $-VEC0 ; ; Ë(C) COPYRIGHT 1978, MICRO COM INC. SINGLE DRIVE FILE MOVER VER. 1.01$ REPLACE SYSTEM DISK -- PRESS RETURN$ NO FILE SPECIFIED -- ABORTING$ SOURCE IN DRIVE, PRESS RETURN$ DESTINATION IN DRIVE, PRESS RETURN$ FILE OPEN ERROR$ SOURCE FILE READ ERROR$ DESTINATION FILE WRITE ERROR$ GOOD TRANSFER - REPLACE DISK, PRESS RETURN $  *%N:] £p22*":2:2!":2|"͆\w*#":S ;FALL INTO PARALLEL OUTPUT ROUTINE HOROUT2: ;PARALLEL OUTPUT IN 6 ;MOTHERBOARD STATUS ANI 1 ;MASK TO GET PO FLAG JZ HOROUT2 MOV A,C OUT 0 ;OUTPUT CHAR MVI A,20H OUT 6 ;RESET PO FLAG RET HOROUT0: ;1ST SERIAL PORT IN 3 ANI 1 JZ HOROUT0 MOV A,C OUT 2 RET HORLIST: ;LIST DEVICE TO 2ND SERIAL PORT ;MAY BE CHANGED AT JUMP TABLE HOROUT1: ;2ND SERIAL PORT IN 5 ANI 1 JZ HOROUT1 MOV A,C OUT 4 RET ; HORCINIT: ;INITIALIZATION MVI A,0FEH OUT 0C0H MVI A,0C1H OUT 0C0H MVI A,0CEH ;2 STOP BITS, 16X CLOCK ;8 DATA BITS, NO PARITY OUT 3 ;TO FIRST SERIAL PORT ;;MVI A,0CEH ;SAME OUT 5 ;TO SECOND SERIAL PORT MVI A,37H ;CMMD: RTS, ER, RXF, DTR, TXEN OUT 3 ;FIRST PORT ;;MVI A,37H ;SAME CMMD OUT 5 ;SECOND PORT IN 2 ;CLEAR INPUT BUFFER 1ST IN 4 ;AND 2ND SERIAL PORT MVI A,30H OUT 6 ;RESET PARALLEL PORT PI FLAG RET HORLEN EQU $-HOR0 ;LENGTH ; ; ;******************************************************* ;SPECIAL CONFIG; VEC0: JMP VECCINIT JMP VECST JMP VECIN JMP VECOUT JMP VECLIST JMP VECPUNCH JMP VECREADER JMP VECPRST DB 0,0,0 DW VECLEN VECST: ;CONSOLE STATUS CALL VECSTAT ;LOOK FOR CHAR MVI A,0 RZ ;NO KEY, EXIT CMA ;IF KEY RET ;EXIT VECREADER: VECIN: ;CONSOLE INPUT CALL VECSTAT ;SEE IF CHAR READY JZ VECIN ;LOOP UNTIL CHAR MOV A,M ;CHAR STORED BY VECSTAT MVI M,0 ;TELL STAT RTN WE HAVE CHAR ANI 7FH ;STRIP PARITY RET ;EXIT VECSTAT: LXI H,VCHAR ;POINT TO 2%**}o|g:2:M\2hr\́OcͪK#>ͫl *"ʌ*ͼ g:0:==*"ʈ*ͼO""p:ͬ2a2go"]ͬX::=*+~¥G:&#O:=¾y y : ͩO:0*4ͼ:*:G :g(G Ñ *~G:/O! O 0*~/O "#0:/ =Oɯ2o<2b20S!2"Y!dî)"8k":#!͠!͠*GcM_#K!͠ -- Bytes: Created: 29-Jun-79 gXgX*!"[T::qRWC.B.-T!]6#ͼ͇:a :" < :g( c*t"p++V+^"]s#r>2aͬX:g, /l ͝>/c:!~wq#AC4>2>S>C>KOC4>*4ͼ: :aʼ  !"]|2a*]| >2ìXj*!"L+9""\͋:a= :b  G *`:g( :g, >/c9 ͵":!, 1P/] >2(!"QZʉ Xʉ !6' 2o͝:=… : :… *"Q|D k'… > v :P*|*ʴ *"*":P=*| :P*"|}2: S> 2:2N͡Q*}ͦO: 912& 29*"}ͦO>͓5^>#OD*ͼc> Y~:a\ |*<2o>#>=c a*]|ʈ :>2ìX> ͢S**w"M_DM! "*" +w+x½ #"w^>͢S*"w#w*#s#r#">͢S*"####"1_2͑ʠ à:=\**M_*####ͼ«~K2q*">ͫ*"2q:=:*"ͫ:Ң:2*####*M_" uu*###6öu ҍ!~#ھ>2{*=a""`i"**ͼa~++V+^= |<***M_**b *"|*"!"*|!:Z2c!"J͋!"V:ʏ͵":ʅ!ʅ1P]"V*"*]*VM_"X*J|*ͼ*X|:g,]uW:l Q*"J:a2Z:a=$*X*]"]:Zd2aͬX*Jª++++F+N*ps#r`i"pͬX*V*]"\*p"^**Jͼ:Z=P>2Z*J"ͦO!"X*]*\M_"]|z*X*\M_"\ c*]*^+~+DM~+ngʓͼ`ir+s*^*p"^"p>2aͬX"p"^^~#d<2gX>?>%=X!͠:BACK QBYTEPBLOCFCALL COMM CONT i DATA DIME DOUBPENCO# ENDF& QEQUI)QEXTE0DECO# FORM4 FUNC6bGOTO \3IF( kIMPL:iINTE>QLOGIAPPAUSD PROGESREADH RETUI lAREALPREWIK QSTOP SUBRMbWRITS GSPACKDATOINUNSIOLEPRECISIODEILVALENCRNAATIOICIGECARAͨRNOUTINE+-*/,)=.EG.EL.EN.TL.TG.QEROX.RODNATON                  ͢S*M_DM/o&#"*"x#w x""2<2<2#>Tc!~4*""#!c͵!GcX͵*""""!@"}!X" !"! " !("o!2"!J"*"!Gc""w""!"!>w#œp #¤ w#¬ a~# xµ*8FORTRAN-80 Ver. 3.31 Copyright 1978 (C) By Microsof~#͇͑ :g( ͪ!"4=l !"4> Z!6$+p+q>2>2:*l@2æO:}*B F+N *:XRڙ*@ F+N DM*8XR*> F+N :yOXR:g,l *4|}!""""> !w#/P 2o>2>2>2"t!ͧQ*L+"L| :N!Pv =) ~v :NG ~… :A <… :s ʙ =… :Pv *"*"=v *"=v }2:P< >!R!ͤQ*Q+"Q| :g,> *!9ͼ *\>/c_2(:g l , 2o !9*+ͼ lV+^+ͦO c~+ +V+^*]"]""L:2P*] :a=. _ _:# bX͝}O;X :a c>2a*"]"ìXzB |G||  |/G}/O!>Ú ҙ 7>{_zW}o|g= |g}oɯO_yW͇ð"*"Q#"}bQ#"y* ":g,Q#*"{Ð P*ͦO:| ~w>++++|<ͼ *ͼ *`iͼ *M_چ~7++V+^ͦO:*S:aʁ*] c+DM*p:a=ȯgoɯ!ͦO:ʖ7:aʁ*]:yo&q*":V*ͼ=: ͩO=:ʦ!~+~w*"*_V~_~_++++:G~_~_++V+^*ͼ_###*M_":2!".*",*M_"*ͪK: ʦ:=ʒ2:ځ **"":k*ͦO*"*ͦO:=====*jR""**!"*DM*XR"*+"| *[#K!͠> =X!UG$d!C:=X!#~ ;~ O=X#BgX2ڐ*#"**w"*"G2o2xWLT:g aÂ*{#"{!fC~#=Xɯ>͢S*#|+*ͼͩOG:q*w:+w*+r+s+"M_+~2G+~*####ͼ2oɷ222rgo" ͝ʛ=›:ʛ:ʏ* _:Wͺ^KCR!:H"*#"">2=2G *"*_QäS*"Qd :º:g Mv 2r , ,2r,:c<2*|:l`E go"w*+"|@:F=2uWE:¤uWäZ:*|Zf:g(},ʤ)ʤä:ҏ2!4:g(!r454:=,!" :, ,x*"#" 2r,͇͑ ð*pͦO*M_|*2|ĦO@!"]v *>2:0/:#:>2#qC*"]ͬXc:#X* _:gKCIʽ|o:g:gHX^P^(:EFAʺIʺGDLʺ:#¶*_~q-',^/^)Á=z^IʩP©^q>.cq½>6  6> : *͵">2>2:2a2*>"*@"*B"*""ͬͬXͦO>2ͬXéO>ͪ!5:ʈ<2ìa5=B~*"b~*"b~*"o#:=;S 'y:=;S'y ѯ{30_:! <K#!~wA?7 >'ch#:=m>!6 #=Yɯ2h 22>2*|**}*|":F-*jR":z}2oQ}Y>2:<2o:gNr>#!0!0>22>2=2<2z.x.yH2>2=2*|**}*|":F-}m}!G4!I~w:g0w0:G!I~b/2H:!H5#KÁ!I~5)͡Q))8!H>wҁ4)͡Q)8͡Q>i8=)))Á>28>2!H4c2U**M_x%!~w++++ !*Q"**M_"Q> ͫ>2S R!=t!s:g="H":g, *Q#|" :g(!:a!1P:G:D!O!!*:*8"!>2*:!yڽ!"!"y*<ڽ!ú!*"2Sa"!S6`! c]!ͫuW!S6`!:Sv":2S*"N͉"2S>ͫͦO>ë!O"*Nͼq"O":S*!6$+6I+0w>2>2ͪ>2SæO*2>(c:a2!>:6":"Q#"Hs#r#:<2":g,"uU>2ͺ!:<>'KC<2o^KC:<x'KC<^^GgoKCOmT])))0_MyI:#*"*_>t#2O2!:T"!k ~4g:io">2>22>2aìX!N#F4! w+:#bX͝K> =X!+~2a2*"pͬX:g,K"uW2b:o:g  ʉaڠ{Ҡ 2g$Aگ[0ڹ:ڽ<7=:gG!o~6x̾S!^4!~ 2g:>/̀WC!!A_~cB!:!I:!D:!L:Rc!F#c#<~*^2oc0G=xy=v=c>>x>c͑i͝:ɯ222og"F"H2OG:2H<2>2y.x:y'2=2>2:F‹:( y+ʅ-ʅxzyZXM'J*|**"2<2<2z2oy2>2!yʁw+_$_>2Q:u2Fò:F2g2oz!6:¶!H4Z:g028Ҷ)>2öxY:gED>2.:T_h>2>20-!:F-?:o:Hg"ee!~w+/!w#A!~w#Q͡QKK8K!~w+q k#:͇ҙ:aoQ#2:*"S"Q""!:g, #v ͝:g=2͡Qgo: :͔d#*::g,U >#!M ! !4#"S!M 7 !4#"Q!M !4h#"0:q *S:*Q:*:*DMxRʁ W 2:ʝ 5Ý :ʚ !HO42!|2S"N"QuW:g, ÷ |  *Q#| t=DN4l s>2o͑E!>(WæO(#0#!w+,##n2>2>2Q#:=h#A#͑=]#==d#:==Q#d#>2h2Q`RELCRFPRNP?Command error?FILE NOT FOUND?CAN'T ENTER FILE~-#Î)!])è)!l)è)!|)͎))"#*+++"{#*#:#2~#*{#͕,: ) )2#2#2#2#2#2#2#<2#2#)ů2z#9+#+# *>2z#!#+> 2#2#2#y,2#?*:z#2#9+$:#L*#+#:#2# 2#i*:z#@2z#!#+y=79+ 7+#* 7!#+:z#!#*!#:#*##> =·**:#*:#*:#2#ͫ-L-b-*{###:#2~#G# ~ + + , , <-#"[)_*[)+~ #̕,#"[)+~7ȷ> -> -%!"%!#:#u-$!"$!#:#ʦ-~--<ʥ)-<ʟ)!"' '!#~-Ú- w#-w#- ':#+:#<-.> ͝.> ͝.>͝.*%%#u.%#-:#+:#->/*$$#u.$#-|}ʀ.ƀ)`i.> ͝.> ͝.> ͝.:#+:#<-|/*%|.#"%%w%!#>/ =.!$>!TMOV D,]MOV E,gMOV H,`MOV H,eMOV H,fMOV H,iMOV L,oMOV L,kMOV L,lMOV L,wMOV M,rMOV M,sMOV M,>MVI A.MVI LORA ȵORA ̶ORA PCHPOP PUSH RARARERLßSBB SBB ȞSBISUB SUI"SHLD2STASUB XCHǯXRA XRA XRI>oC>C>C>gCP*ͦO9:2*{ͦO2>͓5*yͦO=V2>>C:C>>C:C~2>C9:1>C>{C>C>zC>C>*}"]>2a=2!:*w*M_DM!"w*"x2w# x¼2"!"*yͦO:=*{ͦO>23>͓5>C*yͦO:</5*2*ͼ5*>:>:*2*ͼ"4*2*ͼJ5*>:*5>:*2*ͼd5*>:*ͼ<5*>:>C>C>oC>C>C>gC9y8G:=7:=76:=[7[7=62x6*jR|5ͼ6M>#5###|+++6}/+C 52>ͨ:ͼ72=*5!~\6=L6xL6+L6:C6>eC>.Cg76:ʥ712å7+~‚6x==9==* U7{69t7=6x=:6x=ʡ66:=´6x=>=C><Cx=>½6>C:)5!6:ȷʁ =ʄ ~ 2*CE<>sC>#C>rCO>$9 >$9 >G:=ʁ9:!A9x@ͽ:CK912>C9:a91f9>|CDC>gC>}C<C>oC:!x½6~ʟ9:xʽ612>|CC:gC>}CC:oC2**ͼ9+"2>TC>]C>C ::2**ͼ" ::a::>C=g::0:@<2:N:ͽ:L:0O*4":=ʈ:::al:J~CE~C>#C>fC>oC:ʣ::>C>>C:!*C:#̭JELCLC:aE<@<"ʗ;C*#|:ͩO::#̀K*]:a\;=T;0;:w# + #+ w#+:}#!#~ 7+w#-+t,:7>\+x9+,G}+Ox=}+y@2#t,x j+ #+,q+T–+,T7,Y7\+L°+,S7,T7>\+R7,D7R7>\+> +6 #=+y.2}#t,#x++,+y/y,L,2#,O+N ,2#,O+,2#,R6,2#,CD,2#2#,MO,2#,IZ,2#,Zf,2#,P7:#<2#,,[Ғ,0ڒ,AҎ,:Ғ,w,O!~6G,#~ ­,ß, )x+#ʾ,~ó,2#,2#:~#,B->*-  )> -: )! )"[)o>g6 #> w~##.:#+:#-*$|=.#"$$w:#<'-/*'|L/#"'':- '>#=u/!=Q/!>q/_!# Қ/ ʘ/<ʘ/~=w4{ ¯/> ͝.~¡/ò/7ȷ!/͎)@@/> -!/͎)B-DISK FULLADD ADIANA ģANA ŦANA ANICALL/CM?CMøCMP ¾CMP CPIDAD )DAD +DCX =DCR À2:=33>͓5>GC*yͦO>29>C>xC~2:=3*yͦOͽ:>C*{ͦO>2=͓5>À2 !"3=~:„3*"""o#Y<2l :ʡ3=B>sC3K#ͪ=>C>2D:g,3:o#l =2Dgo9"^>(c~:D3`*$ʄ4:g,3uW:D3b>#9: 412GC4:#<4bX͝K!4͠/C><C5*2ͼ>:*ͼ4*2*ͼ4*>:>:*2*ͼ4*ͼ*}ͼE7* 37:=#7#7=1p **ͼE7*ͼxo7=o7x==9==g7*ͦO9ͣ:2t7p7ͽ:x=Aʏ7=Mʏ7=Sʏ7=Dʏ7E:9!T¡7Ct7>{C>C>oC>zC>C>gC2:8! 8x=8 8>99>9912:A8:-8N:12t79:ʷ712÷7!:b8U8ʥ7o7~o79t7O~2y@OC4o79:!~ʾ8”861|8¨8:¨8>}C8~@!FpOC4*"88ͽ::0OTB:78:a8TwC>=+;=;:#+;:=0;+;0;**6ͼ0;2;*|"C*##";;* _:*"*_*ͦO:a*<>:2C*ͦO:aE<>!:>*:>::>2:>":`<:=B::1*c"]2go"c S:bG:b*=>":<>C=>":=<<>`C>iC=>":*2|<ͦO*"]ͬXæO>>C!:TA4<*d"]##"d>2=2a!*2&=**ͼL=*""!"k"læO2G2+V+^+++" "x>)> ?> >?>|?Q?B= ¬=>C>?C=¿=>=C>C>C>C==>=C>C>C>C>2?:**ͼ>$=*m" ͦOÈ>ͩOh>!~b>**ͼ~+Fb>b>xb>w!59$=**ͼ҈>~* "m$=:a©>*#"e>!͆C>CE<>Cl@?>CR*:#KEWCWC*##"ì@* " 2$=* "2>!?:u5=BhA!$$">222>2a*"]ͬX>:!>22>:*2|ͦO:#_A:*"]ìXæO:1wÀAo#:!A*6"ͪ=>C*:aʬAʬA}>2ͬX>Y*"]!a6ͬX:!"4͇*"*]"*a"}:2{:2|*p"y͐ :g,A!A"42!g6(:͇<>=c!06 !06ͪ=ͦO:!rBLBmB:[B[B1rB:@OC4rB>}C!Gc"P*ͦO*"]:}2a:{2:|2*y"pͬX *"*wͼxB!Gc"w"*i#"i>Cl :==B:B>C>}C>C>C>C>Literal String is too largInvalid Data List Element in I/Unbalanced DO NesIdentifier Too LonIllegal OperatoMismatched ParenthesiConsecutive OperatorImproper Subscript SyntaIllegal Integer QuantitIllegal Hollerith ConstuctioBackwards DO referencIllegal Statement Function NamIllegal Character for SyntaStatement is out of SequencMissing Integer QuantitInvalid Logical OperatoIllegal Item in Type DeclaratioPremature End Of File on input devicIllegal Mixed Mode OperatioFunction Call with No Parent Number on FORMAZero Repeat FactoZero Format ValuFormat Nest Too DeeStatement Number not FORMAT AssociateInvalid Statement Number UsagNo Path to this StatemenMissing Do TerminatioCode Output in BLOCK DATUndefined Labels Have OccurreRETURN in a Main PrograSTATUS Error on REAInvalid Operand UsagFunction with no ParameteHex Constant OverfloDivision by ZerArray Name ExpecteIllegal Argument to ENCODE/DECOD;X:#J|J}JG:#JxJxJ0:=X=XJ)))J J`XbñL=.M<2^:aT!:Gw#!M:a*]|:IMqRbX!N͠*hK!N͠*hK!N͠bژM’M:aʒM*]|ʒM;L̀KLbtMbX!O͠2XbMʵMM:*M;L̀K;X}ObҨMbX:XM!/O͠bMM;L̀K*]hKgXbMbX:^LN!BO͠bLNFN;L̀K:aFN;X*]:#:N KFN: KKbN>2*{|jNgX>%=X#K!OO͠*|ʃNgX>?=X#K!cO͠2* qR:b®N:1ʱN*6ͦOqRqR*Y|ʼRûN Program Unit Length Bytes Data Area Length BytesN4U=4>/C><CͩOz?*~???!":aʘ?>:í?:!?>/C>}C>/C>oC>|C>/C>gC!?2:2t:=::=g::::ʥ?12>CE<:ʺ?12>C>?2:a!?E<@<ͩO͓52D*"jR_$=~__ @_x^@<*M_:G:Dx6@:͕>͓5:DT@2>2aͬX2*M__@*++r+s_*:ʯ@=@2<ï@=ʬ@=¯>*ͦO:aʟ@>:ì@E<>DC>MC<ͦO:2:a@**ͼ@>>C::@>C*e QS22:b*!CG:#LC:#LC!/x#(C~#CCbX͝K;X͠LCG:#LCxJLCG*#"RxGR ZC*****>sC>!c~#*r+sxC'=X*ͭJ>"K^K>N#F# ?K<334KO=RKRKy-K7yJ,KͭJ> =X>(=X#K>)=X;X:*¹K**]*ͦO*L*]M_|>+K>-=XjRͭJæO:>/=X=K>[=X:O/_!;X~J# K>]=XL!~:L#~=X+~=X:G+~J L*L>/=X>L=X:O!~=X+ 1L:XHgXQL;X;L0KL *qR*w!GcͼrL:bʈL*|MMMM*2|—L:hªL:1ʤL̀AêLXE42^bMMM=M:*]| :LqR:#LbX͝K;X*:R>2go"]ì Subroutines Referenced: Variables: COMMON Length LABELS: Warning(s) Issued Fatal Error(s) Detected :a=*]K<2X**pͦÒKͦO>+=XíJ"*#|+*ͼ~2G~2+~O2~82~2a+V+^"]+V+^+"p!w+OyP*]"+~2+V+^"]:<)P>2y:*]*p*2D:* 8V+^+ͦO:a*jP*7D s#r#=NP:!D=ʳP=~ʔPGØPGʳP!;xکPPڲP++P7ͦO"p"]V+^s#r*P"P"P"}P"yP"{^#V#>!>!>&2\*=QQ0G:\=/Q/Qx=P=QÝQxPPÝQ2o:2>#!0vQ>#NO*ͼvQ2:\ÊbeW2g2o!Q"4͇:\2ͬX:g(ð!Q#͓5:ʽQ1!N#F4l :g.Q*ER!JQ+Q2Q)i~2#~2># !f0,R+++R*:T_>_:g.Q.QR*Q2oQ!>))eR =]RɯogRA>ͱRyژR>ͱRCWCBWCy :GW>ͱR!FWC+¦RW>R_x»RGxGRR/O ~ N#FXRs#r!s ^#V*ͼmU"*!s ^#V">2(W#|mU+">2(Wy!dʍU!6 N#F*`XR"`TͦO*b|V:aU*"*#|¾U*"U>2(WͦO2(#V*"*b*]">*2>2>2:a*p2a= V*"p"]ͬX2(*#|=V>2*":2(W*"2:ʀV*w"*B">2(W*k">2(W*:">2(W**u"*@">2(W#|ʮV+">2(W*i">2(W*8">2(W**s"*>">2(W">2(WͦO*y*r+s*]++r+s(Y!~(Y4@US*"H!Fw =Y5=*4ͼ~!0Z*2|rY:F rY:rY:hrY\3*4ͼʜY:ʜY*4!"4="4BlC:FZ:0 ZbYY*]qRbïYbYYY**pͼIZG bYp<*6| Z:! ZͦO>2ͬX:F"ZqC*HͦO:F20*c|Z:Z=*c"]2go"c SZ:aY*"!"\2f*\*]M_|yZyZ"\ cM_:fʛZ*ZM_|ZʣZ>2f"Z`Z*\*"\*Z">2a*]*\M_"]ͬX¼ZY> ^2:2*++++~_!\**M_/]~ /]/]!O F~w$\ͪ^:2:`^*">22\*####~w$\:2H*"F2J:=ʍ]:]:^͗^1_!J4*####"*++++ͼҳ]%^:!Ho]*F":J]%^[2Jæ]***ͼ]>ʍ]ͼҍ]}]^x2y2*~22##^#V*"ͼͦO=:<2*####"]"*":2:2:2]*"> 2R^**##s#r%^*####~wr^**#####:w#s#r*":2:2**""!Fwp!FwpG*>রw*>G#N!X~** _* _*} ͼ!"2! 6 ڡa\a#:a-a*"2=͏4ͦO S:Ka2*"]!a6ͬXca2͏4:ʐa*c|ʐa="]22go"c S2h2!":gʬad\a2o\a:2^2!"4aEND/> YWLeW:^2)Bb(Nb,Ob/T_=aT_͝eW:g,8 ͇:g=-b:˜A> Y:^2eWl T_aT_͝:2o:>*aCb>2!>:Z>2021͇b2͑ >2aͬX*"6dSqR:!b!y~6L 2y:l *æO*:/O "*ͼ?éO>,c/!"Y*]| :IS:#6S*:0S###_>S *_qR*_:QSqR!x2:#<ʅS:O!~-+ rS> -> -y2qR:1qR*æOO* *ͼ*""qO!y:W! !ͺw#Sr># TͼT+ͼT <T TUS+T2dS>20@:g l 1T*:2d>2(!""+"*!s s#r!> s#r!g s#rQ#:=œT:¼T*!> s#r>#*!s s#r:g+ʶT-T2oH*+!g s#ry!dTbZTuW:ͦO1PBV*y"`!"b*`!">2(W*gXR">2(WͦOV!"**ͼAWSW2*ͼSW2ͦO=cW:>ȯ:222oT>)cQ!6*[#"[!> 2 :ʟWbX+/W ʤW ʤWʤWW*[#K;XW+/W> 2w W =XX+/W =XXW W W ,X> w#xPXWw qXʀW2P> :IX~X:#^X~X:#<^X-:X> =X> =X#>OW> 7X!X šX4~ŠX5> 4Ý. ¤X6ÕX ڕXÔX!N:*w:aG:!+w+*]r+s+*pr+s+w+ X:<X>2y:~!!w:E[*++++"^!2x ZZ!~w*w*ͼZ2%^:[ ҡ[:i[ͪ^R^^%^:ʡ[:ʡ[`^2:¡[*####>w*|$\55%^:![:Y\_][ _]:=\\\\=\\]:[:_!~2:!2:\!>w=\**ͼ\2\!:w\ͪ^_*y _*{s#r#*r*pͼ*"rͦOqRæO*:G:w#:w*s#r}o|geW>#*| a"*"!~ ʂ_·_#w_N#~#^#V"4 _! <=_#ҟ_Y*4ͼq_e x>_2v*""qR"."**", `***,*M_++++*#ͼ8`++~ `+~ `###*M_",ѯ*.͢S*#s#r"**M_ͼ=:g p`f*2| a*w"Gcͼ aP*2*ͼʧ`DM~`:ʲ`=:`*c|`"]22go"c S2h2x`2x``i"^g!9*>(!g~:yo&:1P:/!8^#V#<<=cN#F#XR*cBKXR  SBA SBAITNIA TNITNIDIDOMA DOMTAOLF XIFINGIS NGISIMID MIDIELGNS PXE GOLA 01GOLA NIS SOC HNAT TRQS NATA 2NATA KEEPPNISBADNGISDELBDPXEDGOLD01GOLDNISDSOCDTRQSDNATAD2NATADDOMD0I$ 1I$ 2I$ 3I$ 1XAMD1NIMD0NIMA 1NIMA 0NIM1NIM1XAM0XAM1XAMA 0XAMA *+"H""""go"F"Q2M2O2L!"""""3"1!""""22}à?No Start Address?Loading Error?Out of memory!mÔ!|Ú!2*H>22N,2Tͤ ڗ,R R/—MG@RSUE ͖5O2LH‚2LG:T2T:º>`ʗ. 7xʗҗBú"J:Wġ2!T~w{{:W ~w:W2NT 2N*Q|ږʖyȷ–oڶ~@–ü"ÖZ *Q|Ö*J~ ´:N:T G@x Ý ?Comman!ѵ!!}_|W>2**!O**:O c**!W{_*#"""3:LGO0ڪ ڋڪ)))ҩʟҩ)o>gwy +%Overlaying areaDataProgram!! ~#fo! " " 3}<-= yy7*yM7K,K# "!EÝ> _!Y>?]~#] ʆx!Ô Not Found> ]> ]>2X2.:_<2!~X<ʋ! w#! w͖͡Í REL7:T`3 - :- ͗2S** ( ~G` ~@ /2M:T` ~> m >/]+^+V+~]r /]~@ >*2M][~ ʣ !M æ ~ [+^+V [:S?2S̗~ <</O : |}:L )0]) 0] | }G x0:% ]͗! ~#fo[ [ ×RQUESTZ T *:ʩ * ʩ ~_~@ʞ +++~#ž !*!BK "d !+++d 22:(go"""2M"<2:*****3͕   i  >/]͗ ~W+++~]+ %2nd COMMON Larger /*1" |2* G > o~@w U:>ʅ :=z >G:=ʄ >@w+:2:ʩ :=r+s+r+s z |"Fg! ^#V!!1y :** *"*!N*G**!BK*" """1"" ^*!**! ҄!!*D**!BK**!***"**!BK**""""1A ~w#~wPYg>|BKoF~@!:~@w+~d Error~]#~#  `' +!~GS#~ B4Vx+#o~H:b͗>*] U> ]:V!Wo>g6 7ʤʤ —2WX!| :—oGO*:*""""**""1(*!*DBK**"32G<2!z6#z 6:6O ʎ!ҡ!!yI!yBKO!1 s#r! s#r! s#r ڿ! s#r!1 s#ryI! ~#fo!|![ʚ5!#͗*FDM[Begin execution]:M** ʲ~ ~ʗ+++_>GO ~+d>y6 =s*!! 2M *!~O_!+++y++:M@:M!q2T >[] [!>>G~#o~@+^+VTs#r [** -T~w#~w:H H|}>]]͗>2*F":}ĻFORLIB REL x}:]$MEMRY*F7!>w#¤o~@+^+V"F! 27!Ô?Start symbol - - undefinedX ~# ! ~#foBK#:=F := *|2 = 7 }= #G͕p#:= *|[ = ` }= #D= :=• :ʕ Uw+p+q+p+q#B ++s. :7>» E?@2X. x  Y  > 6 #= x2Wy.. ax   * !a~ * 6R#6E#6Ly[L 0L AH :L 1 Og:} :2BK| ~_q#VpTl U:=ʎ >@w+r+s+@:2r+s >o /o/g ~@wq+p*1>2}| "1* G !$_q+p U:=>Cw+p+q+r+s !2 ͗ %Mult. Def. Global ~@*Q+"QPYg>|BKůo~+ڇN+F@ :´z  | :´r#s :´| Tg z #U:=>Bw+r+s+r+s *Q#"Q!-~#46+wxG ɯ27!t:ct c!>wP4#6 _bw#T!o"-O<2XP̥ʒҒO!/ N#F 2P:ʵ2P  Y  Te 9 O  :"*3>2* D *3!>oڋ+^+VT"5 g:=><2= : *3 PY7**!*!"}2<2 :PÑ**|G}~O®>®A+++­+œ~ y/O t>Ox_!>Ow#2+w+w+w+ w+w+"7ɔ:ȯ2**!DM* "*3 "3*!BK""""*"*|r}ʍ~_g! ^#V*"Tq#pT^q#Vp{¨#~@+^+V{r#sT^#V{r+sè~@w+Ns+Fr#V^#V!! s#r Gyx!@s#r#1xS|W}_!* Ayoxg*"*3"3*5PY ڑ"5:ʱ=§*!"** ҧç͕*3{OzG*!*DM7xw#  +x~+ xw+ :7=sO6:7B!?Intersecting oO!* <2,:?Oʛ:B B B!E>,]*,&&M^#VyÝ!>F~#]>(]>)]Ý:_ y** *  B*H y(*H Ñ {*H t!!!!2,YbelowaboveOrigin loader memory, move anyway(Y or N)?   ! y*H:O :y*H:! A!9;;;;;;  ]!zʃ7͆y͆ʃ ڽ ڽҨ!zʷ7*"1*"3**1!ʃKP*1!"1!*!!!!######&#!!*"*!"*"*"*!"*"mÅͯڠͯͯͯ! N#F#^#V#~#fo|} +x~+ xw# xw# ~#fo!q#pQT!TE5%I0t)*3@C@}> |z@h4 Dz¢3B!0" 562 P%520I#`A!2<IU$ AA2HIQ$2TUc&AA2 T(52vITS!DDIpt"&5Y2h3@3@h BDd0$MVARGBE4h`$DPHFRDEȐ$DIVF2DX$DFLRRDE$MULFBDhH$DPPFRE5T$iQQӡTE4tt)5Y c tH2 Qc 5YI2 P̣"MpPDD%98t" ){è*6+r+s+p+q+"~+V+^+F+N+*7@ DM>>>>T<2O=O!d! ^#Vp!y}ғy?ښ ?ښͺy!ڧ! ҳs#rö^#V͞!ڑʑ!p#*!N#F#~#fo!^#V  !~#fo g!^q#Vp!~s#_~rW!}E#i {_!6)`i{!#x**!"**"!yڬ! ^#V ڻ F#fh!!^#V ^#V!y! ^! Start = External Public = 2O!:O_!BK*1**3!&h&O*!*"**3!BK**3!"3PY*!"*!"R**3!ڠBK**"**""*3"*1" !~R#~E#~Lw+COM||<2:&$** &*F|Y Y Y>͸*F}͸|͸͎͢:zyOz͎͢:|<!سȯ͸z—!z~#͸ì!:_w{<2|!Ô?Can't save object file@Ɍ2DX$MFMUSdDD)@h,r 4z*4zh-*^!6<_Ta!T3hxfH wdT)" 9e E1""zjdt"$#FO!""Ld"($FH1"" r e,")F@!"j2le& #M"rd)F1" e<- @2" qQUSTDDQ9P5#5> Bm>p> `V>EiQ8c>Ӑ?*iFc1L? RT?@3@:gٰ+4 ڔ 4eW0@+4 k4hC@`f!u2 P5 V2T #2`%X3Iӑc/A!38Ṣ4A%<32I#2AA3TQ92 L,@563Uc)93Dc3 MV2TP0 aQ:QUSL!dDs t"&'3@ a@R-dDD49`t"!@`d"($FA" d(")@@!"j2lSbDE4QM%:ki)0 Hb 4f 3@h!4zpfѐhzR >a1~JaIZX]eXNWN rS (BB `&s3S(syMZ;qDhtZ1sTfBm(8$MFMbDDc%8$MUiNg z@ҮР^iD LFBHT8@@ 2fi[!l4 uUUz@h!T@43@h! BY4f4f3k̀3@"`04} 03l Qc- 5V3( P.@A!2I+ 2Ic, 9V2 /A1b2 0A1f3c153"I6`=93<Uc4 ME3NUT5I3r Q7i30IU65U12IQ7=YpDDyxt"&'@UR\ B3@h!h6j4 B3@.3@r@q `V"`CK6,:*(fQ0H*Hq H8h(3`bDDDc%Y$DRadD$Ditp"*H1"""Jtd"$#G@""t8"(Y3@rh3@Ut DŽqOfFh!$!@ 4Fi4W@A<@\BCRn§j§ 0"c&Q 2c+`I92IՑ/IJ2:UT& 51Z2 T+2 P̣.@ 2#)UN2~IUT-@M!2Z Qc$`I2RIṬ 02" 2  PQ"aIpIdD$d5V$DTP12T2EC8A%<$DPIO6Iӑ`RDTh 0$DOVF BDDcHA&$DLOG2̠BDD(MEH$DPIT2DY 1UQ2kzd*ݠH{djӰ,HĈ*(ـ*HyĈiɑp,HĈ*(qP*HĈIȈ1p*HdjQ&Hd*Q&Hċ*H(q` H-ɱ0H:(HFQԐ HaN 1@ He 1ְ H|j( Hdݐ HbeĈj*Fq0HgĈ )Q HmȱpH-dqH;Q԰HiCĈJ 1ְHecĈfQ0He[Ĉ'@:dN0Z~&r~&ZH~$$} vc0QTRTBDd$MMFBD38x$DSQR2RDDX$MAFBDD( $DIVF2DXɀ$DPLXbDD3(ɰ$SUbDED$cP$MUbDDs(ʘ$ERR2D49QRSaTDԔXt&@0$ATIbDDH$NUQPV `bDDU5`j`+1@ H G66hԡ` : uA@>@+$ATRbDd$x $DAC0RD$s($ATIBDdȈ$SAFbDD4 T bDD4U =5BjtĈi H` inʦ@ 6')t"#&)@p±@>\$+@z@h<<Hq*2c"@ 2 T#M!J28c$ 2f P$9I522T QI RDEŘY 1A1fjx P H"4Pmf 0D4(8\/!Ѡhr@$2D $DPHFBE5hȀ$DPPARDTh$MMFBDdɐ$MU2DYU`RDE$H MV$DNRMLUPQ RDDDhM!2$DSHFCUPQRDU58I9$SUBFԠ2E5 J$AQTPbDd$x56$MMF PQBDd9J$DNGR0I`RDEhAA$DPPF QBEDh j*FQ0HdQH N ! ¡ 0#AH&#܎+ :2@p-ft@W#D+' أZuD5[4|hN"3z® H0D3k(63j:YXݕe 8FFf A5Ut(|ܠ@LD ¶ :v!,Og` ? "]f]@hI@f D@@YY5d\Cf@=Y @*dâR!8܃| Ff P'{E9 O{E9 P @DPL,ʧ 'r2 ;"͢ :@+vUH4xfrұ/QՆTDEit"&"+F@8`V d@)" 9d FB1""1IbDE4$(M!I6DSHRG@)""Bt"))!GB1""Bi6 2Ȭ*¡ :!qXuH@thB,:<-(fS2D4 j$CX`2D4M92DBLERQS!dD$4t!B@"\tX!GG"t!M"Tt)#GA""b,tl$*3@ f`"B`Vdh3h4axFV`6Y1H( qHa5IȑH (qpH%ɳPSRS!TԔ Ht3@h# Q&2RS # 1RpRS bDԔQ5%8j)0 H``hfLd $A1"j d('#NPSPV !T Ht3@h# Q&2 # 5`pS!ED䉩t* $3@ ҥh 4A3@ a@@K/ a$FATBD38p$EXP1RDdX0$ABBE($DB00BD)T!E5%It)*3@C꜀Q.G#՚5X4`Yf =aQ0#hBDdHx$AC3BE$DB01RD# $FR22D(P$PPABD($ERRRSaDԔ`t&@h`d $A1" jJr 02 U#!@52IVSa4D٨t$@h4<,X`d# FA!"B d#!FB!"j d4(( D)"54HCOSING@z4 C# M%:: x&[Th"#Ef 3@Śj4z 3iՀmx*0+Cɔ9`h#CKT3lIAC@!"2 d($FR" d\")FH@)"jd($ I!"2bd(( K)"d)FS!"*eH(&,NPUSTD)@X=_4eTpfVŵJ 4fT< w ä :PQ H(Ș$FLRBD#$XARRE4# PSRS`bDԔU5%8j))10 Hh# Q&2 SPV! pPSPV `bD5a AMAX1G@* j t  A1" j 4Wh 3@ a$ATIBD3p$RATBD(Ȉ$SAFBDd5 RS bDCQ%9Rj$))ʑ0 HbW/ #! 9 2 U#! 1J2  QP4%98t)@ɌBDdH $EB4SL!ds xt '3@h ) BDdH $LOG20RD#)SDyxt '@h! BDdH ;@uH"@e<_@F@@!"jle|)FL!"B d\#&)FG@!"2d&FM@)"bz9d&FO@)"*‚e V!"j ep"NIVDU)t"(!!MƆ/f `YT3@D%0Q,h`, q1݈4:! c  2 c" 1J28 T#M2J c%52j PT'M2v P'=YpI̠bDs#1=LOG2G@)"bz94bDs# fP$LOG21 @!  t0Z,0w%JQ}LǷ(8Q( NPqHJQHgc+9J2 'NaTU t"K6UL>U@=Z2`n>V|ϡxuPf2uN@b^ä@?@ @I>ҩ $POSBDӓʘ$D90`2DD($DB0I RDD#Q%Zkd,B@#  GB@)""(BDD#hFL$DB00W"gFW٠4G(I=Q hh^hkp\rꎀQ$iTpmn3QU.ST< { Ar.GBIH h(ё@HO q He#F`Hfd(qHe:(fqH d& B1"J2J PV aD`t&@h`d $A1" j d& B1"J2J PV bD5`MAX0G@"j t &GA1"j 4Whrh@t,2 Uc  2 U#"@% Bp Dd%%aINTQV&@H(+` H!t * U7iQPh#٠4fCB >L$.lRYxɌ2D8 $FATBDU%(Ȱ$MRM1bDC$MRABD3H8$UPK0BE4(ɘ$NGR1QU!TdI8t&'fc{ BDdIV RDUMaBjh 0 Hb#Dvf4(fQ HFPHg)FH*Q H# )QHEdhQ`HPH(q e8USbDDA%<$FONEUS"Ĉ*)1 HeȬC@9@  DTCTA'p͢` !Vh!` fCXͤ50P0 .@b!0yTP) P1HZFH3 1H>*Q`HKFHWdhSSS!DI0t 3@PVh~   4`Y RDdC( $SAFBE`$DB02D$LOG20RD#)S!4It3@͐|ZU/d@@)"J d<"E!"r:$PaU$U t"yQ0Ej٠|ZTT2@ CGR å@H(Yb# `2  #%` 2>P'`A=N2J P̣%A=L2d Tc&52|P)`aJ2I gQѠRDTti@,B d@@!" t'"FA"rP2DX$NB P BDT#XUIIaBjdQ@HUHUhTf  ՚8Ohhp9YC`t"{&:BX 1H ɊPHa8  BEŘQA=1fjr hf ͢ GE!"b˭@g稍T$SaåpH *FH(pHI@H8 Qa4DYt "@TT`evhwV#  2IP#"`UA.26 Ց#ip RDd#M1JjtɊL:I@<zY46>L$.| 1H*FHi f H'IȆ1Hg3I !4d5 ht#!,B9Y /d@qͣ`K$F~\0gV~]0i6ɌBE4h0$SAF1BD3)`BDdHI"FLTG@" t#&* ``R!H @pa Hfm`Y&2 P!9J2  ##aJ2( gd4uDt!/SEsdɌBD3H$NGDBDu($NGR0RDu# T5)Ht, 3@hhc A!2IPT'QSaDD٨xt$$@+4pRfhɌRDC(($ICPIU DdC)@t# 5YF@!"j ld&&N`BDӓQ%5U2j6d'ū!|Z#4M)u$z¡ QREX %9BOUTf`^L(POKEf6Lt((@l?cH B#@ =UPF0  FA)"J d TREUYU9A .j* bFwREUn'̘$AC2 `BEYAMA1j* "8͢B"†Uo fp@I@(I@)e{UnulC(S@_F(ç #^<}UU_f p?^/cYV-k‡:Ͷ!}Y Uڪ0ʽGUaZ@k‡+::ڪ͵L;H!![p·@,-[` L"V Rm r "+]H耑 EuEW* m 0DWý#(r>&-*rGWn§B""C36\ UXt,|f֠qU*Rp!U7u\ BGppU@b*|ZXT, <U|#@FbmcCdF`{`wfVz`)6pXwEl;<wukt¸0 E\UpV"@ūF­;*$Bh YVUPgԉ0ڶ ?@iXFHôӂ3lP#*?L 0 XTXuzǬ=a^PA([H#6  [2#6wFa^AeZU> yF";^>` T}B:*x :*x :x:@s i"Xe|٠Á-V,CFAOꦂVCDA@qUBgฌ 0+ `(@oPU*΂^xĂV4k5<0u[G =e\Vm$M8).3*o^AtZ QeTY\,uXYuwFV elmfаvf۰G@Dæk Vn?xʔX(ʠhX;Z¦ ɂ鰷 UT CwƠaꪄ (F":!䀆%7,2`Ja@ꆄ-%UްQʝڪf v.fڐp#$ fP 0C #UdiSq]b*Z @Ȭ!V3j@9REu_쫈ñ"~-V`!]" ""w(Bx@:U2: vU??쫞jm#Ewv &#??쫄Z ??Grj@W!#aXW!#??øC=yQ @ aP a\@UIjʸB8"":4a@ GV!n¬#aV@Ueul*V" :#*2V uPBV*!BU|%B P*; H VX$|-Y ;H:*<eQizڢȬ#3&0R# Z!`BDCIDIVG@"!ˬeR00$D99=-O#@ Vh[(#& 葑H$JSQӡE4t騘t)3@~[g.;$FAT2BD38Ȉ$SAF U!5$It) 3@4d |T1HIHa8 U!4DIt" 3@xFV wd@@!" d  FC!"r:$RTQӡT4tXt3@YTl$IAT2BDtIPPD%9`t$)fcyn~Ld '#NQU`BDtH9J$NGR1IԌ%Qy=&_<~7Lt((( \b* q&2$P! p P!45 t$O*|:'ԙ4G[&pԓRSBEu$I$I0L`2D( $$IOERR 2DX H$W52Es()I$MJARG`2DT I$ND `bE4I@h2\.=G&z:*XtT> 4f"t"TD*3n 3m K3@ʽ> ^2 aQa`xʰu|+U^2 Y?!@#[ VTB9Xu]+lg7"wCj6h*مs Zl»@sx Ff7d 4 d EL@`G l༮}b4\&HW?x ͺc: w@? [W njh8@-T 3j@ YT @wXw$~zfؠ7ʈ+6'T aXǃj(0 bo+n)l>p.#0- / 1CFA3o+uvA\f0vhͼ@bͼê !'ux#;XWl@D7(uqvf۰GB#H23*+x >+ ͷ`*bõb^~[(8#;ìc?uY*eT`%YK2#dڮՠd jµV \Յkٶt `˭! v0n"n;r:@"x w[H-3o@(¾`㫸!+v; YՕqb+X: *R`VP9EqAW8EtADWPuB6 :+vU  HꩃW#r_F HFH HUBK%^2&sxKUl'M eRpO4`(t)"C+ Gk U) iVU *E"ȤXtp(UTBVk #jeWzT>' *|Z BCu°@V dl Px? ̅2BAͲAV dB ᣸&a[f` a^qU;  YT %'eZpA{‡V(eRAXw)|[S6ʄ !`AFaV P 2G&j\зXDU0RJ3kX0UD„V1qa6 `EhV p P󅹁qQ H c$CXD1Co` 63m8ͰL;b (1иHHњxHHL&1HHeE(fH*HPHgqvHqdQ`Hkt I3ԓ`BD$9=H$NORMd &aQVPJ),ҡ@݆aSXp¥vKG >(4-TvtZɅYl*2e0!]a a@"ŻĀ\} ρs8]@@D1Hq5Ċi F1 HcdF1HgIp HaQPH(fqH8TQ bE4CM!)H$SHJR4MF<[quA,@*&ɎbE4C$SHJR1bE4#H$J1ՑBDdh=Y$RND0  RE$C@#F@&B<hhH3'(0pY"fHdUHIxFVdan<$T1BD$$MRM1BDx$L1BD$$MAR0BDdH8$ACBD3($MARRE4cQBE4hM$SAF1MD@ݐ:݀c  2 PM: IQ#MpUBDDi@Ԥ3@mf @m 63h6@&: U$@M!)02RT")I2$S #$ pQBDEi@/#E^vzA-*4'|+B\n3CLt$+NBE4(M!H$SHR1MI!Ce8à@ `I^-dC|{;G@!"B °JVm!f@Ƌ Ԁ(xʡ L* գ*Gc@ ¹`wՉnJ=3VnfѠDuWzGU,pdxvKeWHeU Xͤ`2y_2 ͷ@L۬p/ՇO@"d@ʅ lmCHy^p;i08 ͤ VhhAݒͣ@b*m5s3ƒr@ á%;tp  3@m&YPݐ7djgqUl(gp+ X,/@gKͥ4 hY# //̘$BFD$X$CLSFLbDE4U(Ƞ$ERRbDd%Th$FLCNTbDdd4($FLFLGbDuDd4($GTFLGbDU%(π$IOINIbDTD($MEMRYE$T8x#$UNdE4E%h OPENdDE%h=A92P5%` T*hM4ݕS@mfx2GXn* V@ͲSˀ ">$UeTu%ݙi@ݐ*Q5e[*Ā?,*>3lĀL.~ V$| fp?ٶ\=aذ+/(d#,ͦ $BF2D$P$CLSFLbDU%($OPNFLd d*qH*1pHXdH1HY dHљ0H dh&HJ (qH9iћH d`fH *ђHdP H.dћHdѐH]dјH dq@Ht dH}dHad&1Hed&q8H d)` Hĉ))1PHc dFQЖHgdFHk dF񝀶HqlĉʈQHĉH*HvH QHOd豚 H5 dQH' d QHndFQHk dHq vHHqЀH dhёPH Ċi)0HcĊi JF10,Hi djHdA#=Y:IՑ#"` 2  T I9:" #$ 5J:FI g֐PRE3iP5 p"1PH(fQ HaH(sSSU bD@Ըt-bl(tH^wXTd+@&2P$M-J2: %=1:SSc1%9 2&#1U9Q 2V'SSbDTD)@TPpP D@#! IX:S"`M-IZ2PU RDC)@,#3gd@)"J 2EC5I$MRM1 PS`2D5I6$MAR0 U BD)@ͤ#8 :pͦVmt))GE)"BT2DHQ&$ATRMZfI8FF"3=aP0H`4xdZF4!`eS& j3k?S2^SDcUz hm`c nz݅vVms, FX Œ7Oi*2 Hڣ o*EWLu`ew W eQ3ڽ`L$dݐ+vH X_ ʎwd2/c P++UHAf@,|hG nrD8LuJd~Z1C(b|G!' %`c6pn62\71сܭVm!f`pU 69gv^wd@  Sǁ. D&{W4 ~T$euڬVhͣ@ wl`i0 ;a*DE%iQRDE%c9@T D(p K Wh?L.QP0*/M"`k @64 +#bd H>@Vʯ  ڞï S6Uy U| fp?ٵ=aװȈ$IOERR2D$@$BFBDU%($TTYINbEEEH$DRV3TBDU%)@P8~Vw<  IxFVu 1(F6¡F6¡#8 b #aS`<T Q,s;&:Pc  2 ##AIJ2* c M:(ЧP4%9@T7 m·}Pp1> ,$L12ECABSnF~[쪮x CpZnHF,(  ($bDeU%($L1BD($T1QTbDeU%)@Հ[<T`W%W'fmE00¦ ڸͤ v\sFSԀp%04*H¡P4$@67 &2 TAIJp<T`W !,!6#6:* ==!-! *-!&, ~2*!͢ *(!"&!*-!&+ ~2*!͢ !+!6> !+!ں *+!&*&!~2.!*+!&*(!~2/!OҤ *-!&+ ~2+!*-!& *-!& w*-!& :+!w!,!4+6 ó :/!!.!ҳ !+!6 !+!4C !-!4 !,!6!* :,!҆ *,!&+ ~2*!͢ **!&() N#Fͳ ́  2DTh $FL TBBDT B$FWѠBBD$$IM`2D( ($J4Q2E( A2$PRRDTdx M$SG2ED8 QN$DTBFAIbDED$cQ $DTBF5bDED$c$DAC0IT BD$xI$ARG3`2Dh ($J8Iѥ2 p \.K%` pxD\J.&K%  qX\\./K%Ơ` q].aK%ؠp vH,].hK@%`P v\].mK%ۀ v|].qK@% wX].xK%`@ w].~K@% p \.2D$A22D80$AD2D$hh$BL5%I@ -7 &2 cMEIRpSSV `DԔ5`P5f  ĉ(+1 c))1pc)3SSV `T5%8P5E3@C@|`xf h> ,*r@ m·}R1: U>fѐnK@#"@ 2 Uc$QJ2r c$ M :PSPV c5%8pQӠE4t 9 P5%fM!'2pT<@XTVĈJQHcdQ8SS DI@ԤnVh4p@ 6-7 m·}QEdA""d@#&*FB1"2*d4$$ F"adP&G@" jz$RRQVQU 2D41=R$FLTMG8[$#3٠>4MɎ2D4$FLTbDeU%(PFLOATS 4I@T:ܬf TzN1`Hs(*QHsi蓀QV 2D4%%b$IFIXAS%Q@hAn;mod@"Dd,#(")G@1"J2J d&@"J2Jt*NQU2DC@hpnM|i6vۀɎ2DCȈ$FPERRSUS 2DӘ4P5 =pnmV i[n;mod@"it&N2D P$MARM[.p@`m·}P0aS@x]npVp琹>wq[mwdm3h**!&) Ndͳ K**!&* N ͳ RAO:!+!6> !+! *+!&*(!~ x :+! j .*+!&*(!N!+!4D !,!4 :]?:e?Hҡ **!&))))+ "(!!4!r+s+p+q!5!6>3!ͩ $ *1!*3!N !6!s*1!P "1!PY! N "3!>͒ !5!#~H ! !5!6:6!0O _og_ogDM!>))덑o|gg =U DM!>))| =t ~ ‚ ^#V) Œ _{ozgi`N#Fogo&og<>M\B` &G@)"j Jtd2K h0tz7erȀ@ KM h06% 7WeM-nmp!Gs@ 3@ wYlZb.7 KX''ɄhT*rS$HG)I(T* xZb4xH@\2q12KNx@@"yT@W yTP*pH" "I8E)iD #4|fm;#LO%sAh)r4vhY,n7-n4NH\q1uKqO+ qd@P $)PR)qL"j6s9L_ 3k6ʀKN&30 sIN  q4N,@P'IB@'h6Ca qP= #AxZ1E?[TB1DmNfsAŴZ.h9 A< &IőE&IBF QX'"Jd98@M DNH$2@I'GqL"m86u)ȆLڸͮ2s <]Nr($2V9j?c|eZZA䳅E-U"k 6lh cx-UT"1!g a8[Dmfvy8 Z2.9 )8E) $T #D P@F'BA@D"$rpA*%p^)@ f""r)sdENX!#6 ȍ*'.sq  M@ iGRj ͸BEE[R)pȋ ӬCV&mIoUN]g8lژ.:dGB8E'!S$iR$< !D"y\N,rIP  #!`@E&IRqP (JBa$E8N, #Ax[&5H U@ٶD]u1ρ˻NL|]u%r#Js-zh3ylxt)3@7[!`,4ͳrcc`.: PT*2I &J"I`T* Bqx[|!XPu\,w%`rჼs- CnX t)3@ H2Ceٶ #΄5 |f1""r)qydENX! c6ȍ*NTy_06mw@ ñ@@[| .;IuagK9Ķ;lCY]`w%@#o-g8pmm3qx%-@aC!ڎͩ@C@$]hv(P' "8E#2$N$TA*I☜^/NXe`sq-tco$ |;#9Iu@ 3op#6KN аYwiؠ^/ q9dN)˾1̴,]w`v6ͬ`0c4AB;CA&m fАYwlZb .; KX'@ rS$C*%BI2gp}\OrYe UNbn{JI9sփ2>2gpmsTzNϠu)K8S Y݄@ fmFLGe@2Á@@* BQ@O!PO%"9\ )ERqPR $)8I'bS-*a@ D m%fҀuĸZr.8 PT* D0M $)8I'bqA*JQpX')8E)iS$1pN)pu,paB3iBs9ljͦ2@ ]p(D,I4@R"DRLO' "yA&H8^/rqTB"0A)IRSńjX RiR!ATyRP&mLF`R3@`A e`ACD@P T@'S@)j$P' 򸀚A'DRaE' by@T$Dq`U*(E! !< "Hd0N"jGSh6r9ІL۲ͫBtX?':ZZ% 9sփ2>!g a8[Dp&mZf@)rIƌ [\.I: )8E) dbyHA* RqH 8[\"ͬAt!C63m`3]sփֱ>2gt}\OrYe+D6 j@ \u1KNqN*JBI8U*4T!PEʥB3ibt=OIǕ f߰ 7P&m@"RU*(E! !`N,$qE&IBE) q\'q``A 2@:6mfIrG:KN񙼴:CYi@D`6m(fҰIrZ 1>/qT* R M" RPR BP^)@@;m3u(?cj$ VA9#N8%LU7ASkP$3KZ:#9%K9ĵ]wN%裼-vFsk Cs8H33@ tqg8K8L]$wN%@v"6%҇yJ[ .;Itg8tGv84Msl$pnf:h#;mK9Ķ]@wM< q`'_e癘Z .I<‡rPG<s$fPP! ͯ@ɌH,P\x(@S-)fsl,T3eeP[( gp!, :fK8["‡aPx!` Ͳ@q--fcm,t oA@9d#;mgB8CmAYne癘[ .a<‡rPP_<s$f`PK<Vmf0Ysg8˙O31̷\y彠x͸;R 1L?[\"l`+6oX,b - 4 8'qXR)Dhh0aCsg8K31̴L]y`x6;࣭n/d @@; fЀfm Afsi43OǘPZx Gl8Gsl8ͳ6.<m'`XA eChAٶlPyn3mx;6˘Of9ys hX ɤ!' Fea$h,q\6 K8f. ab3 2p!ۦ.=ǒߠyt<tyGSo88ͽ.=B%g`X'&H$8b0, b' 8f. ab3 B1™hX@DPvmP x]{cly-CЎ<рA$"]{1 KENM'A Mƅa$h,q\6 K8f. ab3 2! $ӇL>3h@tlVͥىDT"]z(r)HO) Ń`XI ab3 R1™j@D3k`8B3jp83k8D@m7S K : C]6mPf0qŠ"[."> KP'"`X'*ʄ`X1hX#1pX5, l) )E΄: VB:MA9HYBZW9Xh 3kp@G3l@ͯ!|G|>l8C6K6A`rpX ʄ(!8hXF`XGa`԰,#Fbᰦ[6!nP"]}1Kυp0 ŢqHJHB&I8Z&;!p!#63hP!3l@plCXd 3@@ %ђPHc d&j1 H1 # %9%RbFC"d)'"LE€S$R22DɠS$SBD4HRDDD5ɸ#RDVD5hˠ%TRANS4T$MULVDthΠ$TRIME4TxC$T1Ԅ2DDː;$DB2D(Ȉ;$MB2E5IT %$Au! BX`V?XҦp"V?TzNϠu)[V X#3",$* X4EX,R)a`VuLha`E8 X2"04a@Ug8` UbnV?Y*zN<62eHc1#! RctFo@"g'"M# IZpT DD5u! B``x (Ff7b{JI8:X#3iSy8g>֮cz@XHnX,n `[U312"`U@ E",.*  b.XDXdU@b|f*#u='UK&. pdX Fq\3pX8*` p*a0* *,**H B`3lpU!2`ȋ Ci&maPUg8 |.'KLe,f)DU&h* 7X:iSq]@Tb- E`1m@:X#3",ã  V X#3",X\X(E@XDR)XDXLUb>3lb=OIǕf` q,Z.  F`1hH LRX0ZA`(dGGX$n8TUDUXDU@"udEXL!6 *`=OIǕ4fpLĘ#XKEX(E@XDR)XDXLUb>3jb~TyWmid #2,$c"FC@" e+Fk@Y"r$:QTUS 4Tu! Ba084@ ad4 Fe"afp*M"ie|&FY@" :USUS EdTu! Bxf  R"`2`0ȋ xB`3@X B)e*maPh!` C|U@nV?Y*zN<  E!2`ȋ pX6 6 x* =OIǕd&" d*Hcd10HsZdQH5EdTUS E4Tu! B3@VfE@X$R) udE@X,*m`h* U@dU@nV?Y*zN<&P1h$AT2Dʀ$T12D(P$ABG@"jdS-m3qx%-@Gxi363o@G(oC63o@G0oC6pLۆ.>fѐt3hL`VeGZTx!!##6jHG|j@K6tLڬ0x!#6k8HGkhK6t)Lx!a#6Ąl`HG-lK6ʄs9ІԄL@|!#6mHGAmK6nLǬ "nC6oLpc- N @E)H| *2y8I'H8[ͱp!#6鄳opHDހm fPu *Z&.> dE #P !BI8E%B@ ',ã`V>֮c.a`X3k0 E",,*€ ͯV SˬU@",0* lUnV?Y*zN<6LrX,F"`V?TzNϠu)[&P4 d&3@2U&: PgP)F{"id'"MS@c Ipԑ5$Eau! BHfc{U@iSy8g`Xfcy*o=' :ZX-@ b ~`pXf" )_ˬU@",$*@>3@VX8{J*X8F" :*1F`j? [LUbͬ" )_ˬU@",$*@ ~ Uu)[ [`m``HEXT!0*qudE@Xd! #6*=OIǕ]f@X0*`{JI9sփ2>2@ vdSB8U@`UXTU"aPXfX B)e* aXL* 7Xfc{='WdiXvPh d&3@ 2U#:,\3Nc$L9jN*jQTTD5au! BPe@X #3nV =MEb ~紩3@W1h=c S,aa P*`* UXDU@"udEXL!HEXT!0U!2`0ȋ R"`& zaE8 X$2ͣ284ph6 *=OIǕ*aHEXL!0*qudE@84\@Xd`XLF`ouҧʌ *=OIǕd@&# d*Hcd1HswdQH54TUSDTau! Bxf  xR"`" *`qudE@XDR)XYdU@3@ fVX$#3g8)_ˬU@",&!` ڲ*` *7Xfc{='TH(USUE$1u! BH`V DX4Ub:X42N?.V x E","*  ͥ`V SˬU,Ub ~TyQV X#3g8@ @d4 FS"ie|&Y@"@:USS`EE$u! B3@Vf @ `HE@X<!0U@!2`6p6p4PmTPh! !  ڜ! 2!à * Xn8D\d |eC@Pp6LgX4R)bVuLm=ud"]bb@fPV$f1mm)#[ 3o03@f x*=OIǕ*`U31{J*HɔFY" Jreh)@@2U#? 03У! ,P3Nc5 9 2P`18SDtau! BX؄lѱVD[2kvP* "ڣsP"cb6)#3g8L;1lHG4D[2 vdAEXH*{JI9s֍` |e@ Ub,<" )X :&6:X,2N?.V h3o3i@\~a`U@31{J*1H@V9LX`VDX,UbYX4*`qaXDXhx8{X$R)aV ud"]bfxثe&6:[͘e>28!"i:k:!;J e:!=J:!9J>͘e*:}=2N9*:}=Ɓ!N929VA:!;J e:!=J:!9J>͘e*:}=2N9*:!:=Ɓ!N929¥A:!;J e;!=J!";*;))8";*;!9J>͞*;#*:{zBe ;!;J e:!=JJ;!9J>͘e*J;}=2N9*J;}=Ɓ!N929=BL;!;J e:!=Jj;!9J>͘e*j;}=2N9*j;}=Ɓ!N929ŒBl;!;J e;!=J!";*;))28"OE͞e**j9{ozg}2N9E28+=!;J e!"<;=j9!LA=!;J eJ=j9!%BON=!;J eV=j9!j L:8/2N95F!"<+=!7J e\=j9!LA=!7J eb=j9!%BON=!7J ef=j9!j L5F>28l=!;J e!"<=j9!L:8/2N9ZE!"<l=!7J e=j9!LZE= !=ͬS=%!=ͬS!=ͬ!=!=͝*9*{ozg"=!=ͬ*!.8͝!=ͬ*=!*8͝!.8ͬ!*8!=͝!3Jͬ!=͝!";*;)) ͬ!=͓!=͝*;#*9{zF!9*!=͝!=ͬ!=!=!=͘?=!9J>͞e>!7J ?=!9J>͞e%?!7J !9J>͘?=!9J>͞e>!7J =!9J>͘*8=!9J>͞e%?!7J 9!9J>͘!?=!9J>͞e]?!7J j;!9J>͘Y?U?!9J>͞e?!7J e?!;J eJ9!=JF9!9J>͞e?!;J eJ9!=JF9!9J>͞e!F9ͬ!82N9?  1 (XTX(1),T"@J"BJ>!DJm!"JJ!"LJ*DJ~#fo*LJ{ozg"NJ*FJ~#fo{ozg}=Ɓ2PJK*LJ+*FJ~#fo"QJ*HJ!K*LJ"SJ*JJ))"UJ*SJ!`Q*UJ*@J"WJ*WJ!K>͞*SJ#*QJ{L!"L2L*L~#fo#*L{ozg"L*L~#fo{ozg}=Ɓ2L#N:L¿M>2L*L+*L~#fo"LL*L *L"L*L))"L*L!`Q*L*L"L*L!O>͞*L#*L{zhMe*L*L~#fo"L M*L+*L~#fo"LL*L *L"L*L))"L*L!`Q*L*L"L*L!O>͞*L#*L{zMeíM*L}=Ɓ2L“N:LºNL*L *L"L*L))"L*L!`Q*L*L"L*L!O>͞*L#*L~#fo{zJNe*L#"L*L~#fo{ozg}=Ɓ2LML*L *L"L*L))"L*L!`Q*L*L"L*L!O>͞*L#*L'ERROR',13X,I4,4X,G13.6,5X,G13.6)*(1X,80('-')/4X,'TOTAL',13X,I4,4X,G13.6,5X,G13.6):‹\(8X,'TOTAL(CFM)',4X,I4,4X,G13.6,5X,G13.6)(1X,80('-')/).8===28=(' @PRESS TO CONTINUE.')(' @TYPE TO CONTINUE WITH A NEW PROBLEM.')?(28282828288!;J 8!9J>͞e9!;J eJ9!=JF9!9J>͞e!F9ͬ!82N9Y@>28>28O9!;J e9!=Jj9!9J>͘el9!;J e9!=J9!9J>͘e*9}=Ɓ2N9*j9}=Ɓ!N929A*9*8{ozg}=Ɓ2N9*j9*8{ozg}=Ɓ!N9;*;!9J>͞*;#*j;{zBe8!;J 8!9J>͞e;!;J :!9J>͘!";*;))8";*;!9J>͞*;#*:{zOCe;!;J e;9! YJ:8ʨC;!7J e!"<:8C<9! L>28͘!";*;))28";*;!9J>͞*;#*j;{zCe;!;J e^<9! ͺK:86Db28< !j *T<j !jQ<j !jR<!gr<j9!T<j9!jT<!%R<!j Q<j9!j T:8/2N9E!"<͞e=!;J 8!9J>͞e=!;J eT>!;J ed>!;J !9J>͘`>=!9J>͞e>!;J >=!9J>͞e>!;J !9J>͘>=!9J>͞e>!;J =!9J>͘*8=!9J>͞e!=ͬ*9!!?͝%?!;J 9!9J>͘!?=!9J>͞e*9+"j;!=ͬ!=!U?͝*9!Y?͝]?!;J j;!9J>͘Y?U?!9J>͞e?!;J e:8/2N9I=!7J eT>!7J ed>!7J !9J>zJe*QJ#"LJtJ*NJ}2PJ{K*HJ!K*LJ"SJ*JJ))"UJ*SJ!`Q*UJ*@J"WJ*WJ!K>͞*SJ#*DJ~#fo{z2Ke*JJ#"JJ*BJ~#fo{ozg}=Ɓ2PJnJANS 1 FORMAT(A4) "K"K>!Km!"K*K~#fo*K{ozg"K*K~#fo{ozg}=Ɓ2K\L*K+*K~#fo"K*K!L*K"K*K))*K"K*K!L>͞*K#*K{zLe*K#"KK*K}2KoL*K!L*K"K*K))*K"K*K!L>͞*K#*K~#fo{z|LeE. MAXPAR .AND. N .LE. MAXD(2X,10G10.3)(10X,10G10.3)0"L"L>!Lm!"~#fo{zNeÓN 491 FORMAT(I2) IF((2X,8G11.4)(10X,8G11.4)8"O"O>!Om!"O2O*O~#fo#*O{ozg"!O*O~#fo{ozg}=Ɓ2#ONP:OO>2O*O+*O~#fo"$O*O*O *O"&O*&O))*O"(O*(O!P>͞*&O#*$O{zOe*O*O~#fo"O[O*O+*O~#fo"$O5O*O *O"&O*&O))*O"(O*(O!P>͞*&O#*$O{zPeO*!O}=Ɓ2#OcP:O®P*O*O *O"&O*&O))*O"(O*(O!P>͞*&O#*O~#fo{zvPe5O*O *O"&O*&O))*O"(O*(O!P>͞*&O#*O~#fo{zPe 482 WRITE(4,496) 496 FORMA"P"P>!Pm!"Q!"Q!Rͬ!Q͝!" Q*Q))" Q* Q!`Q* Q*P" Q* Q))"Q*Q!`Q*Q*Pͬ* Q!Q͓!Q͝* Q#*P~#fo{z;Q*Q))" Q*Q!`Q* Q*P" Q!Qͬ* Q͝*Q#*P~#fo{z)Q*Q#*P~#fo{z#Q2828282828"R" R>! Rm!"R!Rͬ!R͝!"R*R))"R*R!`Q*R* R"R*R))* Rͬ*R!R͓!R͝*R#*R~#fo{zAR*R))*R"R!Rͬ*R͝*R#* R~#fo{z/R=Ɓ!N929*9*8{"R"R>!Rm!"R!"T!"T*T))"T*T!`Q*T*Tͬ!T͝!TC!T͝!T1!T͝!Tͬ!T!T͝*T?2TU!Tͬ=Ɓ2TʐU!T͎ͬ!T͝*T))"T*T!`Q*T*T"T!Tͬ*T͝U!Tͬ!T=Ɓ2TU!Tͬ!V͓!T͝pU*T#*T~#fo{z U*T#*T~#fo{zU;!^<9! :8!!"<:8<9! >28< !j <j !j<j !j<!<j9!<j9!j<!%<!j <j9!j :8/2N9!"<!<j9!j!=!=!=!=!=!=!=!=!=!=*+"!=*!28!=!*8!=!28!*8!=!J9!F9!>!8!>!!!!>`>=!>!>=!>!!>>=!>!=!>*8=!>!=*9!!?!9!>!?=!>*9+"j;!=!=!U?*9!Y?!j;!>Y?U?!>!:8/2N9=!T>!!Sͬ!R͝!"R*R))"R*R"R*R!`Q*R*Rͬ*R!R͓!R͝*R#*R~#fo{zS*R))*R"R!Rͬ*R͝*R#*R~#fo{zR=2N9*:}"S"S>!Sm!Tͬ*S͝!"S*S))"S*S"S*S*Sͬ*S*S͓*S͝*S#*S~#fo{zS!!";*"T"T>!Tm!" T!""T* T))"$T*"T!`Q*$T*T"&T*"T))"(T* T!`Q*(T*Tͬ*&T͝*"T#*T~#fo{zBT* T#*T~#fo{z*j;}=2N9*j;}"T"T>!Tm!Vͬ*T!T͝!<j9!j!8!>**j9{ozg}2N928!!"<;=j9!!J=j9!%!V=j9!j :8/2N9!"<+=!\=j9!A=!b=j9!%N=!f=j9!j >28!!"<=j9!:8/2N9!"<l=!=j9!= !==%!=!=!=!=*9*{ozg"=!=*!.8!=*=!*8!.8!*8!=!!=!";*;)) !=!=*;#*9{z!9!=d>!!>?=!>>!?=!>%?!!>?=!>>!=!>*8=!>%?!9!>!?=!>]?!j;!>Y?U?!>?!!J9!F9!>!J9!F9!>!F9!82N9