home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Vectronix 2
/
VECTRONIX2.iso
/
FILES_03
/
SOURCE_J.LZH
/
3DDEMO
/
JAGCRY.S
< prev
next >
Wrap
Text File
|
1994-09-08
|
4KB
|
102 lines
;*======================================================================*
;* TITLE: JAGUAR.S *
;* Function: System Initialization Routines *
;* *
;* Project #: JAGUAR *
;* *
;* Programmer: Cary J. Gee *
;* *
;* COPYRIGHT 1992,1993 Atari U.S. Corporation *
;* UNATHORIZED REPRODUCTION, ADAPTATION, DISTRIBUTION, *
;* PERFORMANCE OR DISPLAY OF THIS COMPUTER PROGRAM OR *
;* THE ASSOCIATED AUDIOVISUAL WORK IS STRICTLY PROHIBITED. *
;* ALL RIGHTS RESERVED. *
;* *
;*======================================================================*
.title "JAGUAR.S - System Initialization Routines"
;*======================================================================*
;* INCLUDE FILES
;*======================================================================*
.include 'jaguar.inc'
;*======================================================================*
;* EXTERNAL SYMBOLS
;*======================================================================*
.extern objlist
;*======================================================================*
;* EXTERNAL ROUTINES
;*======================================================================*
.extern InitLister
.extern vidinit
.extern vblinit
;*======================================================================*
;* PUBLIC SYMBOLS
;*======================================================================*
;*======================================================================*
;* PUBLIC ROUTINES
;*======================================================================*
.globl InitJag
.globl _Clear
;*======================================================================*
;* LOCAL EQUATES
;*======================================================================*
;*======================================================================*
;* SUBROUTINE AREA
;*======================================================================*
.text
;*======================================================================*
;* InitJag Initialize Jaguar video and object list
;*
;* Given:
;* Control
;*
;* Returns:
;*
;*
;* Register Usage:
;*
;* Externals:
;* None
;*
;*======================================================================*
InitJag:
movem.l a0/d0,-(sp)
move.l #$00070007,G_END
move.w #$FFFF,VI
jsr vidinit ; Initialize video
jsr InitLister
jsr vblinit ; Initialize VBlank routine
move.l #objlist,d0 ;* use bi-phrase ptr to olist
swap d0 ;* and set the OLP
move.l d0,OLP
move.w #$4C1,VMODE ;Turn on display w/CRY
movem.l (sp)+,a0/d0
rts
.end
;*======================================================================*
;* EOF
;*======================================================================*