home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / JAGDEV_1.LZH / DEVELOP.JAG / VECTRONI.X! / JAGPEG / TESTJPG / TESTJPG.S < prev    next >
Text File  |  1994-09-02  |  2KB  |  72 lines
  1.  
  2.     .include    'jaguar.inc'
  3.  
  4. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  5. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  6. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  7.  
  8.     .extern VideoIni
  9.     .extern IntInit
  10.     .extern Lister
  11.     .extern BlitLine
  12.     .extern Clear
  13.     .extern    test_jagpeg
  14.  
  15. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  16. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  17. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  18.  
  19.     .text
  20.  
  21. ; Run the GPU/BLIT interface in CORRECT mode ALWAYS
  22.         
  23.     move.l    #$00070007,G_END
  24.  
  25. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  26. ; At this point we don't know what state the video is in
  27. ; It may be active or not and may be using an interrupt or not
  28. ; Since we may not turn video off we use the following procedure
  29. ;
  30. ; 1) Disable all 68K interrupts, this includes VI.
  31. ;    The existing screen will fail to be refreshed so all bit maps vanish
  32. ;
  33. ; 2) Set up the size of borders
  34. ;
  35. ; 3) Set up an object list
  36. ;
  37. ; 4) Set VMODE to the desired resolution and color model
  38. ;
  39. ; 5) Set up an interrupt and start
  40. ;
  41. ; NOTE: Steps 2, 3 and 4 may be done in any order. If the gap between
  42. ; steps 1 and 5 is too long the screen may look funny. To blank the screen
  43. ; point the object processor at a stop object
  44. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  45.  
  46.     move.w    #$FFFF,VI    ; Clear latches and disable interrupts
  47.  
  48.     jsr    VideoIni
  49.     jsr    Lister        ; Set up object list
  50.     jsr    IntInit
  51.  
  52.     move.l    d5,OLP        ; This is setup by Lister
  53.     move.w    #$6C7,VMODE    ; Set 16 bit RGB; 320 overscanned
  54.     jsr    Clear        ; Clear our bitmap
  55.  
  56. ;;;;;;;;;;;;;;;;;;;
  57. ; Draw the pictures
  58.  
  59.     jsr    test_jagpeg    ; This should never return
  60.     illegal            ; So we should never get here...
  61.  
  62. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  63. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  64. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  65.  
  66.     .bss
  67.     .even
  68.  
  69.     .ds.l     8
  70. listbuf::
  71.     .ds.l     16
  72.