The ordered grafics are here!

The sound is fine, maybe a bad soundchip init was causing the bad quality.
Demo statup is also now clean (background & buffer initialization).
The sound problem may have been a bad soundchip init. And using old voltab again.
A lot of code (shifting routines) is now in external includes
master
Georges Kesseler 2012-02-21 23:03:31 +01:00
parent 32912ebe16
commit cecd6521ae
19 changed files with 1036 additions and 1101 deletions

1299
PARADIST.S

File diff suppressed because it is too large Load Diff

18
domino.s Executable file
View File

@ -0,0 +1,18 @@
x: ;This is the famous domino-table. Try to understand it !
dc.w $0000,$0000,$0004,$0000,$0008,$0000,$0010,$0000,$0020,$0000,$0040,$0000,$0080,$0000,$0100,$0000
dc.w $0200,$0000,$0300,$0000,$0380,$0000,$03C0,$0000,$03E0,$0000,$03F0,$0000,$03F8,$0000,$03FC,$0004
dc.w $0004,$0008,$0004,$0010,$0004,$0020,$0004,$0040,$0004,$0080,$0004,$0100,$0004,$0200,$0004,$0300
dc.w $0004,$0380,$0004,$03C0,$0004,$03E0,$0004,$03F0,$0004,$03F8,$0004,$03FC,$0008,$0008,$0010,$0008
dc.w $0020,$0008,$0040,$0008,$0080,$0008,$0100,$0008,$0200,$0008,$0300,$0008,$0380,$0008,$03C0,$0008
dc.w $03E0,$0008,$03F0,$0008,$03F8,$0008,$03FC,$0010,$0010,$0020,$0010,$0040,$0010,$0080,$0010,$0100
dc.w $0010,$0200,$0010,$0300,$0010,$0380,$0010,$03C0,$0010,$03E0,$0010,$03F0,$0010,$03F8,$0010,$03FC
dc.w $0020,$0020,$0040,$0020,$0080,$0020,$0100,$0020,$0200,$0020,$0300,$0020,$0380,$0020,$03C0,$0020
dc.w $03E0,$0020,$03F0,$0020,$03F8,$0020,$03FC,$0040,$0040,$0080,$0040,$0100,$0040,$0200,$0040,$0300
dc.w $0040,$0380,$0040,$03C0,$0040,$03E0,$0040,$03F0,$0040,$03F8,$0040,$03FC,$0080,$0080,$0100,$0080
dc.w $0200,$0080,$0300,$0080,$0380,$0080,$03C0,$0080,$03E0,$0080,$03F0,$0080,$03F8,$0080,$03FC,$0100
dc.w $0100,$0200,$0100,$0300,$0100,$0380,$0100,$03C0,$0100,$03E0,$0100,$03F0,$0100,$03F8,$0100,$03FC
dc.w $0200,$0200,$0300,$0200,$0380,$0200,$03C0,$0200,$03E0,$0200,$03F0,$0200,$03F8,$0200,$03FC,$0300
dc.w $0300,$0380,$0300,$03C0,$0300,$03E0,$0300,$03F0,$0300,$03F8,$0300,$03FC,$0380,$0380,$03C0,$0380
dc.w $03E0,$0380,$03F0,$0380,$03F8,$0380,$03FC,$03C0,$03C0,$03E0,$03C0,$03F0,$03C0,$03F8,$03C0,$03FC
dc.w $03E0,$03E0,$03F0,$03E0,$03F8,$03E0,$03FC,$03F0,$03F0,$03F8,$03F0,$03FC,$03F8,$03F8,$03FC,$03FC
y:

BIN
fond_7c.iff Executable file

Binary file not shown.

BIN
font.neo Executable file

Binary file not shown.

BIN
fontconv.gfa Executable file

Binary file not shown.

52
fontconv.lst Executable file
View File

