IMD 1.18: 11/10/2014 15:01:33 os9 v1.1 for exorcisor shell pascal      57$R OS-9 V1.1 for EXORcise?pR   .example_asmmodulstartu6Cmd8DefkSypascapascal_compilepascalpascalerrpascaldefBsupporMsupporttsupportLP.SPRINTELPFD04.Slist.baasmmodulTESTSYSTESYSTE4boot_part.LPPCODERECTCAci.S&boot_partclock. Cloc.OS9Bootcacia.tbwrite.toggle.rite.write.rite.S?SFU? S > UME;>U`E;0? S?ȆUE;?S?0?&TKHELLO???9?hoY9$9A,$m9$9A4% !'5 Uc9 OF DAY CHIP ASMCLK rmb 1 Special clock from ASM Bilthoven ***** * * PIA Type definitions * org 0 b.side rmb 1 Default narmal B-side PIA a.side rmb 1 A-side PIA MP.L2 rmb 1 SWTPC MP-L2A B-side PIA spc 1 PAGE * SYSTEM TYPE SPECIFICATIONS spc 2 CPUTY "P set EXORSR MPUfreq set OneMHZ Set MPU bus frequency DSKTYP set EXDISK CLKTYP set ASMCLK INTRPT set NO ADRPRT set 16 SIXTEEN ADDR PER PORT DRVCNT set 2 NUMBER OF DRIVE DESCRIPTORS DRVSIZ set 8 eight INCH DRIVES REV set 1 REVISION LEVEL spc 4 * DISK  R   2ael-&l,&l+$&g&2c54758+:0-<94@?$_3*\&\.'Z' 1_$O C5Ā4%(K A5'HHH4ġ'S2b5.$l/C%@S+-4/%!(0O_*탬(&%l-&l,&l+ & 5+-2d94PZ& %N&'Gf spc 3 * Conditional Assembly Definitions spc 2 opt -l * CPU TYPE SPECIFICATION spc 2 org 1 EXORSR rmb 1 EXORCISER (NON-ROM ENVIRONMENT) MM19 rmb 1 MOTOROLA MM19 CPU GIMIX rmb 1 GIMIX CPU SWTC rmb 1 OLD SOUTH-WEST TECHNICAL CPU S09 rmb 1 SW%E+-4P/+-5P+-$('C $$'m'0M&.$.$ 5/94P%[%V(O_IK0'*G$ ?45&& % 턦JJ$lI 5_L4 _'JJ$lI0%S2b094v4 ddfe$le&ldDV$%(     b3dO_?4&$1&2dho2f5?l%5ho5 hiihiDV$_5/+-$'WC9,m.'44F haiDV$5'"04$lp$2d''C9%\ %S5(K/I_L40 &'1*'Fʠ_9&O&S9*& 'S9KDC&?*9A|NN&1'#1&E'?oE9O#0& NN O'աM&I'ͧ K'L&C [7*-0  *T%%b_%bO_b% b0%O_2d94p dff$ l&l&ldfDV$'ۦ&"%(?b@%_5o x$9?+%SK6&#&뮨&Kħ_Ѯo_ 4P% %**54P%**5,+&$_94@h%OCscAciwQ2 Advanced Semiconductor Materials * * * ************************************************************************** spc 2 ifp1 use ../../defs/os9defs PROCEDURE list DIM outpath:BYTE DIM path:BYTE DIM name:STRING[45] DIM line:STRING[80] DIM errorcode:INTEGER ON ERROR GOTO 10 INPUT "Input file name? ",name OPEN #path,name:READ INPUT "Output file name? ",name CREATE #outpath,name:WRITE LOOP READ #path,li use ../../defs/scfdefs endc spc 1 INPSIZ set 128 Input Buffer Size OUTSIZ set 128 Output Buffer Size spc 1 ININTR set %10000000 Control Bit to Allow Input Interrupts OTINTR set %00100000 Control Bit to Allow Output Interrupts spc 1 PARITY set %0100000ne WRITE #outpath,line ENDLOOP 10 errorcode=ERR IF errorcode=211 THEN PRINT "Listing complete." CLOSE #path END ELSE PRINT "Error number "; errorcode END ENDIF B lbm1 I r|j+y5OZ &Z&#')B(D6'0!G4!H?% *O95S90 Parity Error Status Bit OVERUN set %00100000 Overrun Error Status Bit FRAME set %00010000 Framing Error Status Bit NOTCTS set %00001000 Not Clear-to-Send Status Bit DCDLST set %00000100 Data Carrier Lost Status Bit READY set %00000001 Input Register has %Data Status Bit spc 1 RESET set 3 ACIA Master Reset Control Command DEFAULT set $15 Default ACIA Control Value spc 1 WAIT set 0 Time out to wait for I/O TIMEOUT set 6 Time out value = 3 seconds (500 msec clock) spc 1 INPERR set PARITY+OVERUN+FRAME+NOTCT"lis k?%Input file name? K?*TKJ?%Output file name? K?)TKJ??,TK?-TK?S?S?UE?&Listing complete.?0T?9??&Error number Q?9??-EP N &m%&9 $ &4.5S+DCDLST An Error Condition spc 2 * Static Storage Requirements spc 1 org V.SCF Space for SCF fixed variables INXTI rmb 2 Input Buffer NEXT-IN Pointer INXTO rmb 2 Input Buffer NEXT-OUT Pointer INEND rmb 2 Input Buffer end ONXTI rmb 2 Output Buffer/R   '/R -/  Aci[%&&FA01?*%&0O000Fʀ_9&O'#0_N':oNS94DEm5'? 4K65'#-m5'%oE0&2fS94DE? K6'#_52fC9ޮ#0f 9IOMA(C)1981Microware+$hf* =M%*\0o\"*- =@P0`, =@P0\$nb^d?0%d?10:1?294@?(%0154p*M4`Q% mH&F3IZ&`@%64DB`cOB&M&L3IZ&a 05Daf$oJ*3IZ&O5S5D     '' F'3IZ&S9[u F!;U&0 0" 4X05nS9oZ*oAiD?%%do$OkK0ˆ?%dI0ˆ?$3?2S5f* `D'd&mk&Ĭ& BbmH'j3IZ&m&`D'3IJ& R 9b&D^ \$ |%\'^\ b^md o˃$./A %mZ*Di Ĥ i&mj'ŀ'lHo2_9mj&׮db HjHFD33?_9%4A %5A95AR%l"9K0&Om' L%S99%4R 5R%A熧A94Ao% 5Z%A954.R 98As@AttXBacku\Basic0bBuilCobbleƂY%5D4#?d?154Aʀ:%5%%K!''j#l$' 'j# l_ 4 4@d?0%Tl"!D '0D/'K$' '204 ?5 %#!?#%D03 #Z*_55@S9A$ K0&&S9$9A,$m9$9A4% !'5 Uc9CopDatDebuDeDiDumEchEdi$9A4 d?/%9$9AmB&%1 D Z&9%4Ao5 A%j"&ɍ4tK愦%' ?+S6'5%&# 0=4K'o42I?/o52?do%5D愮4* bD'9ma'^Z =0&Tb% Z&b"AFH_92cH'0 Z&_94  FormaFreLinLis Loa LogiMakDiMDiJ& j&oJ&5C9b* 1)Z'"#'&4$5$%94@D%lBDH&'A)0F5?%m2v4pfd&df0g ?%=&3i?(%. Z&f0i1W?0%?.$4D3?)5D'5p?2j&C9K0&'806?2|B/Ld$:J $0a cKMergMFreOS9GePrintEr!Proc#Renam&Run)SavY0&0?2d9ERROR #PAI?/&K? KI?/%''o?/%o9g\ с_"RB (C)1981Microware(kDv,x-S94 2{BB%&R&D?e/& >%7:+<- $&$+/-Setim[Slee^Tmod`TSModUnlinfVerifhGUUSPAClistlErr$ R 57Toggl_Compile&ascal.ascalCupporWupport~upportascalT_MODascalecho * OS-9 V1.1 for EXORciser 4/05/82 setime VWB6P7V+ Wo oo#]' >  7 >ȍ [$9& O_("&$@B?UT\:8n%9O_J`bdF*!L,ONM5@A'PB'a'@a9aa0++9 F++9 FN&aF F $,&4 5%44'2b5HHHHb9F%šbb,'09F01$2baF @., #b93 +'3#]aXn3( +@D '7*'3 '++L$ T& $ &+' +T&P/ ' &1/t1R$F+ߗ+1 RT'! &L & J' &T 9& 89줗aG& '` F1X쥭+ 'o '| '+'@+]'!&@F@ Z&9Bf"Y9&J#&099G@&9F  @Fb.- O9134 '' &!'' ' 1#Z&5Z2b"9DPCCBAPCS@U@Y XD>'<&L0[& M0,'t,&߁A'+B'+D'+>'+'8b+ŀ' ')E!&D,& WO' #& "D +',F'(`&4 5]'!&  %& $ F&+'cH+'!W<1!+ ''I1 +@'25 ' +Ŀ'  9& 89 ' ' $ &1?94@34@$154v \$O_J,'M&L+&4J?'. Ɔ ƅ Ƌ0 bJ F F O M& b0aa9cƟb FKba'a90JK--'-'O%b++'%+''0ƃ (Ƃb0*$]_bb ?Ɓ0  ƀ0bb - M' ;9_X' Y' @U'`S&909 aa F N M'bb]''%1OZX11a&b. ! )& (5  &94+'*1"aZ&S5_&2c_9 3%H4`0 #$9"0$ .'$'_&Z& 0o5A%Z"9a%z#9OR ENDLBRLBSORCANDCCWA<ADDSUBăLDLD؎LDC ' ' 90%JbbJ L+2&(J&Ƅ 0 M&. - .-c Fƈ c F FƉbb 섄PC&)0߁R&0 FJ@F L+'cƌ ǃ Fcƍ <4&&?'A 5'L4+1+5 Z'@9B ,9 Z'@9BD9$O_94+5-H+ &'MP،JSҍBSTBST؏BSTBCMPՃ"CMPӌ"CMPăCMPٌLDَLDSTُRSTRADċCMЁSU€SBÂANĄBIԅLĆSԇCEO҈ADÉOҊNECOLSROASLSASRO DE IN TS JMDCLRT9MU=NOSYNDASEAB:RT;SWI?SWI?%SW?LEA0LEA1H9 >/I'4H+ ' 5I9 & -D9+94 '/"8' ' 54 '/"쀁 ''&_ 400 '&0o3 &5&74,'094"5,'094 ,'o &5F%4a5 F94*LEA2LEA3TFEXPSH4PUL5PSH6PUL7LBSҍ BR BR! BH" BL# BH$ BC$ BL% BC% BN& BE' BV( BV) BP* BM+ BG, BL- BG. BL/ RM FC FD FC FC EQ MO EMO SETD SE OS EN NA OP TT PA SP US IFE IFN IFL & 3 ['  [&V4VV5V+ +@DF *oa5QCSaSS+ߗ+ ?acF9O_P@DBġ͍.'*#PC,&,R45PPHD 򦀁,' 0M2b9*D++;$2d9' }>&& ' Z& &o00+9O 2IFL IFG IFG IFP ELS***** Error: 5?IS\^jq !+7Ibad labelbad instrin numberdiv by 0 expr syntaxparensredefined nameundefined namephasingsymbol table fulladdress modeout of rangeresult>255reg nab9$0+9'uj&2a $90+%o⦀-&c䦀3Ua% 'Z&5D'-W'!L'-_5CĦ,' '09%7 덛%6 ]' V V C_FYMZG[E\S^I]OXA%?OD1+ ,9 0 '60+9*&%9%' 9 ,9.9-9/ 9 U>&9 T9 U0      $59 _&_+9U'a& UT'T' T9T94pu->.)$ @-$= 7& @ -') $ '&&@ ' 554p>&$ X% & 5&1 *4' & Z&5_9'5 "+& -&9愞A %X:940-R wY% V>&2b1 '5 %1"a+&5 _9 4 54TTTT5 #094d3 o%l 4a051?&5'd 0%'`$'0 22|kp$a% A%vF"r7b&{XIXIXIXIbla 2|9>%NbXIbXIXI%Sb%Ow ]Att(C)1981Microware Use: ATTR {[-]} opts: -D S R W E PR PW PE You do not own that file. Use Makdir to create a directory ERROR; the directory is not empty dsewrewrO?$?$ ?%30E?%&#10E/%Ibla 2|0%&T&#icib%0la O_bd90%9#9090ma'b 2d9 '094c=4be=cd=2f946& d_hcibYI+lc jd&b2f9&94`3䍜50?4-&3@P +&' M' ' ',')' ]'2550,*@큆 0E?%o4@?5@%{0e?%o? 'f&u%8$_ &M4@?5@%<0e?%0?%+?%$_ 3e0-1uX%-* 0u_ 0r4?S5?_0 0_ 4p@?d%0% ?% m'0_ 5p&9D4/& 4bj$ ݁*&ߍ 4b65 0,4&& a !&a ?&a 0^&SC -& @P90(&?4)5' 2be*&@ Z& .&B ,09'& 'O9"&0쁁 ' '9,$' %%9%9%M'L'9>4@SRWEPRPW PE ','-&0140'7'?+50* 概0$ŀ' 'jn5&e?e_9C5U%546X'>'' '?%5?D4v0Q?5QS9W'.V+*5&45 >'V+ 59W'V*\'!'>'4"O70 ?5 92z40b?5%&a)/瀦b!瀦c:瀦d 瀦e2f 94/\ $瀋:5V+jY'k -R ]5W4651wO70:C ;& :01Sn0 c-U5Z&9  46>'W'V+ A?5Page Microware OS-9 Assembler 2.1 error(s) warning(s) program bytes generated data bytes allocated bytes us Backu(C)1981Microware/D0 /D1 Use: BACKUP [E] [S] [-V] [/dev1 [/dev2]] E - abort if read Error S - Single drive pause messages -V - inhibit Verify passReady to BACKUP from toOk ?:Ready SOURCE, hit a key:Ready DESTINATION, hit a keyed for symbolsASM:4v]' 0?x?$&$ ?5&97?$?94$522(3+"3-$31&3B3N^'=]&Y' 5'7? _??%"91?97O=<:SECTOR Number of sectors copied: Verify passNumber of sectors verified: is being scratchedDisks are not formatted identically BACKUP ABORTED244@     1WU'J쀁 ','E&0$ S&0$ -&V& 0$ ¦/' 4'(4` 3+&#-K&K&1č5`-&j&2a"4`)(3& & Z& <' =<5ULSED40`Ձ '%X'O=& &0 ܖ&5Z/?%9t&01GU- ',' & /&01U1SY&@ &?%50?%(??%1 &@ ?0?%/x0?4P3?5P%&'10?1h1^l10SY     &֖0?%4@3?5@0?%?0?%05??%}1uΖ00' ?%S &1 &M1̖?%4?%-0?%# 0M &1h ?1S??$ '' &?Q-Q- K>K>K>K<K<K<K<>K<>K<>K<>K=K=K=K=K>=K>=K>=K<=K<=K<=L+L+L+L-L-M*M*M/M/N^N** ! " # ! " # EԍBYDIEDI/LISRUKILSAVLO$ 0$90WU1 1 '3460O?1n!5694?5%˦^Z*9T*942U0WUU?51ٖ  12  4DDDD5M' '09#4UU5:.AERENAMYPAC\ME$CH#CH r {CONjDI > LIS `PRIN STAT RTRO LTROF EDE @RA ;LE STE BREA96)&vspUBasic0ReadWhat frePROGRA Name Proc-Size Data-SizRewrite?: RANGEBREAK:called bo-R YcZBEDcan't findc54C4;03L݂݀FDLLJ0O_ /\-?L%?540? O_태"0401~&2b5 0 'W04 $4# /5 /0B5@%4@4 3bFD2n޷5ݷܷ4߷bb0$Y=$b0;O(c) Microware Systems Corp. 198400d5VT ; 2 W_rin!$$$* !!!$ $ $*rPARATYPDIDATSTOBYTROTROF PAUS DE RA RETUR LEPOKIELS0001 $Ǎ 0 G405 Z'?$&'bye "b&'0  '2dnC53&0 L4 %%?%=w2bC900 @40 m'- ҆ /&* 0 . ) @ %? 50 5&& 0e4ENDIFONEXWHILENDWHILREPEAUNTILOOENDLOOEXITIENDEXIOERROGOT!GOSU#RU$KIL%INPU&PRIN'CH(CH)CREAT*OPE+SEE,REA-WRIT.GE/PU0CLOS1RESTOR2DELET3CHAI4SHEL5BAS7RE9EN@BYTAINTEGEBRE{5b 3_\ &O0_?%n4?&2a]&`9 0?%R9f4%P4m&HJ'S5P4 %b&,b5J*1O0^^ ,E+ ,' '1?9&/'$1919+  45' 0?%񗽍]j&'4 %1?ACBOOLEADSTRINETHEFTGSTEHDIUSIN=PROCEDURŒADDҔSIZŖPOӗERҘMOĚRNĜSUBSTқPɟSIΠCOӡTA΢ASΣACӤATΥEXШLOǩLOG1SGΦABӪSQRԪSQҬINԮFIذFLOAԲSѴPEE˵LNOԶVA̷LEθASùLANĺLOһLXOҼTRUŽFALSžEOƿTR75f5&1% %6' `\ ➀40 &R50 ?90ۦ&m*O9/F !m&&F%-1=XIL "&FF4  ٞb1'r4@406oo*5&^ 줞b0$5@b13^4FO'4 b IMMIDLEFTRIGHTCHRSTRDATETANOANOXOUPDATEXEDI@IMPRUXZ]aegin@mpcqtx"}bbc , )   c   T 3&50态&]*5F&ƞ/4ooo / J"ƀ3çZ*1=?ccc?%>5 & ΍ &F0=09FD' *&!'0&D '1!9&$ %&nK  @ I@ \  `` =@,@:@(@)@[@]@; @:=@=@#  I F C @ = :!7"4#1 *!'"$#!&U'c$1$o'~&O_ 'o 0\UFF 84 /)/^//`-/bm&&0  + 05 &č 4??5. 'O 4V??$:&9b?%00C ?O0?5Y&3?%59} }45&4 ̮䦠* 5 %/'     &t F%l`J='`^\`J 4&G5& J/F%>2FD1߳ 6J 40Jc/ 5J i3J _?'%FO_6L559S+9*5/0FD >'"&X+ 4@3?5@  5& " " J"JԮ&\!$9 'f`J:&GO_\`$ !#l^m&$\$\`$J!& 4 g O_\E\ &O9 C9:&=9^\$ 0-`%\O9.^"4050`4`-5`O94 &52e> '*& ^`90? % \\'&&9o%94P'_ %X0J\o&\0'El*\ OIO4BM ̇DFK50큟J5 4`'D3˦&Om_*05C %94pa'0O_?$ bO_?%b540 46 b% d"&2f54vd4$O9o섁+& `*&05-& l^ 00%9# #%\m' ^4ܵ$O_O9\c9F9'O.C9_ 2q䦤oa*&a1! '*b+m' d+ ' &Fm"FDb33Af\koj\1%hjgj 5&a܂bF%Kjm'C܂d'04 3A!ei-ac&50!b3A0&2d54v69'45&,ܳ"J+ }001$5& &'?L%[& 0$ 9_ Oݳ4C4 $44ݳ2b54vF'*}ނ4T߀=$05T}߂5hm+^t 5&1db"5b bf4*1?5d1b&1!ma&mj*?h& mFD2o3km'#0mJ\\hX\&ma'hIh`%A6mj&0hFPk\mFD2o '3A?&o?c?94 40+'501!#C550O5d 40* Ѝ`%\&`%O94p/m+{ +p4@ $E+( \" '\#*+`$^3 +5&`$1J\0˟`J2+0&0= ?K 5/m*C9 эLJ'(^\1`JŞ/oM&0 ^4vF76 J76`^\FDO5&0 '4 'E%vb ' 8%id &as^\o\%Q%/J 5& 5&l2eb^ܵp\O9\cO_`$mb'!Me*92f 2o0M 2dO97#TJݫ 44v04J'$ܫ5@dܫJd1d4``J 546134vF\^`66J  66 10O#<0'& @7'D%1''#&hCf0 C9q0/405 V460a & 46܂' ?_5?9\`$<:& 1!.椖+Pt4)5t+;J `%\ 2b +'& t' Z 6d&5^4 `$:&!"5C54v/ /^/`J4f/5 hfb d^Ib'40*&5.fh0ڟf hi5**O0TTTT`%9C4F.K=!Q??1!1!9j?j?j?9^ Z*_' t*t90?]**=090`'`&1"405'h . &n&7}A% -} + tHO944F$ ނ _'&54Fނ܂M& }߂5Ɔ.鮡b004 D1:! <D4$1? 4$$"5 O 0 0z4 D1:!5 +j=9&1)9_1'9O&1%9*9O19?`4?b 5'+0m*&4b&䦄&ަc&b2b2b9]**0eO0Un4@"5@'`%C5!:4V3 >?4V3 4V3 #4V3 O_%$9"d"""""& " $m1"90W? 0DJu01!1&903:' t9(0 0Z'릠 <?4:00䤄&M'0+m&54@Doo1?*-eŀ&ʀ6&6&B 1?B \2O_4'%ѿ"&& '  ""ww"ww""""""""""""3U"400d5}s Ut*! < > < = > =R:'׿ʀ ')&%&7k&TK Z&׿ &744%#]+' 4oa&׿ Ӯ' 6 5 '&B$ \54NbM9em&&H4^I5&081U$ 5&04hdu%5+ ' C90?hg*8(> L O P Q T &7 K M N ԉ !?""s''R11!pz~~ǖ 4 hd&7ܹ4     = j*^  5FD.?95_Ձ>'?& 񖤁& ֣OXI0n&405&SM&&&(.'L&#֤'&D& O& P& Q' t fDH'U8 JVMME& $U @ C@(%CCCCCCCCCCE%E!!G''"""``aklllmmnnmm DD &41?`ݫ5 1"d$ ^00& K<0* XO% & 4 ^/5n/O1946/+ d^2{0 0?2e$GQ& 7* F"F& G&Í ' mG H' LE&fܫ4&& 2d2'+95&ݫӞ04' !'! 5:l '5yJ9d?&%eW4#M&1ܫ4&u'פ 5&ݫ֤'y-'49w54DDDD509#9植&1!9?'>9'L1$@4O_D̓`'1 $40#3o`쁓blB%050f%59 ``4̍QK'L'1? _4$cc̓XIc$S m' ėc%c5$Q'5`'L1#M& 1!6& & 1{ KfW'9y' TY' I'  I& ; '\'1G'9(' ' č   &Z),-T&=׍ߍ喣L&nJo]0ס"&L'& &D'o +~1!0'"&ݍ6# K'9 $3o1#M&1! lK'9O'9'@с&O&1!1! ' 1?1# 'aҞf9'T4XXXTT04Pс%O "rݮ3"Jjd&с#C%č3 5PfA2a Жс" AњКΧ4154dOl &1?49'   ҖR'&S݆9D_zp$9%:%N'. \ -O 鍐wT&9zmQ'K9' _DW4M'֤'&'&Ϧ$.' !R1?u"=&%a"=M&"#=M&"%"a#="%"5I5& ^  ^&K'1?.1! '"' "B &1!Ԧ=$ғb>m=9r1!9'1?41!5&9W'줍$l?1#9f4 섄'0$ D탟D9̅4ܡ5_M'&0>,̉ ٍ0\4p& %*5 D쁟D '/֣ON'"]*\&D쁁M'J]&9&ߟDC9D x%"']&女M&DP 9'SY ϖ탟D9N'% 4+04'*'6";b'D'@'% 䊀O_ڦI5 6[H2'%G|#:'j4 1$ ^91" ^9u1! ^i`& с'' FA &!D0DѧғbO_1$9G&1!D1#94!D0O1#D5q[1 5M'" 2b5O"K ٍԁT'\C ܫݭ&$$0w'37nפ%1?*&̏QZ*9̎m&̍0 1?̑ 0D%9  Q '"&'1? =)1 >'{ +'؁%&# 1? "'F /b"!$&'l! ^3C0^(1+0D93?4@N5 ?o섓^1# ^ K%1?K^!1$ e  )1#i'G1!931# DD94D 0F$ '' 2cEb,& &̅bݡ94ܫJ$O5 +4 ץ_=%1!\&$$&\1!1???צ5 ' '1?9 $%0%!9# A%Z#_' a% z#99b֦OF4 _o*154F $  ffڣfh$hh054Fˣ15D & ^0F% 0D91?''"`% &с'L 1#M&+K'1!9K1?&1!ځ%MMK'9(I&{K'Q''&1?%G T& _K'Q'91!'Q1!2J&1"9iB#36Zh30#bdd0504' Z 7b%5 4ra' 3_c0' '0* m*c5400d5 3(##@*K K EEaooyGG  &K' 1! XB'9:'$5 9$X00'J'3[X'OYIYIYI&s 1!+9\ ށ% 'G ;9\ ' %+ 9  0  B > I L v r U IdžC4'$L &l9i#Ԇ9\      'dž9m c &  &9D&&D_9 '9&D&ÆD9D&3BD9%%%B%3Xn      %  !1?1# 1& & 1!93`' ' ƅ&`& $!1#Xρ&`φ`ѧ01J"5F^91"6F9섁'5XIXI34@!/ "XIXI4"5'^951 &^09o09 ? ?%u5D&o500J&cc!n`%D9? ** Input error - reenter ** .ņ,4& 9:ƉQB' ^4@5@'Bғb3C'' & B!bҞҦϦЦ94& '3 FXXX'AOȗ́% 'G= ؍' &с&f'TT BfԖ94 'G`_5`ݫOI\`jfrrv4p1`' &4! 40P5.&-$ &6 ȍ$0& K'54F$%2b2cC94 2zB!܀݂2f5& %%' fB> 15 %4@>4BnT& 0K'0"9T&&K&0G$'&W%K'9@'&"1('& % "" $ 줭5𦄄1T49- )f  19  f"9d" f"9 40O5`0< 78>?_ŗʞ/^ &4 5&3ǡ%&4 1J߫`%՞f *Y':K'9r.&L'#%'G& %049&O˝K'^95?'>9.X܀݂I'6'"K'Q'0 怍' %u9Jݎ݌F4FHJ'怍'0$5FJFB1 15FJFn.ހ߂e'&K'0 Oj?J1&0$f D E&00DF%f`dhC/ O `^h d/J / b/fb Z0Ėρ`%*& =&& с$0A Af턖с&'TT OAf13C*J%9400d5  q*%%?&  %%9?0%9 ?0%9q135$ 0 O 5 59Q?%K'9;' /^990 4!?%x54!?  F1:O!}4pG5p/߱ހ?ޱ :4P?%/4?&2a]&!5SHELL H   '' '' ''*'''''?I37o}oo//` #anPY,;TXmm$/ll$3LySTOP Encountered '3 @$9  %$0!!O_9"61'm'EFB U͞\1t6 B09O0991093  O1A094& 4'44594'H>+0&HP%@3&1#@%0Į14CBJM@O9IuK5'1"   EGCBA,'^9 14 1O_ %2b/^ @/1 /b/f` /^FD9\4'* 44F$ 1t`% '1EG90*@XOn˝m"' 0;&0^909m"'09'@|1X1n1 1'-!'+ E4E2@4 DVDV4 1E5E U44ą'9ė4MJO@I9BBCKDJ 94@O4M&y14 '00' '!$33F !HJ>HJ 05 l%4@>4BK'0!0F@5%5 O5j&2 F@ J% 5* +10,0914m*0/09F_K 9F_C1D$' sF_/1:!#%j!#B%D 0/?0911:A"C$9F_ݦDd"!#B%D$0J,094'U X`'#lG& ҝ!4 50*9400d5=gD /$*e+CIZT&,<|DtL 4>jxww$ @ 2 #L  114!9X G&ߍ 14 L%4@>4B05H3n  ! .  M j140"9140!91405@!#B%D9f14B405F>!H+Z& >*O9it5F###>!Z& >*O9!4"9y.0te3  p L  D DZ  ?Z ? U ^  o Tj_5FJH Xŭ+O9%4H3b5 2b 2b ; ;bҦĄψΦĄУ4Ą'Af T1:!3D !'B%7G!'ja&'      %'%> ' 'XI1, !!1& &4<1@$R5B"I @< ;&8!1& 4A% fB> ;'1 &@$>B%B> 1O583 1O1:!93 11:!9!!9'!1&!9'!1&!9''5&! !' &'XI' (=#((!=#9} %W% n!'LG!"% DV<$FV <$>O_"$:8 i%i$i#i" n'DW<@<:%$:8#"8*i%i$i#i" n'/<<:%$:8#"8+ " j!)Ph%i$YI*"9h?i>i=i! 1:!9c!c"9!'( !'( !'('1&9[ت 34%W%!'4!1030)03++%%M'2*(@0&{m!'.$#"$8CSCS$j $0U"$(*m!&$#"$ FVFVl'M+j')XIYI*$$Fl'(m'\*1&5%%4O 4m'+ $4Om& 4 DVFVj&2a94"*(+ ')+1&5!'(*2:1%%5 5r*P43u%a';=%$$a=$$##a=##""a="' l!DVf#f$f%M&"%%54!'/ %V$pZ/]* o%'E 1q=!%4%%k!/! 54]'@%%3Ej%&103O"$0n'+%礦++%%=oo+$=aa$l*%=aa$lbao+#=aa$l*$=aa$l)%=aa$lbao+"=aa$l*#=aa$l)$=aa$l(%=aa$lbao+*"=aa$l)#=aa$l($=aa$lbao*)"=aa$l(#=aa$l("=+ 0315!)߆50S0_p42!'`. & #&%'103xp0%m%%93@4P!'.&#&¦%&m&_!51&5Pn4103*"0%'1mA'3  A9m41,_.O&"($h+i*ibYIj')(b*$l)&l(& f(l'(2c*1&2c5-4m"'m(''!)'!%+d"f#f$f%(*DVFVo+ $$"'/+)j'ui+i*i)i(XIYI$$$"'* Ռ&Z--礦+ƀ )̀* - 礮)+ƀ 礮(*YIYIj*M **5m94U!- 1&j! S1O"$ gf!f"f#f$Z.03*O_0ׯ.03hz1%m%1mA'3P 40* %%53/A103! !4W0% 4I0*3013!!&1&!#J A% (+YIYIj')$ $Fl')(!*l')1&54''!&1&!o#o$o%5!')##)+%%+5Rm1O1:!9("1&!9("1&!9("1&!9c"940!'H* m+5O5m*5'5%P Z#J T'D N&> H$8 B"2 <'!-* 4'!/" ,ڢ5.31mA' 3%ל%%l!2-~ j!$- fj!/l!++R1:10ȯ03VNO"$*,.00A%י3$$0 l03%& &0*3/ &940AC5֝TTT$\4'Z&'!& $'!' '!, '!. 1&!91&!9("' ("& "- ލ/ ؍& ҍ' ̍ , ƍ. 4 (&"' %&5"&+ +%&3&%'2A!&C#&E%'%5_>H1:!DD$+ Z& >*H9/Sf1B>4?15'Z&3[֝'$%HiDiCiBiAi\&9gfAfBfCfDZ&9*C M*03/P0*3%f03 B03/X0*3%603 J03B+$& &&י03% 03% $"03C$$lAħ9C$$jAħ9o,PKhDiCiBiAiZ&9* O_BD9 ZhD!1&^*3_H9>1:#!9$!&#9M*@Pl%M&M+3_XI*"91&1:9!.+ "* 4 7"&"4"#o"5' d"f#f$\&"m$* (4f%$@P!91&1:91,149%%9!*@P!9O!9"'%& !+&  !966O1:!iCiBiAi+J&_9AABBCC$ lB&lA&fAl9 "kXn&[ݹV?VUt !~|0pvQ~ l:?Qb*kQ?@-6bO_LN4"'%&c !      $R"PSW=NRW=M$ LMSV=M$ LMQW=LLRV=LLSU=LLPW=LLQV=LLRU=LLST=LLNZRLYXPm&*P"R$o!4"+j' j!h%i$YI*"%%5RPO_%H!!H!9!HO !M&H!DD$9!/'H${1&9vJ&L^ E+yJ4*`? ?5O %L   . 04@ނ߂ }50]'Z&9 x' x'- ݆+ ن ]'Z&9Ʀ*' 4!O540Ȧ"&0 4P2{A;vA2eO54@ނ}#O5o}' d }eO94@#m&G3AWr5_ׇ<' >&\ ^&1&! r!/4H!'# '*H1&5!/'.!1&! '-H%1& 4"-+ Z&j!*H1,5H3_!' '3AH940H!''!$O_  b50'&1&9 4}ނ4RHx%ނ܀1:!-5R}߂5CZ4!-DH! }# ZD%4Zׇ,'8&'0  ' ")'9' &F7"F ƞ9%dֆb (%Yֆ 'N'&%D ˦ 40 ܞH%(&/ג') F6"F1_45'1#\m&? >6C5ׅ!1׆n%%% %M'_ 0% 9"0994 =9.&H541:0:H!?%// :: ͧ/\ $:ZL&9"?$& O!944P0hj&0E0쿟~00묟5400d5' '''4X00d5~iwT tH'd %׉%50 օ'Z'Z'IZ'Z'ޝ%!_+\&! !3!& &ц%3AH"6 '(+ 4X4ֆ% 4X4ֆ% W45DDDD' 'Z&ֆO9 #0 9C9%&4P2{AֆZv*2e5P+ ' +m h4vu5l WIv @P$ k("%C@(ԥ,*/ 2_269.< k:@#TrueFalseIHRESBTX'4@1:O_uvwxy$"!,$ 0,&m$'=+'-& x.& w&P w %N4 v$",$"&$$#"%'$3A"'$" w' y XIYc2eO5Н&4P0D"'0A &4P!4\*5Pۆ+ '+45 4 T$\4 55O5Н'$E=4P2vAy .▆++*2j5P kAև'+ A 9 5 2jO5oy*,Pщ#։4q։׉# ֈwds?k։Ћ/ I%92c< ;6C5E'#0 v& w&E"&A$+= x'@P!+'-& u0%$0 4 = u&Pyy !"& $&o! FM+ j!h%i$YI*"uy')*P u#43&%a5Z=3G3ō%O%x%51:!B#D%u' O9$`# A%F"7 vh"Cֆ*>O9'$4P2vAy4y:5y'L׊y++*2j5P և'  OyJ+4.0405%$l9#00,0"1 y5y*O@ *O#906C9ai!%Z&"" 0 v'4]$5'%=6C5O54:%݁&m!' 4'%ʁ':6C54P1:J!S% HO541:o".%T't' F' :6C5c"$O5 & $  '' ''9094PO#vx~!*@P x3z3B%-R d z z&m#' l#4z5 ~&1&54Pux|{yv 0J&!&L%'x%!* u@#-ƚ=D u'Py# 43P53wJ=3?"m!'&*DVf$f%|l!&" h%i$YI {j!&" y{g"${f"$4{|5XV$#"4{|=v 5' &&Ƨv %*d L#IBuil(C)1981Microware ?%10-?O0A?%' ?$ ?%_?? wL9# 0&l y v1&5Њ0 v9XIYI {940}? 40܂'?$654P'! !. "$ %NC DVFVL&?$654P2vA4 0 0&J&v5y. P "2v ",4Oa5]'lv  "q}Jvy#s2jO5Ѝ\h5-R        Cobble(C)1981Microware Use: COBBLER to create a new OS9 bootstrap ERROR - OS9boot file not contiguous This disk will NOT bootstrap. OS9Boot _/&?%׆/'1+Z*)@ 0+?%)1/*4@? Mdebu(C)1981Microware 4 54TTTT5 #094d3 o%l 4a051?&5'd 0#'B%'d$'02|qv$A%F# a%xf"t 7b&{XIXIXIXIbla 2|9>%NbXIbXIXI%Sb%O%Ibla 2|0%&T&#ici5@%0D?%'0+?O_0+?%ohff?%[0I?%R?%94@_?5@%70K?%+c&)[\$?%_ 04?S5?0_ 4@?5@%0D?%9KCb%0la O_bd90%9#9090ma'b 2d9 '094c=4bd=4dgef b'2h9=cc$lb946& d_hcibYI+lc jd&b2f9&94`C 5450 4p-&@P +& 5024N*&&4bT$ /&ߍ4br$-R  5 0#4&&a !& a 0^&SC -& @P90(&a4Ձ)'6 [&N4]'2b5<&4O4>' 05.&09'&O9"&09:&0%M+O99$' 4sp'SP& 0 21' to open a file Use `s [ []]' to specify dump addresses Use `q' to quit Use `c
[<3 !De(C)1981Microware?% &_?Nhex value>] ...', where is in the range 0-ff, to change a location Addresses must be in the range 0-ffffffff Use `f ' to fork another process0>?9 Address required Value required'O%X%O'2%D& M&4-R 0?5%)&'!0 0 0? _9 End of file reached@'t%? /'c%.  $&0?%_9 Number was too large Invalid character in number2{ac #L0%89# A%.F"*a&h uDi(C)1981Microware Directory ofo. Owner Last Modified Attributes Sector Bytecount Name ----- ------------- ---------- ------ --------- ---------- 1] &0t?% &041Hm@%2b51BV+0J?0JdicibiaZ&dd 0 0? ac02e9W%T"L"E]&Og0?%1 Z'  Z& d0!g%  _94R?50>%Z&0c30-90! DZ&0! ! 0+ 0T9D?94DDDD5 #Q 'G00?%N1/!@0]?% & 0q?4@@?5@ ` '\ &1 ]0"D"& ?4@/_-?5@%@0P ?%4Q9xsnl#310 ?$&_}?-&.$  5Y+[ 4DDDD04 54 %%.54Pl ' &04_\ &O5@5_?%?5?9?9z5M' & 09#  45dsewrewrP0X%-ߦ*9Ԧ*942 0]P?50S"  / :怆/d%_Ld$0'}:J $s0l쀁 ','E&0$  X&0$ ֦H&0$  9w-R 2-R c2 "Ech(C)1981Microware?%_?7c M}DumAddress 0 1 2 3 4 5 6 7 8 9 A B C D E F 0 2 4 6 8 A C E -------- ---- ---- ---- ---- ---- ---- ---- ---- ---------------- '0 90'%%& 2% &  _? 9 Unimplemented option߁O'2S')-R        0s EDI (C) 1980 MICROWARE SYSTEMS CORP. l   ;`'G F #;n&:0w ?$ '94P54546'*14 7' _][ #'S' & ';5 54&]'& !! N?%57I7 A& bB& X$40Ez& !M 0w' /50$-M&70 aB&'$' *$&%0 (q4M& 0 5 %i7405 A& E4' 줞4#55474@EB4 77754 542 A A+ >'?%o54 '+5 40 '1!'&1?  & 54V?5024v0 0ڟ0TQo݉0ϟM0k0JOm0?%0?%5vAL =L >@E&6 'wn%k0?% ?]& 5@7SHELL E'> A&@7>? >9?>9ĮEI# 6E7EE% 774E0C"E5'  /'&7'= 2'&4w7 /E0&/7'4055&%940b54& /'40'2?%T410 4 2b' /& 5 0f j222 ^ 5P &0 6 ?% ?$B~ІBr0? '  k20EG0؟IA#@>;:<7 =' 9& 0'4=90wW1+)3v'栜$'500 /'荽  505 A& =' 907460'EE%?0&546 ';E4G4bRGa%E0b]&2d5%r9%j9 y4'5%J9'4ER04%I ٟb &0 &  C4EC4>4/ A+$f &0/ '4')4+44@I844@0I66@8 ;& <& ='/ :&:&=[& :]&! :* <& ;&= ; 5E5C ='=<;96'&0'k4 1+5k&74 'ɦ ' $01?&0 55'/EΟE'#*'1? 4$& 57'1o4E0 '& \ *74V$'3_ 554A%540$54 '{5 OQ94v 5 )194)+51M.&1kK& K1$K'!.'& #' 4 >K"509 &1"946i&*dV&4N'dM' E'b 54@DM&1K獶' 3%505a%z" _'A%Z#a%z"'BӞ՗ & ͧĦ՗1!'0Ĝ$1!&54䍪5'f$"410 44 & ='&504" $ "줣5B7'W4$44%Z '&500499B4+ '!L&6 #&+ $& O4$' B65l4 ' B1!'54#&i 6549$&U 600$& 4$5'0542) '&'a5'1? a54 $'#& ' 'P$X1%65*&0 & "0"5607 ':J'b1#C,?$,415&P'?%B A&0  0&4n59 ''/!& 0S91$& Z9' ]' ?%E&7&?%7&9'd 4&0 $0 % 31?&55460/ 1$4 '/00 &/ 5 2b54'54 #'''& 54'5 '09 '1?94454' &5''09'04' &05946' ]' ?%E&7&x?%p7E&]?%V t?%$M'' oo 섃 0 P?$4?5&745&04&5&1 4& 1$5401&4 % $554G0 0"$d%546@P01 1 546 B&$ 54B&'%5E0# ?% 7|Vv ROg=dB& E'' VBE'e4G&E怍&?%w5'?$4?5S?7 'G11% %4?% 0?$&0k  09 '? i7'%#4&g '&;7'4&@ 0{&     57/' 'u745A'& 07&7&'& 0&  &h & J'&7&W & C'& ؞77<:7=:7O=:7'름 ' '妄 ' ՞& ͞' ō & Ǎ45T   9 1%%4"15$b&!O91$m&C9S=s9D5d1RY0rY,1+2'"&'N:R(), 9991\ "'Z&"' $  '1?_99 M'90B1+ ')0'0<' E' ''9 & ' E' c' 4Z'=:5=:L;7:L=;77 A&B'O' ' 0$]&4&.5'$v-$E&7'1'? 'o?%l'\?$@&4 ?5 @?&0$߁Y'_Q'pN&4 *_`0y߁N'Y& '0]߁N'Y&0C߁N'Y&0%0?%,2b)0P?94v0O?%ˍ5v90H &0B '0_ O_&U 6'O?%H?%A?%:2?%122/' &00?%?]&? "3AOY_m|ƇƔƔƥ# >0-O0hu >40 ?5?XOS9 BAD NUMBER WHAT ?? * NOT BUF #1 * *WORKSPACE FULL* MISSING DELIM=$0-#"%L4#"lGO]&%% 2a&9oJ&bc'DV$ cffbeecXIcbIb 2e54dfafb5jb&9 *0"'߁Y'N&9?%LV0_ ' & ' '&?%\% *FILE CLOSED* NOT FOUND BREAK MACRO IS OPEN BAD MACRO NAME DUPL MACRO BAD VAR LIST BRACKET MISMATCH UNDEFINED VAR *END OF TEXT* *END OF FILE* *FAIL* RENAME SCRATCH EDTP2 EDTLIB1 MACROS: BUFFERS: MAC$  EOF #NEOF EOB NEOB EOL NEOL ZERO# )STAR%9'J& '  09  & &  W0 &41)k큜%68 061|0 \  $8 94$"!0|1&0v"@46OL&2f5:d%0b&0b #"% O ''# /STR$ NSTR$ DIR US GF RSEARCH#$ CHANGE#$$ LOAD$ 7SAVE$$ SIZE DEL$ READ$ WRITE$ SHELL L NEW A# L# X# +# b-# D# E#$ <# .># II#$ pK# S#$ C#$$ U T# :B# ^ / M# V# $G# VP# [ @]# Z: R# !W#  '& 0?01\m'* 30C 0!O?$ &0c 0oZ'Ӧ01@4 ぬ%2b?%0?0<?%r0?%c?0<?%T9/-,301%)(0!L ]Q _?$+?& 06( ,&-" 0w_s%- 4t4AmaF&\2c )&9 (&/0/(%),-0&\"%#$,-_(11#0 1(Fi 33%319DDDD009#9#90:%O/4T%hbiai 5 4-R  44 4A2g9?%z%D%T$\ O*0_?%0 W0I0?0%*=* (.턆 ? *&_90O_Z&9?%90u +40 0'00#0'00  *HForma(C)1981Microware   8(PN  N N NNR,aOE 8y_?1B4 1o"5/&Q?%J/'B 1/ 1$4 '/00 &/ 5 ا 2b09'd %&&94&0 $ %     1?&550,?_? FORMAT 1.1 Use: FORMAT /devname opts: S/D - density; single or double 1/2 - number of sides R - Ready "disk name" 'No. of tracks' (in decimal) :Inter-R < leave value: (in decimal) Formatting drive y (yes), n (no), or q (quit) Ready? ABORT Interleave value out of range Disk name: How many Cylinders (Tracks?) : Bad system sector, FORMAT ABORTED UNRECOVERABLE SEEK ERROR Double density? Change from 96tpi to 4< "Lin(C)1981MicrowareO_?% ,'󦂁 &_?48tpi? Double sided? Number of good sectors: $ TABLE OF FORMAT VARIABLES Recording Format: FM MFM Track density in TPI: 48 96 Number of Cylinders: Number of Surfaces: Sector Interleave -R _ Offset: Disk type: HARD Sectors/Track on TRK 0, Side 0: Sectors/Track: Both PHYSICAL and LOGICAL format? __ w"[Lis(C)1981Microware?%.0C?% ?$ &?%  &_?-R -R .  eFre(C)1981Microware Use: FREE [/diskname] tells how many disk sectors are unused created onCapacity sectors -sector clusters Free sectors, largest bloc sector1M'. '(/'0T@?04?5%妀$$@0M?. "Loa(C)1981Microware?%_?e% 0]??%1|1>_1<0] 18 c4o02c1,O_ 4@?5@0?5%AB'c$ j&2aaa&ҍ<0D1P0G1EY?%_?_H%\4 c $ 54 "& #    -R 5* 4542 0MP?5B@'d  461愮L!$N!1#j'&&j 'ц, 50w/y怆Ld$ J $M' &90PCa 1Logi(C)1981Microware/D0/SYS/PASSWORD ,,,,,,,,,,,,,,, OS-9 Timesharing System Level 1 V1.1 User name?: Who? Password: INCORRECT password. Process # logged on Welcome! Directory not found. SYNTAX ERROR in PASSWORD file It's been nic     e communicating with you. Better luck next time. 21V' &0?%' &&0) 0z+0V0 $ 0 )$1 &,0 % $0V$0 Ŗ?"K)M&]'K+SO0-R x w0BI0r0b30$,'3_ '3_4@1! &5@????% ',& '090P 0__??90/@O?94@3?5@0?%%9,' ''S90,'0$1? '1?_9O_4x P# Merg(C)1981Microware4@3G4_ ',?%%?% ?$ &?$C? '0960 "O %]1?& ,&M50H?  460?5: /怆/Ld$:J $0 0& &9 g-R 8-R 28 X%Mfre(C)1981Microware Address pages --------- ----- Total pages free =1M 1Íjs "O_ %1C_H_?H%  94 't-fiSQ ,  5E*942 :0M P?5Ld$ J $2 $Makdi(C)1981Microwareƿ?%_? : M' &0:%4 54DDDD5 X-R -R  'Mdi(C)1981Microware Module Directory at Addr Size Typ Rev Attr Use Module Name ---- ---- --- --- ---- --- ------------ 0?0I?0O0L &(0E&30vP? v'"$10" "& 1O0% OS9ge(C)1981Microware Use (CAUTION): OS9GEN ..reads (std input) pathnames until EOF, merging paths into New OS9Boot file. Can't find: ERROR - OS9Boot file not contiguous This disk will NOT bootstrap. RENAME TempBoot OS9Boot H1O'8섍>":i&1#1!1! m* 5400d5 *K M N ԉ !? 4-R -' hd&6ܹ4=4?/ j*^  5FD.?9J9, ?&M&ܫ=֤&  '49&9K99N'%R5ۆ ܫݭ$$0'37nפp%1?*&̏QZ*- $ Renam(C)1981Microware%?$ &|?%s0 ?%g?%b &_c%X ?%IZ\& 1?$ ?$*&&0'?%:<?%?%?%_? . Dā/' /'3 0+%%0!$'?%/' $O9̎m&̍0 1?̑ 0D%9   '"&'1? )1 4ܫJ$O5 cf+4 ץ_=%1!\&$$&\1!1???צ5 ' '1?9 $%0%!9# A%Z#_' a% z#99 4ra' 3_c0' '0* m*     c5400d59400d5 >PZ  '' '' ''*" \jzz\\zzz9 FS5>lz 9iEZZYY 3`STOP Encountered ELL H 0!!O_9"61'm'EF] I\69 B09O0991093  O1A094& 4'44594'H>+0&H%@3&1#s%0Į14CBJM@O9IuK5'1"'-!'3 @$9  %$   EGCBA,'^9 14 1O_ %2b/^ -/1 /b/f` /^FD9\4'*`% '1EG90*@XOn˝m"' 0;&0^909m"'09'@|1X'+E4E2@4 DVDV4 1E5E U44Ȧą'9ė4MJO@I9BBCKDJ 94@O4M&y14 '00' '!$33F !HJ>HJ 05 l%4@>4BK'0!0F@5%5 O5j&2 F@ J%+ 5ҝ1n1 1* +10,0914m*0/09F_K 9F_C1D$' sF_/1:!#%ˍj!#B%D 0/?0911:A"C$9F_ݦD"!#B%D$0i,0949^f'#l!4?5O0Q9400d5:dA ,$*e+CIZT&,<|DtL 4>jxww$ @ 2 #L  G& 114!9X G&ߍ 14 L%4@>4B05H3n  ! .  M j140"9140!91405@!#B%D9f14B405F>!H+Z& >*O9t5F###>!Z& >*O9!4"9w.0r7 p L  D DZ  ?Z ? U ^  o Tj_5FJH Xŭ+O9%4H3b5 2b 2b ; ;bҦĄψΦĄУ4Ą'Af T1:!3D !'B%7J!'ja&'%'7c901J"5F^91"6F9섁'5XIXI34@!/ "XIXI4"5'^951 &^09o09 ? ?%u5D&o500J&cc!n%D9? ** Input error - reenter ** .%> ' 'XI1, !!1& &4<1@$R5B"I @< ;&8!1& 4A% fB> ;'1 &@$>B%B> 1O583 1O1:!93 11:!9!!9'!1&!9'!1&!9''5&! !' &'XI' (=#((!=#''"=ņ,4&4! 40P5.&-.$ &6 ȍ$0& K'54F$%2b2cC94 2zB!܀݂2f5& %%' fB> 15 %4@>4BnT& 0K'0"9T&&K&0n$'&W%''1&9o'*@P'c!*@P!c9&''GV'Y 5!''&1 M&' #h(i'YI!+l( !j#&)m*@P)'@P'1&91:怆"$911:A"C$9%%9%%4m"'m(&!'#)%+1&5'!(* +/ -!'+%!++K'9Y':K'9r.&L'%%'G&%049&O˝K'^95?'>9.X܀݂I'6'"K'Q'0 怍' %u9Jݎ݌F4FHJ'怍'0$5FJFB1 15FJFn.ހ߂e'&%%M'2*(@0&{m!'.$#"$8CSCS$j $0U"$(*m!&$#"$ FVFVl'M+j')XIYI*$$Fl'(m'\*1&5%%4O 4m'+ $4Om& 4 DVFVj&2a94"*(+ ')+1&5!'(*2='+%K'0 OQ%D%?& 2%)%9?0%9 ?0%9q135$ 0O 5 59Q?%K'9;' /^990 4!?%x54!?  F1:O!4pn5p/߱ހ?ޱ :4P?%/4?&2a]&!5SH礦++%%=oo+$=aa$l*%=aa$lbao+#=aa$l*$=aa$l)%=aa$lbao+"=aa$l*#=aa$l)$=aa$l(%=aa$lbao+*"=aa$l)#=aa$l($=aa$lbao*)"=aa$l(#=aa$l("=+ h+i*ibY     Ij')(b*$l)&l(& f(l'(2c*1&2c5-4m"'m(''!)'!%+d"f#f$f%(*DVFVo+ $$"'/+)j'ui+i*i)i(XIYI$$$"'* Ռ&Z--礦+ƀ )̀* - 礮)+ƀ 礮(*YIYIj*M *(+YI5m94U!- 1&j! S1O"$ gf!f"f#f$Z.03*O_0ׯ.03hz1%m%1mA'3P 40* %%53/A103! !4W0% 4I0*3013!!&1&!#J A% ڢYIj')$ $Fl')(!*l')1&54''!&1&!o#o$o%5!')##)+%%+5Rm1O1:!9("1&!9("1&!9("1&!9c"940!'H* m+5O5m*5'5%P Z#J T'D N&> H$8 B"2 <'!-* 4'!/" ,'!& $5.31mA' 3%ל%%l!2-~ j!$- fj!/l!++R1:10ȯ03VNO"$*,.00A%י3$$0 l03%& &0*3/ &940AC5֝TTT$\4'Z&''!' '!, '!. 1&!91&!9("' ("& "- ލ/ ؍& ҍ' ̍ , ƍ. 4 (&"' %&5"&+ +%&3&%'2A!&C#&E%'%5_>H1:!DD$+ Z& >*H9/Vf1B>4?15!1&Z&3[֝'$%HiDiCiBiAi\&9gfAfBfCfDZ&9*C M*03/P0*3%f03 B03/X0*3%603 J03B+$& &&י03% 03% $"03C$$lAħ9C$$jAħ9o,PKhDiCiBiAiZ&9* O_BD9 ZhDiCiBiAi^*3_H9>1:#!9$!&#9M*@Pl%M&M+3_XI*"91&1:9!.+ "* 4 7"&"4"#o"5' d"f#f$\&"m$* (4f%$@P!91&1:91,149%%9!*@P!9O!9"'%& !+&  !966O1:!9} +J&_9AABBCC$ lB&lA&fAl9 "kXn&[ݹV?VUt !~|0pvQ~ l:?Qb*kQ?@-6bO_LN4"'%&c !$R"%W% n!'LG!"% DV<$FV <$>O_"$:8 i%i$i#i" n'DW<@<:%$:8#"8*i%i$i#i" n'/<<:%$:8#"8+ " j!)Ph%i$YI*"9h?i>i=i! 1:!9c!c"9!'( !'( !'('1&9[ت 34%W%!'4!1030)031!/4H!'# '*H1&5!/'.!1&! '-H%1& 4"-+ Z&j!*H1,5H3_!' '3AH940H!''!$O_  b50'&1&9 4}ނ4RH{%ނ܀1:!-5R}߂5C]4!-DH! }# ZD%4H%%5 5r*P43u%a';=%$$a=$$##a=##""a="' l!DVf#f$f%M&"%%54!'/ %V$pZ/]* o%'E 1q=!%4%%k!/! 54]'@%%3Ej%&103O"$0n03541:0:H!?%// :: ͧ/\ $:ZL&9"?$& O!944P0hj&0E0쿟~05400d5' '''4X00d5~iwT tH'd  @15!)߆50S0_p42!'`. & #&%'103xp0%m%%93@4P!'.&#&¦%&m&_!51&5Pn4103*"0%'1mA'3  A9m41,_.O&"($*P$ k("%C@(ԥ,*/ 2_269.< k:@#TrueFalseIHRESBTX'4@1:O_uvwxy$"!,$ 0,&m$'=+'-& x.& w&P w %N4 v$",$"&$$#"%'$3A"'$" w' y XIYI%92c<      ;6C5E'#0 v& w&E"&A$+= x'@P!+'-& u0%$0 4 = u&Pyy !"& $&o! FM+ j!h%i$YI*"uy')*P u#43&%a5Z=3G3ō%O%x%51:!B#D%u' O9$`# A%F"7 vh"i!%Z&""'$4P2vAy4y:5y'L׊y++*2j5P և'  OyJ+4.0405%$l9#00,0"1 y5y*O@ *O#906C9!M 0 v'4]$5'%=6C5O54:%݁&m!' 4'%ʁ':6C54P1:J!S% HO541:o".%T't' F' :6C5c"$O5 & $  '' ''9094PO#vx~!*@P x3z3B% z z&m#'-R wZ l#4z5 ~&1&54Pux|{yv 0J&!&L%'x%!* u@#-ƚ=D u'Py# 43P53wJ=3?"m!'&*DVf$f%|l!&" h%i$YI {j!&" y{g"${f"$4{|5XV$#"4{|=v 5' &&Ƨv %*L9# 0w _"Sav(C)1981Microware1?40b$F/?%? &䦀 ','0O?%#0?4?f5% b%?%_?)V&l y v1&5Њ0 v9XIYI {940}? 40܂'?$654P'! !. "$ %NC DVFVL&?$654P2vA4 0 0&J&v5y. P "2v ",4Oa5]'lv  "q}Jvy#s2jO5Ѝ\h5vJ&L^ E-R ?\+yJ4*`? ?5O %L   . 04@ނ߂ }50]'Z&9 x' x'- ݆+ ن ]'Z&9Ʀ*' 4!O540Ȧ"&0 4P2{A;vA2eO54@ނ}#O5o}' d }eO94@#m&G3AWr5_ׇ<' >&\ ^&Zׇ,'8&? Setim(C)1981MicrowareCloc >>> NO CLOCK MODULE FOUND <<< >>> CLOCK INITIALIZATION ERRORS <<< YY/MM/DD HH:MM:SS TIME ? $20!?0 O?2zLHaDb@c6C5ׅ!1׆n%%% %M'_ 0% 9"0994 =9.&%׉%50 )?_?_ '/':' ,'.'090% " 04 =9?օ'Z'Z'IZ'Z'ޝ%!_+\&! !3!& &ц%3AH"6 '(+ 4X4ֆ% 4X4ֆ% W45DDDD' 'Z&ֆO9 #0 9C9%&4P2{AֆZv*2e5P+ ' +m h4vu5l WIvc2eO5Н&-R ]_4P0D"'0A &4P!4\*5Pۆ+ '+45 4 T$\4 55O5Н'$E=4P2vAy .▆++*2j5P kAև'+ A 9 5 2jO5oy*,Pщ#։4q։׉# ֈwds?k։Ћ/ Cֆ*>O9] u#Slee(C)1981MicrowareO_ ? _?40% "04 =ab =57     -R a-R i >Tmod(C)1981Microwareupbsbsechlnulpauspa bs de eo eo reprindupsaborquibsbeltyp19O.& 1!0$0F?% '$%o &?%_?,& $Verif(C)1981Microware2  '_U&  % &&  &_? _J&&\'0 0 S焞1=G&#<&'0 0W 0?%O?%9$%| '?' ?%g  '1?9-& 1!0m%5* 0F &!=&1!M&?_0 "M41! ='0_?SYNTAX ERROR: P?9%%45$_HHHH4ত ' ',' 0 #1# " %1!9S90X1F_\ % _?4v' 0*1?&5qm*& 9O#? 9P?9Module's header parity is correct. Module's header parity is INCORRECT ! Module's CRC is correct. Module's CRC is INCORRECT ! 7'-e540W*5=Km&)/Ld$:J $0+5 0&# &9DDDD509#  460& ' \2% & _54pb0H&$bO50*3_&C5`ɝR l-R e.R lkcopyrighsos9defvrbfdefscfdeflock..systyp *Tsmo(C)1981MicrowareLOGIN ; 'O?L?L??%9?%4?%/0? O0?%_03?%?& ?|:-R HgH `$Unlin(C)1981MicrowareO_?%?%?% ,'馂 &_?&]      New Process F$WAIT rmb 1 Wait for Child Process to Die F$CHAN rmb 1 Chain Process to New Module F$EXIT rmb 1 Terminate Process F$MEM rmb 1 Set Memory Size F$SEND rmb 1 Send Signal to Process F$ICPT rmb 1 Set Signal Intercept F$SLEP rmb 1 Suspend Process F$SSPD rmb 1 Suspend Process F$ID rmb 1 Return Process ID F$SPRI rmb 1 Set Process Priority F$SSWI rmb 1 Set Software Interrupt F$PERR rmb 1 Print Error F$PNAM rmb 1 Parse Pathlist Name F$CNAM rmb 1 Compare Two Names F$SBIT rmb 1 Search Bit Map F$ABIT rmb 1 Allocate in Bit Map F$DBIT rmb 1 Deallocate in Bit Map F$TIME rmb 1 Get Current Time F$STIM rmb 1 Set Current Time F$CRC rmb 1 Generate CRC ORG $28 Beginning of System Reserved Calls F$SRQM rmb 1 System Memory Request F$SRTM rmb 1 System Memory Return F$ R MtIRQ rmb 1 Enter IRQ Polling Table F$IOQU rmb 1 Enter I/O Queue F$APRC rmb 1 Enter Active Process Queue F$NPRC rmb 1 Start Next Process F$VMOD rmb 1 Validate Module F$F64 rmb 1 Find Process/Path Descriptor F$A64 rmb 1 Allocate Process/Path Descriptor F$R64  ************************************************************ * * * (C) 1981 Microware Systems Corporation * * * **********rmb 1 Return Process/Path Descriptor F$SSVC rmb 1 Service Request Table Initialization F$IODL rmb 1 Delete I/O Module F$LAST equ . ORG $80 I$ATCH rmb 1 Attach I/O Device I$DTCH rmb 1 Detach I/O Device I$DUP rmb 1 Duplicate Path I$CREA rmb 1 Create New F************************************************** FCC /(C)1981Microware/ ile I$OPEN rmb 1 Open Existing File I$MDIR rmb 1 Make Directory File I$CDIR rmb 1 Change Default Directory I$DLET rmb 1 Delete File I$SEEK rmb 1 Change Current Position I$READ rmb 1 Read Data I$WRIT rmb 1 Write Data I$RDLN rmb 1 Read Line of ASCII Data I$W R -w.RLN rmb 1 Write Line of ASCII Data I$GSTT rmb 1 Get Path Status I$SSTT rmb 1 Set Path Status I$CLOS rmb 1 Close Path ***** * * Signal Codes * ORG 0 S$KILL rmb 1 Non-Interceptable Abort S$WAKE rmb 1 Wake-up Sleeping Process S$ABT rmb 1 Keyboard Abort S$ * * OS-9 System Definition File Included * opt -l TTL OS-9 System Symbolic Definitions * * System Service Request Code Definitions * ORG 0 F$LINK rmb 1 Link to Module F$LOAD rmb 1 Load Module from File F$UNLK rmb 1 Unlink Module F$FORK rmb 1 StartINTR rmb 1 Keyboard Interrupt ***** * * Status Codes for GetStat/PutStat * ORG 0 SS.OPT rmb 1 Read/Write PD Options SS.RDY rmb 1 Check for Device Ready SS.SIZ rmb 1 Read/Write File Size SS.RST rmb 1 Device Restore SS.WTK rmb 1 Device Write Track SS.PO     S rmb 1 Get File Current Position SS.EOF rmb 1 Test for End of File SS.LNK rmb 1 Link to Status routines SS.ULK rmb 1 Unlink Status routines SS.FEE rmb 1 issue form feed SS.FRZ rmb 1 Freeze DD. information SS.SPT rmb 1 Set DD.TKS to given value TTL DirRevision Level M$PRTY rmb 1 ID Parity M$IDSZ equ . Module ID Size * * Module Type Dependent Offsets * * System, File Manager, Device Driver, Program Module M$EXEC rmb 2 Execution Entry Offset * Device Driver, Program Module M$STAK rmb 2 Stack Requirement *ect Page page ***** * * Direct Page Variables * * Permanent Storage Used by OS-9 Located * in absolute Page 0. ORG $20 Reserve First 32 Bytes D.FMBM rmb 4 Free Memory Bit Map Pointers D.MLIM rmb 2 Memory Limit D.MODD rmb 4 Module Directory D.BASE rm Device Driver, Device Descriptor Module M$MODE rmb 1 Device Driver Mode Capabilities * Device Descriptor Module ORG M$IDSZ M$FMGR rmb 2 File Manager Name Offset M$PDEV rmb 2 Device Driver Name Offset rmb 1 M$Mode (defined above) M$PORT rmb 3 Port Addresb 2 ROM Base Address D.SWI3 rmb 2 SWI3 Vector D.SWI2 rmb 2 SWI2 Vector D.FIRQ rmb 2 FIRQ Vector D.IRQ rmb 2 IRQ Vector D.SWI rmb 2 SWI Vector D.NMI rmb 2 NMI Vector D.ISVC rmb 2 Interrupt Service Entry D.POLL rmb 2 Interrupt Polling routine D.UIRQ rmb 2 Uss M$OPT rmb 1 Device Default Options M$DTYP rmb 1 Device Type * Configuration Module Entry Offsets ORG M$IDSZ MAXMEM rmb 3 Maximum Free Memory POLCNT rmb 1 Entries in Interrupt Polling Table DEVCNT rmb 1 Entries in Device Table INISTR rmb 2 Initial Moduler IRQ routine D.SIRQ rmb 2 System IRQ routine D.UREQ rmb 2 User Service Request routine D.SREQ rmb 2 System Service routine D.USVC rmb 2 User Service Request Dispatch Table D.SSVC rmb 2 System Service Request Dispatch Table D.SLIC rmb 1 Process Time Slicee Name SYSSTR rmb 2 System Device Name STDSTR rmb 2 Standard I/O Pathlist BOOTSTR rmb 2 Bootstrap Module name page ***** * * Module Field Definitions * M$ID12 equ $87CD * * Module Type / Language * * Field Masks TYPMSK equ $F0 Type Field LANMSK equ $0 Count D.PRDB rmb 2 Process Descriptor Block Address D.PROC rmb 2 Process Descriptor Address D.APRQ rmb 2 Active Process Queue D.WPRQ rmb 2 Waiting Process Queue D.SPRQ rmb 2 Sleeping Process Queue D.TIME equ . Time D.YEAR rmb 1 D.MNTH rmb 1 D.DAY rmb 1 D.F Language Field * Type VALUES DEVIC equ $F0 Device Descriptor Module DRIVR equ $E0 Physical Device Driver FLMGR equ $D0 File Manager SYSTM equ $C0 System Module DATA equ $40 Data Module MULTI equ $30 Multi-Module SBRTN equ $20 Subroutine Module PRGRM eqHOUR rmb 1 D.MIN rmb 1 D.SEC rmb 1 D.TIC rmb 1 D.TSEC rmb 1 Ticks / Second D.TSLC rmb 1 Ticks / Time-Slice D.IOML rmb 2 I/O Manager Free Memory Low Bound D.IOMH rmb 2 I/O Manager Free Memory Hi Bound D.DEVT rmb 2 Device Driver Table Address D.POLT rmb 2 Iu $10 Program Module * Language VALUES OBJCT equ 1 6809 Object Code Module ICODE equ 2 Basic09 I-code PCODE equ 3 Pascal P-code * * Module Attributes / Revision * * Field Masks ATTMSK equ $F0 Attributes Field REVMSK equ $0F Revision Level Field * AttrRQ Polling Table Address D.PDBT rmb 2 Path Descriptor Block Table Address D.BTLO rmb 2 Bootstrap Low Address D.BTHI rmb 2 Bootstrap Hi Address * Table SizeS BMAPSZ equ 32 Bit Map Size SVCTNM equ 2 Number of Service Request Tables SVCTSZ equ (256-BMAPSZibute Flags REENT equ %10000000 Re-Entrant Module * * Module Device Type * DT.SCF equ 0 Sequential Character File Type DT.RBF equ 1 Random Block File Type DT.PIP equ 2 Pipe File Type page * Process Descriptor Format DIOSIZ equ 12 Default I/O Data Le)/SVCTNM-2 Service Request Table Size TTL Structure Formats page ***** * * Module Format * * Universal Module Offsets * ORG 0 M$ID rmb 2 ID Code M$SIZE rmb 2 Module Size M$NAME rmb 2 Module Name M$TYPE rmb 1 Type / Language M$REVS rmb 1 Attributes / ngth NPATHS equ 16 Number of Process-Local Paths ORG 0 P$ID rmb 1 Process ID P$PID rmb 1 Parent's Process ID P$SID rmb 1 Sibling's Process ID P$CID rmb 1 Child's Process ID P$SP rmb 2 Process Stack ptr P$CHAP rmb 1 Process Chapter Number P$ADDR rmb 1 Use     r Memory Beginning Page Number P$PCNT rmb 1 User Address Page Count P$USER rmb 2 User Index P$PRIO rmb 1 Priority P$AGE rmb 1 Age P$STAT rmb 1 Process Status P$QUEU rmb 2 Process Queue Link (Process ptr) P$IOQP rmb 1 Process Previous I/O Queue Link P$IOQN 3 Write to File FMGSTA rmb 3 Get File Status FMSSTA rmb 3 Set File Status FMCLOS rmb 3 Close File ***** * * Device Driver Entry Offsets * ORG 0 D$INIT rmb 3 Device Initialization D$READ rmb 3 Read from Device D$WRIT rmb 3 Write to Device D$GSTA rmb 3 rmb 1 Process Next I/O Queue Link P$PMOD rmb 2 Primary Module P$SWI rmb 2 SWI Entry Point P$SWI2 rmb 2 SWI2 Entry Point P$SWI3 rmb 2 SWI3 Entry Point P$DIO rmb DIOSIZ Default I/O ptrs P$PATH rmb NPATHS I/O Path Table P$SIGN rmb 1 Signal P$SIGV rmb 2 SiGet Device Status D$PSTA rmb 3 Put Device Status D$TERM rmb 3 Device Termination page ***** * * Device Table Format * ORG 0 V$DRIV rmb 2 Device Driver module V$STAT rmb 2 Device Driver Static storage V$DESC rmb 2 Device Descriptor module V$FMGR rmb 2 Fignal Intercept Vector P$SIGD rmb 2 Signal Intercept Data Address rmb $40-. unused P$SIZE equ . Size of Process Descriptor * Process Status Flags SYSTAT equ %10000000 TSLEEP equ %01000000 TIMOUT equ %00100000 CONDEM equ %00000010 DEAD equ %00000001 pale Manager module V$USRS rmb 1 use count DEVSIZ equ . ***** * * Device Static Storage Offsets * ORG 0 V.PAGE rmb 1 Port Extended Address V.PORT rmb 2 Device 'Base' Port Address V.LPRC rmb 1 Last Active Process ID V.BUSY rmb 1 Active Process ID (0=UnBuge ***** * * OS-9 System Entry Vectors * ORG $FFE0 CLOCK rmb 2 Clock Tick routine SWI3VC rmb 2 SWI3 Handler SWI2VC rmb 2 SWI2 Handler FIRQVC rmb 2 FIRQ Handler IRQVEC rmb 2 IRQ Handler SWIVEC rmb 2 SWI Handler NMIVEC rmb 2 NMI Handler WARM rmb 2 WARM Stasy) V.WAKE rmb 1 Active PD if Driver MUST Wake-up V.USER equ . Driver Allocation Origin ***** * * Interrupt Polling Table Format * ORG 0 Q$POLL rmb 2 Absolute Polling Address Q$FLIP rmb 1 Flip (EOR) Byte ..normally Zero Q$MASK rmb 1 Polling Mask (aftert routine page ***** Path Descriptor Offsets ORG 0 PD.PD rmb 1 Path Number PD.MOD rmb 1 Mode (Read/Write/Update) PD.CNT rmb 1 Number of Open Images PD.DEV rmb 2 Device Table Entry Address PD.CPR rmb 1 Current Process PD.RGS rmb 2 Caller's Register Stackr Flip) Q$SERV rmb 2 Absolute Service routine Address Q$STAT rmb 2 Static Storage Address Q$PRTY rmb 1 Priority (Low Numbers=Top Priority) POLSIZ equ . TTL Machine Characteristics page * Register Offsets on Stack ORG 0 R$CC rmb 1 R$D equ . R$A rmb 1 PD.BUF rmb 2 Buffer Address PD.FST rmb 32-. File Manager's Storage PD.OPT equ . PD GetSts(0) Options PD.DTP rmb 1 Device Type rmb 64-. Path options PDSIZE equ . * File Access Modes READ. equ %00000001 WRITE. equ %00000010 UPDAT. equ READ.+WRITE. EXE R$B rmb 1 R$DP rmb 1 R$X rmb 2 R$Y rmb 2 R$U rmb 2 R$PC rmb 2 R$SIZE equ . * Condition Code Bits ENTIRE equ $80 Entire/Partial State FIRQM equ $40 Fast Interrupt Request Mask HALFC equ $20 Half Carry IRQM equ $10 Interrupt Request Mask NEGTIV equ $08 C. equ %00000100 PREAD. equ %00001000 PWRIT. equ %00010000 PEXEC. equ %00100000 SHARE. equ %01000000 DIR. equ %10000000 ***** * * Pathlist Special Symbols * PDELIM equ '/ Pathlist Name Separator PDIR equ '. Directory PENTIR equ '@ Entire Device pageNegative Flag ZERO equ $04 Zero Flag TWOOVR equ $02 Two's Complement Overflow Flag CARRY equ $01 Carry Bit TTL Error Codes page * System Error Codes ORG 200 E$PTHF rmb 1 Path Table Full E$IPTH rmb 1 Illegal Path Number E$POLL rmb 1 Interrupt Polling T ***** * * File Manager Entry Offsets * ORG 0 FMCREA rmb 3 Create (Open New) File FMOPEN rmb 3 Open File FMMDIR rmb 3 Make Directory FMCDIR rmb 3 Change Directory FMDLET rmb 3 Delete File FMSEEK rmb 3 Position File FMREAD rmb 3 Read from File FMWRIT rmb able Full E$MODE rmb 1 Illegal I/O Mode E$DEVO rmb 1 Device Table Overflow E$IID rmb 1 Illegal Module ID Block E$DIRF rmb 1 Module Directory Full E$MEMF rmb 1 Memory Full E$USVC rmb 1 Unknown Service Request E$MODB rmb 1 Module Busy E$BBND rmb 1 Bad Boundr     y E$EOF rmb 1 End of File E$RNAM rmb 1 Returning Non-Allocated Memory E$NES rmb 1 Non-Existing Segment (System Err) E$FNA rmb 1 File Not Accessible E$BPN rmb 1 Bad Path Name E$PNNF rmb 1 Path Name Not Found E$SLF rmb 1 Segment List Filled E$CEF rmb 1 CreatITY PD.CYL RMB 2 NUMBER OF CYLINDERS PD.SID RMB 1 NUMBER OF SURFACES PD.VFY RMB 1 0=verify disk writes PD.SCT RMB 2 Default Sectors/Track PD.T0S RMB 2 Default Sectors/Track TR00,S0 PD.ILV RMB 1 Sector Interleave Offset PD.SAS RMB 1 Segment Allocation Size ing Existing File E$IBA rmb 1 Illegal Block Address E$IBS rmb 1 Illegal Block Size E$LNEM rmb 1 Link Non-Existing Module E$SNOR rmb 1 Sector Number Out of Range E$DESP rmb 1 Deallocating Stack Memory E$IPID rmb 1 Illegal Process ID E$ISC rmb 1 Illegal Sign RMB PDSIZE-.-13 PD.ATT RMB 1 FILE ATTRIBUTES PD.FD RMB 3 FILE DESCRIPTOR PSN PD.DFD RMB 3 DIRECTORY FILE DESCRIPTOR PSN PD.DCP RMB 4 FILE DIRECTORY ENTRY PTR PD.DVT RMB 2 USER READABLE DEV TBL PTR * STATE FLAGS BUFMOD EQU 1 BUFFER MODIFIED SINBUF EQU 2 Sal Code E$NOCH rmb 1 No Children E$ISWI rmb 1 Illegal SWI Code E$KBAB rmb 1 Keyboard Abort E$PRCF rmb 1 Process Table Full E$IFKP rmb 1 Illegal Fork Parameter Area E$KMOD rmb 1 Known Module E$BCRC rmb 1 Bad Module CRC E$USP rmb 1 Unprocessed Signal PendingECTOR IN BUFFER FDBUF EQU 4 FILE DESCRIPTOR IN BUFFER EOFSEC EQU 8 END OF FILE SECTOR EOF EQU 16 END OF FILE * * DEVICE DESCRIPTOR FORMAT * ORG 0 DD.TOT RMB 3 TOTAL NUMBER OF SECTORS DD.TKS RMB 1 TRACK SIZE IN SECTORS DD.MAP RMB 2 NUMBER OF BYTES IN A E$NEMod rmb 1 Non-Executable Module rmb $F0-. reserved for future use * I/O Error Codes E$UNIT rmb 1 Unit Number out of range E$SECT rmb 1 Sector Number out of range E$WP rmb 1 Write Protect E$CRC rmb 1 Check Sum error E$RD rmb 1 Read Error E$WR rmb 1 LLOCATION BIT MAP DD.BIT RMB 2 NUMBER OF SECTORS/BIT DD.DIR RMB 3 ADDRESS OF ROOT DIRECTORY FD DD.OWN RMB 2 OWNER DD.ATT RMB 1 ATTRIBUTES DD.DSK RMB 2 DISK ID DD.FMT RMB 1 DISK FORMAT; DENSITY/SIDES DD.SPT RMB 2 Sectors/Track DD.RES RMB 2 RESERVED FOR FUTUWrite Error E$NRDY rmb 1 Device Not Ready E$SEEK rmb 1 Seek Error E$FULL rmb 1 Media Full E$BTYP rmb 1 Device/Media Type Mismatch E$BUSY rmb 1 Device Busy E$DIDC rmb 1 Device/Media ID Changed opt l RE USE DD.SIZ EQU . DEVICE DESCRIPTOR MINIMUM SIZE DD.BT RMB 3 SYSTEM BOOTSTRAP SECTOR DD.BSZ RMB 2 SIZE OF SYSTEM BOOTSTRAP DD.DAT RMB 5 CREATION DATE DD.NAM RMB 32 VOLUME NAME * * FILE DESCRIPTOR FORMAT * ORG 0 FD.ATT RMB 1 ATTRIBUTES FD.OWN RMB 2 O R   WNER FD.DAT RMB 5 DATE LAST MODIFIED FD.LNK RMB 1 LINK COUNT FD.SIZ RMB 4 FILE SIZE FD.SLE RMB 3 SEGMENT LIST EXTENSION FD.SEG EQU . BEGINNING OF SEGMENT LIST * SEGMENT LIST ENTRY FORMAT ORG 0 FDSL.A RMB 3 SEGMENT BEGINNING PHYSICAL SECTOR NUMBER FDSL.B * * Random Block File manager definitions included * opt -l ***** * * RANDOM BLOCK PATH DESCRIPTOR FORMAT * ORG PD.FST PD.SMF RMB 1 STATE FLAGS PD.CP RMB 4 CURRENT LOGICAL BYTE POSITION PD.SIZ RMB 4 FILE SIZE PD.SBL RMB 3 SEGMENT BEGINNING LSN PD.SBP RMB 2 SEGMENT SIZE FDSL.S EQU . SEGMENT LIST ENTRY SIZE FD.LS1 EQU FD.SEG+((256-FD.SEG)/FDSL.S-1)*FDSL.S FD.LS2 EQU (256/FDSL.S-1)*FDSL.S MINSEC SET 16 * * DIRECTORY ENTRY FORMAT * ORG 0 DIR.NM RMB 29 FILE NAME DIR.FD RMB 3 FILE DESCRIPTOR PHYSICAL RMB 3 SEGMENT BEGINNING PSN PD.SSZ RMB 2 SEGMENT SIZE PD.DSK RMB 2 DISK ID PD.DTB RMB 2 DRIVE TABLE PTR ORG PD.OPT RMB 1 DEVICE TYPE PD.DRV RMB 1 DRIVE NUMBER PD.STP RMB 1 STEP RATE PD.TYP RMB 1 DISK DEVICE TYPE (5" 8" OTHER) PD.DNS RMB 1 DENSITY CAPABILSECTOR NUMBER DIR.SZ EQU . DIECTORY RECORD SIZE **************** * * STATIC STORAGE * * * OVERALL DISK STATIC STORAGE * * NOTE: This does NOT reserve ANY memory for Drive Tables * Each Driver is responsible for reserving sufficient * m     emory for the appropriate number of tables. * ORG V.USER RESERVE REQUIRED V.NDRV RMB 1 NUMBER OF DRIVES DRVBEG EQU . BEGINNING OF DRIVE TABLES * * GLOBAL STORAGE FOR DISK DRIVE TABLES * EACH TABLE CONTAINS THE FIRST 'DD.SIZ' BYTES * FROM SECTOR 0, AND THEAX rmb 2 READLINE HIGH BYTE COUNT PD.MIN rmb 1 DEVICES ARE "MINE" IF CLEAR PD.STS rmb 2 Status routine moduel addr PD.STM rmb 2 reserved for Status routine ORG PD.OPT rmb 1 DEVICE TYPE PD.UPC rmb 1 CASE (0=BOTH, 1=UPPER ONLY) PD.BSO rmb 1 BACKSP (0=BSE CURRENT TRACK, STEPPING RATE, * BIT-MAP USE FLAG, AND DISK TYPE * ORG 0 RMB DD.SIZ DEVICE DESCRIPTOR, SECTOR 0 V.TRAK RMB 2 CURRENT TRACK V.BMB RMB 1 BIT-MAP USE FLAG DRVMEM EQU . opt l , 1=BSE,SP,BSE) PD.DLO rmb 1 DELETE (0=BSE OVER LINE, 1=CRLF) PD.EKO rmb 1 ECHO (0=NO ECHO) PD.ALF rmb 1 AUTOLF (0=NO AUTO LF) PD.NUL rmb 1 END OF LINE NULL COUNT PD.PAU rmb 1 PAUSE (0=NO END OF PAGE PAUSE) PD.PAG rmb 1 LINES PER PAGE PD.BSP rmb 1 BACKS R  c PACE CHARACTER PD.DEL rmb 1 DELETE LINE CHARACTER PD.EOR rmb 1 END OF RECORD CHAR (READ ONLY) PD.EOF rmb 1 END OF FILE CHAR PD.RPR rmb 1 REPRINT LINE CHAR PD.DUP rmb 1 DUP LAST LINE CHAR PD.PSC rmb 1 PAUSE CHAR PD.INT rmb 1 KBD INTR CHAR (ctl c) PD.QUT rmb * * Sequential File Manager Definitions included * opt -l ttl Sequential File Manager (SCF) Definitions pag ********** * Static storage requirements * SCF Devices must reserve this space for SCF ORG V.USER V.TYPE rmb 1 Device type or parity V.LINE 1 KBD QUIT char (ctl q) PD.BSE rmb 1 BACKSPACE ECHO CHARACTER PD.OVF rmb 1 LINE OVERFLOW CHAR (BELL) PD.PAR rmb 1 PARITY CODE PD.BAU rmb 1 ACIA BAUD RATE OPTCNT set .-PD.OPT Total user settable options PD.D2P rmb 2 OFFSET OF DEV2 NAME rmb 2 reserved for  rmb 1 lines left until end of page V.PAUS rmb 1 immediate Pause request V.DEV2 rmb 2 attached device's static V.INTR rmb 1 Interrupt char V.QUIT rmb 1 Quit char V.PCHR rmb 1 Pause char V.ERR rmb 1 Accumulated errors V.SCF EQU . total SCF manager static ovfuture use PD.ERR rmb 1 most recent I/O error status PD.TBL rmb 2 Device Table addr (copy) opt l erhead *************** * Character definitions C$NULL set 0 null character C$RPET set $01 (CTL A - SOH) REPEAT LAST INPUT LINE C$INTR set $03 (CTL C - ETX) KEYBOARD INTERRUPT C$RPRT set $04 (CTL D - EOT) REPRINT CURRENT INPUT LINE C$BELL set $07 (CTL G - /R BEL) Line overflow warning C$BSP set $08 (CTL H - BS ) BACK SPACE C$LF set $0A LINE FEED C$CR set $0D CARRIAGE RETURN C$FORM set $0C (CTL L - FF ) Form Feed C$QUIT set $11 (CTL Q - DC1) KEYBOARD ABORT C$PAUS set $17 (CTL W - ETB) PAUSE CHARACTER C$DEL set  :}Clocn8ᦄ+O Y&EW\<%8L<%2U\%(L0T& S'&JT#S\ %LS_UO_WZY~4O4ZY[HP021v?2hom55DSUW_9q * * Clock Module for Special ASM$18 (CTL X - CAN) DELETE LINE C$EOF set $1B (CTL [ - ESC) END OF FILE C$SPAC set $20 SPACE C$PERD set '. C$COMA set ', *************** * FILE DESCRIPTOR OFFSETS * ORG PD.FST PD.DV2 rmb 2 OUTPUT DEV TBL PTR PD.RAW rmb 1 READ/WRITE OR RDLIN/WRLIN MODE PD.M%4TO.$2e2ehef5T&?e4 <$2c(.54j'Z&_53&a45įA L%a&(ĞK AO_CEGIKMO0C?H0c'J540_L4瀬%2b %O_J2e T5R455 4 $     4S5&4&6&(JO_IL !0%O_+-ħ3I/K5I%;ĊJ L%+o.%#. 784=5> 'J*?($9(&K4#>0!=054 !!%=K!5!' 4!%%b_%bO_b% b0%O_2d94p dff$ l&l&ldfDV$'ۦ&"%(?b@%_5o x$9?+%SK6&#&뮨&Kħ_Ѯo_ 4P% %**54P%**5,+&$_94@h%O'p4"$ e4 %&&S2bۆ=%R%o%+%(j'% (O_/ %45(%5 *'EH,&D+' r%D+H-9%F'040404D4*&K.&7b'3%z((%il-&l,&l+(L(jb&צ**b'*& O_(0(4'+&,"0%O_S 2b54%_'$5_*&%**45 9}%b4v#BD'?+D&KDb4@ 5@D$a54#섮 d545 4'5& S9,+9%A%<(O.3Pb#b4ba..& l-&l,&l+dbn(2j9-/,+% &]&0&S9F"F_9Z&9&F_2j9_F'-+4b/5% /F%04040 4DF4Z&**9v%IF'E0)404084DF4 Z' &OP_4P*'**' **'5as с!SC(C)1981Microware$!A #;&D4 ?%?+0?$tD5 !'>?(%f(_ bYkee* B lbm1 I r|j+y5OZ &Z&#')B(D6'0!G4!H?% *O95S9bb9 ' b'&FbF2j94 _F'D 1?'& @PFF5 ;B'&oBF45F9&oBF4$ & /DH9& +D-H9 B& D( *&+/4HD/a%& ]&$_9!4& 6& !'%4&6' k$4S5('ƂY%5D4#?d?154Aʀ:%5%%K!''j#l$' 'j# l_ 4 4@d?0%Tl"!D '0D/'K$' '204 ?5 %#!?#%D03 #Z*_55@S9A$ K0&&S9$9A,$m9$9A4% !'5 Uc9?)_94p/'8!K3$'3FB!4D5愄@&@0O_45*0b愄@'%(H4I5N _%(N4$%O_e+-g$l {%v(c4m'0?%;5b#d^451+ /'?_ ;h& f#h11a1 j&$9A4 d?/%9$9AmB&%1 D Z&9%4Ao5 A%j"&ɍ4tK愦%' ?+S6'5%&# 0=4K'o42I?/o52?do%5D愮4* bD'9ma'^Z =0&Tb% Z&b"AFH_92cH'0 Z&_94  2ael-&l,&l+$&g&2c54758+:0-<94@?$_3*\&\.'Z' 1_$O C5Ā4%(K A5'HHH4ġ'S2b5.$l/C%@S+-4/%!(0O_*탬(&%l-&l,&l+ & 5+-2d94PZ& %N&'GfJ& j&oJ&5C9b* 1)Z'"#'&4$5$%94@D%lBDH&'A)0F5?%m2v4pfd&df0g ?%=&3i?(%. Z&f0i1W?0%?.$4D3?)5D'5p?2j&C9K0&'806?2|B/Ld$:J $0a cK%E+-4P/+-5P+-$('C $$'m'0M&.$.$ 5/94P%[%V(O_IK0'*G$ ?45&& % 턦JJ$lI 5_L4 _'JJ$lI0%S2b094v4 ddfe$le&ldDV$%(0&0?2d9ERROR #PAI?/&K? KI?/%''o?/%o9g\ с_"RB (C)1981Microware(kDv,x-S94 2{BB%&R&D?e/& >%7:+<- $&$+/-b3dO_?4&$1&2dho2f5?l%5ho5 hiihiDV$_5/+-$'WC9,m.'44F haiDV$5'"04$lp$2d''C9%\ %S5(K/I_L40 &'1*R#     .R#errms1 - UNCONDITIONAL ABORT 2 - KEYBOARD ABORT 3 - KEYBOARD INTERRUPT 10 -- Unrecognized Symbol 11 -- Excessive Verbage 12 -- Illegal Statement Construction 13 -- I-code Overflow 14 -- Illegal Channel Reference 15 -- Illegal Mode (Read/Write/Update) 16 -- Illegal Number 17 -- Illegal Prefix 18 -- Illegal Operand 19 -- Illegal Operator 20 -- Illegal Record Field Name 21 -- Illegal Dimension 22 -- Illegal Literal 23 -- Illegal Relational 24 -- Illegal Type Suffix 25 -- Too-Large Dimension 26 -- Too-Large Line Number 27 -- Missing Assignment Statement 28 -- Missing Path Number 29 -- Missing Comma 30 -- Missing Dimension 31 -- Missing DO Statement 32 -- Memory Full 33 -- Missing GOTO 34 -- Missing Left Parenthesis 35 -- Missing Line Reference 36 -- Missing Operand 37 -- Missing Right Parenthesis 38 -- Missing THEN statement 39 -- Missing TO 40 -- Missing Variable Reference 41 -- No Ending Quote 42 -- Too Many Subscripts 43 -- Unknown Procedure 44 -- Multiply-Defined Procedure 45 -- Divide by Zero 46 -- Operand Type Mismatch 47 -- String Stack Overflow 48 -- Unimplemented Routine 49 -- Undefined Variable 50 -- Floating Overflow 51 -- Line with Compiler Error 52 -- Value out of Range for Destination 53 -- Subroutine Stack Overflow 54 -- Subroutine Stack Underflow 55 -- Subscript out of Range 56 -- Parameter Error 57 -- System Stack Overflow 58 -- I/O Type Mismatch 59 -- I/O Numeric Input Format Bad 60 -- I/O Conversion: Number out of Range 61 -- Illegal Input Format 62 -- I/O Format Repeat Error 63 -- I/O Format Syntax Error 64 -- Illegal Path Number 65 -- Wrong Number of Subscripts 66 -- Non-Record-Type Operand 67 -- Illegal Argument 68 -- Illegal Control Structure 69 -- Unmatched Control Structure 70 -- Illegal FOR Variable 71 -- Illegal Expression Type 72 -- Illegal De R#  clarative Statement 73 -- Array Size Overflow 74 -- Undefined Line Number 75 -- Multiply-Defined Line Number 76 -- Multiply-Defined Variable 77 -- Illegal Input Variable 78 -- Seek Out of Range 79 -- Missing Data Statement 200 - PATH TABLE FULL 201 - ILLEG     AL PATH NUMBER 202 - INTERRUPT POLLING TABLE FULL 203 - ILLEGAL DEVICE 204 - DEVICE TABLE FULL 205 - ILLEGAL MODULE HEADER 206 - MODULE DIRECTORY FULL 207 - MEMORY FULL 208 - ILLEGAL SERVICE REQUEST 209 - MODULE BUSY 210 - BOUNDARY ERROR 211 - END OF FILE $94 0?%5a2e]4 & '454 d &_ &^ ' &] %4֮d115 52bn54fd0hf2anfd$d4 8D$hf/d 4mhh df'j%栮d4N%&hf/%d 212 - NOT YOUR MEMORY 213 - NON-EXISTING SEGMENT 214 - NO PERMISSION 215 - BAD PATH NAME 216 - PATH NAME NOT FOUND 217 - SEGMENT LIST FULL 218 - FILE ALREADY EXISTS 219 - ILLEGAL BLOCK ADDRESS 220 - ILLEGAL BLOCK SIZE 221 - MODULE NOT FOUND 222 - SECTOR OU44%&5 52hn460K#%&M* $& - &O_ '% ' '& #' #0 &0m*ږ 0 &5'd 4 h$f%46j4.5 52fn4 d &G &F 'E '4/ %%   1 '5 52bn4 d &G &T OF RANGE 223 - SUICIDE ATTEMPT 224 - ILLEGAL PROCESS NUMBER 225 - ILLEGAL SIGNAL CODE 226 - NO CHILDREN 227 - ILLEGAL SWI CODE 228 - KEYBOARD ABORT 229 - PROCESS TABLE FULL 230 - ILLEGAL PARAMETER AREA 231 - BACKTRACK ERROR 234 - SIGNAL ERROR 240 - UNIT F ŀ'~ 'EO ;'tD 0' &2 &, 0?d$'.C  ':O_ 2 0?d%1? && &  h5 52bn4 11 0&d LOCAL=EXTENDED=ACTUAL HEAP=ACTUAL STACK=FREE STACK=FREE HEAP=SWAP=ERROR 241 - SECTOR ERROR 242 - WRITE PROTECT 243 - CRC ERROR 244 - READ ERROR 245 - WRITE ERROR 246 - NOT READY 247 - SEEK ERROR 248 - MEDIA FULL 249 - WRONG TYPE B DH L  J >@'J"9'A$>L>L4LJJ$O_J3'00 94 dL#L2#" 6& ?%35 52dnb"*4%&2dnbJ$J%2n. }  ®b l"0 !- R45?%! "9PASCALERR4F3!?%0fP!?% &0f_5PASCAL ERROR #PCODE LOCATION=PROCEDURE #4vd$ @'& .'. a5~0$ "'2n%?%T2P.'?.@'>0 MO R$0 :OB? %" 0Ub"44*1c0(C) 1981 BY MICROWARE SYSTEMS CORPORATION - ALL RIGHTS RESERVED 52F4L423J0(0 O_ 440"  O_44@N&n 4bkd i& &g ' 4Vk = y5b52fn2z0?$O_bn?46O 402a50?%946%\5b ' ?$ .b?b 52bn9'&'GVY9'M&   % YI+  %& 90b$('K A0b7'+  7') /O_ +(*@P(*@P(90b+ ('@Pd2d3O50&2nn4`j h& &f ' 4j <  @' ʀ  45`52fn4vO_ @ '- 3?$I.cbf 4 5' ?50'?$'.b ɮd?%b b M2 _0?$ .2 ` "&edn'!& '&XI+Y)9+)9)=+=**$ )愦=**$ )愦=))90b)&+ 876:9NP$:' ','a%z" 3'3C&3'(3C&A3ˆĦP"i+'-&o A1O_P"Mk'.K'*0%89"4' @ & & 3?%2 54 'O_ 54 0?5bo 4 d &_ &^ ŀ' &] [0& $[.\ & ' ' ''1 &  'z% '%+'1& < 8O_ G5 52bn '   XI%- XI%'XI%# %'% @$ !_HHNS,3~NP P$ &  &H#HB&< O_%#0 &BD&< O_% 0 &D9R6I9EDHFLBSH4 "'d2U%41?4 4 42P5 2fn4`1f$$ N%%4O 4     m'+ $4Om& 4 DVFVj&2a94`1f!'&&%"'$)O5`2gn%(* +/ -%)($))$$M'3*(@0%Xm'/#"!$;CSCS$ ( '01!#&(m&#"!$ FVFVl%)QM+j%)9XIYI*$ $Fl%)+& 栍 栍 05 ]&09EZ'Z&9栍05 "#340&1% 2 2~ j l    45 x2a m4 f _ '4Z& 'oZ& F栞04 ;졞04 05PZ& O504 ('\(=4`1f!*&+O_%*%( *;&C%)$())$$=oo)#=aa$l($=aa$lo)"=aa$l(#=aa$l'$=aa$lo)!=aa$l("=aa$l'#=aa$l&$=aa$lo(!=aa$l'"=aa$l&#=aa$lo'!=aa$l&Z& 25@5$ 2b25@5$ 2c25@5$ 2d25@5" O22b5 5 Ʈe5552b 0&2b o 1 ^|]Z^'^YcY+ a]'% yYi'|]Z _|4/!n 0 '0& =0 ]^ZY+ a'"+"=aa$l&!=+ hdicibYIj%)&b$l'&l&& f&l%(2g((2g4`1f!'&'Ħ%)ɧ%!$) d!f"f#f$&(DVFVo) #$!'/+) 'ti)i(i'i&XIYI$#$!'* 0& Z-- )ƀ ) ̀( - ')ƀ  &(YIYIۮ d%  ^0]Z]^Ya'%cY+͞a]'%eY+a]'"졞4졞"340&1$5 44444444 M&0 TTTS0'XJ&T 졞05D졞057"350&1$5졦4 *M (&+YIYIj%)$ $Fl%)& (l%)b.O_ >"%df$c& *" cdoc ' dcfdfe\&c df$@Pe2en23 2cebgd3enCO_CA0'$M*@PlDM&0M+0XI*A9"%%0"550445@"3ˮ40&1$5&o5&5`&0& _45'o5'|5`&0&_ 4Z5%MoH5-;o65,)5"o59O94`1fO_ST-UVW;%444́ '+'-& S.&U&q UO_444W E'e&3-'W-+'-& T0%?9";-4 V='V ߁0% 9"-_Z%-O4% W -& 0$oZ&2: *U' W*%i%VT%ڦdSd0$5Z&5`2f ;n 5@M'-0/#. o5/0 &Z&_ 2?3"pX0nhhhhhhhhhhhhh hhhhhhqhhhhhhhhkhhhh ^YbOdo2dnEc db%@  2en)# =04Z&& -%"_ n @P$ k("%C@(ԥ,*/ 2_269.< k:@#.+!+_ OB_9 "-%!#&! %'dfAFV %&$ &lA&l'B_9S9' !B# #B&9!m!+ jh$i#i"i!*$ TqLq1 _ 䬡- . 1"o4db ^d5&''""~M䬡-/mAz_?PASCAL_COMPILE1?PN0ޟ@."!0?%Y=O_>ƀA>A>?% A& $94`k & VbM F ʀ 1f3^%02{1䍡4]3)D2e%k )+?$ .S T 5`2in dd c       y1! t Z& d CZ& S0 M&TTTS'DZ&2 22o}5 "  *&7>AA&>_aceg=?$.  $&&B(D*F,H"'M&<=_i3 i__&<4 =?%50Z&Hl_i]cHLZ&DB>D:F641_+?%;O_  b 5 5 w ߞ =0\][+a'%c+ [a]'% [i4 05 05 0555 {"3ˮ50&1$ d [044 J"3ˮ40&1$ 304 *栍004 栍#4 @IO_k]Z^04%"94VO_A=?%5 ^ 0= q4<$W0$'0& 4  ^54"4@3 =0O_04OZ^] =0+a&Y!'H=71+%           |ung`YRKD=6/(!4"4cD _44"4J 44"4]쨕44"4) 44"4<4E44@3A-Q ܞԞ̞ĞIG^]\{[vZqYlXgWbV]UXTSSNRIQDP?93-'!Z/ a-Gz.AO_^^,!^a- z. 0^04@_'0-9/A- Z/a-z/^- 000 ^&0W^XI\^XI싃Ȉ\Ȉ.0i4\XIXIXI0045`&0& _T$O0\XI>\& 5I5G5^5]5\5[5Z5Y5X5W5V5U5T5S5R 5Q y04 q栦4 i5 a4Z& V OZY^L]^c+ Ya]'Dl&Yi %__Y'M' 'J / & $ & &  & < \Ȉ,\gO_><0-Y9.SȊO_ȊȈP[fy--8C-L '.A{--- !'-39?EKQW]ciov}&.6>FNV^chmrw|42{0Ȍd4e2b^d/ 4E4FȊ: s\d/ 4E4+O_: YO_:^\Ȉ^-A0Ȍ: .XI4XIXIO( 4E4O_ :^Ȉ,^ >I'&O_8><4@a88d. 0ȋ0&'&'4E4| 4 ")07>ELSZahou1" uk+p_imckk_pst_&Ag 'Go_imo=0 cp& p rp&pr vgs$Y'st ppH$&t*?gpo_imo=0 +ܞcp&p慞 +"e rp&cpr@&''88& 0ȌO: '0Ȋ4 4KȊ40Ȍ484E49Ȋ::&%<4@=& >4@ >.&9<4@.& 1>4@_)& >4@ >D<&84@l>=& <4@V >& <4@C <>&%4@0>+er =0vu& ]y ]yOx{_p'& l4`xz=?%m=?%5`ru&[ lp[v*pca]"rc*pcr*vpccqpq tpYv*pc熞e Za]"rc*per熞c =& <4@  <(&i4@*&A4@$&4@J*' T%4@ 4@)' T$4@R.&  I><r{&.4@$&4@}' T%4@{ 4@t*&><4@^*+& -& =& /& 6r*vpqceq cqpq熞erq_pug a]9    :      4 "    %" # $ +' 4 4@30|4 4ԣ/'E444"4{'O_4)&  [& ]& ,& ;& ^'@&&& v!& i#& \$&O_:4@0-9/DA- F/:a-f/24E4 M4@_'0-=9/A-5F/a--f.)4:XI%XI%XI% XI%(45: > 0 5 25!     @5 2bn **** EOF ENCOUNTERED PREMATURELY 4 4@30|4ہ 4 T$ 04!44"4S"4o'' E4 &4\ &0\044\\ \&'&,$&2E4d$ #./ hI} Qr5 25@5 2jn5")XI0ni N NN N Zi iiiuuuiiu@'& &4E4O_o-  05 25@5 2bn 4 4@30s4N 40XG45`0&0쨓XI4XIXI0T&G gTV40X45`%"&0&e4E4 TToS T T---?---?ocTocTcccTcccTccT -.Z   4E429G I K M4E49G I K4E4b9EG9EG/9PASCAndST&S'VG VGGO_ 5 25@5 2dn 4 4@304| 4I'=40045`% "0& II I I I5 25@5 2fn 4 4@30|4 4쨓O_\.0쨑XI4XIXI^^'j40045`%:"E0& R^('DZ&&' g4E4S^^ ^^ ^ ^ 쨑\/ l'Ah4E4('쨟 ''쨣 '쨥 '쨡 '쨧 쨩^^5 25@5 2$n 4 4@30~4 4O_ K'3&   K& O_   3PCOD?\+P1c0&W PASCALCO '5 25@5 2hn 4" 4@30~4א 4OG4E4OH4E45 25@5 2dn 4! 4@304S 400H/ 04ҹO_5 25@5 2dn 4# 4@304 4G/'>4E4j 5 25@5 2dn3ѐaF MDON+Α}MYFO1Б}А}&>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>***Compiler ERROR 4& 4@304֙ 40MXI싮E-M4M1&% =^M1',%0444"4.M4 4"4"4ѲthK&M ήMH'L&EK/-K3ѐaFёM0ёM0DM0M0&>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> $ uK &K-,W6sj DMevK-,.MH? ;N/&1D    Mk& znI-".Mp&5 4 9I & 3F'FԁaF1ԑ}DD1D=|ǁґ}Ұ@1Ҕ1 @1aF=011 =/1D1 =/1aF=011 =/1D1 =/1aF=011 = 1D1 = 1aF=011 =:1> 0& q .- \Iq EgvI & <S 0& ,C .- УI, "1I-.2   Mw'& &s'& {&EG/ DI&  20& }D1 =:1ÚaF=01Ñ1 =:1DÒ1 =:1ŚaF=01ő1 @ 1DŒ1 @ 1@1ذy62YF62ԐYFO6211D1@-1ذy6"     eF/ҚaF@S1ґ1 D @]1Ғ1 aF#DѰ1}=|$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3 =5ǘaFDeF2"NOܑ"NxaF#DܘaF2"N= ܑDeF-2"Nx=a\F2"N2"Nx.6 +aF#D2"N@SF =|=5D2"N@SFs62eFO"N= aF#DaO"Nx= PFڑDeF#62eFO"N> Page OS-9 Pascal - release 1.c.1 STMT PLOC LEV -----+------+--+-----------------O"NxܑڑD=|=5D}2"N@ SFo6>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3&>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>PAGETITLESUBTITLE3YF61F0@1eFO"BqyyQF q=,1D#aFq= 1ڑDq=^1֚aFD6daFDq1 aF#D̐UF@1̐1 }̰1ԑ}ԁԁ֗YF0eF>>>3 $>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>O"By1.q1ԑ}ԁԁ֗YF0aF#D}$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3 0 = P=,P1F0 D=*TF\5=ad=zdF .6 +54=LPFh0 =+PF =|0 DN=-PF =|0 D:=0\=9dF*}=0\=9dF60.}0 DD4=EPFC0 =0\=9dF*}=0\=9dF60.}0 D>>> **** *SEE: D4=HPF@0 =0\=9dF*}=0\=9dF60.}0 DD:4=SPF@0 =0\=9dF*}=0\=9dF60.}0 DD4=DPF+0 =+PF =|0 D=-PF=|0 D4=TPF+0 =+PF =|0 D=-PF=|0 D4=NP>>3]FO"BJ6$}D}ő}O"BJхO"Bʅ&>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>F+0 =+PF =|0 D=-PF=|0 DW4=(PFO0 =+PF =|0 D=-PF=|0 F  D  = P1F0 D=,T1F\$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3FёyMYF(yQFM1yҐJDyDu ֒J҅JyJ=JхFёeF Jy"N"NxaF#DFёJy"N+=|Jy9>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>#     3 &>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>J"Nx DJ"NJ"Nx!؅D6i00DQF֒QF}?70D`QFM֒QF8J"Nx.FJ"NJ"Nx DJ"NJ"Nx!?70D 6j0w 0w F 0w 0҅9$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3 Ѕ9>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3АQѐQF=5 D220220QQ5 9>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3҅9">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3QF=5 DАUѐUFyyQFyD=5 D'yy05 DyyQyQyQ5 Dz'yy05 Di'yy0'yy054'yy0yyQ5 D0=5 D)'yy05 DE`gxD3yQF'y05 DyQF'>39>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>y05 D=5 D=5 9>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3ѐUFy UFy 0yQyQF}xFvO7}ߐ}}}}}}y}}O1@1yQF @1D @1Ҙ1@&116+0yUFy0&>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3=5 ѐUFyQF'y0F=5 &>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*ERROR, FORWARD PROCEDURE FUNCTION IS UNDEFINED321JJJԸ&>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>31F$w 1F0Dw F09 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3ё F0w 0 F`QFсOB yUF }D21qJJ0QFB21q?7J JJ ԅJօJ܅J0 ܑ0D0w F0w 0UFJօ}QF0D0>>3ѐ F620w 0 FQF8QFD 21JJܸJ?70DEQ`FQFD0QF20y J7֐UFҁQF֒QFyDgҁQFZ֒QFQ21JyJ7yJ"Nx.FJ"N>DlQF20؁QF00yQFv21qqJy J'y0F M0JJJ761QF0D0w 220J27yUF6k0Dy ԐUFyD|21Jw 220'0FM0qJ҅J2761Q>>>$     F0D0w 220J27yUF6k0ԐUF:qyQF-yUF$yQF6m0DyyYF6f0ԅw F 0w 0DА9$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 30mQF0my imڐUFmUFEm@WF8myQmyQFM0mJmmmyimyeF7'm0F6m0mUF mJ mڅmJmD6n0$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3 F0w 0 F F w 0D벟QF21օqJ撅J0QF=|ƈ20=|ځQF0ڐQF521q?7J JJ օJJ}D&y UFy yQF6l0D Jy 0D0D5QF!0>  iF0w i0QFW0q첚QF0DQF q0D021qJԅJJw 220ޅҐUF;yeF+ҁQF 6m0DҁQFM0J҅D6q0UhlF0lFqQF0DQF0D06*>3qw F0w 0QF-QFD21qu?7uJ uJuJ uJԅuJ0 0D0F0w 00UhlF0lFzQF0D0w  220UFCqyQyQFM>>QF0D0w 220qyJօyUF;y220yUFyyQyyQFM0ޅԐQFDQF}0aF&}OB q搅JJD6!0w  2021qJOB yJԅ܅>0uJ uJmuymiDQF-0w  F0w 0DD͐ҐUFquyuJԅD6!QF}21quJuJuJq0QF2?7q0?27u}21qu@7uJ uJ>>J}6'QF0D0}DQF06*QF0D0w 220ԐUFRyYF 6s0D?ԁQF 6r0D-ԁQF M0D220aMYFM021qJԅ6 JDiQFc06*QF0D0w 220ԐUFy]F 6l0>>uJ uJuJuJm6*QF0D=?70 QF0D0QF 00D0w 0D0w 0m6*QF0D0qmqmqw  F!w 220'u0F6o021quJuJޅu>QFD21qJJԅօw F 0w 0DАyQFёD yy9$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>J27uJڐUFquyQFM0uyDqUhlF0lFkQF0D0QF0D0w "20mYFmqܐUFyJޅmD䲙QF'0w  F0w  0D0UhlFi0lF>3QFgOB y=5ҐU4FyUFyD =5M0D4F 21JJ=yJ҅0D0o %0F0o %00UhlF0lFSQF0D0$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>iJ}Dѐ9">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3UF0o %0QF21?7J JJ JJ0QQF0D0o % 2200 J ԅJ27QF'0o %F0o %0D0D_$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>%     3UF0o %0QF21?7J JJ J0QQF0D0o % 2200 J ؅ԐUF0o %"0D0D]QF0DqQFC21q?7J JJ JJԅJ0 q0o %F0o %20U54F04FQF0QF20؁QF=hۑy qڐUFܐQFyQF6y0D>@6)6)1@*6$6$111y}QF$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>yq}ԐUF$qJ څJޅJ܅yDJօ0D0o %"F0o %"0D0QF(0o %`F0o %0DQF+0w o %F0w o %0D0̗}i֐UF"qy>*THE FOLLOWING TYPE-ID WAS ASSUMED TO BE FORWARD DECLARED BUT WAS NOT FOUND: J҅JyD҅D ѐi9">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3QFD21?7J JJ҅JJ JJ0 0D0o % iF0o %0 i0UhlF0lFhQF0D0o % i220ҐUF֐UFyQyQFM0J օJ}>3 qԐ}=5=5۲QFnOB y20 uސUFVuyQFuxѨQuyQ5D'uyQFuxѦQuyQ5D=54FM04FѨQF2ޮ1D2ޮ1uqu?7uJ uJuJ MaF ܑ}DM0uJ܅2?7qq>UF?yQF6@S@ S@SFM021҅JmiyDzQF'0o %F0o %0D0U iFxUF76u0@6)6)1@E6$6$111y}QF$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>ܘuJ=uJ=uJuJuJѨQF uJDuJu0 D'2?7qquy}0DF0MaF ܑ}DM02@7qqܘqށqq؁aF }D6"0aFA>>>INPUT OUTPUT SYSERR *THE FOLLOWING TYPE-ID WAS ASSUMED TO BE FORWARD DECLARED BUT WAS NOT FOUND: }OB q4F uuyDu̐uJuJD6!0ѨQF& 20!4FuJuuJu҅D 20!4FuJuuJu҅QF}0QF\4F6z020uQF0uy quJ u܅uܐUFuyF 6x0uJ 0D0>>>3!w F0o %w 0QFlF6w00`F0o %0`F?QF00QFL21q?7J JJ JօJJJJ0 0D0o %2F0o %20UF~DQF>o % 0D 4F6{0QF0D04FM0Q?OS?OSFy4F M0D>00QFI21q?7J JJ JԅJJJJ0 0o %F0o %20UFQF0QFX20؁QF0y ڐUFyF6x0ԐUFJ څyDJօ0D0o %"F>0o %0D0@@1Fu1}u}u}&>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>&     *ERROR* 3)m6 immYFmiM{ ҐYFґDҘҒ0$M0"0"ґeF?]F#ؘ{ FԑYF"D0"aF#D&>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3"&>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3*ѐUFyD^сQFD*сQFDсQFDyQFDDA(y0*D5D0D+D&M0DE> &>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3#&>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3+UFyDD)D$DDAFE>D3$&>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>D 6wԁy0'D,ғUF6lԐ0'D6oԁy0'D@ғUF6x0'D6{y0'D6<0DE>:DDE}$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3%yQyQF}yYFђu mu Mu MАaFБMБMD MMԐaF MDҐaF MD؁QFON+O֑N+D.O1O 1}O1O 1ON+O֑N+yeF/UF%O1O 1O1>>>3,yUF'yyyDD(D#DDAFEyDyeF$ғUF 6|Ԑ0'D6yy0'DcyQF$ғUF 6pԐ0'D6syy0'D2yғUF6hy0'D6kyyy0'DPyUF6<0D$ғUFM>O 1}9>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>0'DMyy0'D6<0DE#&>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3'9>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3-UFDu'0FmimmYFmi1mQFmimUF mJmmimmJ0$6@0"ށyMMaFMM}ށ0#ށy}D6<0DāDeF)QFM0'D 6O>3(mimmYFmi0$6C0"]FJ"Nx.0"YF"D&>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>0'D-QFM0'DM0'DAUFQF 6#0'D 6J0'D6<0DE>dD6<0DE>B}}}$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>'     3.uUFpuUFfuUF\uyeFQu220АQFu au YF0D,(u0*QF 6*0'D(u0*QF MҐ0'9 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>30ѐUFy UFy 00yUyUF= 1yDlҘ1@1yQF @ 1D@1@1y1 @$1y1 @,1y y1 =,1y 01DҘ1@41y1 @E1y y1 =,1y 01DҘ1yQF @M1D @Z>3/UFQF6My0'D6My0'QF%6q0'6=0'6p0'D.6i0'6=0'6h0'QF ܠD"yquyQuyQF6 6Mܐ0'QF6q0'D6i>1yQF@h1y1 1Df@t1y1 @1y1 @1y1 yQF@11D@1xF@11ԑ}ԁԁ֗YF0DDAFE,,yUFy00&>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>0'&>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> VARIABLE, ACTUAL, FORMAL, LEV=, ADDR=, SIZE=, FIELD, OFFSET=, SIZE=, FUNCTION, , PROCEDURE, , STANDARD , DECLARED, LEV=, NUMBER=, #BYTESP=, FORMAL, ACTUAL, EXTERNAL31ѐUFyDyQFсQF@11DcсQF@ 11DMсQF@11D7сQF@11D!сQF@11D @211ԑ}ԁԁ֗YF0DCсQF@<11D@E1yy1 1ԑ}ԁԁ֗YF0D@X1y>35y }}yD,yQF}y}y}DPyeFMy0'D/yQF6uy0'D6myy0'}}DOB yQF}y}yy}D/QFMy0'D 6uy0'}y}DpyQF M0}DC>>>1 @h1y1 1ԑ}ԁԁ֗YF0DсQF@m1@s1yUFyy1 @1D@1@11ԑ}ԁԁ֗YF0DA@11ԑ}ԁԁ֗YF0D@11ԑ}ԁԁ֗YF0ҐUF= 1@1y>>yQF M0DyUm!UFM0}y}y}DE9w 049">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>yQF$y1 @1y1 =]11DcyQF@11DJyQF6yUF@1yy1 =]11D @11D @11ԑ}ԁԁ֗YF0yyQFyDD= 1@Ȓ1}y01}D@˚11ԑ>>>34 w F6;0 w 0 F=QòQFQFqDq2O7 ڐUFyUFM00-0w 032O7 0+UFJyUF6q0D7'0F)(0*D6.0'DDAFEڐUFq'uy0Fu>}ԁԁ֗YF0}y00}DсQF%@֚11ԑ}ԁԁ֗YF0DA@ᘘ11ԑ}ԁԁ֗YF0}= 1y01}D91ԑ}ԁԁ֗YF0DAFE>I+i%d&>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>yUFuy220DGquyUF uyyDuyyQuyyQFM0uyuyUF/uyyquyyQuyyQFM0Dq6$QFx0w 220QFLYF:21quJuJuJyu}>> CHARACTER INTEGER REAL NIL PARAMETER ADDRESS STANDARD BOOLEAN SCALAR FROM 0 TO SUBRANGE FROM TO NIL POINTER TO BYTE UNKNOWN STRUCTURE SET ARRAY [..CHAR]0..SCALAR]UNKNOWN]OF RECORD OF TEXT FILE FILE OFD 6&0qD M0qD uy}ĀF"uQFaYF0D Mސ0'YFQF 6"0'D6K0'D!aFQF 6#0'D 6J0'DM0}}}UF 6B␐0'D6N0'UFQF0DQF0D0D^QFUFyU>(     F M0}0QFxUFjy20 ܐQF M0}DLquy }D(uy}D)uy}D6<0DE>0D0DUFquyQF.0+uy}ĀF6/0'}}}DhuyQFWQFqDq>F0D0o  03UFUF M0D0+616%0'DmQF 610'DmQF 616$0'D 616-0'DL E MMr$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>D}D$}D6<0DE>uy}DM00w F0w 0D9">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3<=5QF0o  07=hܐUFyQFqyUFM0208DQF2O7 =5D20:QFmQF6}0=hDUF0o  0QF0o  07D=hD208D208lF0-O27 4F0+D>37QF 200D0}w 059 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>0-ܐUF_yeFQ'0F 610'D6'0F 610'D'0F 610'DM0D6t0UhlF0o  07lFWQF0D0DmQF6}0D208mQFO27 4F0+D0-610'}$>>>>>>>>>>>>>>>>>>>>>>>>>>38ԁJJJyJy9>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3=m=5QF0o  03=hҐUFyQFqyUFM0208DQF2O7 =5D20:QFՖQF6}0=hDUF0o  0QF0o  03D=hD208D208lF&ҐUFyeF >>>39QF?0o  07QF0D0UFyUF6=00-DѐUFMy0'D0&>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>0+D0-QF20o  03UFUF00+=5D=5ҁQF14F6M0'O27 4F0+D0-610'DJҁQFk4F6M0'QF+0o  03UUF00+D 6M60'O27 4F0+D0-610'DҁQF34F >>3:0-̒}6q0'ҁJJJ̅JmYFi&>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>6M0'O27 4F0+D0-610'DҁQF14F6M0'O27 4F0+D0-610'DcҐUF]yQF M0DK'0F>y4F6Mِ0'6Mِ0'O27 4F0+D0-610'D6t0QF6|00o  03DᲜUhlF0o  >3;o  07270-QmQFM0UFyUF6=0Q5m6 Q4FM0mDQF3=|0o  03=|'0F0-D6d0D6M0'mimmYFmi0$6@0"qquueF'2u"N2u"Nxuu>03lFڲQF0D0DmQF6}0D208՜QFO27 4F0+D0-610'}$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>aF u#qD2"N= 21u201mQFmimUF mJmmimumJޘMMaFMM}ށ0#ޘ}mQF6#im6 QF66i61m0'D4F61m0'D 61m0'DβQ>>>3>M0o  07UFyQF yyD6t0QF0D0o  03UF$yUF6t0D'ԁ0F6t0QF0D0o  07UF2yQF 'y0'y0F6t0D6t0$>>>>>>>>>>>>>>>>>>>>>>>>>>>>)     3?M0o  07UFyQF yyD6t0QF0D0o  07UF2yQF 'y0'y0F6t0D6t0QF0D0o  03UF$yUF6t0D'ԁ0F6t0$>>>>>>>>>>>>>>>>>>>>>>>>>>>>0F M0Dy6 UFM00-61ҡ0'Dw 03UFUF M0D0+61ҡ0'Dw 07UFQF0-DM0QF0D0w 07UFQF0-DM0QF0D0w 07UF>>>3@o  070-UF=qyQF(yUFyyyyQFyyDM0QF0o  220ܑ֐QF M0DyUF M0DoyUFf'0ԁQF M0DO'yy 0F;yԐUF%qyQFyyDDyD>QF0-DM0QF0D0w 07UFQF0-DM0QF0D0w 07UFQF0-DM0QF0D0w 07UFQF0-DM0616)0'D8w 03UFayQF7QF0->yD6t0DN6Mސ0'610'$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>DM0QF0D0w 03D M0'UF0D0+616.0'Dw 07UFQF0-DM0QF0D0w 03UFUF0D0+QF0D0w 03UFUF0D0+QF0D>>3Aqmqyyy UFbxyYFSy yQF 6'0'D>>0w 03UFUF0D0+616/0'Dw 07UF&yQFQFM00-D6=0QF0D0w 03UFUF0D0+61640'DL E nnnntztz1nnnnmmm 20'y y 0FM00o  F0o  0Do  032O7 UFؐQFԐUFy ֐UFyQFSyeF90+ĀF28 0.'0QF 0'}D0-6Hy0'DQF0-DM0'ց0FM0>>>nrn҈`FQF0D0DVҘeF QF0D0w 030+DځUF4QF 0'D QF 0'D M0}DρUF4QF 0'D QF 0'D M0}DUFUFM0ғQF 0'D0'>DؐQԐUFyUFw}iQF0D0ؐQFԐUF6~0mqxyeF:yeF61y0'DyQF 61650'D 61670'D:yyQF60y0'D60yy0'my }$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}DWUFUF00'}D1UFy]F6t0(0*D6.0'DDAFE}DUFUF06+0'}DUFyUFM0җQF!yQF 6 0'D6"0'DyQF 6!0'D6#0'>>36yQF vyyQF҈`FQF0D0D0;D0D0?D0@Dw 07UFyQF0+610'DM0Dww 07UFyQF0-610'DM0D@09yQFyUFM061Ҙ0'D>>>>>D]09D'610'D,610'D610'D E}DQFL0w 07QF0D0UF!yUF6=0}}0+D6=0D6)0'09QFM0610'}D6(0'09616"0'}Dl6'0'>>>w 07UF&yQFQFM00-D6=0QF0D0w 03UF*0+QF 0'}UFM0610'Dsw 070-UFyUF6=0QF0D0w 03UFAyUF M0D-'y>09yQFyUFM0616(0'}D-6)0'09QFM061600'}D6(0'QF0D0w 03UFUF0D0+QF0D0w 03UFUF0D0+QF0D0w 03U>>>*     FUF0D0+61610'}D56(0'=|QF0D0w 03=|UFB'0F6d0D/QF y0-6My0'61620'}D6)0'QF0D0w 03UF/'0F6d0D0-6My0'61>3B=5Q`FQ50w @0C4FQQF }DQQF?J"Nx.FJ"NJ"Nx DJ"NJ"Nx!D50+QF 0'DQF 0'D M0}QF0+2O7 0w @0C0+ڐUUFD>>630'}DN6(0'61680'}D4E[Cjjs+wҘeҡ]ҤUFQF0D0D0A9">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>QQF 0'DmځQF0'DQF 0'}ځQQF 0'D&yQ'ځ0F 0'D M0}D)ځQQF 0'DnځQF0'DQF 0'}ځQQF 0'D'yQ'ځ0F >3D )F6:0w  )0} )FDp.200yQF,w 06}UFyQF y}DSyQFquy }}OuJ7D+w 05UFquyQF uy}D}}O?70D}}O?70D̸QF >0'D M0}DځQQF 0'D M0}DwځQQF 0'D M0}DPځQQF 0'D M0}D)E>g~D}D 9 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}D (0}}O?70D0w 03QF0D0D~0w 0D0+0'UFUF M0}DJ0s =521quJu6 uJQF}}0Dw 03UFWyUF M0}D?'y0F+Q>33w 0BQFUFyeF0+D0-2O7 ܞQF7'0F)(0*D6.0'DDAFE0w 0BUFyeF0+D0-ڐUUF~ܞQF=yQF%'ځy0F 0'D M0}D M0}D;ځUF.ځQF>FaMYF6'0Dw ҁs ҁ61QF0w 03UF6k0Dh'y0F M0DPaMYF6'0D8aF6f0queFw s uaF#DDV0+'0F)(0*D6.0'DDAFE子>>0'DQF 0'}'ځ0FyqyDځQFDځQFDځQFDD{܈FM0Dg܈ FM0DS'0܈FM0D8܈FM0D$M0DE>gޔUޓUFoDO6`0'D[6d>0'4F 0'D=5J}DM0U54F04F|QF0D04F3w ҈F$26"1Jw ҇ ԑ0)0'}D26"1Jw ҇ ԑ}D E 3Ju̲w F0w  )0DB9 >>>>>>>>>>>>>>>>>>>>>>>>>>>>0'DM6X0'D@6\0'D36T0'D&6P0'D E>DޔQFVD6DLM0'D@D=M0'D1M0'D%M0'D E>DgޓQFaDE6c0'DR6g0'DG6[0'D<6_0'D16W0'D&6S>>>3Cw  0DQF0+2O7 0w  0D0+ڐUUFDyځQQF 0'DmځQF0'DQF 0'}ځQQF 0'D&yQ'ځ0F 0'D M0}DQF 0'}ځQF 0'ځQ>>0'D EDM0}}9 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>QF 0'D M0}DځQQF 0'D M0}DځQQF 0'D M0}D{ځQQF 0'D M0}DTځQQF 0'D M0}D-E>|YD}D9 >>>>>>>>>>>>3Eo 05QFUFUyYF0-2O7 0o 032O7 UFyeF0+D0-ڐUUF'0QF 0'}'ځ0FdyDBĀF28 0.20,D?20,D720,D/6Gy0'D!M0DE+     DM0D630&>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>ymM20%yD؁UF"O1O 1O1O 1}DM06'QF0D0$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3FQF=5OB yUFבDOB yҐU4FjyQFW=5QFD0$1mmJ҅JmMmi6D0'DM0DyD4FM00D0$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3ImM}o  02 IF0 IFղQF10o  02 IF0 IFDɁ}6)QFG0o 030+UFUFM00$6FҁmM0'D650$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3Go @030+UFUFM00$mM6F0'}6.QF0D640o 02}6(QFh0$mM6D0'ԁmM20%}0o 02}ҁmM20%DԁmM>3JmMo 030+UFUFM00$mM6F0'}6+QF0D660o 02}0$6DցmM0'ҁmM20%$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>20%$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3KqQFp0mqy yQF!ymUFM0yyDM0ڐUFyY'0FM00D0o 80QFP0o 803UF0yUF M0D'ځ0F 0+20,DM0D630o >3Ho 030+qސqqڐUFMyUځQF M0D3'ځ0F'(0*D6.0'DDAFE0$mM6D0'}6*QF0D0q F6/QFuސUF M0D6q0D>o 220>800F0o 03UFyUF M0D'ځ0F0+'ځ0F*(0*D6.0'DDAFE>̒}6q0'O27 0+'0F)(0*D6.0'DDAFE6u0'mYFi6,QF >>ڐUF '0Fqqܲ61QF30o 220ڐUF'0F M0DquuaF6f0uququueFqUF5quyu]FuyuQFM0DuyqD21quuJu؅uJmMސQF quqD܅Q>>>6e0'D6]0'DM0D670o 00+0$mMq6F0'mMq}6+QF0D660o 02}O27 0+'0F*(0*D6.0'DDAFE>6u0'6,QF 6a0'D6Y0'0+>>>FuquuaF u#qDYDM0UhlF0lFQF0D0uސaFmMqo  02 IF21օ0$JmM6D0'UhlF0lF}qԁmM20%MaF^uސYF+6A0'>0$mMq6F0'O27 0+6,QF!yQF 6!0'D6#0'DyQF 6 0'D6"0'20,0$6DmM0'qmM20%6qmM20%}$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>0$6FuށmM0'D M0'UF6M萐0'0'0$ΒQF 6E0'D 6E0'6>0"mM0#qUF`quyYF*uސYF uԒ0#D0#uqqDuyԒ0#uyquqqDquԒ20%q֐UF">>>3LQF 200D0o 05UFyQFaF}ԑOB ؁yJOB yQF#OB JJJD60-̒}6q0'OB JJ̅mYFiD6!0DM0Uhl>,     F0lF}6+QF0D660o 02}}}$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LABEL *WARNING, EXTERNAL NOT A FILE*WARNING, EXTERNAL NOT DEFINED----SYMBOL TABLE INFORMATION----32QFlOB y֐UF@yQF-xFM0JmMJ=DDyDM00QF0D0w F 0w 0 IFUF0D<200yQF w 06D0EDw  02 IF岝UhlF>>>321=|Ő}}?M1JQF00QF00QF00QF00@F}00 }DٲUQu#QF 0w %0 I1Qu#QFt=|ŁqQu#QF6-0"DcQF}0D }0w %>>>0lFɲ6'QF0D0D0FD|0GDv0HDp0JDj0IDd0KD^0LDX&E'Z̲ F 0w 09 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>0&u#UF 0w %0u#Q 1FŁ}}ΐUF 6>0"ΐQF}O27O1OB y019>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3&qq}}}ޗqm!QF 630'Dm!q63uy0'F 6,ڐ0'mqqUFhm!QF'qUFySFD DyqDyquy }}}uy}uy}0/yqDqw  02 IF岝U>>>>3M2@7QF0UF0D2?70!F0QFN0QF.21q?7J}0F0D0UFUF00UF0D0D0qqqw 280UF0|=|O2709 >>>>>>>>>>>>>>>>>>>>>>>>hlF0lFȲ6'QF0D0UF2qސuyxFuyuyy20%uyqDOB yqUF?quxF%M0q@u1uyu1 u1uyqDmqUF"Myy0'610'yqDm!UF8m!yڒeF6$>MAINPROG0'D6Iڐ0'MiD0"6-0"MiUFq?u7=|ƈ20=|ҐUFEy UF9y yUF*q@u1uޘu1@u1u1DDD'q@(u1uޘu1@0"ΐQFii>>3N?1ҒJJ?1ҕJJ?1ґJJ?1ґJJ?1JҒJ?1ґJJ?1JҠMJ$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>ii֐UFyyquyQFduyMYF ΐUF0"DuyqueF*uyJuy"Nx.0"uaF#DM0"yDΐUF 0"ΐQF}Fn}1ԑ}ԁԁ֗YF0@I6 6 11ԑ}ԁԁ֗YF0OB y001>>>3PƑ"B@7ƒ"B@ 7Ɠ"B@7Ɣ"B@7ƕ"B@$7Ɩ"B@-7Ƒ"B@67ƒ"B@?7Ɠ"B@H7Ɣ"B@Q7ƕ"B@Z7Ɩ"B@c7Ɨ"B@l7Ƙ"B@u7ƙ"B@~7ƚ"B@7ƛ"B@7Ɯ"B@7>>ԑ}ԁԁ֗YF09 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>Ɲ"B@7ƞ"B@7Ɵ"B@7Ơ"B@7ơ"B@7Ƣ"B@7ƣ"B@7Ƥ"B@7ƥ"B@7Ʀ"B@7Ƨ"B@7ƨ"B@ 7Ʃ"B@7ƪ"B@7ƫ"B@$7Ƭ"B@-7ƭ"B@67Ʈ"B@?7>>>>-     Ư"B@H76 "B@Q7B@Z7B@c7B@l7B@u7B@~7B@7B@7B@7B@7B@7B@7B@7B@7B@7B@7B@7B@7>FP21quڊ"B7uJ uJuJڅuJuJ0 uaF#DqueFO21quڊB7uJ uJuJڅuJuJ0 uaF#D21qu@H7uJ uJuJuJuJuJque>>B@7B@7B@ 7B@7ޑ"B@7ޒ"B@$7ޓ"B@-7ޔ"B@67ޕ"B@?7ޖ"B@H7ޗ"B@Q7ޘ"B@Z7$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>Ft21quڊ"B7uJ uJ؅uJ=uJ=uJuJڅuJuJuJ0 uaF#D}$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>FALSE TRUE INPUT OUTPUT SYSERR SYSPARAMGET PUT RESET REWRITE READ WRITE PACK UNPACK NEW RELEASE READLN WRITELN MARK PAGE OVERPRINPROMPT REPOSITIUPDATE IOABORT CLOSE GETINFO PUTINFO INTEGER REAL CHAR BOOLEAN TEXT UNDEFINENIL MAXINT WRITEEOFSYSTIME ISOMOD RIGHTJUSMATHABORSEEKEOF SYSREPORFIELDPUTSHORTIO APPEND ROUND ABS SQR TRUNC ODD ORD CHR PRED SUCC EOF EOLN OPENED LINELENGPOSITIONIORESULTINTERACTFILESIZEFIELDGET3Q?1@7J J?1@ 7J JJJ?1@7J JJJJJ?1@7J JJJ?1@$7J J=JJ=JJJJ?1@-7J JJ>>SHELL CNVTREALMATHRESUSIN COS EXP SQRT LN ARCTAN AINT AFRAC =J=JJJJ$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>3O0P21qu@7uJ uJ0 21qu@ 7uJ uJ0 21qu@7uJ uJ0 21qu@7uJ uJ0 21qu@$7uJ uJ0 21qu@-7uJ uJ}0 que>> FM21qu2"B7uJ uJօuJڑuJ0 uaF#DJ؅21qu@67uJ uJuJuJ0 21qu@?7uJ uJuJM0 queF21qu2"B7uJ uJuJ>>>3ROOOOOO1)MeFON+aF#DO1}А}}Ԑ}=|=|ː}̑62eFO"N= aF#D6>uJuJuJړړQF}DڔQF}D}0 uaF#D21quܒuJuJuJuJ6O2121qu2Ɩ"B7uJ ԅuJuJuJuJuJ0 qu6PuJuJuJ҅6 que>   >  Ɉ: i|   ) I}}}}$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>.     3SOi"B@7Oi"B@ 7Oi"B@7Oi"B@7Oi"B@$7Oi"B@-7Oi"B@67Oi"B@?7Oi"B@H7Oi"B@Q7Oi"B@Z7Oi"B@c7Oi"B@l7Oi"B@u7Oi"B@~7Oi"B@7Oi"B@7Oi"B@7Oi"B@7Oi">>IF DO OF TO IN OR END FOR VAR DIV MOD SET AND NOT THEN ELSE WITH GOTO CASE TYPE FILE BEGIN UNTIL WHILE ARRAY CONST LABEL REPEAT B@7Oi"B@7Oi"B@7Oi"B@7Oi"B@7Oi"B@7Oi"B@7Oi"B@7Oi"B@7Oi"B@7Oi"B@ 7Oi"B@7Oi6 "B@7Oi6!"B@$7Oi6""B@-7Oi6#"B@67Oi6$"B@?7OW"BOW"BOW"BOW>RECORD DOWNTO PACKED PROGRAM FUNCTIONPROCEDUROTHERWISFORWARD EXTERNAL"BOW"BOW"BOW"B6 OW"B6"OW"B6%O@H7O@Q7O"B6 O"B6+O"B6*O"B6,O"BO"BO"B6'O"B6$O"BO"BO"BO"BO"BO"BO"B6.O"B6(O"B6%>>3U=5vCP ӐYF60+1=5D= 1vCPrvC@ ӐY4F60+1=5D= 1vC@rvC ӐY4F60+1=5D= 1vC rvC ӐY4F60+1=5D= 1vCrvC ӐY>>O"B6&O"B6!O"BO"BO"BO"B6)O"B6#O"BO"BO"BO"B6"O"BO"B6-O"BO6 "BO6!"BO6""BO6#"BO6$"B6/MeFOBaF#DeFOB6>4F60+1=5D= 1vCrv60+1= 19>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>aF#DOB6 OB6OB6OB6OB6OB6OB6OBOB6OB6OB6OB6OB6OB6OBOB6OB6OB6OB6OB6 OBO6'BO6(B>3T= 1"Bz0U"Bz0U"Bz0U= 1"Bz0U1$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>O6)BO6+BO6.BO62BO64BO65B6O6=BO6@BO6ABO6BB6O6CBO6EB6O6FB6O6GBO6MBO6NB6O6OBO6PBO6QBO6RBeFVOԔ6TBO6PB>>3VM}6B}=|=|=|=|=|6PqZuZeF\"N= 2"N= uZaF#D6OeF6NeNx= PNx=,PFԑD6OQFDNx=oPNx=OPF}6OaFԑ6NeNx==PFLԑ6OeNx= TNx=,TF\"NNxԑґ>yOԔ6UBO6QByOԔ6VBO6RByaF#DO6hB6O6iB6O6jB6O6lBO6mBO6nBeF>>DƊ\"N= D@6(6(11DLDFNx=tPNx=TPFo6OaFԑ6NeNx==PFIԑ6OeNx= TNx=,TF2"NNxԑґD2"N= D=|DNx=lPNx=LPF =|ԑDNx=nPNx=NPF =|ԑDqN>>BOMBOMB6 OMBOMBMMeFOB6 aF#D$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>x=fPNx=FPF =|ԑDINx=wPNx=WPF~6OaFԑ6OeNx=0\Nx=9dFQ6OeNx=0\Nx=9dF60Nx.ԑDҡaFMYFM}DNx=dPNx=DPF6OaFԑ6OeNx=0\Nx=9dFU>/     6OeNx=0\Nx=9dF60Nx.ԑDҜaFMYFM}D=|D@)6 6 11DDO=1%2"Nx= PF 2"N@J7O2@S1(O1"O=1%ԐUF2@]1ԑ1 @i1@6(6(11OC1O1O=1%\"Nx= PF \"N@7>>>0M006?006\06+06P0}6106c061006 }0ܗ00000000000000}queFO"Nx.0uaF#}D}}MqueF"ONx.M}uaF#}D>O\@1(O1"O=1%ԐUF2@ě1ԑ1 @Я1@6'6'11OC1O1Oǐ@(1#O@21#$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}̐aFM}ON+ΐUF 0ΐQFʐUFO 1}ܘqueFOǁBy 1O1UFtOO706!00O"By0O"By0O"By0O"By0}6?queF0uaF#}DuaF#}D_ΐUF 0ΐQF>*Invalid syntax for "O" passed parameter*Unknown passed parameter optionPROCTAB PROCF *OS9 error encountered during attempt to open PROCTAB file, forced abort follows.PCODEF PCODEF *OS9 error encountered during attempt to 1qڑ1 @J6$6$1őQFq@o1̐1 1D?őYF&qő1 @1̐1 1Dq@11F!ԁaFq1ԑ}DD111->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>open PCODEF file, forced abort follows.PROCF PCODEF PROCF PROC NAME PSEC PSIZE LOCAL STACK CSEC CSIZE DEBUG Lines of source code compiled with 1 error found, see: errors found, see: no errors found3q=p֐qMq=p6 q0V0R0S}}OB qJJ0N0O0Q}}OB qJJ}0 I0M=|OM1O1"BC"BC"BC"BCOǐ@1}ܘ>>>hGPASCALCO 9GPUT1  5GPUT2 FfNEWPAGE SOURCEOUA ENDOFLIN I ERROR STRINSERqueF B̅O1uaF#}D1ԑ}ԁԁ֗YF0}@ 6,6,1@711ԑ}ԁԁ֗YF0}ܘqueFOǁBy 1O1q̔1 = 1Oט1ߗ1 嗁1 ᗁ1 㗁1 痁1 闁1 뗁1 1>INSYMBOL LOPTION NEXTCH IOPTIONS  ENTERID  SEARCHSE SEARCHIDGETBOUNDԑ}ԁԁ֗YF0"B"Bz "B"Bz "B"Bz "B"Bz uaF#}D0T}ΐ}}ܘqueFOǁBy 1O10000000UF}>> )tBLOCK  4TESTFWD -/SKIP  ECONSTANT .EQUALBOU!COMPTYPE! ("STRING " %#STRTYPE 0D0}queFO׸"Nx.0uaF#}D6 UF0DuaF#}DUΐUF 0ΐQF}}O 1O1O 1}6 queFON+uaF#}D}M0M000000M063000006P06C06O06D>.Eb3TYP #E&SIMPLETY((I- FIELDLIS&)' CASETYPE3 E4LABELDEC4E5CONSTDEC5 E37OTYPEDECL8 E:jVARDECLA0     @48E PROCDECL;I+@PARAMETEFGPUT1 GHPUT2 HINEED IKFIXLABEL$(jBODY KLPUTOP + 1c0 (C) 1981 BY MICROWARE SYSTEMS CORPORATION - ALL RIGHTS RESERVED]5aR5aG5a<E4H,K$NQT d4Z&'dd6!9ڦddў$ɞ*01!L PMPUTCREALM)NPUTCSET N OGENTYPINOQLOAD Q5SSTORE S ULOADADDRU |VCHECKBNDVsXFILEINIT Z& CZ& Z&0 M&TTTS'DZ&2b2o{5RJ4>*O_)/Ж:'#Eb) 5)5 =0 405050555]_DUMPTABLX \DUMPSTP CSTATEMENG3EXPRESSIb&IogSELECT2 `abSELECTOR{G CALL g)-hVARIABLE"3ˮ50&1$4044{"3ˮ40&1$d04[栍E04N栍84A栍+4栍 044栍 05]&09EZ'Z&9栍05 栍0555 "#350&1% "#3h +iINOUTADDiGbjFILEPARAjDkKEEPFILEksGnGETPUTREnGpREAD pGdtWRITE tEuPACK uEvUNPACK 40&1% 2 2~ 2{ P2 O_2 j |l w m c䫠 Z䠠 Q H䣡 ?45 .2a #4   '4Z& 'oZ& 栞04 졞04 殡5`0& 5@3ˮ40& vG%xNEW x{CALLNONSGSIMPLEEX GTERM 0EFACTOR GASSIGNME GOTOSTATGIFSTATEM5PZ& O504Z& d%1 25@5$ 2b 925@5$ 2c -25@5$ 2d !25@5" O22b 25@5 5 22b '=0' /n5 "5 e5552b 0&2b 1 o 15XI'1 m졞4 졞 졞0,GeCASESTATGREPEATSTGWHILESTA)FORSTATE)EWITHSTAT9 PROGRAMM ENTERSTD& |QENTSTDNA44 "340&1$ 5 44444444 M&0 TTTS0'XJ& S f졞05 C졞05 6졞0555 !"350&1$ 5졦4 5 5044 5@"3ˮ40&1$ 5& o  cSTDNAMES #6ENTERUNDGjINITSCAL_ZINITTABL JDISPLAYSBPUTR d<SCANPARA5& 5`&0& _4 5' xo s5' f5`&0&_ 4 D5% 7o 25- %5`%&0& _4 5$ o 5, ⮡5`" &0&_ 4 5"- R o 5. 5`"&0& _4 {5# no i5/ \5`% &0&_ 4 80 &Z& _2? 0 &Z& _2? 0 &Z& _2?0 &Z&_ 2?8"zX0n|1     -( $gn5"}u2u:_*WBPI  U{<~4+"OfiluxoߞrמcϞ`ǞWZ5I5G |5^ v5] p5\ j5[ d5Z ^5Y X5X R5W L5V F5U @5T :5S 45R .5Q (04 栦4 5 4Z& 4OXI0n@Paq #+3h]?B<-w57p5:i58bZRKD = 2 T& 'o ڞҞʞžsx}lxQV[ $-;>P`xa'j.@Mo6HUy4!,?V_fw&1:M %+17=CIOU[ag1 +  _ |䬡- . k1"od4db =0 d5'C $';"".ȭ߮䬡-/<$ =0' n 4 X/'< '?%0 &?%_?SUPPOR1?P 0msy !(/6=DLT\dlt| #)/5;AGMSY_ekrx~    qPASCALoƎ0O_/@.0ن!?$& 0ˆ!?$?0R  ?%B=NO_>ƀA>A>?% A& &>AA&>=?$.  ͞n 1c&$&&B(D*F,H.00M&4"'M&<=3 5/_&< 4 R%& =?%u5O_0 &ޞIHI< '3 :F|F4FĖ=?%h5P3JB'B]B4FcĖ=?%I5P3J &=B7D3F/ō*_$?%=?%  g%"94VO_A=?%54<$I=0'  1: Simple type expected. 2: Identifier expected. 3: PROGRAM expected. 4: Right parenthesis expected. 5: Colon expected. 6: Unexpected symbol found. 7: Parameter list expected. 8: OF expected. 9: Left parenthesis expected. 10: Type expect? ? 4"4@3=0' O_04 z/'P 30=?%(0 ?%> 0?$ ?%1=0 &9& 0 ?$.O_Z&M'93'ed. 11: Left bracket expected. 12: Right bracket expected. 13: END expected. 14: Semicolon expected. 15: Integer expected. 16: Equal sign expected. 17: BEGIN expected. 18: Invalid declaration part. 19: Field list expected. 20: Comma expected. 21     ysmga[UOIC=71+% ߞ؞ўʞÞ: Program terminating period expected here. 22: Invalid ascii character. 23: Expected a hex digit. 24: Double period expected. 25: *COMPILER ERROR* Standard procedure number unknown. 26: Comma or colon expected. 27: Constant is out of range. 28: Ide~vnf^VNF>6I1G,^']"\[ZYX WVUTSRQPntifier, VAR, PROCEDURE, or FUNCTION expected. 29: PROCEDURE or FUNCTION not allowed here (compiler restriction). 30: Error in real constant, digit expected. 31: String constant must be contained in a single source line. 32: Integer constant exceeds ra2     nge. 33: Too many nested scopes of identifiers (compiler restriction). 34: Too many nested procedures and/or functions (compiler restriction). 35* * 36: Too many errors detected for this source line. 37: Division by zero attempted. 38: Constant value5: GETINFO or PUTINFO called with file not open. 86: REPOSITION called with file not open. 87: OS-9 error on GETINFO or PUTINFO call, OS-9 error number follows. 88: POSITION called with file not open. 89: WRITEEOF called with file not open. 90* * 91: must be greater than zero. 39: Element expression is out of range. 40: SHORTIO called with record size out of range. 41: FILESIZE called with file not open. 42: OS-9 error on FILESIZE call, OS-9 error number follows. 43: Undefined FORWARD procedures  INTERACTIVE called with file not open. 92: OS-9 error on file write, OS-9 error number follows. 93: PUT called with EOF false. 94: PUT called with file not in generate mode. 95: PUT called with file not open. 96: OS-9 error on status call, OS-9 erroror functions found. 44: Unimplemented file function in support package. 45: IOABORT called with TRUE argument value, previous error not cleared. 46* * 47* * 48* * 49* * 50: Constant expected. 51: ':=' expected. 52: THEN expected. 53: UNTIL expect number follows. 97: SHORTIO called with file not open. 98: OS-9 error on file open, OS-9 error number follows. 99: OS-9 error on file rewind, OS-9 error number follows. 100: String or character array expected. 101: Identifier is already declared. 102: ed. 54: DO expected. 55: TO or DOWNTO expected. 56* * 57* * 58: Factor expected. 59: Variable expected. 60: Attempted to load or store the value of an address. 61: Expected a file name. 62* * 63: OS-9 error on file close, OS-9 error number followLow bound exceeds high bound. 103: Identifier is not of the appropriate class. 104: Identifier is not declared. 105: Sign is not allowed here. 106: A number is expected. 107: Incompatable subrange types. 108: FILE is not allowed here. 109: Type must not bes. 64: Read called with EOF true. 65: Read called with file not in inspection mode. 66: Read called with file not open. 67: OS-9 error on file read, OS-9 error number follows. 68: GET attempted on short record. 69: GET called with EOF true. 70: GET  real. 110: Tagfield must be a scalar or a subrange. 111: Incompatable with tagfield type. 112: Unimplemented Support Package function. 113: Index type must be a scalar or a subrange. 114: Base type must not be real. 115: Base type must be a scalar or a sucalled with file not in inspection mode. 71: GET called with file not open. 72: Multiple decimal points encountered during READ of real number. 73: Digit expected during READ of real number. 74: Floating point overflow during READ of real number 75: Wbrange. 116: Error in type of standard procedure parameter. 117: Unsatified forward reference. 118: Machine code calls pcode but pcode doesn't exist. 119: Procedure was declared FORWARD, repetition of parameter list not allowed. 120: Function result type mRITEEOF called with record number out of range. 76: OS-9 error on WRITEEOF call, OS-9 error number follows. 77: WRITEEOF called with file in inspection mode. 78: Invalid character found for READ of integer. 79: Integer overflow for READ of integer. 80ust be a scalar, a subrange, or a pointer. 121: FILE parameter type cannot be passed by value. 122: Function was declared FORWARD, repetition of parameter list not allowed. 123: Missing result type in FUNCTION declaration. 124: F-format allowed for real va: SEEKEOF called with invlaid file size. 81: OS-9 error on SEEKEOF call, OS-9 error number follows. 82: SEEKEOF called with file not open. 83: OS-9 error on file seek, OS-9 error number follows. 84: REPOSITION called with record number out of range. 8lues only. 125: Not enough parameters given. 126: Number of parameters does not agree with the declaration. 127: Pcode file was produced by wrong series of compiler. 128: Result type of parameter function does not agree with its declaration. 129: Operands 3     are of incompatable types. 130: Expression must be a SET type. 131: Only equality and inequality test allowed for this type operand. 132: Strict inclusion test not allowed. 133: Comparison of file types is not allowed. 134: Illegal type of operand(s). 135:nteger multiply overflow. 185: Address multiply overflow. 186: Restore-heap range error. 187: Stack overflow. 188: MOD error, right argument is negative. 189: Pointer variable expected. 190: Invalid PCODE instruction. 191: Call-user-procedure range error.  Type of operand must be BOOLEAN. 136: Element type of a set must be a scalar or a subrange. 137: Element type is not compatable with the set. 138: Attempt to index a non-array variable. 139: Index type is not compatable with the declaration. 140: Attempt 192: Pointer range error. 193: Subscript or range error. 194: Case error. 195: Call-standard-procedure range error. 196: Singleton-set range error. 197: CHR function range error. 198: IN function range error. 199: Integer overflow on add, subtract, or negato select a field of a non-record variable. 141: Type of variable must be a FILE or a POINTER. 142: Illegal parameter substitution. 143: Illegal type of control loop variable, must be a scalar or subrange. 144: Illegal type of expression. 145: Type conflicte. 200: Invalid Pascal option specification. 201: Pascal option has a value greater than 65535. 202: Local or Extended default stack requirement greater then 65535. 203: OS-9 file error during processing of PCODE file, OS-9 error number follows 204: Invalt. 146: Assignment of files is not allowed. 147: Case selection type is incompatable with selecting expression. 148: Subrange bounds must be scalar. 149: Index type must not be INTEGER. 150: Assignment to a standard function is not allowed. 151: Assignmentid number of procedures in PCODE file, bad PCODE file. 205: Compile-time errors detected in PCODE file, cannot run program. 206: Not enough memory to run program. 207: Ran out of swap buffers. 208: Floating point overflow. 209: Floating point divide by zer to a formal function is not allowed. 152: No such field in this record. 153* * 154: Actual parameter must be a variable name. 155: Control variable must not be declared at an intermediate level. 156: Multidefined case label. 157: Too many cases in case sto. 210: Expected a boolean expression. 211: Cannot issue CLOSE to SYSERR file. 212: A text file is not allowed here. 213: Must be a 32 element character array. 214: Procedure or function names may not be passed as parameters (comp restr). 215: Integer typeatement (compiler restriction). 158: Missing corresponding variant declaration. 159: Real or string tagfields are not allowed. 160: Previous declaraction was not FORWARD. 161: Attempt to declare FORWARD again. 162: Parameter must be a valid variant value.  variable name expected. 216: Must be type real or integer. 217: Must be type real. 218: Scalar expected. 219: GOTO's may not lead out of enclosing proc/func (compiler restriction). 220: Square root of negative number. 221: Range error on floating point fi163* * 164* * 165: Label is already defined. 166: Label is already declared. 167: Undeclared label. 168: Undefined label. 169: Error in base set. 170* * 171: Standard file was redeclared. 172* * 173: External procedure or function is expected. 174* * 175* x. 222: OS-9 error during processing of EXTERNAL tables, OS-9 error number follows 223: Nonexistent procedure called from an EXTERNAL procedure. 224: Multiple decimal points encountered during CNVTREAL processing. 225: Digit expected during CNVTREAL proces* 176* * 177: Assignment to function identifier is not allowed here. 178: Record variant is already defined. 179: Unimplemented language feature. 180* * 181* * 182: OS-9 error on get heap call, OS-9 error number follows. 183: Integer divide by zero. 184: Ising. 226: Floating point overflow during CNVTREAL processing. 227: Pcode file has been altered! Cannot run program. 228: OS-9 error on restore heap call, OS-9 error number follows. 229: LN of a zero number. 230: Must be a text file type. 231: User scalar 4     types not implemented for reading or writing. 232: Set has too many elements (compiler restriction). 233: Too many procedures declared (compiler restriction). 234: Integer value expected. 235* * 236: Type indicator is not defined for this object. 237: Vari *** INTMPY EQU -78 INTDIV EQU -75 PUT EQU -72 GET EQU -69 WRTSTR EQU -66 WRTINT EQU -63 REWRITE EQU -60 RESET EQU -57 PUTCHAR EQU -54 WRTBOOL EQU -51 READINT EQU -48 GETCHAR EQU -45 READLN EQU -42 READCHAR EQU -39 GETHEAP EQU -36 POINTERR EQU -33 RANGEERRant or tagfield is not allowed here. 238: Period, BEGIN, PROCEDURE, or FUNCTION expected. 239: LN of a negative number. 240: EXP of a number greater than 88.0296919. 241: SIN of a number greater than 102942.13 or less than -102942.13. I T$ I4 EQU -30 CASEERR EQU -27 CLOSE EQU -24 INTMOD EQU -21 ERROR EQU -18 INIT EQU -15 QUIT EQU -12 ADRMPY EQU -9 POSITION EQU -6 RELEASE EQU -3 STACKCHK EQU 0 WRTCHAR EQU 3 REPOSITN EQU 6 UPDATE EQU 9 OPENERRS EQU 12 SCAN EQU 15 TIME EQU 18 IOABORT EQU 21 INTER R IC ACT EQU 24 IORESULT EQU 27 WRITEEOF EQU 30 REALSUB EQU 33 REALADD EQU 36 REALMUL EQU 39 REALDIV EQU 42 REALSQRT EQU 45 FLOATTOS EQU 48 FLOATNOS EQU 51 ROUND EQU 54 TRUNCATE EQU 57 READREAL EQU 60 CNVTREAL EQU 63 WRTREAL EQU 66 REALEQU EQU 69 REALNEQ EQU 72 OPT -L *** * OS9 EQUATES *** F$LINK EQU 0 F$LOAD EQU 1 F$UNLK EQU 2 F$EXIT EQU 6 *** * FILE CONTROL BLOCK EQUATES *** FFLAGL EQU $B LOW FLAG BYTE FCCTL EQU $D CONTROL BYTE DATAEND EQU $D1 ZERO PAGE DATA SIZE *** * ZERO PAGE EQUATES *** MEMTOP EQU 0 A REALGRT EQU 75 REALGEQ EQU 78 REALLES EQU 81 REALLEQ EQU 84 SEEKEOF EQU 87 FIELDPUT EQU 90 FIELDGET EQU 93 SHELL EQU 96 SYSRPT EQU 99 APPEND EQU 102 AINT EQU 105 AFRAC EQU 108 GETINFO EQU 111 PUTINFO EQU 114 SHORTIO EQU 117 FILESIZE EQU 120 REALATN EQU 12BSOLUTE ADDRESS OF MEMORY TOP MEMBOT EQU 2 ABSOLUTE ADDRESS OF MEMORY BOTTOM SUPJTBL EQU 4 SUPPORT JUMP TABLE ADDRESS SUPBEG EQU 6 ABSOLUTE ADDRESS OF SUPPORT MODULE HEADER ABORT EQU 8 ADDRESS OF PASCAL ABORT ROUTINE DHOLD EQU $A GENERAL USE YHOLD EQU $E G3 REALLN EQU 126 REALEXP EQU 129 REALCOS EQU 132 REALSIN EQU 135 OPT L *WBPI  U{<~4+"OfiluxoߞrמcϞ`ǞWZENERAL USE UHOLD EQU $10 GENERAL USE HEAPPTR EQU $12 HEAP POINTER PROCTAB EQU $16 PROCEDURE TABLE STKBOT EQU $18 ABSOLUTE ADDRESS OF STACK BOTTOM DISPATCH EQU $1A ABSOLUTE ADDRESS OF DISPATCH ROUTINE PROCN EQU $20 CURRENT PROCEDURE NUMBER OS9ERR EQU $2E LA- R%N&ST OS9 ERROR NUMBER EXTJTBL EQU $30 ABSOLUTE ADDRESS OF EXTERNAL TABLES ISOMOD EQU $37 ISOMOD FLAG RJUSTIFY EQU $38 RIGHT JUSTIFY FLAG MATHABRT EQU $3A MATH ABORT FLAG START EQU $40 CODE START FLAG LOCSIZE EQU $42 LOCAL STACK SIZE EXTSIZE EQU $44 EXTENDED %%!I1c1 (C) 1981 BY MICROWARE SYSTEMS CORP - ALL RIGHTS RESERVED_? \ 0U *Q)r P  1     6 Q~T*u$E!"%)-15 w  STACK SIZE HEAPSIZE EQU $46 MINIMUM HEAP SIZE SWAPSIZE EQU $48 SWAP SIZE PARAMBEG EQU $4E PARAMETER BEGIN ADDRESS PARAMEND EQU $50 PARAMETER END ADDRESS LINENUM EQU $CE DEBUG LINE NUMBER MATHERR EQU $D0 LAST MATH ERROR NUMBER *** * SUPPORT ROUTINE OFFSETS  TxxD8!+SSUPPOR52F4L23J0(0 O_ 440"  O_44204$  O_44@;N&n  4bkN i& &g ' 4k = O5b52fn4`j h& &5     f ' 4ˮj <  @' ʀ  45`52fn4vO_ @ '- 3?$H.cObf 4 5' ?50'?$'.b ɮd?%b b j2 _0?$ .2 ` "&e @ 8&4 &- '?%ȟ " ?$2d$ @'& .'. a50$"'2b%?%c2Q.'?.@'M0 ]O b$0 KOBP ' 0E 5΍;%" 0Fb"n?46O 402a50?%946%%\5b '-o ?$ .b?b 52b S3?%2 54 'O_ 54' 0?5_54 d &_ &^ ŀ' &]O Z&\0& $R.\ & ' ' ''1 & |%Ʀ '!+'1& 6 2 I5 52bn '   $94 0nƷЖ:'O9'&'GVY9'M&   % YI+  %& 90b0('i _0b7'+  7'G MƼЖ:'OoO_ =(*@P(*@P(90b4)& +%" (&  ('@Pd2dnƸЖ:'O+ '!& '&?%5a2eh4 & '454 d &_ &^ &]O $& %4d115 52bn54fd0hf2anfd$d4 8D$hf/d 4whh df'j%栮d4X%&hf/%d 4>%&5 52hn460K#%&MXI+Y)9+)9)=+=**$ )愦=**$ )愦=))90b)&+ 876:9NP$:' ','a%z" 3'3C&3'(3C&ZA3ˆĦP"i+'-&o A1O_P"Mk'.K'*0%89"4'XI%- XI%'XI%# %'% * $& - &O_ '% ' '& #' #0 &0m*ږ 0 &5'd 4 h$f%46j4.5 52fnTRUEFALSE0df%0\4f4h452enb%& &B &A '@&' 4b& & '(--& ( +&4xb0%Q "M -'@$ !_HHNS3~NP P$ &  &H#HB&'.< O_%%0 &BD&'< O_% 0 &D9yJ8M7R6I9A:EDHFLBSH2z0?$O_bd3O50&2nnc db%@  '-2enodb &[ @%XI%" XI%XI% %'%%%" (& ('̀%40b0%9#O  ('O_%% -&NO%52dn4 d &G &F 'EOt &'4i %%   1 '5 52bnb &B &A '@O &@' 452bn4'ld2dnbOd2dnd$+b0$"b0!f cX4eg}h2hnO_ ??f$@d0$7d0 eXCS4gi$ eX셤bc ge 2jn4'!+ DV$0&5 XI$0&5 5SHEL4`0fh?%? d &G &F ŀ'~ 'EO ?'D &-0' &1 &+ 0?d$'.C  'HO_ @ 0?d%  &1? && &  /5 52bn4 11 0&d LOCAL=EXTENDED=ACTUAL HEAP=ACTUAL STAOj5`2fn4 f &_ &^O )&] &d2e%41?4 4 ]4H2Q5 2fnd &a &b-/ ( 2fnO  d &U & _b '? ?$ .dWB2fn4`1f$$ N%%4O 4m'+ $4Om& 4CK=FREE STACK=FREE HEAP=SWAP=B DH L  J >@'O"$9'A$G>L>L4LJJ$O_J3'00)* 9b &B &A '@O> &'4b '  452dn4 dL#L DVFVj&2a94`1f!'&&%"'$)%(*+/ -%)($))$$M'3*(@0%Zm'/#"!$;CSCS$ ( '03!#&(m&#"!$ FVFVl%)QM+j%)9XIYI*$ $Fl%)+& ('\(E4`1f!*&+O_%2#" 6& ?%T5 52dn4 d"G4%C6&2# ?%$5 2dn4dJ$J%bn. .ƶ ƺ ƻ  ®bO x"0 !?%! "9PASCALERR4F3!?%0fP!?% &0f_5LINE NUMBER=PASCAL ERROR #PCODE LOCATION=PROCEDURE #4v2%(*;&C#Ж:'bOܧ%)$())$$=oo)#=aa$l($=aa$lo)"=aa$l(#=aa$l'$=aa$lo)!=aa$l("=aa$l'#=aa$l&$=aa$lo(!=aa$l'"=aa$l&#=aa$lo'!=aa$l&"=aa$l&!=6     + hdicibYIj%)&b$l'&l&& f&l%(2g((2gO5`2gn4`1f!& Ж:'O&'%)%!$) d!f"f#f$&(DVFVo) #$!'/+) 'ti)i(i'i&XIYI$#$!'* 0& Z-- )ƀ ) ̀( - ')ƀ  &(YIYI1t43)2e%k )+?$ .S T 5`2in4`2{k &Y ?&M 6&731423)$K k )+?$Lgm2e5`2dn4`2{k &R f&gʀ ?%,)+3)1k43fTk )+?$.Q "k43J *M (&+YIYIj%)$ $Fl%)& (l%)4`1h&&!' $&5!&) )$&3%$'2&B"&D$'%523 2cebgd3enCO_CA0'$M*@PlDM&0M+0XI*A9 _Rb.- )& +'Pg2e5`2dnb/.,0憦bDDD&ff9_"'de O_b9b/-O_b9(f' (fob%%%f_ %e %') $%df_ %& %ecXIYI %&M+%0&]& M'jbH* jbXI* jbXIYI*c(e94`2{k &)+R'c+ZO_ a"F%df$@c&8 R'Kme+0 E" cdoc ' dcfdfe\&c R'me*(df%Ж:'Odf$@Pe2enX'"%%0"9O9 &B &A ' @O<L2b&&&'4񢮤 &&ަ&9_ X4`1fO_ST-UVW;%444x >&A ?%,)+3)1\k4r1mH2e5`2dn.*kgO_m 2o44ڢ44 2oo'c44442g-Ж:'OF2O_b9r̢44"%T$c' ̀445km5n4 '+'-& Sg.&U'H | UO_444W E'e&5-'Z-;+'-& T.0%@9"<-4 V='V ށ0%!9"-_%-O4% W -&3I J X& <X :&X'0$ "oZ&2: 2U' W2%C%VT%%dSdX'0$ "5Z&5`2f ;n4444444!֮44"44jbldnd4̵442g4oe5-ca4d4Vebgdi 44;|̸44Shf4i4 447hf4i4̈44hf4 5@M'-0/#=04Z&& %"_ n @P$ k("%C@(ԥ,*/ 2_269.< k:@#4pTS  VW3 0J&!'4Z*1$' S$* T@Lƚ=D'VT'V/ V !m'&*DVi4玪̪44hf4i4ˮmk4n4mk4n4529c&Ж:&bce9fT$Ж:'Off2 4oo:̵4o42l.Z44̀44obd̀44̀445f#f$ l&! h$i#YI j&! V e!# d!#4 5VT#"!4 ;W 5' &&ƧW %*L9# 0e&l V V2e50 W9XIYI 9 Z+L9# 0 l V94`1lh*j.Rj.jj, S'-21䧠.\5 e44̀44̀445km5n44̀44̀4455mk4n444cmak4dn4Pebgdi 4o^hf4i4*Q̃44Bhf4i4̀?44&5km5nca4%]' &' %&0 &&E+V*-P0 %L :3\1X4v\J2R5`2mn*#* \V "0V\ %21S'-/E &' %&0 && '.%' ' %&0 &3 4@\y0 '.P&' 0 ' && ' %&0 & L'_ 44oej]̎44hf4i4̜4 4ٮhf4i4_4 455ca4d444o44mk4n4Rmk4n4l5ac5d4jbldnހ44hf4i42mk4n4̱4o52kn:& 3. ,, %- / .+!+_ OB_9 "-%!#&! %'dfAFV %&$ &lA&l'B_9S9' !B# #B&9!m!+ jh$i#i"i!*$$94`f & X?O_h &1h35`2dn4`k & VOb I&E ʀ 1f32%02{ 5!292tcoaǹ44hf4i4- 2lj 2b5ac5djca4d4̉0442l/kca4d4̻g4oc̀44'̀44hf4i4cBݳ44mk4n4Jn5ac5djjc4c4d44̵44K2g,7     idca4d4jbldn̸S4o̸T44ٮmk4n4mk4n4;̘4444|}̊?44︮hf4i4]hf4i4wo& ̆ 4_ ,&ddڤ4 &dd̆ 444dd5o52l92  S3?%2 54 'O_ 54' 0?5_54 d &_ &^ ŀ' &]O Z&\0& $R.\ & ' ' ''1 & |%Ʀ '!+'1& 6 2 I5 52bn '   $94 04!43̰44/2g/Ж:'O2 bce9)̲442g.2 O_b9ded442g,2 bO_df9ed;,̸44]`5ac5d 4!4phf4i4̱4o!E%#4&4}2hf4i4ހ44?%5a2eh4 & '454 d &_ &^ &]O $& %4d115 52bn54fd0hf2anfd$d4 8D$hf/d 4whh df'j%栮d4X%&hf/%d 4>%&5 52hn460K#%&Mcamk4dn4obdj44쿎4455mk4n4̛44슎i44뢮44k̀445544mk4n47bd4444V̀44"5* $& - &O_ '% ' '& #' #0 &0m*ږ 0 &5'd 4 h$f%46j4.5 52fnTRUEFALSE0df%0\4f4h452enb%& &B &A '@&' 4b& & '(--& ( +&4xb0%Q "M -' 5!292z0h'Ж:'O%'~LG% DVFV O_ iiii %'D`@*iiii %'8+  j(O_ hiYI*2nhiiiiiii9#ļXIYI*c(e94`2{k &)%XI%" XI%XI% %'%%%" (& ('̀%40b0%9#O  ('O_%% -&NO%52dn4 d &G &F 'EOt &'4i %%   1 '5 52bnb &B &A '@O &@' 452bn4- R`u d &G &F ŀ'~ 'EO ?'D &-0' &1 &+ 0?d$'.C  'HO_ @ 0?d%  &1? && &  /5 52bn4 11 0&d LOCAL=EXTENDED=ACTUAL HEAP=ACTUAL STA`%!MI1c1 (C) 1981 BY MICROWARE SYSTEMS CORP - ALL RIGHTS RESERVED_? \ 0U *Q)r P  1     6 Q~T*u!"%)-15 w  CK=FREE STACK=FREE HEAP=SWAP=B DH L  J >@'O"$9'A$G>L>L4LJJ$O_J3'00)* 9b &B &A '@O> &'4b '  452dn4 dL#L  TxxD41.+(SUPPOR52F4L23J0(0 O_ 440"  O_44204$  O_44@;N&n  4bkN i& &g ' 4k = O5b52fn4`j h& &2#" 6& ?%T5 52dn4 d"G4%C6&2# ?%$5 2dn4dJ$J%bn. .ƶ ƺ ƻ  ®bO x"0 !?%! "9PASCALERR4F3!?%0fP!?% &0f_5LINE NUMBER=PASCAL ERROR #PCODE LOCATION=PROCEDURE #4vf ' 4ˮj <  @' ʀ  45`52fn4vO_ @ '- 3?$H.cObf 4 5' ?50'?$'.b ɮd?%b b j2 _0?$ .2 ` "&e @ 8&4 &- '?%ȟ " ?$2d$ @'& .'. a50$"'2b%?%c2Q.'?.@'M0 ]O b$0 KOBP ' 0E 5΍;%" 0Fb"n?46O 402a50?%946%%\5b '-o ?$ .b?b 52b8     nƷЖ:'O9'&'GVY9'M&   % YI+  %& 90b0('i _0b7'+  7'G MƼЖ:'OoO_ =(*@P(*@P(90b4)& +%" (&  ('@Pd2dnƸЖ:'O+ '!& '& *M (&+YIYIj%)$ $Fl%)& (l%)4`1h&&!' $&5!&) )$&3%$'2&B"&D$'%523 2cebgd3enCO_CA0'$M*@PlDM&0M+0XI*A9 _Rb.XI+Y)9+)9)=+=**$ )愦=**$ )愦=))90b)&+ 876:9NP$:' ','a%z" 3'3C&3'(3C&ZA3ˆĦP"i+'-&o A1O_P"Mk'.K'*0%89"4'XI%- XI%'XI%# %'% +R'c+ZO_ a"F%df$@c&8 R'Kme+0 E" cdoc ' dcfdfe\&c R'me*(df%Ж:'Odf$@Pe2enX'"%%0"9O9 &B &A ' @O<L2b&&&'4񢮤 &&ަ&9_ X4`1fO_ST-UVW;%444x@$ !_HHNS3~NP P$ &  &H#HB&'.< O_%%0 &BD&'< O_% 0 &D9yJ8M7R6I9A:EDHFLBSH2z0?$O_bd3O50&2nnc db%@  '-2enodb &[ @ '+'-& Sg.&U'H | UO_444W E'e&5-'Z-;+'-& T.0%@9"<-4 V='V ށ0%!9"-_%-O4% W -&3I J X& <X :&X'0$ "oZ&2: 2U' W2%C%VT%%dSdX'0$ "5Z&5`2f ;n'ld2dnbOd2dnd$+b0$"b0!f cX4eg}h2hnO_ ??f$@d0$7d0 eXCS4gi$ eX셤bc ge 2jn4'!+ DV$0&5 XI$0&5 5SHEL4`0fh?%? 5@M'-0/#=04Z&& %"_ n @P$ k("%C@(ԥ,*/ 2_269.< k:@#4pTS  VW3 0J&!'4Z*1$' S$* T@Lƚ=D'VT'V/ V !m'&*DVOj5`2fn4 f &_ &^O )&] &d2e%41?4 4 ]4H2Q5 2fnd &a &b-/ ( 2fnO  d &U & _b '? ?$ .dWB2fn4`1f$$ N%%4O 4m'+ $4Om& 4f#f$ l&! h$i#YI j&! V e!# d!#4 5VT#"!4 ;W 5' &&ƧW %*L9# 0e&l V V2e50 W9XIYI 9 Z+L9# 0 l V94`1lh*j.Rj.jj, S'-21䧠.\ DVFVj&2a94`1f!'&&%"'$)%(*+/ -%)($))$$M'3*(@0%Zm'/#"!$;CSCS$ ( '03!#&(m&#"!$ FVFVl%)QM+j%)9XIYI*$ $Fl%)+& ('\(E4`1f!*&+O_%%]' &' %&0 &&E+V*-P0 %L :3\1X4v\J2R5`2mn*#* \V "0V\ %21S'-/E &' %&0 && '.%' ' %&0 &3 4@\y0 '.P&' 0 ' && ' %&0 & L'_ 2%(*;&C#Ж:'bOܧ%)$())$$=oo)#=aa$l($=aa$lo)"=aa$l(#=aa$l'$=aa$lo)!=aa$l("=aa$l'#=aa$l&$=aa$lo(!=aa$l'"=aa$l&#=aa$lo'!=aa$l&"=aa$l&!=2kn:& 3. ,, %- / .+!+_ OB_9 "-%!#&! %'dfAFV %&$ &lA&l'B_9S9' !B# #B&9!m!+ jh$i#i"i!*$$94`f & X?O_h &1h35`2dn4`k & VOb I&E ʀ 1f32%02{+ hdicibYIj%)&b$l'&l&& f&l%(2g((2gO5`2gn4`1f!& Ж:'O&'%)%!$) d!f"f#f$&(DVFVo) #$!'/+) 'ti)i(i'i&XIYI$#$!'* 0& Z-- )ƀ ) ̀( - ')ƀ  &(YIYI1t43)2e%k )+?$ .S T 5`2in4`2{k &Y ?&M 6&731423)$K k )+?$Lgm2e5`2dn4`2{k &R f&gʀ ?%,)+3)1k43fTk )+?$.Q "k43J9     - )& +'Pg2e5`2dnb/.,0憦bDDD&ff9_"'de O_b9b/-O_b9(f' (fob%%%f_ %e %') $%df_ %& %ecXIYI %&M+%0&]& M'jbH* jbXI* jbXIYI*c(e94`2{k &)* $& - &O_ '% ' '& #' #0 &0m*ږ 0 &5'd 4 h$f%46j4.5 52fnTRUEFALSE0df%0\4f4h452enb%& &B &A '@&' 4b& & '(--& ( +&4xb0%Q "M -' >&A ?%,)+3)1\k4r1mH2e5`2dn.*kgO_m O_bp :&9S%!$) d!f"f#f$&(DVFVo) #$!'/+) 'ti)i(i'i&XIYI$#$!'* 0& Z-- )ƀ ) ̀( - ')ƀ  &(YIYI%XI%" XI%XI% %'%%%" (& ('̀%40b0%9#O  ('O_%% -&NO%52dn4 d &G &F 'EOt &'4i %%   1 '5 52bnb &B &A '@O &@' 452bn4- RJ d &G &F ŀ'~ 'EO ?'D &-0' &1 &+ 0?d$'.C  'HO_ @ 0?d%  &1? && &  /5 52bn4 11 0&d LOCAL=EXTENDED=ACTUAL HEAP=ACTUAL STAJ%!oI1c1 (C) 1981 BY MICROWARE SYSTEMS CORP - ALL RIGHTS RESERVED_? \ 0U *Q)r P  Yu     6 Ql(7IZimquy w  CK=FREE STACK=FREE HEAP=SWAP=B DH L  J >@'O"$9'A$G>L>L4LJJ$O_J3'00)* 9b &B &A '@O> &'4b '  452dn4 dL#L xxDSUPPOR52F4L23J0(0 O_ 440"  O_44204$  O_44@;N&n  4bkN i& &g ' 4k = O5b52fn4`j h& &2#" 6& ?%T5 52dn4 d"G4%C6&2# ?%$5 2dn4dJ$J%bn. .ƶ ƺ ƻ  ®bO x"0 !?%! "9PASCALERR4F3!?%0fP!?% &0f_5LINE NUMBER=PASCAL ERROR #PCODE LOCATION=PROCEDURE #4vf ' 4ˮj <  @' ʀ  45`52fn4vO_ @ '- 3?$H.cObf 4 5' ?50'?$'.b ɮd?%b b j2 _0?$ .2 ` "&e @ 8&4 &- '?%ȟ " ?$2d$ @'& .'. a50$"'2b%?%c2Q.'?.@'M0 ]O b$0 KOBP ' 0E 5΍;%" 0Fb"n?46O 402a50?%946%%\5b '-o ?$ .b?b 52b S3?%2 54 'O_ 54' 0?5_54 d &_ &^ ŀ' &]O Z&\0& $R.\ & ' ' ''1 & |%Ʀ '!+'1& 6 2 I5 52bn '   $94 0nƷЖ:'O9'&'GVY9'M&   % YI+  %& 90b0('i _0b7'+  7'G MƼЖ:'OoO_ =(*@P(*@P(90b4)& +%" (&  ('@Pd2dnƸЖ:'O+ '!& '&?%5a2eh4 & '454 d &_ &^ &]O $& %4d115 52bn54fd0hf2anfd$d4 8D$hf/d 4whh df'j%栮d4X%&hf/%d 4>%&5 52hn460K#%&MXI+Y)9+)9)=+=**$ )愦=**$ )愦=))90b)&+ 876:9NP$:' ','a%z" 3'3C&3'(3C&ZA3ˆĦP"i+'-&o A1O_P"Mk'.K'*0%89"4'XI%- XI%'XI%# %'% :     @$ !_HHNS3~NP P$ &  &H#HB&'.< O_%%0 &BD&'< O_% 0 &D9yJ8M7R6I9A:EDHFLBSH2z0?$O_bd3O50&2nnc db%@  '-2enodb &[ @ R'ld2dnbOd2dnd$+b0$"b0!f cX4eg}h2hnO_ ??f$@d0$7d0 eXCS4gi$ eX셤bc ge 2jn4'!+ DV$0&5 XI$0&5 5SHEL4`0fh?%?PROGRAM LP_ADDRESS; {CHANGES THE ADDRESS OF THE SERIAL LINE PRINTER IN MEMORY, TO CIRCUMVENT THE CRC CHECK ON AN ALTERED MODULE ON DISK} VAR LP : RECORD CASE BOOLEAN OF TRUE : (I: ^INTEGER); FALSE: (P: INTEGER); END; JOj5`2fn4 f &_ &^O )&] &d2e%41?4 4 ]4H2Q5 2fnd &a &b-/ ( 2fnO  d &U & _b '? ?$ .dWB2fn4`1f!*&+O_%2%(*;&C#Ж:'bO %)$() : INTEGER; BEGIN {$D-} {DISABLE DEBUG CODE GENERATION} WITH LP DO BEGIN P := $CC89; J := $E400; WRITELN('OLD LP ADDRESS IS:',J:5,I^:5); I^ := $ECB6; WRITELN('NEW LP ADDRESS IS:',I^:5); END{WITH} END. {PROGRAM} LEAX)$$=oo)#=aa$l($=aa$lo)"=aa$l(#=aa$l'$=aa$lo)!=aa$l("=aa$l'#=aa$l&$=aa$lo(!=aa$l'"=aa$l&#=aa$lo'!=aa$l&"=aa$l&!=+ hdicibYIj%)&b$l'&l&& f&l%(2g1DRV fcs "TCAcia" spc 1 emod spc 1 TC1END equ * page end OK LEAX 82,Y STX SUPJTBL STU SUPBEG CLRA CLRB STB MATHERR STB OS9ERR STB START STD LINENUM STD PROCTAB LDD #100 STD HEAPSIZE LDX SUPJTBL JSR OPENERRS,X LDX SUPJTBL JSR SCAN,X LDD((2gO5`2gn4`1h&&!' $&5!&) )$&3%$'2&B"&D$'%523 2cebgd3enCO_CA0'$M*@PlDM&0M+0XI*A9 _Rb.+R'c+ZO_ a"F%df$@c&8 R'Kme+0 E" cdoc  MEMBOT ADDD #481 STD STKBOT LDD #20 STD EXTSIZE LDD #5 STD LOCSIZE CLRA CLRB STD SWAPSIZE LDX SUPJTBL JSR INIT,X LEAX -4,S PSHS X LDD #15 LDX SUPJTBL JSR STACKCHK,X * SOURCE LINE #11 * SOURCE LINE #12 * SOURCE LINE #13 * SOURCE LINE #14 * ' dcfdfe\&c R'me*(df%Ж:'Odf$@Pe2en'_ 2kn& . , - / .+!+_ OB_9 "-%!#&! %'dfAFV %&$ &lA&l'B_9S9' !B# #B&9!m!+ jh$i#i"i!*$$94`f & XSOURCE LINE #15 LDD #-13175 STD -2,Y LDD #-7168 STD -4,Y LEAX A0D0,PC PSHS X LDD #18 PSHS D PSHS D LDD 2,Y PSHS D LDX SUPJTBL JSR WRTSTR,X LDD -4,Y PSHS D LDD #5 PSHS D LDD 2,Y PSHS D LDX SUPJTBL JSR WRTINT,X LDD [-2,Y] PSHS D LDD #O_h &1h35`2dn4`k & VOb I&E ʀ 1f32%02{1t4m3)2e%k )+?$ .S T 5`2in4`2{k &Y ?&M 6&73143)$K k )+?$Lg)2e5`2dn2g4pЖ:&9O O_d,b2d5 PSHS D LDD 2,Y PSHS D LDX SUPJTBL JSR WRTINT,X LDD 2,Y PSHS D LDX 0,S CLR FCCTL,X LDX SUPJTBL JSR PUT,X * SOURCE LINE #16 * SOURCE LINE #17 LDD #-4938 STD [-2,Y] LEAX A0D19,PC PSHS X LDD #18 PSHS D PSHS D LDD 2,Y PSHS D LDX SUPJTBL nO_b,2fnO_fp :'ٮ2fn,bˮ2mnO_bp :&9E.'?.@'M0 ]O b$0 KOBP ' 0E 5΍;%" 0Fb"n?46O 402a50?%946%%\5b '-o ?$ .b?b 52bJSR WRTSTR,X LDD [-2,Y] PSHS D LDD #5 PSHS D LDD 2,Y PSHS D LDX SUPJTBL JSR WRTINT,X LDD 2,Y PSHS D LDX 0,S CLR FCCTL,X LDX SUPJTBL JSR PUT,X * SOURCE LINE #18 * SOURCE LINE #19 P.ABORT EQU * LDX SUPJTBL JSR QUIT,X LDU SUPBEG OS9 F$UNLK ;     BCS *+3 CLRB OS9 F$EXIT P.EXTERR LDD #118 LDX SUPJTBL JSR ERROR,X EMOD P.END EQU * END %k )+?$ .S T 5`2in4`2{k &Y ?&M 6&73143)$K k )+?$Lg)2e5`2dn2g4pЖ:&9O O_d,b2dK#*'&o94''-45?+l/K65'C9/ 0 4'O5Ko/#%*'%m/&o,&9 l,DF'=m,&G & m%&:%& 4% 3_#'ԡ+&m,&&DFD454R*'V &T +4R# &JmH& m''jG& %/&/'oH  Ro#m,&&4m%' %j*O2a5ҍ54roE e0ୄ59/EXORdiskonEXORctl 4`0?15`% 000g1Ħ'=A0G~|& &?%$0 0د_VFJPROCEDURE PRINTER PRINT "CHANGES ADDRESS OF LINE PRINTER FROM E400 TO ECB6" POKE $CC89,$EC POKE $CC8A,$B6 END 4 0j&2a 4 _94`|Z&0&5m!g'ↀm(& mO%ih&&$%`(40&R.' Z*_540A$1~4~5~%5040(ljA$nC509S5_9&''S940_%A%540  b*ms+* &'4ooo''l%=*=o5=4_'*O_%xA%mb?%d0lj~A%D_5AO_4@?_50-J=0O}tyA4@+#礦!@ ' !ގJ*$$΂PROGRAM LP_ADDRESS; {CHANGES THE ADDRESS OF THE SERIAL LINE PRINTER IN MEMORY, TO CIRCUMVENT THE CRC CHECK ON AN ALTERED MODULE ON DISK} VAR LP : RECORD CASE BOOLEAN OF TRUE : (I: ^INTEGER); FALSE: (P: INTEGER); END; Jp$!!&S5`!#*΂$΃$z%΁$ ΂$$'%$'p$l!$j!΃$~@%$'%%$'%%$'_%$'!!%$'%@$'`!΁$L&#*j!j!$_594P60Q66#>#J"54<"65$'Z& : INTEGER; BEGIN {$D-} {DISABLE DEBUG CODE GENERATION} WITH LP DO BEGIN P := $CC89; J := $E400; WRITELN('OLD LP ADDRESS IS:',J:5,I^:5); I^ := $FDF4; WRITELN('NEW LP ADDRESS IS:',I^:5); END{WITH} END. {PROGRAM} FCB %0&΁$΂$$'J&%Z&9j!j! &S5           [,ć2!#&MdrbEXORdisk m2!#&MdrbEXORdisk:lႵ"pi(C)1981Microware?9*'?('?)O9&'04 # 05n&'4 1 Z&_9S9%l,F'=4DH% M',&2b4!S50%m$'G0'+'%2b&Fa%F'mF'4-%' )'.\1#-#-0% 30  &  40 ) bX0b5 Y F ) o v5 : 82b&0FD(+&2b2b0'+ 4 č250'm#' (90'3_0m"' 2 u q+čՍ`-'0$ '+&3_094p*# 4p#*'B(G0' 0I[5m!' a%z" 9m$& &m%&9 $ &4.5 3PCOD?\+P1c1 bLP_ADDRE<     3, , , M̉},M},@11 y1 1,M,@1y1 1,,->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>DD -6,Y SUBD #20 LBNE A0L434 LEAX A0D82,PC PSHS X LDD #19 PSHS D PSHS D LDD 2,Y PSHS D LDX SUPJTBL JSR WRTSTR,X LDD 2,Y PSHS D LDX 0,S CLR FCCTL,X LDX SUPJTBL JSR PUT,X LDB #1 STB -28,Y LDD -18,Y SUBD #1 STD -12,Y A0L434 LDD -12,Y AOLD LP ADDRESS IS:NEW LP ADDRESS IS:DDD #1 STD -12,Y SUBD -18,Y LBNE A0L181 LDD 2,Y PSHS D LDX 0,S CLR FCCTL,X LDX SUPJTBL JSR PUT,X LDD #1 STD -18,Y LDD -10,Y STD -8804,Y LDD #21 STD [-2,Y] LDB -28,Y LSRB LBCC A0L130 LEAX -612,U PSHS X LDX SUPJTBL JSR CLOSE,X LEAX -3[&LP_ADDRE40,U PSHS X LDX SUPJTBL JSR CLOSE,X P.ABORT EQU * LDX SUPJTBL JSR QUIT,X LDU SUPBEG OS9 F$UNLK BCS *+3 CLRB OS9 F$EXIT P.EXTERR LDD #118 LDX SUPJTBL JSR ERROR,X TTL PROCEDURE 1 PAGE P1 EQU * LDA PROCN LDB #1 STB PROCN PSHS A PSHS U LEAU b6A%&F&> &o0/oO4001?*%5턍 ooo 954 0Z&_5401!:5i ' 5 o "&lm'j &m'ooj ) 'm' jm&l40$:l_5OF&7?9lm+ODE? _K6'C9Oo?*9OmE'?oE_904*+.B _scpiuŇ#NulscnuldrY3NULDR    _9O,9S9ӕE'?oE9!O%0& NN O'ӡM&I'˧ 3 PSHS D LDD #0 PSHS D LDD 2,Y PSHS D LDX SUPJTBL JSR WRTSTR,X LBRA A0L385 A0L338 LEAX -612,Y PSHS X LDX SUPJTBL JSR GET,X LEAS -2,S LEAX -612,Y PSHS X LDX SUPJTBL JSR IORESULT,X PULS D STD -8,Y SUBD #0 LBEQ A0L385 LDD -6,Y ADDD #1 K'L&C A焦%&&FA0j1i?*%$0O0d00(Fʀ9&O'%0_N':oNS94DE? K6'#_52fC9ޮ%0'F_9&O' $d&9S9'S9KDC&STD -6,Y LEAX A0D77,PC PSHS X LDD #3 PSHS D PSHS D LDD 2,Y PSHS D LDX SUPJTBL JSR WRTSTR,X LDD -6,Y PSHS D LDD #2 PSHS D LDD 2,Y PSHS D LDX SUPJTBL JSR WRTINT,X LEAX A0D81,PC PSHS X LDD #3 PSHS D LDD #0 PSHS D LDD 2,Y PSHS D LDX S?*9pڇ8*.1 *TERscaci3r6*,/ *tscaciၬq6*,/B _*Pscaci `#NulscnuldrY3NULDR    _9O,9SUPJTBL JSR WRTSTR,X A0L385 LDD -6,Y SUBD #20 BNE *+6 LDB #1 BRA *+3 CLRB PSHS B LDD -8,Y SUBD #0 BNE *+6 LDB #1 BRA *+3 CLRB ORB ,S+ LSRB LBCC A0L271 LEAX -612,Y PSHS X LDB #1 PSHS B LDX SUPJTBL JSR IOABORT,X LDD #0 STD -14,Y L9ӕLDD #8 PSHS D LDX SUPJTBL JSR FIELDGET,X PULS D STD -10,Y LBRA A1L128 A1L124 LDD #10 STD -10,Y A1L128 LEAS ,U PULS U PULS A,X STA PROCN LEAS 2,S JMP ,X EMOD P.END EQU * END  ? 4  ^54"4@3 =0 O_04 OZ^=      RXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX NAM EXAMPLE OPT -M USE /D0/DEFS/OS9DEFS * OS-9 SYSTEM FILE INCLUDED ORG 0 LINLEN RMB 2 INPBUF RMB 80 RMB 200 STACK EQU .-1 DATMEM EQU . MOD ENDPGM,NAME,OBJCT+PRGRM,REENT+1,ENTRY,DATMEM NAME FCS /EXAMPLE/ ENTRY EQU * LEAX OUTSTR,PCR LDY #STRLEN LDAXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXDI EEN DI TWEE DI DRIE DI VIER DI VIJF DI ZES TEMP A/M  #1 OS9 I$WRLN BCS ERROR ERROR OS9 F$EXIT OUTSTR FCC /HELLO WORLD/ FCB $D STRLEN EQU *-OUTSTR EMOD ENDPGM EQU * \[ZYX WVUTSRQPLATHE A/M INLET SW EXHAUSTsw XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX R " XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXDO VIJF DO ZES DO ZEVEN DO ACHT XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXANA. EEN X ANA TWEE X ANA DRIE X ANA VIER X XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 1"ҐUF 1 vr=1%Dvrvr 9>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX RXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXANA. EEN X  ANA TWEE X  ANA DRIE X  ANA VIER X   3PCOD?\+P1c1RRECEIVE_>     3(y11}đQFOݜB(y11‘}MQOݜ‘ByQF6U6d}(y11}}đQQFđQF(y11}D}$>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> $E220 endc ifeq CPUTYP-PCU09 CPORT set $ED60 endc ifeq CPUTYP-SSB CPORT set $F700 endc endc ifeq CLKTYP-ASMCLK CPORT set $EF00 endc spc 4 * I/O PORT ADDRESSES spc 2 ifeq CPUTYP-EXORSR EXORCISER SYSTEM A.TERM set $FCF4 ACIA MASTER TERMINAL A.T3Mq=p6 qq=p6 qM}6UM}O@@1@11O1OO7OO@1O@&1#@0@71#}}}򲥅0Oݜ‘ByQ|ˑ}@A1˓1 @G1}OݜByFONOݜBy+}MQOݜByQF}O1-)>>1 set $ECB2 ACIA I/O A.P set $EC10 PIA PRINTER PIASID set a.side A.P1 set $ECB6 ACIA PRINTER endc ifeq CPUTYP-PCU09 A.TERM set $ED00 ACIA master terminal A.T1 set $EF10 ACIA secondary terminal A.P set $ED80 PIA Printer PIASID set a.side A.P1 set O1~O=1%OOGO1(O1"}O1UF}@H11 @L1D/O1(O1"}UF}@M11 @Q1QQFO=1%}QF@R11=|‘}}QF1}OݜBF11->>>>>>>>>>>>>>>>>>>>>>>>>>>>>$EE00 ACIA serial printer endc ifeq CPUTYP-MM19 A.TERM set $EF14 ACIA MASTER TERMINAL A.T1 set $EF28 SECONDARY TERMINAL A.P set $EF10 PIA PRINTER PIASID set a.side A.P1 set $EF26 ACIA PRINTER endc ifeq CPUTYP-GIMIX A.TERM set $E004 ACIA Master T/TERM FN FILENAME: G G /TERM OUTPUT BLOCKPUTGETUNRECOVERABLE ERRORerminal A.T1 set $E020 ACIA Secondary Terminal A.P set $E040 PIA Printer (B-side) PIASID set a.side A.P1 set $E030 ACIA Printer endc ifeq CPUTYP-SWTC A.TERM set $E004 ACIA MASTER TERMINAL A.T1 set $E010 SECONDARY TERMINAL A.P set $E070 PIA PR"d)fRECEIVE_READBYTEINTER PIASID set a.side A.P1 set $E000 ACIA PRINTER endc ifeq CPUTYP-S09 A.TERM set $E004 ACIA MASTER TERMINAL A.T1 set $E010 SECONDARY TERMINAL A.P set $E080 PIA PRINTER PIASID set MP.L2 A.P1 set $E000 ACIA PRINTER endc ifeq CPUTYP-SSB A.TERMPORT ADDRESS spc 2 DPORT set 0 ifeq (DSKTYP-GMX58)*(DSKTYP-DC3) DPORT set $E014 endc ifeq DSKTYP-DMAF2 DPORT set $E400 endc ifeq DSKTYP-BFD68 DPORT set $DFFC endc ifeq DSKTYP-DCB4 ifeq CPUTYP-SSB DPORT set $F760 endc ifeq CPUTYP-GIMIX DPORT set  set $F7E8 ACIA MASTER TERMINAL A.T1 set $F7E0 SECONDARY TERMINAL A.P set $F7F8 PIA PRINTER PIASID set a.side A.P1 set $F7EA ACIA PRINTER endc ifeq CPUTYP-EXRSET A.DSPL set $EF00 MC6845 CRTC is Master Display A.KBRD set $EF80 PIA is Master Keyboar$E600 endc endc ifeq DSKTYP-EXDISK DPORT set $EC00 endc ifeq DSKTYP-MC6843 DPORT set $EC00 endc ifeq DSKTYP-SYNERTEK DPORT set $E800 endc spc 4 * CLOCK PORT ADDRESS spc 2 CPORT set 0 ifeq CLKTYP-MC6840 ifeq CPUTYP-PCU09 CPORT set $EF20 endcd A.TERM set $ec16 Exorterm terminal A.T1 set $EF40 ACIA Secondary Terminal A.P set $EF60 PIA Printer (B-side) PIASID set a.side A.P1 set $EC16 ACIA Printer endc ifeq CPUTYP-CMS9609 A.TERM set $E3C0 A.T1 set $E3C8 A.P set $E3D0 PIASID set a.side A ifeq CPUTYP-MM19 CPORT set $EF18 endc ifeq CPUTYP-GIMIX CPORT set $E210 endc ifeq CPUTYP-S09 CPORT set $E090 endc ifeq CPUTYP-EXRSET CPORT set $EF20 endc endc ifeq CLKTYP-MPT CPORT set $E050 endc ifeq CLKTYP-M58167 ifeq CPUTYP-GIMIX CPORT set.P1 set $E3C8 endc opt l uffer's NEXT-OUT Pointer orcc #IRQM Calm interrupts cmpx INXTI,u any data available? beq READ00 No; go wait lda ,x+ Yes; get the next character and increment pointer cmpx INEND,u At the end of the buffer? bls READ10 No; ski?     /R - R  8<x8*.1 *TERscaci3r6*,/ *tscaciၬq6*,/B _*Pscaci `0 Shel (C)1981Microware OS9:oab;46s0? 5' %U &P0 &H & 0 nam TCACIA ttl Device driver with Read timeout spc 2 ************************************************************************** * * * ACIA - Interrupt Driven ACIA Device Dri?O0?$ ' &#? '$]& eof &0_?P?9oZ*9qCHCHZEKIL-ww-xy-SETP!&>ݣ () !#&;<> 1%P 'L (&$10 1΍}(')&$ &  #%1b0ver * * with the Inclusion of a Timeout upon * * a Read request. * * * * 1=% &- &% $1x9?$ .& '10O9S09$4 C% 줭5 $9O55 4 m+&54 ',' 05"52b '09401"䦀a% H&$?%%O51?*b&S5TO:2'??L4 F ?9O  9 O 9 O (C) 1982 Advanced Semiconductor Materials * * * ************************************************************************** spc 2 ifp1 use ../../defs/os9defs 9 &94J*f54m'??'o?5WHAT? 0_C9   m&4 ?%Ŧ?a&?  ?a5 &K&0=M&0{ s%%  &2d_R^%& O4?M&&#'?o %'m']'4-5]'C5 use ../../defs/scfdefs endc spc 1 INPSIZ set 128 Input Buffer Size OUTSIZ set 128 Output Buffer Size spc 1 ININTR set %10000000 Control Bit to Allow Input Interrupts OTINTR set %00100000 Control Bit to Allow Output Interrupts spc 1 PARITY set %01000009BASIC0PASCAL 4p?$t'L'H&sO?$?%f'0m'T'm* 4@?5@4?50d% X 0 e?45?C5/pipe 405%O]%JO?%DO?A?@46440a/\d$:Z $瀋0 0G2e50 Parity Error Status Bit OVERUN set %00100000 Overrun Error Status Bit FRAME set %00010000 Framing Error Status Bit NOTCTS set %00001000 Not Clear-to-Send Status Bit DCDLST set %00000100 Data Carrier Lost Status Bit READY set %00000001 Input Register has  %#?9_0 " 4 =$廬%]&2b5ٖ? 9!~ 9SysG(C)1981MicrowareCmds Shell STARTUP -P 0>? 0߆?%,03 ?%?0?%?$n;:"O_*탬(&%l-&l,&l+ & 5+-2d94PZ& %N&'GfData Status Bit spc 1 RESET set 3 ACIA Master Reset Control Command DEFAULT set $15 Default ACIA Control Value spc 1 WAIT set 0 Time out to wait for I/O TIMEOUT set 6 Time out value = 3 seconds (500 msec clock) spc 1 INPERR set PARITY+OVERUN+FRAME+NOTCT"Acia" spc 1 emod spc 1 TC1END equ * page end ; set error bit orb V.ERR,u stb V.ERR,u bra ACIA26 and discard character ACIA25 equ * stx INXTI,u Save the new pointer ACIA26 equ * beq WAKEUP ..pass nulls without editing checks cmpa V.PCHR,u PAUSE S+DCDLST An Error Condition spc 2 * Static Storage Requirements spc 1 org V.SCF Space for SCF fixed variables INXTI rmb 2 Input Buffer NEXT-IN Pointer INXTO rmb 2 Input Buffer NEXT-OUT Pointer INEND rmb 2 Input Buffer end ONXTI rmb 2 Output Buffer@      R   (Data Status Bit spc 1 RESET set 3 ACIA Master Reset Control Command DEFAULT set $15 Default ACIA Control Value spc 1 WAIT set 0 Time out to wait for I/O TIMEOUT set 6 Time out value = 3 seconds (500 msec clock) spc 1 INPERR set PARITY+OVERUN+FRAME+NOTCT nam Toggle ttl Basic09 Called Proceedure for Toggling the EOR Character spc 2 *********************************************************************** * * * Proceedure for ChaS+DCDLST An Error Condition spc 2 * Static Storage Requirements spc 1 org V.SCF Space for SCF fixed variables INXTI rmb 2 Input Buffer NEXT-IN Pointer INXTO rmb 2 Input Buffer NEXT-OUT Pointer INEND rmb 2 Input Buffer end ONXTI rmb 2 Output Buffernging the EOR Character * * which is Callable from a Basic09 Program. * * * * (C) 1982 Advanced Semiconductor Materials *C5/pipe 405%O]%JO?%DO?A?@46440a/\d$:Z $瀋0 0G2e5 %#?9_0 " 4 =$廬%]&2b5ٖ? 9!~ 9SysG(C)1981MicrowareCmds Shell STARTUP -P 0>? 0߆?%,03 ?%?0 * * *********************************************************************** spc 2 ifp1 use ../../Defs/os9defs use ../../Defs/scfdefs endc spc 2 * Module Header spc 1 TypeMo?%?$n;:"PROC Get Pointer to current process descriptor lda P$ID,x Get Process ID sta V.BUSY,u and set in static storage sta V.LPRC,u ldx ONXTI,u Check to see if all data transmitted orcc #IRQM Inhibit interrupts cmpx ONXTO,u Output cd set SBRTN+OBJCT Version set REENT+1 mod TogglEnd,TogglNam,TypeMod,Version,TogglEnt,0 spc 1 TogglNam fcs "Toggle" spc 2 * Format of Passed Parameters spc 1 * Stack_Pointer = Return Address * Stack_Pointer + 2 = Parameter Count Pa R   ssed by Basic09 * Stack_Pointer + 4 = Pointer to Path Number * Stack_pointer + 8 = Pointer to Variable to Set spc 2 * This Proceedure Return in variable pointed to by * Stack_Pointer + 8 the previous value in PD.EOR. spc 2 *  nam CLOCK ttl Clock Device Driver for Special ASM Clock spc 2 ************************************************************************* * * * Clock Module for Special ASM Data Definitions spc 1 ParmCnt set 0 Parameter count PathNum set 2 Pointer to the path number passed EORChar set 6 Pointer to the EOR Character Passed page * Entry Point of the Toggle Proceedure spc 2 TogglEnt equ * leau 2,s Set "u" to point to Clock * * * * (C) 1982 Advanced Semiconductor Materials * * * *** passed parameters ldd ParmCnt,u Get passed parameters count cmpd #2 Was enough passed? blo ErrorCnt ..No; error exit bhi ErrorCnt ..No; error exit leas -32,s Create storage for Get/Put Status System calls ldx PathNum,u Get path number pointer ldb P********************************************************************** spc 2 ifp1 use ../../defs/os9defs use ../../defs/systype endc spc 1 * Clock Module Header spc 1 ModType set SYSTM+OBJCT Version set REENT+1 mod ClkEnd,ClkNam,ModType,A     Version,ClkEnt,CPORT ClkNam fcs "Clock" spc 1 ClkPrt equ M$STAK Stack has Clock's Port Address INTVAL set 2 Ticks per Second spc 2 * Static Data Definitions spc 1 TIMSVC equ * fcb F$TIME fdb TIME-*-2 fcb $80 spc 2 * Calander Taet to new Minutes Tick30 equ * clrb Reset to new Seconds Tick35 equ * std D.MIN Store new Minutes and Seconds lda D.TSEC Get Ticks/Second sta D.TIC Reset Time/Slice Tick50 equ * jmp $E1DA Go to system clock routine in EXORciser version *jmp [CLOCK] Goble spc 1 Months equ * fcb 0 Uninialized Month fcb 31 January fcb 28 February fcb 31 March fcb 30 April fcb 31 May fcb 30 June fcb 31 July fcb 31 August fcb 30 September fcb 31 October fcb 30 November fcb 31 December page * Clock I to System Clock Routine page * Clock Module Initialization Routine spc 2 ClkEnt equ * pshs dp Save Direct Page clra Set Direct Page to tfr a,dp O/S Direct Page pshs cc Save Interrupt Masks lda #INTVAL Set Ticks/Second sta D.TSEC sta D.nterrupt Service Routine spc 2 NotClk equ * jmp [D.ISVC] Go to normal I/O interrupt service handler spc 1 ClkSrv equ * ldx %7:+<- $&$+/-R $%%4TO.$2e2ehef5T&?e4 <$2c(.54j'Z&_53&a45įA L%a&(ĞK AO_CEGIKMO0C?H0c'J540_L4瀬%2b %O_J2e T5R455 4 $f 9IOMA(C)1981Microware+$hf* =M%*\0o\"*- =@P0`, =@P0\$nb^d?0%d?10:1?294@?(%0154p*M4`Q% mH&F3IZ&`@%64DB`cOB&M&L3IZ&a 05Daf$oJ*3IZ&O5S5D4S5&4&6&(JO_IL !0%O_+-ħ3I/K5I%;ĊJ L%+o.%#. 784=5> 'J*?($9(&K4#>0!=054 !!%=K!5!' 4!'' F'3IZ&S9[u F!;U&0 0" 4X05nS9oZ*oAiD?%%do$OkK0ˆ?%dI0ˆ?$3?2S5f* `D'd&mk&Ĭ& BbmH'j3IZ&m&`D'3IJ& 'p4"$ e4 %&&S2bۆ=%R%o%+%(j'% (O_/ %45(%5 *'EH,&D+' r%D+H-9%F'040404D4*&K.&7b'3%z((%il-&l,&l+(L(jb&צ**b'*& b&D^ \$ |%\'^\ b^md o˃$./A %mZ*Di Ĥ i&mj'ŀ'lHo2_9mj&׮db HjHFD33?_9%4A %5A95AR%l"9K0&Om' L%S99%4R 5R%A熧A94Ao% 5Z%A954%A%<(O.3Pb#b4ba..& l-&l,&l+dbn(2j9-/,+% &]&0&S9F"F_9Z&9&F_2j9_F'-+4b/5% /F%04040 4DF4Z&**9v%IF'E0)404084DF4 Z' &OPJ     bb9 ' b'&FbF2j94 _F'D 1?'& @PFF5 ;B'&oBF45F9&oBF4$ & /DH9& +D-H9 B& D( *&+/4HD/a%& ]&$_9!4& 6& !'%4&6' k$4S5('*'?('?)O9&'04 # 05n&'4 1 Z&_9S9%l,F'=4DH% M',&2b4!S50%m$'G0'+'%2b&Fa%F'mF'4-%' )'.\1#-#-0% 30  &  40 )?)_94p/'8!K3$'3FB!4D5愄@&@0O_45*0b愄@'%(H4I5N _%(N4$%O_e+-g$l {%v(c4m'0?%;5b#d^451+ /'?_ ;h& f#h11a1 j&X0b5 Y F ) o v5 : 82b&0FD(+&2b2b0'+ 4 č250'm#' (90'3_0m"' 2 u q+čՍ`-'0$ '+&3_094p*# 4p#*'B(G0' 0I[5m!' a%z" 9m$& &m%&9 $ &4.52ael-&l,&l+$&g&2c54758+:0-<94@?$_3*\&\.'Z' 1_$O C5Ā4%(K A5'HHH4ġ'S2b5.$l/C%@S+-4/%!(0O_*탬(&%l-&l,&l+ & 5+-2d94PZ& %N&'GfK#*'&o94''-45?+l/K65'C9/ 0 4'O5Ko/#%*'%m/&o,&9 l,DF'=m,&G & m%&:%& 4% 3_#'ԡ+&m,&&DFD454R*'V &T +4R# &JmH& m''jG& %/&/'oH %E+-4P/+-5P+-$('C $$'m'0M&.$.$ 5/94P%[%V(O_IK0'*G$ ?45&& % 턦JJ$lI 5_L4 _'JJ$lI0%S2b094v4 ddfe$le&ldDV$%(#m,&&4m%' %j*O2a5ҍ54roE e0ୄ59/EXORdiskonEXORctl 4`0?15`% 000g1Ħ'=A0G~|& &?%$0 0د_VFJb3dO_?4&$1&2dho2f5?l%5ho5 hiihiDV$_5/+-$'WC9,m.'44F haiDV$5'"04$lp$2d''C9%\ %S5(K/I_L40 &'1*4 0j&2a 4 _94`|Z&0&5m!g'ↀm(& mO%ih&&$%`(40&R.' Z*_540A$1~4~5~%5040(ljA$nC509S5_9&''S940_%A%540%%b_%bO_b% b0%O_2d94p dff$ l&l&ldfDV$'ۦ&"%(?b@%_5o x$9?+%SK6&#&뮨&Kħ_Ѯo_ 4P% %**54P%**5,+&$_94@h%O*ms+* &'4ooo''l%=*=o5=4_'*O_%xA%mb?%d0lj~A%D_5AO_4@?_50-J=0O}tyA4@+#礦!@ ' !ގJ*$$΂O_(0(4'+&,"0%O_S 2b54%_'$5_*&%**45 9}%b4v#BD'?+D&KDb4@ 5@D$a54#섮 d545 4'5& S9,+9p$!!&S5`!#*΂$΃$z%΁$ ΂$$'%$'p$l!$j!΃$~@%$'%%$'%%$'_%$'!!%$'%@$'`!΁$L&#*j!j!$_594P60Q66#>#J"54<"65$'Z&_4P*'**' **'5as с!SC(C)1981Microware$!A #;&D4 ?%?+0?$tD5 !'>?(%f(_ bYkee* B lbm1 I r|j+y5OZ &Z&#')B(D6'0!G4!H?% *O95S9%0&΁$΂$$'J&%Z&9j!j! &S5           [,ć2!#&MdrbEXORdisk m2!#&MdrbEXORdisk:lႵ"pi(C)1981Microware?9K     6A%&F&> &o0/oO4001?*%5턍 ooo 954 0Z&_5401!:5i ' 5 o "&lm'j &m'ooj ) 'm' jm&l40$:l_5OF&7?9l?M&&#'?o %'m']'4-5]'C59BASIC0PASCAL 4p?$t'L'H&sO?$?%f'0m'T'm* 4@?5@4?50d% X 0 e?45?C5/pipe 405%O]%JO?%Dm+ODE? _K6'C9Oo?*9OmE'?oE_904*+.B _scpiuŇCaci6PSA|NN&+'%0!&E'?oE9!O%0& NN O'ӡM&I'˧ O?A?@46440a/\d$:Z $瀋0 0G2e5 %#?9_0 " 4 =$廬%]&2b5ٖ? 9!~ 9SysG(C)1981MicrowareCmds Shell STARTUP -P 0>? 0߆?%,03 ?%?0?%?$n;:"11DYO>K'L&C A焦%&&FA0j1i?*%$0O0d00(Fʀ9&O'%0_N':oNS94DE? K6'#_52fC9ޮ%0'F_9&O' $d&9S9'S9KDC&o; Indicate an error ldb #E$NRDY and not ready status rts GETS20 equ * bpl GETS30 Amount of data is already valid addd #INPSIZ Adjust amount because of queue wrap around GETS30 equ * ldx PD.RGS,y Point to register file std R$A,x Store count to be ret?*9pڇ8*.1 *TERscaci3r6*,/ *tscaciၬq6*,/B _*Pscaci `#NulscnuldrY3NULDR    _9O,9Surned bra WRIT90 and take normal exit GETS10 equ * cmpa #SS.EOF End of File Code? beq WRIT90 ..Yes; Return no error spc 1 PUTSTA equ * comb Indicate an Error ldb #E$USVC Error code - Unknown Service Call rts page * TRMNAT - Terminate Device Dri9ӕ (Clocn8''O Y&FW\<%9L<%3U\%)L0T& S'&JT#S\ %LS_UO_WZYn4O4ZY[HP02eaSo51X?25DSUW_9i0 Shel (C)1981Microware ver Processing * * Upon Entry: * U = Static Storage Pointer * Y = Path Descriptor Pointer * * Upon Exit: * Nothing changed spc 2 TRMN00 equ * bsr ACSLEP Wait for I/O activity to cease TRMNAT equ *OS9:oab;46s0? 5' %U &P0 &H & 0?O0?$ ' &#? '$]& eof &0_?P?9oZ*9qCHCHZEKIL-ww-xy-SETP!&>ݣ () !#&;<> 1%P 'L (&$ ldx D.PROC Get Pointer to current process descriptor lda P$ID,x Get Process ID sta V.BUSY,u and set in static storage sta V.LPRC,u ldx ONXTI,u Check to see if all data transmitted orcc #IRQM Inhibit interrupts cmpx ONXTO,u Output complete bne TRMN10 1΍}(')&$ &  #%1b01=% &- &% $1x9?$ .& '10O9S09$4 C% 줭5 $9O55 4 m+&54 ',' 05"52b '09401"䦀a% H&$?%%O51?*b&S5TO:00 ..No; wait a bit lda #RESET ..Yes; Reset ACIA sta [V.PORT,u] andcc #$FF-IRQM Allow interrupts ldx #WAIT os9 F$IRQ Remove this device from I/O Poll queue rts Exit page * ACIRQ - Interrupt Processor for Input and Output * * Upon Entry2'??L4 F ?9O  9 O 9 O9 &94J*f54m'??'o?5WHAT? 0_C9   m&4 ?%Ŧ?a&?  ?a5 &K&0=M&0{ s%%  &2d_R^%& O4: * U = Static Storage Pointer * X = Port Address * A = Contents of Status Register * * Upon Exit: * nothing changed except I/O processed spc 2 ACIRQ equ * ldx V.PORT,uL      Get Port pointer anda #INPERR Mask off any error bits ora V.ERR,u and update with saved error bits sta V.ERR,u lda ,x+ Restore ACIA status condition and update pointer bita #READY Input Ready? bne INACIA ..Yes; go process input * * spc 2 nam TC1 ttl Device Descriptor for Tube Controller Port page ************************************************************************** * * * TC1 -- Device Descripto or fall through for output OACIA equ * ldy ONXTO,u Get NEXT-OUT Pointer cmpy ONXTI,u Buffer already empty? beq OACIA2 ..Yes; go disable output interrupts lda ,y+ Get next character to output and increment pointer cmpy ONEND,u At bottomr Module for Tube Controller * * ACIA Ports. * * * * (C) 1982 Advanced Semiconductor Materials  of buffer bls OACIA1 ..No; skip leay OUTBUF,u ..Yes; Reset pointer to top of buffer OACIA1 equ * sty ONXTO,u Save updated pointer sta ,x Write the character cmpy ONXTI,u Last character in buffer? bne WAKEUP ..No OACIA2 equ * lbsr INIT30 ..Yes; turn * * * ************************************************************************** spc 2 ModType set DEVIC+OBJCT mod TC1END,TC1NAM,ModType,Version,TC1MGR,TC1DRV,0 fcb Capabil  off transmitter interrupts WAKEUP equ * ldb #S$WAKE Send Wake-Up signal lda V.WAKE,u if owner waiting WAKE10 equ * beq WAKE90 ..No owner os9 F$SEND WAKE90 equ * clr V.WAKE,u Reset owner pending rts Return to I/O Poll Routine spc 2 INACIA equ * ldafcb $FF fdb $ECB2 Port Address fcb TC1NAM-*-1 Option Byte Count fcb DT.SCF File Manager Device Type spc 1 * Default Parameters spc 1 fcb 0 Case = Upper and lower fcb 0 Backspace = not used fcb 0 Delete = not used fcb 0 Auto Echo = off fcb  ,x Read a character from the ACIA ldx INXTI,u Pointer to NEXT-IN in input buffer sta ,x+ Save the new character and update the pointer cmpx INEND,u At the bottom of the buffer bls ACIA2 ..No; skip leax INPBUF,u ..Yes; reset pointer to the top of the 0 Auto Line Feed = off fcb 0 Null Count = not used fcb 0 End-of-Page Pause = not used fcb 255 Lines per Page = Maximum fcb 0 Backspace Character = not used fcb 0 Delete Line Character = not used fcb C$CR End-of-Record Character = Carriage Return fcbbuffer ACIA2 equ * cmpx INXTO,u Input overrun? bne ACIA25 ..No; good ldb #OVERUN ..Yes; set error bit orb V.ERR,u stb V.ERR,u bra ACIA26 and discard character ACIA25 equ * stx INXTI,u Save the new pointer ACIA26 equ * beq WAKEUP ..pass nulls withou 0 End-of-File Character = not used fcb 0 Reprint last line character = not used fcb 0 Duplicate last line character = not used fcb 0 Pause character = not used fcb 0 Keyboard Interrupt character = not used fcb 0 Keyboard Abort character = not used ft editing checks cmpa V.PCHR,u PAUSE Character? bne ACIA3 ..No; skip ldx V.DEV2,u ..Yes; get pointer to pause device static storage beq WAKEUP ..None; exit sta V.PAUS,x ..Yes; request pause bra WAKEUP and exit ACIA3 equ * ldb #S$INTR Interrupt signacb 0 Backspace Echo character = not used fcb 0 Line overflow character = not used fcb $15 ACIA Control character = 8 bit not parity fcb C$CR Baud Rate field is EOM field = carriage return fdb TC1NAM Echo device name TC1NAM fcs "TC1" TC1MGR fcs "scf" TCl cmpa V.INTR,u Keyboard interrupt? beq ACIA4 ..Yes; go interrupt process ldb #S$ABT Abort signal cmpa V.QUIT,u Keyboard abort? bne WAKEUP ..No; just exit ACIA4 equ * lda V.LPRC,u Last process ID bra WAKE10 Send error signal spc 2 emod ACIEND equ 1DRV fcs "Acia" spc 1 emod spc 1 TC1END equ * page end Sleep until all characters sent tst V.MESS,u EOM sent Yet? bne WRIT91 ..No; continue sleeping lda V.BUSY,u ..Yes; Put current process ID into sta V.WAKE,u wake variable for wake up signal ldx