00100 ORG $2600 00105 LOADER EQU $E2A3 00110 FCC /OS/ 00120 BEGIN BRA START 00125 STEP FCB 0 00130 TRAX FCB 34 00140 SIDES FCB 1 00150 BAUD FCB 18 00160 COCO FCB 3 00170 COLORS FCB 63 00180 FCB 13 00190 SPEED FCB 1 00200 BOOTF FCC /STARTUP / 00210 START LDA COCO 00220 BNE COCO3 00230 ORCC #$50 00240 LDX #$8000 00250 ROMRAM CLR $FFDE 00260 LDD ,X 00270 CLR $FFDF 00280 STD ,X++ 00290 CMPX #$E000 00300 BNE ROMRAM 00310 ANDCC #$AF 00320 LBRA SLOW 00330 COCO3 LDD COLORS 00340 STD $FFBC 00350 STA $FFB8 00360 STB $FF9A 00370 STB $FFB0 00380 STB $E035 00390 STB $E03E 00400 STB $E047 00410 STB $E073 00420 STB $E07C 00430 LDA SPEED 00440 BEQ SLOW 00450 LDD #$7EC1 JMP $C139 00460 STD $D75F 00470 LDA #$39 00480 STA $D761 00490 LDD #$1212 NOP 00500 STD $D78C NOP 00510 STA $D78E 00520 LDD #$34F5 PSHS PC,U,Y,X,B,CC 00530 STD $C139 00540 LDA #$CC LDD $D8DF 00550 STA $C13B 00560 LDD #$C148 00570 STD $C13C 00580 LDD #$ED68 CLR 8,S 00590 STD $C13E 00600 LDD #$7FFF CLR $FFD8 00610 STD $C140 00620 LDD #$D886 LDA #5 00630 STD $C142 00640 LDD #$57E JMP $D763 00650 STD $C144 00660 LDD #$D763 00670 STD $C146 00680 LDD #$7FFF CLR $FFD9 00690 STD $C148 00700 LDD #$D939 RTS 00710 STD $C14A 00720 LDD #$BDC1 JSR $D8C1 00730 STD $D5FE 00740 LDA #$4C 00750 STA $D600 00760 LDD #$7FFF CLR $FFD8 00770 STD $C14C 00780 LDD #$D87E 00790 STD $C14E 00800 LDD #$D7D1 00810 STD $C150 00820 SLOW JSR SETSTP 00830 JSR MOVELD 00840 PARSE0 JSR INPDIR 00850 BRA PARSE1 00860 PARSE JSR KEYSCN 00870 PARSE1 CMPA #'Q 00880 BNE NOTQ 00890 CLR $2600 00900 JMP $AD17 00910 NOTQ CMPA #32 00920 BEQ GOLOAD 00930 CMPA #'0 00940 BLT NOTNUM 00950 CMPA #'3 00960 BGT NOTNUM 00970 SUBA #48 00980 STA DRIVE 00990 BRA PARSE0 01000 NOTNUM CMPA #13 01010 BNE PARSE 01020 GOLOAD LDU #PARSE0 01030 JMP LOADER 01040 SETSTP LDA STEP 01050 STA $D7C0 01060 ADDA #20 01070 STA $D816 01080 ADDA #$3C 01090 STA $D613 01100 LDA TRAX 01110 STA $D534 01120 INCA 01130 STA $D65F 01140 STA $D682 01150 STA $D29D 01160 DECA 01170 ASLA 01180 STA $C735 01190 STA $C7BB 01200 STA $C7D0 01210 STA $C7EF 01220 STA $CD26 01230 STA $CEB5 01240 STA $D44D 01250 SUBA #$44 01260 ASLA 01270 ADDA #$4A 01280 STA $C75A 01290 CLR $800 01300 STA $801 01310 LDA SIDES 01320 CMPA #2 01330 BNE ONESID 01340 LDD #$4142 01350 BRA SETSID 01360 ONESID LDD #$440 01370 SETSID STD $D89F 01380 LDD #$FA0C 01390 STD $C75D 01400 TFR D,X 01410 ADDD $800 01420 ADDD $800 01430 ADDD $800 01440 ADDD $800 01450 STD $800 01460 CLRFAT CLR ,X+ 01470 CMPX $800 01480 BNE CLRFAT 01490 LDA BAUD 01500 STA 150 01510 LDD #$BDC1 JSR $C139 01520 STD $C7C8 01530 LDD #$5227 BEQ LC7CD 01540 STD $C7CA 01550 LDD #$3012 NOP 01560 STD $C7CC 01570 LDD #$3402 PSHS A 01580 STD $C152 01590 LDD #$4FA6 CLRA 01600 STD $C154 01610 LDD #$8B43 COMA 01620 STD $C156 01630 LDD #$3582 PULS A,PC 01640 STD $C158 01650 LDD #$BDC1 01660 STD $D7B8 01670 STD $D7FF 01680 LDD #$5A12 01690 STD $D7BA 01700 STD $D801 01710 STB $D7BC 01720 STB $D803 01730 LDD #$8E09 LDX #$97E 01740 STD $C15A 01750 LDD #$7ED6 LDB $EB 01760 STD $C15C 01770 LDD #$EBC4 ANDB #1 01780 STD $C15E 01790 LDD #$139 RTS 01800 STD $C160 01810 RTS 01820 CLS PSHS X,A 01830 LDA #96 01840 LDX #$400 01850 STX $88 01860 CLS1 STA ,X+ 01870 CMPX #$600 01880 BNE CLS1 01890 PULS A,X,PC 01900 PRINT STA $6F 01910 PRINT1 LDA ,U+ 01920 BEQ PRINTX 01930 JSR [$A002] 01940 BRA PRINT1 01950 PRINTX RTS 01960 DISKIN PSHS B,A 01970 LDA #2 01980 LDB DRIVE 01990 BRA DISKIO 02000 DISKOU PSHS B,A 02010 LDA #3 02020 LDB DDRIVE 02030 DISKIO LDY $C006 02040 STD ,Y 02050 PULS A,B 02060 STD 2,Y 02070 LDX #$400 02080 STX 4,Y 02090 JSR [$C004] 02100 PSHS U,X 02110 LDA 6,Y 02120 BEQ NOERR 02130 CLRB 02140 FINDER LSRA 02150 BLO GOTERR 02160 INCB 02170 BRA FINDER 02180 GOTERR ASLB 02190 LDX #ERRTAB 02200 LDU B,X 02210 LDA #13 02220 JSR [$A002] 02230 CLRA 02240 JSR PRINT 02250 LDU #CONT 02260 CLRA 02270 JSR PRINT 02280 PAUSE JSR [$A000] 02290 BEQ PAUSE 02300 NOERR PULS X,U,PC 02310 DRIVE FCB 0 02320 DDRIVE FCB 0 02330 ERRTAB FDB ERR1 02340 FDB ERR1 02350 FDB ERR2 02360 FDB ERR3 02370 FDB ERR4 02380 FDB ERR5 02390 FDB ERR6 02400 FDB ERR7 02410 ERR1 FCC /UNDEFINED DISK ERROR/ 02420 FCB 0 02430 ERR2 FCC /LOST DATA ERROR/ 02440 FCB 0 02450 ERR3 FCC /CRC ERROR/ 02460 FCB 0 02470 ERR4 FCC /RECORD NOT FOUND/ 02480 FCB 0 02490 ERR5 FCC /WRITE FAULT ERROR/ 02500 FCB 0 02510 ERR6 FCC /WRITE PROTECT ERROR/ 02520 FCB 0 02530 ERR7 FCC /DRIVE NOT READY/ 02540 FCB 0 02550 CONT FCB 13 02560 FCC /PRESS ANY KEY TO CONTINUE/ 02570 FDB $D00 02580 INPDIR LDD #$1103 02590 LDU #$E00 02600 NXTSCT JSR DISKIN 02610 NXTDIR LDA ,X+ 02620 BEQ KILLED 02630 CMPA #255 02640 BEQ NOMORE 02650 LDB #16 02660 MOVDIR STA ,U+ 02670 LDA ,X+ 02680 DECB 02690 BNE MOVDIR 02700 BRA SKIP16 02710 KILLED LEAX 16,X 02720 SKIP16 LEAX 15,X 02730 CMPX #$4FF 02740 BLT NXTDIR 02750 LDD 2,Y 02760 INCB 02770 CMPB #19 02780 BNE NXTSCT 02790 NOMORE STU BUFEND 02800 LDX #$E00 02810 TSTBOO LDD ,X 02820 CMPD BOOTF 02830 BNE NOBOOT 02840 LDD 2,X 02850 CMPD BOOTF+2 02860 BNE NOBOOT 02870 LDD 4,X 02880 CMPD BOOTF+4 02890 BNE NOBOOT 02900 LDD 6,X 02910 CMPD BOOTF+6 02920 BNE NOBOOT 02930 JMP LOADER 02940 NOBOOT LEAX 16,X 02950 CMPX BUFEND 02960 BLT TSTBOO 02970 CLR PAGE 02980 NEWPAG LDU #$E00 02990 CMPU BUFEND 03000 BNE WRITE 03010 JSR CLS 03020 LDU #MT 03030 CLRA 03040 JSR PRINT 03050 TSTBRK JSR [$A000] 03060 CMPA #3 03070 BNE TSTBRK 03080 BRA INPDIR 03090 WRITE LDB PAGE 03100 SRCHPG DECB 03110 BMI GOTPAG 03120 LEAU $200,U 03130 BRA SRCHPG 03140 GOTPAG STU CURPAG 03150 JSR CLS 03160 NXTENT LDX $88 03170 LEAX 1,X 03180 STX $88 03190 BSR FILNAM 03200 LDD $88 03210 CMPD #$5F0 03220 BGE PAGEND 03230 LDD #$2003 03240 SPACE3 JSR [$A002] 03250 DECB 03260 BNE SPACE3 03270 LEAU 5,U 03280 CMPU BUFEND 03290 BLT NXTENT 03300 BRA PAGEND 03310 FILNAM LDB #8 03320 BSR TOSCRN 03330 LDA #'. 03340 JSR [$A002] 03350 LDB #3 03360 TOSCRN LDA ,U+ 03370 JSR [$A002] 03380 DECB 03390 BNE TOSCRN 03400 RTS 03410 PAGEND LDU #$400 03420 LDX CURPAG 03430 KEYSCN LDA #128 03440 STA ,U 03450 INKEY JSR [$A000] 03460 BEQ INKEY 03470 CMPA #'^ 03480 BEQ UP 03490 CMPA #10 03500 BEQ DOWN 03510 CMPA #8 03520 BEQ LEFT 03530 CMPA #9 03540 BEQ RIGHT 03550 CMPA #$5F 03560 BEQ SHFTUP 03570 CMPA #'[ 03580 BEQ SHFTDN 03590 CMPA #3 03600 LBEQ INPDIR 03610 RTS 03620 UP BSR ERASE 03630 CMPU #$410 03640 BLE KEYSCN 03650 LEAU -32,U 03660 LEAX -32,X 03670 BRA KEYSCN 03680 DOWN BSR ERASE 03690 CMPU #$5E0 03700 BGE KEYSCN 03710 TFR X,D 03720 ADDD #32 03730 CMPD BUFEND 03740 BGE KEYSCN 03750 LEAU 32,U 03760 TFR D,X 03770 BRA KEYSCN 03780 LEFT BSR ERASE 03790 CMPU #$400 03800 BEQ KEYSCN 03810 LEAU -16,U 03820 LEAX -16,X 03830 BRA KEYSCN 03840 RIGHT BSR ERASE 03850 CMPU #$5F0 03860 BEQ KEYSCN 03870 TFR X,D 03880 ADDD #16 03890 CMPD BUFEND 03900 BGE KEYSCN 03910 LEAU 16,U 03920 TFR D,X 03930 BRA KEYSCN 03940 ERASE LDB #96 03950 STB ,U 03960 RTS 03970 SHFTUP LDA PAGE 03980 LBEQ INKEY 03990 DECA 04000 STA PAGE 04010 LBRA NEWPAG 04020 SHFTDN LDD CURPAG 04030 ADDD #$200 04040 CMPD BUFEND 04050 LBGT INKEY 04060 INC PAGE 04070 LBRA NEWPAG 04080 BUFEND RMB 2 04090 CURPAG RMB 2 04100 PAGE RMB 1 04110 MT FCC /SOURCE DISK EMPTY/ 04120 FCB 13 04130 FCC /PRESS BREAK TO CONTINUE/ 04140 FDB $D00 04150 MOVELD LDX #LOAD 04160 LDU #LOADER 04170 MOVE1 LDA ,X+ 04180 STA ,U+ 04190 CMPX #DATA 04200 BNE MOVE1 04210 LDX 25 04220 LEAX -1,X 04230 CLR ,X 04240 RTS 04250 LOAD LDA 11,X 04260 BEQ BASPGM 04270 CMPA #2 04280 BEQ MLPGM 04290 PSHS U 04300 JSR CLS 04310 LDU #DATA 04320 CLRA 04330 JSR PRINT 04340 WAIT JSR [$A000] 04350 BEQ WAIT 04360 PULS U 04370 JMP ,U 04380 BASPGM LDD #$300 04390 STA $959 04400 STB $95E 04410 BSR XFERNM 04420 JMP $CA6C 04430 MLPGM BSR XFERNM 04440 JSR $CA07 04450 JSR $CFE3 04460 CLR $FF40 04470 JMP [$9D] 04480 XFERNM LDA DRIVE 04490 LDY $C006 04500 STA 1,Y 04510 LDU #$94C 04520 LDB #11 04530 XFERLP LDA ,X+ 04540 STA ,U+ 04550 DECB 04560 BNE XFERLP 04570 RTS 04580 DATA FCC /SELECTED FILE IS NOT A LOADABLE/ 04590 FCB 13 04600 FCC /PROGRAM./ 04610 FCB 13 04620 FCC /PRESS ANY KEY TO CONTINUE./ 04630 FDB $D00 04640 END BEGIN DB $D00 04640 END BEGIN 2120 BEQ NOERR 02130 CLRB 02140 FINDER LSRA 02150 BLO GOTERR 02160 INCB 02170 BRA FINDER 02180 GOTERR ASLB 02190 LDX #ERRTAB 02200 LDU B,X 02210 LDA #13 02220 JSR [$A002] 02230 CLRA 02240 JSR PRINT 02250 LDU #CONT 02260 CLRA 02270 JSR PRINT 02280 PAUSE JSR [$A000] 02290 BEQ PAUSE 02300 NOERR PULS X,U,PC 02310 DRIVE FCB 0 02320 DDRIVE FCB 0 02330 ERRTAB FDB ERR1 02340 FDB ERR1 02350 FDB ERR2 02360 FDB ERR3 02370 FDB ERR4 02380 FDB ERR5 02390 FDB ERR6 02400 FDB ERR7 02410 ERR1 FCC /UNDEFINED DISK ERROR/ 02420 FCB 0 02430 ERR2 FCC /LOST DATA ERROR/ 02440 FCB 0 02450 ERR3 FCC /CRC ERROR/ 02460 FCB 0 02470 ERR4 FCC /RECORD NOT FOUND/ 02480 FCB 0 02490 ERR5 FCC /WRITE FAULT ERROR/ 02500 FCB 0 02510 ERR6 FCC /WRITE PROTECT ERROR/ 02520 FCB 0 02530 ERR7 џљ&U ‡"TO COPY BOOT PROGRAM TO BOOT GRANULE, LOAD BOOT PROGRAM WITH OFFSET OF 256&s‡" WHEN READY":‰A$&~€JГ0Ѕ5&Ž(A$Г"":B$Г""&А2€IГ&H2700ЋJ­256 Ѕ&H277FЋJ­256&и WHEN READY":‰A$(xгM"BOOT",2564‚€JГ0ЅMSdŒž:…JДВ0Ї‡A$B$:‡:‡:‡"TRACK: 34 ";"SECTOR"Jt–A$Г"":B$Г""– €IГ&H2700ЋJ­256 Ѕ&H277FЋJ­256ОЊA$ГA$Ћџ‹(џ†(I)):B$ГB$Ћџ‹(џ†(IЋ128))ФД‹иОр0,34,JЋ1,A$,B$оШ‹AM TO BOOT GRANULEљd‡n‡€&OS "? STARTUP Ж&&PŽ€џоь„џпэŒр&ёЏќ& §џМЗџИїџšїџАїр5їр>їрGїрsїр|Ж& 'lЬ~С§з_†9ЗзaЬ§зŒЗзŽЬ4ѕ§С9†ЬЗС;ЬСH§С<Ьэh§С>€&€Ьџ§С@Ь膧СBЬ~§СDЬзc§СFЬџ§СHЬй9§СJЬНС§еў†LЗжЬџ§СLЬи~§СNЬзб§СPН&іН*Н(н Н)­Q&&~­ '0- 3.€0З(9 л &мЮ&Ч~тЃЖ&ЗзР‹Зи€'‹<ЗжЖ&Зе4LЗж_Зж‚ЗвJHЗЧ5ЗЧЛЗЧаЗЧяЗЭ&ЗЮЕЗдM€DH‹JЗЧZЗЖ&&ЬAB Ь@§иŸЬњ §Ч]ѓѓѓѓ§o€М&љЖ&—–ЬНС§ЧШЬR'§ЧЪЬ0§€'€ЧЬЬ4§СRЬOІ§СTЬ‹C§СVЬ5‚§СXЬНС§зИ§зџЬZ§зК§иїзМїиЬŽ §СZЬ~ж§С\ЬыФ§С^Ь9§С`94†`ŽŸˆЇ€Œ&љ5’—oІР'­Ÿ  і94†і(9 4†і(:ОРэЄ€(5э"ŽЏ$­ŸР4PІ&'$_D%\ њXŽ(;ю…† ­Ÿ OН'нЮ(СOН'н­Ÿ 'њ5а(K(K(`(p(z(‹((БUNDEFINED DISK ERRORLOST DATA ERRORCRC ERRORRECORD€(€ NOT FOUNDWRITE FAULT ERRORWRITE PROTECT ERRORDRIVE NOT READY PRESS ANY KEY TO CONTINUE ЬЮН'ъІ€'џ'ЦЇРІ€Z&љ 0ˆ0Œ€)џ-уь"\С&йџ*OŽь„Г& &ьГ&&ьГ&& ьГ&&~тЃ0ˆМ*O-е*SЮГ*O&Н'ЫЮ*TOН'н­Ÿ &ј ‚і*SZ+3Щ їџ*QН'Ыžˆ0Ÿˆмˆƒ№,*Ь €)€­Ÿ Z&љ3EГ*O-о Ц†.­Ÿ ЦІР­Ÿ Z&ї9ЮО*Q†~ЇФ­Ÿ 'њ^' '''= 'G_'b['l'џ9Pƒ/Я3Шр0ˆр Ч@ƒр,ПУ Г*O,Д3Ш  ­O*&ƒ'Ѕ3P0 Ÿƒ№'—УГ*O,Œ3Ш …Ц`чФ9Ж*S'џ}JЗ*Sџќ*QУГ*O.џh|*Sўя€*TSOURCE DISK EMPTY PRESS BREAK TO CONTINUE Ž*•ЮтЃІ€ЇРŒ*ц&їž0o„9І ''$4@Н'ЫЮ*цOН'н­Ÿ 'њ5@nФЬЗ Yї ^~Ъl НЪНЯуџ@nŸЖ(9W*дОРЇ!Ю LЦ І€ЇРZ&љ9SELECTED FILE IS NOT A LOADABLE PROGRAM. PRESS ANY KEY TO CONTINUE. џ&џ І •4000:XГ1:DRГџ†(235)@ž:‡" SUPER BOOT CONFIGURATOR 1.1‡" COPYRIGHT (C) 1989, 2022"," BY"," CARL ENGLANDВ(€IГ1Ѕ5:пDR,34,I,A$(I),B$(I):‹j2‡:‡" STEP RATE",," NUMBER OF TRACKS"," SIDES",," PRINTER BAUD",," COLOR COMPUTER"," FOREGROUND",," BACKGROUND",," CPU SPEED",," AUTO START =",," SAVE TO DISK",," QUIT";Љ";:‡@448," ";:I$Гџ’:…I$Г""Ї4401ТIГџŠ(I$):…I$Г"^"ЇXГXЌ1:Ѕ170GЬ…IГ10ЇXГXЋ1:Ѕ170Xж…IД8БIВ9Ї440~р‡@418,"ENTER NEW STRING --------›ъ‡@436,"";:Л‰R$:…R$Г""Ї60Еє…џ‡(R$)В8ЇR$ГџŽ(R$,8)аўR$ГџŽ(R$Ћ" ",8)цџ(A$(1),13,8)ГR$‡@418,"STARTUP = ":‡@448," SAVE TO DISK!Ѕ60:&І670:…IГ10БIГ94Ї1700‡@448,"ENTER DRIVE NUMBER ";:Л‰S$:…S$Д"0"БS$В"3"Ї‡@448,"> SAVE TO DISK":Ѕ550Є:пџ‰(S$),17,2,X$,Y$ПD…џŠ(џ(X$,67))Г255Ї640&Nž:‡"GRANULE 66 ALREADY CONTAINS DATAVALUABLE DATA MAY BE LOST.......DO YOU WANT TO CONTINUE? (Y/N)EXI$Гџ’:…I$ДВ"Y"АI$ДВ"N"Ї600Ub…I$Г"Y"Ї630_lЅ660mv‡@384:‡:‡”€џ(X$,67,1)Г"B":рџ‰(S$),17,2,X$,Y$КŠ€IГ1Ѕ5:рџ‰(S$),34,I,A$(I),B$(I):‹Х”ž:Ѕ20рžYГX­32Ћ128:‡@YЌ32," ";џЈ‡@Y,">";:…XД11Ї‡@YЋ32," ";ВI$Гџ’:…I$Г""Ї690:„IГџŠ(I$)6М…I$Г"^"АXВ1ЇXГXЌ1:MЦ…IГ10АXД11ЇXГXЋ1:fа…IГ8БIГ9БIГ13Ї:„690‚кІ670:…IГ13ЇXГXЋ1:Ѕ170•ф…IГ10БIГ94Ї170Њю…CCГ3ЇCCГ0:„CCГ3Ујџ(A$(1),9,1)Гџ‹(CC)ЭЅ980щ І670:…IГ13ЇXГXЋ1:Ѕ170ќ…IГ10БIГ94Ї170 …IГ8ЇFCГFCЌ1:„FCГFCЋ1&*…FCВ63ЇFCГ064…FCД0ЇFCГ63P>џ(A$(1),10,1)Гџ‹(FC)YHЅ60uRІ670:…IГ13ЇXГXЋ1:Ѕ170ˆ\…IГ10БIГ94Ї170Ђf…IГ8ЇBCГBCЌ1:„BCГBCЋ1Вp…BCВ63ЇBCГ0Тz…BCД0ЇBCГ63м„џ(A$(1),11,1)Гџ‹(BC)хŽЅ60њ˜І670:…IГ13Ї1010 Ђ…IГ10БIГ94Ї170ЌЅ10104ЖІ670:…IГ13ЇXГXЋ1:Ѕ170GР…IГ10БIГ94Ї170\Ъ…SPГ1ЇSPГ0:„SPГ1kд…CCГ0ЇSPГ0…оџ(A$(1),12,1)Гџ‹(SP)ŽшЅ60Ѕђž:‡"END OF PROGRAMBCВ63ЇBCГ0Тz…BCД0ЇBCГ63м„џ(A$(1),11,1)Гџ‹(BC)хŽЅ60њ˜І670:…IГ13Ї1010 ЂџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџТЦ!У#$%ЦџџџџџџџџџџџџџџџџџџџџџџџџџџџџBџBCONFIG BAS ЉBOOT ASMџ" MAKEBOOTBASтBOOT BINbbџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00100 ORG $2600 00105 LOADER EQU $E2A3 00110 FCC /OS/ 00120 BEGIN BRA START 00125 STEP FCB 0 00130 TRAX FCB 34 00140 SIDES FCB 1 00150 BAUD FCB 18 00160 COCO FCB 3 00170 COLORS FCB 63 00180 FCB 13 00190 SPEED FCB 1 00200 BOOTF FCC /STARTUP / 00210 START LDA COCO 00220 BNE COCO3 00230 ORCC #$50 00240 LDX #$8000 00250 ROMRAM CLR $FFDE 00260 LDD ,X 00270 CLR $FFDF 00280 STD ,X++ 00290 CMPX #$E000 00300 BNE ROMRAM 00310 ANDCC #$AF 00320 LBRA SLOW 00330 COCO3 LDD COLORS 00340 STD $FFBC 00350 STA $FFB8 00360 STB $FF9A 00370 STB $FFB0 00380 STB $E035 00390 STB $E03E 00400 STB $E047 00410 STB $E073 00420 STB $E07C 00430 LDA SPEED 00440 BEQ SLOW 00450 LDD #$7EC1 00460 STD $D75F 00470 LDA #$39 00480 STA $D761 00490 LDD #$1212 00500 STD $D78C 00510 STA $D78E 00520 LDD #$34F5 00530 STD $C139 00540 LDA #$CC 00550 STA $C13B 00560 LDD #$C148 00570 STD $C13C 00580 LDD #$ED68 00590 STD $C13E 00600 LDD #$7FFF 00610 STD $C140 00620 LDD #$D886 00630 STD $C142 00640 LDD #$57E 00650 STD $C144 00660 LDD #$D763 00670 STD $C146 00680 LDD #$7FFF 00690 STD $C148 00700 LDD #$D939 00710 STD $C14A 00720 LDD #$BDC1 00730 STD $D5FE 00740 LDA #$4C 00750 STA $D600 00760 LDD #$7FFF 00770 STD $C14C 00780 LDD #$D87E 00790 STD $C14E 00800 LDD #$D7D1 00810 STD $C150 00820 SLOW JSR SETSTP 00830 JSR MOVELD 00840 PARSE0 JSR INPDIR 00850 BRA PARSE1 00860 PARSE JSR KEYSCN 00870 PARSE1 CMPA #'Q 00880 BNE NOTQ 00890 CLR $2600 00900 JMP $AD17 00910 NOTQ CMPA #32 00920 BEQ GOLOAD 00930 CMPA #'0 00940 BLT NOTNUM 00950 CMPA #'3 00960 BGT NOTNUM 00970 SUBA #48 00980 STA DRIVE 00990 BRA PARSE0 01000 NOTNUM CMPA #13 01010 BNE PARSE 01020 GOLOAD LDU #PARSE0 01030 JMP LOADER 01040 SETSTP LDA STEP 01050 STA $D7C0 01060 ADDA #20 01070 STA $D816 01080 ADDA #$3C 01090 STA $D613 01100 LDA TRAX 01110 STA $D534 01120 INCA 01130 STA $D65F 01140 STA $D682 01150 STA $D29D 01160 DECA 01170 ASLA 01180 STA $C735 01190 STA $C7BB 01200 STA $C7D0 01210 STA $C7EF 01220 STA $CD26 01230 STA $CEB5 01240 STA $D44D 01250 SUBA #$44 01260 ASLA 01270 ADDA #$4A 01280 STA $C75A 01290 CLR $800 01300 STA $801 01310 LDA SIDES 01320 CMPA #2 01330 BNE ONESID 01340 LDD #$4142 01350 BRA SETSID 01360 ONESID LDD #$440 01370 SETSID STD $D89F 01380 LDD #$FA0C 01390 STD $C75D 01400 TFR D,X 01410 ADDD $800 01420 ADDD $800 01430 ADDD $800 01440 ADDD $800 01450 STD $800 01460 CLRFAT CLR ,X+ 01470 CMPX $800 01480 BNE CLRFAT 01490 LDA BAUD 01500 STA 150 01510 LDD #$BDC1 01520 STD $C7C8 01530 LDD #$5227 01540 STD $C7CA 01550 LDD #$3012 01560 STD $C7CC 01570 LDD #$3402 01580 STD $C152 01590 LDD #$4FA6 01600 STD $C154 01610 LDD #$8B43 01620 STD $C156 01630 LDD #$3582 01640 STD $C158 01650 LDD #$BDC1 01660 STD $D7B8 01670 STD $D7FF 01680 LDD #$5A12 01690 STD $D7BA 01700 STD $D801 01710 STB $D7BC 01720 STB $D803 01730 LDD #$8E09 01740 STD $C15A 01750 LDD #$7ED6 01760 STD $C15C 01770 LDD #$EBC4 01780 STD $C15E 01790 LDD #$139 01800 STD $C160 01810 RTS 01820 CLS PSHS X,A 01830 LDA #96 01840 LDX #$400 01850 STX $88 01860 CLS1 STA ,X+ 01870 CMPX #$600 01880 BNE CLS1 01890 PULS A,X,PC 01900 PRINT STA $6F 01910 PRINT1 LDA ,U+ 01920 BEQ PRINTX 01930 JSR [$A002] 01940 BRA PRINT1 01950 PRINTX RTS 01960 DISKIN PSHS B,A 01970 LDA #2 01980 LDB DRIVE 01990 BRA DISKIO 02000 DISKOU PSHS B,A 02010 LDA #3 02020 LDB DDRIVE 02030 DISKIO LDY $C006 02040 STD ,Y 02050 PULS A,B 02060 STD 2,Y 02070 LDX #$400 02080 STX 4,Y 02090 JSR [$C004] 02100 PSHS U,X 02110 LDA 6,Y 02120 BEQ NOERR 02130 CLRB 02140 FINDER LSRA 02150 BLO GOTERR 02160 INCB 02170 BRA FINDER 02180 GOTERR ASLB 02190 LDX #ERRTAB 02200 LDU B,X 02210 LDA #13 02220 JSR [$A002] 02230 CLRA 02240 JSR PRINT 02250 LDU #CONT 02260 CLRA 02270 JSR PRINT 02280 PAUSE JSR [$A000] 02290 BEQ PAUSE 02300 NOERR PULS X,U,PC 02310 DRIVE FCB 0 02320 DDRIVE FCB 0 02330 ERRTAB FDB ERR1 02340 FDB ERR1 02350 FDB ERR2 02360 FDB ERR3 02370 FDB ERR4 02380 FDB ERR5 02390 FDB ERR6 02400 FDB ERR7 02410 ERR1 FCC /UNDEFINED DISK ERROR/ 02420 FCB 0 02430 ERR2 FCC /LOST DATA ERROR/ 02440 FCB 0 02450 ERR3 FCC /CRC ERROR/ 02460 FCB 0 02470 ERR4 FCC /RECORD NOT FOUND/ 02480 FCB 0 02490 ERR5 FCC /WRITE FAULT ERROR/ 02500 FCB 0 02510 ERR6 FCC /WRITE PROTECT ERROR/ 02520 FCB 0 02530 ERR7 FCC /DRIVE NOT READY/ 02540 FCB 0 02550 CONT FCB 13 02560 FCC /PRESS ANY KEY TO CONTINUE/ 02570 FDB $D00 02580 INPDIR LDD #$1103 02590 LDU #$E00 02600 NXTSCT JSR DISKIN 02610 NXTDIR LDA ,X+ 02620 BEQ KILLED 02630 CMPA #255 02640 BEQ NOMORE 02650 LDB #16 02660 MOVDIR STA ,U+ 02670 LDA ,X+ 02680 DECB 02690 BNE MOVDIR 02700 BRA SKIP16 02710 KILLED LEAX 16,X 02720 SKIP16 LEAX 15,X 02730 CMPX #$4FF 02740 BLT NXTDIR 02750 LDD 2,Y 02760 INCB 02770 CMPB #19 02780 BNE NXTSCT 02790 NOMORE STU BUFEND 02800 LDX #$E00 02810 TSTBOO LDD ,X 02820 CMPD BOOTF 02830 BNE NOBOOT 02840 LDD 2,X 02850 CMPD BOOTF+2 02860 BNE NOBOOT 02870 LDD 4,X 02880 CMPD BOOTF+4 02890 BNE NOBOOT 02900 LDD 6,X 02910 CMPD BOOTF+6 02920 BNE NOBOOT 02930 JMP LOADER 02940 NOBOOT LEAX 16,X 02950 CMPX BUFEND 02960 BLT TSTBOO 02970 CLR PAGE 02980 NEWPAG LDU #$E00 02990 CMPU BUFEND 03000 BNE WRITE 03010 JSR CLS 03020 LDU #MT 03030 CLRA 03040 JSR PRINT 03050 TSTBRK JSR [$A000] 03060 CMPA #3 03070 BNE TSTBRK 03080 BRA INPDIR 03090 WRITE LDB PAGE 03100 SRCHPG DECB 03110 BMI GOTPAG 03120 LEAU $200,U 03130 BRA SRCHPG 03140 GOTPAG STU CURPAG 03150 JSR CLS 03160 NXTENT LDX $88 03170 LEAX 1,X 03180 STX $88 03190 BSR FILNAM 03200 LDD $88 03210 CMPD #$5F0 03220 BGE PAGEND 03230 LDD #$2003 03240 SPACE3 JSR [$A002] 03250 DECB 03260 BNE SPACE3 03270 LEAU 5,U 03280 CMPU BUFEND 03290 BLT NXTENT 03300 BRA PAGEND 03310 FILNAM LDB #8 03320 BSR TOSCRN 03330 LDA #'. 03340 JSR [$A002] 03350 LDB #3 03360 TOSCRN LDA ,U+ 03370 JSR [$A002] 03380 DECB 03390 BNE TOSCRN 03400 RTS 03410 PAGEND LDU #$400 03420 LDX CURPAG 03430 KEYSCN LDA #126 03440 STA ,U 03450 INKEY JSR [$A000] 03460 BEQ INKEY 03470 CMPA #'^ 03480 BEQ UP 03490 CMPA #10 03500 BEQ DOWN 03510 CMPA #8 03520 BEQ LEFT 03530 CMPA #9 03540 BEQ RIGHT 03550 CMPA #$5F 03560 BEQ SHFTUP 03570 CMPA #'[ 03580 BEQ SHFTDN 03590 CMPA #3 03600 LBEQ INPDIR 03610 RTS 03620 UP BSR ERASE 03630 CMPU #$410 03640 BLE KEYSCN 03650 LEAU -32,U 03660 LEAX -32,X 03670 BRA KEYSCN 03680 DOWN BSR ERASE 03690 CMPU #$5E0 03700 BGE KEYSCN 03710 TFR X,D 03720 ADDD #32 03730 CMPD BUFEND 03740 BGE KEYSCN 03750 LEAU 32,U 03760 TFR D,X 03770 BRA KEYSCN 03780 LEFT BSR ERASE 03790 CMPU #$400 03800 BEQ KEYSCN 03810 LEAU -16,U 03820 LEAX -16,X 03830 BRA KEYSCN 03840 RIGHT BSR ERASE 03850 CMPU #$5F0 03860 BEQ KEYSCN 03870 TFR X,D 03880 ADDD #16 03890 CMPD BUFEND 03900 BGE KEYSCN 03910 LEAU 16,U 03920 TFR D,X 03930 BRA KEYSCN 03940 ERASE LDB #96 03950 STB ,U 03960 RTS 03970 SHFTUP LDA PAGE 03980 LBEQ INKEY 03990 DECA 04000 STA PAGE 04010 LBRA NEWPAG 04020 SHFTDN LDD CURPAG 04030 ADDD #$200 04040 CMPD BUFEND 04050 LBGT INKEY 04060 INC PAGE 04070 LBRA NEWPAG 04080 BUFEND RMB 2 04090 CURPAG RMB 2 04100 PAGE RMB 1 04110 MT FCC /SOURCE DISK EMPTY/ 04120 FCB 13 04130 FCC /PRESS BREAK TO CONTINUE/ 04140 FDB $D00 04150 MOVELD LDX #LOAD 04160 LDU #LOADER 04170 MOVE1 LDA ,X+ 04180 STA ,U+ 04190 CMPX #DATA 04200 BNE MOVE1 04210 LDX 25 04220 LEAX -1,X 04230 CLR ,X 04240 RTS 04250 LOAD LDA 11,X 04260 BEQ BASPGM 04270 CMPA #2 04280 BEQ MLPGM 04290 PSHS U 04300 JSR CLS 04310 LDU #DATA 04320 CLRA 04330 JSR PRINT 04340 WAIT JSR [$A000] 04350 BEQ WAIT 04360 PULS U 04370 JMP ,U 04380 BASPGM LDD #$300 04390 STA $959 04400 STB $95E 04410 BSR XFERNM 04420 JMP $CA6C 04430 MLPGM BSR XFERNM 04440 JSR $CA07 04450 JSR $CFE3 04460 CLR $FF40 04470 JMP [$9D] 04480 XFERNM LDA DRIVE 04490 LDY $C006 04500 STA 1,Y 04510 LDU #$94C 04520 LDB #11 04530 XFERLP LDA ,X+ 04540 STA ,U+ 04550 DECB 04560 BNE XFERLP 04570 RTS 04580 DATA FCC /SELECTED FILE IS NOT A LOADABLE/ 04590 FCB 13 04600 FCC /PROGRAM./ 04610 FCB 13 04620 FCC /PRESS ANY KEY TO CONTINUE./ 04630 FDB $D00 04640 END BEGIN 630 FDB $D00 04640 END BEGIN 630 FDB $D00 04640 END BEGIN OS "? STARTUP Ж&&PŽ€џоь„џпэŒр&ёЏќ& §џМЗџИїџšїџАїр5їр>їрGїрsїр|Ж& 'lЬ~С§з_†9ЗзaЬ§зŒЗзŽЬ4ѕ§С9†ЬЗС;ЬСH§С<Ьэh§С>Ьџ§С@Ь膧СBЬ~§СDЬзc§СFЬџ§СHЬй9§СJЬНС§еў†LЗжЬџ§СLЬи~§СNЬзб§СPН&іН*Н(н Н)­Q&&~­ '0- 3.€0З(9 л &мЮ&Ч~тЃЖ&ЗзР‹Зи‹<ЗжЖ&Зе4LЗж_Зж‚ЗвJHЗЧ5ЗЧЛЗЧаЗЧяЗЭ&ЗЮЕЗдM€DH‹JЗЧZЗЖ&&ЬAB Ь@§иŸЬњ §Ч]ѓѓѓѓ§o€М&љЖ&—–ЬНС§ЧШЬR'§ЧЪЬ0§ЧЬЬ4§СRЬOІ§СTЬ‹C§СVЬ5‚§СXЬНС§зИ§зџЬZ§зК§иїзМїиЬŽ §СZЬ~ж§С\ЬыФ§С^Ь9§С`94†`ŽŸˆЇ€Œ&љ5’—oІР'­Ÿ  і94†і(9 4†і(:ОРэЄ5э"ŽЏ$­ŸР4PІ&'$_D%\ њXŽ(;ю…† ­Ÿ OН'нЮ(СOН'н­Ÿ 'њ5а(K(K(`(p(z(‹((БUNDEFINED DISK ERRORLOST DATA ERRORCRC ERRORRECORD NOT FOUNDWRITE FAULT ERRORWRITE PROTECT ERRORDRIVE NOT READY PRESS ANY KEY TO CONTINUE ЬЮН'ъІ€'џ'ЦЇРІ€Z&љ 0ˆ0Œџ-уь"\С&йџ*OŽь„Г& &ьГ&&ьГ&& ьГ&&~тЃ0ˆМ*O-е*SЮГ*O&Н'ЫЮ*TOН'н­Ÿ &ј ‚і*SZ+3Щ їџ*QН'Ыžˆ0Ÿˆмˆƒ№,*Ь ­Ÿ Z&љ3EГ*O-о Ц†.­Ÿ ЦІР­Ÿ Z&ї9ЮО*Q†~ЇФ­Ÿ 'њ^' '''= 'G_'b['l'џ9Pƒ/Я3Шр0ˆр Ч@ƒр,ПУ Г*O,Д3Ш  ­&ƒ'Ѕ3P0 Ÿƒ№'—УГ*O,Œ3Ш …Ц`чФ9Ж*S'џ}JЗ*Sџќ*QУГ*O.џh|*SўяџџSOURCE DISK EMPTY PRESS BREAK TO CONTINUE Ž*•ЮтЃІ€ЇРŒ*ц&їž0o„9І ''$4@Н'ЫЮ*цOН'н­Ÿ 'њ5@nФЬЗ Yї ^~Ъl НЪНЯуџ@nŸЖ(9ОРЇ!Ю LЦ І€ЇРZ&љ9SELECTED FILE IS NOT A LOADABLE PROGRAM. PRESS ANY KEY TO CONTINUE. џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