@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u$d0L 2L>%L-Lx%Lo(L(L(L(L4)L2)L%L%L%L%L%LU,L`,L(L)L,L(L+L$(L".L,L(L'L'L'Lm'Lv'L,L,L'L(L'L'L.L.LkT}.L.L.L.L.L.L.L#*L.*L&L&L.&L=&LF&LQ&Lk&Lr&L{&L&L&L&L)L)L)L)L,.L)L:'L'L&LL'L['LR'L*L*L.L&L&L&La'LB(LR(LU}.L(L/L9/L6/L/L/L/L/L0L0L+0LC0L/L^(Lj(L)'L@'Lo/Lr/LO/L%L'L%L% -膚 ɩҍD҅ 2 22V}2 a(2222 ` -Lq -l ԤՄԅ`ȱ`ȱ`ȥ`W}ԑȥՑ`ԤՄ`ԤԅդՅ` '0=D '04.5 '0.( '0 ' ' 8`ԅ`X} & & & &ѐ & &ʥ %аЪ %Зьɛ &0 &0 `Y}ԥ`Ɠƒ` % &LS* %LS* %օ0֥0 S*` %eԥe` %La* % % o*L% %Lo* % &L|* %L|* %Z}L% % Ʌ` BLV䅆L' %ԅ`TU HH 'hhL, B VԩL%p v'P[}KJBDEL, &fL=) %ԅ`Ę eĘ +L4( % & %` %Ԅԅ`\} -``&eԅԥeՅ`L% o(ԨL%Ԅ & %eԥe` Ԅ &ɛ +0` d) ذI]} ( 8ԅԩՅL%L,ȹɛ꩛` d)f & 8fԆՅɛ摥0L^}?)$0`2 2L,(,ɛM(M( )ɛ )򩀅` %ԍ`ԄL%_}ԄL%ɛԆL% &󅐩f =) ؐL(L4,ԅԥՅL%82ԭ 2L%ԤՄԅե``}8ե`eեe` B* K+fL% B* +fL%8ԨՄԅL% & B*ԥՄԩՅօפԥFf G+a}ԥ K+ԅՅԥզЦ`ԅՅʩ0B+=+ B+ 08f$˹ `' d b}+1ԦԄզՄFԐ eਊe&Lh+Ԇ`hh L, +Ff&֐ݥ ԆՅԠ&&&8થc}օԈ`քע +Ե 8`晄 ,L,`GHFH` U,0ɛȄ ؐL,HI h 8d}ԅԩՅL%?S, ,򦅩DEBHIL,ɛ +` +` %HI BL,e}՝HIB VL,L%B Vú.hh -l. -0dd-8/ i - 0-- ,f}@ . ,... + x' $(.Ԏ.8ե ".LO-- , `,ɛD(C` ذ -L- -L 2 -- ,g}L- - -L-l lp '8`ERROR- ?Run address> BASIC exitTrace:P8Յթԅ` ,.L, .-h}ȘH *h00,)` & ҅ԭ ) |*օեׅ` L,0թԅթᨊઐi}```Յ`8Յթԅ`0 ԩ`ԅ`` ' %`BԝK)I JD/ELVS:)H)h yj}` & % & %TԅUՅV`&B ,NLսM` & %ԝL՝MN%BL, & /` BHIL, & /`k}B JKL, %ԅUՅV & %ԅT`)ҩҊ H) hҘ` %)xԩL% %))Lc&LZ& %l})pԩL% %)|LZ&Lc& V0L-$2266666L 2 $ !5R6 !$6 '$0 Z$6 f$m} Q$ Z$6 f$ Q$ Z$6 f$ Q$6 !$ l$22 Z$6 f$ i$#6 !$ l$ Z$n}6 f$ i$%6 !$ l$ Z$6 f$ i$R r$)6 $2|3L3Lc4 Z$ `$6 '$6 !$6 $6 '$o}6 !$6 $6 $Lr3@ Z$ +6 f$ Q$6 !$6 '$Lc46 !$96}33 $L3@ Z$ T$6 !$6 '$Lp}c46 !$;6 $L3 6 !$6 '$6 !$=6 $L4@ Z$ T$ Z$ T$ Z$ T$0 Z$3y4 T$L$ Z$ T$ Z$q}6 f$ Q$6 !$ l$ Z$6 f$ i$ Z$6 !$ ]$ Z$ T$L[2 Z$ c$6 '$ r$z446 $6 '$ r}r$)6 $6 $L4L2 Z$ `$6 '$6 !$ 6 $L4;6 !$6 '$6 !$!6 $L50 Z$4x56 !$ ]$s}6 6L5@ Z$6 !$ ]$L2 Z$A6 H$ ?$C6 !$6 $$ $ Z$E6 H$ ?$^6 !$6 $$ $ Z$`6 H$ ?$!6 !$!y556 t}$$ $ Z$n6 H$ ?$6 !$^6 $$ $ Z$6 H$ ?$6 !$\6 $$ $ Z$6 H$ ?$ Z$6 f$ Q$ Z$ `$6u}5m6 '$ Z$ T$`L$RE:K: R:$ &(D8:TEMP.DAT ~} (c) 1987 M. van Eck. PUBLIC DOMAINv}n661200/75 BAUD TERMINALNo ParityPress any key$UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU PUBLIC DOMAINiHandleiding 1200/75 Baud terminalvoor ATARI 800XL met 850 interface.Het gecompileerde programma FIDO.COM moet via DOS gel x}aden worden met de L Optie.DOS moet opgeboot worden  de RS-232 drivers.Als het programma opgestart is ver- schijnt ee y}rst het opstartbeeld. Na de druk op een toets is de terminalklaar voor gebruikt.Het downloaden van files.Deze optie werk z}t alleen als eerst een ramdisk is aangemaakt met nummer 8 (BV RAMDISK.COM bij de 130XE) andersvolgt een foutmelding.Duw {} op de toetsencombinatie CTRL+D om het downloaden te beginnen. Op de ramdisk wordt nu een file aangemaaktonder de naam T |}EMP.DTAOm het downloaden te stoppen duw je op de toetsen CTRL+F. Hierdoor wordt de file TEMP.DTA gesloten.Na het stoppen }} van het programma met CTRL+Q Kom je met de RESET toets terug in DOS (Alleen bij de 130XE) waarna de file TEMP.DTA gekopieerd ~} kan worden naar disk.-----------------------------------Het programma is geschreven in gecompileerd BASIC. Als er iemand } verbeteringen in wil aanbrengen, doe dat dan gerust. De sourcefile van dit programma is geupload onder de naam TERM12.L }ST. Deze versie is (uiteraard) veel te traag om goed te kunnen werken. De compiler die ik heb gebruikt is de MMG basiccompile }r.M. van Eckrrrrrrrrrrrrrr veel te traag om goed te kunnen werken. De compiler die ik heb gebruikt is de MMG basiccompile 3 GOSUB 10004 POKE 82,0:DSWITCH=05 OPEN #3,8,0,"E:"10 OPEN #1,4,0,"K:"20 OPEN #2,13,0,"R:"30 XIO 36,#2,10,0,"R:"35 XIO }38,#2,0,0,"R:"40 XIO 40,#2,0,0,"R:"45 POKE 82,050 IF PEEK(764)=255 THEN 7055 GET #1,A:IF A=4 AND DSWITCH=0 THEN OPEN #4,8},0,"D8:TEMP.DAT":DSWITCH=1:GOTO 7056 IF A=6 THEN CLOSE #4:DSWITCH=0:GOTO 7057 IF A=126 THEN A=858 IF A=17 THEN CLOSE #4:CL}OSE #1:CLOSE #2:CLOSE #3:END 60 CLOSE #2:OPEN #2,8,0,"R:":XIO 36,#2,4,0,"R:":PUT #2,A:CLOSE #2:GOTO 2070 STATUS #2,I80 IF }PEEK(747)=0 OR PEEK(764)<>255 THEN 5085 GET #2,A:IF A=8 THEN A=12690 IF A<>10 THEN PUT #3,A:IF DSWITCH THEN PUT #4,A100 GO}TO 501000 ? "}"1005 POSITION 9,1:? "(c) 1987 M. van Eck.":POSITION 12,2:? "PUBLIC DOMAIN"1010 POSITION 10,10:? "1200/75 }BAUD TERMINAL"1020 POSITION 15,12:? "No Parity"1030 POSITION 13,22:? "Press any key"1040 OPEN #1,4,0,"K:":GET #1,A:CLOSE #}11050 RETURN zzzzzzOSITION 15,12:? "No Parity"1030 POSITION 13,22:? "Press any key"1040 OPEN #1,4,0,"K:":GET #1,A:CLOSE #$d0L 2L>%L-Lx%Lo(L(L(L(L4)L2)L%L%L%L%L%LU,L`,L(L)L,L(L+L$(L".L,L(L'L'L'Lm'Lv'L,L,L'L(L'L'L.L.Lk}.L.L.L.L.L.L.L#*L.*L&L&L.&L=&LF&LQ&Lk&Lr&L{&L&L&L&L)L)L)L)L,.L)L:'L'L&LL'L['LR'L*L*L.L&L&L&La'LB(LR(L}.L(L/L9/L6/L/L/L/L/L0L0L+0LC0L/L^(Lj(L)'L@'Lo/Lr/LO/L%L'L%L% -膚 ɩҍD҅ 2 22}2 a(2222 ` -Lq -l ԤՄԅ`ȱ`ȱ`ȥ`}ԑȥՑ`ԤՄ`ԤԅդՅ` '0=D '04.5 '0.( '0 ' ' 8`ԅ`} & & & &ѐ & &ʥ %аЪ %Зьɛ &0 &0 `}ԥ`Ɠƒ` % &LS* %LS* %օ0֥0 S*` %eԥe` %La* % % o*L% %Lo* % &L|* %L|* %}L% % Ʌ` BLV䅆L' %ԅ`TU HH 'hhL, B VԩL%p v'P}KJBDELÌ &fL=) %ԅ`Ę eĘ +L4( % & %` %Ԅԅ`} -``&eԅԥeՅ`L% o(ԨL%Ԅ & %eԥe` Ԅ &ɛ +0` d) ذI} ( 8ԅԩՅL%L,ȹɛ꩛` d)f &ɛ +0` d) ذIV  FF                    }                          }        Handleiding 1200/75 Baud terminal voor ATARI 800XL met 850 interface. Het gecompileerd}e programma TERM12.COM moet via DOS geladen worden met de L Optie. DOS moet opgeboot worden MET de RS-232drivers. Als het pr}ogramma opgestart is ver- schijnt eerst het opstartbeeld. Na de druk op een toets is de terminal klaar voor gebruikt. Het }downloaden van files. Deze optie werkt alleen als eerst een ramdisk is aangemaakt met nummer 8 (BV RAMDISK.COM bij de 130}XE) anders volgt een foutmelding. Duw op de toetsencombinatie CTRL+D om het downloaden te beginnen. Op de ramdisk wordt }nu een file aangemaakt onder de naam TEMP.DTA Om het downloaden te stoppen duw je op de toetsen CTRL+F. Hierdoor wordt de fi}le TEMP.DTA gesloten. Om het downloaden te stoppen duw je op de toetsen CTRL+F. Hierdoor wordt de file TEMP.DTA gesloten. } Na het stoppen van het programma met CTRL+Q Kom je met de RESET toets terug in DOS (Alleen bij de 130XE) waarna de file TEMP}.DTA gekopieerd kan worden naar disk. ----------------------------------- Het programma is geschreven in gecompileerd BASIC}. Als er iemand verbeteringen in wil aanbrengen, doe dat dan gerust. De sourcefile van dit programma is geupload onder de naa}m TERM12.LST. Deze versie is (uiteraard) veel te traag om goed te kunnen werken. De compiler die ik heb gebruikt is de M}MG basiccompiler. M. van Eck s (uiteraard) veel te traag om goed te kunnen werken. De compiler die ik heb gebruikt is de M 3 GOSUB 10004 POKE 82,0:DSWITCH=05 OPEN #3,8,0,"E:"10 OPEN #1,4,0,"K:"20 OPEN #2,13,0,"R:"30 XIO 36,#2,10,0,"R:"35 XIO }38,#2,0,0,"R:"40 XIO 40,#2,0,0,"R:"45 POKE 82,050 IF PEEK(764)=255 THEN 7055 GET #1,A:IF A=4 AND DSWITCH=0 THEN OPEN #4,8},0,"D8:TEMP.DAT":DSWITCH=1:GOTO 7056 IF A=6 THEN CLOSE #4:DSWITCH=0:GOTO 7057 IF A=126 THEN A=858 IF A=17 THEN CLOSE #4:CL}OSE #1:CLOSE #2:CLOSE #3:END 60 CLOSE #2:OPEN #2,8,0,"R:":XIO 36,#2,4,0,"R:":PUT #2,A:CLOSE #2:GOTO 2070 STATUS #2,I80 IF }PEEK(747)=0 OR PEEK(764)<>255 THEN 5085 GET #2,A:IF A=8 THEN A=12690 IF A<>10 THEN PUT #3,A:IF DSWITCH THEN PUT #4,A100 GO}TO 501000 ? "}"1005 POSITION 9,1:? "(c) 1987 M. van Eck"1010 POSITION 10,10:? "1200/75 BAUD TERMINAL"1020 POSITION 15,1}2:? "No Parity"1030 POSITION 13,22:? "Press any key"1040 OPEN #1,4,0,"K:":GET #1,A:CLOSE #11050 RETURN 1020 POSITION 15,1k$d0L 2L>%L-Lx%Lo(L(L(L(L4)L2)L%L%L%L%L%LU,L`,L(L)L,L(L+L$(L".L,L(L'L'L'Lm'Lv'L,L,L'L(L'L'L.L.Lk }.L.L.L.L.L.L.L#*L.*L&L&L.&L=&LF&LQ&Lk&Lr&L{&L&L&L&L)L)L)L)L,.L)L:'L'L&LL'L['LR'L*L*L.L&L&L&La'LB(LR(L }.L(L/L9/L6/L/L/L/L/L0L0L+0LC0L/L^(Lj(L)'L@'Lo/Lr/LO/L%L'L%L% -膚 ɩҍD҅ 2 22 }2 a(2222 ` -Lq -l ԤՄԅ`ȱ`ȱ`ȥ` }ԑȥՑ`ԤՄ`ԤԅդՅ` '0=D '04.5 '0.( '0 ' ' 8`ԅ` } & & & &ѐ & &ʥ %аЪ %Зьɛ &0 &0 ` }ԥ`Ɠƒ` % &LS* %LS* %օ0֥0 S*` %eԥe` %La* % % o*L% %Lo* % &L|* %L|* % }L% % Ʌ` BLV䅆L' %ԅ`TU HH 'hhL, B VԩL%p v'P }KJBDEL, &fL=) %ԅ`Ę eĘ +L4( % & %` %Ԅԅ` } -``&eԅԥeՅ`L% o(ԨL%Ԅ & %eԥe` Ԅ &ɛ +0` d) ذI } ( 8ԅԩՅL%L,ȹɛ꩛` d)f & 8fԆՅɛ摥0L }?)$0`2 2L,(,ɛM(M( )ɛ )򩀅` %ԍ`ԄL% }ԄL%ɛԆL% &󅐩f =) ؐL(L4,ԅԥՅL%82ԭ 2L%ԤՄԅե` }8ե`eեe` B* K+fL% B* +fL%8ԨՄԅL% & B*ԥՄԩՅօפԥFf G+ }ԥ K+ԅՅԥզЦ`ԅՅʩ0B+=+ B+ 08f$˹ `' d }+1ԦԄզՄFԐ eਊe&Lh+Ԇ`hh L, +Ff&֐ݥ ԆՅԠ&&&8થ }օԈ`քע +Ե 8`晄 ,L,`GHFH` U,0ɛȄ ؐL,HI h 8 }ԅԩՅL%?S, ,򦅩DEBHIL,ɛ +` +` %HI BL, }՝HIB VL,L%B Vú.hh -l. -0dd-8/ i - 0-- , }@ . ,... + x' $(.Ԏ.8ե ".LO-- , `,ɛD(C` ذ -L- -L 2 -- , }L- - -L-l lp '8`ERROR- ?Run address> BASIC exitTrace:P8Յթԅ` ,.L, .- }ȘH *h00,)` & ҅ԭ ) |*օեׅ` L,0թԅթᨊઐ }```Յ`8Յթԅ`0 ԩ`ԅ`` ' %`BԝK)I JD/ELVS:)H)h y }` & % & %TԅUՅV`&B ,NLսM` & %ԝL՝MN%BL, & /` BHIL, & /` }B JKL, %ԅUՅV & %ԅT`)ҩҊ H) hҘ` %)xԩL% %))Lc&LZ& % })pԩL% %)|LZ&Lc& V0L-$2255q666L 2 $ !5R5 !$u6 '$0 Z$5 f$ } Q$ Z$5 f$ Q$ Z$5 f$ Q$5 !$ l$22 Z$5 f$ i$6 !$ l$ Z$ }5 f$ i$6 !$ l$ Z$5 f$ i$R r$ 6 $2|3L3Lc4 Z$ `$q6 '$q6 !$5 $y6 '$ }u6 !$5 $y6 $Lr3@ Z$ 6 f$ Q$5 !$u6 '$Lc4q6 !$6}33 $L3@ Z$ T$5 !$u6 '$L }c4q6 !$6 $L35 !$q6 '$q6 !$6 $L4@ Z$ T$ Z$ T$ Z$ T$0 Z$3y4 T$L$ Z$ T$ Z$ }5 f$ Q$5 !$ l$ Z$5 f$ i$ Z$q6 !$ ]$ Z$ T$L[2 Z$ c$s6 '$ r$z445 $y6 '$ }r$ 6 $y6 $L4L2 Z$ `$q6 '$q6 !$5 $L46 !$q6 '$q6 !$6 $L50 Z$4x5q6 !$ ]$ }u6 v6L5@ Z$q6 !$ ]$L2 Z$!6 H$ ?$#6 !$5 $$ $ Z$%6 H$ ?$6 !$6 $$ $ Z$=6 H$ ?$S6 !$Uy556 }$$ $ Z$W6 H$ ?$5 !$a6 $$ $ Z$c6 H$ ?$ Z$5 f$ Q$ Z$ `$q6 '$ Z$ T$`L$RE:K: }5p6 R:$ &(D8:TEMP.DAT ~} (c) 1987 M. van Eck1200/75 BAUD TERMINAL No ParityPress any key }$ rityPress any key i"#Z ZAQ1TYPXMDQMQQQ8TRAHDRQQ1TMPMENUQ12Q5Q3Q1MAIATQQ1KEQ6Q7QPLMSADDBFFBFLCLSQ$}QBAUQBLQTRQ1SRFLAQ4FTRBFRQ5MLNDSSCRPRDTLDTCOQ76LFUNOPNLDSCFLAIOTERKCRCVWAIDMQ19SCTNAS$}Q9ACCASNDEOUPLMLNCLKSCWDST $} $} !"#$%&'()$}*+,-./0123456789$}:;<=>?@ABCDEFGHI$}JKLMNOPQRSTUVWX$}YZqq͠ Copy this program andRS232.SYS to another disk, rename RS232.SYS - AUTORUN.SYS, and re-b$}oot.;AV, B   @:,$  ($ %$ ( $}(YA>:,%($6.$, $6. 6-C:,%B:,%&6-,6-A  0$}^*0)67B:,%,./6.3 ;6-%A $8 4^&67B:,%+(B:,,,.26-&+!,8 $   $ 6-C:, $}6-?::,5$<" 4$}N)4Y6-4N"$> ( F %(G   $H )6.>:, %I6.>:AU,J  ($K3$$}6-?:C: hhhhh `,<<@:,,0%&%3$L' ' APP26-?:C: h)`,,# 2%Q $} R4 A %'4S2 "B7`$&$2F:B@, A pT$U 6.$}Z 6-# $V  $Z! -(-%!( _ -%(-%$d0( '67%,.$}-6-0$n56.""%567,. x" "%"6.5 "%6. $}!-67,.50L 67,.6..67B:,%,. 46-: $I67%<%,.L$&6. $}&6.67,. "67,. "67,. "67,.;67%,.67%,.$}86-?:C: hhh`,<<<,;$56-B:,%#6.D:AUTODIAL.NUM54*!A W A167,.$}76-=6.G A LW#-&67,.# >'67,.! %% +6$}->6-P:+&,'',%- (}6-('( Can't find - $;#( +-;6-+$&%,$$}= B:,9(>:%$,-7&&<&&, 7&&<,= :' $-%!('6--6-:(Ap66$}. 倀&67,.>:%$,667,.>:%$, 2!(Dial >:%A,/2( Page ///%&$+(,(anu$}al$/( bad( dl ON((~FF"( ng ON("(~FF5(%&$+(,&( rn lx it*$}5( can"#( tne ON(#(~FF'( Choice ], F:,"6.X Ap1F:,"AU $6$} 1A* %% $;!4+* 6-%! A%@!4-*!6-&! A%E'11*%%6-&&' A$}%J 4L6-(O 4O6-(T 4P6-(Y 4R6-(^ 4S* $c 4T6-&h4$}U* Ar# 4X( # A 4M$(堣+(]2A3AP $$}le(\Any or all of the above will bedialed until one connectsEnter string of choices ]l6.* 1A* $}$%%67B:,%,.*($4^*367B:,,.$(~0A$ $6. 玎$6-6,6-$$}+B:,,% 6-@:7,,,6-%+",X $6-+$%&%,$]J -%9(You have selected 7&&<&&,J6.7$}&<&&,bI"7&&<&&,0 I(System password is 7&&<&&,lJ 6--B:,6.7,71(*/$}-)10*/9B67<,.J6-%v 67,.<"(宮, A 2*<( (+*,($}6( : 6(~~~~~~~~~ #: . 6.I (*6.>:%&+(,,. (6.K$} . ".(ATD>:%&$+(,,. *(LD (#01-.(,,2-B:,6.7,$}( ((2 A@ 4,-$ 20)39A@% "%@:,% A@H-A:$},%$+(A:,," A p*-. 8 A 0@-D H  -   "(  ( (2$}(2(&ԠΠ/ A"6-%)(/ $ A `"( $}  $ $ *("(򮮮*%*? ?6-?:C:&hhh-Ӱ --`,<$},4L (>:AT&+",,&)(H6-?:C:hxyz`,,L >' 6-F:,($6-'$HF:$}%, %$+*,AM( 6-$$R(  A $6.>:%%,( W< A "8($}AT>:%&$, < \ A( A P& A P A -# &$ 6.L  "%$}$$6-?:C: h)`,,$" A `- "$ A 0 6.M %$}$:' '6-?:C:h`,,&(* 06-4 :6-.  % $"F:A,"*6.. $G%6-?:C:,$}<<%&:%$, 9 <(@ B6. '67,.>:%$%},B67%,.#B%"4 >6-F:A,0%-B:,.6.7,64>6., %}2 % A 4 % AA4* B:,6.7%,+10*/946-A:,7'A A " 4%}6-66-" A`""0)4*%!B:,A# 6-%6-@:7,,#6-A!!6-?:C:hhheԊe`,<,%}JJ6-?:C:5hhhhh@80 B V ߩԅ`,<<(, %Ae" F:AG%+%}(,," % 8F:, AUAU%(('4A8    %A f(I:, A9(Not %}enough memory - press RESET_(!and reRUN to edit any more macrosb(f L(Edit which macro ? )6-&&3 )!E%}( No edit doneH(L \67%,.\(9}=Send a comma=Send RETURN (Atari EOL or Ascii CR)aa(Y=%}Pause for 1 second=Use following macro number=Wait 30 sec for following character#RR(JNo real commas or other inver%}se chars80 chars maximum/no leading spaces(]#B%"K( Edit macro # nowPress RETURN when doneU%% }%](2# (#4A`7-( Working...6-$-B:,-6.7,<H52)3*2})4)4% })4)4)4@67<,.H6-%A $67,.PJ6-?:C:hխԭ`,,*6-F:%,A(B%% }D.J(CONTU3 %&$6-?:C: hbL\,,0AB3&ZNAB Ae&6-%C:,&/6-C:,;#B%?% }"N(dRA R(Macro #1 entered as shownTo make the change permanent,iA:(press RESET, then % }SAVE >:%, D:AMODEM71>:%,=(A #(6-%6.E:# AP "6-( A`AP1(%}( ?# '.(No1$ (Yes6- 6- $"F:,")F:,"Ap,(((6-?:C:h%}) i`,,6$r 6. |@-%&?:C:,<, '#(6(@ A ; % (1(%}נ; A * "67,.& * M  ( ( @6-+7<,4%}D,%$+7<,4P,M(APG " A@#- A2=G AP A%}%6-?:<$+,<<&, "%(  A, (( ""(6-,   ((%}? "  (No6-6-"  (Yes AY Ai A0(&( F:,%} 0 Apl? 6--9(%?-v]-(%|Block # |Try # |Status: %} |3-](%!67%,.!$4)F:B@,#(?:C:,<,*%})4 A$5AR(}--( Receiving: 50+ A  A& +; 6-%} 6.67,.%6-567%,.;4 * %-6.>:, * A&56. Waiting  %}$)6-?:C:,<$,5A"`86. Receiving *6-?:C:,:@:,&,& A%)}@P+6> -&>6-?:C:hhhˠ'`8 ˈ`,:A:,,,"A<67,.>:%@6$+!,,@ D d306-?:C:hhhhh%:}L\,};67%,.>:@:7,,%$, Ap  6-(6-  %& 7 4E:(-(%?}7 Ap A @ A4 J BtT? 6-!67,.'6-1 %@}A? Bt^  O 6-%67,.I6-?:C:"h hEhDhIhHB Vԩ`,<<,O 86-?:C: hh%A}ԭi`,,&6-%&, 867%,. &6-+",%$+")"%,&!&& %)($0 6-$P:',6-&: ;%B}67%,.>:,% %+67%,.;67%,.7%,D $$ )( $$=167,.$􀍀5 9%C}= $"6-6-" A$(6-?:C:hhh`,<, ( AY% A&% 67,.(%167B:,%,. %D}!"167AC,.*% $6-B:,(Ap,%"AP.% 6.6.!A50%7<,0:A%E}P2%4DA`5%+4E)4P,*"%)($:%+!67,.+ Ae?%$7<,4D:6.7,%F}$ APD%/,4D*7<,11*7<,/8*7<,4:/$I%7<,4:A`N% 6.D1:67,.$X%!!67,.%G}]% b% ' Apg% 6. $&(6-%$+",$& "6-$& 6- $'886-?:C:h%H}hh!芝莜`,<Bpr&C:,,$'f6. ppBbf67@5,.BA4L @Luu{%I}u`o8 .'KK67A,.8i`<<<;d    }~8'vv67AX,.cTT~RU%J} #cT TH h!դ $0hh`TODB'::"%K}L'%%"V'JJ1,2,3,4,5,6,7,8,9,10,11,12,13,16,32,40,50,59,60,70,82,95,128,195,%L}764['AA6,21,24,1,2,4,80,85,1000,1050,6000,6200,17999,604,684,53279`'@.;,;,;$,;$,;$,;,;,@6. SHIF%M}T-CTRL j'UA;A,;Aa,;Aw,;A,;Ax,;,U6. 'dd6.ZhLإil٥iڬ%N}hhhhhh֩ Э`xICJ;'mm67@,.Z2۩$ ȘM8~%O}Ь (-w ЋB'mm67A,.ZHI VH(0 ٗh)0ّ%P}H@ BHI Vh О'mm67Aq,.Z @ B V ,0@ )?ݭ)`ʩBHI V%Q} 0ّ 'mm67Aa,.ZP I` x`I` R)IR` n)In`%R}'mm67AQ,.Zܭe܍[)@S0#ܭ)e) M)`iM)'KK67AA%S},.8`8`ܩB)e ܭ)܍`'dd6.ZhhhhhإXil٥Yiڢ@۩ܤ0GJ B V%T}ܱH)`  i@( Ș)'ZZ67@,.G$iِڰ) IHhHeۅ۩ BHIh V%U}`'nn6.dhhh>* \ԅբ@Э B V *8`ׅhhةLݥi ޥiߥXi'mm67A%V},.Zl٥Yiک۩ܢ< ƩBHI V0:Heۅh)`  i@( Ș)'jj67A,.Wдi%W}ڰ840IЩ `'dd6.ZhhhhhȄԥO@ %X} Vפ BHI V'mm67@,.ZЭ& ԩ<Ȍ*@ %Y} Vп VТ'9%67A,.ЊԈ*В`967A,.>:%,(nn6.dح ++HH%Z}H̥ͥˠ8HhȰh$0  hhh˥(mm67A,.Z8rrqqmss%[}mttLbs8&DаEЫ,2(aa6-C:ThLhh Qک < 4w <(v <uȱA Pwi wԅ`,%^}<(>>6-C:1hhh hEhDhIhH B Vԩթ`,F(ff6-C:Yhhhhheօ؊eׅhhhhܥ.)`%_}  i@(0$ `,*;6-$P:+I:,&A,',2;,;$,;$,;6-C:,*/K:6.R:%`}/(?:<@:,,B*8 B((F:A,.6-8 B*(6-%+F:B@,"AU,( B +.F:%a},"%+(ΠΠͯ.+0-( ͠ F:, ԠĠ0+< 6.T:(?:<@:,,9(͠%b}ҠĠԠ<+, B%"6-, B+F:,AFB + B +S6-"%c})(($67A,.567A,.B67%,.S67AT,.+ "67A,. + "67A,.%d}P*+K B (}!%AY-A"1+=A"E0K6-/+ZZ6.P%e}4+76-?:C: hhh`,+T,($Enter your long-dist%f}ance access codeT(#using the format 555-5555,,12345678H+=(or press RETURN ]#;$,*-(44=6.1-R+V B%g}xV67%,.=W+:"6-?:C:hhh`,<,, Ae6 %q}B%DOS SYSB*)DUP SYSB$SFIDO COMB wFIDO DOCBFIDO LSTB TERM12 COMBTERM12 DOCBTERM12 LSTB$TERM2 COMBAMODEM7 1 BKERMIT OBJBd>JOYSTICKPRNB RECIEVE LSTB RECIEVE PRNBRECIEVE SRCSEND LSTSEND SRCB: \+] 6-?:C:hR`,,](8} Joystickw/Trigger ͠p+^^(V  ^Q %r} RETURN     N Y Copyright (C) 1985 ^N ^Xz+UU(M   Trent Dudley   ^S %s} P  +__(R resets the call timer T toggles timer on/off S toggles smooth scroll%t}ing+dd(F toggles fast key repeat M toggles left margin 0/2 I increases letter lum'nce+dd(DELETE incs %u}border lum'nce < and > for screen lum'nce  and  for screen color+]](09 to use keyboard macros D to%v} display the macros E to edit the macros+1%(H to repeat this help menu+.(1$.? 6.67$,.67,.%w}?67,.BV.WW67%,.Hutodialmenunswermodeo!tari !taririginate.$ %x}$67&,.audratecycle.XX67%,.Idulextoggleangupphoneranslationmodeelayrate.^^6%y}7AD,.Kapturefileetclockumpbufferrintscreen/[[67A$,.Hrasebuffer%z}opyfileewcapturenameockfile/]]67A,.Jeceive8-/$%-nlockfileend8-/$%-%{}enamefile/`]67A,.Jploadfilerasefile_$irectoriesormatdisk`$hB6 6%|}7,.$ 221)386 rB?67A#,.>:&,6.'6.D1:567<,.>:,? BqB$ 6. A%}}4 6.$ B7<,0DBtPB26.󀹀#"%267,.B "%67,.B %~}"%67,.B"AT67,.B" 67,.""67A#,.C 6.  Bs0C%6.%} A!4% 5C4E:BtP:C. 6.67,.# A*4. ?C 6.6.6.DCE AY 6%}7,. &6.* ;67%%,.A6.E NC)67,.󀹀) BsbCI Bt)6. %}瀀24E:8 $< ?(I Br`gC+ Bs+67,.7<,lC A BtvC96-?:<%}$+0E:,<a=Ȍ`=b==c===`==a=LM>8b=`=c=a=i)}i^=e_=e8b=`=c=a=ii^=e_=e`=Јa=L=^=i_=iD^=i_=i0)}m8^=i_=i:b=ib=c=ic=^=_=b=a=Ȍ`=b=>c=>>`=>a=L&?^=m`=_=ma=d=d=a)}L?zd=L?^=m`=_=ma=8d= `=Сa=L>` L3? 1+?/?Ȍ.?,?-?b?b?.?/?L??,?m.?-)}?m/?+?QL?.?`.?/?LR?`L?L?for the Atari 850 and the? ;2L?DC-Hayes Smartmodem? ;2` L? : c9)}??ɀL)@L@R: device error: %D%E?? ?4``lL8@4@4@ 2`LG@ H2`LP@ H2`##:V@L`@ H2Z)}@i[@iRZ@i[@i8i0 \@\@[@Z@ 2 c9\@\@ɀL@L@Can't open %S, error %B%E[@)}\@Z@@ ?4 H2\@`" 9 8 "1 ee& 9)}m 8$ 9( 9`LA ]@`LA 1AAA8A)}iAAѬLA`AȌAAA(B(BAALBAmAmA8AeAeAmA)}AmAQLvB`AНALB``LB$8ɀLB`BILB$8` ?Š塐LC 2)B(8ILB 2B)} 2BLBB LBBLCBI LC`LBCL CCC 2$8ɀL C`IL0C$8` ?Š塐LkC 2C(8IL_C)} 2C 2CMCLkC`L CMLrCLvCoCnCnCoCrCȌqCrCCCqCL!DCnCmqCoCiI(LDLC(300)CqC)}oCnC AILC 8LDLC(1200)CqCoCnC AILD 8L!DqCLCqCrC7D7DqCLDCnCmqCoCiI#)}L|DqCrCqCnCmqCoCi ѮLSDLDqCL,DrCqCLDLDNo phone number in this entry!D ;2`LD Dialing...pres)}s any key to abortD ;2$8 A CA CT C C BA CT C CD C8L)EP CL.ET CqCpCnCoCPEPEp)}CLrECnCmpCoCi CpCLEE C$8ɀ ILELE User AbortedE ;2  2i pCMpCLELE D@` ?)}Š塐LJF 2qC(8ILE 2qC 2qCIC qCI1LF D@`LJFqC LJFL4FUnexpected result '%C'%EqCF ?4 D)}@`LwE LQF A+ 5@d 8+ 5@+ 5@+ 5@ 8 ?Š塐LF 2MF(8ILF 2MF 2LvF$8 CA CT C C)} BA CT C CH C0 C C B D@`,X` %FLF LG 1FFF8F2GF3G2GF3GFL`G  2Fm)}FFmF 2FFL!G`cG LgG 1aG(8ILGLG ERROR %B%EcGGz ?4cGILG H2 H2 H2 0cG$8`8)}GLGGG mF*(mFG U3G`LGGGLHLHoffH `L)HL HonH`L-H)H)HaL)}AHz)H)HAL]HZ)HL]H`LbH`LfHbHbHaLHzbHLH8bH `LHbH``LHn8d8d8d8dfff>fff)}<ck>6f< x~ 0~<~~<~x|nf8x8LH LI 1H(8ILvIL&ISPack('%C,%D,%D,HH)}HHHI ?4" 2HHHH FLfI%C%E"Ia ?4L{I. 2HȌHD8IE8II͖HIHLI808 2H)}HLIH mHmHiH mHHHHHmHmHHHH8HJHJJ͖HJHLmJHHiHi)}HmHHmHHHmHHmHHqHHХHL JH)JJJJJJHe)?HHiHi mHH)}HiHi48HHHiHi  9`JLJJJiJ ?LMKMJL;K(8IL3KL,K (Ti)}meout)K" ;2`LJKILJK`LJJJHH 2hh`LK LK 1sK(8ILKLKRPackK N)}2K~ JLK`(8ILK~KILK 2~K 2~KILK|K{K{K |KLMK~ JLL`P8 Q8L!L~K)~)}K~KILM~K}KsKtK8~K8 K~ JLlL`P8 Q8LL~K)~K~KILM}Km~K}KuKvK)}8~K K~ JLL`P8 Q8LL~K)~K~KILM}Km~K}K~KKzKyKsKtK8'Mȱ(M'M)}yK(MzKLMzK~ JL@M`P8 Q8LSM~K)~K~KIL`MLM}Km~K}KwKmyKxKmzK~KyKЏzKLM~KILM)}K~ JLM`P8I Q8ILM~K)~K~KILM|KȌ{KLK}K)JJJJJJ}Ke)?}K8~K K}KMKLZN(8)}ILQNL:N(Bad checksum: %D <> %D)%EK}KN ?4`(8ILNLN+(%C%C,%D,%D,%C, 27, TY, NUM^, LEN^,)} 'Ng ?4sKtKxKwK FLN%C%E, 'N ?4KIEL OLNError: N N2sKtKxKwK F 2)}K`2LOLOOO D@OO 2O c9ɀLjO(8ILgOL`O End-of-fileOT ;2LPP8I Q8ILOO)OO )}OI OM88LOOmOOmO88OOOM88LOOI@OLPOILOO)OO OIOM88 OILPOI)}L`POmOOmO88OiOiOeOe I@OiOOiO OOmOOmO88OOOM8)}8LPOI@OOmOOmOOOO8B8C8OŮOLP AOO`L/O AO OLP`LQO)}O`Q$L Q LQ 1Q D@ Q Q8 QDQ QEQDQ QEQ QLQQQm QQm Q Q QI#LQ Q QQm QQm Q)} Q Q)I#LQ QI@ QP8I Q8ILQ Q 2LQ QI LQ 2LQ QI LQ Q 2 Q QL3Q A`QLQQQ)}QQ~QiQi%QiQi QiQi@IQiQi-QiQi#`RLqRmRlRl)}RmR8 B8C8lRimRi8 F8G8lRimRi8 D8E8lRimRiI@08lRimRi8 48)}lRimRi88`yRiLSLS S S(8IL5SL.SRInitS( ;2H8I8H8I80LQSA` S SѮLSSȌS S)} SSSSSLSS8SS SmS SmS7SSL}S8SS7R HS7)}S KSSSIS SIL}T7 nR7 Q7?8>8Y HI8K8H8J8I8H8>8i?8i@ )}1>8?8F`LTS SLT,8`LTA`8LTLT(8ILTLTRFile%ET ?4H8I8H8I80LTA`T7T)} KTTT7TIS TILUJ8K8J8K80L*UA`>8 ?8LCUTI? TI+>8 ?8LU8>8?8TE T)}ELUTTY HI8H8,8`LUA`L+WTIF TILVTM>8 TM?8LUA` D@7 e=$87)} 2 A$8ɀL5VLVCouldn't create %S; error %D%E7$8U ?4A`LGVReceiving %S%E7V8 ?4)}?8>8Y HI8K8H8J8I8H8>8i?8i@ 1>8?8D`L+WTIB TILWTM>8 TM?8LVA`)}?8>8Y Hi8 ,WM?8L@XJ8K8J8K80LWA`>8 ?8LW+)}WI? ,WI+>8 ?8L;X8>8?8+WE ,WEL;X,W+WY HI8H8,8`L@XA`.W-W7 Q)}?8>8Y HI8K8H8J8I8H8>8i?8i@ 1>8?8D`LZ/WIF 0WILQYJ8K8J8K80L)}XA`>8 ?8LX+WI? ,WI+>8 ?8LIY8>8?8+WE ,WELIY,W+WY HI8H8,8`LNYA`L)}Z/WIZ 0WILY+WM>8 ,WM?8LzYA`(8ILYLY End of FileY ;2 D@ H2 A?8>8Y H>8i?8i)}@ 1>8?8F`LZ/W 0WLZ,8`LZA`8LZA`8! L Z L$Z A} 2LQZ!Type the file to receive,)} or justZ/ ;2LZ#RETURN if the other computer is notZ[ ;2LZin Server mode.Z ;2 2LZ Filespec -> Z N2Z |)}2LZReceiving File(S)Z ;2LZtype any key to abortZ ;2R,8?8>8I8H8IL@[L1[ User aborting[# ;2L[,8)}IDLU[ 1W,8L[,8IFLj[ T,8L[,8IRL[Z S,8L[,8IAL[L[Aborting[ ;2L[L[L[L[ D@ H2`LL[L[(8)}L[L[SInit%E[ ?4H8I8H8I80L[A`7 Q(8L\L\n = %D%E?8>8\ ?4 ?Š塐L5\ 2L\)}7?8>8S H[7F[ K[[INL}\,8`L][IYL]>8M[ ?8M[L\,8`7F nR48L\ 4888L)}\#88I8H8>8i?8i@ 1>8?88 8L\A` D@$8 H288 2 A$8ɀLg]LJ]Error %)}D; couldn't read %S88$8]/ ?4A`Lw] Sending %S%E88]j ?4F`L][L],8`L]A`8`888)}8L]L](8IL]L]SFile] ;2H8I8H8I80L]A`]Ȍ]8m]8m]I:L)^]]L^88)}8]]]]]]8]n^]o^n^ͨ]o^]L^]]m]]m]ii8e8e]]]б)}]L]^]]]?8>8F H]7F] K]]]IN ]I]IY ]IL_]IN ]ILH_8]]])}]]]0LH_]?]>8M] ?8M]La_,8`I8H8>8i?8i@ 1>8?87 O=8<8<8I )}=8IL_Z`L_D`L_] ]L_,8`L_A`8L_L_H8I8H8I80L_A`=8<87?8>8D H_7)}Fڢ_ K___IN _I_IY _IL a_IN _IL`8______0L`_?_>8M_ ?8M)}_L`,8`I8H8>8i?8i@ 1>8?87 O=8<8<8I =8ILaZ`D`L$a_ _La,8`L$a)}A`8L)aL-a(8ILHaLAaSEOF%Ea: ?4H8I8H8I80LdaA`7?8>8Z H(8ILaLaSEOF1 a N2a)}7F$a& K)a(a(aIN )aI(aIY )aILc(aIN )aIL,b8$a$a%a%a$a%a0Lb%a?$a>8M$a)} ?8M%aL,b,8`(8ILGbL@bSEOF2 b9 ?4>8M$a ?8M%aL`b,8`I8H8>8i?8i@ 1>8?8(8IL)}bLb Closing %S%E88b ?4 D@(8ILbLbgetting next file%Eb ?4 ;888 8LbLdc H2$8)}88 2$8ɀL,cLdcLacLIcCan't read %S; Error %D%E8$88c/ ?4Lb A8 8LwcB`88 ;2F`Lc(a )a)}Lc,8`LcA`8LcLc(8ILcLcSBreak%Ec ?4H8I8H8I80LcA`7?8>8B Hc7F)}c KcccIN cIcIY cILdcIN cILd8cccccc0Lwdc?c>8Mc ?8McLd)},8`>8Mc ?8McLd,8`I8H8>8i?8i@ 1>8?8C`Ldc cLd,8`LdA`8LeA`8)}L eLLeLe Filespec -> e N2d |2dL8I8H8ILfLe User aborte ;2)}Lf,8IDLf _,8Lf,8IFL1f ],8Lf,8IZLFf *a,8Lf,8ISL[f [,8Lf,8IBLpf c,8Lf,8IALfLf*}Abortingf} ;2LfLfLfLe D@ H2`LLfLf(8ILfLfFinishf ;2 AI8H8H8I8LgF77G*} Hf7Ff KfffIN fIfIY fILgfIN fILg8ffffff0Lwgf?f*}Mf MfLgLgMf MfLg D@`H8I8Lf D@LgServer didn't respondg ;2`,0g ;2`80g*}LgLhUg "1mgmgiHgig8ggggggggLuhgmggipg*}LOhggL"igiggigggBggggg mgg*(mgmgȱi8Rgggi*}giggigigg 0gLzhgigigigiBgigiggigi*}gg 0gigiAgigiggi gigg 0g1g0`iLiggii *}mg*(mgmgiȱiiiiI`LjL#jjjgjj mg*(mg8jȱjjQjLj*}jmjjijLYj`LjLj8j8jjj̀jjL_k jj 0jiQji 0E* }EL kj)j)ijijj mgj*(mgjijijiRjjijjjgj jjjLj* }1g0g0i g1ig} 2Lk#OPTION quits, (SHIFT)+START scrollsk ;2gNgggg i g`kLkgLkgL* }l jgkkkLlkigkgkLkkg g`@ `@ `lL(ll il LmlILJlE`LmlI LZl kLm* }lI Lulgg g kLmlILl z5illELlLl z5LmlILlgLl8ggLmlI Llg* }HLlgi)gLmlI LmllLml jlLlggLmggll mg*(mgmglȱill*}ll)`JJJJJ#le$lil)gOLmggLmgFLmg gLm kgg g iN`gLmLmm*}mIALmgLm8ggLomIBL ngLngLomICL%ngOL"ngLomIDLEngLBn8ggLomIHLZ*}nggLomIILngLzn8ggLn jgmmmLn8m8mggmLnmg gLomIJ mI*}KLSoggmm mg*(mgmmgmOmL'ommmmimLomIJLPogimmLPom *} jmL:oLomIYLeoR`LomIZLo 2/ 2Z 2 iN`LoogINLoo %lgL=pgIELoo mgL=p*}gIRLoo Lo o8o ggLogCgL=pgICL8po Lp o8o gOgL-p'g iNgL=pNg`LAp*}g1g0} 2`LWp L[p A j8TpILp 2SpSpILp SpLpSpILp SpLpSpI~Lp8SpSp 28I*}LpSp o ?Š塐Lp 2)SpSp oЭ)LqL_qL\q)L\qMTpL\q)L@qgL=q8g*}gLTq(eRgŮLTqg gTpLip >p D@` D:KERMIT.PNSfq D:KERMIT.OPTuqqLq H2$8tqsq 2$8ɀL rq̈́*}qLr$8&q "18e8e% |2$8ɀLrLrqLqLrq H2qqͅqLUrq& "1*}8e8eqLr`LYr AA CT CA C C D@`Lxr} 2Lr$Computer Name (baud rate) # 555-1212r ;2*}trtrLr 2tr& "18e8e ;2trLrLsUse arrows, then RETURN to dialr ;2LAsor ESC to qu*}it. CTRL-S Savess# ;2Lls SPACE modifies, CTRL-R RestoressK N2R 65 2 2`2Ls Ls q urssi*}R 65 2 2 2ssI L&tsiR 65? 2&s "18e8e% |2 urLcusI*}LatR 65 2LRt Not DialingtF ;2`LcusI sI-Lt͏sLt~ 28ssLcusI sI=LtsL*}t~ 2sLcusIL>utqsq 2s͌sL+u&s "18es8esssѮL%uss B*}2sLt H2 q ursLcusILVu q ursLcusILcuLfuLs} 2&s "18es8esss ;2*}ss sCss`!#$!#$ug!#$ugLu Lu 1uuuLuuIALu`uIALvuuLJvL"vD#* }:*.*vuu 8uiui0m8uu e= H2$8uu 2u |2$8ɀLvLvu ;2u0Lv*!}9;uLvLvLpv H2Lwuu e=LvDFGIvu 0?uuLv`uIILYwLwType 'Y' to format %S%Euuv ?4 2*"}uu cHIYLAwL6w Aborted%Ew, ?4`LYwLRw Formatting...wD N2$8umuuiuu 2$8ɀL*#}wLwDisk I/O error %B%E$8w ?4`gw ?4`gLwLw} 2Lw Micro-DOS:w ;2Lx A - Disk Directoryw ;2L"x*$} D - Delete Filex ;2L;x F - Lock Filex, ;2LVx G - Unlock FilexE ;2Lqx I - Format Diskx` ;2Lx Q - Quit (back to *%}main menu)x{ ;2Lx %ECommand -> x ?4 2ww cHwLxADFGIQxЭw 0?ŠLxw 2wIQLx 2`Ly%EFilespec*&} -> y ?4w |2ww uLwL4y$8qq 2$8ɀLy8 2 8 28 2(8 2P8 28 2R*'} 2 8 28 28 2 H2`yLy H2$8qq 2$8ɀLS - Save Parameters}q ;2L}R - Restore Parameters} ;2(8 GzzL} * - Debug Mode (%S)%Ezz}*0} ?4L~ Q - Quit (back to Commands)%E} ?4L6~Parameter to change -> ~ ?4 2zz cHzz *HLe~z 2zIA*1}L~8IL~8L~8LzIBL~ 8 8L~ 8LzIDL~88L~8LzI*L~8(8(8LzIQL~L*2}~uit%E~ ?4`LzIFL8P8P8Q8Q8LzILL888L58LzITLW88LT8LzIMLsR*3}RLpRLzIPL 8 8L 8LzIIL88L8LzILLSaving ;2 1yLzILL Re*4}storing ;2 yL 2LzLխfG0eG0 48#88E8D808S8R8ȌLH H2L2Ln"Kermit for the Atar*5}i Home ComputerK ;2L"v1.2 (c) 1984 John Howard Palevichx ;2 ?Lˀ"- Feel free to copy this program - ;2 yLۀK:*6}ة 2 ]@L0LPRESS ANY KEY TO EXIT ;2IL(LL% D@ NFLM%E%ECommands are:%E9 ?4Lu *7}A - Auto-dial (then connect)W ;2L! C - Connect (to remote computer) ;2L D - Micro-DOS ;2L F - Finish (remo*8}te server mode) ;2L H - Hang up (the phone) ;2L7$ P - Parameters (inspect and change) ;2LW R - Receive (a f*9}ile)A ;2Lt S - Send (a file)a ;2L Q - Quit (back to DOS)%E%E~ ?4L Command -> ?4 2 cHLق *:}ACDFHPRSQϭ 0?L 2IALLuto-dial ;2 sIL XpLICLCL3onnect, ;2 Vr XpLIFLc*;}LVinishP ;2 fLIHLLwang upp ;2 NFLIDLLos ;2 wLIQLLuit ;2L"LIPLL*<}փ arameters ;2 zLISLLend ;2 eLIRLLeceive ;2 !ZL6 M@ H2``aaaaaaaaaaaaaaaaaaaaa*=}aaaaaaaaaars ;2 zLISLLend ;2 eLIRLLeceive ;2 !ZL6 M@ H2``aaaaaaaaaaaaaaaaaaaaa( Rick Cortese 2/13/91 20802 Laurel Road Los Gatos, CA 95030 How to attach RS-232 devices to a joystick port. 1st I.?}'d like to apologize for the verbose instructions . For those people that are worried about whether or not I have .@}real serial ports, the answer is yes: Both an 850 & PR:Connection. The reason I looked into this is I felt we were loosin.A}g people from the Atari community when we recommended the standard methods of transferring data, that is: Buy a disk drive.B} for $200, a $16 cable, an $80 interface, and a $10 null modem. Although it was never said, I know most people probably ba.C}lked at spending $300+ on a computer with a street value of $50. I imagine most of them just bought a clone for a couple o.D}f extra bucks. With that in mind I paid little attention to doing this right and a lot of attention to doing it cheap. .E}The 1st thing you'll need is a joystick cable. Just about any cable that works with the Atari or 2600 VCS is suitable. B&C.F} Computer Visions sells cables for $1.50 & I know San Jose Computer used to sell joystick extension cables for a buck or two.G}. I'd recommend salvaging one from a busted joystick if possible. The other parts are readily available from Radio Shack or.H} JDR Micro Devices in San Jose (My personal favorite). JDR's toll free number is 800-538-5000. JDR's minimum charge is $1.I}0 + $2.50 P&H so you may want to pick up some other goodies at the same time, like a V20 for your IBM or maybe some SIMs fo.J}r your ST. I also wrote a two short BASIC/ML routines for transferring test files between the 8-bit Atari to my ST and cl.K}one. I've included the source code for anyone who'd like to see how it's done. If you have an assembler you may want to s.L}ee how fast you can get the transfers to go. The one from the receiving data isn't as short as it could be, but it was sh.M}ort enough that I didn't bother optimizing it. You're limited to transferring files that are less then 30,000 bytes long, .N}but this should be enough to transfer a MPP type telecommunication program, MPP was the Co. that developed a modem that plu.O}gged into joystick port(2), type. I didn't bother figuring out how to transfer binary files to the 8-bit from an ST becaus.P}e I hate ST basic that much. I could've done it in 'C, but I think most people that have an ST also have enough software fo.Q}r the 8-bit to get the set-up to work. There are many BBS's that have EXPRESS.MPP or the MPP drivers, people like B&C Com.R}puter Visions in Santa Clara CA that sell public domain software for $3 or $4, and user groups where you can get a copy. I.S}f it's a problem, let me know & I'll do it. I'd like to recommend that you make the RS-232 type cable then buy a "NULL MOD.T}EM FEMALE-FEMALE" type connector. It'll be an extra $10, but you'll end up with a more versatile set-up. You could really.U} make both types of cables cheaper then you could buy a NULL connector, but it's up to you. I've tested the RS-232 cable wi.V}th a Supra 2400, Avatex 1200, ST, and clone, they all work. The joystick NULL cable works with the clone & ST. For some f.W}iles it well be necessary to print them to disk on the 8-bit before the ST or IBM can capture them properly. This is due to.X} different values for carriage return and line feeds use by the different computers. For using telecommunication software .Y}with NULL connectors make sure you are not using software that thinks it's hooked to a Hayes modem unless you have a way to .Z} force it into terminal mode. All the programs in the ARC file except this and "RECIEVE.PRN" are in 8-bit format so you m.[}ay have to transfer them to your 8-bit before you can read them properly. How it works: For the most part, the joystick c.\}able can not supply enough horsepower to drive a standard RS-232 device. What I did was use the hand shaking lines of the .]}device we connect to for shaking their own hands/suppling their own drive current. All the MPP drivers/telecommunication p.^}rograms use joystick(2) trigger for determining if there's a carrier signal present. We just tie this line to ground so it._} thinks it's connected to another device. To use EXPRESS.MPP you just press 'G for answer phone or use 'E and just dial a .`}'1 to get to the terminal mode. Once in the terminal mode you have to use the Hayes command set to your modem to dial (i.e.a}. ATDT 555-1212). For connecting to an ST or clone, you may have to use 1/2 duplex on both ends & make sure you set the BAU.b}D to 300! EXAMPLE #1 NULL MODEM FOR USE WITH EXPRESS.MPP OR HANDLERS JOYSTICK(2) You absolutely have to use the cir.c}cuitry to protect your 8- bit. RS-232 uses -5V to -15V and +5V to +15V for it's logic levels. The inputs are high resista.d}nce so it's OK to drive them with the +5V of the Atari, but if you input a -10V on a joystick port, there could be smoke & .e}costly repairs. ______________________ \ 1 2 3 4 5 / \ 6 7 8 9 / \________________/ .f} The colors should be as follows: COLOR PIN # WHITE 1 BLUE 2 GREEN 3 BROWN 4 OR.g}ANGE 6 BLACK 8 Explodo view for connection to FEMALE DB-25 ____ : \____ : \____ .h}: \ : 13 : : 25: : : : 12 : : 24: : .i} : : 11 : : 23: : : : 10 : : 22: : .j} : : 9 : : 21: : : ORANGE : 8+---+ : & BLACK.k} : +----+20: + : : : : 7+-----+---------------------+ : : +.l}19: 5.1V : : \_/ : ZENER \_/ : 6++ /---/ : /-----/ : : ++ 18: .m} : : : : : : : 5++ : : : : : : 17: : : : 5.n}.6K: : : : 4++\/\/\+ : : : : 16: : : : : .o} : : 3+------+--------WHITE : : 15: : : : 5.6K : : 2+-.p}------------+/\/\/\/+-----+--BLUE : 14: : : : 1 ____: : ____/ :____/ .q} EXAMPLE #2 SIMPLE NULL MODEM FOR 1ST TRANSFER IBM=>8-BIT This is just a quick and dirty transfer program I wrote. It.r} uses a slightly different cable & will work for getting a real telecommunication program to the 8-bit. It'll transfer any.s} file, including binary, BUT ONLY TO THE 8-BIT! First run this program on your IBM or clone to set the serial port speed.t}. 10 OPEN "COM1:300,n,8,1,RS,CS0,DS0" FOR OUTPUT AS #1 20 CLOSE #1 After running it type SYSTEM & hit RETURN For tra.u}nsferring stuff you'll just run the Atari program; RECIEVE.LST Then use MS DOS "COPY FILENAME COM1". After the clone.v} finishes the transfer, just hit any key on the Atari to wake it up & save the program. I had to shut the screen off to ke.w}ep the timing right. The IBM thinks it's just hooked up to a serial printer so it'll dump the file as is. Explodo view.x} for connection to FEMALE DB-25 ____ : \____ : \____ : \ : 13 : : .y} 25: : : : 12 : : 24: : : : 11 : : .z} 23: : : : 10 : : 22: : : : 9 : : 2.{}1: : : : 8 : BLACK : 20: + : : .|} : : 7+---------------------------+ : 19: 5.1V : : : ZENER \_/ : 6++.}} : /-----/ : : 18: : : : : : : 5++ : .~} : : : 17: : : : : : : 4++ : : .}: 16: : : : : : 3 : : : 15: .} : : : 5.6K : : 2+-------------+/\/\/\/+-----+ : 14: : .} : : + : 1 ____: WHITE : ____/ :____/ EXAMPLE #3 This is .}the one I really recommend building, if you buy a NULL modem connector you'll be able to use it to hook up with both comput.}ers & a modem. Explodo view for connection to male DB-25 Solder side of DB-25 (I stick everything inside the hood).} ____ : \____ : \____ : \ : 1 : : 14: : .} : :++2+-------------------------------------+-WHITE :: 15: : :: : .} 5.6K : :: 3+---------------+\/\/\+-+---BLUE : :: 5.6K 16: : : :+\.}/\/\/+-+ : + : : 4+-----+ /---/ 5.1V /---/ : : 17: /:\ .}ZENERS /:\ : : : : : : 5+-----+ : : : : 1.}8: +-------------+ : : : :++6 : : :: 19: .} : :: : : :: 7+-----------------------+-BLACK & :+-----------+20: ORANGE : .} *SEE NOTE : : 8+-+ : : 21: : : : 9 : : 22: : .} : : 10 : : 23: : : : 11 : : 24: : .} : : 12 : : 25: : : : 13 ____: : ____/ :_____/.} *NOTE: Some printers use pin #8 as CARRIER DETECT. I believe the NEC Spinwriter is one. I never ran into any thin.}g that needs it, but you may want to use pin #8 to #20 if you have a problem. In this case DO NOT CONNECT PIN #6! Maybe u.}se the 4-5-6 connection. #6 and #8 are both outputs from DTE's so you could have one trying to bring the other to a +10 or .}a -10V! I've seen a reference that does this, but it doesn't seem like a good idea. Besides, the NEC uses pin #19 & mayb.}e #20 for DTR and is such an odd case, it may not work anyway. If you use 5.6K resistors you could connect just about anyt.}hing to anything, but why? If you buy a NULL modem for connecting your computers, it'll probably take care of the CD line .}anyway. As a final note; if you really want to be safe get a pin-out for the devices you want to connect. Make sure you ne.}ver have two outputs from either device (or themselves for that matter) connected to each other. Here's a list of standa.}rd pin assignments for RS-232 to help you along & double check my connections. *****NOTE***** I do connect pins 4 & 5 to pi.}n #2 (or #3) through a 5.6K resistor. This is necessary because although the joystick port can deliver a 0V level, it can'.}t drive a +5V by itself. You could probably also substitute pin #20 vs #4 for driving pins # 5 & #6 if you never want to c.}onnect to a modem. PIN # ASSIGNMENT BOTH DEVICES 1 PROTECTIVE GROUND 7 SIGNAL GROU.}ND THE OUTPUTS (DTE DATA TERMINAL EQUIPMENT) 2 TRANSMITTED DATA (TD) 4 REQUEST TO SEND (RTS) 20.} DATA TERMINAL READY (DTR) 23 DATA SIGNAL RATE SELECTOR 24 TRANSMITTER SIGNAL ELEMENT T.}IMING 14 SECONDARY TRANSMITTED DATA 19 SECONDARY REQUEST TO SEND THE INPUTS (DATA TERMINATING CIRC.}UIT EQUIPMENT) 3 RECIEVED DATA (RD) 5 CLEAR TO SEND (CTS) 6 DATA SET READY (DSR) 2.}2 RING INDICATOR (RI) 8 CARRIER DETECT (CD) 21 SIGNAL QUALITY DECTOR 23 D.}ATA SIGNAL RATE SELECTOR 15 TRANSMISSION SIGNAL ELEMENT TIMING 17 RECIEVER SIGNAL ELEMENT TIMING 1.}6 SECONDARY RECIEVED DATA 13 SECONDARY CLEAR TO SEND 12 SECONDARY RECIEVED LINE SIGNAL .}DETECTOR SECONDARY RECIEVED DATA 13 SECONDARY CLEAR TO SEND 12 SECONDARY RECIEVED LINE SIGNAL , 10 REM JOYSTICK #1 RECIEVE FROM RS-23220 REM @300 BAUD BY RICK CORTESE 2/9130 REM SCREEN WILL BLANK DURING40 REM TRANSFER:2} PRESS ANY KEY WHEN50 REM DONE TO SAVE FILE60 CLR :DIM A$(30000):A$="":A$(30000)=A$:A$(1)=A$70 FOR N=1536 TO 1692:READ BY2}TE:CHKSUM=CHKSUM+BYTE:POKE N,BYTE:NEXT N80 IF CHKSUM<>17867 THEN ? "TYPO ERROR IN DATA STATMENTS":END 90 SIZE=USR(1536,ADR(2}A$))100 CLOSE #3:OPEN #3,8,0,"D:TRANS.DAT"110 FOR N=1 TO SIZE:PUT #3,ASC(A$(N)):NEXT N120 CLOSE #3130 END 5000 DATA 104,2}104,133,204,1045010 DATA 133,203,169,0,1415020 DATA 14,212,141,0,2125030 DATA 133,212,133,213,1695040 DATA 255,141,252,2,2}1735050 DATA 252,2,201,255,2085060 DATA 6,32,51,6,765070 DATA 24,6,169,255,1415080 DATA 14,212,141,252,25090 DATA 169,342},141,0,2125100 DATA 96,169,255,205,05110 DATA 211,240,1,96,325120 DATA 72,6,32,108,65130 DATA 32,117,6,32,1325140 DATA 62},96,162,8,1425150 DATA 141,6,169,0,1415160 DATA 140,6,32,142,65170 DATA 173,0,211,24,745180 DATA 110,140,6,206,1415190 D2}ATA 6,240,6,32,1425200 DATA 6,76,85,6,325210 DATA 142,6,96,169,2555220 DATA 77,140,6,141,1405230 DATA 6,96,160,0,17352402} DATA 140,6,145,203,245250 DATA 230,203,208,2,2305260 DATA 204,96,24,230,2125270 DATA 208,2,230,213,965280 DATA 0,0,174,12}55,65290 DATA 172,156,6,136,2085300 DATA 253,202,208,247,965310 DATA 150,6000000000000000000000000000000000000000000000002}0000000000000000000000000000000005300 DATA 253,202,208,247,965310 DATA 150,6000000000000000000000000000000000000000000000000!10 REM JOYSTICK #1 RECIEVE FROM RS-232 20 REM @300 BAUD BY RICK CORTESE 2/91 30 REM SCREEN WILL BLANK DURING 40 REM TRANSF6}ER: PRESS ANY KEY WHEN 50 REM DONE TO SAVE FILE 60 CLR :DIM A$(30000):A$="":A$(30000)=A$:A$(1)=A$ 70 FOR N=1536 TO 1692:RE6}AD BYTE:CHKSUM=CHKSUM+BYTE:POKE N,BYTE:NEXT N 80 IF CHKSUM<>17867 THEN ? "TYPO ERROR IN DATA STATMENTS":END 90 SIZE=USR(1536}6,ADR(A$)) 100 CLOSE #3:OPEN #3,8,0,"D:TRANS.DAT" 110 FOR N=1 TO SIZE:PUT #3,ASC(A$(N)):NEXT N 120 CLOSE #3 130 END 50006} DATA 104,104,133,204,104 5010 DATA 133,203,169,0,141 5020 DATA 14,212,141,0,212 5030 DATA 133,212,133,213,169 5040 DATA 6}255,141,252,2,173 5050 DATA 252,2,201,255,208 5060 DATA 6,32,51,6,76 5070 DATA 24,6,169,255,141 5080 DATA 14,212,141,252,6}2 5090 DATA 169,34,141,0,212 5100 DATA 96,169,255,205,0 5110 DATA 211,240,1,96,32 5120 DATA 72,6,32,108,6 5130 DATA 32,16}17,6,32,132 5140 DATA 6,96,162,8,142 5150 DATA 141,6,169,0,141 5160 DATA 140,6,32,142,6 5170 DATA 173,0,211,24,74 5180 D6}ATA 110,140,6,206,141 5190 DATA 6,240,6,32,142 5200 DATA 6,76,85,6,32 5210 DATA 142,6,96,169,255 5220 DATA 77,140,6,141,16}40 5230 DATA 6,96,160,0,173 5240 DATA 140,6,145,203,24 5250 DATA 230,203,208,2,230 5260 DATA 204,96,24,230,212 5270 DATA6} 208,2,230,213,96 5280 DATA 0,0,174,155,6 5290 DATA 172,156,6,136,208 5300 DATA 253,202,208,247,96 5310 DATA 150,6 DATA4x10 ;RS-232 300 BAUD RECIEVE BY20 ;Rick Cortese 2/21/9130 ;ASM ,,#D:RECIEVE.OBJ40 *=$60050 PTR = $CB60 ;SIZE AKA FR07:}0 SIZE = $D480 VAR = $CF90 PORTA = $D3000100 NMIEN = $D40E0110 DMACTL = $D4000120 BAUD = 3000130 INIT0140 PLA015:}0 PLA0160 STA PTR+10170 PLA0180 STA PTR0190 LDA #000200 STA NMIEN0210 STA DMACTL0220 STA SIZE0230 STA SIZE+1:}0240 LDA #2550250 STA 7640260 ;MAIN LOOP THAT CHECKS EVERYTHING0270 L10280 LDA 7640290 CMP #2550300 BNE BYE0310 :} JSR CHECKIT0320 JMP L10330 ;YOU GET HERE WHEN YOU PRESS0340 ; A KEY0350 BYE0360 LDA #$FF0370 STA NMIEN0380:} STA 7640390 LDA #340400 STA DMACTL0410 RTS0420 ;1ST CHECK FOR START BIT0430 CHECKIT0440 LDA #$FF0450 CMP PORTA:}0460 ;GET BYTE IF IT'S THERE0470 BEQ WEREON0480 ;GO HOME IF IT'S NOT0490 RTS0500 WEREON0510 ;??IF?? CENTER SAMPLING NE:}EDED0520 ;WAIT 1/2 OF START BIT0530 ;REAL STUFF0540 JSR GET8BITS0550 JSR CONVERT0560 JSR STORE0570 JSR BUMPSIZE058:}0 RTS0590 GET8BITS0600 LDX #80610 STX COUNT0620 LDA #00630 STA BUFF0640 ;SHOULD PASS START BIT0650 ;WITH SOME CHA:}NGE 'CAUSE OF0660 ;THE TIME GETTING HERE0670 JSR WAIT0680 L20690 LDA PORTA0700 CLC0710 LSR A0720 ROR BUFF0730 D:}EC COUNT0740 BEQ OUT0750 JSR WAIT0760 JMP L20770 OUT0780 ;SHOULD PASS ANY STOP BITS0790 JSR WAIT0800 ;NO PARITY CH:}ECKS0810 RTS0820 CONVERT0830 LDA #$FF0840 EOR BUFF0850 STA BUFF0860 RTS0870 STORE0880 LDY #0089:}0 LDA BUFF0900 STA (PTR),Y0910 CLC0920 INC PTR0930 BNE DONESTORE0940 INC PTR+10950 DONESTORE0960 RTS0:}970 BUMPSIZE0980 CLC0990 INC SIZE1000 BNE DONEBUMP1010 INC SIZE+11020 DONEBUMP1030 RTS1040 BUFF1050 .BYTE 0:}1060 COUNT1070 .BYTE 01080 WAIT1090 LDX DELAYX1100 D11110 LDY DELAYY1120 D21130 DEY 1140 BNE D21:}150 DEX 1160 BNE D11170 RTS 1180 DELAYX1190 .BYTE 45000/BAUD1200 DELAYY1210 .BYTE $061220 .END:} RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRDELAYX1190 .BYTE 45000/BAUD1200 DELAYY1210 .BYTE $061220 .END801 REM ******* a simple demo **********2 REM DO NOT input strings longer then3 REM 127 BYTES or if you load a file4 REM dir>}ectly to buffer, don't send5 REM the ML more then 127 bytes!6 REM BTW: the strings once processed7 REM are no longer intac>}t in memory8 REM ********************************10 GRAPHICS 0:FOR N=0 TO 150:READ BYTE20 POKE 1536+N,BYTE:NEXT N:X=USR(15>}36)25 ? CHR$(125);30 ? " Joystick #1 serial out"40 ? " at 300 baud installed"50 ? " for ASCII transfers to RS232"60 >}? " devices. See DOC for details"70 ? " on how to make the cord"80 CLR :DIM FILE$(255),CR$(2)90 CR$=CHR$(13):CR$(2)=CHR$(1>}0):? 100 ? "SELECT A BAUD RATE =300"110 ? "1=50 2=110 3=300 4=1200 5=2400"120 ? "6=4800 7=9600 8=19200"130 CLOSE >}#1:TRAP 150:INPUT X140 ON X GOSUB 2000,2010,2020,2030,2040,2050,2060,2070150 TRAP 40000:TRAP 25160 ? "File to transfer? In>}clude Dx:"170 INPUT FILE$:OPEN #1,4,0,FILE$180 TRAP 300190 INPUT #1,FILE$:FILE$(LEN(FILE$)+1)=CR$200 X=USR(1558,ADR(FILE$>}),LEN(FILE$))210 FOR DELAY=1 TO 10:NEXT DELAY220 GOTO 190300 FILE$(LEN(FILE$)+1)=CR$310 CLOSE #1:GRAPHICS 0:TRAP 40000:GO>}TO 251000 DATA 104, 169, 48, 141, 21010 DATA 211, 169, 1, 141, 01020 DATA 211, 169, 52, 141, 21030 DATA 211, 169, 0, 141,>} 01040 DATA 211, 96, 104, 104, 1331050 DATA 204, 104, 133, 203, 1041060 DATA 104, 133, 205, 168, 1691070 DATA 255, 136, 4>}8, 7, 811080 DATA 203, 145, 203, 76, 341090 DATA 6, 120, 169, 0, 1411100 DATA 14, 212, 141, 0, 2121110 DATA 133, 207, 164>}, 207, 1771120 DATA 203, 141, 134, 6, 1601130 DATA 8, 140, 135, 6, 1691140 DATA 1, 141, 0, 211, 2341150 DATA 234, 234, 23>}4, 234, 2341160 DATA 234, 234, 32, 136, 61170 DATA 173, 134, 6, 141, 01180 DATA 211, 106, 141, 134, 61190 DATA 32, 136, 6>}, 206, 1351200 DATA 6, 208, 238, 169, 01210 DATA 141, 0, 211, 32, 1361220 DATA 6, 32, 136, 6, 2301230 DATA 207, 166, 207,>} 228, 2051240 DATA 208, 191, 169, 34, 1411250 DATA 0, 212, 169, 255, 1411260 DATA 14, 212, 88, 96, 01270 DATA 0, 174, 149>}, 6, 1721280 DATA 150, 6, 136, 208, 2531290 DATA 202, 208, 247, 96, 81300 DATA 1352000 POKE 1685,150:POKE 1686,42:RETURN >}2010 POKE 1685,60:POKE 1686,50:RETURN 2020 POKE 1685,8:POKE 1686,135:RETURN 2030 POKE 1685,2:POKE 1686,130:RETURN 2040 PO>}KE 1685,2:POKE 1686,65:RETURN 2050 POKE 1685,2:POKE 1686,30:RETURN 2060 POKE 1685,1:POKE 1686,26:RETURN 2070 POKE 1685,1:P>}OKE 1686,8:RETURN ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ,30:RETURN 2060 POKE 1685,1:POKE 1686,26:RETURN 2070 POKE 1685,1:P<910 ;ASM ,,#D9:TC20 .OPT NO LIST30 *= $060040 ;MAC/65 source for50 ;RS232 ASCII serial transfer over60 ;joysB}tick port #1 by Rick Cortese70 ;Some routines modified from80 ;Eric Floegel "Forth on the Atari"90 ;To be called from BasiB}c with0100 ;X=USR(1536)0110 ;to initialize the joystick port0120 ;then0130 ;X=USR(1686, BYTE)0140 ;where "BYTE"=data to B}be sent0150 ;to change BAUD: poke 45000/BAUD0160 ;POKE 1776, 45000/BAUD0170 ;so you can use different values0180 ;to testB} the maximum speed0190 ;to build a cable you just need to0200 ;get a DB25 female connector and0210 ;hook the White lead frB}om an Atari0220 ;stick cable to pin #3 & the black0230 ;lead to pin #70240 ;the other terminal (ST?) should0250 ;have it'B}s port set to 8,1,N0260 ;& NOT! monitor XON CTS etc lines0270 ;Uniterm lets you do this W/O any0280 ;problem, I don't knowB} about other0290 ;telecommunication software.0300 ;plug the DB25 into the ST cable0310 ;use ASCII file transfer method032B}0 ;For an RS232 cable, see DOC file0330 ;or "CAPTURE" the data0340 PTR = $CB0350 SIZE = $CD0360 VAR = $CF0370 PORTAB} = $D3000380 PACTL = $D3020390 NMIEN = $D40E0400 DMACTL = $D4000410 BAUD = 3000420 INIT0430 PLA 0440 LDA #$30B}0450 STA PACTL0460 LDA #$010470 STA PORTA0480 LDA #$340490 STA PACTL0500 LDA #$000510 STA B}PORTA0520 RTS 0530 BASIC ; USR() ENTRY0540 PLA 0550 PLA 0560 STA PTR+10570 PLA 0580 STB}A PTR0590 PLA 0600 PLA 0610 STA SIZE0620 TAY 0630 CONVERT ; TO INVERSE LOGIC0640 LDA #$FF065B}0 DEY 0660 BMI CONTINUE0670 EOR (PTR),Y0680 STA (PTR),Y0690 JMP CONVERT0700 CONTINUE0710 SEI 0B}720 LDA #00730 STA NMIEN0740 STA DMACTL0750 STA VAR0760 SEND10770 LDY VAR0780 LDA (PTR),Y0790 B} STA BUFF0800 LDY #$080810 STY COUNT0820 ;RS232 start bit0830 LDA #$010840 STA PORTA0850 NOP 08B}60 NOP 0870 NOP 0880 NOP 0890 NOP 0900 NOP 0910 NOP 0920 NOP 0930 JSR WAIT0940 SEND2B}0950 LDA BUFF0960 STA PORTA0970 ROR A0980 STA BUFF0990 JSR WAIT1000 DEC COUNT1010 BNE SEND2B}1020 ;Stop bit1030 LDA #$001040 STA PORTA1050 JSR WAIT1060 JSR WAIT1070 INC VAR1080 LDX VAR10B}90 CPX SIZE1100 BNE SEND11110 ;SCR on & return to BASIC1120 LDA #$221130 STA DMACTL1140 LDA #$FF115B}0 STA NMIEN1160 CLI 1170 RTS 1180 BUFF1190 .BYTE 01200 COUNT1210 .BYTE 01220 WAIT1230 LDX DELB}AYX1240 D11250 LDY DELAYY1260 D21270 DEY 1280 BNE D21290 DEX 1300 BNE D11310 RTS 1320 DELAYXB}1330 .BYTE 45000/BAUD1340 DELAYY1350 .BYTE $061360 .END B}ND @E