home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_03 / SOURCE_J.LZH / 3DDEMO / JAGCRY.S < prev    next >
Text File  |  1994-09-08  |  4KB  |  102 lines

  1. ;*======================================================================*
  2. ;*                TITLE:    JAGUAR.S                                    *
  3. ;*                Function: System Initialization Routines              *
  4. ;*                                                                      *
  5. ;*                Project #:              JAGUAR                        *
  6. ;*                                                                      *
  7. ;*                Programmer:             Cary J. Gee                   *
  8. ;*                                                                      *
  9. ;*              COPYRIGHT 1992,1993 Atari U.S. Corporation              *
  10. ;*          UNATHORIZED REPRODUCTION, ADAPTATION, DISTRIBUTION,         *
  11. ;*          PERFORMANCE OR DISPLAY OF THIS COMPUTER PROGRAM OR          *
  12. ;*        THE ASSOCIATED AUDIOVISUAL WORK IS STRICTLY PROHIBITED.       *
  13. ;*                            ALL RIGHTS RESERVED.                      *
  14. ;*                                                                      *
  15. ;*======================================================================*
  16.     .title  "JAGUAR.S - System Initialization Routines"
  17.  
  18. ;*======================================================================*
  19. ;*      INCLUDE FILES
  20. ;*======================================================================*
  21.  
  22.     .include        'jaguar.inc'
  23.  
  24. ;*======================================================================*
  25. ;*      EXTERNAL SYMBOLS
  26. ;*======================================================================*
  27.  
  28.     .extern objlist
  29.  
  30. ;*======================================================================*
  31. ;*      EXTERNAL ROUTINES
  32. ;*======================================================================*
  33.  
  34.     .extern InitLister
  35.     .extern vidinit
  36.     .extern vblinit
  37.  
  38. ;*======================================================================*
  39. ;*      PUBLIC SYMBOLS
  40. ;*======================================================================*
  41.  
  42.  
  43. ;*======================================================================*
  44. ;*      PUBLIC ROUTINES
  45. ;*======================================================================*
  46.  
  47.     .globl  InitJag
  48.     .globl  _Clear
  49.  
  50. ;*======================================================================*
  51. ;*      LOCAL EQUATES
  52. ;*======================================================================*
  53.  
  54.  
  55. ;*======================================================================*
  56. ;*      SUBROUTINE AREA
  57. ;*======================================================================*
  58.  
  59.     .text
  60.  
  61. ;*======================================================================*
  62. ;*      InitJag   Initialize Jaguar video and object list
  63. ;*
  64. ;*      Given:
  65. ;*              Control
  66. ;*
  67. ;*      Returns:
  68. ;*              
  69. ;*
  70. ;*      Register Usage:
  71. ;*
  72. ;*      Externals:
  73. ;*              None
  74. ;*
  75. ;*======================================================================*
  76.  
  77. InitJag:
  78.     movem.l a0/d0,-(sp)
  79.  
  80.     move.l  #$00070007,G_END
  81.     move.w  #$FFFF,VI
  82.  
  83.     jsr     vidinit                 ; Initialize video
  84.     jsr     InitLister
  85.     jsr     vblinit                 ; Initialize VBlank routine
  86.  
  87.     move.l  #objlist,d0             ;* use bi-phrase ptr to olist
  88.     swap    d0                      ;* and set the OLP
  89.     move.l  d0,OLP
  90.  
  91.     move.w  #$4C1,VMODE             ;Turn on display w/CRY
  92.  
  93.     movem.l (sp)+,a0/d0
  94.  
  95.     rts
  96.  
  97.     .end
  98.  
  99. ;*======================================================================*
  100. ;*                              EOF
  101. ;*======================================================================*
  102.