@ -0,0 +1,52 @@
zero equ 79
one equ 62
two equ 63
three equ 65
four equ 67
five equ 69
six equ 71
seven equ 73
eight equ 75
nine equ 77
pt equ 54
komma equ 55
dp equ 56
;sp equ 57
ka equ 60
kz equ 61
fz equ 58
az equ 57
quote equ 93
mi equ 94
a equ 1
b equ 3
c equ 5
d equ 7
e equ 9
f equ 11
g equ 13
h equ 15
i equ 17
j equ 18
k equ 21
l equ 23
m equ 25
n equ 27
o equ 29
p equ 31
q equ 33
r equ 35
s equ 37
t equ 39
u equ 41
v equ 43
w equ 45
x equ 48
y equ 50
z equ 52
space equ 20
ulm equ 81
oxar equ 84
extra1 equ 87
extra2 equ 89
extra3 equ 91

BIN
includes/boink.bin Executable file

Binary file not shown.

BIN
includes/colors2.bin Executable file

Binary file not shown.

BIN
includes/domino.bin Executable file

Binary file not shown.

BIN
includes/font2.bin Executable file

Binary file not shown.

BIN
includes/shifter1.bin Executable file

Binary file not shown.

BIN
includes/shifter2.bin Executable file

Binary file not shown.

BIN
includes/shifter3.bin Executable file

Binary file not shown.

BIN
includes/shifter4.bin Executable file

Binary file not shown.

BIN
includes/sinbigbi.n Executable file

Binary file not shown.

BIN
includes/sisi.bin Executable file

Binary file not shown.

151
includes/text.bin Executable file
View File

@ -0,0 +1,151 @@
QRS-./-./99'(%&%& )*%&'(]%&#$
+,)*'(#$23 )*%&#$
^_%&#$
623
'(QRS999'(%&%&#$
)*%&
%&'(
QRS^_ 23 
'(
!")*
6
'(-./
'(

