Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sun-barr!lll-winken!ncis.tis.llnl.gov!dog.ee.lbl.gov!hellgate.utah.edu!csn!magnus.ircc.ohio-state.edu!news
From: fseipel@hpuxa.ircc.ohio-state.edu (Frank E. Seipel)
Newsgroups: comp.sys.atari.8bit
Subject: Unsprites: Non player-missile graphics
Message-ID: <1991Mar2.051129.23875@magnus.ircc.ohio-state.edu>
Date: 2 Mar 91 05:11:29 GMT
Sender: news@magnus.ircc.ohio-state.edu
Organization: The Ohio State University
Lines: 82
Originator: fseipel@hpuxa.ircc.ohio-state.edu
Nntp-Posting-Host: hpuxa.ircc.ohio-state.edu


 Somebody requested a sprite program for the 8-bit which didn't use player
missile graphics; that is, a bit block movement subroutine. I searched the
Mac hard drive and came up with Unsprite1 - Unsprite6, from Analog
magazine, issue 70, March 1989. The fifth listing is the Mac/65 assembly
source; if requested, I'd be glad to post this. Here is the first file,
it is the machine code loader. You *must* run it before running Unsprite
2-4, or, obviously, they will not work.

----------------------------cut here-------------------------
begin 0666 UNSPRIT1.BAS
M     0(! P$3 8@,FPS4P0             !         0 8& !0<F]G<F%M
M($QI<W1I;F<@,3J; @ 6%@!5;BUS<')I=&4@3&]A9&5RFP, %!0 0GD@2F%S
M;VX@3&5I9VB;!  &!@";"@ F# Y" R$    4(R@/$=7.K=/0TLG4Q=.@S,_!
MQ,7$%"85%@!])B8!,C Q+#$P+#(P."PS+#<V+#0S+#DV+#(P,2PR,"PR,#B;
M 7TB(@$S+#<V+#DQ+#DV+#(P,2PR+#(P."PS+#<V+#DTFP)])24!.38L,C Q
M+#0P+#(P."PS+#<V+#$P,RPY-BPR,#$L-)L#?20D 3(P."PS+#<V+#$P.2PY
M-BPR,#$L."PR,#@L,RPW-IL$?24E 3$Q-2PY-BPY-BPQ-C L,"PQ-S,L,2PV
M+#$S,RPR,#B;!7TB(@$Q-S,L,BPV+#$S,RPR,#DL,C0L-#8L,2PV+#0VFP9]
M)24!,BPV+#(P,"PQ.3(L,RPR,#@L,C0T+#(T+#,X+#(P.)L'?24E 3,X+#(P
M.2PR-"PQ-C4L,C X+#$P.2PQ+#8L,30Q+#&;"'TB(@$V+#$V-2PR,#DL,3 Y
M+#(L-BPQ-#$L,BPV+#(TFPE](" !.38L,S(L-#,L.38L,C0L-#8L,2PV+#0V
M+#*;"GTB(@$V+#(T+#DV+#,R+#DQ+#DV+#<V+#DT+#DV+#,RFPM])"0!.30L
M.38L-S8L.30L.38L,S(L,3 Y+#DV+#<V+#DTFPQ])"0!.38L,C Q+#(L,C X
M+#,L-S8L,30S+#DV+#(P,2PTFWTD) $R,#@L,RPW-BPQ-3(L.38L,C Q+#@L
M,C X+#,L-S:;#GTB(@$Q-3@L.38L.38L,C0L,3$P+#(L-BPQ,3 L,2PVFP]]
M)B8!,C0L.38L,S(L,30S+#DV+#<V+#$T,RPY-BPS,BPQ-3*;$'TF)@$Y-BPW
M-BPQ-#,L.38L,3<T+#$Q+#8L,3@Y+#(P."PY.)L1?24E 3$T,2PQ-BPV+#$X
M.2PR,C0L.3@L,30Q+#$W+#8L.3:;$GTA(0$Q-S,L-RPV+#$T,2PQ+#8L,38Y
M+# L,30Q+#*;$WT@( $V+#$W,RPQ-RPV+#,R+# L.38L,3<S+#$L-IL4?2(B
M 3$T,2PQ-"PV+#$W,RPR+#8L,30Q+#$U+#8L,C2;%7TC(P$Q-S,L,RPV+#$P
M.2PQ-"PV+#$T,2PQ-"PV+#$W,YL6?2$A 30L-BPQ,#DL,34L-BPQ-#$L,34L
M-BPQ-S,L-9L7?1\? 38L,30Q+#$L-BPQ-S,L-BPV+#$T,2PR+#:;&'TC(P$Q
M-S,L,38L-BPS,BPQ,C$L.38L,C0L,3<S+#$L-IL9?2,C 3$P.2PQ-"PV+#$T
M,2PQ-"PV+#$W,RPR+#8L,3 YFQI])"0!,34L-BPQ-#$L,34L-BPY-BPQ,#0L
M,3 T+#$T,2PTFQM](R,!-BPQ,#0L,30Q+#,L-BPQ,#0L,30Q+#8L-BPQ,#2;
M''TE)0$Q-#$L-2PV+#$P-"PQ,#0L,30Q+#<L-BPQ,#0L,30QFQU])"0!.2PV
M+#$P-"PQ-#$L."PV+#$P-"PQ,#0L,30Q+#$PFQY]*RL!-BPQ,#0L,3,S+#(P
M-RPQ,#0L,3,S+#(P-BPQ,#0L,3 T+#$T,9L??2,C 3$Q+#8L,38Y+# L,30Q
M+#(P+#8L,S(L,38T+#DVFR!](B(!,S(L,3@P+#DV+#4V+#$W,RPX+#8L,C,W
M+#4L-ILA?2$A 3$T,2PQ+#8L,3<S+#DL-BPR,S<L-BPV+#$T,9LB?2(B 3(L
M-BPQ-S,L,38L-BPS,BPQ,C$L.38L,3<S+#&;(WTC(P$V+#(T+#$P-2PQ+#$T
M,2PQ,BPV+#4V+#$W,RPQ,)LD?2$A 38L,C,W+#<L-BPR-"PQ,#4L,2PQ-#$L
M,3,L-ILE?2@H 3$V,BPP+#$W,RPQ,BPV+#$R.2PR,#8L,C,P+#(P-BPQ-C6;
M)GTF)@$R,#8L,C Q+# L,C X+#(L,C,P+#(P-RPQ-S,L,3,L-ILG?2DI 3$R
M.2PR,#8L,C,P+#(P-BPQ-C4L,C V+#(P,2PP+#(P."PRFRA])24!,C,P+#(P
M-RPQ-CDL,"PQ-#$L,3DL-BPQ-#$L,3@L-ILI?20D 3$V,BPP+#(T+#$W,RPQ
M-"PV+#$P.2PQ."PV+#$S,YLJ?2<G 3(P."PQ-S,L,34L-BPQ,#4L,"PQ,S,L
M,C Y+#$W,RPR,)LK?28F 38L,C Q+#$L,C0P+#<L,38Q+#(P."PQ,CDL,C V
M+#<VFRQ]*BH!,3@Y+#DW+#,R+#$T-2PY."PR,S L,C V+#$V-2PR,#8L,C Q
MFRU])24!,"PR,#@L,BPR,S L,C W+#(S."PQ."PV+#$W,RPQ.)LN?24E 38L
M,C U+#$R+#8L,30T+#(P,BPQ-CDL,"PQ-#$L,3B;+WTC(P$V+#(T+#$W,RPQ
M-"PV+#$P.2PQ-RPV+#$T,2PQ-)LP?2,C 38L,3<S+#$U+#8L,3 U+# L,30Q
M+#$U+#8L,C,XFS%])"0!,3DL-BPQ-S,L,3DL-BPR,#4L,3,L-BPQ-#0L,38X
MFS)])"0!.38L,3 T+#$P-"PQ-#$L-"PV+#$P-"PQ-#$L,RPVFS-])24!,3 T
M+#$T,2PV+#8L,3 T+#$T,2PU+#8L,3 T+#$P-)LT?2DI 3$T,2PW+#8L,3 T
M+#$S,RPR,#<L,3 T+#$S,RPR,#8L,38YFS5])"0!,2PQ-#$L,C L-BPS,BPQ
M.# L.38L,38R+# L,38QFS9]*"@!,C V+#$T,2PQ,BPV+#(S,"PR,#8L,38U
M+#(P-BPR,#$L,)LW?2@H 3(P."PR+#(S,"PR,#<L,38Q+#(P-BPQ-#$L,3,L
M-BPR,S";.'TI*0$R,#8L,38U+#(P-BPR,#$L,"PR,#@L,BPR,S L,C W+#$W
M,YLY?20D 3$V+#8L,C Q+#$L,C X+#,L-S8L,30R+#DX+#(S.)LZ?2,C 3$T
M+#8L,3<S+#$T+#8L,C Q+# L,C X+#,L,C,XFSM](" !,34L-BPQ-S,L-2PV
M+#$T,2PQ+#8L,3<S+#:;/'TB(@$V+#$T,2PR+#8L,3<S+#$V+#8L,S(L,3(Q
M+#DVFSU](B(!,C0L,3<S+#$V+#8L,S(L,"PY-BPU-BPQ-S,L-9L^?2(B 38L
M,C,W+#$L-BPQ-S L,3<S+#$V+#8L,C Q+#B;/WTF)@$R,#@L-BPQ.#DL,C0P
M+#DX+#<V+#$S.2PY."PR,#$L-)M ?2@H 3(P."PV+#$X.2PR-#DL.3@L-S8L
M,3,Y+#DX+#$X.2PR-3.;07TD) $Y."PQ-#$L,C$L-BPW-BPQ-#8L.3<L,3<S
M+#$V+#:;0GTH* $R,#$L,2PR,#@L-2PQ-C$L,C V+#$R.2PR,#@L.38L,38Y
MFT-]*"@!,"PQ-#$L,C(L-BPQ-C4L,C X+#$S,RPR,#0L,38U+#(P.9M$?2LK
M 3$S,RPR,#4L,3DX+#(P-"PQ-C4L,C T+#(P,2PR-34L,C X+#*;17TH* $Q
M.3@L,C U+#$V,"PP+#$V,2PR,#8L,C T+#(Q+#8L,C0PFT9](R,!.2PR-"PT
M,BPT-BPR,BPV+#(P,"PW-BPQ.#0L.3B;1WTH* $Q,CDL,C X+#$V,2PR,#0L
M,3,L,C(L-BPQ,CDL,C T+#DVFTA]&1D!,2PQ+#$L-"PX+#0L."PT+#@L,IM)
M?1T= 3(L,BPQ+#$L."PT+#0P+#(P+#(P+#$PFTI](R,!,3 L,C L,C L-# L
M-# L-# L-# L-# L-# L-#";2WT;&P$R,"PT,"PX+#<L-BPU+#0L,RPR+#&;
M3'T3$P$P+#@L-BPT+#(L."PTFTU]$1$ *B W-C<@0EE415.;9'TP%PB +0X 
M       9#D$'9@   !0;(H$4*1\.0@)%=@  )8 2@10M"8 4,"06 ( 3$QD/
M"T0Z4%)/1S$N0D%3%BDI*2DI*2DI*2DI*2DI*2DI*2DI*2DI*2DI*2DI*2DI
M*2DI*2DI*2DI*2DI*2DI*2DI*2DI*2DI*2DI*2DI*2DI*2DI*2DI*2DI*2DI
**2DI*2DI*2DI*2DI
 
end