mirror of
https://frontier.innolan.net/github/AmigaExamples.git
synced 2026-09-12 21:02:39 +00:00
37 lines
679 B
ArmAsm
37 lines
679 B
ArmAsm
include "includes.i"
|
|
|
|
xdef SwitchBuffers
|
|
|
|
SwitchBuffers:
|
|
;; offscreen - bitplane address
|
|
;; d0 - bitplane pointer offset
|
|
movem.l d0/a0-a1,-(sp)
|
|
move.l offscreen,a0
|
|
move.l onscreen,offscreen
|
|
move.l a0,onscreen
|
|
move.l a0,a1
|
|
lea copperListBplPtr,a0
|
|
jsr PokeBitplanePointers
|
|
movem.l (sp)+,d0/a0-a1
|
|
rts
|
|
|
|
PokeBitplanePointers:
|
|
; d0 = frame offset in bytes
|
|
; a0 = BPLP copper list address
|
|
; a1 = bitplanes pointer
|
|
movem.l d0-a6,-(sp)
|
|
add.l d0,a1 ; bitplane offset
|
|
moveq #SCREEN_BIT_DEPTH-1,d0
|
|
.bitplaneloop:
|
|
move.l a1,d1
|
|
move.w d1,2(a0)
|
|
swap d1
|
|
move.w d1,6(a0)
|
|
lea BITPLANE_WIDTH_BYTES(a1),a1
|
|
addq #8,a0
|
|
dbra d0,.bitplaneloop
|
|
movem.l (sp)+,d0-a6
|
|
rts
|
|
|
|
|