home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 4: Demo 1
/
almathera_demo1.bin
/
sourcecode
/
dexion
/
copb.s
< prev
next >
Wrap
Text File
|
1995-03-17
|
2KB
|
93 lines
; copper exempel til amiga mc
org $7f000
load $7f000
run:
bsr getbas
move.l gfxbase,a0
add.l #$32,a0
move.w #$0080,$dff096
move.l #copper,(a0)
move.w #$8080,$dff096
loop:
move.b $dff006,d0
cmp.b #$ff,d0
bne loop
move.w poke+2,d0
swap d0
move.w poke+6,d0
add.l #40,d0
move.w d0,poke+6
swap d0
move.w d0,poke+2
andi.b #64,$bfe001
bne loop
jmp $fc0000
copper:
dc.w $0100,$1200
dc.w $008e,$1f81
dc.w $0090,$2ec1
dc.w $0092,$38
dc.w $0094,$d0
dc.w $0108,$0000
dc.w $010a,$0000
dc.w $00e0,$0000
dc.w $00e2,$0000
dc.w $0182,$000f
dc.w $0180,$0000
dc.w $8001,$ff00
dc.w $0180,$0000
dc.w $0180,$0fff
dc.w $8201,$ff00
dc.w $0180,$0fff
dc.w $0180,$fff0
dc.w $9201,$ff00
dc.w $0180,$fff0
dc.w $0180,$f0f4
dc.w $9401,$ff00
dc.w $0180,$f0f4
dc.w $0180,$0000
dc.w $9501,$ff00
poke:
dc.w $00e0,$0000
dc.w $00e2,$0000
dc.w $1011,$ff00
dc.w $00e0,$0000
dc.w $00e2,$0000
dc.w $e001,$ff00
dc.w $0180,$0000
dc.w $0180,$1234
dc.w $1211,$ff00
dc.w $0180,$1234
dc.w $0180,$4321
dc.w $2211,$ff00
dc.w $0180,$4321
dc.w $0180,$5678
dc.w $2411,$ff00
dc.w $0180,$5678
dc.w $0180,$0000
dc.w $2e11,$ff00
dc.w $0180,$0000
dc.w $0180,$ffff
dc.w $3211,$ff00
dc.w $0180,$ffff
dc.w $0180,$0000
dc.w $ffff,$fffe
execbase = 4
oldopenlibrary = -30-378
even
gfxname: dc.b "graphics.library",0
even
gfxbase: dc.l 0
getbas:
move.l execbase,a6
lea gfxname,a1
jsr oldopenlibrary(a6)
move.l d0,gfxbase
rts
tab:
dc.b $70,$71,$72,$73,$74,$75,$76,$77,$78,$79,$7a,$7b,$7c,$7d,$7e,$7f
dc.b $7f,$7e,$7d,$7c,$7b,$7a,$79,$78,$77,$76,$75,$74,$73,$72,$71,$70
dc.b $00