@L}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` EI=EHX;X;X;X;$X;.X;8AUX;;usageBZP;;usageLIOCB1;;fr0lVIOCB2;;fr0h`X;j}ICCOMB;;IOCB commandtICSTAC;;IOCB status~ ICBALD;;IOCB buf adr (LO) ICBAHE;;IOCB buf adr (HI) ICBLL}H;;IOCB buf len (LO) ICBLHI;;IOCB buf len (HI)ICAX1J;;IOCB aux 1ICAX2K;;IOCB aux 2X;GETBR;;g}et binary recordPUTBR ;;put binary recordX;CR;;carriage returnCIOV;;CIO vectorX;X; X; START}7(X;27<7FT?PT?ZT?dT?n PIOCB1x>X;77T?T?T?T? PIOCB2?X;7 PICBAH9 PIC }BAH87 PICBAL9 PICBAL8"X;,76 PICBLH9@ PICBLH8J7T PICBLL9^ PICBLL8hX;r Q>GETBR| PICCOM9 Q>PUTBR } PICCOM8X;X; READBLOCK CIOGLASTBLOCKX; $IOCB2 CIO GERROR $IOCB1IREADBLOCKX;X; } LASTBLOCK& %IOCB20 QICBLL9: PICBLL8D QICBLH9N PICBLH8X $IOCB2b CIOl ERRORv QICSTA9 PIOCB1Q> P }IOCB2:X;X;X;X;$X;.X;8AUX;;usageBZP;;usageLIOCB1;;fr0lVIOCB2;;fr0h`X;jehhh Ԫhh ըhEEhDDhIIhHHB B V0 V0սHHII VCԩ`B2;;fr0h`X;jl@@ ..@@ D:COPY.OBJECT##@@E:;-@}@$)@( ;*@A%(:)@#*@@'0*@: @@ D:COPY.BAS| COP ss6-C:fhhh Ԫhh ըhEEhDDhIIhHHB B V0 V0սHHII } VCԩ`,%%err=USR(COPY,src,des,start,len)D:*.USRDhIIhHHB B V0 V0սHHII E EI=EHX;X;X;X;$X;.X;8AUX;;usageBT1;;temp 1LT2;;temp 2VFR0;;fp-reg 0`X};jICDNOA;;IOCB device #tICCOMB;;IOCB command~ICSTAC;;IOCB status ICBALD;;IOCB buf adr (LO) ICBAH}E;;IOCB buf adr (HI) ICBLLH;;IOCB buf len (LO) ICBLHI;;IOCB buf len (HI)ICAX1J;;IOCB aux 1ICAX2K;;}IOCB aux 2X;GETTR;;get text recordX;CR;;carriage returnCIOV;;CIO vectorX;LEN;;buf X;}X;X;( START27<X;F7P7ZT?dT?nT?xT?>X;7 PAUX7PAUX,O> PICBAL9 QAUX}O> PICBAH9X; Q>GETTR PICCOM9 Q>LEN" PICBLL9,Q>6 PICBLH9@ PFR0J CIOTX;^%> hBACKr Q@}AUX7|3 P@AUX711)>  HBACK%>Q> D P@AUX73 QICDNO9L>0;;to ASCII number P@AUX73 Q@}AUX7R> ;;blank ? FOKAY&Q>;;eof error0 GINTRO:OKAYDQ> :N P@AUX7X SEARCHb3l Q@AUX7vR>  FFOUND})>  HSEARCH FOUNDQ> . P@AUX7Q> PT1COPY'T2%T1 Q@AUX73)>  FFERTIG'T1 %T2}*34 P@AUX7> ICOPYH FERTIGR%T2\Q> ;;blankf DELETEp )>LENzFEOF3 P@AUX7 HDELETEX;EOFQ>} INTROPFR0:X;X;X;\Q> ;;blankf DELETEp )>LENzFEOF3 P@AUX7 HDELETEX;EOFQ>(hhh hhiDiEBHI V ȑЈ DȽA 0ȱ 0::ȱ  .Щ ҄Ӥұ }Ҥȑө ȑ`iEBHI V ȑЈ DȽA 0ȱ 0::ȱ  .Щ ҄Ӥұ 5J 11@@D:DIRFILE.OBJECT##@@E: }G-@@$)@( ;*@A%G6-(R)@6-%@1*@@'>*!}@R @@@2,6-"*@AU, @@ D:DIRFILE.BAS@1*@@'>*^" FILENAMEFILENAM ;AF,6-C:,ZZ6.Phhh hhiDiEBHI#} V ȑЈ DȽA 0ȱ UU67@,.B0::ȱ  .Щ ҄Ӥұ Ҥȑө ȑ`($}&&err=USR(FILENAME,dev,buf[15Byt])D:F*.USR,.B0::ȱ  .Щ ҄Ӥұ Ҥȑө ȑ`(4 EI=EHX;X;X;X;$X;.X;8AUX;;usageBZP;;usageLIOCB1;;fr0lVIOCB2;;fr0h`X;j &}ICCOMB;;IOCB commandtICSTAC;;IOCB status~ ICBALD;;IOCB buf adr (LO) ICBAHE;;IOCB buf adr (HI) ICBLL '}H;;IOCB buf len (LO) ICBLHI;;IOCB buf len (HI)ICAX1J;;IOCB aux 1ICAX2K;;IOCB aux 2X;GETBR;;g (}et binary recordPUTBR ;;put binary recordX;CR;;carriage returnCIOV;;CIO vectorX;X; X; START )}7(X;27<7FT?PT?ZT?dT?n PIOCB1x>X;77T?T?T?T? PIOCB2?X;7 PICBAH9 PIC *}BAH87 PICBAL9 PICBAL8"X;,76 PICBLH9@ PICBLH8J7T PICBLL9^ PICBLL8hX;r7| PAUX7PAUXX; +} Q>GETBR PICCOM9 Q>PUTBR PICCOM8 HSHORT?X;X; READBLOCK CIOGLASTBLOCKX; $IOCB2 CIO& ,}GERROR0 $IOCB1:;DQAUXN SICBLL9XPAUXb QAUXl SICBLH9v PAUXX; SHORT?QAUX RICBLL9 QAUX -} SICBLH9EREADBLOCKX;QAUX PICBLL9 QAUX PICBLH9X; CIO X; LASTBLOCK  %IOCB2* QICBLL94 .} PICBLL8> QICBLH9H PICBLH8RC\>f CIOp ERRORz QICSTA9 PIOCB1Q> PIOCB2:X;X;X;h`X;j vhhh Ԫhh ըhEEhDDhIIhHHhhЩB B V01 V0=8HХIѥHIץНHѝI V$0}սHHII VCԩ`EhDDhIIhHHhhЩB B V01 V0=8HХIѥHIץНHѝI V$3F //@@D:COPYX.OBJECT##@@E:(2}G-@@$)@( ;*@A%G6-(R)@6-%@1*@@'>*@(3}R @@@2,6-"*@AU, @@ D:COPYX.BAS##@@E:(Z   COPYXCOPY ;AH,6-C:,ZZ6.Phhh Ԫhh ըhEEhDDhIIhHHh,5}hЩB B V01 V0=8WW67@,.DHХIѥHIץНHѝI VսHHII VCԩ`($$e,6}rr=USR(COPYX,s,d,buf,len,anz) D:COPYX.USRAH,6-C:,ZZ6.Phhh Ԫhh ըhEEhDDhIIhHHh,1 EI=EHX;X;X;X;$X;.X;8HATABSBX;LX;VX;` STARTj7tX;~$> SEARCH QHATABS08}9 FFOUNDR> Z FFOUND222 HSEARCHX; FOUNDQ> Z PHATABS9  Q>4TABLEPHATABS9 Q>5TABLE(09}PHATABS92:<X;FX;P TABLEZ OPENd CLOSEn GETx PUT STATUS SPECIAL !INITX0:};X;INITOPEN CLOSEPUT STATUS%> SPECIAL:X;X;GET"%>,:6X;@X;JX;TQHATABS0u5h ZZ!`//2//1L0``PECIAL:X;X;GET"%>,:6X;@X;JX;TQHATABS4< 11@@D:ZDRIVER.OBJECT##@@E:;-8=}@@$)@( ;*@A%(:)@#*@@'0*@: @@ D:ZDRIVER8>}.BAS 11@@D:ZDRIVER.OBJECT##@@E:;-8ZDRIVE CC6-C:6h ZZ!`//2//1L0``,\P6-?:C:.hhhhhh<@}h`,<<A6<@T,\6-A6(x=USR(ZDRIVER)2LOOP Q@AUX7> R>A;;end FDONEM> @D}FOKAY R>;;jmp to loc FJUMPR>;;GR.8 ?( HOKAY2A<M>;;GR.8 to GR.7+F P@AUX7PM>@Z FOKAYd3n3xOKA@E}Y3 HLOOPX;X;JUMP3 Q@AUX7>3 Q@AUX7&AUX PAUX%> FLOOPX;X;"DONE,Q>6@F} PGRMODE@:JX;TX;^X;hX;$X;.X;8GRMODEW;;GR modeBAUX;;usageLSDLSTL0;;DL startVX;`X;j@!Ah0Э1ѠЪA)) ))@ȱЪȱІЅѠЩW`BAUX;;usageLSDLSTL0;;DL startVX;`X;jDH ..@@ D:GR15.OBJECT##@@E:;-@HI}@$)@( ;*@A%(:)@#*@@'0*@: @@ D:GR15.BASH| GR1 OO6-C:Bh0Э1ѠЪA)) ))@ȱЪȱІЅѠЩW`,LK}gr15=USR(GR15)(D:GR*.U*)) ))@ȱЪȱІЅѠЩW`,L9 EI=EHX;X;X;X;$X;.X;8AUX;;usageBNUMBER;;number searchedLHOLD;;org numberVIPM}OCB;;fr0l`LENGTH;;fr0hjSLENGTH;;fr0++tINDEX;;fr0+++~X;ICCOMB;;IOCB commandICSTAC;;IOCB sPN}tatus ICBALD;;IOCB buf adr (LO) ICBAHE;;IOCB buf adr (HI) ICBLLH;;IOCB buf len (LO) ICBLHI;;IOCB buf PO}len (HI)ICAX1J;;IOCB aux 1ICAX2K;;IOCB aux 2ICAX3L;;IOCB aux 3ICAX4M;;IOCB aux 4ICAX5N;;IOPP}CB aux 5X;GETBR;;get binary record PUTBR ;;put binary recordPOSITION%;;pointX;(CR;;carriage retPQ}urn2CIOV;;CIO vector<X;FX;PX;Z STARTd7nX;x77T?T?T?T? PIOCBX;7 PINDEX7 PR}PINDEXX;7 PAUX7PAUX"X;,767@ PLENGTHJ,TO>^ PSLENGTHhX;r7|7 PNUMBER PHOLD FNPS}OTHINGX; SEARCH%> $LENGTH COMPARE Q@INDEX7 FSKIP R@AUX7HDIFFERENTSKIP30 HCOMPARE&PT}X;0 $IOCB:Q>POSITIOND PICCOM9N Q@AUX7XPICAX39;;sector lb3l Q@AUX7vPICAX49;;sector h3 Q@AUX7PICAPU}X59;;byteX; CIOX;QAUX $AUX INTRO PIOCB &IOCB; QHOLD SNUMBER O> PHOLD  "NUMBPV}ER*:4X;>X;H DIFFERENTR "NUMBER\HADDf NOTHINGpQ>z> FINTROX;ADD,QAUX OSLENGTHPAUXPW} QAUXO> PAUX HSEARCHX;X; X; ;;usageBNUMBER;;number searchedLHOLD;;org numberVIP:|hhh hhhhhhihh΅Cձ3ԩ%B˝Lȱ˝Mȱ˝N V˦̅Ԇ8i`eօ˥TY}iЩhhh hhhhhhihh΅Cձ3ԩ%B˝Lȱ˝Mȱ˝N V˦̅Ԇ8i`eօ˥T1B --@@ D:POS.OBJECT##@@E:GX[}-@@$)@( ;*@A%G6-(R)@6-%@1*@@'>*@X\}R @@@2,6-"*@AU, @@ D:POS.BAS##@@E:GXV7GPOSPO}}A ;A%,6-C:,ZZ6.Phhh hhhhhhihh΅Cձ3\^}ԩ%B˝Lȱ˝Mȱ˝N V@@67@,.-˦̅Ԇ8i`eօ˥iЩ($$\_}2$$adr=USR(POS,c,aind,afield,l,n)<$$D:POS.U*hhihh΅Cձ3\[ EI=EHX;X;X;X;$X;.X;8START;;usageBAUX;;usageLEXC;;usageVOFFSET;;fr0l``a}NUMBER;;fr0hjSORTLEN;;fr0+tPTR;;fr0++~AGAIN;;fr0+++XNUMBER;;fr0++++X;X;X;7X;7`b} PSTART7 PSTARTX;77  POFFSETX;7(72 PSORTLEN<X;F7P7Z PXNUMBERdX;nLOOPx, QSTA`c}RTPAUX OOFFSETPEXC QSTART PAUXO> PEXCX;Q> PAGAINX; "XNUMBER QXNUMBER `d}FRETURN PNUMBER"X;,COMPARENEXT6%>@ COMPAREJ Q@AUX7T R@EXC7^ FNEXTBYTEh ISWAPr GTRYNEXT| NEXTBYTE`e}3 )SORTLEN HCOMPAREX; TRYNEXT,QAUX OOFFSETPAUX QAUXO> PAUXX;,QEXC OO`f}FFSET&PEXC0 QEXC:O>D PEXCNX;X "NUMBERbHCOMPARENEXTlX;v "AGAIN FLOOP RETURN QXNUMBERP`g}ԨQ>Pռ:X;X;SWAP%> SWAPLOOP Q@AUX7>  Q@EXC7 P@AUX7 A* P@EXC743> )OFFSETH HSW`h}APLOOPRX;\Q>f PAGAINp HTRYNEXTzX;X;X;;;usageBAUX;;usageLEXC;;usageVOFFSET;;fr0l``;hhhhhhhhh˅eԅҥ̅iө٥5ՠ20eԅХieԅҥiمԩ`ЪґЊdj}оhhhhhh˅eԅҥ̅iө٥5ՠ20eԅХieԅҥiمԩ`ЪґЊd 2D@@@ ..@@ D:SORT.OBJECT##@@E:hl}G-@@$)@( ;*@A%G6-(R)@6-%@1*@@'>*@hm}R @@@2,6-"*@AU, @@ D:SORT.BAS##@@E:hX  ?QSORTSOR ;A1,6-C:,ZZ6.Phhhhhhhhh˅eԅҥ̅iө٥5ՠlo}20eԅХiFF67@,.3eԅҥiمԩ`ЪґЊо($$lp}2$$s=USR(SORT,afield,offs,slen,n)<$$ D:SORT.USRҥ̅iө٥5ՠle EI=EHX;X;X;X;$X;.X;8 FR0BX;LX;VX;` STARTj7t7~7PFR0Q> PFR0pr}:X;X;X;X;X;X;$X;.X;8 FR0BX;LX;VX;` STARTj7t7~7PFR0Q> PFR0p hhhԩ`X;X;X;$X;.X;8 FR0BX;LX;VX;` STARTj7t7~7PFR0Q> PFR0t ,,@@ D:LO.OBJECT##@@E:;-@xu}@$)@( ;*@A%(:)@#*@@'0*@: @@D:LO.BAS@xx dtL 6-C: hhhԩ`,low=USR(LO,word)(D:LO|w}.USR dtL 6-C: hhhԩ`,low=USR(LO,word)(D:LO| EI=EHX;X;X;X;$X;.X;8 FR0BX;LX;VX;` STARTj7t7~PFR07Q> PFR0y}:X;X;X;X;X;X;$X;.X;8 FR0BX;LX;VX;` STARTj7t7~PFR07Q> PFR0 hhh`X;X;X;$X;.X;8 FR0BX;LX;VX;` STARTj7t7~PFR07Q> PFR0 ,,@@ D:HI.OBJECT##@@E:;-@|}@$)@( ;*@A%(:)@#*@@'0*@: @@D:HI.BAS@x gwH 6-C: hhh`,high=USR(HI,word)(D~}:HI.USR gwH 6-C: hhh`,high=USR(HI,word)(D EI=EHX;X;X;X;$X;.X;8 FR0BX;LX;VX;` STARTj7t>~Q>PFR0 PFR0X;} GETBIT77V?UFR0 UFR00 HGETBIT:X; X;X;STARTj7t>~Q>PFR0 PFR0X;NhԅhhJ&&`FR0 UFR00 HGETBIT:X; X;X;STARTj7t>~Q>PFR0 PFR0X; ..@@ D:WORD.OBJECT##@@E:;-@}@$)@( ;*@A%(:)@#*@@'0*@: @@ D:WORD.BAS}%@$)@( ;*@A%(:)@#*@@'0*@: @@ D:WORD.BAS WOR 6-C:hԅhhJ&&`,$$$$word=USR(WORD,bn,...,b2,b}1,b0)($$ D:WORD.USR$$$$word=USR(WORD,bn,...,b2,b<  EI=EHX;X;X;X;$X;.X;8 AUXB FR0LX;VX;`X;j STARTt7~X;7 PAUX7}PAUXX;77>X;%>'FR0 'FR0X;  GETBIT Q@AUX7V?(UFR02 UFR0<3F0P HGETBITZ:}dX;nX;xX;X;X;X;$X;.X;8 AUXB FR0LX;VX;`X;j STARTt7~X;7 PAUX7hhhhhԄձJ&&`X;$X;.X;8 AUXB FR0LX;VX;`X;j STARTt7~X;7 PAUX7" 00@@D:STRBIT.OBJECT##@@E:;-@}@$)@( ;*@A%(:)@#*@@'0*@: @@ D:STRBIT.B}AS 00@@D:STRBIT.OBJECT##@@E:;-@STRBI ))6-C:hhhhhԄձJ&&`,word=USR(STRBIT,adr,}len)( D:STRBIT.USRձJ&&`,word=USR(STRBIT,adr,7 EI=EHX;X;X;X;$X;.X;8 FILLB AUXL FR0VX;`X;jX;t START~7>X;7 }PAUX7PAUXX;7 PFR07PFR0X;Q> 0  PFILL%>0(02 FPUTBIT<7F7P PFILLZX;d }PUTBITn VFR0xWFR0Q>;;$30-->$18U? P@AUX7QFR0 HCONT QFR0 FREADYCONT1 IPUTBITX;} READY'FR01 GRETURN QFILL" DELETE, P@AUX761@ IDELETEJX;T RETURN^Q>h PFR0r#FR0|:X;}X;X;X;X;X;X;$X;.X;8 FILLB AUXL FR0VX;`X;jX;t START~7>X;7 Bhhhhhԩ0ϠhhFfԩ*ХԈ0ϑЈ` FR0VX;`X;jX;t START~7>X;7 I 00@@D:BITSTR.OBJECT##@@E:;-@}@$)@( ;*@A%(:)@#*@@'0*@: @@ D:BITSTR.B}AS% 00@@D:BITSTR.OBJECT##@@E:;-@BITST PP6-C:Chhhhhԩ0ϠhhFfԩ*ХԈ0ϑЈ`,$$}$$start=USR(BITSTR,adr,word[,f])($$ D:BIT*.U*$$m EI=EHX;X;X;X;$X;.X;8NUMBER;;usageBFR0;;FP reg 0LX;V DUNIT`DCOMNDa}DSTATSj DBUFt DAUX1 ~ DAUX2 X;DSKINVS;;DSK vectorX;X;X; START7>X;7 P}DBUF7 PDBUF X;7 PDAUX2(72 PDAUX1<X;F7P7Z PDCOMNDdX;n7x7 PDUNITX;Q> PNUMBER}0000 FDOITX;77 PNUMBERX;DOIT DSKINV" GERROR, "NUMBER6 FERROR@X;J,T QDBUF^O}>h PDBUFr QDBUF|O> PDBUFX; #DAUX1 HDOIT #DAUX2 HDOITX; ERROR QDSTATSPFR0Q>} PFR0:X;X;X;&X;$X;.X;8NUMBER;;usageBFR0;;FP reg 0LX;V DUNIT`DCOMNDa#Whhhh h hhhhhh S0ii  ܭԩ`;V DUNIT`DCOMNDa^@@ ..@@ D:DISK.OBJECT##@@E:;-@ȣ}@$)@( ;*@A%(:)@#*@@'0*@: @@ D:DISK.BAS| &'DISREAWRIT ee6-C:Xhhhh h hhhhhh S0i̥}i  ܭԩ`,-@6-@%%(%%err=USR(DISK,buf,sec,cmd,d[,̦}n])2%% D:DISK.USRC:Xhhhh h hhhhhh S0i;b EI=EHX;X;X;X;$X;.X;8AUX;;usageB FR0LX;VX;`X;j7tX;~7 PFR07PШ}FR0X;7 PAUX7;S>PAUX QAUXS> PAUX X;%>LOOP(C2 P@FR07<#FR0F HCONЩ}TP #FR0ZCONTd;nQAUXxS>PAUX QAUXS> PAUX ELOOP:X;X;X;PFR07Pl0hhhhh8ХѠ8ХѰ`S> PAUX ELOOP:X;X;X;PFR07P7 ..@@ D:ZERO.OBJECT##@@E:;-@ج}@$)@( ;*@A%(:)@#*@@'0*@: @@ D:ZERO.BAS| ZER >>6-C:1hhhhh8ХѠ8ХѰ`,nܮ}ext=USR(ZERO,start,anz)( D:ZERO.U*8ХѰ`,nG EI=EHX;X;X;X;$X;.X;8LNG;;# bytes loadedBFR0;;FP-reg 0LX;VICCOMB;;IOCB comm}and`ICSTAC;;IOCB statusj ICBALD;;IOCB buf adr (LO)t ICBAHE;;IOCB buf adr (HI)~ ICBLLH;;IOCB buf len (LO)} ICBLHI;;IOCB buf len (HI)ICAX1J;;IOCB aux 1ICAX2K;;IOCB aux 2X;GETBR;;get binary recordX;}CIOV;;CIO vectorX;X;X; START7X; 77T?(T?2T?<T?F>PX;Z7d PICBAH9n7x PICBAL9X};7 PICBLH97 PICBLL9X; Q>GETBR PICCOM9X; CIOQ> PFR0 QICSTA9PFR0X; QICBLL9"}PLNG, QICBLH96 PLNG@X;J:TX;^X;hX;r9X; CIOQ> PFR0 QICSTA9PFR0X; QICBLL9"93hhh hEhDhIhHB VսCԽHнI`X; CIOQ> PFR0 QICSTA9PFR0X; QICBLL9":@@ ..@@ D:BGET.OBJECT##@@E:;-@}@$)@( ;*@A%(:)@#*@@'0*@: @@ D:BGET.BAS| BGE AA6-C:4hhh hEhDhIhHB VսCԽHнI`,!!}!!err=USR(BGET,chn,start,len)(!!2real length = dpeek(208) D:BGET.USRr ?b COPY M65b COPY OBJbCOPY BASbCOPY USRb DIRFILE M65bDIRFILE OBJbDIRFILE BASb"DIRFILE USRb %COPYX M65b/COPYX OBJb1COPYX BASb4COPYX USRb7ZDRIVER M65b;ZDRIVER OBJb<ZDRIVER BASb?ZDRIVER USRbBGR15 M65bGGR15 OBJbHGR15 BASbJGR15 USRb LPOS M65bXPOS OBJbZPOS BASb]POS USRb `SORT M65biSORT OBJbkSORT BASbnSORT USRbqLO M65bsLO OBJbtLO BASbvLO USRbxHI M65bzHI OBJb{HI BASb}HI USRbWORD M65bWORD OBJbWORD BASbWORD USRbSTRBIT M65bSTRBIT OBJbSTRBIT BASbSTRBIT USRbBITSTR M65bBITSTR OBJbBITSTR BASbBITSTR USRbDISK M65bDISK OBJbDISK BASbDISK USRbZERO M65bZERO OBJbZERO BASbZERO USRbBGET M65bBGET OBJbBGET BASbBGET USR