https://www.temlib.org/AtariForumWiki/index.php?action=history&feed=atom&title=Pl3_HEXER.S
Pl3 HEXER.S - Revision history
2026-05-13T16:57:31Z
Revision history for this page on the wiki
MediaWiki 1.39.2
https://www.temlib.org/AtariForumWiki/index.php?title=Pl3_HEXER.S&diff=16148&oldid=prev
>Wongck at 15:23, 12 October 2011
2011-10-12T15:23:11Z
<p></p>
<table style="background-color: #fff; color: #202122;" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="en">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 11:23, 12 October 2011</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l577">Line 577:</td>
<td colspan="2" class="diff-lineno">Line 577:</td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> </pre></div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> </pre></div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Back to [[ASM_Tutorial]]</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Back to [[ASM_Tutorial]]</div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>[[Category:<del style="font-weight: bold; text-decoration: none;">Programming</del>]]</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>[[Category : <ins style="font-weight: bold; text-decoration: none;">ASSEMBLER on ATARI ST 68000 Part 3</ins>]]</div></td></tr>
</table>
>Wongck
https://www.temlib.org/AtariForumWiki/index.php?title=Pl3_HEXER.S&diff=16147&oldid=prev
>Silver Surfer: Added category
2009-05-02T20:48:35Z
<p>Added category</p>
<table style="background-color: #fff; color: #202122;" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="en">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 16:48, 2 May 2009</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l577">Line 577:</td>
<td colspan="2" class="diff-lineno">Line 577:</td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> </pre></div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> </pre></div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Back to [[ASM_Tutorial]]</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Back to [[ASM_Tutorial]]</div></td></tr>
<tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">[[Category:Programming]]</ins></div></td></tr>
</table>
>Silver Surfer
https://www.temlib.org/AtariForumWiki/index.php?title=Pl3_HEXER.S&diff=16146&oldid=prev
>Zorro 2 at 15:26, 9 October 2006
2006-10-09T15:26:53Z
<p></p>
<p><b>New page</b></p><div><pre><br />
<br />
*HEXER SPRITE DEMO, 12/88*<br />
<br />
anz equ 5<br />
<br />
pea 0<br />
move #$20,-(sp)<br />
trap #1<br />
addq.l #6,sp<br />
move.l d0,ssp<br />
<br />
lea stack,a7<br />
<br />
move.b $ff8260,rezsave<br />
move.b $ff820a,palsave<br />
movem.l $ff8240,d0-d7<br />
movem.l d0-d7,palettesave<br />
<br />
move.w #2,-(sp)<br />
trap #14<br />
addq.l #2,sp<br />
move.l d0,oldram<br />
<br />
bsr vsync<br />
<br />
move.b #0,$ff8260<br />
move.b #2,$ff820a<br />
<br />
movem.l palette,d0-d7<br />
movem.l d0-d7,$ff8240<br />
<br />
move.l #bildschirme+256,d0<br />
and.l #$ffffff00,d0<br />
<br />
move.l d0,vidram<br />
add.l #32000,d0<br />
move.l d0,logram<br />
bsr setbild<br />
<br />
*effacer l'ecran *42<br />
<br />
moveq #0,d1<br />
move.l vidram,a0<br />
move #15999,d0<br />
<br />
clloop move.l d1,(a0)+<br />
dbra d0,clloop<br />
<br />
*cylindres *49<br />
<br />
gesamte_zeile move.l vidram,a0<br />
move.l logram,a1<br />
add.l #160*50,a0<br />
add.l #160*50,a1<br />
moveq #99,d7<br />
move.l #$8787ffff,d0<br />
move.l #$55556666,d1<br />
bildinit_noch_eine_zeile moveq #19,d6<br />
bildinit_gesamte_zeile move.l d1,(a0)+<br />
move.l d0,(a0)+<br />
move.l d1,(a1)+<br />
move.l d0,(a1)+<br />
dbra d6,bildinit_gesamte_zeile<br />
swap d0<br />
rol.w #2,d0<br />
swap d0 ;d1 ??????<br />
rol.l #2,d1<br />
dbra d7,bildinit_noch_eine_zeile<br />
<br />
******************************** 73<br />
<br />
main:<br />
<br />
lea sppuffer,a2<br />
lea daten,a0<br />
lea masken,a1<br />
move #0,d7<br />
<br />
spinitloop:<br />
<br />
movem.l d7/a0-a2,-(sp)<br />
bsr preshift<br />
movem.l (sp)+,d7/a0-a2<br />
add.l #6144,a2<br />
add.l #128,a0<br />
add.l #32,a1<br />
dbra d7,spinitloop<br />
<br />
*99<br />
<br />
lea savepuffer,a0<br />
move #anz-1,d0<br />
spcloop:<br />
clr.l (a0)<br />
add.l #262,a0<br />
clr.l (a0)<br />
add.l #262,a0<br />
dbra d0,spcloop<br />
<br />
move #anz-1,d4<br />
lea x,a3<br />
lea y,a4<br />
lea xg,a5<br />
lea yg,a6<br />
kinitloop move #17,-(sp)<br />
trap #14<br />
addq.l #2,sp<br />
moveq #0,d1<br />
move.w d0,d1<br />
<br />
**** page 103<br />
*************<br />
<br />
divu #336,d1<br />
swap d1<br />
move.w d1,(a3)+<br />
move.w #17,-(sp)<br />
trap #14<br />
addq.l #2,sp<br />
moveq #0,d1<br />
move.w d0,d1<br />
divu #216,d1<br />
swap d1<br />
move.w d1,(a4)+<br />
move #17,-(sp)<br />
trap #14<br />
addq.l #2,sp<br />
move d0,d1<br />
lsr #1,d1<br />
and #1,d0<br />
and #1,d1<br />
tst d0<br />
bne xgi1<br />
move #-1,d0<br />
xgi1:<br />
tst d1<br />
bne ygi1<br />
move #-1,d1<br />
ygi1:<br />
move d0,(a5)+<br />
move d1,(a6)+<br />
dbra d4,kinitloop<br />
<br />
testloop:<br />
<br />
bsr vsync<br />
lea anz*262*2+savepuffer,a6<br />
move #anz-1,d5<br />
spundrawloop:<br />
sub.l #524,a6<br />
move.l a6,a0<br />
bsr spriteundraw<br />
dbra d5,spundrawloop<br />
<br />
*173<br />
<br />
lea savepuffer,a3<br />
lea x,a5<br />
lea y,a6<br />
move #anz-1,d7<br />
stdrawloop:<br />
move (a5)+,d0<br />
move (a6)+,d1 *autre cote***********<br />
moveq #0,d2<br />
move d7,-(sp)<br />
<br />
move.l a3,-(sp)<br />
bsr sprite<br />
<br />
move.l (sp)+,a3<br />
move (sp)+,d7<br />
add.l #524,a3<br />
dbra d7,stdrawloop<br />
<br />
lea x,a2<br />
lea y,a3<br />
lea xg,a4<br />
lea yg,a5<br />
move #anz-1,d7<br />
kcalcloop:<br />
move (a2),d0<br />
move (a3),d1<br />
add (a4),d0<br />
<br />
bpl xok1<br />
neg.w (a4)<br />
addq.w #2,d0<br />
xok1:<br />
add (a5),d1<br />
bpl yok1<br />
neg.w (a5)<br />
addq.w #2,d1<br />
yok1:<br />
cmp #336,d0<br />
bcs xok2<br />
neg.w (a4)<br />
subq #2,d0<br />
xok2:<br />
cmp #216,d1<br />
bcs yok2<br />
neg.w (a5)<br />
subq #2,d1<br />
yok2:<br />
move d0,(a2)+<br />
move d1,(a3)+<br />
addq.l #2,a4<br />
addq.l #2,a5<br />
dbra d7,kcalcloop<br />
<br />
bsr bildchange<br />
not saveindex<br />
<br />
move #$b,-(sp) *page 104***********<br />
trap #1<br />
addq.l #2,sp<br />
tst d0<br />
beq testloop<br />
<br />
move #7,-(sp)<br />
trap #1<br />
addq.l #2,sp<br />
<br />
bra exit<br />
<br />
;*************************253<br />
<br />
exit:<br />
bsr vsync<br />
move.b palsave,$ff820a<br />
move.b rezsave,$ff8260<br />
movem.l palettesave,d0-d7<br />
movem.l d0-d7,$ff8240<br />
move.l oldram,d0<br />
bsr setbild<br />
<br />
move.l ssp,-(sp)<br />
move #$20,-(sp)<br />
trap #1<br />
addq.l #6,sp<br />
<br />
clr.W -(sp)<br />
trap #1<br />
<br />
setbild:<br />
lsr.l #8,d0<br />
move.b d0,$ff8203<br />
lsr #8,d0<br />
move.b d0,$ff8201<br />
rts<br />
<br />
bildchange:<br />
<br />
move.l logram,d0<br />
move.l vidram,logram<br />
move.l d0,vidram<br />
bra setbild<br />
<br />
vsync:<br />
move #37,-(sp)<br />
trap #14<br />
addq.l #2,sp<br />
rts<br />
<br />
************291<br />
<br />
preshift:<br />
move #15,d7<br />
spinitloop0:<br />
moveq #0,d0<br />
move.w (a1),(a2)+<br />
move.w (a1)+,(a2)+<br />
move.l d0,(a2)+<br />
move.l (a0)+,(a2)+<br />
move.l (a0)+,(a2)+<br />
move.l d0,(a2)+<br />
move.l d0,(a2)+<br />
dbra d7,spinitloop0<br />
<br />
move #14,d7<br />
spinitloop1:<br />
lea -384(a2),a3<br />
move #15,d6<br />
spinitloop2:<br />
move.w (a3),d0<br />
swap d0<br />
move.w 4(a3),d0<br />
lsr.l #1,d0 *******a cote<br />
not.l (a3)+<br />
not.l (a3)+<br />
move.w d0,4(a2)<br />
move.w d0,6(a2)<br />
swap d0<br />
move.w d0,(a2)<br />
move.w d0,2(a2)<br />
addq.l #8,a2<br />
<br />
move.w (a3),d0<br />
swap d0<br />
move.w 8(a3),d0<br />
lsr.l #1,d0<br />
move.w d0,8(a2)<br />
swap d0<br />
move.w d0,(a2)<br />
addq.l #2,a2 ***335<br />
addq.l #2,a3<br />
move.w (a3),d0<br />
swap d0<br />
move.w 8(a3),d0<br />
lsr.l #1,d0<br />
move.w d0,8(a2)<br />
swap d0<br />
move.w d0,(a2)<br />
addq.l #2,a2<br />
addq.l #2,a3<br />
move.w (a3),d0<br />
swap d0<br />
move.w 8(a3),d0<br />
lsr.l #1,d0<br />
move.w d0,8(a2)<br />
swap d0<br />
move.w d0,(a2)<br />
addq.l #2,a2<br />
addq.l #2,a3<br />
move.w (a3),d0<br />
swap d0 **356<br />
move.w 8(a3),d0<br />
lsr.l #1,d0<br />
move.w d0,8(a2)<br />
swap d0<br />
move.w d0,(a2)<br />
add.l #10,a2<br />
add.l #10,a3<br />
dbra d6,spinitloop2<br />
dbra d7,spinitloop1<br />
lea -384(a2),a3<br />
move #15,d0<br />
<br />
nochinvertloop:<br />
not.l (a3)<br />
not.l 4(a3)<br />
add.l #24,a3<br />
dbra d0,nochinvertloop<br />
rts<br />
<br />
*************** 376<br />
<br />
sprite:<br />
tst saveindex<br />
bpl savep1<br />
add.l #262,a3<br />
savep1:<br />
addq #1,d0<br />
move d0,d4<br />
move d1,d5<br />
lea sppuffer,a0<br />
move d0,d3<br />
and #15,d3<br />
mulu #384,d3<br />
mulu #6144,d2<br />
add.l d2,d3<br />
add.l d3,a0<br />
<br />
*******page 105<br />
<br />
and #$fff0,d0<br />
lsr #1,d0<br />
mulu #160,d1<br />
add d0,d1<br />
sub #2400+8,d1<br />
<br />
move.l logram,a1<br />
add.w d1,a1<br />
<br />
move #15,d7<br />
<br />
move d5,d6<br />
sub #15,d6<br />
bpl obenclipok<br />
add d6,d7<br />
bmi spabgang<br />
neg.w d6<br />
move d6,d0<br />
mulu #24,d6<br />
<br />
add.l d6,a0<br />
mulu #160,d0<br />
add.l d0,a1<br />
<br />
obenclipok:<br />
move #199,d6<br />
sub d5,d6<br />
bpl xclip<br />
add d6,d7<br />
bmi spabgang<br />
<br />
xclip:<br />
cmp #16,d4<br />
bcs splinksclip<br />
cmp #320,d4<br />
bcc sprechtsclip<br />
<br />
move.l #144,d6 *437<br />
<br />
move.l a1,(a3)+<br />
move.w d7,(a3)+<br />
<br />
spritescanloop:<br />
move.l (a1),(a3)+<br />
move.l 4(a1),(a3)+<br />
move.l 8(a1),(a3)+<br />
move.l 12(a1),(a3)+<br />
movem.l (a0)+,d0-d5<br />
<br />
and.l d0,(a1)<br />
<br />
and.l d0,4(a1)<br />
and.l d1,8(a1)<br />
and.l d1,12(a1)<br />
<br />
or.l d2,(a1)+<br />
or.l d3,(a1)+<br />
<br />
or.l d4,(a1)+<br />
or.l d5,(a1)+<br />
<br />
add.l d6,a1<br />
dbra d7,spritescanloop<br />
rts<br />
<br />
spabgang:<br />
clr.l (a3)+<br />
clr.l (a3)+<br />
rts<br />
<br />
splinksclip:<br />
move.l #152,d6<br />
addq.l #8,a1<br />
<br />
move.l a1,(a3)+<br />
move.w d7,(a3)+<br />
bset #7,-2(a3)<br />
<br />
spritescanloop1:<br />
move.l (a1),(a3)+<br />
move.l 4(a1),(a3)+<br />
movem.l (a0)+,d0-d5<br />
and.l d1,(a1)<br />
and.l d1,4(a1)<br />
or.l d4,(a1)+<br />
or.l d5,(a1)+<br />
add.l d6,a1<br />
dbra d7,spritescanloop1<br />
rts<br />
<br />
*****cote suivant<br />
<br />
sprechtsclip:<br />
cmp #336,d4<br />
bcc spabgang<br />
move.l #152,d6<br />
<br />
move.l a1,(a3)+<br />
move.w d7,(a3)+<br />
bset #7,-2(a3)<br />
<br />
spritescanloopr:<br />
move.l (a1),(a3)+<br />
move.l 4(a1),(a3)+<br />
movem.l (a0)+,d0-d5<br />
and.l d0,(a1)<br />
and.l d0,4(a1)<br />
or.l d2,(a1)+<br />
or.l d3,(a1)+<br />
add.l d6,a1<br />
dbra d7,spritescanloopr<br />
rts<br />
<br />
***** 518<br />
<br />
spriteundraw:<br />
tst saveindex<br />
bpl savep1und<br />
add.l #262,a0<br />
savep1und:<br />
tst.l (a0)<br />
beq noundraw<br />
move.l (a0),a1<br />
clr.l (a0)+<br />
move.w (a0)+,d7<br />
bmi halbundraw<br />
<br />
move.l #160,d6<br />
undrawloop:<br />
movem.l (a0)+,d0-d3<br />
movem.l d0-d3,(a1)<br />
add.l d6,a1<br />
dbra d7,undrawloop<br />
noundraw:<br />
rts<br />
<br />
halbundraw<br />
and #255,d7<br />
move.l #152,d6<br />
halbundrawloop:<br />
move.l (a0)+,(a1)+<br />
move.l (a0)+,(a1)+<br />
add.l d6,a1<br />
dbra d7,halbundrawloop<br />
rts<br />
<br />
palette dc.w $0,$700,$730,$750,$770,$470,$70,$75<br />
dc.w $77,$111,$222,$333,$444,$555,$666,$777<br />
<br />
daten:<br />
<br />
dc.w $03C0,$07E0,$0000,$07E0,$0810,$1818,$07E0,$1FF8<br />
dc.w $0000,$2004,$1FF8,$3FFC,$1310,$4C02,$3FFC,$7FFE<br />
dc.w $4F12,$5C02,$3FFC,$7FFE,$0804,$9C09,$7FFE,$FFFF<br />
dc.w $9411,$8805,$7FFE,$FFFF,$982B,$8005,$7FFE,$FFFF<br />
dc.w $800B,$8005,$7FFE,$FFFF,$A155,$8009,$7FFE,$FFFF<br />
dc.w $1994,$8009,$7FFE,$FFFF,$426A,$4012,$3FFC,$7FFE<br />
dc.w $09D0,$4422,$3FFC,$7FFE,$0420,$23C4,$1FF8,$3FFC<br />
dc.w $09D0,$1818,$07E0,$1FF8,$03C0,$07E0,$0000,$07E0<br />
<br />
***** page 106<br />
<br />
masken:<br />
<br />
<br />
dc.w $07E0,$1FF8,$3FFC,$7FFE,$7FFE,$FFFF,$FFFF,$FFFF<br />
dc.w $FFFF,$FFFF,$FFFF,$7FFE,$7FFE,$3FFC,$1FF8,$07E0<br />
<br />
section bss<br />
<br />
ssp ds.l 1<br />
vidram ds.l 1<br />
logram ds.l 1<br />
oldram ds.l 1<br />
<br />
rezsave ds.b 1<br />
palsave ds.b 1<br />
palettesave ds.w 16<br />
<br />
<br />
x ds.w anz<br />
<br />
<br />
y ds.w anz<br />
<br />
xg ds.w anz<br />
<br />
<br />
yg ds.w anz<br />
<br />
<br />
<br />
saveindex ds.w 1<br />
<br />
ds.l 200<br />
<br />
stack ds.l 4<br />
<br />
bildschirme ds.b 64256<br />
<br />
<br />
<br />
savepuffer ds.b 262*anz*2<br />
<br />
<br />
<br />
sppuffer:<br />
<br />
END<br />
<br />
<br />
</pre><br />
Back to [[ASM_Tutorial]]</div>
>Zorro 2