home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / misc_programming / AGUL / ASMPAK.ADS < prev    next >
Encoding:
Text File  |  1990-10-25  |  2.1 KB  |  49 lines
  1. --        ╔═════════════════════════════════════════════════════════════╗
  2. --        ║█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█║
  3. --        ║█                                                           █║
  4. --        ║█                 Meridian Software Systems                 █║
  5. --        ║█                                                           █║
  6. --        ║█                    Copyright (C)  1990                    █║
  7. --        ║█                                                           █║
  8. --        ║█                    ALL RIGHTS RESERVED                    █║
  9. --        ║█                                                           █║
  10. --        ║█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█║
  11. --        ╚═════════════════════════════════════════════════════════════╝
  12.  
  13. ------------------------------------------------------------------------------
  14. --
  15. --   Unit Name:   ASMPAK      - package specification
  16. --
  17. --   Purpose of unit:         This package specification contains the
  18. --                            necessary assembly language interface
  19. --                            declarations to allow low level video
  20. --                            routines to be called from ADA subprograms.
  21. --
  22. ------------------------------------------------------------------------------
  23.  
  24.  
  25. package ASMPAK is
  26.  
  27.      procedure SET_VIDEO_MODE (MODE: NATURAL);
  28.        pragma interface (ASSEMBLY, SET_VIDEO_MODE, "VIDEO_MODE");
  29.  
  30.      procedure DRAW_BASIC_LINE (X1, Y1, X2, Y2:     INTEGER;
  31.                 COLOR:              NATURAL;
  32.                 DUX, DUY, DLX, DLY: NATURAL;
  33.                 CLP, VIDEO_PAGE:    NATURAL);
  34.        pragma interface (ASSEMBLY, DRAW_BASIC_LINE, "DRAW");
  35.  
  36.      procedure PLOTXY (X, Y, COLOR, VIDEO_PAGE: NATURAL);
  37.        pragma interface (ASSEMBLY, PLOTXY, "PLOT");
  38.  
  39.      procedure BEEP;
  40.        pragma interface (ASSEMBLY, BEEP, "BEEP");
  41.  
  42.      function READ_PIXEL_ATTR (X, Y: INTEGER) return integer;
  43.        pragma interface (ASSEMBLY, READ_PIXEL_ATTR, "READPIX");
  44.  
  45.      procedure CLEAR_SCREEN;
  46.        pragma interface (ASSEMBLY, CLEAR_SCREEN, "CLRSCR");
  47.  
  48. end ASMPAK;
  49.