home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 4: Demo 1
/
almathera_demo1.bin
/
sourcecode
/
text.s
< prev
next >
Wrap
Text File
|
1995-03-17
|
4KB
|
257 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 #320,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 #10240,D1
MOVE.L D1,D2
ADD.L #10240,D2
MOVE.L D2,D3
add.l #10240,D3
move.l d3,d4
add.l #10240,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
moveq #9,d3
moveq #0,d4
zloop
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 d4,a0
add.l d4,a0
add.l d4,a0
add.l d4,a0
add.l d4,a2
add.l d4,a2
add.l d4,a2
add.l d4,a2
add.l #1,d4
outloop moveq #32,d1
inloop move.l (a1)+,(a0)
add.l #40,a0
sub.b #1,d1
cmp.b #0,d1
bne inloop
add.l #10240,a2
move.l a2,a0
sub.b #1,d0
cmp.b #0,d0
bne outloop
sub.b #1,d3
cmp.b #0,d3
bne zloop
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
new: movem.l d0-d7/a0-a6,-(sp)
and #$10,$dff01e
beq out
move.w #$10,$dff09c
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
OLDCOPPER DC.L 0
NEWCOPPER DC.W $0100,$5200,$0102,$0000,$0104,$000A
DC.W $0108,$0000,$010A,$0000
DC.W $0092,$0038,$0094,$00D0
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 $009c,$8010
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 $2c09,$fffe,$186,$000
dc.w $2d09,$fffe,$186,$000
dc.w $2e09,$fffe,$186,$000
dc.w $2f09,$fffe,$186,$010
dc.w $3009,$fffe,$186,$020
dc.w $3109,$fffe,$186,$030
dc.w $3209,$fffe,$186,$040
dc.w $3309,$fffe,$186,$050
dc.w $3409,$fffe,$186,$060
dc.w $3509,$fffe,$186,$070
dc.w $3609,$fffe,$186,$080
dc.w $3709,$fffe,$186,$090
dc.w $3809,$fffe,$186,$0a0
dc.w $3909,$fffe,$186,$0b0
dc.w $3a09,$fffe,$186,$0c0
dc.w $3b09,$fffe,$186,$0d0
dc.w $3c09,$fffe,$186,$0e0
dc.w $3d09,$fffe,$186,$1e1
dc.w $3e09,$fffe,$186,$2e2
dc.w $3f09,$fffe,$186,$3e3
dc.w $4009,$fffe,$186,$4e4
dc.w $4109,$fffe,$186,$5e5
dc.w $4209,$fffe,$186,$6e6
dc.w $4309,$fffe,$186,$7E7
DC.W $4409,$fffe,$186,$8e8
dc.w $4509,$fffe,$186,$9e9
dc.w $4609,$fffe,$186,$aea
dc.w $4709,$fffe,$186,$beb
dc.w $4809,$fffe,$186,$cec
dc.w $4909,$fffe,$186,$ded
dc.w $4a09,$fffe,$186,$eee
dc.w $4e09,$fffe,$186,$0f0
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 "SAE 1988!"
spoint dc.l string
myfont dc.b "gof "
ds.b 33788
dc.l 0
mypiccy dc.b "fog "
ds.b 51200-4