home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / GFXFX2.ZIP / MDX_MODE.INC < prev    next >
Text File  |  1995-02-14  |  3KB  |  101 lines

  1.  
  2. (*
  3. ** Func. #  Description
  4. ** -------  ---------------------------
  5. **     00h  horz total
  6. **     01h  horz displayed
  7. **     02h  blank start
  8. **     03h  blank end
  9. **     04h  retrace start
  10. **     05h  retrace end
  11. **     06h  vertical total
  12. **     07h  overflow register
  13. **     08h  preset row scan
  14. **     09h  max scan line/char height
  15. **     10h  v retrace start
  16. **     11h  v retrace end
  17. **     12h  v displayed
  18. **     14h  underline location
  19. **     15h  v blank start
  20. **     16h  v blank end
  21. **     17h  mode control
  22. ** -------  ---------------------------
  23. ** Remember: function number is in HEX!
  24. *)
  25.  
  26. const
  27.   max_regs=17;
  28.   {nof_regs:array[0..pred(mdx_lastmode)] of byte=
  29.     (2,10,8,16,17,3,10,9,17,15,17,17,8,17,16,17);}
  30.  
  31.   { syntax: # of regs, width, height, dot clock, CRTC regs ... }
  32.   crtc_regs:array[0..pred(mdx_lastmode),0..pred(max_regs+4)] of word=(
  33.     (2,320,200,0, { 320x200x256 }
  34.      $0014,$e317,
  35.      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  36.  
  37.     (10,320,240,$e3, { 320x240x256 }
  38.      $0d06,$3e07,$4109,$ea10,$ac11,$df12,$0014,$e715,$0616,$e317,
  39.      0,0,0,0,0,0,0),
  40.  
  41.     (8,360,200,$e7, { 360x200x256 }
  42.      $6b00,$5901,$5a02,$8e03,$5e04,$8a05,$0014,$e317,
  43.      0,0,0,0,0,0,0,0,0),
  44.  
  45.     (16,360,240,$e7, { 360x240x256 }
  46.      $6b00,$5901,$5a02,$8e03,$5e04,$8a05,$0d06,$3e07,$4109,$ea10,
  47.      $ac11,$df12,$0014,$e715,$0616,$e317,
  48.      0),
  49.  
  50.     (17,376,282,$e7, { 376x282x256 }
  51.      $6e00,$5d01,$5e02,$9103,$6204,$8f05,$6206,$f007,$6109,$3710,
  52.      $8911,$3312,$2f13,$0014,$3c15,$5c16,$e317),
  53.  
  54.     (3,320,400,$e3, { 320x400x256 }
  55.      $4009,$0014,$e317,
  56.      0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  57.  
  58.     (10,320,480,$e3, { 320x480x256 }
  59.      $0d06,$3e07,$4009,$ea10,$ac11,$df12,$0014,$e715,$0616,$e317,
  60.      0,0,0,0,0,0,0),
  61.  
  62.     (9,360,400,$e7, { 360x400x256 }
  63.      $6b00,$5901,$5a02,$8e03,$5e04,$8a05,$4009,$0014,$e317,
  64.      0,0,0,0,0,0,0,0),
  65.  
  66.     (17,360,480,$e7, { 360x480x256 }
  67.      $6b00,$5901,$5a02,$8e03,$5e04,$8a05,$0d06,$3e07,$4009,$ea10,
  68.      $ac11,$df12,$2d13,$0014,$e715,$0616,$e317),
  69.  
  70.     (15,360,360,$e7, { 360x360x256 }
  71.      $6b00,$5901,$5a02,$8e03,$5e04,$8a05,$4009,$8810,$8511,$6712,
  72.      $2d13,$0014,$6d15,$ba16,$e317,
  73.      0,0),
  74.  
  75.     (17,376,308,$e7, { 376x308x256 }
  76.      $6e00,$5d01,$5e02,$9103,$6204,$8f05,$6206,$0f07,$4009,$3710,
  77.      $8911,$3312,$2f13,$0014,$3c15,$5c16,$e317),
  78.  
  79.     (17,376,564,$e7, { 376x564x256 }
  80.      $6e00,$5d01,$5e02,$9103,$6204,$8f05,$6206,$f007,$6009,$3710,
  81.      $8911,$3312,$2f13,$0014,$3c15,$5c16,$e317),
  82.  
  83.     (8,256,200,$e3, { 256x200x256 }
  84.      $5f00,$3f01,$4202,$9f03,$4c04,$0005,$0014,$e317,
  85.      0,0,0,0,0,0,0,0,0),
  86.  
  87.     (17,256,224,$e3, { 256x224x256 }
  88.      $5f00,$3f01,$4002,$8203,$4a04,$9a05,$0b06,$3e07,$4109,$da10,
  89.      $9c11,$bf12,$2013,$0014,$c715,$0416,$e317),
  90.  
  91.     (16,256,240,$e3, { 356x240x256 }
  92.      $5f00,$3f01,$4202,$9f03,$4c04,$0005,$0d06,$3e07,$4109,$ea10,
  93.      $ac11,$df12,$0014,$e715,$0616,$e317,
  94.      0),
  95.  
  96.     (17,256,256,$e3, { 256x256x256 - Mode-Q unchained }
  97.      $5f00,$3f01,$4002,$8203,$4e04,$9a05,$2306,$b207,$0008,$6109,
  98.      $0a10,$ac11,$ff12,$4014,$0715,$1716,$a317));
  99.  
  100.   crtc_ptr:pointer=@crtc_regs;
  101.