ScummVM/scummvm
1
0 Fork 0
mirror of https://github.com/scummvm/scummvm.git synced 2026-06-20 05:45:29 +00:00
Code Issues Packages Projects Releases Wiki Activity
Files
8a4d11eb64dff866ecf798df8755154cdca7c1f9
scummvm/backends/graphics/atari/atari-graphics-asm.S
T
Miro Kropacek dcab5d3369 CONFIGURE: Add support for m68k-atari-mintelf 
This is basically the same as m68k-atari-mint host os but with a
different compiler/file format.
2023-09-24 17:48:54 +02:00

418 lines
12 KiB
ArmAsm
Raw Blame History

/* ScummVM - Graphic Adventure Engine
*
* ScummVM is the legal property of its developers, whose names
* are too numerous to list here. Please refer to the COPYRIGHT
* file distributed with this source distribution.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY| without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*
*/
#include "../../platform/atari/symbols.h"
.global SYM(asm_screen_tt_save)
.global SYM(asm_screen_falcon_save)
.global SYM(asm_screen_tt_restore)
.global SYM(asm_screen_falcon_restore)
.global SYM(asm_draw_4bpl_sprite)
.global SYM(asm_draw_8bpl_sprite)
.text
| extern void asm_screen_tt_save(void);
|
SYM(asm_screen_tt_save):
bsr wait_vbl | avoid flickering
lea 0xffff8400.w,a0
lea save_pal,a1
moveq #256/2-1,d0
tt_save_loop:
move.l (a0)+,(a1)+
dbra d0,tt_save_loop
lea save_video,a1
move.l 0xffff8200.w,(a1)+ | vidhm
move.w 0xffff820c.w,(a1)+ | vidl
move.w 0xffff8262.w,(a1)+ | tt shifter
rts
| extern void asm_screen_falcon_save(void);
|
SYM(asm_screen_falcon_save):
movem.l d2-d7/a2,-(sp)
bsr wait_vbl | avoid flickering
lea 0xffff9800.w,a0 | save falcon palette
lea save_pal,a1 |
moveq #256/2-1,d7 |
|
falcon_save_loop:
move.l (a0)+,(a1)+ |
move.l (a0)+,(a1)+ |
dbra d7,falcon_save_loop |
movem.l 0xffff8240.w,d0-d7 | save st palette
movem.l d0-d7,(a1) |
lea save_video,a0
move.l 0xffff8200.w,(a0)+ | vidhm
move.w 0xffff820c.w,(a0)+ | vidl
move.l 0xffff8282.w,(a0)+ | h-regs
move.l 0xffff8286.w,(a0)+ |
move.l 0xffff828a.w,(a0)+ |
move.l 0xffff82a2.w,(a0)+ | v-regs
move.l 0xffff82a6.w,(a0)+ |
move.l 0xffff82aa.w,(a0)+ |
move.w 0xffff82c0.w,(a0)+ | vco
move.w 0xffff82c2.w,(a0)+ | c_s
move.l 0xffff820e.w,(a0)+ | offset+width
move.w 0xffff820a.w,(a0)+ | sync
move.b 0xffff8265.w,(a0)+ | p_o
cmpi.w #0xb0,0xffff8282.w | st(e) / falcon test
sle (a0)+ | it's a falcon resolution
move.w 0xffff8266.w,(a0)+ | f_s
move.w 0xffff8260.w,(a0)+ | st_s
movem.l (sp)+,d2-d7/a2
rts
| extern void asm_screen_tt_restore(void);
|
SYM(asm_screen_tt_restore):
bsr wait_vbl | avoid flickering
lea save_video,a1
move.l (a1)+,0xffff8200.w | vidhm
move.w (a1)+,0xffff820c.w | vidl
move.w (a1)+,0xffff8262.w | tt shifter
lea save_pal,a0
lea 0xffff8400.w,a1
moveq #256/2-1,d0
.loop: move.l (a0)+,(a1)+
dbra d0,.loop
rts
| extern void asm_screen_falcon_restore(void);
|
SYM(asm_screen_falcon_restore):
movem.l d2-d7/a2,-(sp)
bsr wait_vbl | avoid flickering
lea save_video,a0
move.l (a0)+,0xffff8200.w | videobase_address:h&m
move.w (a0)+,0xffff820c.w | l
move.l (a0)+,0xffff8282.w | h-regs
move.l (a0)+,0xffff8286.w |
move.l (a0)+,0xffff828a.w |
move.l (a0)+,0xffff82a2.w | v-regs
move.l (a0)+,0xffff82a6.w |
move.l (a0)+,0xffff82aa.w |
move.w (a0)+,0xffff82c0.w | vco
move.w (a0)+,0xffff82c2.w | c_s
move.l (a0)+,0xffff820e.w | offset+width
move.w (a0)+,0xffff820a.w | sync
move.b (a0)+,0xffff8265.w | p_o
tst.b (a0)+ | st(e) compatible mode?
bne falcon_restore_st_comp | yes
falcon_restore_falcon:
move.l a0,-(sp)
bsr wait_vbl | Patch to avoid
clr.w 0xffff8266.w | monochrome sync errors
bsr wait_vbl | (ripped from
move.l (sp)+,a0 | FreeMiNT kernel,
move.w (a0),0xffff8266.w | by Draco/Yescrew)
bra falcon_restore_restored
falcon_restore_st_comp:
move.w (a0)+,0xffff8266.w | falcon-shift
move.w (a0),0xffff8260.w | st-shift
lea save_video,a0
move.w 32(a0),0xffff82c2.w | c_s
move.l 34(a0),0xffff820e.w | offset+width
falcon_restore_restored:
lea save_pal,a0 | restore falcon palette
lea 0xffff9800.w,a1 |
moveq #128-1,d7 |
|
falcon_restore_loop:
move.l (a0)+,(a1)+ |
move.l (a0)+,(a1)+ |
dbra d7,falcon_restore_loop |
movem.l (a0),d0-d7 | restore st palette
movem.l d0-d7,0xffff8240.w |
movem.l (sp)+,d2-d7/a2
rts
wait_vbl:
move.w #0x25,-(sp) | Vsync()
trap #14 |
addq.l #2,sp |
rts
| extern void asm_draw_4bpl_sprite(uint16 *dstBuffer, const uint16 *srcBuffer, const uint16 *srcMask,
| uint destX, uint destY, uint dstPitch, uint w, uint h);
|
SYM(asm_draw_4bpl_sprite):
movem.l d0-d7/a0-a2,-(sp) | 11 longs
move.l (4+11*4,sp),a2 | a2: dstBuffer
move.l (8+11*4,sp),a1 | a1: srcBuffer
move.l (12+11*4,sp),a0 | a0: srcMask
move.l (16+11*4,sp),d0 | d0.w: destX
move.l (20+11*4,sp),d1 | d1.w: destY
move.l (24+11*4,sp),d3 | d3.w: dstPitch
ext.l d3 | d3.l: dstPitch
move.l (28+11*4,sp),d6 | d6.w: w
lsr.w #4,d6 | d6.w: w/16
move.l (32+11*4,sp),d7 | d7.w: h
| Draws a 4 bitplane sprite at any position on screen.
| (c) 1999 Pieter van der Meer (EarX)
| INPUT: d0.w: x position of sprite on screen (left side)
| d1.w: y position of sprite on screen (top side)
| d6.w: number of 16pixel X blocks to do
| d7.w: number of Y lines to to
| a0: address of maskdata
| a1: address of bitmapdata
| a2: screen start address
move.w d0,d2 | / Calculate the
andi.w #0b111111110000,d0 | | number of bits
sub.w d0,d2 | \ to shift right.
lsr.w #1,d0 | / Add x-position to
adda.w d0,a2 | \ screenaddress.
mulu.w d3,d1 | / Add y-position to
adda.l d1,a2 | \ screenaddress.
move.w d6,d1 | / Prepare
lsl.w #3,d1 | | offset
move.l d3,d4 | | to next
sub.w d1,d4 | \ screenline.
subq.w #1,d7 | Adjust for dbra.
subq.w #1,d6 | Adjust for dbra.
move.w d6,d5 | Backup xloopcount in d5.w.
moveq #16,d1 | Size of two chunks.
sprite4_yloop:
move.w d5,d6 | Restore xloop counter.
sprite4_xloop:
moveq #0xffffffff,d0 | Prepare for maskshifting.
move.w (a0)+,d0 | Get 16pixel mask in d0.w.
ror.l d2,d0 | Shift it!
and.w d0,(a2)+ | Mask bitplane 0.
and.w d0,(a2)+ | Mask bitplane 1.
and.w d0,(a2)+ | Mask bitplane 2.
and.w d0,(a2)+ | Mask bitplane 3.
swap d0 | Get overspill in loword.
and.w d0,(a2)+ | Mask overspill bitplane 0.
and.w d0,(a2)+ | Mask overspill bitplane 1.
and.w d0,(a2)+ | Mask overspill bitplane 2.
and.w d0,(a2)+ | Mask overspill bitplane 3.
suba.l d1,a2 | Return to blockstart.
moveq #0,d0 | Prepare for bitmapshifting.
move.w (a1)+,d0 | Get bitplaneword in d0.w.
ror.l d2,d0 | Shift it.
or.w d0,(a2)+ | Paint bitplane 0.
swap d0 | Get overspill in loword.
or.w d0,6(a2) | Paint overspill bitplane 0.
moveq #0,d0 | Prepare for bitmapshifting.
move.w (a1)+,d0 | Get bitplaneword in d0.w.
ror.l d2,d0 | Shift it.
or.w d0,(a2)+ | Paint bitplane 1.
swap d0 | Get overspill in loword.
or.w d0,6(a2) | Paint overspill bitplane 1.
moveq #0,d0 | Prepare for bitmapshifting.
move.w (a1)+,d0 | Get bitplaneword in d0.w.
ror.l d2,d0 | Shift it.
or.w d0,(a2)+ | Paint bitplane 2.
swap d0 | Get overspill in loword.
or.w d0,6(a2) | Paint overspill bitplane 2.
moveq #0,d0 | Prepare for bitmapshifting.
move.w (a1)+,d0 | Get bitplaneword in d0.w.
ror.l d2,d0 | Shift it.
or.w d0,(a2)+ | Paint bitplane 3.
swap d0 | Get overspill in loword.
or.w d0,6(a2) | Paint overspill bitplane 3.
dbra d6,sprite4_xloop | Loop until blocks done.
adda.l d4,a2 | Goto next screenline.
dbra d7,sprite4_yloop | Loop until lines done.
movem.l (sp)+,d0-d7/a0-a2
rts
| extern void asm_draw_8bpl_sprite(uint16 *dstBuffer, const uint16 *srcBuffer, const uint16 *srcMask,
| uint destX, uint destY, uint dstPitch, uint w, uint h);
|
SYM(asm_draw_8bpl_sprite):
movem.l d0-d7/a0-a2,-(sp) | 11 longs
move.l (4+11*4,sp),a2 | a2: dstBuffer
move.l (8+11*4,sp),a1 | a1: srcBuffer
move.l (12+11*4,sp),a0 | a0: srcMask
move.l (16+11*4,sp),d0 | d0.w: destX
move.l (20+11*4,sp),d1 | d1.w: destY
move.l (24+11*4,sp),d3 | d3.w: dstPitch
ext.l d3 | d3.l: dstPitch
move.l (28+11*4,sp),d6 | d6.w: w
lsr.w #4,d6 | d6.w: w/16
move.l (32+11*4,sp),d7 | d7.w: h
move.w d0,d2 | / Calculate the
andi.w #0b111111110000,d0 | | number of bits
sub.w d0,d2 | \ to shift right.
adda.w d0,a2 | Add x-position to screenaddress.
mulu.w d3,d1 | / Add y-position to
adda.l d1,a2 | \ screenaddress.
move.w d6,d1 | / Prepare
lsl.w #4,d1 | | offset
move.l d3,d4 | | to next
sub.w d1,d4 | \ screenline.
subq.w #1,d7 | Adjust for dbra.
subq.w #1,d6 | Adjust for dbra.
move.w d6,d5 | Backup xloopcount in d5.w.
moveq #32,d1 | Size of two chunks.
sprite8_yloop:
move.w d5,d6 | Restore xloop counter.
sprite8_xloop:
moveq #0xffffffff,d0 | Prepare for maskshifting.
move.w (a0)+,d0 | Get 16pixel mask in d0.w.
ror.l d2,d0 | Shift it!
and.w d0,(a2)+ | Mask bitplane 0.
and.w d0,(a2)+ | Mask bitplane 1.
and.w d0,(a2)+ | Mask bitplane 2.
and.w d0,(a2)+ | Mask bitplane 3.
and.w d0,(a2)+ | Mask bitplane 4.
and.w d0,(a2)+ | Mask bitplane 5.
and.w d0,(a2)+ | Mask bitplane 6.
and.w d0,(a2)+ | Mask bitplane 7.
swap d0 | Get overspill in loword.
and.w d0,(a2)+ | Mask overspill bitplane 0.
and.w d0,(a2)+ | Mask overspill bitplane 1.
and.w d0,(a2)+ | Mask overspill bitplane 2.
and.w d0,(a2)+ | Mask overspill bitplane 3.
and.w d0,(a2)+ | Mask overspill bitplane 4.
and.w d0,(a2)+ | Mask overspill bitplane 5.
and.w d0,(a2)+ | Mask overspill bitplane 6.
and.w d0,(a2)+ | Mask overspill bitplane 7.
suba.l d1,a2 | Return to blockstart.
moveq #0,d0 | Prepare for bitmapshifting.
move.w (a1)+,d0 | Get bitplaneword in d0.w.
ror.l d2,d0 | Shift it.
or.w d0,(a2)+ | Paint bitplane 0.
swap d0 | Get overspill in loword.
or.w d0,14(a2) | Paint overspill bitplane 0.
moveq #0,d0 | Prepare for bitmapshifting.
move.w (a1)+,d0 | Get bitplaneword in d0.w.
ror.l d2,d0 | Shift it.
or.w d0,(a2)+ | Paint bitplane 1.
swap d0 | Get overspill in loword.
or.w d0,14(a2) | Paint overspill bitplane 1.
moveq #0,d0 | Prepare for bitmapshifting.
move.w (a1)+,d0 | Get bitplaneword in d0.w.
ror.l d2,d0 | Shift it.
or.w d0,(a2)+ | Paint bitplane 2.
swap d0 | Get overspill in loword.
or.w d0,14(a2) | Paint overspill bitplane 2.
moveq #0,d0 | Prepare for bitmapshifting.
move.w (a1)+,d0 | Get bitplaneword in d0.w.
ror.l d2,d0 | Shift it.
or.w d0,(a2)+ | Paint bitplane 3.
swap d0 | Get overspill in loword.
or.w d0,14(a2) | Paint overspill bitplane 3.
moveq #0,d0 | Prepare for bitmapshifting.
move.w (a1)+,d0 | Get bitplaneword in d0.w.
ror.l d2,d0 | Shift it.
or.w d0,(a2)+ | Paint bitplane 4.
swap d0 | Get overspill in loword.
or.w d0,14(a2) | Paint overspill bitplane 4.
moveq #0,d0 | Prepare for bitmapshifting.
move.w (a1)+,d0 | Get bitplaneword in d0.w.
ror.l d2,d0 | Shift it.
or.w d0,(a2)+ | Paint bitplane 5.
swap d0 | Get overspill in loword.
or.w d0,14(a2) | Paint overspill bitplane 5.
moveq #0,d0 | Prepare for bitmapshifting.
move.w (a1)+,d0 | Get bitplaneword in d0.w.
ror.l d2,d0 | Shift it.
or.w d0,(a2)+ | Paint bitplane 6.
swap d0 | Get overspill in loword.
or.w d0,14(a2) | Paint overspill bitplane 6.
moveq #0,d0 | Prepare for bitmapshifting.
move.w (a1)+,d0 | Get bitplaneword in d0.w.
ror.l d2,d0 | Shift it.
or.w d0,(a2)+ | Paint bitplane 7.
swap d0 | Get overspill in loword.
or.w d0,14(a2) | Paint overspill bitplane 7.
dbra d6,sprite8_xloop | Loop until blocks done.
adda.l d4,a2 | Goto next screenline.
dbra d7,sprite8_yloop | Loop until lines done.
movem.l (sp)+,d0-d7/a0-a2
rts
.bss
.even
save_pal:
ds.l 256+16/2 | old colours (sized for falcon+ste palette)
save_video:
ds.b 32+12+2 | old video regs (size of falcon regs)
Reference in new issue View Git Blame Copy Permalink