%&'( )*%&#$
%&'(#$'(
#$
+,
#$
6'(
 '(%& #$01#$TUV< #$
'(-./#$9=6'(
-./
#$ )* #$)*-./%&
%& 
23454523 #$'(KL6
)*%&%&  23 )*%&'(6]%&#$#$23 #$'(

 
-./]'(
%&-./%&#$
#$%&7)*'('(%&'(
01'(%&'( 
#$7'(%&-./23)*7'('('( %& #$
)*'(
623 '(%&
%&'('(23%&'( 
^_ 
%&#$%&#$
 #$
%& '(
6'(
%&

%&#$
'(9 23)*%&'('('(%&%&
%&23'(
'('(
 #$01
<#$
'(999= #$)*8YZ[\WXQRSYZ[\[\[\[\WX+,
23)*'(
'('('(]%&'(%& 23 #$01
:;'(
#$
]%&'(
#$-./+,
'(6]'(-./'('(
 #$
'( %&
#$
7%&
'(]%&'()*
'( )*'( )*%&#$
%&#$%&#$
#$%&6+,
]'(%&
23#$%&#$
#$-./-./#$%&-./23%&#$#$
'(23%&'(]%&6%& 23)*%&
%&
%&'(23 
#$ '(
'( #$
#$23)*+,
%&'(
-./%&]'(
'('(
%&'(6)*'(-./ )*>CD
#$
'(#$-./#$
  )*#$'(%&6)*#$#$%&#$
#$-./#$%&7)*'('(
#$
 '(
#$
666%& 23)*#$
 #$ #$
#$7 
%&
'(
%&'(23)*#$+,
#$%&#$)*'(

+,
#$23%&'(23)* <
%&
23'(%&
'(
#$)*'(#$
%&99=
%&%& 
'( #$ 8'(#$
'()*%&
'(

23#$ #$
%&%&#$ #$#$%&#$ )*'('(]'(-./#$623)*-./'('(-./-./ 
'(%& '('(
%&#$ %&:;:;:;-./
'(
 %&
#$45
'(623 #$ #$ '(%&
-./23<#$
 -./#$'( '(
%&
'(
='(
%&
%&'(
'(7)*'(%& '(
23
'(6'('(
AB #$ %&'(8-./'()*'( 23)*#$AB #$ %&-./'('(
'(
#$ 
:;%&23)*+,
-./ '(

)* %&
'(
%&'(#$'(-./+,

#$'(
 %&)*'('(]%&'(
'( #$
%&%&%& 
-./-./#$ 
#$


77
mkshifts.s Executable file
View File

@ -0,0 +1,77 @@
parallax equ 0
parallay equ 0
bus equ 10
digitest equ 10
def_version equ 10
d0_for_mcp equ 0
mcp_adr equ $500
keyboard set 10
test equ 10
calc_mdist MACRO
move.w (a3)+,d6
sub.w (a4)+,d6
movem.l (a5,d6),d3-d6
ENDM
do_mdist MACRO
lea 64(a5),a5
move.b #1,$ffff8260.w
move.b #0,$ffff8260.w
movem.l d3/d4/d5,$ffff8250.w
move.b #2,$ffff8260.w
move.b #0,$ffff8260.w
move.l d6,$ffff825c.w
ENDM
calc_mdist2 MACRO
move.w (a3)+,d6
sub.w (a4)+,d6
movem.l (a5,d6),d4-d6/a2
ENDM
do_mdist2 MACRO
lea 64(a5),a5
move.b #1,$ffff8260.w
move.b #0,$ffff8260.w
movem.l d4/d5/d6,$ffff8250.w
move.b #2,$ffff8260.w
move.b #0,$ffff8260.w
move.l a2,$ffff825c.w
ENDM
calc_mdist02 MACRO
move.w (a3)+,d6
sub.w (a4)+,d6
movem.l (a5,d6),d2/d4-d6
ENDM
do_mdist02 MACRO
lea 64(a5),a5
move.b #1,$ffff8260.w
move.b #0,$ffff8260.w
movem.l d2/d4/d5,$ffff8250.w
move.b #2,$ffff8260.w
move.b #0,$ffff8260.w
move.l d6,$ffff825c.w
ENDM
digi1 MACRO
moveq #-1,d6 ;~1
move.b (a6),d6 ;~2
add.w d6,d6 ;~1
add.w (a7,d6),d7 ;~4
andi.w #$ff*4,d7 ;~2
move.l (a7,d7),d6
movep.l d6,$ffff8800-512-downthere(a7) ;~7
ENDM
digi2 MACRO
moveq #-1,d6 ;~1
move.b (a6)+,d6 ;~2
add.w d6,d6 ;~1
add.w 2(a7,d6),d7 ;~4
andi.w #$ff*4,d7 ;~2
move.l (a7,d7),d6 ;~5
movep.l d6,$ffff8800-512-downthere(a7) ;~7
ENDM
d_0 equr d0
d_1 equr d1
d_2 equr d2
d_3 equr d3
a_1 equr a1
downthere equ $600
x:
y:

538
sound.s Executable file
View File

@ -0,0 +1,538 @@
; The Paralax distorter by Gunstick from Unlimited Matricks
parallax equ 0
parallay equ 0
bus equ 10
digitest equ 10
; config:
def_version equ 10
d0_for_mcp equ 0
mcp_adr equ $500
keyboard set 10
test equ 10
ifeq def_version
opt d-
org $2500
keyboard set 0
endc
section text
ifne def_version
pea start(pc)
move.w #38,-(sp)
trap #14
addq.l #6,sp
clr.w -(sp)
trap #1
endc
start:
lea oldcpu(pc),a0
move.l sp,(a0)+
lea my_stack,sp
move.w sr,(a0)+
move.w #$2700,sr
move.l usp,a1
move.l a1,(a0)+
ifne def_version
moveq #$12,d0
bsr ikbd_wrt
moveq #$1a,d0
bsr ikbd_wrt
move.l $408.w,old_408
move.l #exit_with_408,$408.w
endc
lea oldvideo(pc),a0
move.b $ffff8260.w,(a0)+
move.b $ffff820a.w,(a0)+
move.l $ffff8200.w,(a0)+
movem.l $ffff8240.w,d0-d7
movem.l d0-d7,(a0)
movem.l black(pc),d0-d7
movem.l d0-d7,$ffff8240.w
lea oldvectors(pc),a0
move.l $68.w,(a0)+
move.l $70.w,(a0)+
move.l $114.w,(a0)+
move.l $118.w,(a0)+
move.l $120.w,(a0)+
move.l $134.w,(a0)+
move.l #nix,$68.w
move.l #nix,$70.w
move.l #nix,$114.w
ifeq keyboard
move.l #nix,$118.w
endc
move.l #nix,$120.w
move.l #nix,$134.w
lea oldmfp(pc),a0
move.b $fffffa07.w,(a0)+
move.b $fffffa09.w,(a0)+
move.b $fffffa13.w,(a0)+
move.b $fffffa15.w,(a0)+
move.b $fffffa17.w,(a0)+
move.b $fffffa19.w,(a0)+
move.b $fffffa1b.w,(a0)+
move.b $fffffa1d.w,(a0)+
bclr #3,$fffffa17.w
clr.b $fffffa07.w
ifeq keyboard
clr.b $fffffa09.w
endc
ifne keyboard
move.b #%01000000,$fffffa09.w
endc
bsr waitvbl1
move.b #0,$ffff8260.w
move.b #2,$ffff820a.w
bsr psginit
bsr mfp_test
; jmp screen
back:
lea my_stack,sp
bsr psginit
lea oldmfp(pc),a0
move.b (a0)+,$fffffa07.w
move.b (a0)+,$fffffa09.w
move.b (a0)+,$fffffa13.w
move.b (a0)+,$fffffa15.w
move.b (a0)+,$fffffa17.w
move.b (a0)+,$fffffa19.w
move.b (a0)+,$fffffa1b.w
move.b (a0)+,$fffffa1d.w
lea oldvectors(pc),a0
move.l (a0)+,$68.w
move.l (a0)+,$70.w
move.l (a0)+,$114.w
move.l (a0)+,$118.w
move.l (a0)+,$120.w
move.l (a0)+,$134.w
move.b #2,$ffff820a.w
bsr.s waitvbl1
move.b #0,$ffff820a.w
bsr.s waitvbl1
move.b #2,$ffff820a.w
bsr.s waitvbl1
lea oldvideo(pc),a0
move.b (a0)+,$ffff8260.w
move.b (a0)+,$ffff820a.w
move.l (a0)+,$ffff8200.w
movem.l (a0),d0-d7
movem.l d0-d7,$ffff8240.w
ifne def_version
moveq #$14,d0
bsr.s ikbd_wrt
moveq #$8,d0
bsr.s ikbd_wrt
endc
lea oldcpu(pc),a0
move.l (a0)+,sp
move.w (a0)+,sr
move.l (a0)+,a1
move.l a1,usp
ifne def_version
move.l old_408(pc),$408.w
rts
endc
ifeq def_version
moveq #d0_for_mcp,d0
jsr mcp_adr+0.w
endc
psginit:
moveq #15,d0
lea psginittab,a1
lea $ffff8800.w,a0
nextinit:
move.b (a1)+,(a0)
move.b (a1)+,2(a0)
dbf d0,nextinit
; move.b #7,(a0)
; move.b #$7f,2(a0)
; move.b #14,(a0)
; move.b #$26,2(a0)
rts
waitvbl1:
move.w #9000,d0
waitvbl2:
dbf d0,waitvbl2
waitvbl:
lea $ffff8209.w,a0
movep.w -8(a0),d0
waitvbl3:
tst.b (a0)
bne.s waitvbl3
movep.w -4(a0),d1
cmp.w d0,d1
bne.s waitvbl3
rts
ikbd_wrt:
lea $fffffc00.w,a0
ik_wait:
move.b (a0),d1
btst #1,d1
beq.s ik_wait
move.b d0,2(a0)
rts
mfp_test:
move.w #$2700,sr
bsr.s waitvbl
bsr.s waitvbl
move.b #0,$fffffa19.w
move.b #255,$fffffa1f.w
move.b #$20,$fffffa07.w
move.b #0,$fffffa13.w
moveq #30,d1
lea $ffff8209.w,a0
check_mfp_s1:
move.b (a0),d0
beq.s check_mfp_s1
sub.w d0,d1
lsl.w d1,d1
move.b #0,$fffffa0b.w
move.b #1,$fffffa19.w
moveq #-1,d0
mfp_test_loop:
dbf d0,mfp_test_loop
moveq #0,d0
move.b $fffffa1f.w,d0
move.b #0,$fffffa19.w
cmp.w #$9b,d0
ble.s mfp_of_my_st
move.w #-1,mfp_type
mfp_of_my_st:
rts
ifne def_version
dc.l 'XBRA'
dc.l 'TFSY'
old_408:
dc.l 0
exit_with_408:
bsr.s exit
move.l old_408(pc),a0
jmp (a0)
endc
exit:
movem.l black(pc),d0-d7
movem.l d0-d7,$ffff8240.w
bra back
nix:
rte
oldcpu: ds.w 4
oldvideo: ds.w 19
oldvectors: ds.l 6
oldmfp: ds.w 5
mfp_type: ds.w 1
black: ds.l 16
****************************************************************
;overscan:equ 0
; Double Megadistorter by Gunstick (c) ULM 1990
; we know! it's long, but it works ! And it's from ULM !!!
; dc.w $c8*4
; dc.w 138*4
dc.w 195*4
; dc.w 167*4
; dc.w 197*4
; dc.w 167*4
; dc.w 255*4
dc.w 128*4
digisound:
; incbin "includes\telgraph.dmn"
; incbin "includes\jasy75.dmn"
; incbin "includes\senn_l1.dmn"
; incbin "includes\senn_l2.dmn"
; incbin "includes\luna.dmn"
; incbin "includes\luna2.dmn"
; incbin "includes\infinity.dmn"
digiend:
dc.w 159*4
digisound2:
digiend2:
even
font:
even
fontend:
kotz:
dc.l 0
noswreset:
rts
;--------------------------------------------------------
calc_mdist MACRO
move.w (a3)+,d6
sub.w (a4)+,d6
movem.l (a5,d6),d3/d4/d5/d6
ENDM
do_mdist MACRO
lea 64(a5),a5
move.b #1,$ffff8260.w ;GunsticK's right border end switch
move.b #0,$ffff8260.w
movem.l d3/d4/d5,$ffff8250.w ;mdist
; move.l buffer,buffer
; dcb 9,$4e71
move.b #2,$ffff8260.w ;Open left border
move.b #0,$ffff8260.w
move.l d6,$ffff825c.w ;mdist
; dcb 4,$4e71
ENDM
calc_mdist2 MACRO
move.w (a3)+,d6
sub.w (a4)+,d6
movem.l (a5,d6),d4/d5/d6/a2
ENDM
do_mdist2 MACRO
lea 64(a5),a5
move.b #1,$ffff8260.w ;GunsticK's right border end switch
move.b #0,$ffff8260.w
movem.l d4/d5/d6,$ffff8250.w ;mdist
; move.l buffer,buffer
; dcb 9,$4e71
move.b #2,$ffff8260.w ;Open left border
move.b #0,$ffff8260.w
move.l a2,$ffff825c.w ;mdist
; dcb 4,$4e71
ENDM
calc_mdist02 MACRO
move.w (a3)+,d6
sub.w (a4)+,d6
movem.l (a5,d6),d2/d4/d5/d6
ENDM
do_mdist02 MACRO
lea 64(a5),a5
move.b #1,$ffff8260.w ;GunsticK's right border end switch
move.b #0,$ffff8260.w
movem.l d2/d4/d5,$ffff8250.w ;mdist
; dcb 9,$4e71
move.b #2,$ffff8260.w ;Open left border
move.b #0,$ffff8260.w
move.l d6,$ffff825c.w ;mdist
; dcb 4,$4e71
ENDM
dcb 17-1-11,$4e71
moveq #0,d7
; megadistorter test
; lea 0(a0,d7),a0
movem.l (a0),d4/d5/d6/d7
digi1 MACRO
; not.w kotz
; bne.s *+4
; illegal
ifne digitest
moveq #-1,d6 ;~1
move.b (a6),d6 ;~2
add.w d6,d6 ;~1
add.w (a7,d6),d7 ;~4
endc
ifeq digitest
move.w #$700,$ffff8240.w
move.w #$200,$ffff8240.w
endc
andi.w #$ff*4,d7 ;~2
move.l (a7,d7),d6
movep.l d6,$ffff8800-512-downthere(a7) ;~7
ENDM
digi2 MACRO
; not.w kotz
; beq.s *+4
; illegal
ifne digitest
moveq #-1,d6 ;~1
move.b (a6)+,d6 ;~2
add.w d6,d6 ;~1
add.w 2(a7,d6),d7 ;~4
endc
ifeq digitest
move.w #$070,$ffff8240.w
move.w #$020,$ffff8240.w
endc
andi.w #$ff*4,d7 ;~2
move.l (a7,d7),d6 ;~5
movep.l d6,$ffff8800-512-downthere(a7) ;~7
ENDM
even
;**********************************************************
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,%11111111,8,16,9,0,10,0,11,60,12,0,13,14,$ff,0
even
hwpalette:
dc.w $000,$227,$005,$654,$543,$432,$321,$777
; dc.w $000,$227,$005,$740,$730,$720,$710,$777
dc.w $777,$666,$555,$444,$333,$222,$111,$002
dc.w $0700,$0707,$0474,$0777,$0606,$0505,$0404,$303
graphic:
dc.w $d555,$3333,$0f0f,$ff
cheatcodepos:
dc.l cheatcode
cheatcode: ; B U S cr
dc.b 48,22,48+$80,31,22+$80,28,31+$80,28+$80,0
even
lowbyte:
dc.b 0
even
hwscrolldat:
even
section bss
bss_start: ;here starts the bss
screenad: ds.l 1
ds.l 20
my_stack:
stack: ds.l 1
oldpal: ds.w 16
oldres: ds.w 1
screenad1:ds.w 1
screenad2:ds.l 1
screenadr:ds.l 1
resync: ds.w 1
digswitch: ds.w 1 ;use digi1 or digi2
logbase: ds.l 1 ;screen where to put scroll
tabentry:
ds.l 1 ;for hwscroll
cpybufdest:
ds.l 1 ;copy from (this+4buffers-1scroll) to (this)
shiftcnt:
ds.w 1 ;counter for shifter
count:
ds.l 1 ;for some dbf without register
nextscrn:
ds.l 1 ;points to next screenadress to be used
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 scrolldisttable
disttable:
ds.w 20*2 ;scrolldisttable
digiptr:
ds.l 1 ;ptr to begin digi after vbl
predigi:
ds.l 40 ;40 lines predigitized (20*2 values)
mactcurv:
ds.l 1 ;ptr in active curve
mnextcurv:
ds.l 1 ;next mdist curv
mdistcurvval:
ds.w 1 ;curve
mdistcurvptr:
ds.l 1
mdistadjustptr:
ds.l 1 ;pointer to the distorter adjust table
mdistadjust:
ds.w 300*2 ;adjusttable for the two distorters
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:
; ds.l 1
; ds.l 1
; ds.w 1
; ds.w 1
ds.l 2*26*16+1+1+1
screenmem:
ds.w 230*6
ecran:
rept 5
ds.l 15700
endr
endprg:
bss_end: ;here ends the bss
end