00100 ORG $E00 00110 *KEYBOARD STROKE TEST 00120 CLR $E7 *32 X 16 SCREEN 00130 PRINT LEAX MSG-1,PCR 00140 PSHS D,X,Y,U 00150 JSR $B99C *PRINT MESSAGE 00160 GETKEY JSR $A1B1 00170 ANDA #$7F 00180 STA $410 *SEND KEY TO SCREEN 00190 CMPA #3 00200 BEQ EXIT 00210 BRA GETKEY 00220 MSG FCB 12 *CLEAR SCREEN 00230 FCC /KEY RECEIVED =/ 00240 FCB 0 00250 EXIT PULS D,X,Y,U,PC *RETURN TO BASIC 00260 END END 00260 FCB 0 00261 BRA GETKEY 00270 EXIT RTS 00280 END JMP $C8B0 0410 RTS 0420 RTS 0430 RTS 040,300,210,510,520(#Z:"READY CASSETTE PLAYER":44539(]d"HIT RESET WHEN READY, AND RUN":"SET VOLUME NOW..."(ln 130(xM"VOLUME"::&HE00("ERROR WITH (VOLUME) ROUTINE!":(:"HOW MANY MEMORY BLOCKS (1-56)";MB: MB1 MB56 140::)M"DIGATIZE") &HE19,SPEED)R:"READY PLAY AND PRESS A KEY...":44539:"DIGATIZING...")l:&HE04,MB1:&HE00)s)|ȁ40)Ҟ:"HOW MANY FILES (1-56)";F:"FILE NAME";N$)܈ 290)LP1)&HFFA2,LP1)LP:M N$(LP)".ADC"*&HFFA2,&H7A*" LP MB LPLP1:240*2MBLP: 40*"::"NAME TOO LONG OR NOT FOUND"::"CONTINUE (Y/N)";AN$: AN$"Y" 250:: 30*,:"FILE NAME (5 CHAR MAX)";N$*6 (N$)0 (N$)5 300+@ MB0 :"YOU DIDN'T CONVERT ANYTHING!":"HIT ANY KEY...":44539:40+(JLP1+9T&HFFA2,LP1+H^ 700+xhLP:M N$(LP)".ADC",&H4000,&H5FFF,44539+r LP MB LPLP1:340+|&HFFA2,&H7A+ 40+: MB0 "NOTHING TO PLAY!!!":"HIT ANY KEY...":44539: 40::, M"ANALOG",6 &HE34,SPEED:"CONVERTING TO ANALOG...",M&HE04,MB1:&HE00,W 40,ž:"ENTER SPEED 1-15 (15=SLOW)";SPEED,̅ SPEED 0 SPEED 15 450:: 40,և"DIGATIZE.BIN NOT FOUND!":,"ANALOG.BIN NOT FOUND!":-"VOLUME.BIN NOT FOUND!":-,:-0:&HFFD8,1:-L:"MISC. OPTIONS MENU"-:"1. KILL FILE NAME":"2. SET END BLOCK TO =1-56":"3. REVERSE DATA":"4. DIR":"5. RETURN TO MAIN MENU"-:"CHOICE ";A-& A0 A5 520.0 A 570,600,630,680,30.?::"FILE NAME TO KILL";N$:"NUMBER OF FILE TO KILL";N._D K1 N: N$(K)".ADC".mN K:520.X:"ENTER LAST BLOCK";LB.b LB57 LB0 MBLB: 520::.l"CHOOSE FROM 1 TO 56":600/+v: MB0 "NOTHING TO+04v' KEY RECEIVED =5EASA1)(B(bX F$::"NOT A BINARY FILE" HEX"'" -----------------------------"'d"START ADDRESS ";SA;" ";(SA)'ȇ"END ADDRESS ";EA;" ";(EA)( ,"EXEC ADDRESS ";EX;"445390:44539:5200G:: ((235))4 :"DISK FULL":: "SAVING ERROR ";,0bƉ"CONTINUE (Y/N) ";AN$0Ѕ AN$"Y" 340:: 30ANALOG BINaWن##@Hv 1?&Z&_%'J ؆z9ANALOG SRC00100 *ANALOG CONVERSION ROUTINE FOR ADC.BAS 00110 ORG $E00 00120 CLR $FFD9 00130 LDA #0 00140 STA $F00 00150 LDA $FF01 00160 ANDA #$F7 *AND VALUE OF ADDRESS FF01 WITH F7 00170 STA $FF01 *STORE VALUE INTO FF01 00180 LDA $FF03 00190 ANDA #$F7 00200 STA $FF03 00210 LDA $FF23 00220 ORA #8 *OR THE VALUE 00230 STA $FF23 00240 *^ ACTIVATES THE CONTROLLER ROUTINE 00250 COUNT LDA $F00 00260 STA $FFA2 00270 LDX #$4000 *START OF DATA 00280 SOUND1 LDA ,X+ *GET DATA FROM THIS LOCATION 00290 LDB #8 00300 SOUND2 LSLA 00310 ROR $FF20 00320 TIMER1 LDY #15 *SLOW SPEED DEFAULT 00330 TIMER2 LEAY -1,Y *DELAY 00340 BNE TIMER2 *DONE WAITING? 00350 DECB *B=B-1 00360 BNE SOUND2 *BRANCH IF NOT EQUAL 00370 CMPX #$5FFF *ARE WE FINISHED? 00380 BLO SOUND1 00390 LDA $F00 00400 CMPA #0 00410 BEQ EXIT 00420 DECA 00430 STA $F00 00440 BRA COUNT 00450 EXIT CLR $FFD8 00460 LDA #$7A 00470 STA $FFA2 *RESTORE 128/512K MEMORY BLOCKS 00480 RTS *RETURN TO BASIC 00490 END DIGATIZEBINLBن@ 1?&t IZ&񧀌_%'J ؆z9DIGATIZESRC00100 *512 K A/D CONVERTER BY SnailSoft Software 1994 00110 *SUBROUTINE FOR ADC.BAS 00120 *MACHINE SUBROUTINE NEEDED FOR HIGH SPEED CONVERSION 00130 ORG $E00 *STARTING ADDRESS IN LO-RES GRAPHICS AREA 00140 START CLR $FFD9 *HIGH SPEED POKE 00150 LDA #0 *SET A TO 0 00160 STA $F00 *STORE BLOCK LOOP COUNTER 00170 *BASIC SOFTWARE WILL CHANGE "A" FROM 0 TO 56 BLOCKS MAX(256K) 00180 COUNT *BLOCK COUNT LOOP 00190 LDA $F00 *POINT TO MEMORY DATA 00200 STA $FFA2 *POINT TO MEMORY BLOCK 00210 LDX #$4000 *START OF MEMORY BLOCK, OFFSET BY "A" 00220 CLR $FF20 *SET CONTROLLER CLEAR 00230 LOOP LDB #$8 *COUNT OF ROTATION FOR BIT VALUE $FF20 00240 TIME1 LDY #15 *RECORD S`? ?1? q?<`@?:|@`????0>@' 8_t?1?? dx_??@?? Oc?' @0/?????@?'x??@?? ????O?A?????????@   ;a<3da {o? s@<0C?! 7`8? 6 3 w ?0| f#1w`_?<@3 {<?`?o IwS 7`p <,$7o?77`  3x`???? ?Cw}?x?~ G l og|Ao&O!݀fc7? 8? `|`G ߿?>Y>?2<?0?DŽ{|c ?????c??|??À?"07'A???y|@??x@߈0  ?@0@`?p۸xz?7?1`7?`?`3g  {?wx{x{;sǿs?ϜO3??? @8b  ;`? ???;??w;#?<sx`` >| s < 1s 0 }8??' ;?<8|?0  @$`@`q?? ܀ ?`{2 M ???s???0@` >`|` ws?b8~x?913@80'?|@??8A4 <00c??8??3}?0`܀ p?>~> ``? >6o؆?|O{=O; 0Cp0ag }@&0oό 0??3? '?0s3? aǟ> a GxaGc????@/ <~?<|<x?????s~ c?;s|v??0??? ;@~?8?x0N2`~?'?nd8 `;O `?po"?N?@Ȁ s s߁ o8nf2? x8ğ{͘o??|c@???{?L$A `0mg&?;?M6>7p@ 'c7&x'`}#~2o??`??? |?Ȁ' ?? ???~ ?a/}Ig`f`Ho? >9â@ {6F'0'?@f ?`@`|3>@ f 09>p@܀ Fm8/<`7G?I# 1 L? x?p>͘~@?N|g<t݆~g?Cc} ?|0d?< ߎa?`? s`s? ?~C|_8 `'0<sϿ<~~#?w@?8> x ?c|?`~? ap|3=`c09`09|?#=> ?c|?`~? ap|3=`c09`09|?#=> @????????3??0sg3? @ ?0?~|@??0  0?0@?w71; ? 0#L ??p G6> 3 ?p ?`f 7 fɟ @   2 ?@,tOg0???̉<`@? $L? @` nD? DL&O@' ;7"@7 # ?߻`ȀF ߛ" @?` @p   #?? ow?@n0D 63rDg`? FA @@{G ݀Npș7F7L{`nv?0?pd v2 #F@;v  ~ @ w?0@'Ɖ|Ń3?f́"$7̘d@ȁf̝;rd@ٓg?" "Ł7o`1gD1>F}?f=w6l 3gÿ=a bk3gݳ2fdȉ7fdL;@#vN̝?v~&L98tlfM "&ٙfg͙"dDȉ3fnߙ2f r̟>blD`0cs">@|.H9~f/6F7ہȝ3b0`|'ϙ"~ g7;g3F?|"O̝;l3"fL͙wvݙ30@ vfٙ3gsݟ>f 1ݿvf8#pDvL7`F?~;g@΁` 3"gݛ?&l""ϙwx1@s̋7f'͓7$6w"Ef x2`~lɱ#" 3vlٓ3&Lșdݛw~ɛ&Lw͙dL7f?>DXbg?bfl̙"&D͝73fdsf͉& ɻ&D 3"f" DfoO <pv  g?6nlؐ @?rY3"dL6~ܛ#b@>7L0&b7&nL2"dNٟ9&`Lg|@cfΛ:~|̹32fdəwf晛3&nh6ll1ff͙3<32flɛ7&lٙ32fl'܏p,X&M̛7 Lx' L3p&_q}Ļ`? &@ؑ&;2fH3#fO?6>dl"b͙3>fy͉34ٳg~Lܙ3fd̍3?fnٓfD̍~ܙ3`F$0&@M3&ݛ74L 3'w>f@  32fgߛ;&$ @c 3?g@|72d 6`l'`;f? ~@p~D#bL͙ww܂`7 ݿ~2|mM̐0s3"vDȝٻ&h{x ?og>~Gș2"dٛg>"͙6nܑ0@ 3f3~d#G7d clݍ?laóFL2f͙3fD̉~I~?pf?~w;qGgs{?C?,E8{`3" ?&?ÀG0?C ??8?C0 ? ?Pp ?77>x ~;@ g {'>@ ap?a8<~`0  f 8χ?>@~~??8vld@?O6cfq s 2 L8`v@} 0  7` 'ȀA@@GH? q<?3?<@?όx 8 9?x~00?0? 8 6#>0?0~~``|p?9sCoGg~χ3O ?|?????>??|?'~>`'r?s ?y889 gx''0  6?x @?>8x? ` |8`037waǞ@?9|p ?8< <`6C0?~ |?w @ <8 ?>F ~a?D L?>< <8\??x<p3 O> 1?~`@9o ـ0x sp ?> `~` |?s g`@ G|p3??8p0>|Fsg <0c?B@ 0?338a?8r? 08{>r{sh?@FDLN ??p8<08? | ?cGϏv`@À p7 7<?p ~pp<? ǀ8x?<~NϏ  7C? @l ???0`d n ? x><8`' < oo?3g?0?l8~o `?8>@@`@|~xp?<`;~`q x>1[|098 gp >8wq0s @`:|  ϟ0Ϗ?|?6>??>? ϕ98 gp >8wq0s @`:|  ϟ0Ϗ?|?6>??>??amoOoXGook 201"ooooloocoo7d@40473aloOgaa@4<30`0401@0E01D0 204"E@05nPD00``c33=<?<\hbcS=>?dlo3cn?Wlo?cno?omnPOo 212"oOgmoogomOOd`41333?<C8??$?x!]3n>D? ?`gy@`?8A`d~`~?2s?'?``C8 0瀎C p|0L|@8q{` ?~>xy |>q 9s7ax#?|w80<'=?~8p A>Axp=z~>q`p9 3<~8l8q È0><?x8>`0?x @ ?p>8 }g@?@  ? ?|?@0x<#@@@?&???m| ΐ>88矿? ? @?8'6|}|  ?y>Ͽ>9p<` ߇><|??x|?9@` 0G !yp  >??0?~xOx?~@: ? pwp1`?g??~|xx81`Ïp|7p?`?ǀ??߰0wqA?p10=;;w ???><x88ppO??><<|!spq#1apqøa q1a 8Ǐ?ǟ6 ?~0~c<~8@@}ssyp#@O?83x8 0' 8wxpop|_?o|x? ~ Ȍ ~0|0 @c3lG3a6~0|;>?zs>@???2`p~@x'o > |p}pp0 x?~>`~ك'M @@>!}20? 4?8G8@/></g~ A@9@sv}?}p8>@ ~>aA矜 <~=q7> xC~ <a3 8S@ƜS;A O@Aor?|C=R0_#!-wpqE@ <``yyI?響[`4?`GK,02A@ߛ@c?%s  : nuO0|;5?'PQ!o @龡+?o`Xm߀-܀s~ ?QCO?>II<`cO qhkχB$?|@<8`8 N 8"_<8`x!TϷ1 ^?g@ÿ<0!xC4|<@8p>džt%?0 0x|p`c@ qÀ@w8Xx` `|?q  >8g 0<`8Hp!?@y x / '^0 8Dvxa?r?Hϟ <xx`<`p@`p|8p ? y81?0s>B^?_C"8gq,Ϙ A<18q< 8 u>Ag cϚy3Fc?Hc|c8pi=? 8p8<8a pq<<8| y0 1! X8'8@?(@cp0P9L c>p8 1am^b<[?h6#۠$8Ya 0KpaP$=?DŽ!`zC(#Ü}`0xވ}Z=0?Z? ? {?`Ҁ!y? C?b7w3@ @=dž09 x|GG<y`<?aoY {8 `1<a p)0P /m08 ?_cw w<g7F@?a9@x}>^7?7 1b?1onD@ ?? i@|@p >8py 8￾<0@pǂ{gx`o4 8p8Cy|΀;| acCs?qCc}s8xyp>q7~w+h? <|<<8?x<xp<~|'Ÿ >>|<~~?x?C|~<<|?p>x~>~8xx0{~8xa|o;0o 0gxÀlx8Oe7@<~H\<pp{a>0釀AA0~`,> 8pmχ'>8xx8ÿ xpǀ{>?<89a=1?1 y)p 9Ä!;x>x| g0c< 3[KB0Ay/ 0xE` ?ߕ`F uO?8<>t>wÃ' > `$@x'xǠM?>?<> xÀ~Oxp8 <~(_^ 1CÏ>4|?1A[lG}6<x >m? v?1?p?1 >/`EKAy耟x8qǃƋN8xaÇǏ<<8 <8|0㏗0p{G|1㇇<8xxx,|pÃ>< xpÃ<<|0Ç<8|x0sxzxcaà <0|=xuGÇ xxǢ0$|2>3my<7O1 à ?>ɡ Nycxc<i^ɠ?|p~#;{#߀o<? ?D~~?@?xdC_|}<ͿzMO`/na?`g Öx}ğCMq>|xA<@h|/Ç o}4?>ۇ@yWϠ m?g|y?H~~ALJ?< 0| w9q029.yC|`Y.|~?~<<oσ|8p~~Kn8a!qÃP{>`变<:`xA<>8k|0yxƏ<><6p>>0<Ç> >8xxy`<0xp>|ǎ>x|88p/x<|pǏ>0@|/>><4.|8a xy|`C<><00!:x㇎=O< |paÎ~c\9yiI>o2,1G} ?8ㇶ?ao`x‹# 9o}g/0yp'aa@d0/Cme ?xo}xA?|<<&aa$e{`8G>?,{A8?o00{s+?'3~?spO+>x<ƒ{O?Oc_?<8xp 2^<9b?ǐxC8/aq<<|8=p|x?G y8?@ß~8P>#|< LJp8aۈrC8 @O}0#<@/G<v þ#~X8c 88|0ώC 8a{xA p~Ç8x>ǀ!8_G[g|0 pA<0C n?x`O p? ?? xioGO=@?3|=7`H ;s&d| #p@0 X?`8`04@yhY/  ?t? 1 =y?=` 8?c}s@`0@?ǀ`߿?q>?~lr w=/ wDŽ0ǀ?0?pp`? ~xx?>p0?`>x<?x? x87@1@{,/oN ?@caspOx?G|~`0p?/}~ǟ`?x{7hǀ?s@||?7?R@LJ_ >>?pxxp`à <> <DŽq߄x{{pG8Od090Gdgyr@@`6 s 9`#q{? $x?|`~\ xq x߼|OxAF??!?x';:2?z?p8#8|?q8A9|a? x<9p8 @ 8Cp Ǟy8@|a810Ï<>pÌqA1?=<9>8`sBs ?_?? ??_ @Q ???s O?0C?oxA~??a?~ 7>pOxx?  !0 ?<Gxh??c<0~!xy$???a??~?0??/ ??~ < ,??x<?`?@?8@?~ 8`B  |88?р?vw~| p1 8p?!`c fs?c|8?wÎv?03w?>'' v?`2` !!p? 3?0p 8? x9ÌywG^w?s0#;s`# /;w D0S???f#?  | o@?|{܀?H'h@?`@?+ _`? 0`#?0O7/7 t<@w`O??>0x?? <>x?>< ~?<<8 0`#?0O7/7 t<@w`O??>0x?? <>x?>< ~?<'4'0"'L&0&  㽱A'ƧoO&M'& *񝟝%e~ƽ Ɓo4'& S&5~,'5+$a0+"XIXI+XI+ ⽳W;Ƴo4V5FH' R!$% 愽 MCVMuM;7&9?REDO " o'~F '1h~wν/9h0'ߍo9#& m"& D;oo o&", $2d~. p&93O 5W;+5& &X|Ɵ''"'0O_ n&:,I 3',&.5+'!m 0M& 'A1& 5 & '~9?EXTRA IGNORED & W;' G0hT;½30ih' nh~2,&} %*+~FnO443#?%$I??%d? ?&3$k$g'|4HQ05$U4)=5&M'j KY ? ٞ~d$1 4?{~wT5 4OPR4Tn @y  .<;8h L#' 7 10x  p#7?0@;?c0ƒ(c#N/08Apy~`z<9̃?@970p?ߑ?篚@!g|`D 1>>@c1y@!` q >_!0| ?z@> >8,~h}:@@?88Ã0pA x>8 0~xAx8C|@aǑ>p< с! i pxqÏ>xqCτ?|0x >p}Ȁp8^h@?||pc! pC?@? ??ǃ򿽷 ?Ϗcx0qx qoy3nj~w?c`?|!z| ;Fzyp@ß]3>}?0@c?'qw |8q?/? <q?a8p?`~ ? ;9y`08i0} ca< Y?0?@'p_?T?8lx ;>a8πa>? ;x=c800?𐁸c@>@ `q9 y p~99w~9}`  0~ ???? wdpx?p?LJ|տ`q y{y8aC@?pp 8C`9d@? p_4;<?߀ 8 a>?g ? 8pw c>O?;@p ? O:ǀ'8<qgd;x0l߆>pC@y~yyޑ<a@q@/?>0s@;`a=/~??0??_?ZPp@C{ 5~ 8`?|?(~0?p!h/_._? A?|8? ~WǏ<><00aCυϛ |>  @Khxpvtn `0}}@0WÇ`! <<y>~p8?<8py@`> x@PP~ ?>@8p6|5c@_<?P``x8 p80| Az9a?` ?76?<1n?@00Arv8<?x0?À8x ?>`8~?x??>0a`?~`p???<??0(@? ;?dt@G<>?ox@0~\}? "P@wAߠ />8l0~?87.?p|??? ??04^@/<_0? 8@g~|>\5x|>^3Ǧ$?y8!a|<a> 2 7"<'-f?a0?q??@?!py|x800ǁ1烏?C ???~?~'>@$? =p ?}~?!|ps? 'C??xx<;`< @8><@88{ ~~~@?>0<` ??9L|@`???߀ ?x?T8q@/:3p @Cg`| |h? <>88?Á`@}? p%;p} W|3@ k 9/<@x q?a?>Á`@}? p%;p} W|3@ '''&䝟'&؝% Ԟ4g%0a' % 3P0 GCP0AE5+&l,&l,' 00h00'J'&4ؽ̽ŽX54R5@0'Z 0]'13Ž0 UL @4_S RYJ&]& J'' 09#o5Z&2b~)P ~#̷94&kma~4 '~5~]'~|~M&.xxH}' o50&՞'m=ӽǍ)4ݝ&|&1?& ܍9v p'~B4L'ފ 54~F~0A~ڽ|~Do& 2bp y&p94tz4z y&5O41 +7&Ҧ&0&<&"6&ݧ#)&2b5l% ~4\&5!R&9&!9H4!!5O4vhgifdg1 &&o'k&&$"ƀ&ާZ&&2d5o!PO4P瞊$%*4O!"V$h$2a5"V0&J&2b @@5 ?? ?`%;t@8#~8qc>s<?<<8?y>?8?1πx`߇ ?{Ç<p8y1~?ǁy;<|?9~?1|?0@?x?<;,  v ?  xH x #` ?=7qw {wz (9'@B ,<80x /#?0v8p?E1q (@.?1G~  ~? 3qC>Ϟ~0xÏxsxp08xLJ <0<8CA 0 >?8@F8xC@9cqs=x }ၟ?9?7g?` ygc7???3 ;?q`>9 x(?|Xx'@@ G 0`_lﻀG8`>O ?o@p ?;@?  ( <?0|3?`?Os ??> ?? ?  <C?@? |x!?m@ x?x sϏ`l~-<#?_/0|>@<">d7`>c?G @ >v`&N|"`@>??0<?|?00wp_Lx@=|<|???`@o 1/ |!?@  ?`x`|0ǀA~ 8 s9~ x0Ã80>|<80ߟǀ!?x xqϏ>8cÇ <@<px>< ?φx`p?0> <|?9LJp8x? {p >>><@~`c`q??`>@>8}<0?p` ?p~<|>|>xǃ! 8?>>?>>χxpp ps8p|p`?2?p3@??p㑃a| 8> wp<30s?A?;x9 #?w矿x}x`wy=pg G`?0 ~  A1ߏq>S@x?g<?>~ ~9cÿ;?|= qǏ? 21ǟ1 ~;>|0GM 8Ap>????9?:?~ |<~ ? O  ?P`? Q x}8`@ 18!P<@ Gǟ@{x0x= x1Ǐsxr< xs~?<`~~p@ώǃ?? C?~?pǀg@``'?? ~>P  >>x?<p} 3 ~=;x v?@ xà ~|` Ol?v?>x? ?? x?G?|/<;?xǀ ??` ??~\?@><>??/ ?8`pyo?7<_8Dz</| ? L  ???>xa|~ q]?|<?<?p|} @`| `pp?<~?!0?A??C?A??}?~?!?do?|>x>?_ypŁ?{C?x~?N}yG?>?x|`@<88ϘG?!/o _@p?@~?~@~@@?0X80?<0?`k@|?>/`p8?>8x`f???`0~A?pß??|?}@#00?|.| ?. ~>80<x0|G0 ? o?Lj @.W0~[ x??A)?y_O0_  ?=` g' Ï<@>Cy ?/?p @?p~'?n~@@5>?0|۞  tp??_?_8y?`?{>o? ? pp`?~/`?@ 04!ྀ@@  ?@@?? A?  p ?#?q`?<?& (235): 32:"ADC"##@Hv 1?&Z&_%ކz9c33<<<``c33<<<``c33<<<``c33<<<``c33<< 112 "<``c33<<<``c33<<<``c33<<<``c33<<<``c33<<<``c33<<<``c33<<<`` 113 "c33<<<``c33<<<``c33<<<``c33<<<``c33<<<``c33<<<``c33<<<``c33 114 "<<<``<>~x???0??p|> ??0?|?0|???`0???x?>??`x???? >???`|?????? 8`~?????<>?x??00100 *VOLUME CHECK ROUTINE FOR ADC.BAS 00110 *REQUIRES RESET TO EXIT TESTING 00120 ORG $E00 00130 CLR $FFD9 *HIGH SPEED POKE 00140 LDA #0 00150 STA $FFA2 00160 LDA $FF01 00170 ANDA #$F7 *AND VALUE OF ADDRESS FF01 WITH F7 00180 STA $FF01 *STORE VALUE INTO FF01 00190 LDA $FF03 00200 ANDA #$F7 00210 STA $FF03 00220 LDA $FF23 00230 ORA #8 *OR THE VALUE 00240 STA $FF23 00250 *^ ACTIVATES THE CONTROLLER ROUTINE 00260 LOOP ROR $FF20 *KEEP FEEDING INFO 00270 BRA LOOP 00280 END 130(}M"VOLUME"::&HE00(+"ERROR WITH (VOLUME) ROUTINE!":(nȞ:"HOW MANY MEMORY BLOCKS (1-4)";MB: MB1 MB4 200::(M"DIGATIZE"(ܒ &HE13,SPEED(:"READY PLAY AND PRESS A KEY...":44539:"DIGATIZING..."( LP1 MB("BLOCK ";LP) &HE04,MB1):&HE00) LP) "))'10)Y,:"HOW MANY FILES (1-4)";F:"FILE NAME";N$)h6 390)w@ LP1 F)J&HFFA2,LP1)TM N$(F))^&HFFA2,&H7A)h LP)r 10)"NAME TOO LONG OR NOT FOUND":"PRESS A KEY...":44539: 10* :"FILE NAME (6 CHAR MAX)";N$*C (N$)0 (N$)6 400* MB0 :"YOU DIDN'T CONVERT ANYTHING!":"HIT ANY KEY...":44539:10* ((235)) 4MB :MB;" GRANS NEEDED! NOT ENOUGH ROOM":"HIT ANY KEY...":44539:10+ LP1 MB+’&HFFA2,MB1+6M N$(MB),&H4000,&H5FFF,44539+?֋ LP+P&HFFA2,&H7A+Zꁥ 10+: MB0 "NOTHING TO PLAY!!!":"HIT ANY KEY...":44539: 10::+M"ANALOG"+ &HE2E,SPEED+ LP1 MB+&HE04,MB1:&HE00+& LP+0 10,BX:"TIMES = 10 TO 45 SECONDS":"ENTER SPEED 1-15 (15=SLOW)";SPEED,ob SPEED 0 SPEED 15 600:: 10,"DIGATIZE.BIN NOT FOUND!":,"ANALOG.BIN NOT FOUND!":,"VOLUME.BIN NOT FOUND!":,Ї,::&HE00+& LP+0 10,B????`???<?? &I 470:M"DIGATIZE": 480:M"ANALOG": 490:M"VOLUME"&[SPEED15:MB0&v: 500: 40&(&HFFD8,1:::"ANALOG TO DIGITAL CONVERTER":"FOR THE 512K COCO 3":"BY SNAILSOFT SOFTWARE 1994"'2:"1. TEST VOLUME":"2. DIGATIZE":"3. ANALOG (PLAY)":"4. SET RECORD/PLAY SPEED ";SPEED:"5. SAVE":"6. LOAD":"7. EXIT":"ROOM ON DISK =";(((235))4):"8. MISC. OPTIONS"'<"MEMORY BLOCKS IN USE = ";MB;"/56"'F A: A1 A8 :'P A 90,140,400,450,300,210,510,520(%Z:"READY CASSETTE PLAYER":44539(_d"HIT RESET WHEN READY, AND RUN":"SET VOLUME NOW..."(nn 130(|x: 3740("ERROR WITH (VOLUME) ROUTINE!":(:"HOW MANY MEMORY BLOCKS (1-56)";MB: MB1 MB56 140::( &HE19,SPEED)8:"READY PLAY AND PRESS A KEY...":44539:"DIGATIZING...")R:&HE04,MB1:&HE00)Y)cȁ 30)Ҟ:"HOW MANY FILES (1-56)";F:"FILE NAME";N$)܈ 290: 280)LP1)&HFFA2,LP1)LP:M N$(LP)".ADC")&HFFA2,&H7A* LP F LPLP1:240*#MBLP: 30*"::"NAME TOO LONG OR NOT FOUND"::"CONTINUE (Y/N)";AN$: AN$"Y" 250:: LPLP1:280*,:"FILE NAME (5 CHAR MAX)";N$*6 (N$)0 (N$)5 300+@ MB0 :"YOU DIDN'T CONVERT ANYTHING!":"HIT ANY KEY...":44539:30+!JLP1+2T&HFFA2,LP1+A^ 700+qhLP:M N$(LP)".ADC",&H4000,&H5FFF,44539+r LP MB LPLP1:340+|&HFFA2,&H7A+ 40+: MB0 "NOTHING TO PLAY!!!":"HIT ANY KEY...":44539: 30::,  &HE37,SPEED:"CONVERTING TO ANALOG...",=&HE0466,MB1:&HE0066,G 30,qž:"ENTER SPEED 1-15 (15=SLOW)";SPEED,̅ SPEED 0 SPEED 15 450:: 30,֚:"DIGATIZE.BIN NOT FOUND!":,:"ANALOG.BIN NOT FOUND!":-:"VOLUME.BIN NOT FOUND!":-,:-&:&HFFD8,1:-B:"MISC. OPTIONS MENU"-:"1. KILL FILE NAME":"2. SET START BLOCK TO =1-56":"3. REVERSE DATA":"4. DIR":"5. SET DRIVE TO =??? ";(235):"6. EXIT TO MAIN MENU"-:"CHOICE ";A-& A0 A6 520. 0 A 570,600,630,680,730,30.Z::"FILE NAME TO KILL";N$:"NUMBER OF FILE TO KILL";N.zD K1 N: N$(K)".ADC".N K:520.X:"ENTER LAST BLOCK";LB.b LB57 LB0 MBLB: 520::.l"CHOOSE FROM 1 TO 56":600/Fv: MB0 "NOBن@ 1?&t IZ&񧀌_%'J ؆z9F *HIGHT SPEED POKE 00130 LDA #0 00140 STA $FFA2 00150 LDA $FF01 00160 ANDA #$F7 *AND VALUE OF ADDRESS FF01 WITH F7 00170 STA $FF01 *STORE VALUE INTO FF01 00180 LDA $FF03 00190 ANDA #$F7 00200 STA $FF03 00210 LDA $FF23 00220 ORA #8 *OR THE VALUE 00230 STA $FF23 00240 *^ ACTIVATES THE CONTROLLER ROUTINE 00250 LDX #$4000 *START OF DATA 00260 SOUND1 LDA ,X+ *GET DATA FROM THIS LOCATION 00270 LDB #8 00280 SOUND2 LSLA 00290 ROR $FF20 00300 TIMER1 LDY #15 *SLOW SPEED DEFAULT 00310 TIMER2 LEAY -1,Y *DELAY 00320 BNE TIMER2 *DONE WAITING? 00330 DECB *B=B-1 00340 BNE SOUND2 *BRANCH IF NOT EQUAL 00350 CMPX #$5FFF *ARE WE FINISHED? 00360 BLO SOUND1 00370 CLR $FFDE *IF SO, SLOW DOWN 00380 LDA #$7A 00390 STA $FFA2 *RESTORE 128/512K MEMORY BLOCKS 00400 RTS *RETURN TO BASIC 00410 END ATA 80,A7,8C,48,6F,8C,46,A6,80,A1,8C,40,26,F,E6,80,A6,80,A7 19 DATA A4,8D,15,8D,23,5A,26,F7,20,4,A7,A4,8D,A,8D,18,27,E2,7F 20 DATA FF,DE,1C,AF,?x???8~?>| ?~??<?x?x?x??8p??`p~???? >?  >'()+,-/01345789;<=@AADC BAS ANALOG BIN"dANALOG SRC#AUTOEXECBASDIGATIZEBIN!LDIGATIZESRC$VOLUME BIN%/VOLUME SRCELO 1 ADC ELO 2 ADC& ELO 3 ADC ELO 4 ADC* ELO 5 ADC ELO 6 ADC. ELO 7 ADC ELO 8 ADC2 ELO 9 ADC ELO 10 ADC6 ELO 11 ADC ELO 12 ADC: ELO 13 ADC ADC ARC?NALOG DATEYTEST BIN5ANALOG TO DIGITAL CONVERTER ZBن##@Hv 1?&Z&_%'J ؆z9B``c33<<<``c33<< 112 "<``c33<<<``c33<<<``c33<<<``c33<<<``c33<<<``c33<<<``c33<<<`` 113 "c33<<<``c33<<<``c33<<<``c33<<<``c33<<<``c33<<<``c33<<<``c33 114 "<<<``SR$FF20 00240 ROLA 00250 DECB 00260 BNETIME 00270 STA,X+ 00280 CMPX#$BFFF 00290 BLOSTO10 00300 CLR$FFDE 00310 RTS 00320 * 00330 * PLAY 00340 * 00350 PLAYCLR$FFDF 00360 BSRSOUND 00370 LDX#$2AF8 00380 SOUND1LDA,X+ 00390 LDB#8 00400 SOUND2LSLA 00410 ROR$FF20 00420 TIMERLDY#15 00430 TIMER2LEAY-1,Y 00440 BNETIMER2 00450 DECB 00460 BNESOUND2 00470 CMPX#$BFFF 00480 BLOSOUND1 00490 CLR$FFDE 00500 RTS 00510 * 00520 * VOLUME CHECK 00530 * 00540 CHECKBSRSOUND 00550 VOLUMEROR$FF20 00560 BRAVOLUME 00570 SOUNDLDA$FF01 00580 ANDA#$F7 00590 STA$FF03 00600 LDA$FF03 00610 ANDA#$F7 00620 STA$FF03 00630 LDA$FF23 00640 ORA#8 00650 STA$FF23 00660 RTS 00670 END RTS 00510 * 00520 * VOLUME CHECK 00530 * 00540 CHECKBSRSOUND 00550 VOLUMEROR$FF20 00560 BRAVOLUME 00570 SOUNDLDA$FF01 0000100 *ANALOG CONVERSION ROUTINE FOR ADC.BAS 00110 ORG $E00 00120 CLR $FFD9 00130 LDA #0 00140 STA $F00 00150 LDA $FF01 00160 ANDA #$F7 *AND VALUE OF ADDRESS FF01 WITH F7 00170 STA $FF01 *STORE VALUE INTO FF01 00180 LDA $FF03 00190 ANDA #$F7 00200 STA $FF03 00210 LDA $FF23 00220 ORA #8 *OR THE VALUE 00230 STA $FF23 00240 *^ ACTIVATES THE CONTROLLER ROUTINE 00250 COUNT LDA $F00 00260 STA $FFA2 00270 LDX #$4000 *START OF DATA 00280 SOUND1 LDA ,X+ *GET DATA FROM THIS LOCATION 00290 LDB #8 00300 SOUND2 LSLA 00310 STA $FFBD *ADDS COLOR EFFECT FOR SHOW 00320 ROR $FF20 00330 TIMER1 LDY #15 *SLOW SPEED DEFAULT 00340 TIMER2 LEAY -1,Y *DELAY 00350 BNE TIMER2 *DONE WAITING? 00360 DECB *B=B-1 00370 BNE SOUND2 *BRANCH IF NOT EQUAL 00380 CMPX #$5FFF *ARE WE FINISHED? 00390 BLO SOUND1 00400 LDA $F00 00410 CMPA #0 00420 BEQ EXIT 00430 DECA 00440 STA $F00 00450 BRA COUNT 00460 EXIT CLR $FFD8 00470 LDA #$7A 00480 STA $FFA2 *RESTORE 128/512K MEMORY BLOCKS 00490 RTS *RETURN TO BASIC 00500 END ?|xx?@@?C,8?}<?  `0|q? |/??a#1C??0 ??w<?p??w?6?g?3p`?>;Ç?N>"Ns~?q#sG ?À8?|0<??p90?<??|?`<78x ?x?x`?8?19;#??p8| >x98<<;8>=<x`xq>q aǜw8y?88> ~?8;8 Ǟ8>?09a0<q?88? ps9??pq8} w<㟜|p?;`3fb8?`?p?8y9? 0> ?x?8{>p`<|r~πgx?g1?|/8p?q|{0g|0|>???x>>?81?? ~?<yx>p?a8?'`<???1?8|`?#?~????>?L?>31p?>p<>? ??`?lN> ?`???>>D~?\,?? `{?굂?|p#?(?1o.S0|?p9ǀ??;??? ?/ ?@ ox893????~?| ~~?~o@~|? x?/?!8 @ ~?<8p<x_?????g࿀8~C>x6x10xpsw1g y 8csÉ;3?1y @x@  g8p"8~2v @#~00y<8<?qwp08?p0?~38 |8B3x<9Ɂ?~x?p< @ag{#7qb asc 7< =c;`>w Fc<y@ c"ypz1? 0!81? p ?a /@?pϞ8 88Ok?( 1x1bB{1sN#?s@ ^c ?0# x ? @?#GC?@?yas0`1gy{;q@808qy?0sÜxq``9q??0ÿf81_sx#` x?~ p;C? 8B?;??s!?߀'|#A@<>7? /7x@<'?@p0 |@<@4`? ? !?O?? 80xq?0xxq338 p`8Ꮘ=9p?|sa`0=qq;0xC@?9{# w11s8s;F1G0sgy 0#971Fs11=1$x>73?O#f?! `3ce{c;B0wDfx? 8wx` #p?~Xp8|??xOW+o0|~?3?Ap#?L~ ???P???|x ?CB ?~?0<pd?o`? 8o >v?7w#?|p{? } .<l?????>?>?C|}?4 x?D  ?<@ 0??88@8??@???0??; P<@_K``?`?@2? ~- ~ @?????> @DC??;x~??0?>? v^@]S8/{<p?_>(?'? o?x8??@<?0P~?R~/< ? `\XA P?@c h u?=?@?P h` '.?' `; _@?|GuAv/x0@x s~8p @<0! ?0F?| ??'"C?~?p?|x ? ? 0 >~8x88~?~`?`10p=?|h8?@|?p??@>0 ۀ<=?>3c 0H`| ᏿ 9ǎÏxy9珜c xg~8'|>~t81 &> 0߾z?$ NZZ X `@?tPqgL_>>>y' !>`|~@h{/7b '/s>@;fw/;<~?s?@l ??0s? "'7/@;H|8d#gGw?>MA? `?0߿ |@?@_??>  ?>8><88@@?>|>?|x _><<x8@`qxgXp``x8x>|x;><>~0|?x8 >_$x|?Oa~φ>A|>8`|>@{p0<p? ?8/ ? @s{pweqLJ?x?ǂ?@WX?u@?<il |{<<C/~qp`??8`?``Ǹ?~p??08??÷}? ?WA??8~? 1`/g ?ǡÀC807&`  {࿌?9yp0<t`0pPB8~? 1`/g ?ǡÀC807&`  {࿌?9yp0<t`0pPl`cc3?<<\ 134 "`bc3;<<\`cc3?<< x>>??p|p8px?||~~p0>~?>A~  0|#???@?@?_??p @?`?6?3<__ #? ? @?_x /__x~?u {p@0< <ǀ?`8q8p|s=0C!s?|x?8a@ ?<?x@?>0@ App??@C8xÏ y{=a|>s| ???c@? G?A|~??w;  ~߀x@p0C ~>181p;0>= `gsp?1xs88yp}0 81 A s<Y?9s??y?g?yap?(@ z?p@_p?c?~?||@/no??`8Ǐg>?xps <`~|p<|'~pp߇w>| |?|# xq?1>'A/S/\???OGGG`?XP'p@o?<?g, p|<O92  8????8 xGh |@6~9??<? ?????8x?91<? 8"0p0 Gh?@7 !C? O 9  ?ayg?? ?|o0?Gn5 ` ? p?||?8`>??w0}UCON?>~À ~?<7xg  ? =?8AG'??? ?p <}??`?|??}#~ c?t`??Ȁ ~0?>@ x h?F<??# @?<~?׏y?> p?>6`~>@?a|>xx<`x?180s߇?~>><<88xaf s.0wp=@<0xa18 ~ ~p?8=` `?|`$?xC>'`3?1`c ? x @8Cs xGsx? <|/<a!0?x?a@{@}H!/O>?G€g>q/x[` Gx=Hx8<9 <?~| @|0???<@C{p|`Oߟ?_pph<8?s8ppF_pxAy1=a8`aLJpN@q 18w7D??p>~|?G@ <<]?G?0?`#?????81 0x?x#??v~!?y; f{y?|  lp#G/0g0ϟ >!??c0@aOx><~8|{p??'?yoO?8P#ppg<<<p |}?np@?x8@|y|?00?a?@?@t@?~ xx?~~|?w㞿|||<|p>?P>>>|x~|>88 o?@>@ ??0|}o8@=0??? xpp|x~ ???] P c`@aッǏ?~88|8|x8`Cσ<?|px'<<P<`}x? >qa?8?0;!## #_ 2tx'<<P<`}x? >qa?8?0;!## #_ 2t4W`B5D"O51l@OU1bD7I0A0EL3A`471alGGaMOEgmGoeooGomoogoj1OmonQGoo_kno5"?cln?Sj1?3Ph>30`<3j18000@010@D11@4501D45@@E5ELEEaEG5ElEGaEo5"EomMoeGoGomgoeOoOomOooOoOoogoeooOooooeoooooOogOoOOmgogooOom6"OogOoGomoogooOomonSWooOoloocml?c@d0140D41@@=51DE=EADE=EEEEM6H"Gj;ED030P8411@0500D01@441AD55@DE11D7 "4AaEG5EmDGe=O1ElEGeOoEOmEogOooomOooOj1OmoomooOoX7ogoooomoom7L"ojDOomoogooOoeoOCmd?C0d4710`D51@dE5CEEEEGEnSiE03?<<\`bc33<<7"LPa`3718L4U`@G11lD7aAN51`DG1alG7aMO7elOGemoGgmOOemoGomOogoo7"OomonS;oo_kmo?ghnOWgmOOeilOOUinGW`DDnPD00@010`431@<50@D10D18"0P51@MEEo5OlMoeOoEomgogoomomonPGoOoognPGogo @`>p?|p`!;c?G@%ǿ?@l!o"@پ̗X{<燾Aax1 ៼>ǜhc8@ sAm _<=xK296/<O~}CWq@߀߸ H?Fo1a l~8 xC ?@@{`<+@zI{}}>x# a 08 07 _}߀ ǎ8aOax.!ÄX<8p|S <ᇞ1 xC a0AwPqqLJ <7 OϼFh? {a800?=x< ㇀ p:a<߄ 8 | ;~_h`}mİ`>}㿐@ %?<,?0?/0 Ƅ ;@?N`08yi,00 1)8pw~xЀO~ 0 `AC?x<[?x?G/ @<0 P?|@? | H`?O ??@~ @<{ ?_s}C{Ay?`|ϼyc <4}!?xg? x F 2q̀8|a81<0 {01`~#5 8<Ha/!8=~y_yy`&~X%[|? qA~R =?, @yOⷼ?`> q=?'g7$ ߀_y@  <??{8__'`>|~}~??=?xτ1x}8@#!g8 qa|!0{`8i}*~O |#|g=^< 03wHp9O3e;@!N>v `Kz+!?|x0{]8op~a @>x< Î|9D ?[p<>x00pC09I,`?qyx0Þ?\0@`Ǐpx0Ǐ8`<8_??>p/8;͟|00 8߿>@LaY|/>@@>g`LA?08@ ̀a 2?aA p<y g <89V#_895?)޿8w<x?o< !?ü a= `}q0 <$`A  >Q<*8@<C0 {`a 3 >38GH>ߟp p@^>x-@g l>7xm~ A@?=;`` B!: |o7%$1C Ï10> p1>N<0w @pB,@ @ g#/?@l2`@ 0 ?y@@;A #C0? ? `qag?ܷ2~?8o _;h 2}0px8 q㇟>}0} x` x|< 81 8qǟ<0 qq> >0>xO~#>>~9C?<>}x@o6di?`'#-Ǡ oa $ =@ { 6 >C$%遱?|y8|aO_qÃ00zx㳇x4p` C3|a;0 s8xpC<y?`<8a`y 0 } p9p8xx n8pa?{À <00c? xx@0//'Ã\xz8y8q!P48. 08y0 p,0xNw8xr0x?f   p?|yp!>:Na 7?? 1@4}xx >{ޅyi0?~C<!8a|p;s8#p?Csascw owC<3qt=<a y?9=0 ?n?<`;{ye037 oA? <'C@`?%o0?8 > `A"6?B?0~a~0x@ <τ~ c  @ Ap40x`}<x/,? <;<8?}>8`9~ p|7q<$8 c8 >t>99Ohcxπ@0C>40x`}<x/,? <;<8?}>8`9~ p|7q<$8 c8 >t>99Ohcxπ@`cc3?<o&p?<|G8 =yh|<@`@@?```@?x8c?|08~ ?~AÏ68>?\??|8`~ pf`@n"aN<?? `&` np? 8`px㇏q`CÏLJ?0<`g 0pp0x898,ߍ؁?χ|߀| |f~nH|  m;D0`x|~@|ǻ9 q рx>X8|p|x=>|>}8x~ |0?>3p>Ǟ߰/8;0 ??럟88|gxp;wy03'?? v0w?|1??p?n ??`?#  ? 78|ߏχO13s? <?|x??x0>`|???>s?<?|i?< xOO`8`?->{>>/dG 6gF~ƌ   | #?pnc?@ `L|O ~opކa\ !`}80?8y<8@8>x>|? |||pp ߿?3p`??? >??>?  ~|7>|d ?|džGcy ٻoc'qG~0?`?>q>?>?xߘ 8?81Ç:ÿ㇀_? ğ`$`cp`0p?`8<πs|`&? ?xA~p` ??f; c8>  d?>@~0<;>wL<~?nj ǟxg<0?;?;1w73c|~? 9`!ǀ``` L| pp7?~|0~ 80s'``0'Ӈ?_90w0Y?>x~=?Àn~~lhd؀ x@?`p @< ?01 ???>???~>< 8< v>?~@`~>x>o8 '?[Xq`??wpg;0xp`?0<A0>~<~`Ϗ8| F~|0<~~>?{~~p0>?0ˁ χ??~` `<?xx?~?3pp ㏁d `00?|?|pȟ}xǂyg@`> x<~<8xx8<>y80q a?ᇐ/?ÇA??ǀ~>z~| |?|<x%0`?<`pCG?zx8σ|8x珀>x`ώ~<ߗ |<0=|8}DŽ>|{K.~8$><(}p ??~|燀>> 0?>|~g8#0x< !0 pe8qe3e 0x8Ύo8=N<2p9q(c}?s94 sM~cO0a4c~1?q8!0~s?9p8C%xw>9xӼa Xl;x c8 5: q0|cy>qm3C-=ێcyF={㑆pY99x8ɇ6d||21<ᇎ0;ϰ0?x8C pcx/<poy>x 8{=8xLqO8yю?1<0aǞ0xq80Ïigqo0xC xa>8㱎a~gx8q0b ~9C?}A|`πƏ> {8!y9ᏼpa<#x|Ï|!<ᇜq>py|qA8 xC |nj9p1<1=q=~1'ywspFO o ?y᧸I)oxI pǞ$q.81pІ5yA_|i<eSӌƼ^K z\ix9<`Ǐ0<Ӆx!o?wxs0{|S`S߁`o ys'0>06<<> <<8~8xxx8xp<~c,) uÝ95ǎxN9ώ=ǟ?cyQǽ#s! s0XǬ10^x#qc ?>C c {|1=c!? ?!{aGG5<<9x8c <>q?0yN5<%Ck8~pÇ<8LJ~<8<8|*'-vxK<$FN?>à |6xYy,~>aᗏO,||ɷ <],7'0Ӂ$0x > C/ 8yXy>|Cc<?2ocl<[`ť1oO >p}HS 0a@oA @|A-Isƒ\``9 sxHugY xh7>.mx-\ agg#v<9(iX9|9 'Bw<8iw<qpZ0880x > C/ 8yXy>|Cc<?2ocl<[`ť1oO >p}HS 0a@oA @|A-Isƒ\``9 sxHugY xh7>.mx-\ agg#v<9(iX9|9 'Bw<8iw<qpZ08 @px ?<`| ???1 ~3 ~p`? ?o?0?97MI6Ag??O?<|a`dx>>! |?@3?3o!O6~X'? ? gx3aC @ ?8` =|?0p??8xO`~8@?w|'?0?`?~ @|??'lg\$?@ #>d2Ɂ$#O`|N:'o&gv7~ 0'X?`0|߀A0̜'`A L0|??` &2/퀇gp|l قo0@|<ǃߋ_ߏ݀>2@@?`O?c3ǀg.q,pp(0!pp?``O?878@AO0a@@D;0  @ @0?p?O?????Á??\&_ 1y>`N{(w@8>9pxg<@@?8p?  πww??w?&p!@8>App||@ `@? c@@ ?  <? 8ss|?  ?00~0a q?G?<?0߁0ǀ>3x???sb1p~<p 0?0< ???????? ??? ?7 x????O@ ???0??x?????????@??9???7~ / ?&_o fLX1 _;?~| ?x?dsw <? ?` 1 ???}8 O'?7760?p e0 ?yx??9?߀ xb?@@dc$̛2w 6E82ͳaߙlf3d$??we9 .^Á0ςHyăd$ >Dl }ߜ` gG;gGB>~ȸߛzϹ?|7Y 0 >?>x7O "~68i8}0t!p?g ?7 C; 6߻?` |`Μ@!3=0bϮzaÊPpgG!ǓG8?~9"8`sq1>i`p0>0Ӏga͜<@?|xwfn`0ϟ4p?`@@?x??0xpd` > ~<0F@0??????????????? O0 G@@??????  ??????|8`>?|q?g ? ??o? ????????#`??8x?`?????????8?? ???????p???p @????????x`c?M0gy????O10?]>@?;8q/gK_@?7???s`1???ȏ?"o?c'w?vgg@O@d?6"7>_ w3<Ac??02"`"&`v``0fvor`@Òx1`!dwOI6$ |'Ÿ@M$ ̀ N  0 ? FC@FGG ?<?'w@? @oCO@? `7@ @l020 0g?@y9<7s=32?@hD@G0 ?0`d;̸|q?C>|?d3?6#|L?Ð? ``o82<@?0y??4|0 >?d LdNd7r0/w D`L???v >>??@0|N ?@@d;? ? ?s @`  7|gs#p|u <83!0?s8<#|d? `H~ od dęD wg n" @ ;/v~8+g2F`Û O s0p?v``o d @Ï ;?f"?  #`?>??9lOs 's#`>A"n `GgG? 1|Oٿ78xߏ!h `A ?0va&g@?AP|A . l w#~A  q?ǿ76p~g?|L?w3w~#q@F?@̛7}  #?:2 ?x ???~'O??1~@~'!????ϰ?̿6N `O?3fgٟ7d6 ? G>@ـ <?s&~`?HNf0??o@O$OA?8>????ˀ>|L> 97 @ Ow6?ۍ`?@Hx|0~=7 ?GfB@gGG懓0_>d?? <o``O ?0 o d30pa?`s?0B?;f07 0??" ?@???Aq` ????????;C<|a`|p1g@<0 0 ?O?8?|f `@s؟Ȉ`3$4?̀d03~ >?0?`?x?>` ?|6"DO sِ 3G@| `gO`p0 7?0??@`p 0? `@00HcC?o??'0?<|@~?p??A¸?~?p??A¸??^x??y@{<!?x?@~_?8 <?ADC BAS &I 470:M"DIGATIZE": 480:M"ANALOG": 490:M"VOLUME"&[SPEED15:MB0&v: 500: 40&(&HFFD8,1:::"ANALOG TO DIGITAL CONVERTER":"FOR THE 512K COCO 3":"BY SNAILSOFT SOFTWARE 1994"'2:"1. TEST VOLUME":"2. DIGATIZE":"3. ANALOG (PLAY)":"4. SET RECORD/PLAY SPEED ";SPEED:"5. SAVE":"6. LOAD":"7. EXIT":"ROOM ON DISK =";(((235))4):"8. MISC. OPTIONS"'<"MEMORY BLOCKS IN USE = ";MB;"/56"'F A: A1 A8 :'P A 90,140,400,450,300,210,510,520(%Z:"READY CASSETTE PLAYER":44539(_d"HIT RESET WHEN READY, AND RUN":"SET VOLUME NOW..."(nn 130(|x: 3740("ERROR WITH (VOLUME) ROUTINE!":(:"HOW MANY MEMORY BLOCKS (1-56)";MB: MB1 MB56 140::( &HE19,SPEED)8:"READY PLAY AND PRESS A KEY...":44539:"DIGATIZING...")R:&HE04,MB1:&HE00)Y)cȁ 30)Ҟ:"HOW MANY FILES (1-56)";F:"FILE NAME";N$)܈ 290: 280)LP1)&HFFA2,LP1)LP:M N$(LP)".ADC")&HFFA2,&H7A* LP F LPLP1:240*#MBLP: 30*"::"NAME TOO LONG OR NOT FOUND"::"CONTINUE (Y/N)";AN$: AN$"Y" 250:: LPLP1:280*,:"FILE NAME (5 CHAR MAX)";N$*6 (N$)0 (N$)5 300+@ MB0 :"YOU DIDN'T CONVERT ANYTHING!":"HIT ANY KEY...":44539:30+!JLP1+2T&HFFA2,LP1+A^ 700+qhLP:M N$(LP)".ADC",&H4000,&H5FFF,44539+r LP MB LPLP1:340+|&HFFA2,&H7A+ 40+: MB0 "NOTHING TO PLAY!!!":"HIT ANY KEY...":44539: 30::,  &HE37,SPEED:"CONVERTING TO ANALOG...",=&HE0466,MB1:&HE0066,G 30,qž:"ENTER SPEED 1-15 (15=SLOW)";SPEED,̅ SPEED 0 SPEED 15 450:: 30,֚:"DIGATIZE.BIN NOT FOUND!":,:"ANALOG.BIN NOT FOUND!":-:"VOLUME.BIN NOT FOUND!":-,:-&:&HFFD8,1:-B:"MISC. OPTIONS MENU"-:"1. KILL FILE NAME":"2. SET START BLOCK TO =1-56":"3. REVERSE DATA":"4. DIR":"5. SET DRIVE TO =??? ";(235):"6. EXIT TO MAIN MENU"-:"CHOICE ";A-& A0 A6 520. 0 A 570,600,630,680,730,30.Z::"FILE NAME TO KILL";N$:"NUMBER OF FILE TO KILL";N.zD K1 N: N$(K)".ADC".N K:520.X:"ENTER LAST BLOCK";LB.b LB57 LB0 MBLB: 520::.l"CHOOSE FROM 1 TO 56":600/Fv: MB0 "NOTHING TO REVERSE.":"HIT ANY KEY...":44539: 520:: "REVERSING DATA"/y&HFFD9,0: R1 MB8191:@64,(MB81912R)/A(R):B(MB8191R)/ R,B: MB8191R,A/ (R2)MB8191 &HFFD8,1:520:: R0 :"INSERT DISK AND PRESS A KEY...":445390:44539:5200b:: ((235))4 :"DISK FULL":: "SAVING ERROR ";,0}Ɖ"CONTINUE (Y/N) ";AN$0Ѕ AN$"Y" 340:: 300ڞ:"ENTER DRIVE #";D0 D 255 "NOT POSSIBLE":44539: 730::0 235,D: 7701 (235): 5201<"ERROR CHECKING DRIVE":44539: 5201o:"ENTER FIRST OF 2 BLOCKS TO SWAP";SW1: SW21 SW1 0 SW2 0 1000:: SW1 MB SW2 MB 10001"SWAPING..."1&HFFA2,SW1:&HFFA2,561000ANALOG BINdZن##@Hv 1?&Z&_%'J ؆z9ANALOG SRC00100 *ANALOG CONVERSION ROUTINE FOR ADC.BAS 00110 ORG $E00 00120 CLR $FFD9 00130 LDA #0 00140 STA $F00 00150 LDA $FF01 00160 ANDA #$F7 *AND VALUE OF ADDRESS FF01 WITH F7 00170 STA $FF01 *STORE VALUE INTO FF01 00180 LDA $FF03 00190 ANDA #$F7 00200 STA $FF03 00210 LDA $FF23 00220 ORA #8 *OR THE VALUE 00230 STA $FF23 00240 *^ ACTIVATES THE CONTROLLER ROUTINE 00250 COUNT LDA $F00 00260 STA $FFA2 00270 LDX #$4000 *START OF DATA 00280 SOUND1 LDA ,X+ *GET DATA FROM THIS LOCATION 00290 LDB #8 00300 SOUND2 LSLA 00310 STA $FFBD *ADDS COLOR EFFECT FOR SHOW 00320 ROR $FF20 00330 TIMER1 LDY #15 *SLOW SPEED DEFAULT 00340 TIMER2 LEAY -1,Y *DELAY 00350 BNE TIMER2 *DONE WAITING? 00360 DECB *B=B-1 00370 BNE SOUND2 *BRANCH IF NOT EQUAL 00380 CMPX #$5FFF *ARE WE FINISHED? 00390 BLO SOUND1 00400 LDA $F00 00410 CMPA #0 00420 BEQ EXIT 00430 DECA 00440 STA $F00 00450 BRA COUNT 00460 EXIT CLR $FFD8 00470 LDA #$7A 00480 STA $FFA2 *RESTORE 128/512K MEMORY BLOCKS 00490 RTS *RETURN TO BASIC 00500 END AUTOEXECBAS& (235): 32:"ADC"DIGATIZEBINLBن@ 1?&t IZ&񧀌_%'J ؆z9DIGATIZESRC00100 *512 K A/D CONVERTER BY SnailSoft Software 1994 00110 *SUBROUTINE FOR ADC.BAS 00120 *MACHINE SUBROUTINE NEEDED FOR HIGH SPEED CONVERSION 00130 ORG $E00 *STARTING ADDRESS IN LO-RES GRAPHICS AREA 00140 START CLR $FFD9 *HIGH SPEED POKE 00150 LDA #0 *SET A TO 0 00160 STA $F00 *STORE BLOCK LOOP COUNTER 00170 *BASIC SOFTWARE WILL CHANGE "A" FROM 0 TO 56 BLOCKS MAX(256K) 00180 COUNT *BLOCK COUNT LOOP 00190 LDA $F00 *POINT TO MEMORY DATA 00200 STA $FFA2 *POINT TO MEMORY BLOCK 00210 LDX #$4000 *START OF MEMORY BLOCK, OFFSET BY "A" 00220 CLR $FF20 *SET CONTROLLER CLEAR 00230 LOOP LDB #$8 *COUNT OF ROTATION FOR BIT VALUE $FF20 00240 TIME1 LDY #15 *RECORD SPEED DEFAULT(1-15SLOW) 00250 *BASIC SOFTWARE WILL CHANGE RECORD SPEED 00260 TIME2 LEAY -1,Y *DELAY (DEFAULT 15) 00270 BNE TIME2 *DONE WITH DELAY? 00280 LSR $FF20 *GET VALUE IN FF20 (HOLDS SOUND FROM TAPE) 00290 ROLA *ROTATE BIT LEFT 00300 DECB *B=B-1 00310 BNE TIME1 *DONE WITH PRESENT INFO FROM TAPE? 00320 STA ,X+ *SAVE DATA TO MEMORY +1 EACH TIME 00330 CMPX #$5FFF *ARE WE AT THE END OF THE MEMORY BLOCK? 00340 BLO LOOP *IF NOT, GET MORE INFO ELSE... 00350 LDA $F00 *CHECKING COUNTS 00360 CMPA #0 00370 BEQ EXIT 00380 DECA 00390 STA $F00 00400 BRA COUNT *IF NEED MORE, DO AGAIN 00410 EXIT CLR $FFD8 *SLOW DOWN 00420 LDA #$7A *LOAD ORIGINAL VALUE 00430 STA $FFA2 *SWAP 128/512K MEMORY BLOCKS 00440 RTS *RETURN TO BASIC 00450 END VOLUME BIN/%ن##v VOLUME SRC00100 *VOLUME CHECK ROUTINE FOR ADC.BAS 00110 *REQUIRES RESET TO EXIT TESTING 00120 ORG $E00 00130 CLR $FFD9 *HIGH SPEED POKE 00140 LDA #0 00150 STA $FFA2 00160 LDA $FF01 00170 ANDA #$F7 *AND VALUE OF ADDRESS FF01 WITH F7 00180 STA $FF01 *STORE VALUE INTO FF01 00190 LDA $FF03 00200 ANDA #$F7 00210 STA $FF03 00220 LDA $FF23 00230 ORA #8 *OR THE VALUE 00240 STA $FF23 00250 *^ ACTIVATES THE CONTROLLER ROUTINE 00260 LOOP ROR $FF20 *KEEP FEEDING INFO 00270 BRA LOOP 00280 END STA $FF01 *270 BRA LOOP 00280 END STA $FF01 *STORE VALUE INTO FF01 00190 LDA $FF03 00200 ANDA #$F7 00210 STA $FF03 00220 LDA $FF23 00230 ORA #8 *OR THE VALUE 00240 STA $FF23 00250 *^ ACTIVATES THE CONTROLLER ROUTINE 00260 LOOP ROR $FF20 *KEEP FEEDING INFO 00 ?0?? ???<??@ <$?1x   ;OG`??80@ Ͽ @?͜|AĀ?>~ahGs0a? t`" lOc?? `wg` yp  0I!q``g  3`20?0<?F0<8 ??2?#4G`?@?x~`;????'>8`??!?0q ?????~??`???`8<~~PEED DEFAULT(1-15SLOW) 00250 *BASIC SOFTWARE WILL CHANGE RECORD SPEED 00260 TIME2 LEAY -1,Y *DELAY (DEFAULT 15) 00270 BNE TIME2 *DONE WITH DELAY? 00280 LSR $FF20 *GET VALUE IN FF20 (HOLDS SOUND FROM TAPE) 00290 ROLA *ROTATE BIT LEFT 00300 DECB *B=B-1 00310 BNE TIME1 *DONE WITH PRESENT INFO FROM TAPE? 00320 STA ,X+ *SAVE DATA TO MEMORY +1 EACH TIME 00330 CMPX #$5FFF *ARE WE AT THE END OF THE MEMORY BLOCK? 00340 BLO LOOP *IF NOT, GET MORE INFO ELSE... 00350 LDA $F00 *CHECKING COUNTS 00360 CMPA #0 00370 BEQ EXIT 00380 DECA 00390 STA $F00 00400 BRA COUNT *IF NEED MORE, DO AGAIN 00410 EXIT CLR $FFD8 *SLOW DOWN 00420 LDA #$7A *LOAD ORIGINAL VALUE 00430 STA $FFA2 *SWAP 128/512K MEMORY BLOCKS 00440 RTS *RETURN TO BASIC 00450 END VOLUME BIN/%ن##v VOLUME SRC00100 *VOLUME CHECK ROUTINE FOR ADC.BAS 00110 *REQUIRES RESET TO EXIT TESTING 00120 ORG $E00 00130 CLR $FFD9 *HIGH SPEED POKE 00140 LDA #0 00150 STA $FFA2 00160 LDA $FF01 00170 ANDA #$F7 *AND VALUE OF ADDRESS FF01 WITH F7 00180 STA $FF01 *STORE VALUE INTO FF01 00190 LDA $FF03 00200 ANDA #$F7 00210 STA $FF03 00220 LDA $FF23 00230 ORA #8 *OR THE VALUE 00240 STA $FF23 00250 *^ ACTIVATES THE CONTROLLER ROUTINE 00260 LOOP ROR $FF20 *KEEP FEEDING INFO 00270 BRA LOOP 00280 END STA $FF01 *STORE VALUE INTO FF01 00190 LDA $FF03 00200 ANDA #$F7 00210 STA $FF03 00220 LDA $FF23 00230 ORA #8 *OR THE VALUE 00240 STA $FF23 00250 *^ ACTIVATES THE CONTROLLER ROUTINE 00260 LOOP ROR $FF20R $FFD8 00460 LDA #$7A 00470 STA $FFA2 *RESTORE 128/512K MEMORY BLOCKS 00480 RTS *RETURN TO BASIC 00490 END  |} 0xk?|xx?@@????~08x|?8?`? 80~08 <C???x?>x3??8<#,|