26 lines
411 B
ArmAsm
26 lines
411 B
ArmAsm
xref WaitVerticalBlank
|
|
xref WaitRaster
|
|
|
|
WaitVerticalBlank:
|
|
movem.l d0-a6,-(sp)
|
|
.loop move.l $dff004,d0
|
|
and.l #$1ff00,d0
|
|
cmp.l #303<<8,d0
|
|
bne.b .loop
|
|
movem.l (sp)+,d0-a6
|
|
rts
|
|
|
|
|
|
|
|
WaitRaster: ;wait for rasterline d0.w. Modifies d0-d2/a0.
|
|
movem.l d0-a6,-(sp)
|
|
move.l #$1ff00,d2
|
|
lsl.l #8,d0
|
|
and.l d2,d0
|
|
lea $dff004,a0
|
|
.wr: move.l (a0),d1
|
|
and.l d2,d1
|
|
cmp.l d1,d0
|
|
bne.s .wr
|
|
movem.l (sp)+,d0-a6
|
|
rts |