home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 4: Demo 1
/
almathera_demo1.bin
/
sourcecode
/
text2.s
< prev
next >
Wrap
Text File
|
1995-03-17
|
6KB
|
330 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
add.l #1,spoint
sub.b #32,d0 ; now =1
mulu #512,d0 ; now =512
add.l d0,a1
moveq #4,d0
lea mypiccy,a0
lea mypiccy,a2
ADD.l #40,a0
add.l #40,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
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,cdown
bne bypass
move.b #8,cdown
bsr subrt
move.l spoint,a6
cmp.b #$ff,(a6)
bne bypass
move.l #string,spoint
bypass sub.b #1,cdown
lea myrastport,a1
moveq #3,d0
moveq #0,d1
moveq #0,d2
moveq #0,d3
move.l #350,d4
moveq #32,d5
callgraf scrollraster
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
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,$0000
DC.W $0184,$0fff,$0186,$0eee
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 $01a8,$333,$1aA,$444,$1ac,$555
dc.w $1ae,$555,$1b0,$666,$1b2,$777,$1b4,$7aa
dc.w $1b6,$8bb,$1b8,$9cc,$1ba,$9dd,$1bc,$aee,$1be,$bff
dc.w $2c09,$fffe,$186,$000
dc.w $2d09,$fffe,$186,$000
dc.w $2e09,$fffe,$186,$000
dc.w $2f09,$fffe,$186,$11
dc.w $3009,$fffe,$186,$22
dc.w $3109,$fffe,$186,$33
dc.w $3209,$fffe,$186,$044
dc.w $3309,$fffe,$186,$055
dc.w $3409,$fffe,$186,$066
dc.w $3509,$fffe,$186,$077
dc.w $3609,$fffe,$186,$088
dc.w $3709,$fffe,$186,$099
dc.w $3809,$fffe,$186,$0aa
dc.w $3909,$fffe,$186,$0bb
dc.w $3a09,$fffe,$186,$0cc
dc.w $3b09,$fffe,$186,$0dd
dc.w $3c09,$fffe,$186,$0ee
dc.w $3d09,$fffe,$186,$1ee
dc.w $3e09,$fffe,$186,$2ee
dc.w $3f09,$fffe,$186,$3ee
dc.w $4009,$fffe,$186,$4ee
dc.w $4109,$fffe,$186,$5ee
dc.w $4209,$fffe,$186,$6ee
dc.w $4309,$fffe,$186,$7Ee
DC.W $4409,$fffe,$186,$8ee,$180,$1,$182,$1
dc.w $4509,$fffe,$186,$9ee,$180,$3,$182,$3
dc.w $4609,$fffe,$186,$aee,$180,$5,$182,$5
dc.w $4709,$fffe,$186,$bee,$180,$7,$182,$7
dc.w $4809,$fffe,$186,$cee,$180,$9,$182,$9
dc.w $4909,$fffe,$186,$dee,$180,$b,$182,$b
dc.w $4a09,$fffe,$186,$eee,$180,$d,$182,$d
dc.w $4e09,$fffe,$186,$0f0,$180,$f,$182,$f
dc.w $4f09,$fffe,$108,$ff7e,$10a,$ff7e
dc.w $5209,$fffe,$186,$dee
woplist
dc.w $5309,$fffe,$186,$cee
dc.w $5409,$fffe,$186,$bee
dc.w $5509,$fffe,$186,$aee
dc.w $5609,$fffe,$186,$9ee
dc.w $5709,$fffe,$186,$8ee
dc.w $5809,$fffe,$186,$7ee
dc.w $5909,$fffe,$186,$6ee
dc.w $5a09,$fffe,$186,$5ee
dc.w $5b09,$fffe,$186,$4ee
dc.w $5c09,$fffe,$186,$3ee
dc.w $5d09,$fffe,$186,$2ee
dc.w $5e09,$fffe,$186,$1ee
dc.w $5f09,$fffe,$186,$0ee,$180,$0,$182,$0,$184,$e00,$186,$f60,$188,$d60
dc.w $18a,$b50,$18c,$a50,$18e,$840
dc.w $6009,$fffe,$108,$8c6,$10a,$8c6
dc.w $6109,$fffe,$108,$2,$10a,$2
dc.w $9009,$fffe,$009c,$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
woppt dc.l wopdata
string
dc.b "COMRADE J 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 IT'S ANOTHER a SAE a 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 "DOP AND A WIPEDY WOP "
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+200