font and digisound are at the beginning of the program (always

think differently, it may be faster).
The planes of font and background are switched. No more right
border flickering. Color 0 is now a font color.
master
Georges Kesseler 2012-02-21 01:51:04 +01:00
parent 33d0a26f89
commit 7ae258042a
7 changed files with 109 additions and 118 deletions

BIN
3DFONT20.NEO Normal file

Binary file not shown.

BIN
FOND.SPC Normal file

Binary file not shown.

BIN
FONTMAK.BAS Normal file

Binary file not shown.

View File

@ -1,9 +1,7 @@
backport equ 10
overscan:equ 0 overscan:equ 0
; Double Megadistorter by Gunstick (c) ULM 1990 ; Double Megadistorter by Gunstick (c) ULM 1990
; we know! it's long, but it works ! And it's from ULM !!! ; we know! it's long, but it works ! And it's from ULM !!!
;make : distcalcloop4 and vor+rueck 2,3 + 4
parallax equ 10 parallax equ 10
@ -26,6 +24,12 @@ digisound:
incbin "includes\telgraph.dmn" incbin "includes\telgraph.dmn"
digiend: digiend:
even even
font:
incbin "includes\font.bin"
even
fontend:
kotz: kotz:
dc.l 0 dc.l 0
noswreset: noswreset:
@ -190,11 +194,11 @@ do_mdist MACRO
lea 64(a5),a5 lea 64(a5),a5
move.b #1,$ffff8260.w ;GunsticK's right border end switch move.b #1,$ffff8260.w ;GunsticK's right border end switch
move.b #0,$ffff8260.w move.b #0,$ffff8260.w
movem.l d3/d4/d5,$ffff8240.w ;mdist movem.l d3/d4/d5,$ffff8250.w ;mdist
; dcb $4e71,9 ; dcb $4e71,9
move.b #2,$ffff8260.w ;Open left border move.b #2,$ffff8260.w ;Open left border
move.b #0,$ffff8260.w move.b #0,$ffff8260.w
move.l d6,$ffff824c.w ;mdist move.l d6,$ffff825c.w ;mdist
; dcb $4e71,4 ; dcb $4e71,4
ENDM ENDM
@ -208,11 +212,11 @@ do_mdist2 MACRO
lea 64(a5),a5 lea 64(a5),a5
move.b #1,$ffff8260.w ;GunsticK's right border end switch move.b #1,$ffff8260.w ;GunsticK's right border end switch
move.b #0,$ffff8260.w move.b #0,$ffff8260.w
movem.l d4/d5/d6,$ffff8240.w ;mdist movem.l d4/d5/d6,$ffff8250.w ;mdist
; dcb $4e71,9 ; dcb $4e71,9
move.b #2,$ffff8260.w ;Open left border move.b #2,$ffff8260.w ;Open left border
move.b #0,$ffff8260.w move.b #0,$ffff8260.w
move.l a2,$ffff824c.w ;mdist move.l a2,$ffff825c.w ;mdist
; dcb $4e71,4 ; dcb $4e71,4
ENDM ENDM
@ -226,11 +230,11 @@ do_mdist02 MACRO
lea 64(a5),a5 lea 64(a5),a5
move.b #1,$ffff8260.w ;GunsticK's right border end switch move.b #1,$ffff8260.w ;GunsticK's right border end switch
move.b #0,$ffff8260.w move.b #0,$ffff8260.w
movem.l d2/d4/d5,$ffff8240.w ;mdist movem.l d2/d4/d5,$ffff8250.w ;mdist
; dcb $4e71,9 ; dcb $4e71,9
move.b #2,$ffff8260.w ;Open left border move.b #2,$ffff8260.w ;Open left border
move.b #0,$ffff8260.w move.b #0,$ffff8260.w
move.l d6,$ffff824c.w ;mdist move.l d6,$ffff825c.w ;mdist
; dcb $4e71,4 ; dcb $4e71,4
ENDM ENDM
@ -481,7 +485,7 @@ __no_vbl:
movem.l d0-d6/a0,$ffff8240.w movem.l d0-d6/a0,$ffff8240.w
;blaf equ 174-55 ;blaf equ 174-55
blaf equ 174 blaf equ 174-55
move.w #1500-30,d0 move.w #1500-30,d0
opentopwait: opentopwait:
dbra d0,opentopwait dbra d0,opentopwait
@ -737,10 +741,11 @@ _notnextwavetab:
move.w d_3,distcalc ;~16 move.w d_3,distcalc ;~16
scrhigh equ 20 scrhigh equ 20
fontpartlen equ (fontend-font)/scrhigh
lea disttable+0,a_2 ;~12 scroll begins 18 lines before end of screen lea disttable+0,a_2 ;~12 scroll begins 18 lines before end of screen
lea shift,a_0 ;~12 pointer to the shifts lea shift,a_0 ;~12 pointer to the shifts
move.w #-(scrhigh*8),count ;~20 scroll has 18 lines move.w #-(scrhigh*fontpartlen),count ;~20 -14400
distcalcloop: ;(~12) distcalcloop: ;(~12)
;free: d0/d3-d7/a1-a2/a4-a7/usp cpy:d0/d3/a1/a2 ;free: d0/d3-d7/a1-a2/a4-a7/usp cpy:d0/d3/a1/a2
@ -797,11 +802,11 @@ indistcalcloop:
dcb $4e71,8-2 dcb $4e71,8-2
do_mdist do_mdist
dcb $4e71,4 dcb $4e71,3
move.l usp,a_2 move.l usp,a_2
lea linebuffend-linebuffbegin(a_0),a_0 ;~8 next line lea linebuffend-linebuffbegin(a_0),a_0 ;~8 next line
addq.w #8,count ;~4 add.w #fontpartlen,count ;~4
bne distcalcloop2 ;~12 bne distcalcloop2 ;~12
bra enddistcalc bra enddistcalc
@ -865,11 +870,11 @@ indistcalcloop2:
dcb $4e71,8-2 dcb $4e71,8-2
do_mdist do_mdist
dcb $4e71,4 dcb $4e71,3
move.l usp,a_2 move.l usp,a_2
lea linebuffend-linebuffbegin(a_0),a_0 ;~8 next line lea linebuffend-linebuffbegin(a_0),a_0 ;~8 next line
addq.w #8,count ;~4 add.w #fontpartlen,count ;~4
bne distcalcloop3 ;~12 bne distcalcloop3 ;~12
bra enddistcalc bra enddistcalc
@ -916,11 +921,11 @@ indistcalcloop3:
dcb $4e71,8-2 dcb $4e71,8-2
do_mdist do_mdist
dcb $4e71,4 dcb $4e71,3
move.l usp,a_2 move.l usp,a_2
lea linebuffend-linebuffbegin(a_0),a_0 ;~8 next line lea linebuffend-linebuffbegin(a_0),a_0 ;~8 next line
addq.w #8,count ;~4 add.w #fontpartlen,count ;~4
bne distcalcloop4 ;~12 bne distcalcloop4 ;~12
bra enddistcalc bra enddistcalc
@ -986,11 +991,11 @@ indistcalcloop4:
dcb $4e71,8-2 dcb $4e71,8-2
do_mdist do_mdist
dcb $4e71,4 dcb $4e71,3
move.l usp,a_2 move.l usp,a_2
lea linebuffend-linebuffbegin(a_0),a_0 ;~8 next line lea linebuffend-linebuffbegin(a_0),a_0 ;~8 next line
addq.w #8,count ;~4 add.w #fontpartlen,count ;~4
bne distcalcloop ;~12 bne distcalcloop ;~12
bra enddistcalc bra enddistcalc
@ -1052,7 +1057,6 @@ enddistcalc:
;=-| read the new distortions and shift the buffers ;=-| read the new distortions and shift the buffers
; letters of font must be 256 bytes !!!!!!!!
;-> advance this line by one word ;-> advance this line by one word
vorwaerts: vorwaerts:
move.w d_2,(a_0) ;~8 write back new shift move.w d_2,(a_0) ;~8 write back new shift
@ -1077,9 +1081,12 @@ cont2:
; | ; |
;UNLIMITED MATRICKS a bit of C appears somewhere ;UNLIMITED MATRICKS a bit of C appears somewhere
;now we have to write a bit of K and C ;now we have to write a bit of K and C
movep.w 0(a_1),d_1 ;~16 previous letter : C nop
movep.w 1(a_1),d_2 ;~16 act letter : K moveq #0,d_1
tst.b d_1 ;~4 test letter after act : S moveq #0,d_2
move.b (a_1),d_1 ;~8 previous letter : C
move.b 1(a_1),d_2 ;~12 act letter : K
tst.b 2(a_1) ;~12 test letter after act : S
bne.s nottextend ;~8 bne.s nottextend ;~8
lea scrolltext,a_1 ;~12 lea scrolltext,a_1 ;~12
nop nop
@ -1087,11 +1094,12 @@ cont2:
nop nop
_nottextend: _nottextend:
move.l a_1,textptr-shift(a_0) ;~16 textptr points to K move.l a_1,textptr-shift(a_0) ;~16 textptr points to K
clr.b d_1 ;~4 C ; clr.b d_1 ;~4 C
lsr.w #1,d_1 ;~8 dcb $4e71,6-2-2-2
clr.b d_2 ;~4 K lsl.w #3,d_1 ;~8
lsr.w #1,d_2 ;~8 ; clr.b d_2 ;~4 K
lea font+(scrhigh*8),a_1 ;~8 lsl.w #3,d_2 ;~8
lea font-8+(scrhigh*fontpartlen),a_1 ;~8
add.w count,a_1 ;~20 add.w count,a_1 ;~20
lea (a_1,d_1),a_2 ;~12 C lea (a_1,d_1),a_2 ;~12 C
movem.l (a_1,d_2),d_1/d_3 ;~36 K movem.l (a_1,d_2),d_1/d_3 ;~36 K
@ -1105,7 +1113,6 @@ _nottextend:
move.w (a_2)+,d_2 ;~8 move.w (a_2)+,d_2 ;~8
move.w (a_2)+,d_3 ;~8 move.w (a_2)+,d_3 ;~8
dcb $4e71,6-2-2
calc_mdist2 calc_mdist2
move.b #0,$ffff820a.w ;Open right border move.b #0,$ffff820a.w ;Open right border
@ -1364,7 +1371,6 @@ cont5:
add.l #25*8,bufptr-shift(a_0) ;~32 add.l #25*8,bufptr-shift(a_0) ;~32
_rueckbufok: _rueckbufok:
move.l textptr-shift(a_0),a_1 ;~16 move.l textptr-shift(a_0),a_1 ;~16
dcb $4e71,7-2-2
;movep : 5 nops weniger ;movep : 5 nops weniger
;actual = if any bit of the letter appears in one buffer ;actual = if any bit of the letter appears in one buffer
; textptr ; textptr
@ -1372,15 +1378,18 @@ _rueckbufok:
;YEAH THIS IS UNLIMITED MATRICKS a bit of C appears somewhere ;YEAH THIS IS UNLIMITED MATRICKS a bit of C appears somewhere
;a bit of A appears somewhere ;a bit of A appears somewhere
;now we have to write a bit of E and A ;now we have to write a bit of E and A
movep.w -27(a_1),d_1 ;~16 previous letter : E moveq #0,d_1
movep.w -26(a_1),d_2 ;~16 act letter : A moveq #0,d_2
move.b -27(a_1),d_1 ;~12 previous letter : E
move.b -26(a_1),d_2 ;~12 act letter : A
lea -1(a_1),a_1 ;~8 lea -1(a_1),a_1 ;~8
move.l a_1,textptr-shift(a_0) ;~16 textptr points to I move.l a_1,textptr-shift(a_0) ;~16 textptr points to I
clr.b d_1 ;~4 E ; clr.b d_1 ;~4 E
lsr.w #1,d_1 ;~8 lsl.w #3,d_1 ;~8
clr.b d_2 ;~4 A dcb $4e71,7-2-2-2+2
lsr.w #1,d_2 ;~8 ; clr.b d_2 ;~4 A
lea font+(scrhigh*8),a_1 ;~12 lsl.w #3,d_2 ;~8
lea font-8+(scrhigh*fontpartlen),a_1 ;~8
add.w count,a_1 ;~20 add.w count,a_1 ;~20
lea (a_1,d_1),a_2 ;~12 E lea (a_1,d_1),a_2 ;~12 E
movem.l (a_1,d_2),d_1/d_3 ;~36 A movem.l (a_1,d_2),d_1/d_3 ;~36 A
@ -1410,18 +1419,22 @@ vorwaerts2:
move.w d_2,(a_0) move.w d_2,(a_0)
move.l textptr-shift(a_0),a_1 move.l textptr-shift(a_0),a_1
dcb $4e71,2 dcb $4e71,2
dcb $4e71,25-17 dcb $4e71,25-17-3-1-1
movep.w 0(a_1),d_1 ;~16 previous letter : C moveq #0,d_1
movep.w 1(a_1),d_2 ;~16 act letter : K moveq #0,d_2
tst.b d_1 ;~4 test letter after act : S move.b (a_1),d_1 ;~16 previous letter : C
move.b 1(a_1),d_2 ;~16 act letter : K
tst.b 2(a_1) ;~4 test letter after act : S
bne.s nottextend2 ;~8 bne.s nottextend2 ;~8
lea scrolltext,a_1 ;~12 lea scrolltext,a_1 ;~12
nop nop
nop nop
nop nop
_nottextend2: _nottextend2:
; clr.b d_1 ;~4 C
lsl.w #3,d_1 ;~8
nop
calc_mdist calc_mdist
@ -1432,16 +1445,14 @@ nottextend2: ;~12
addq.w #1,a_1 ;~8 addq.w #1,a_1 ;~8
bra _nottextend2 ;~12 bra _nottextend2 ;~12
cont22: cont22:
dcb $4e71,5-2-1-2 dcb $4e71,5-2
clr.b d_1 ;~4 C ; clr.b d_2 ;~4 K
lsr.w #1,d_1 ;~8
do_mdist do_mdist
move.l a_1,textptr-shift(a_0) ;~16 textptr points to K move.l a_1,textptr-shift(a_0) ;~16 textptr points to K
clr.b d_2 ;~4 K lsl.w #3,d_2 ;~8
lsr.w #1,d_2 ;~8 lea font-8+(scrhigh*fontpartlen),a_1 ;~8
lea font+(scrhigh*8),a_1 ;~8
add.w count,a_1 ;~20 add.w count,a_1 ;~20
lea (a_1,d_1),a_2 ;~12 C lea (a_1,d_1),a_2 ;~12 C
movem.l (a_1,d_2),d_1/d_3 ;~36 K movem.l (a_1,d_2),d_1/d_3 ;~36 K
@ -1707,22 +1718,22 @@ cont52:
dcb $4e71,5-2 dcb $4e71,5-2
do_mdist do_mdist
moveq #0,d_1
dcb $4e71,2 moveq #0,d_2
movep.w -27(a_1),d_1 ;~16 previous letter : E move.b -27(a_1),d_1 ;~16 previous letter : E
movep.w -26(a_1),d_2 ;~16 act letter : A move.b -26(a_1),d_2 ;~16 act letter : A
lea -1(a_1),a_1 ;~8 lea -1(a_1),a_1 ;~8
move.l a_1,textptr-shift(a_0) ;~16 textptr points to I move.l a_1,textptr-shift(a_0) ;~16 textptr points to I
clr.b d_1 ;~4 E ; clr.b d_1 ;~4 E
lsr.w #1,d_1 ;~8 lsl.w #3,d_1 ;~8
clr.b d_2 ;~4 A ; clr.b d_2 ;~4 A
lsr.w #1,d_2 ;~8 lsl.w #3,d_2 ;~8
lea font+(scrhigh*8),a_1 ;~12 lea font-8+(scrhigh*fontpartlen),a_1 ;~8
add.w count,a_1 ;~20 add.w count,a_1 ;~20
lea (a_1,d_1),a_2 ;~12 E lea (a_1,d_1),a_2 ;~12 E
movem.l (a_1,d_2),d_1/d_3 ;~36 A movem.l (a_1,d_2),d_1/d_3 ;~36 A
dcb $4e71,7+18-22-2 dcb $4e71,7+18-22
digi2 digi2
calc_mdist02 calc_mdist02
move.b #0,$ffff820a.w ;Open right border move.b #0,$ffff820a.w ;Open right border
@ -1762,9 +1773,11 @@ cont23:
dcb $4e71,5-2 dcb $4e71,5-2
do_mdist do_mdist
movep.w 0(a_1),d_1 ;~16 previous letter : C moveq #0,d_1
movep.w 1(a_1),d_2 ;~16 act letter : K moveq #0,d_2
tst.b d_1 ;~4 test letter after act : S move.b (a_1),d_1 ;~16 previous letter : C
move.b 1(a_1),d_2 ;~16 act letter : K
tst.b 2(a_1) ;~4 test letter after act : S
bne.s nottextend3 ;~8 bne.s nottextend3 ;~8
lea scrolltext,a_1 ;~12 lea scrolltext,a_1 ;~12
nop nop
@ -1772,11 +1785,12 @@ cont23:
nop nop
_nottextend3: _nottextend3:
move.l a_1,textptr-shift(a_0) ;~16 textptr points to K move.l a_1,textptr-shift(a_0) ;~16 textptr points to K
clr.b d_1 ;~4 C ; clr.b d_1 ;~4 C
lsr.w #1,d_1 ;~8 lsl.w #3,d_1 ;~8
clr.b d_2 ;~4 K ; clr.b d_2 ;~4 K
lsr.w #1,d_2 ;~8 dcb $4e71,6-2-2-1
lea font+(scrhigh*8),a_1 ;~8 lsl.w #3,d_2 ;~8
lea font-8+(scrhigh*fontpartlen),a_1 ;~8
add.w count,a_1 ;~20 add.w count,a_1 ;~20
lea (a_1,d_1),a_2 ;~12 C lea (a_1,d_1),a_2 ;~12 C
movem.l (a_1,d_2),d_1/d_3 ;~36 K movem.l (a_1,d_2),d_1/d_3 ;~36 K
@ -1789,7 +1803,6 @@ _nottextend3:
move.w (a_2)+,d_1 ;~8 move.w (a_2)+,d_1 ;~8
move.w (a_2)+,d_2 ;~8 move.w (a_2)+,d_2 ;~8
move.w (a_2)+,d_3 ;~8 move.w (a_2)+,d_3 ;~8
dcb $4e71,6-2-2
calc_mdist2 calc_mdist2
move.b #0,$ffff820a.w ;Open right border move.b #0,$ffff820a.w ;Open right border
@ -2044,16 +2057,16 @@ cont53:
add.l #25*8,bufptr-shift(a_0) ;~32 add.l #25*8,bufptr-shift(a_0) ;~32
_rueckbufok3: _rueckbufok3:
move.l textptr-shift(a_0),a_1 ;~16 move.l textptr-shift(a_0),a_1 ;~16
dcb $4e71,7-2-2 moveq #0,d_1
movep.w -27(a_1),d_1 ;~16 previous letter : E moveq #0,d_2
movep.w -26(a_1),d_2 ;~16 act letter : A move.b -27(a_1),d_1 ;~16 previous letter : E
move.b -26(a_1),d_2 ;~16 act letter : A
lea -1(a_1),a_1 ;~8 lea -1(a_1),a_1 ;~8
move.l a_1,textptr-shift(a_0) ;~16 textptr points to I move.l a_1,textptr-shift(a_0) ;~16 textptr points to I
clr.b d_1 ;~4 E lsl.w #3,d_1 ;~8
lsr.w #1,d_1 ;~8 dcb $4e71,7-2-2
clr.b d_2 ;~4 A lsl.w #3,d_2 ;~8
lsr.w #1,d_2 ;~8 lea font-8+(scrhigh*fontpartlen),a_1 ;~8
lea font+(scrhigh*8),a_1 ;~12
add.w count,a_1 ;~20 add.w count,a_1 ;~20
lea (a_1,d_1),a_2 ;~12 E lea (a_1,d_1),a_2 ;~12 E
movem.l (a_1,d_2),d_1/d_3 ;~36 A movem.l (a_1,d_2),d_1/d_3 ;~36 A
@ -2095,9 +2108,11 @@ cont24:
dcb $4e71,5-2 dcb $4e71,5-2
do_mdist do_mdist
movep.w 0(a_1),d_1 ;~16 previous letter : C moveq #0,d_1
movep.w 1(a_1),d_2 ;~16 act letter : K moveq #0,d_2
tst.b d_1 ;~4 test letter after act : S move.b (a_1),d_1 ;~16 previous letter : C
move.b 1(a_1),d_2 ;~16 act letter : K
tst.b 2(a_1) ;~4 test letter after act : S
bne.s nottextend4 ;~8 bne.s nottextend4 ;~8
lea scrolltext,a_1 ;~12 lea scrolltext,a_1 ;~12
nop nop
@ -2105,11 +2120,10 @@ cont24:
nop nop
_nottextend4: _nottextend4:
move.l a_1,textptr-shift(a_0) ;~16 textptr points to K move.l a_1,textptr-shift(a_0) ;~16 textptr points to K
clr.b d_1 ;~4 C lsl.w #3,d_1 ;~8
lsr.w #1,d_1 ;~8 dcb $4e71,6-2-2-1
clr.b d_2 ;~4 K lsl.w #3,d_2 ;~8
lsr.w #1,d_2 ;~8 lea font-8+(scrhigh*fontpartlen),a_1 ;~8
lea font+(scrhigh*8),a_1 ;~8
add.w count,a_1 ;~20 add.w count,a_1 ;~20
lea (a_1,d_1),a_2 ;~12 C lea (a_1,d_1),a_2 ;~12 C
movem.l (a_1,d_2),d_1/d_3 ;~36 K movem.l (a_1,d_2),d_1/d_3 ;~36 K
@ -2122,7 +2136,6 @@ _nottextend4:
move.w (a_2)+,d_1 ;~8 move.w (a_2)+,d_1 ;~8
move.w (a_2)+,d_2 ;~8 move.w (a_2)+,d_2 ;~8
move.w (a_2)+,d_3 ;~8 move.w (a_2)+,d_3 ;~8
dcb $4e71,6-2-2
calc_mdist2 calc_mdist2
move.b #0,$ffff820a.w ;Open right border move.b #0,$ffff820a.w ;Open right border
@ -2362,16 +2375,16 @@ cont54:
add.l #25*8,bufptr-shift(a_0) ;~32 add.l #25*8,bufptr-shift(a_0) ;~32
_rueckbufok4: _rueckbufok4:
move.l textptr-shift(a_0),a_1 ;~16 move.l textptr-shift(a_0),a_1 ;~16
dcb $4e71,7-2-2 moveq #0,d_1
movep.w -27(a_1),d_1 ;~16 previous letter : E moveq #0,d_2
movep.w -26(a_1),d_2 ;~16 act letter : A move.b -27(a_1),d_1 ;~16 previous letter : E
move.b -26(a_1),d_2 ;~16 act letter : A
lea -1(a_1),a_1 ;~8 lea -1(a_1),a_1 ;~8
move.l a_1,textptr-shift(a_0) ;~16 textptr points to I move.l a_1,textptr-shift(a_0) ;~16 textptr points to I
clr.b d_1 ;~4 E lsl.w #3,d_1 ;~8
lsr.w #1,d_1 ;~8 dcb $4e71,7-2-2
clr.b d_2 ;~4 A lsl.w #3,d_2 ;~8
lsr.w #1,d_2 ;~8 lea font-8+(scrhigh*fontpartlen),a_1 ;~8
lea font+(scrhigh*8),a_1 ;~12
add.w count,a_1 ;~20 add.w count,a_1 ;~20
lea (a_1,d_1),a_2 ;~12 E lea (a_1,d_1),a_2 ;~12 E
movem.l (a_1,d_2),d_1/d_3 ;~36 A movem.l (a_1,d_2),d_1/d_3 ;~36 A
@ -2498,14 +2511,6 @@ o_endcpy:
bne scrollcpy bne scrollcpy
endscrollcpy: endscrollcpy:
ifne backport
move.b #0,$fffffa19.w
move.b #80,$fffffa1f.w
move.b #32,$fffffa07.w
move.b #0,$fffffa0b.w
move.b #2,$fffffa19.w
endc
c0 equr d0 c0 equr d0
c1 equr d1 c1 equr d1
c2 equr d2 c2 equr d2
@ -2810,7 +2815,7 @@ mbounceok:
lea 15*2(a4),a4 lea 15*2(a4),a4
calc_mdist calc_mdist
movem.l d3/d4/d5/d6,hwpalette movem.l d3/d4/d5/d6,hwpalette+16
lea 64(a5),a5 lea 64(a5),a5
@ -5902,9 +5907,6 @@ openlowtab:
dc.b 2,2,2,2,2,2 dc.b 2,2,2,2,2,2
dc.b 2,2,2,2,2,2 dc.b 2,2,2,2,2,2
even
font equ *-32*8
incbin "includes\font.bin"
even even
wavetab: wavetab:
; dc.l byteschief,0 ; dc.l byteschief,0
@ -6218,25 +6220,14 @@ space equ 87
dc.b space,space,u,u+1,space,l,l+1,space,m,m+1,space,az,az+1,az,az+1,az,az+1 dc.b space,space,u,u+1,space,l,l+1,space,m,m+1,space,az,az+1,az,az+1,az,az+1
dc.b space,space dc.b space,space
scrolltext: scrolltext:
dc.b zero,zero,zero,zero,zero,zero,zero,zero,0 ; dc.b zero,zero,zero,zero,zero,zero,zero,zero,0
dc.b space,space,space,h,h+1,e,e+1,l,l+1,l,l+1,o,o+1,space,space dc.b space,space,space,h,h+1,e,e+1,l,l+1,l,l+1,o,o+1,space,space
dc.b t,t+1,h,h+1,i,i+1,s,s+1,space,space,i,i+1,s,s+1,space,space dc.b t,t+1,h,h+1,i,i+1,s,s+1,space,space,i,i+1,s,s+1,space,space
dc.b g,g+1,u,u+1,n,n+1,s,s+1,t,t+1,i,i+1,c,c+1,k,k+1,space,s,s+1 dc.b g,g+1,u,u+1,n,n+1,s,s+1,t,t+1,i,i+1,c,c+1,k,k+1,space,s,s+1
dc.b space,space,space,r,r+1,e,e+1,v,v+1,o,o+1,l,l+1,u,u+1,t,t+1,i,i+1,o,o+1 dc.b space,space,space,r,r+1,e,e+1,v,v+1,o,o+1,l,l+1,u,u+1,t,t+1,i,i+1,o,o+1
dc.b n,n+1,a,a+1,r,r+1,y,y+1,space,space,f,f+1,u,u+1,l,l+1,l,l+1,mi,mi+1 dc.b n,n+1,a,a+1,r,r+1,y,y+1,space,space,f,f+1,u,u+1,l,l+1,l,l+1,mi,mi+1
dc.b s,s+1,c,c+1,r,r+1,e,e+1,e,e+1,n,n+1,mi,mi+1,s,s+1,c,c+1,r,r+1,e,e+1,e,e+1,n,n+1 dc.b s,s+1,c,c+1,r,r+1,e,e+1,e,e+1,n,n+1,mi,mi+1,s,s+1,c,c+1,r,r+1,e,e+1,e,e+1,n,n+1
dc.b space,az,az+1,az,az+1,space,space,space,0 dc.b space,az,az+1,az,az+1,space,space,space
dc.b space,space,space,space,space,space,space,space
dc.b space,space,space,space,space,space,space,space
dc.b space,space,space,space,space,space,space,space
dc.b space,space,space,space,space,space,space,space
dc.b space,space,space,space,space,space,space,space
dc.b space,space,space,space,space,space,space,space
dc.b space,space,space,space,space,space,space,space
dc.b space,space,space,space,space,space,space,space
dc.b space,space,space,space,space,space,space,space
dc.b space,space,space,space,space,space,space,space
dc.b space,space,space,space,space,space,space,space
dc.b n,n+1,o,o+1,b,b+1,o,o+1,d,d+1,y,y+1 dc.b n,n+1,o,o+1,b,b+1,o,o+1,d,d+1,y,y+1
dc.b space,space,c,c+1,a,a+1,n,n+1,space,space,b,b+1,e,e+1,a,a+1,t,t+1 dc.b space,space,c,c+1,a,a+1,n,n+1,space,space,b,b+1,e,e+1,a,a+1,t,t+1
dc.b space,space,u,u+1,space,l,l+1,space,m,m+1,space,az,az+1,az,az+1,az,az+1 dc.b space,space,u,u+1,space,l,l+1,space,m,m+1,space,az,az+1,az,az+1,az,az+1
@ -6266,8 +6257,8 @@ 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 dc.b 7,$7f,8,7,9,7,10,7,$ff,0
even even
hwpalette: hwpalette:
dc.w $0700,$0707,$0474,$0777,$0606,$0505,$0404,$303
dc.w $777,$666,$555,$444,$333,$222,$111,$002 dc.w $777,$666,$555,$444,$333,$222,$111,$002
dc.w $0700,$0707,$0474,$0777,$0606,$0505,$0404,$303
graphic: graphic:
dc.w $d555,$3333,$0f0f,$ff dc.w $d555,$3333,$0f0f,$ff
message: message:

BIN
PLANEINV.BAS Normal file

Binary file not shown.

BIN
PLANEROT.BAS Normal file

Binary file not shown.

Binary file not shown.