syn2cat
/
paradist
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
paradist/PARADIST.S

1783 lines
44 KiB
ArmAsm
Raw Normal View History

parallax distorter. It was first meant to be an independant distorter on 2 playfields, only later it became the parallax distorter. This version features just hardware scroller with overscan. Use numpad to move around.
2012-02-18 23:32:41 +01:00
overscan:equ 0
26 copy routines. The screen is 416 px wide. Scroll buffer is same width to save space. But we do not shift the scroll buffer around. Instead there are 416/16=26 different cases in the scroll buffer where the left border of the scroller is. We simply use 26 different copy routines. If you scroll now too far with the numpad, the copied scroller will overwrite code, devpac or system. Crash ahoi!
2012-02-18 23:34:18 +01:00
; Double Megadistorter by Gunstick (c) ULM 1990
parallax distorter. It was first meant to be an independant distorter on 2 playfields, only later it became the parallax distorter. This version features just hardware scroller with overscan. Use numpad to move around.
2012-02-18 23:32:41 +01:00
x:
pea start(pc)
move.w #38,-(sp)
trap #14
addq.l #6,sp
clr.w -(sp)
trap #1
start:
bsr waitvbl
lea $ffff8240.w,a2
lea oldpal,a3
movem.l (a2),d0-d7
movem.l d0-d7,(a3)
movem.l hwpalette,d0-d7
movem.l d0-d7,(a2)
lea $ffff8201.w,a0
movep.w 0(a0),d0
lea screenad1,a2
move.w d0,(a2)
move.l #screen,d0
add.l #255,d0
and.l #$ffff00,d0
lea screenad2,a2
move.l d0,(a2)
movea.l d0,a2
ror.l #8,d0
movep.w d0,0(a0)
move.w #0,-(sp)
move.l a2,-(sp)
move.l a2,-(sp)
move.w #5,-(sp)
trap #14
lea 12(sp),sp
move.l screenad2,d0
sub.l #160*6,d0
move.l d0,screenadr
26 copy routines. The screen is 416 px wide. Scroll buffer is same width to save space. But we do not shift the scroll buffer around. Instead there are 416/16=26 different cases in the scroll buffer where the left border of the scroller is. We simply use 26 different copy routines. If you scroll now too far with the numpad, the copied scroller will overwrite code, devpac or system. Crash ahoi!
2012-02-18 23:34:18 +01:00
; addi.l #8*5-64,screenadr
parallax distorter. It was first meant to be an independant distorter on 2 playfields, only later it became the parallax distorter. This version features just hardware scroller with overscan. Use numpad to move around.
2012-02-18 23:32:41 +01:00
movea.l screenad2,a0
move.l #9999,d0
clear_loop:
clr.l (a0)+
dbra d0,clear_loop
movea.l screenad2,a0
movem.l graphic,d6-d7
move.w #285,d2
allline:
ifne overscan
move.w #20,d1
endc
ifeq overscan
move.w #27,d1
endc
alles:
move.l d6,(a0)+
move.l d7,(a0)+
dbra d1,alles
ifeq overscan
addq.l #6,a0
endc
dbra d2,allline
pea message
move.w #9,-(sp)
trap #1
addq.w #6,sp
bsr psginit
lea oldres,a0
move.b $ffff8260.w,(a0)
bsr waitvbl
move.b #0,$ffff8260.w
move.b #18,$fffffc02.w
bsr.s waitvbl
move.b #26,$fffffc02.w
bsr screen2
move.b #20,$fffffc02.w
bsr.s waitvbl
move.b #8,$fffffc02.w
bsr.s waitvbl
move.b #2,$ffff820a.w
bsr.s waitvbl
move.b #2,$ffff820a.w
move.b oldres,$ffff8260.w
lea $ffff8201.w,a0
moveq #0,d0
move.w screenad1,d0
movep.w d0,0(a0)
lsl.l #8,d0
move.w #0,-(sp)
move.l d0,-(sp)
move.l d0,-(sp)
move.w #5,-(sp)
trap #14
lea 12(sp),sp
bsr.s psginit
lea oldpal,a0
lea $ffff8240.w,a1
movem.l (a0),d0-d7
movem.l d0-d7,(a1)
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
bsr.s waitvbl
move.b #0,$ffff820a.w
parallax distorter. It was first meant to be an independant distorter on 2 playfields, only later it became the parallax distorter. This version features just hardware scroller with overscan. Use numpad to move around.
2012-02-18 23:32:41 +01:00
rts
waitvbl:
move.b $ffff8203.w,d0
lsl.w #8,d0
lea $ffff8207.w,a0
no_vbl:
movep.w 0(a0),d1
cmp.w d0,d1
bne.s no_vbl
rts
psginit:
lea psginittab,a0
nextinit:
move.b (a0)+,d0
cmp.b #$ff,d0
beq.s initend
move.b (a0)+,d1
move.b d0,$ffff8800.w
move.b d1,$ffff8802.w
bra.s nextinit
initend:
rts
screen2:
move sr,-(sp)
move #$2700,sr
move.l sp,stack
; clr.b lowbyte
26 copy routines. The screen is 416 px wide. Scroll buffer is same width to save space. But we do not shift the scroll buffer around. Instead there are 416/16=26 different cases in the scroll buffer where the left border of the scroller is. We simply use 26 different copy routines. If you scroll now too far with the numpad, the copied scroller will overwrite code, devpac or system. Crash ahoi!
2012-02-18 23:34:18 +01:00
;**********************************************************
; Distorted scroller by Gunstick
lea linebuffbegin,a0
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
moveq #25,d0 ;26 lines are scrolled
26 copy routines. The screen is 416 px wide. Scroll buffer is same width to save space. But we do not shift the scroll buffer around. Instead there are 416/16=26 different cases in the scroll buffer where the left border of the scroller is. We simply use 26 different copy routines. If you scroll now too far with the numpad, the copied scroller will overwrite code, devpac or system. Crash ahoi!
2012-02-18 23:34:18 +01:00
initdist:
jepp, thats a sort of lea storing directly the address
2012-02-19 00:17:50 +01:00
move.l #scrolltext,textptr-linebuffbegin(a0)
26 copy routines. The screen is 416 px wide. Scroll buffer is same width to save space. But we do not shift the scroll buffer around. Instead there are 416/16=26 different cases in the scroll buffer where the left border of the scroller is. We simply use 26 different copy routines. If you scroll now too far with the numpad, the copied scroller will overwrite code, devpac or system. Crash ahoi!
2012-02-18 23:34:18 +01:00
move.l a0,a1
lea buffer-linebuffbegin(a1),a1
move.l a1,bufptr-linebuffbegin(a0)
clr.w bufcnt-linebuffbegin(a0)
clr.w shift-linebuffbegin(a0)
lea linebuffend-linebuffbegin(a0),a0
dbf d0,initdist
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
lea wavetab,a0
move.l a0,wavetabptr
move.l (a0),a0
move.l a0,distwaveptr
Some code moving around. Not sure what this did, but the assembled result has now vertical bars instead of scroll text. Hmm vertical bars... playfield.
2012-02-19 00:48:22 +01:00
move.l #disttable,disttableptr
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
26 copy routines. The screen is 416 px wide. Scroll buffer is same width to save space. But we do not shift the scroll buffer around. Instead there are 416/16=26 different cases in the scroll buffer where the left border of the scroller is. We simply use 26 different copy routines. If you scroll now too far with the numpad, the copied scroller will overwrite code, devpac or system. Crash ahoi!
2012-02-18 23:34:18 +01:00
lea font,a0
lea buffer,a1
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
moveq #25,d0 ;init all unshiftet linebuffers
26 copy routines. The screen is 416 px wide. Scroll buffer is same width to save space. But we do not shift the scroll buffer around. Instead there are 416/16=26 different cases in the scroll buffer where the left border of the scroller is. We simply use 26 different copy routines. If you scroll now too far with the numpad, the copied scroller will overwrite code, devpac or system. Crash ahoi!
2012-02-18 23:34:18 +01:00
testinitbuff:
move.l (a0),(a1)+
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
move.l 4(a0),(a1)+
move.l 32*8(a0),(a1)+
move.l 32*8+4(a0),(a1)+
move.l 32*8*2(a0),(a1)+
move.l 32*8*2+4(a0),(a1)+
move.l 32*8*3(a0),(a1)+
move.l 32*8*3+4(a0),(a1)+
move.l 32*8*4(a0),(a1)+
move.l 32*8*4+4(a0),(a1)+
move.l 32*8*5(a0),(a1)+
move.l 32*8*5+4(a0),(a1)+
move.l 32*8*6(a0),(a1)+
move.l 32*8*6+4(a0),(a1)+
move.l 32*8*7(a0),(a1)+
move.l 32*8*7+4(a0),(a1)+
move.l 32*8*8(a0),(a1)+
move.l 32*8*8+4(a0),(a1)+
move.l 32*8*9(a0),(a1)+
move.l 32*8*9+4(a0),(a1)+
move.l 32*8*10(a0),(a1)+
move.l 32*8*10+4(a0),(a1)+
move.l 32*8*11(a0),(a1)+
move.l 32*8*11+4(a0),(a1)+
move.l 32*8*12(a0),(a1)+
move.l 32*8*12+4(a0),(a1)+
move.l 32*8*13(a0),(a1)+
move.l 32*8*13+4(a0),(a1)+
move.l 32*8*14(a0),(a1)+
move.l 32*8*14+4(a0),(a1)+
move.l 32*8*15(a0),(a1)+
move.l 32*8*15+4(a0),(a1)+
move.l 32*8*16(a0),(a1)+
move.l 32*8*16+4(a0),(a1)+
move.l 32*8*17(a0),(a1)+
move.l 32*8*17+4(a0),(a1)+
move.l 32*8*18(a0),(a1)+
move.l 32*8*18+4(a0),(a1)+
move.l 32*8*19(a0),(a1)+
move.l 32*8*19+4(a0),(a1)+
move.l 32*8*20(a0),(a1)+
move.l 32*8*20+4(a0),(a1)+
move.l 32*8*21(a0),(a1)+
move.l 32*8*21+4(a0),(a1)+
move.l 32*8*22(a0),(a1)+
move.l 32*8*22+4(a0),(a1)+
move.l 32*8*23(a0),(a1)+
move.l 32*8*23+4(a0),(a1)+
move.l 32*8*24(a0),(a1)+
move.l 32*8*24+4(a0),(a1)+
move.l 32*8*25(a0),(a1)+
move.l 32*8*25+4(a0),(a1)+
26 copy routines. The screen is 416 px wide. Scroll buffer is same width to save space. But we do not shift the scroll buffer around. Instead there are 416/16=26 different cases in the scroll buffer where the left border of the scroller is. We simply use 26 different copy routines. If you scroll now too far with the numpad, the copied scroller will overwrite code, devpac or system. Crash ahoi!
2012-02-18 23:34:18 +01:00
addq.l #8,a0
lea linebuffend-linebuffbegin-208(a1),a1
dbf d0,testinitbuff
;********************************************************
parallax distorter. It was first meant to be an independant distorter on 2 playfields, only later it became the parallax distorter. This version features just hardware scroller with overscan. Use numpad to move around.
2012-02-18 23:32:41 +01:00
lea screenadr,a3
26 copy routines. The screen is 416 px wide. Scroll buffer is same width to save space. But we do not shift the scroll buffer around. Instead there are 416/16=26 different cases in the scroll buffer where the left border of the scroller is. We simply use 26 different copy routines. If you scroll now too far with the numpad, the copied scroller will overwrite code, devpac or system. Crash ahoi!
2012-02-18 23:34:18 +01:00
; move.b lowbyte,3(a3)
bsr waitvbl ;lower border
move.w #4000,d0
parallax distorter. It was first meant to be an independant distorter on 2 playfields, only later it became the parallax distorter. This version features just hardware scroller with overscan. Use numpad to move around.
2012-02-18 23:32:41 +01:00
firsttopwait:
dbf d0,firsttopwait
26 copy routines. The screen is 416 px wide. Scroll buffer is same width to save space. But we do not shift the scroll buffer around. Instead there are 416/16=26 different cases in the scroll buffer where the left border of the scroller is. We simply use 26 different copy routines. If you scroll now too far with the numpad, the copied scroller will overwrite code, devpac or system. Crash ahoi!
2012-02-18 23:34:18 +01:00
;move.b #0,$ffff820a.w
parallax distorter. It was first meant to be an independant distorter on 2 playfields, only later it became the parallax distorter. This version features just hardware scroller with overscan. Use numpad to move around.
2012-02-18 23:32:41 +01:00
loop:
;ULM Hardware Scrolling PART 1
;THIS PART IS TO BE STARTED BEFORE THE BEGINNING OF THE VBL
;sets screen to adress contained in screenadr+(6 scanlines)
lea screenadr,a3
moveq #0,d1
move.b 3(a3),d1
move.w d1,d0
add.w d1,d1
add.w d0,d1
add.w d1,d1
add.w d1,d1 ;*12 (24 byte per tabentry)
lea $ffff8201.w,a1
lea hwscrolldat,a0
lea 0(a0,d1.w),a0
movep.w 1(a3),d1
move.b 2(a3),d1
move.b (a0)+,d0
ext.w d0
add.w d0,d1
movep.w d1,0(a1)
move.l a0,-(sp)
;ULM Hardware Scrolling END OF PART 1
bsr waitvbl
movem.l black,d0-d7
movem.l d0-d7,$ffff8240.w
movem.l hwpalette,d2-d7/a2-a3
lea $ffff8209.w,a1
moveq #10,d1
movea.l (sp)+,a0
move.w #1500,d0
opentopwait:
dbra d0,opentopwait
dcb $4e71,196-72
move.b #0,$ffff820a.w
move.w #$007,$ffff8240.w
dcb $4e71,8
move.b #2,$ffff820a.w
;ULM Hardware Scrolling PART 2
;THIS PART IS TO BE STARTED BEFORE THE END OF THE VBL
;Sets colors to zero
;Sets screen to screenadr(+6 lines)
;Initializes colors with hwpalette
;Uses : d0-a3
sync:
move.b (a1),d0
beq.s sync
sub.w d0,d1
lsl.w d1,d1
moveq #5,d0
nop
bra intoall
switchloop:
dcb $4e71,3
; move.b #2,$ffff8260.w ;GunsticK's right border end switch
; move.b #0,$ffff8260.w
tst.b (a0)+
bne.s links1
move.b #2,$ffff820a.w
dcb $4e71,19 ;-4*2
bra.s cont1
links1:
move.b #1,$ffff8260.w ;GunsticK's right border end switch
move.b #0,$ffff8260.w
;links1:
move.b #2,$ffff820a.w
dcb $4e71,5
move.b #2,$ffff8260.w
move.b #0,$ffff8260.w
cont1:
dcb $4e71,28
intoall:
tst.b (a0)+
bne.s mitte
dcb $4e71,6
bra.s cont3
mitte:
move.b #2,$ffff8260.w
move.b #0,$ffff8260.w
cont3:
dcb $4e71,33
tst.b (a0)+
bne.s rechts1
tst.b (a0)+
bne.s rechts2
dcb $4e71,7
bra.s cont4
rechts1:
move.b #0,$ffff820a.w
addq.w #1,a0
dcb $4e71,4
bra.s cont4
rechts2:
dcb $4e71,4
move.b #0,$ffff820a.w
nop
cont4:
dbra d0,switchloop
move.b #2,$ffff820a.w
;HERE WE ARE SYNCHRON
;These lines are to be used if the screen uses left border
dcb $4e71,3
move.b #1,$ffff8260.w ;GunsticK's right border end switch
move.b #0,$ffff8260.w
movem.l d2-d4,$ffff8240.w
move.b #2,$ffff8260.w ;Open left border
move.b #0,$ffff8260.w
movem.l d5-d7/a2-a3,12+$ffff8240.w
Some code moving around. Not sure what this did, but the assembled result has now vertical bars instead of scroll text. Hmm vertical bars... playfield.
2012-02-19 00:48:22 +01:00
;**********************************************************
; Distorted scroller by Gunstick
;INITIALISATIONS
;***** Calc next screenadress ****
move.l screenadr,screenadr ;-9
little changes
2012-02-19 00:52:30 +01:00
Some code moving around. Not sure what this did, but the assembled result has now vertical bars instead of scroll text. Hmm vertical bars... playfield.
2012-02-19 00:48:22 +01:00
dcb $4e71,5
little changes
2012-02-19 00:52:30 +01:00
26 copy routines. The screen is 416 px wide. Scroll buffer is same width to save space. But we do not shift the scroll buffer around. Instead there are 416/16=26 different cases in the scroll buffer where the left border of the scroller is. We simply use 26 different copy routines. If you scroll now too far with the numpad, the copied scroller will overwrite code, devpac or system. Crash ahoi!
2012-02-18 23:34:18 +01:00
the line marked "wow!" needs an expalantion. Maybe one day I will find it. New in this code is the distorter wave handler. This code does not assemble.
2012-02-19 00:25:44 +01:00
;***** Do the 8 following distorter entrys ****
Some code moving around. Not sure what this did, but the assembled result has now vertical bars instead of scroll text. Hmm vertical bars... playfield.
2012-02-19 00:48:22 +01:00
;; first copy the wave to the disttable
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
;Registerdefs: take care of the order. Modify also the addx.l !!!!
the line marked "wow!" needs an expalantion. Maybe one day I will find it. New in this code is the distorter wave handler. This code does not assemble.
2012-02-19 00:25:44 +01:00
d_0 equr d0
d_1 equr d1
d_2 equr d2
d_3 equr d3
a_0 equr a0
a_1 equr a1
a_2 equr a2
a_3 equr a3
little changes
2012-02-19 00:52:30 +01:00
Finally the first wavy scoller does it's debut. Notice that it's never going right. You can change the wave by uncommenting lines in wavetab to get other moves. The code moving right breaks the overscan on the lower part of the screen.
2012-02-19 00:57:52 +01:00
distspeed equ 5
disthigh equ 20
;copy (disthigh-distspeed)/2 registers
movem.l disttable+distspeed*2,d0-d7 ;copy disttab
movem.l d0-d7,disttable
little changes
2012-02-19 00:52:30 +01:00
Finally the first wavy scoller does it's debut. Notice that it's never going right. You can change the wave by uncommenting lines in wavetab to get other moves. The code moving right breaks the overscan on the lower part of the screen.
2012-02-19 00:57:52 +01:00
dcb $4e71,3+4*4
little changes
2012-02-19 00:52:30 +01:00
move.b #0,$ffff820a.w ;Open right border
move.b #2,$ffff820a.w
dcb $4e71,8
move.b #1,$ffff8260.w ;GunsticK's right border end switch
move.b #0,$ffff8260.w
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
movem.l d0/d1/d2,$ffff8250.w ;mdist
little changes
2012-02-19 00:52:30 +01:00
move.b #2,$ffff8260.w ;Open left border
move.b #0,$ffff8260.w
move.l d3,$ffff824e.w ;mdist
Finally the first wavy scoller does it's debut. Notice that it's never going right. You can change the wave by uncommenting lines in wavetab to get other moves. The code moving right breaks the overscan on the lower part of the screen.
2012-02-19 00:57:52 +01:00
lea disttable+disthigh*2-distspeed*2,a_3 ;position to write new
the line marked "wow!" needs an expalantion. Maybe one day I will find it. New in this code is the distorter wave handler. This code does not assemble.
2012-02-19 00:25:44 +01:00
move.l distwaveptr,a_0 ;position in the actual wave
Finally the first wavy scoller does it's debut. Notice that it's never going right. You can change the wave by uncommenting lines in wavetab to get other moves. The code moving right breaks the overscan on the lower part of the screen.
2012-02-19 00:57:52 +01:00
moveq #distspeed-1,d_0 ;read 8
Some code moving around. Not sure what this did, but the assembled result has now vertical bars instead of scroll text. Hmm vertical bars... playfield.
2012-02-19 00:48:22 +01:00
moveq #0,d_3
move.w distcalc,d_2
little changes
2012-02-19 00:52:30 +01:00
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
dcb $4e71,26+3
little changes
2012-02-19 00:52:30 +01:00
the line marked "wow!" needs an expalantion. Maybe one day I will find it. New in this code is the distorter wave handler. This code does not assemble.
2012-02-19 00:25:44 +01:00
distwaveread:
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
dcb $4e71,1
dcb $4e71,17-3 ;mdist
little changes
2012-02-19 00:52:30 +01:00
dcb $4e71,25 ;digi
move.b #0,$ffff820a.w ;Open right border
move.b #2,$ffff820a.w
bra.s cont
notnextwavetab: ;~12 time adjust
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
dcb $4e71,19+1
little changes
2012-02-19 00:52:30 +01:00
bra.s _notnextwavetab ;~12
notendwavetab: ;~12
bra.s _notendwavetab ;~12
cont:
dcb $4e71,5
move.b #1,$ffff8260.w ;GunsticK's right border end switch
move.b #0,$ffff8260.w
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
movem.l d0/d1/d2,$ffff8250.w ;mdist
little changes
2012-02-19 00:52:30 +01:00
move.b #2,$ffff8260.w ;Open left border
move.b #0,$ffff8260.w
move.l d3,$ffff824e.w ;mdist
move.w (a_0)+,d_1 ;~8
cmp.w #128,d_1 ;~8
bne.s notnextwavetab ;~8
move.l wavetabptr,a_1 ;~20 next wave to be read
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
tst.l (a_1) ;~12
little changes
2012-02-19 00:52:30 +01:00
bne.s notendwavetab ;~8
lea wavetab,a_1 ;~12 reset wavetabptr
nop
_notendwavetab:
move.l (a_1)+,a_0 ;~12
move.w (a_0)+,d_1 ;~12
move.l a_1,wavetabptr ;~20
the line marked "wow!" needs an expalantion. Maybe one day I will find it. New in this code is the distorter wave handler. This code does not assemble.
2012-02-19 00:25:44 +01:00
_notnextwavetab:
little changes
2012-02-19 00:52:30 +01:00
add.w d_1,d_3 ;~4
add.w d_1,d_2 ;~4
sub.w 16(a_3),d_2 ;~16
move.w d_1,16(a_3) ;~12
move.w d_2,(a_3)+ ;~8 write new curve
Some code moving around. Not sure what this did, but the assembled result has now vertical bars instead of scroll text. Hmm vertical bars... playfield.
2012-02-19 00:48:22 +01:00
little changes
2012-02-19 00:52:30 +01:00
dbf d_0,distwaveread ;~12/16
Some code moving around. Not sure what this did, but the assembled result has now vertical bars instead of scroll text. Hmm vertical bars... playfield.
2012-02-19 00:48:22 +01:00
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
dcb $4e71,25-3 ;digi
dcb $4e71,17 ;mdist
move.b #0,$ffff820a.w ;Open right border
move.b #2,$ffff820a.w
dcb $4e71,8
move.b #1,$ffff8260.w ;GunsticK's right border end switch
move.b #0,$ffff8260.w
movem.l d0/d1/d2,$ffff8250.w ;mdist
move.b #2,$ffff8260.w ;Open left border
move.b #0,$ffff8260.w
move.l d3,$ffff824e.w ;mdist
move.l a_0,distwaveptr ;~20
move.w d_3,distcalc ;~16
Finally the first wavy scoller does it's debut. Notice that it's never going right. You can change the wave by uncommenting lines in wavetab to get other moves. The code moving right breaks the overscan on the lower part of the screen.
2012-02-19 00:57:52 +01:00
lea disttable+4,a_3 ;~12 scroll begins 18 lines before end of screen
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
lea shift,a_0 ;~12 pointer to the shifts
Finally the first wavy scoller does it's debut. Notice that it's never going right. You can change the wave by uncommenting lines in wavetab to get other moves. The code moving right breaks the overscan on the lower part of the screen.
2012-02-19 00:57:52 +01:00
move.w #-(18*8),count ;~20 scroll has 18 lines
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
distcalcloop: ;(~12)
move.w (a_3)+,d_1 ;~8
move.w (a_0),d_2 ;~8 ;read shift
add.w d_1,d_2 ;~4
bmi rueckwaerts ;~12
sub.w #16,d_2 ;~8
bhs vorwaerts ;~12
add.w #16,d_2 ;~8
move.w d_2,(a_0) ;~8 ;write back new shift
dcb $4e71,4-2
moveq #9,d_2
noshift:
nop
dcb $4e71,25 ;digi
dcb $4e71,17 ;mdist
move.b #0,$ffff820a.w ;Open right border
move.b #2,$ffff820a.w
dcb $4e71,8
move.b #1,$ffff8260.w ;GunsticK's right border end switch
move.b #0,$ffff8260.w
movem.l d0/d1/d2,$ffff8250.w ;mdist
move.b #2,$ffff8260.w ;Open left border
move.b #0,$ffff8260.w
move.l d3,$ffff824e.w ;mdist
dcb $4e71,41-4
dbf d_2,noshift
indistcalcloop:
dcb $4e71,25 ;digi
dcb $4e71,17 ;mdist
move.b #0,$ffff820a.w ;Open right border
move.b #2,$ffff820a.w
dcb $4e71,8
move.b #1,$ffff8260.w ;GunsticK's right border end switch
move.b #0,$ffff8260.w
movem.l d0/d1/d2,$ffff8250.w ;mdist
move.b #2,$ffff8260.w ;Open left border
move.b #0,$ffff8260.w
move.l d3,$ffff824e.w ;mdist
dcb $4e71,10
lea linebuffend-linebuffbegin(a_0),a_0 ;~8 next line
addq.w #8,count ;~4
bne distcalcloop ;~12
Finally the first wavy scoller does it's debut. Notice that it's never going right. You can change the wave by uncommenting lines in wavetab to get other moves. The code moving right breaks the overscan on the lower part of the screen.
2012-02-19 00:57:52 +01:00
dcb $4e71,41-20
dcb $4e71,25 ;digi
dcb $4e71,17 ;mdist
move.b #0,$ffff820a.w ;Open right border
move.b #2,$ffff820a.w
dcb $4e71,8
move.b #1,$ffff8260.w ;GunsticK's right border end switch
move.b #0,$ffff8260.w
movem.l d0/d1/d2,$ffff8250.w ;mdist
move.b #2,$ffff8260.w ;Open left border
move.b #0,$ffff8260.w
move.l d3,$ffff824e.w ;mdist
dcb $4e71,41
dcb $4e71,25 ;digi
dcb $4e71,17 ;mdist
move.b #0,$ffff820a.w ;Open right border
move.b #0,$ffff820a.w
dcb $4e71,8
move.b #1,$ffff8260.w ;GunsticK's right border end switch
move.b #0,$ffff8260.w
movem.l d0/d1/d2,$ffff8250.w ;mdist
move.b #2,$ffff8260.w ;Open left border
move.b #0,$ffff8260.w
move.l d3,$ffff824e.w ;mdist
move.b #2,$ffff820a.w
dcb $4e71,41-4
dcb $4e71,25 ;digi
dcb $4e71,17 ;mdist
move.b #0,$ffff820a.w ;Open right border
move.b #2,$ffff820a.w
dcb $4e71,8
move.b #1,$ffff8260.w ;GunsticK's right border end switch
move.b #0,$ffff8260.w
movem.l d0/d1/d2,$ffff8250.w ;mdist
move.b #2,$ffff8260.w ;Open left border
move.b #0,$ffff8260.w
move.l d3,$ffff824e.w ;mdist
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
Finally the first wavy scoller does it's debut. Notice that it's never going right. You can change the wave by uncommenting lines in wavetab to get other moves. The code moving right breaks the overscan on the lower part of the screen.
2012-02-19 00:57:52 +01:00
bra copydistscroll
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
dcb $4e71,41-9
little changes
2012-02-19 00:52:30 +01:00
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
dcb $4e71,25 ;digi
dcb $4e71,17 ;mdist
little changes
2012-02-19 00:52:30 +01:00
; move.w #221-16,d7
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
move.w #32,d7 ;~8
little changes
2012-02-19 00:52:30 +01:00
move.b #0,$ffff820a.w ;Open right border
move.b #2,$ffff820a.w
dcb $4e71,8
overscanloop:
move.b #1,$ffff8260.w ;GunsticK's right border end switch
move.b #0,$ffff8260.w
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
movem.l d0/d1/d2,$ffff8250.w ;mdist
little changes
2012-02-19 00:52:30 +01:00
move.b #2,$ffff8260.w ;Open left border
move.b #0,$ffff8260.w
move.l d3,$ffff824e.w ;mdist
dcb $4e71,83
move.b #0,$ffff820a.w ;Open right border
move.b #2,$ffff820a.w
dcb $4e71,5
dbra d7,overscanloop
move.b #1,$ffff8260.w ;GunsticK's right border end switch
move.b #0,$ffff8260.w
asd
the line marked "wow!" needs an expalantion. Maybe one day I will find it. New in this code is the distorter wave handler. This code does not assemble.
2012-02-19 00:25:44 +01:00
;=-| read the new distortions and shift the buffers
; letters of font must be 256 bytes !!!!!!!!
;-> advance this line by one word
vorwaerts:
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
move.w d_2,(a_0) ;~8 write back new shift
move.l textptr-shift(a_0),a_1 ;~16
dcb $4e71,2
dcb $4e71,25 ;digi
dcb $4e71,17 ;mdist
move.b #0,$ffff820a.w ;Open right border
move.b #2,$ffff820a.w
bra.s cont2
nottextend: ;~12
addq.w #1,a_1 ;~8
bra _nottextend ;~12
cont2:
dcb $4e71,5
move.b #1,$ffff8260.w ;GunsticK's right border end switch
move.b #0,$ffff8260.w
movem.l d0/d1/d2,$ffff8250.w ;mdist
move.b #2,$ffff8260.w ;Open left border
move.b #0,$ffff8260.w
move.l d3,$ffff824e.w ;mdist
the line marked "wow!" needs an expalantion. Maybe one day I will find it. New in this code is the distorter wave handler. This code does not assemble.
2012-02-19 00:25:44 +01:00
;movep : 5 nops weniger
;actual = if any bit of the letter appears in one buffer
; textptr
; |
;UNLIMITED MATRICKS a bit of C appears somewhere
;now we have to write a bit of K and C
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
movep.w 0(a_1),d_1 ;~16 previous letter : C
movep.w 1(a_1),d_2 ;~16 act letter : K
tst.b d_1 ;~4 test letter after act : S
bne.s nottextend ;~8
lea scrolltext,a_1 ;~12
nop
nop
nop
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
_nottextend:
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
move.l a_1,textptr-shift(a_0) ;~16 textptr points to K
clr.b d_1 ;~4 C
clr.b d_2 ;~4 K
Finally the first wavy scoller does it's debut. Notice that it's never going right. You can change the wave by uncommenting lines in wavetab to get other moves. The code moving right breaks the overscan on the lower part of the screen.
2012-02-19 00:57:52 +01:00
lea font+(18*8),a_1 ;~8
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
add.w count,a_1 ;~20
lea (a_1,d_1),a_2 ;~12 C
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
; lea (a_1),a_2 ;C
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
movem.l (a_1,d_2),d_1/d_3 ;~36 K
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
; movem.w 256(a_1),d_0/d_1/d_2/d_3 ;K
;d0:xxxxxxxxxxxxxxxx
;d1:aaaaaaaabbbbbbbb
;d2:xxxxxxxxxxxxxxxx
;d3:ccccccccdddddddd
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
move.w d_1,d_2 ;~4
move.w d_3,d_0 ;~4
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
;d0:xxxxxxxxdddddddd
;d1:aaaaaaaabbbbbbbb
;d2:xxxxxxxxbbbbbbbb
;d3:ccccccccdddddddd
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
swap d_0 ;~4
swap d_2 ;~4
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
;d0:ddddddddxxxxxxxxx
;d1:aaaaaaaabbbbbbbbb
;d2:bbbbbbbbxxxxxxxxx
;d3:ccccccccddddddddd
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
move.l bufptr-shift(a_0),a_1 ;~16
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
;prepare shifter
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
move.w (a_2)+,d_0 ;~8 C
move.w (a_2)+,d_1 ;~8
move.w (a_2)+,d_2 ;~8
move.w (a_2)+,d_3 ;~8
the line marked "wow!" needs an expalantion. Maybe one day I will find it. New in this code is the distorter wave handler. This code does not assemble.
2012-02-19 00:25:44 +01:00
;uff one line of the 2 letters is in d0-d3
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
;d0 dddddddd|AAAAAAAA
;d1 aaaaaaaa|BBBBBBBB
;d2 bbbbbbbb|CCCCCCCC
;d3 cccccccc|DDDDDDDD
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
dcb $4e71,6
dcb $4e71,17 ;mdist
move.b #0,$ffff820a.w ;Open right border
move.b #2,$ffff820a.w
dcb $4e71,8
move.b #1,$ffff8260.w ;GunsticK's right border end switch
move.b #0,$ffff8260.w
movem.l d0/d1/d2,$ffff8250.w ;mdist
move.b #2,$ffff8260.w ;Open left border
move.b #0,$ffff8260.w
move.l d3,$ffff824e.w ;mdist
;buffer gestion
cmpi.w #25*4,bufcnt-shift(a_0) ;~16
blo.s vorbufok ;~8
clr.w bufcnt-shift(a_0) ;~16 screenwidth = 26 words
subi.l #25*8,bufptr-shift(a_0) ;~20
bra.s vorbufnok ;~12
vorbufok:
addq.w #4,bufcnt-shift(a_0) ;~16
addq.l #8,bufptr-shift(a_0) ;~16
dcb $4e71,9-5
vorbufnok:
dcb $4e71,3+5
dcb $4e71,2
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
;write first buffer
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
movem.w d_0/d_1/d_2/d_3,(a_1) ;~24
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
lea 26*8(a_1),a_1 ;~8
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
move.w #7,shiftcnt
shifter: ;(~12)
dcb $4e71,25-3
dcb $4e71,17
move.b #0,$ffff820a.w ;Open right border
move.b #2,$ffff820a.w
dcb $4e71,8
move.b #1,$ffff8260.w ;GunsticK's right border end switch
move.b #0,$ffff8260.w
movem.l d0/d1/d2,$ffff8250.w ;mdist
move.b #2,$ffff8260.w ;Open left border
move.b #0,$ffff8260.w
move.l d3,$ffff824e.w ;mdist
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
swap d_1 ;~4
addx.w d1,d1 ;~4 ;a out
swap d_1 ;~4
addx.l d0,d0 ;~8 ;a in and d out
addx.l d3,d3 ;~8 ;d in and c out
addx.l d2,d2 ;~8 ;c in and b out
addx.w d1,d1 ;~4 ;b in
movem.w d_0/d_1/d_2/d_3,(a_1) ;~28
lea 26*8(a_1),a_1 ;~8
Some code moving around. Not sure what this did, but the assembled result has now vertical bars instead of scroll text. Hmm vertical bars... playfield.
2012-02-19 00:48:22 +01:00
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
swap d_1 ;~4
addx.w d1,d1 ;~4 ;a out
swap d_1 ;~4
addx.l d0,d0 ;~8 ;a in and d out
addx.l d3,d3 ;~8 ;d in and c out
addx.l d2,d2 ;~8 ;c in and b out
addx.w d1,d1 ;~4 ;b in
movem.w d_0/d_1/d_2/d_3,(a_1) ;~28
lea 26*8(a_1),a_1 ;~8
subq.w #1,shiftcnt ;~20
bne shifter ;~12
dcb $4e71,25-3
dcb $4e71,17
move.b #0,$ffff820a.w ;Open right border
move.b #2,$ffff820a.w
dcb $4e71,8
move.b #1,$ffff8260.w ;GunsticK's right border end switch
move.b #0,$ffff8260.w
movem.l d0/d1/d2,$ffff8250.w ;mdist
move.b #2,$ffff8260.w ;Open left border
move.b #0,$ffff8260.w
move.l d3,$ffff824e.w ;mdist
swap d_1 ;~4
addx.w d1,d1 ;~4 ;a out
swap d_1 ;~4
addx.l d0,d0 ;~8 ;a in and d out
addx.l d3,d3 ;~8 ;d in and c out
addx.l d2,d2 ;~8 ;c in and b out
addx.w d1,d1 ;~4 ;b in
movem.w d_0/d_1/d_2/d_3,(a_1) ;~28
lea 26*8(a_1),a_1 ;~8
dcb $4e71,20
bra indistcalcloop ;~12 26 nops before right borde
the line marked "wow!" needs an expalantion. Maybe one day I will find it. New in this code is the distorter wave handler. This code does not assemble.
2012-02-19 00:25:44 +01:00
;-< back this line by one word
rueckbufok:
Some code moving around. Not sure what this did, but the assembled result has now vertical bars instead of scroll text. Hmm vertical bars... playfield.
2012-02-19 00:48:22 +01:00
; subq.w #4,bufcnt-shift(a_0)
sub.l #8,bufptr-shift(a_0)
the line marked "wow!" needs an expalantion. Maybe one day I will find it. New in this code is the distorter wave handler. This code does not assemble.
2012-02-19 00:25:44 +01:00
bra.s _rueckbufok
rueckwaerts:
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
add.w #16,d_2
the line marked "wow!" needs an expalantion. Maybe one day I will find it. New in this code is the distorter wave handler. This code does not assemble.
2012-02-19 00:25:44 +01:00
move.w d_2,(a_0) ;write back new shift
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
subq.w #4,bufcnt-shift(a_0)
the line marked "wow!" needs an expalantion. Maybe one day I will find it. New in this code is the distorter wave handler. This code does not assemble.
2012-02-19 00:25:44 +01:00
bhs.s rueckbufok
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
move.w #25*4,bufcnt-shift(a_0) ;screenwidth = 26 words
the line marked "wow!" needs an expalantion. Maybe one day I will find it. New in this code is the distorter wave handler. This code does not assemble.
2012-02-19 00:25:44 +01:00
add.l #25*8,bufptr-shift(a_0)
_rueckbufok:
move.l textptr-shift(a_0),a_1
;movep : 5 nops weniger
;actual = if any bit of the letter appears in one buffer
; textptr
; | |
;YEAH THIS IS UNLIMITED MATRICKS a bit of C appears somewhere
;a bit of A appears somewhere
;now we have to write a bit of E and A
movep.w -27(a_1),d_1 ;previous letter : E
movep.w -26(a_1),d_2 ;act letter : A
lea -1(a_1),a_1
move.l a_1,textptr-shift(a_0) ;textptr points to I
clr.b d_1 ;E
clr.b d_2 ;A
lea font,a_1
Some code moving around. Not sure what this did, but the assembled result has now vertical bars instead of scroll text. Hmm vertical bars... playfield.
2012-02-19 00:48:22 +01:00
lea font+(26*8),a_1
add.w count,a_1
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
lea (a_1,d_1),a_2 ;E
Some code moving around. Not sure what this did, but the assembled result has now vertical bars instead of scroll text. Hmm vertical bars... playfield.
2012-02-19 00:48:22 +01:00
movem.l (a_1,d_2),d_1/d_3 ;A
;d0:xxxxxxxxxxxxxxxx
;d1:aaaaaaaabbbbbbbb
;d2:xxxxxxxxxxxxxxxx
;d3:ccccccccdddddddd
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
move.l bufptr-shift(a_0),a_1
Some code moving around. Not sure what this did, but the assembled result has now vertical bars instead of scroll text. Hmm vertical bars... playfield.
2012-02-19 00:48:22 +01:00
move.w d_1,d_2
move.w d_3,d_0
;d0:xxxxxxxxdddddddd
;d1:aaaaaaaabbbbbbbb
;d2:xxxxxxxxbbbbbbbb
;d3:ccccccccdddddddd
the line marked "wow!" needs an expalantion. Maybe one day I will find it. New in this code is the distorter wave handler. This code does not assemble.
2012-02-19 00:25:44 +01:00
swap d_0
swap d_2
Some code moving around. Not sure what this did, but the assembled result has now vertical bars instead of scroll text. Hmm vertical bars... playfield.
2012-02-19 00:48:22 +01:00
;d0:ddddddddxxxxxxxxx
;d1:aaaaaaaabbbbbbbbb
;d2:bbbbbbbbxxxxxxxxx
;d3:ccccccccddddddddd
move.l bufptr-shift(a_0),a_1
;prepare shifter
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
move.w (a_2)+,d_0
move.w (a_2)+,d_1
move.w (a_2)+,d_2
Some code moving around. Not sure what this did, but the assembled result has now vertical bars instead of scroll text. Hmm vertical bars... playfield.
2012-02-19 00:48:22 +01:00
move.w (a_2)+,d_3 ;E
the line marked "wow!" needs an expalantion. Maybe one day I will find it. New in this code is the distorter wave handler. This code does not assemble.
2012-02-19 00:25:44 +01:00
;uff one line of the 2 letters is in d0-d3
; A E
Some code moving around. Not sure what this did, but the assembled result has now vertical bars instead of scroll text. Hmm vertical bars... playfield.
2012-02-19 00:48:22 +01:00
;d0 dddddddd|AAAAAAAA
;d1 aaaaaaaa|BBBBBBBB
;d2 bbbbbbbb|CCCCCCCC
;d3 cccccccc|DDDDDDDD
;write first buffer
movem.w d_0/d_1/d_2/d_3,(a_1)
lea 26*8(a_1),a_1 ;~8
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
the line marked "wow!" needs an expalantion. Maybe one day I will find it. New in this code is the distorter wave handler. This code does not assemble.
2012-02-19 00:25:44 +01:00
rept 15
Some code moving around. Not sure what this did, but the assembled result has now vertical bars instead of scroll text. Hmm vertical bars... playfield.
2012-02-19 00:48:22 +01:00
move #0,ccr
swap d_1 ;~4
addx.w d1,d1 ;~4 ;a out
swap d_1 ;~4
addx.l d0,d0 ;~8 ;a in and d out
addx.l d3,d3 ;~8 ;d in and c out
addx.l d2,d2 ;~8 ;c in and b out
addx.w d1,d1 ;~4 ;b in
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
movem.w d_0/d_1/d_2/d_3,(a_1) ;~28
lea 26*8(a_1),a_1 ;~8
the line marked "wow!" needs an expalantion. Maybe one day I will find it. New in this code is the distorter wave handler. This code does not assemble.
2012-02-19 00:25:44 +01:00
endr
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
bra indistcalcloop
the line marked "wow!" needs an expalantion. Maybe one day I will find it. New in this code is the distorter wave handler. This code does not assemble.
2012-02-19 00:25:44 +01:00
copydistscroll:
;**** Copy all the buffers to the screen ****
26 copy routines. The screen is 416 px wide. Scroll buffer is same width to save space. But we do not shift the scroll buffer around. Instead there are 416/16=26 different cases in the scroll buffer where the left border of the scroller is. We simply use 26 different copy routines. If you scroll now too far with the numpad, the copied scroller will overwrite code, devpac or system. Crash ahoi!
2012-02-18 23:34:18 +01:00
move.l screenadr,a6 ;put it there
add.l #6*160,a6 ;for hwscroll
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
lea buffer,a4
Finally the first wavy scoller does it's debut. Notice that it's never going right. You can change the wave by uncommenting lines in wavetab to get other moves. The code moving right breaks the overscan on the lower part of the screen.
2012-02-19 00:57:52 +01:00
moveq #18,d0 ;scrollhigh:18
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
; not $ffff8240.w
26 copy routines. The screen is 416 px wide. Scroll buffer is same width to save space. But we do not shift the scroll buffer around. Instead there are 416/16=26 different cases in the scroll buffer where the left border of the scroller is. We simply use 26 different copy routines. If you scroll now too far with the numpad, the copied scroller will overwrite code, devpac or system. Crash ahoi!
2012-02-18 23:34:18 +01:00
scrollcpy:
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
move.w shift-buffer(a4),d1
mulu #208,d1
; lea 208*15(a4),a5
lea (a4,d1),a5
; move.w #0,d1
move.w bufcnt-buffer(a4),d1
26 copy routines. The screen is 416 px wide. Scroll buffer is same width to save space. But we do not shift the scroll buffer around. Instead there are 416/16=26 different cases in the scroll buffer where the left border of the scroller is. We simply use 26 different copy routines. If you scroll now too far with the numpad, the copied scroller will overwrite code, devpac or system. Crash ahoi!
2012-02-18 23:34:18 +01:00
lea cpyjsr,a0
move.l (a0,d1),a0
Finally the first wavy scoller does it's debut. Notice that it's never going right. You can change the wave by uncommenting lines in wavetab to get other moves. The code moving right breaks the overscan on the lower part of the screen.
2012-02-19 00:57:52 +01:00
; move.l a5,a6
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
jsr (a0) ;(a5)+ -> (a6)
26 copy routines. The screen is 416 px wide. Scroll buffer is same width to save space. But we do not shift the scroll buffer around. Instead there are 416/16=26 different cases in the scroll buffer where the left border of the scroller is. We simply use 26 different copy routines. If you scroll now too far with the numpad, the copied scroller will overwrite code, devpac or system. Crash ahoi!
2012-02-18 23:34:18 +01:00
lea 230(a6),a6
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
lea linebuffend-linebuffbegin(a4),a4
26 copy routines. The screen is 416 px wide. Scroll buffer is same width to save space. But we do not shift the scroll buffer around. Instead there are 416/16=26 different cases in the scroll buffer where the left border of the scroller is. We simply use 26 different copy routines. If you scroll now too far with the numpad, the copied scroller will overwrite code, devpac or system. Crash ahoi!
2012-02-18 23:34:18 +01:00
dbf d0,scrollcpy
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
; not $ffff8240.w
26 copy routines. The screen is 416 px wide. Scroll buffer is same width to save space. But we do not shift the scroll buffer around. Instead there are 416/16=26 different cases in the scroll buffer where the left border of the scroller is. We simply use 26 different copy routines. If you scroll now too far with the numpad, the copied scroller will overwrite code, devpac or system. Crash ahoi!
2012-02-18 23:34:18 +01:00
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
; lea bufcnt,a5
; moveq #25,d0 ;scrollhigh:26
;wordscroll:
; add.w #4,(a5)
; cmp.w #4*26,(a5)
; bne.s notend
; clr.w (a5)
;notend:
; lea linebuffend-linebuffbegin(a5),a5
; dbf d0,wordscroll
26 copy routines. The screen is 416 px wide. Scroll buffer is same width to save space. But we do not shift the scroll buffer around. Instead there are 416/16=26 different cases in the scroll buffer where the left border of the scroller is. We simply use 26 different copy routines. If you scroll now too far with the numpad, the copied scroller will overwrite code, devpac or system. Crash ahoi!
2012-02-18 23:34:18 +01:00
; lea font,a0
; move.l screenadr,a1 ;put it there
; add.l #6*160+40,a1 ;for hwscroll
; moveq #26,d0 ;init all unshiftet linebuffers
;ttestinitbuff:
; move.l (a0),(a1)+
; move.l 4(a0),(a1)+
; move.l 26*8(a0),(a1)+
; move.l 26*8+4(a0),(a1)+
; addq.l #8,a0
; lea 230-16(a1),a1
; dbf d0,ttestinitbuff
;**********************************************************
parallax distorter. It was first meant to be an independant distorter on 2 playfields, only later it became the parallax distorter. This version features just hardware scroller with overscan. Use numpad to move around.
2012-02-18 23:32:41 +01:00
btst #0,$fffffc00.w
beq no_key
move.b $fffffc02.w,d0
cmpi.b #99,d0
bne.s notl
addi.l #16,codmod+2
notl:
cmpi.b #100,d0
bne.s notr
addi.l #-16,codmod+2
notr:
cmpi.b #107,d0
bne.s not5
move.l #0,codmod+2
not5:
cmpi.b #110,d0
bne.s not2
ifeq overscan
addi.l #-230,codmod+2
endc
ifne overscan
addi.l #-160,codmod+2
endc
not2:
cmpi.b #104,d0
bne.s not8
ifeq overscan
addi.l #230,codmod+2
endc
ifne overscan
addi.l #160,codmod+2
endc
not8:
cmpi.b #108,d0
bne.s not6
addi.l #-8,codmod+2
not6:
cmpi.b #78,d0
bne.s notd
; add.l #-320,codmod+2
addi.b #-2,lowbyte
lea screenadr,a3
move.b lowbyte,3(a3)
notd:
cmpi.b #106,d0
bne.s not4
addi.l #8,codmod+2
not4:
cmpi.b #74,d0
bne.s notu
; add.l #320,codmod+2
addi.b #2,lowbyte
lea screenadr,a3
move.b lowbyte,3(a3)
notu:
cmpi.b #57,d0
bne.s no_key
movea.l stack,sp
move (sp)+,sr
rts
no_key:
lea screenadr,a3
codmod:
addi.l #0,(a3)
moveq #0,d0
move.b 3(a3),d0
lsr.l #1,d0
lea str,a3
move.l #"0000",-4(a3)
bsr.s d0todeza3
pea prt
move.w #9,-(sp)
; trap #1
addq.w #6,sp
bra loop
exit:
movea.l stack,sp
move (sp)+,sr
rts
d0todeza3:
movem.l d0-d1/a3,-(sp)
addq.w #1,a3
moveq #3,d1
divu #10000,d0
beq.s smallone
hexdezinit:
move.b #"0",-(a3)
dbra d1,hexdezinit
bsr.s hextodez
addq.w #4,a3
smallone:
swap d0
bsr.s hextodez
movem.l (sp)+,d0-d1/a3
rts
hextodez:
movem.l d1/a3,-(sp)
move.w d0,d1
nexthextodez:
divu #10,d1
swap d1
add.b #"0",d1
move.b d1,-(a3)
clr.w d1
swap d1
bne.s nexthextodez
movem.l (sp)+,d1/a3
rts
26 copy routines. The screen is 416 px wide. Scroll buffer is same width to save space. But we do not shift the scroll buffer around. Instead there are 416/16=26 different cases in the scroll buffer where the left border of the scroller is. We simply use 26 different copy routines. If you scroll now too far with the numpad, the copied scroller will overwrite code, devpac or system. Crash ahoi!
2012-02-18 23:34:18 +01:00
;**********************************************************
; Distorted scroller by Gunstick
;The 26 copyroutines
cpyjsr:
dc.l cpy00,cpy01,cpy02,cpy03,cpy04
dc.l cpy05,cpy06,cpy07,cpy08,cpy09
dc.l cpy10,cpy11,cpy12,cpy13,cpy14
dc.l cpy15,cpy16,cpy17,cpy18,cpy19
dc.l cpy20,cpy21,cpy22,cpy23,cpy24
dc.l cpy25
;copy 208 bytes from (a5) to (a6) (52 registers)
;6 movems : 9,9,9,9,9,7 regs (6 scanlines)
;read/write: 24+8*n = 16*(1.5+n) (max: 10.5)
c0 equr a1
c1 equr d1
c2 equr d2
c3 equr d3
c4 equr d4
c5 equr d5
c6 equr d6
c7 equr d7
c8 equr a0
cpy00: ;7,9,9,9,9,9
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6
movem.l c0/c1/c2/c3/c4/c5/c6,(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*7(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*16(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*25(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*34(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*43(a6)
rts
cpy01: ;2+5,9,9,9,9,9
movem.l (a5)+,c0/c1
movem.l c0/c1,4*50(a6)
movem.l (a5)+,c0/c1/c2/c3/c4
movem.l c0/c1/c2/c3/c4,(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*5(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*14(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*23(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*32(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*41(a6)
rts
cpy02: ;4+3,9,9,9,9,9
movem.l (a5)+,c0/c1/c2/c3
movem.l c0/c1/c2/c3,4*48(a6)
movem.l (a5)+,c0/c1/c2
movem.l c0/c1/c2,(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*3(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*12(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*21(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*30(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*39(a6)
rts
cpy03: ;6+1,9,9,9,9,9
movem.l (a5)+,c0/c1/c2/c3/c4/c5
movem.l c0/c1/c2/c3/c4/c5,4*46(a6)
movem.l (a5)+,c0
movem.l c0,(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*1(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*10(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*19(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*28(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*37(a6)
rts
cpy04: ;8,8,9,9,9,9
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7
movem.l c0/c1/c2/c3/c4/c5/c6/c7,4*44(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7
movem.l c0/c1/c2/c3/c4/c5/c6/c7,(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*8(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*17(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*26(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*35(a6)
rts
cpy05: ;9,1+6,9,9,9,9
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*42(a6)
movem.l (a5)+,c0
movem.l c0,4*51(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5
movem.l c0/c1/c2/c3/c4/c5,(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*6(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*15(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*24(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*33(a6)
rts
cpy06: ;9,3+4,9,9,9,9
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*40(a6)
movem.l (a5)+,c0/c1/c2
movem.l c0/c1/c2,4*49(a6)
movem.l (a5)+,c0/c1/c2/c3
movem.l c0/c1/c2/c3,(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*4(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*13(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*22(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*31(a6)
rts
cpy07: ;9,5+2,9,9,9,9
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*38(a6)
movem.l (a5)+,c0/c1/c2/c3/c4
movem.l c0/c1/c2/c3/c4,4*47(a6)
movem.l (a5)+,c0/c1
movem.l c0/c1,(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*2(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*11(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*20(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*29(a6)
rts
cpy08: ;9,7,9,9,9,9
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*36(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6
movem.l c0/c1/c2/c3/c4/c5/c6,4*45(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*9(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*18(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*27(a6)
rts
cpy09: ;9,9,7,9,9,9
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*34(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*43(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6
movem.l c0/c1/c2/c3/c4/c5/c6,(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*7(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*16(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*25(a6)
rts
cpy10: ;9,9,2+5,9,9,9
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*32(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*41(a6)
movem.l (a5)+,c0/c1
movem.l c0/c1,4*50(a6)
movem.l (a5)+,c0/c1/c2/c3/c4
movem.l c0/c1/c2/c3/c4,(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*5(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*14(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*23(a6)
rts
cpy11: ;9,9,4+3,9,9,9
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*30(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*39(a6)
movem.l (a5)+,c0/c1/c2/c3
movem.l c0/c1/c2/c3,4*48(a6)
movem.l (a5)+,c0/c1/c2
movem.l c0/c1/c2,(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*3(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*12(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*21(a6)
rts
cpy12: ;9,9,6+1,9,9,9
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*28(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*37(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5
movem.l c0/c1/c2/c3/c4/c5,4*46(a6)
movem.l (a5)+,c0
movem.l c0,(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*1(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*10(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*19(a6)
rts
cpy13: ;9,9,8,8,9,9
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*26(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*35(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7
movem.l c0/c1/c2/c3/c4/c5/c6/c7,4*44(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7
movem.l c0/c1/c2/c3/c4/c5/c6/c7,(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*8(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*17(a6)
rts
cpy14: ;9,9,9,1+6,9,9
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*24(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*33(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*42(a6)
movem.l (a5)+,c0
movem.l c0,4*51(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5
movem.l c0/c1/c2/c3/c4/c5,(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*6(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*15(a6)
rts
cpy15: ;9,9,9,3+4,9,9
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*22(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*31(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*40(a6)
movem.l (a5)+,c0/c1/c2
movem.l c0/c1/c2,4*49(a6)
movem.l (a5)+,c0/c1/c2/c3
movem.l c0/c1/c2/c3,(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*4(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*13(a6)
rts
cpy16: ;9,9,9,5+2,9,9
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*20(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*29(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*38(a6)
movem.l (a5)+,c0/c1/c2/c3/c4
movem.l c0/c1/c2/c3/c4,4*47(a6)
movem.l (a5)+,c0/c1
movem.l c0/c1,(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*2(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*11(a6)
rts
cpy17: ;9,9,9,7,9,9
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*18(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*27(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*36(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6
movem.l c0/c1/c2/c3/c4/c5/c6,4*45(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*9(a6)
rts
cpy18: ;9,9,9,9,7,9
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*16(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*25(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*34(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*43(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6
movem.l c0/c1/c2/c3/c4/c5/c6,(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*7(a6)
rts
cpy19: ;9,9,9,9,2+5,9
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*14(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*23(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*32(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*41(a6)
movem.l (a5)+,c0/c1
movem.l c0/c1,4*50(a6)
movem.l (a5)+,c0/c1/c2/c3/c4
movem.l c0/c1/c2/c3/c4,(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*5(a6)
rts
cpy20: ;9,9,9,9,4+3,9
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*12(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*21(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*30(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*39(a6)
movem.l (a5)+,c0/c1/c2/c3
movem.l c0/c1/c2/c3,4*48(a6)
movem.l (a5)+,c0/c1/c2
movem.l c0/c1/c2,(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*3(a6)
rts
cpy21: ;9,9,9,9,6+1,9
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*10(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*19(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*28(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*37(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5
movem.l c0/c1/c2/c3/c4/c5,4*46(a6)
movem.l (a5)+,c0
movem.l c0,(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*1(a6)
rts
cpy22: ;9,9,9,9,8,8
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*8(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*17(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*26(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*35(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7
movem.l c0/c1/c2/c3/c4/c5/c6/c7,4*44(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7
movem.l c0/c1/c2/c3/c4/c5/c6/c7,(a6)
rts
cpy23: ;9,9,9,9,9,1+6
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*6(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*15(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*24(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*33(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*42(a6)
movem.l (a5)+,c0
movem.l c0,4*51(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5
movem.l c0/c1/c2/c3/c4/c5,(a6)
rts
cpy24: ;9,9,9,9,9,3+4
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*4(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*13(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*22(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*31(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*40(a6)
movem.l (a5)+,c0/c1/c2
movem.l c0/c1/c2,4*49(a6)
movem.l (a5)+,c0/c1/c2/c3
movem.l c0/c1/c2/c3,(a6)
rts
cpy25: ;9,9,9,9,9,5+2
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*2(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*11(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*20(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*29(a6)
movem.l (a5)+,c0/c1/c2/c3/c4/c5/c6/c7/c8
movem.l c0/c1/c2/c3/c4/c5/c6/c7/c8,4*38(a6)
movem.l (a5)+,c0/c1/c2/c3/c4
movem.l c0/c1/c2/c3/c4,4*47(a6)
movem.l (a5)+,c0/c1
movem.l c0/c1,(a6)
rts
;
;**********************************************************
parallax distorter. It was first meant to be an independant distorter on 2 playfields, only later it became the parallax distorter. This version features just hardware scroller with overscan. Use numpad to move around.
2012-02-18 23:32:41 +01:00
section data
26 copy routines. The screen is 416 px wide. Scroll buffer is same width to save space. But we do not shift the scroll buffer around. Instead there are 416/16=26 different cases in the scroll buffer where the left border of the scroller is. We simply use 26 different copy routines. If you scroll now too far with the numpad, the copied scroller will overwrite code, devpac or system. Crash ahoi!
2012-02-18 23:34:18 +01:00
;**********************************************************
; Distorted scroller by Gunstick
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
font equ *-32*8
incbin "font.bin"
even
wavetab:
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
; dc.l wordschief
Finally the first wavy scoller does it's debut. Notice that it's never going right. You can change the wave by uncommenting lines in wavetab to get other moves. The code moving right breaks the overscan on the lower part of the screen.
2012-02-19 00:57:52 +01:00
; dc.l byteschief
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
; dc.l nix
; dc.l dreieck
; dc.l dreieck
little changes
2012-02-19 00:52:30 +01:00
; dc.l sinus
Finally the first wavy scoller does it's debut. Notice that it's never going right. You can change the wave by uncommenting lines in wavetab to get other moves. The code moving right breaks the overscan on the lower part of the screen.
2012-02-19 00:57:52 +01:00
dc.l sinschief
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
dc.l 0 ;end
Finally the first wavy scoller does it's debut. Notice that it's never going right. You can change the wave by uncommenting lines in wavetab to get other moves. The code moving right breaks the overscan on the lower part of the screen.
2012-02-19 00:57:52 +01:00
sinschief;
dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1
dc.w 0,0,1,0,0,1,0,0,2,0,0,1,0,0,1,0,0,2,0,0,2,0,0,2,0,0,2,0,0,1,0,0,1
dc.w 0,0,2,0,0,1,0,0,1,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
wordschief:
dc.w 2,2,2,2,2,2,2,2
dc.w 2,2,2,2,2,2,2,2
dc.w 0
dc.w 3,2,2,2,2,2,2,2,128
byteschief:
dc.w 1,1,1,1,1,1,1,1,128
nix: dc.w 0,128
little changes
2012-02-19 00:52:30 +01:00
dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
dc.w 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
little changes
2012-02-19 00:52:30 +01:00
dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dc.w 0,128
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
dreieck:
Some code moving around. Not sure what this did, but the assembled result has now vertical bars instead of scroll text. Hmm vertical bars... playfield.
2012-02-19 00:48:22 +01:00
dc.w 1,0,1,0,1,0,1,0
dc.w 1,0,1,0,1,0,1,0
dc.w 1,0,1,0,1,0,1,0
dc.w 1,0,1,0,1,0,1,0
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
dc.w 1,1,1,1,1,1,1,1
Some code moving around. Not sure what this did, but the assembled result has now vertical bars instead of scroll text. Hmm vertical bars... playfield.
2012-02-19 00:48:22 +01:00
dc.w -1,0,0,-1,0,0,-1,0,0,-1,0,0,-1,0,0,-1,0,0,-1,0,0,-1
dc.w -1,0,0,-1,0,0,-1,0,0,-1,0,0,-1,128
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
dc.w 2,2,2,2,2,2,2,2
Some code moving around. Not sure what this did, but the assembled result has now vertical bars instead of scroll text. Hmm vertical bars... playfield.
2012-02-19 00:48:22 +01:00
dc.w 1,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0
dc.w 0,0,0,1,0,0,0,0
dc.w 0,0,-3,-2,-1,0,1,2
dc.w 1,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,-1
dc.w -1,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,1
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
dc.w 2,2,2,2,2,2,2,2
dc.w 3,3,3,3,3,3,3,3
Some code moving around. Not sure what this did, but the assembled result has now vertical bars instead of scroll text. Hmm vertical bars... playfield.
2012-02-19 00:48:22 +01:00
dc.w 3,3,3,3,3,3,3,3
dc.w 4,4,4,4,4,4,4,4
dc.w 4,4,4,4,4,4,4,4
dc.w 5,5,5,5,5,5,5,5
dc.w 5,5,5,5,5,5,5,5
dc.w 5,5,5,5,5,5,5,5
dc.w 5,5,5,5,5,5,5,5
dc.w 5,5,5,5,5,5,5,5
dc.w 4,4,4,4,4,4,4,4
dc.w 4,4,4,4,4,4,4,4
dc.w 4,4,4,4,4,4,4,4
dc.w 3,3,3,3,3,3,3,3
dc.w 3,3,3,3,3,3,3,3
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
dc.w 2,2,2,2,2,2,2,2
dc.w 2,2,2,2,2,2,2,2
dc.w 1,1,1,1,1,1,1,1
dc.w 0,0,0,0,0,0,0,0
dc.w -1,-1,-1,-1,-1,-1,-1,-1
Some code moving around. Not sure what this did, but the assembled result has now vertical bars instead of scroll text. Hmm vertical bars... playfield.
2012-02-19 00:48:22 +01:00
dc.w -2,-2,-2,-2,-2,-2,-2,-2
dc.w -3,-3,-3,-3,-3,-3,-3,-3
dc.w -3,-3,-3,-3,-3,-3,-3,-3
dc.w -4,-4,-4,-4,-4,-4,-4,-4
dc.w -4,-4,-4,-4,-4,-4,-4,-4
dc.w -4,-4,-4,-4,-4,-4,-4,-4
dc.w -4,-4,-4,-4,-4,-4,-4,-4
dc.w -4,-4,-4,-4,-4,-4,-4,-4
dc.w -3,-3,-3,-3,-3,-3,-3,-3
dc.w -3,-3,-3,-3,-3,-3,-3,-3
dc.w -2,-2,-2,-2,-2,-2,-2,-2
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
dc.w -1,-1,-1,-1,-1,-1,-1,-1
Some code moving around. Not sure what this did, but the assembled result has now vertical bars instead of scroll text. Hmm vertical bars... playfield.
2012-02-19 00:48:22 +01:00
dc.w 0,0,0,0,0,0,0,0,128
dc.w 16,16,16,16,16,16,16,16
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
dc.w 1,1,1,1,1,1,1,1
dc.w 1,1,1,1,1,1,1,1
dc.w 1,1,1,1,1,1,1,1
dc.w 1,1,1,1,1,1,1,1
dc.w 1,1,1,1,1,1,1,1
dc.w 1,1,1,1,1,1,1,1
dc.w 128
Some code moving around. Not sure what this did, but the assembled result has now vertical bars instead of scroll text. Hmm vertical bars... playfield.
2012-02-19 00:48:22 +01:00
sinus:
; dc.w 1,0,0,0,1,0,0,0,-1,0,0,-1,0,0,0,128
; dc.w 1,1,1,1,2,0,0,0,3,0,0,0,2,0,0,0,1,0,0,0,0,0,0,0
; dc.w -1,0,0,0,-2,0,0,0,-2,0,0,0,-1,0,0,0,0,0,0,0,128
dc.w 1,0,0,1,0,0,1,0,0,1,0,0,2,0,0,1,0,0,2,0,0,1,0,0,2,0,0,2
dc.w 0,0,2,0,0,2,0,0,3,0,0,2,0,0,3,0,0,2,0,0,3,0,0,3,0,0,3,0,0,3
dc.w 2,0,0,3,0,0,2,0,0,3,0,0,2,0,0,2,0,0,2,0,0,2,0,0,1,0,0,2,0,0,1,0,0,1,0,0,1,0,0,1
dc.w 0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,-1,0,0,0,0,0,-1
dc.w -1,0,0,-1,0,0,-1,0,0,-2,0,0,-1,0,0,-2,0,0,-1,0,0,-2,0,0,-2,0,0,-2,0,0,-3,0,0,-2
dc.w -3,0,0,-3,0,0,-3,0,0,-2,0,0,-3,0,0,-2,0,0,-2,0,0,-2,0,0,-1,0,0,-2,0,0,-1,0,0,-1,0,0,-1,0,0,-1,0,0,0,0,0,-1,0,0,0,0,0,0
dc.w 128
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
;Panic buffer for scrolltext
Some code moving around. Not sure what this did, but the assembled result has now vertical bars instead of scroll text. Hmm vertical bars... playfield.
2012-02-19 00:48:22 +01:00
dc.b 01,0,0,01,0,0,01,0,0,01,0,0,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01
the line marked "wow!" needs an expalantion. Maybe one day I will find it. New in this code is the distorter wave handler. This code does not assemble.
2012-02-19 00:25:44 +01:00
dc.b 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01
26 copy routines. The screen is 416 px wide. Scroll buffer is same width to save space. But we do not shift the scroll buffer around. Instead there are 416/16=26 different cases in the scroll buffer where the left border of the scroller is. We simply use 26 different copy routines. If you scroll now too far with the numpad, the copied scroller will overwrite code, devpac or system. Crash ahoi!
2012-02-18 23:34:18 +01:00
scrolltext:
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
dc.b 87,87
26 copy routines. The screen is 416 px wide. Scroll buffer is same width to save space. But we do not shift the scroll buffer around. Instead there are 416/16=26 different cases in the scroll buffer where the left border of the scroller is. We simply use 26 different copy routines. If you scroll now too far with the numpad, the copied scroller will overwrite code, devpac or system. Crash ahoi!
2012-02-18 23:34:18 +01:00
dc.b 01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20
dc.b 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40
This is one of the most important decisions. Reduce the scroller height from the classic 32 pixel height to 26, because there is not enough CPU time left to do 32 pixel! We can do this because there is no 8 lines/scroll limit when using the hardscroller.
2012-02-19 00:32:21 +01:00
dc.b 41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60
dc.b 61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80
dc.b 81,82,83,84,85,86,87
26 copy routines. The screen is 416 px wide. Scroll buffer is same width to save space. But we do not shift the scroll buffer around. Instead there are 416/16=26 different cases in the scroll buffer where the left border of the scroller is. We simply use 26 different copy routines. If you scroll now too far with the numpad, the copied scroller will overwrite code, devpac or system. Crash ahoi!
2012-02-18 23:34:18 +01:00
dc.b 0
even
;**********************************************************
parallax distorter. It was first meant to be an independant distorter on 2 playfields, only later it became the parallax distorter. This version features just hardware scroller with overscan. Use numpad to move around.
2012-02-18 23:32:41 +01:00
prt:
dc.b 27,"Y",32+20,32+1," 000"
str: dc.b "0 ",0
even
psginittab:dc.b 0,$ff,1,$ff,2,$ff,3,$ff,4,$ff,5,$ff,6,0
dc.b 7,$7f,8,7,9,7,10,7,$ff,0
even
hwpalette:
dc.w $0700,$07,$0474,$0777,$0606,$0700,$0170,$62
dc.w $0770,$0707,$50,$0505,$75,$0777,$00,$0711
graphic:
dc.w $d555,$3333,$0f0f,$ff
message:
dc.b 27,"c",6,13,10,13,10,10,10,10,10,10,10,10,10,"Hardware scrolling discovery"
dc.b 13,10,"Scroll !!!!!!",13,10,10
test: equ 0
ifeq test
dc.b 'UUUU LLLL MMMMMM MMMMMM',13,10
dc.b 'UUUU LLLL MMMM MMMMMMMM',13,10
dc.b 'UUUU LLLL MMMMMMMM MMMM',13,10
dc.b 'UUUU LLLL MMMM MMMM',13,10
dc.b 'UUUU LLLL MMMM',13,10
dc.b 'UUUU LLLL MMMM',13,10
dc.b 'UUUU LLLL MMMM',13,10
dc.b 'UUUU LLLL MMMM',13,10
dc.b 'UUUU UUUU LLLL MMMM',13,10
dc.b 'UUUUUUUUUUUUU LLLLLLLLLLLLLL MMMM',13,10
endc
ifne test
dc.b ' ',13,10
dc.b ' TTTTTTTTTTT HH HH EEEEEEEEE ',13,10
dc.b ' TT HH HH EE ',13,10
dc.b ' TT HH HH EE ',13,10
dc.b ' TT HHHHHHHHH EEEEE ',13,10
dc.b ' TT HH HH EE ',13,10
dc.b ' TT HH HH EE ',13,10
dc.b ' TT HH HH EEEEEEEEE ',13,10
dc.b ' ',13,10
dc.b 'FFFFFFFFF AAAAAAAAA TTTTTTTTTT EEEEEEEEEE',13,10
dc.b 'FF AA AA TT EE ',13,10
dc.b 'FF AA AA TT EE ',13,10
dc.b 'FFFFF AAAAAAAAA TT EEEEE ',13,10
dc.b 'FF AA AA TT EE ',13,10
dc.b 'FF AA AA TT EE ',13,10
dc.b 'FF AA AA TT EEEEEEEEEE',13,10
dc.b ' ',13,10
endc
dc.b 27,"Y",32+20,32,"|"
dc.b 13,10,"|"
dc.b 13,10,"0123456789012345678901234567890123456789"
dc.b 13,10,"0000000000111111111122222222223333333333"
dc.b 13,10,"||||||||||||||||||||||||||||||||||||||||",0
dc.b 13,10,"||||||||||||||||||||||||||||||||||||||||",0
even
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
hwscrolldat:
parallax distorter. It was first meant to be an independant distorter on 2 playfields, only later it became the parallax distorter. This version features just hardware scroller with overscan. Use numpad to move around.
2012-02-18 23:32:41 +01:00
; dc.b $00,$00,$00,$00
; dc.b $00,$00,$00,$ff ;44
; dc.b $00,$00,$ff,$00 ;-2
; dc.b $00,$ff,$00,$00 ;-106
; dc.b $ff,$00,$00,$00 ;26
; dc.b $ff,$00,$00,$ff ;70
; dc.b $ff,$00,$ff,$00 ;24
; dc.b $ff,$ff,$00,$00 ;-80
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
incbin "hwscroll.dat"
parallax distorter. It was first meant to be an independant distorter on 2 playfields, only later it became the parallax distorter. This version features just hardware scroller with overscan. Use numpad to move around.
2012-02-18 23:32:41 +01:00
even
lowbyte:
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
dc.b 0
parallax distorter. It was first meant to be an independant distorter on 2 playfields, only later it became the parallax distorter. This version features just hardware scroller with overscan. Use numpad to move around.
2012-02-18 23:32:41 +01:00
section bss
stack: ds.l 1
oldpal: ds.w 16
oldres: ds.w 1
screenad1:ds.w 1
screenad2:ds.l 1
screenadr:ds.l 1
black: ds.l 8
place holders for digi sound and playfield distorter appear code starts to get integrated into overscan switches hardware scroll table is now in a binary include
2012-02-19 00:54:45 +01:00
shiftcnt:
ds.w 1 ;counter for shifter
count:
ds.l 1 ;for some dbf without register
distcalc:
ds.w 1
distwaveptr:
ds.l 1 ;pointer in one distwave
wavetabptr:
ds.l 1 ;pointer to the next wave to be played
disttableptr:
ds.l 1 ;pointer to the distorter adjust table
ds.w 1600 ;panic for table
disttable:
ds.w 26*2+100 ;adjusttable for the two distorters
ds.w 1600 ;panic for table
linebuffbegin:
textptr:
ds.l 1 ;letter not completly copied into buffer (forward)
bufptr:
ds.l 1 ;pos where graphic is added in preshift 0
bufcnt:
ds.w 1 ;which one of the 26 routs to be used to copy
shift:
ds.w 1 ;which preshift to copy
buffer:
ds.l 2*26*16 ;16 shifts of the 1st line of the scrolling
linebuffend:
rept 25 ;26 lines scroll
; ds.l 1
; ds.l 1
; ds.w 1
; ds.w 1
ds.l 2*26*16+1+1+1
endr
parallax distorter. It was first meant to be an independant distorter on 2 playfields, only later it became the parallax distorter. This version features just hardware scroller with overscan. Use numpad to move around.
2012-02-18 23:32:41 +01:00
screen: ds.l 14300
end
little changes
2012-02-19 00:52:30 +01:00