fseipel@hpuxa.ircc.ohio-state.edu (Frank E. Seipel) (03/08/91)
This one is a BASIC program to turn Mac/65 source code into ASCII
text. It is mostly of use to those who never purchased Mac/65 but have
other assemblers, such as SynAssembler and Atari's Macro Assembler.
Uuencoded. RUN at READY prompt.
----------------------cut here------------------------
begin 0666 DETM65.BAS
M 1P!'0%U ;D0SQ!44ZA41:A(15BH0:143TM%3J3!PLS)PU1/2T7. $$
M 0$ 00$ !@ ! 0!! @ ,$ ! ($#8 P! "@ @02(#+H!] $ !4 6
M & < " )001# I! 8, #H QP<
M $U!0R\V-2!43TM%3B!#3TY615)415*;\@,?'P H0RD@,3DX-R!!3D%,3T<@
M0T]-4%5424Y'F_P#(" 5U))5%1%3B!"62!#2$%23$53($)!0TA!3D2;!@0&
M!@";$ 0F)A2 .0Y! E4 L$H$Y#D$"50 "P2@CD.0!4 +!8:!!L;
M%(,[#D! "P2A#L.004 +!8D!!<-# Y!%' 4%PP.019@
M%BX$1PT-#D$0< !00*!0T* \?4D5455).(&9O<B!D:7)E8W1O<GD@;W(@
M;F%M92!O9A1'* \-H,W!PZ^VM: @9FEL9146. 0B!P*#% X'@S0/ !L8# Y!
M%T 4(@H.01!P %D($(" 7' Y 0 2#D $ !(.
M$H,63 0=$"D<#D ! !*%%!TI' Y 0 2AA96!!L;!X4B#D$"5
M "J%(H8;#D$1, !9@!"4;* \3_4YO="!A($U!0R\V-2!&:6QE(10E"@Y!
M$' 6:@0=$"D<#D ! !*%%!TI' Y 0 2AA9T!"T&*!0M* \.
M1FEL92!L96YG=&@@/2 5A26&) Y! E8 E#D $ !9^!$<-#0Y!$5
M 4$"@4-"@/'U)%5%523B!F;W(@9&ER96-T;W)Y(&]R(&YA;64@;V841R@/
M#:#/U=30U=2@(&9I;&45%H@$(@<"@Q0.!X,T#P ;& P.01= %"(*#D$1
M4 !:2!" @%QP.0 ( $@Y " 2#@ !*#%IP$!@8 FZ8$
M%!0 4%)/0T534R!!($Q)3D6;L 0&!@";N@0-#0T.011 %L0$*A I' Y
M 0 2A10=*1P.0 $ $H84*BD<#D ! !*'%LX$+1$VARV')@Y
M P 4+2 <#D " !6%)88D#D$"5@ !4/ 2 5%M@$,A I' Y 0
M 2A10>-H<MAR8.0 $ %#('A1X.0(@ &PY!$G 6X@0K$0B&
M+0Y 0 9AQ0>*1P.0 $ $H44*RH<#D " !*%%NP$' <)AA02
M(!P.0 ( %!P*#D$2( !;V!!<7!X4@#D$!* !L.01,@ %@ %
M'A$(B"T.00$I &844'BD<#D ! !*%%@H%(A J' Y @ 2A10>
M-H<MAR8.0 $ %"()B!84!20/!X<B#@ !L:*!P.0 ( %"0*
M#D$2( !8>!1X0*1P.0 $ $H44'C:'+8<F#D ! !8H!20D*!P.
M0 ( %0\!(!6$-X XA2P\@3B%+"P5#P$@%18R!1<7!X4B#@ !L.
M01)0 %CP%) \'AR(. &QHH' Y @ 4) H.01(@ %D8%
M'A I' Y 0 2A10>-H<MAR8.0 $ %E %60\'A2$.00$H &Q4V
MB2V%%",(ABT.00$I &8D4,"D<#D ! !*%%#TJ' Y @ 2A11+
M-H<MAR8.0 $ %$\)AA19"@Y!$T 66@59#P>%(@Y !P ;'"D<
M#D ! !*%%"DI' Y 0 2AA1!*!P.0 ( %84EAB0.00)6
M%11/-H<MAR8.0 ( %%D*#D$30 !9D!4(/!X4B#D ( !L<*1P.
M0 $ $H44*B@<#D " !6%%10X-H<MAR8.0 $ %$(*#D$30
M !9N!6<L*!P.0 ( %80W@#B%)0Y! 2@ L/($XA24.00$H +"P5
M%#@'A2(.0 8 &T4I' Y 0 2A11/# Y!%H 473:'+8<F#D !
M !1G"@Y!$T 6> 5;#P>%(@Y !0 ;'"D<#D ! !*&%"DI
M' Y 0 2A10W-H<MAR8.0 ( %$$,#D$6@ !1'-H4MAA11# Y!
M%H 46PH.01- %H(%4 \'A2(.0%D &QT(ABT.0 $ &8<4
M*BD<#D ! !*%%#<J' Y @ 2A10["8841B@<#D " !10"@Y!
M$B 6C 4W#P>%(@Y $ ;'"D<#D ! !*%%"DJ' Y @ 2
MA10W-H<MAR8.0 $ %I8%#0T*#D$30 !:@!282-H4M1CH.00&5
M+!0F!X4B#D$!-@ !L.01!P %JH%/SPH#PC]15)23U(@(Q6%%0\)($%4
M($Q)3D4@%48Z#D$!A@ "PE1CH.00&' +"0.00)6 %#\F%K0%!@8
MF[X%&1D 4T54+550(%1/2T5.(%1!0DQ%4YO(!08& )O2!2,&*!0C* \8H,W!
MPZ^VM: @5$]+14X@0T].5D525$52%MP%(08H%"$H#Q5);FET:6%L:7II;F<@
M87)R87ES+" 5%N8%(A8H#PYP;&5A<V4@=V%I="XN+A0B-HDM#D ! !;P
M!2H)(HH2@Q06!XH>-@Y 0 ;( P.018 %"H*#D$5( !;Z!2(/
M-HHM#D$!A0 !08-H,N#P(L6!0B# Y!%@ 6! 8B#S:*+0Y! 80 4
M&#:#+@\"+%D4(@P.018 %@X&(0\VBBT.0 < %!<V@RX/ 2 4(0P.
M018 %A@&(0\VBBT.00&) %!<V@RX/ 2P4(0P.018 %B(&* \V
MBBT.00&3 %!XV@RX^.@Y - L%"@,#D$6 !8L!B,/-HHM#D$!
M@@ !09-H,N#P,L6"D4(PP.018 %C8&&0\VBBT.00&# %!DV@RX/
M RDL619 !A4,-H XBBPMB105-H0WB2PN@Q9*!@\/-H$XBBPM0CJ$+!94!A<4
M-HDM0CJ$+"4.0 $ %!<D%EX&!@8 FV@&%!0 2$58($-/3E9%4E-)3TZ;
M<@8&!@";? 8;%PB%+0X 9#D 5 !0;(H,6A@86#S:".(4L+4 Z
M@RP4$PF%%!8D%I &)!0VB2U0.H4G#D 6 "P4)#:&+84FB20.0!8
M%IH&(Q,J' Y @ 2@CB)+!0C*AP.0 ( $H(XABP6I 8&!B06K@8&
M!@";N 89&0!214%$($1)4TL@1$E214-43U)9F\(&!@8 F\P&,"87' Y P
M 2#D & !(. $@\%1#HJ+BH4, T.01=5 %M8&'A "' Y
M P 2@Q04*(,4'@H.01=0 %ML&$0X1' Y P 4$206X 8&!@";
MZ@81$0!43TM%3B!404),19OT!@8& )O^!B$A 3<Y+$%$0RPW-RQ!3D0L.#0L
M05-,+#8X+$)#0YL(!R$A 38Y+$)#4RPW,"Q"15$L-S$L0DU)+#<R+$).19L2
M!R$A 3<S+$)03"PW-"Q"5D,L-S4L0E93+#0R+$))5)L<!R$A 30S+$)22RPT
M-"Q#3$,L-#4L0TQ$+#0V+$-,29LF!R$A 30W+$-,5BPX,BQ#35 L-# L0U!8
M+#0Q+$-069LP!R$A 3,T+$1%0RPT."Q$15@L-#DL1$59+#<X+$5/4ILZ!R$A
M 3,U+$E.0RPU,"Q)3E@L-3$L24Y9+#,S+$I-4)M$!R$A 3,R+$I34BPX,2Q,
M1$$L,S8L3$18+#,W+$Q$69M.!R$A 3@V+$Q34BPU,BQ.3U L-S8L3U)!+#4S
M+%!(09M8!R$A 34T+%!(4"PU-2Q03$$L-38L4$Q0+#@U+%)/3)MB!R$A 3@W
M+%)/4BPX,RQ30D,L-3DL4T5#+#8P+%-%1)ML!R$A 38Q+%-%22PX,"Q35$$L
M,S@L4U18+#,Y+%-469MV!R$A 38R+%1!6"PV,RQ405DL-C0L5%-8+#8U+%18
M09N !R$A 38V+%184RPV-RQ464$L-3<L4E1)+#4X+%)44YN*!R$A 3(Q+$)2
M02PY,"Q$14$L.3$L24Y!+#DR+%!(6)N4!R$A 3DS+%!(62PY-"Q03%@L.34L
M4$Q9+#@Y+%-46IN>!QD9 3(R+%120BPR,RQ44T(L,CDL*CV;J <?'P$Q-"PN
M14Y$+#(V+#LL,3DL+D]21RPS,"P]F[('(" !,C L+D5152PQ,2PN0EE412PQ
M,BPN4T)95$6;O <A(0$R-2PN0T)95$4L,3,L+D1"651%+#DL+E=/4D2;Q@<=
M'0$Q."PN1%,L,BPN14Q312PS+"Y%3D1)1IO0!QD9 3$P+"Y%4E)/4BPR-"PN
M1DQ/052;V@<A(0$Q+"Y)1BPQ-RPN24Y#3%5$12PR-RPN3$]#04R;Y <='0$Q
M-2PN3U!4+#@L+E!!1T4L,C@L+E-%5)ON!R$A 3 L15)23U(@+2 L-"PN34%#
M4D\L-2PN14Y$39OX!QP< 38L+E1)5$Q%+#,Q+"X]+#$V+"Y404*; @@='0$Q
M.3 L(RPQ.#<L("PQ,S0L)"PQ,S,L))L,"!\? 3$X,"P@/"PQ.#$L(#XL,3,X
M+"<L,34Y+%N;%@@='0$Q-C L72PQ-#8L*RPQ-#DL+RPQ-#@L*IL@"!T= 3$V
M-RQ<+#$U,"PF+#$V-"PA+#$V-2Q>FRH('1T!,34R+#TL,34V+#XL,34W+#PL
M,34X+"V;- @@( $Q-#<L+2PQ-34L/#XL,34T+#X]+#$U,RP\/9L^"!L; 3$W
M.2P@+D]2("PQ.3<L3D\@+#(P,9M("!D9 4Q)4U0L,3<X+" N04Y$("PQ.3F;
M4@@8& %%4E(L,3<W+" N3D]4("PR,#";7 @:&@%%2D5#5"PQ-S8L("Y$148@
M+#$Y.)MF"!X> 4]"2BPQ-S4L("Y2148@+#(P,RQ-3$E35)MP"" @ 3(P-"Q#
M3$E35"PR,#4L3E5-+#(P,BQ84D5&FWH('AX!,3DR+"@L,3@V+"DL,3,Y+"4D
M+#$T,2PJFX0(&!@!,3DQ+$$L,30P+"4L+3$L6%A8FXX(&1D!,"PQ+#(L,RPT
M+#4L-BPW+#@L.9N8"!$1 4$L0BQ#+$0L12Q&FZ((!@85%@" %A89#PY$,CI$
M151/2T5.+D)!4Q8:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
!&E1/
end