home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / ST_PASCA.LZH / TRIXSUBS.PAS < prev    next >
Pascal/Delphi Source File  |  1987-04-22  |  5KB  |  212 lines
  1. {************************************************************************** 
  2. * 
  3. *       TRIXSUBS.PAS - Declarations for PASTRIX library 
  4. *       04/27/87 MJC 
  5. * 
  6. ***************************************************************************} 
  7.  
  8. {************************************************************************* 
  9. * 
  10. *       Peek/poke routines 
  11. * 
  12. *************************************************************************} 
  13.  
  14. FUNCTION Peek( Address: Long_Integer ): Long_Integer; 
  15.   EXTERNAL; 
  16. FUNCTION Wpeek( Address: Long_Integer ): Long_Integer; 
  17.   EXTERNAL; 
  18. FUNCTION Lpeek( Address: Long_Integer ): Long_Integer; 
  19.   EXTERNAL; 
  20.  
  21. PROCEDURE Poke( Address: Long_Integer; Value: Byte ); 
  22.   EXTERNAL; 
  23. PROCEDURE Wpoke( Address: Long_Integer; Value: Integer ); 
  24.   EXTERNAL; 
  25. PROCEDURE Lpoke( Address, Value: Long_Integer ); 
  26.   EXTERNAL; 
  27.  
  28.  
  29. {************************************************************************* 
  30. * 
  31. *       Supervisor status goodies. 
  32. * 
  33. *************************************************************************} 
  34.  
  35. FUNCTION InSuper : Boolean; 
  36.   EXTERNAL; 
  37. PROCEDURE Super( YesNo : Boolean );  
  38.   EXTERNAL; 
  39.  
  40.  
  41. {************************************************************************* 
  42. * 
  43. *       Block memory move routines 
  44. * 
  45. *************************************************************************} 
  46.  
  47. PROCEDURE Move_L( Source, Dest, Count : Long_Integer ); 
  48.   EXTERNAL; 
  49. PROCEDURE Move_W( Source, Dest, Count : Long_Integer ); 
  50.   EXTERNAL; 
  51. PROCEDURE Move_B( Source, Dest, Count : Long_Integer ); 
  52.   EXTERNAL; 
  53.  
  54. {************************************************************************* 
  55. * 
  56. *       Pascal to C routine interface routines 
  57. * 
  58. *************************************************************************} 
  59.  
  60. PROCEDURE CtoPstr( Cstr : Cstring; Var Pstr : string ); 
  61.   EXTERNAL; 
  62. PROCEDURE PtoCstr( Pstr : string; Var Cstr : Cstring ); 
  63.   EXTERNAL; 
  64.  
  65. {************************************************************************* 
  66. * 
  67. *       date stuff 
  68. * 
  69. *************************************************************************} 
  70.  
  71. PROCEDURE SetDate( Day, Mon, Yr : Integer ); 
  72.    EXTERNAL; 
  73. PROCEDURE SetTime( Hour, Min, Sec : Integer ); 
  74.    EXTERNAL; 
  75. PROCEDURE GetDate( VAR Day, Mon, Yr : Integer ); 
  76.    EXTERNAL; 
  77. PROCEDURE GetTime( VAR Hour, Min, Sec : Integer ); 
  78.    EXTERNAL; 
  79.  
  80. {************************************************************************* 
  81. * 
  82. *       Screen functions 
  83. * 
  84. *************************************************************************} 
  85.  
  86.  
  87. PROCEDURE Get_Screen( Var Buf : Screen_Type ); 
  88.   EXTERNAL; 
  89. PROCEDURE Put_Screen( Var Buf : Screen_Type ); 
  90.   EXTERNAL; 
  91.  
  92. FUNCTION Read_Screen( Format:integer; Name : String ; Var Buf : Screen_Type ) : Err_Code; 
  93.   EXTERNAL; 
  94. FUNCTION Write_Screen( Format:integer; Name : String ; Var Buf : Screen_Type ) : Err_Code; 
  95.   EXTERNAL; 
  96.  
  97. {************************************************************************* 
  98. * 
  99. *       Ptr/Adr routines 
  100. * 
  101. *************************************************************************} 
  102.  
  103.  
  104. FUNCTION Ptr_Byte( Addr : Long_Integer ) : B_Ptr; 
  105.   EXTERNAL; 
  106. FUNCTION Ptr_Char( Addr : Long_Integer ) : C_Ptr; 
  107.   EXTERNAL; 
  108. FUNCTION Ptr_Integer( Addr : Long_Integer ) : I_Ptr; 
  109.   EXTERNAL; 
  110. FUNCTION Ptr_Long_Integer( Addr : Long_Integer ) : L_Ptr; 
  111.   EXTERNAL; 
  112.  
  113. FUNCTION Adr_Byte( Var Bvar : Byte ) : Long_Integer; 
  114.   EXTERNAL; 
  115. FUNCTION Adr_Char( Var Cvar : Char ) : Long_Integer; 
  116.   EXTERNAL; 
  117. FUNCTION Adr_Integer( Var Ivar : Integer ) : Long_Integer; 
  118.   EXTERNAL; 
  119. FUNCTION Adr_Long_Integer( Var Lvar : Long_Integer ) : Long_Integer; 
  120.   EXTERNAL; 
  121.  
  122.  
  123. {************************************************************************* 
  124. * 
  125. *    vt52 functs - use with write,writeln in non-gem programs 
  126. * 
  127. **************************************************************************} 
  128.  
  129.   
  130. PROCEDURE End_of_line; 
  131. EXTERNAL; 
  132.   
  133. PROCEDURE Clear_home; 
  134. EXTERNAL; 
  135.   
  136. PROCEDURE Delete_line; 
  137. EXTERNAL; 
  138.  
  139. PROCEDURE Insert_line; 
  140. EXTERNAL; 
  141.  
  142. PROCEDURE Gotoxy( x, y: integer ); 
  143. EXTERNAL;
  144.   
  145. PROCEDURE Inv_On; 
  146. EXTERNAL; 
  147.   
  148. PROCEDURE Inv_Off; 
  149. EXTERNAL; 
  150.  
  151. PROCEDURE Select_color( color: integer ); 
  152. EXTERNAL; 
  153.   
  154. PROCEDURE Select_background( color: integer ); 
  155. EXTERNAL; 
  156.  
  157. PROCEDURE Cur_up; 
  158. EXTERNAL; 
  159.   
  160. PROCEDURE Cur_down; 
  161. EXTERNAL; 
  162.  
  163. PROCEDURE Cur_right; 
  164. EXTERNAL; 
  165.   
  166. PROCEDURE Cur_left; 
  167. EXTERNAL; 
  168.   
  169. PROCEDURE Cursor_home; 
  170. EXTERNAL; 
  171.   
  172. PROCEDURE Cur_up_scroll; 
  173. EXTERNAL; 
  174.   
  175. PROCEDURE End_of_screen; 
  176. EXTERNAL; 
  177.   
  178. PROCEDURE Cur_on; 
  179. EXTERNAL; 
  180.   
  181. PROCEDURE Cur_off; 
  182. EXTERNAL; 
  183.  
  184. PROCEDURE Cur_down_scroll;
  185. EXTERNAL;
  186.  
  187. PROCEDURE Start_of_screen;
  188. EXTERNAL;
  189.  
  190. PROCEDURE Save_cursor;
  191. EXTERNAL;
  192.  
  193. PROCEDURE Restore_cursor;
  194. EXTERNAL;
  195.  
  196. PROCEDURE Clear_line;
  197. EXTERNAL;
  198.  
  199. PROCEDURE Start_of_line;
  200. EXTERNAL;
  201.  
  202. PROCEDURE Wrap_on;
  203. EXTERNAL;
  204.  
  205. PROCEDURE Wrap_off;
  206. EXTERNAL;
  207.  
  208. PROCEDURE grafchar (which: char);
  209. EXTERNAL;
  210.  
  211. {End of TRIXSUBS}
  212.