home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 4: Demo 1
/
almathera_demo1.bin
/
sourcecode
/
text4.s
< prev
next >
Wrap
Text File
|
1995-03-17
|
7KB
|
386 lines
opt c-,d+
incdir "df0:include/"
include graphics/gfx.i
include graphics/rastport.i
include graphics/graphics_lib.i
include exec/memory.i
include exec/exec_lib.i
include hardware/custom.i
custom equ $dff000
memory equ MEMF_CHIP+MEMF_CLEAR
lea GFXLIB,a1
MOVEQ #0,D0
CALLEXEC OPENLIBRARY
TST D0
BEQ ERROR
MOVE.L D0,_GFXBASE
MOVE.L #MYPICCY,MEMORY_POINTER
LEA MYBITMAP,A0
MOVE.L #$05,D0
MOVE.L #352,D1
MOVE.L #256,D2
CALLGRAF INITBITMAP
LEA MYRASTPORT,A1
CALLGRAF INITRASTPORT
LEA MYRASTPORT,A1
MOVE.L #MYBITMAP,RP_BITMAP(A1)
MOVE.L MEMORY_POINTER,D0
MOVE.L D0,D1
ADD.L #11264,D1
MOVE.L D1,D2
ADD.L #11264,D2
MOVE.L D2,D3
add.l #11264,D3
move.l d3,d4
add.l #11264,d4
LEA MYBITMAP,A0
MOVE.L D0,BM_PLANES(a0)
MOVE.L D1,BM_PLANES+4(a0)
MOVE.L D2,BM_PLANES+8(a0)
MOVE.L D3,BM_PLANES+12(A0)
move.l d4,BM_PLANES+16(a0)
MOVE.W D0,PL0L
MOVE.W D1,PL1L
MOVE.W D2,PL2L
MOVE.W D3,PL3L
move.w d4,pl4l
SWAP D0
SWAP D1
SWAP D2
SWAP D3
swap d4
MOVE.W D0,PL0H
MOVE.W D1,PL1H
MOVE.W D2,PL2H
MOVE.W D3,PL3H
move.w d4,pl4h
MOVE.L _GFXBASE,A6
ADD.L #$32,A6
MOVE.W #$80,DMACON
MOVE.L (A6),OLDCOPPER
MOVE.L #NEWCOPPER,(A6)
MOVE.W #$8080,DMACON
move.l #string,spoint
callexec forbid
move.b #0,cdown
move.w #$8010,$dff09a
move.l $6c,old
move.l #new,$6c
WAIT ANDI.B #$40,$BFE001
BNE WAIT
move.l old,$6c
callexec permit
MOVE.L _GFXBASE,A6
ADD.L #$32,A6
MOVE.W #$80,DMACON
MOVE.L OLDCOPPER,(A6)
MOVE.W #$8080,DMACON
move.w #$8020,$dff096
ERROR clr.l d0
move.w #$f,$dff096
move.w #$0,$dff0a8
move.w #$0,$dff0b8
move.w #$0,$dff0c8
move.w #$0,$dff0d8
RTS
subrt lea myfont,a1
clr.l d0
move.l spoint,a2
move.b (a2),d0 ; now has 33
cmp.b #254,d0
beq part2y
add.l #1,spoint
sub.b #32,d0 ; now =1
zza mulu #512,d0 ; now =512
add.l d0,a1
moveq #4,d0
lea mypiccy,a0
lea mypiccy,a2
ADD.l #9324,a0
add.l #9324,a2
outloop moveq #32,d1
inloop move.l (a1)+,(a0)
add.l #44,a0
sub.b #1,d1
cmp.b #0,d1
bne inloop
add.l #11264,a2
move.l a2,a0
sub.b #1,d0
cmp.b #0,d0
bne outloop
rts
part2y add.l #1,spoint
move.b #$dc,pauser
moveq #0,d0
bra zza
new: movem.l d0-d7/a0-a6,-(sp)
and #$10,$dff01e
beq out
move.w #$10,$dff09c
; woplist
; lea woplist+1,a0
; moveq #12,d0
; wpit move.b 12(a0),(a0)
; add.l #12,a0
; subi.b #1,d0
; cmp.b #0,d0
; bne wpit
; move.l woppt,a2
; move.b (a2),(a0)
; add.l #1,a2
; cmp.b #$fe,(a2)
; bne wopok
; move.l #wopdata,a2
;wopok move.l a2,woppt
cmp.b #0,pauser
beq zxcv
sub.b #1,pauser
bra out
zxcv cmp.b #0,cdown
bne bypass
move.b #6,cdown
bsr subrt
move.l spoint,a6
cmp.b #$ff,(a6)
bne bypass
move.l #string,spoint
bypass sub.b #1,cdown
moveq #4,d0
lea mypiccy+9324,a0
lea mypiccy+9326,a1
lp80: btst #14,$dff002 ; Thank's to TBY of FREESTYLE
; for the blitter info.
bne lp80
move.l a0,$dff054 ;dest
move.l a1,$dff050 ;source
move.w #$ffff,$dff044
move.w #$ffff,$dff046
move.w #0,$dff064
move.w #0,$dff066
move.w #%1100100111110000,$dff040
move.w #%0000000000000000,$dff042
move.w #%0000101000010111,$dff058; was 0000101100010111
adda.l #11264,a0
adda.l #11264,a1
dbf d0,lp80
out movem.l (sp)+,d0-d7/a0-a6
dc.w $4ef9
old dc.l 0
count dc.b 0
read dc.l 0
buffy ds.w 30
falagz dc.b 0
cdown dc.b 0
pauser dc.b 0
OLDCOPPER DC.L 0
NEWCOPPER DC.W $0100,$5200,$0102,$0000,$0104,$000A
DC.W $0108,$0002,$010A,$0002
DC.W $0092,$0038,$0094,$00D4
DC.W $008E,$2C81,$0090,$2cC1
dc.w $0096,$0020
DC.W $00E0
PL0H DC.W $0000,$00E2
PL0L DC.W $0000,$00E4
PL1H DC.W $0000,$00E6
PL1L DC.W $0000,$00E8
PL2H DC.W $0000,$00EA
PL2L DC.W $0000,$00EC
PL3H DC.W $0000,$00EE
PL3L DC.W $0000,$00F0
PL4H DC.W $0000,$00F2
PL4L DC.W $0000
DC.W $0180,$0000,$0182,$0fdb
DC.W $0184,$0131,$0186,$0c30
DC.W $0188,$0eee,$018A,$0121
DC.W $018C,$0447,$018E,$0740
DC.W $0190,$0db0,$0192,$04a2
DC.W $0194,$0242,$0196,$0372
DC.W $0198,$0252,$019A,$0444
DC.W $019C,$0333,$019E,$04b2
DC.W $01a0,$0392,$01a2,$05c5
DC.W $01a4,$0ccc,$01a6,$0d70
DC.W $01a8,$0382,$01aA,$08c8
DC.W $01aC,$04d2,$01aE,$06c6
DC.W $01b0,$0bcb,$01b2,$0362
DC.W $01b4,$0aca,$01b6,$0a50
DC.W $01b8,$0f5f,$01bA,$0252
DC.W $01bC,$04a2,$01bE,$0210
dc.w $ff09,$fffe,$ffdd,$fffe
dc.w $0009,$fffe
DC.W $0180,$0000,$0182,$0000
DC.W $0184,$0fff,$0186,$0000
DC.W $0188,$0ddd,$018A,$0bbb
DC.W $018C,$0aaa,$018E,$0999
DC.W $0190,$0888,$0192,$0777
DC.W $0194,$0666,$0196,$0555
DC.W $0198,$0333,$019A,$0222
DC.W $019C,$0111,$019E,$0000
dc.w $0109,$fffe,$186,$000
dc.w $0209,$fffe,$186,$000
dc.w $0309,$fffe,$186,$11
dc.w $0409,$fffe,$186,$22
dc.w $0509,$fffe,$186,$33
dc.w $0609,$fffe,$186,$044
dc.w $0709,$fffe,$186,$055
dc.w $0809,$fffe,$186,$066
dc.w $0909,$fffe,$186,$077
dc.w $0a09,$fffe,$186,$088
dc.w $0b09,$fffe,$186,$099
dc.w $0c09,$fffe,$186,$0aa
dc.w $0d09,$fffe,$186,$0bb
dc.w $0e09,$fffe,$186,$0cc
dc.w $0f09,$fffe,$186,$0dd
dc.w $1009,$fffe,$186,$0ee
dc.w $1109,$fffe,$186,$1ee
dc.w $1209,$fffe,$186,$2ee
dc.w $1309,$fffe,$186,$3ee
dc.w $1409,$fffe,$186,$4ee
dc.w $1509,$fffe,$186,$5ee
dc.w $1609,$fffe,$186,$6ee
dc.w $1709,$fffe,$186,$7Ee
DC.W $1809,$fffe,$186,$8ee,$180,$1,$182,$1
dc.w $1909,$fffe,$186,$9ee,$180,$3,$182,$3
dc.w $1a09,$fffe,$186,$aee,$180,$5,$182,$5
dc.w $1b,$fffe,$186,$bee,$180,$7,$182,$7
dc.w $1c09,$fffe,$186,$cee,$180,$9,$182,$9
dc.w $1d09,$fffe,$186,$dee,$180,$b,$182,$b
dc.w $1e09,$fffe,$186,$eee,$180,$d,$182,$d
dc.w $1f09,$fffe,$186,$0f0,$180,$e,$182,$e
dc.w $2109,$fffe,$108,$ff7e,$10a,$ff7e
dc.w $2309,$fffe,$186,$ccc
woplist
dc.w $2409,$fffe,$186,$bcc
dc.w $2509,$fffe,$186,$acc
dc.w $2609,$fffe,$186,$9cc
dc.w $2709,$fffe,$186,$8bb
dc.w $2809,$fffe,$186,$7bb
dc.w $2909,$fffe,$186,$6bb
dc.w $2a09,$fffe,$186,$5aa
dc.w $2b09,$fffe,$186,$4aa
dc.w $2c09,$fffe,$186,$3aa
dc.w $2d09,$fffe,$186,$299
dc.w $2e09,$fffe,$186,$199
dc.w $2f09,$fffe,$186,$099
dc.w $3009,$fffe,$186,$088
dc.w $3109,$fffe,$108,$8c6,$10a,$8c6
dc.w $3209,$fffe,$108,$2,$10a,$2
dc.w $3309,$fffe,$180,$0,$182,$0,$184,$e00,$186,$f60,$188,$d60
dc.w $18a,$b50,$18c,$a50,$18e,$840
dc.w $9c,$8010
DC.W $FFFF,$FFFE
gfxlib dc.b "graphics.library",0
EVEN
_gfxbase dc.l 0
MEMORY_POINTER dc.l 0
MYRASTPORT ds.b RP_Sizeof
MYBITMAP ds.b BM_Sizeof
colour dc.w 0
flagz dc.b 0
string ; *
dc.b " COMRADE J ",254
dc.b "OF SHARE AND ENJOY PRESENTS HIS NEW "
DC.B "SCROLLY TEXT ROUTINE, FOR USE IN SAE DEMOS AND "
DC.B "INTROS ONLY! ULTRA GREETOIDS TO ALL SAE MEMBERS "
DC.B "YEAH HERE IZ ANOTHER a SAE a ",254," DISK! - GREETS TO "
DC.B "EVERYONE. PHONE ME ON 01-668 9605 FOR A CHAT"
DC.B "!!!!! NEXT a COPY PARTY @ CBM SHOW! "
dc.b "THIS IS A JOURNEY INTO SCROLLYTEXT WITH A DIP AND A "
DC.B "DABBLE OF PURE 68000 FUNTIME GUYZ!?!?! "
DC.B "aaaaaaa SHARE AND ENJOY aaaaaaa AND NOW, "
dc.b 255
spoint dc.l string
myfont dc.b "gof "
ds.b 33788
dc.l 0
mypiccy dc.b "fog "
ds.b 56316+100