home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / gfx / 3d / RPLlibcall.lha / system.rpl < prev   
Encoding:
Text File  |  1997-01-25  |  2.0 KB  |  120 lines
  1. ( -------------------------------------------------
  2. ( FILE:         system.rpl
  3. ( DESCRIPTION:  Definitions for system call Operations
  4. ( PLATFORM:     AMIGA
  5. ( VERSION:      1.0
  6. ( DATE:         22-Jan-97
  7. ( -------------------------------------------------
  8. ( Copyright © 1997 Thomas Reichen
  9. ( -------------------------------------------------
  10.  
  11. ?& SYSTEM.RPL NOT ?IF
  12. 17 CONSTANT SYSTEM.RPL
  13.  
  14. 4     CONSTANT ExecBase
  15.  
  16. 256   STRING   error_msg
  17.  
  18. ( word to build assembly code )
  19.  
  20. : BUILDCODE ( code number_of_integers )
  21.     <BUILDS 0 DO , LOOP DOES>
  22. ;
  23.  
  24. 0 0 0 0 0 0 0 0
  25. 0 0 0 0 0 0 0 0
  26. 16
  27. BUILDCODE REGISTERS
  28.  
  29. 1316290560
  30. 1289715711
  31. REGISTERS
  32. 1224310783
  33. 1320581120
  34. REGISTERS
  35. 1291419647
  36. 1223163902
  37. 8
  38. BUILDCODE lib_call
  39. lib_call & lib_call ! ( make lib_call executeable, its faster this way )
  40.  
  41. 1316290560
  42. 1289715711
  43. -232827904
  44. REGISTERS
  45. -231115776
  46. -234863616
  47. -232295424
  48. REGISTERS
  49. 1291419647
  50. 1223163902
  51. 10
  52. BUILDCODE ieeeTIEEE
  53. ieeeTIEEE & ieeeTIEEE !
  54.  
  55. : D0! REGISTERS ! ;
  56. : D0@ REGISTERS @ ;
  57.  
  58. : D1! REGISTERS 4 + ! ;
  59. : D1@ REGISTERS 4 + @ ;
  60.  
  61. : D2! REGISTERS 8 + ! ;
  62. : D2@ REGISTERS 8 + @ ;
  63.  
  64. : D3! REGISTERS 12 + ! ;
  65. : D3@ REGISTERS 12 + @ ;
  66.  
  67. : D4! REGISTERS 16 + ! ;
  68. : D4@ REGISTERS 16 + @ ;
  69.  
  70. : D5! REGISTERS 20 + ! ;
  71. : D5@ REGISTERS 20 + @ ;
  72.  
  73. : D6! REGISTERS 24 + ! ;
  74. : D6@ REGISTERS 24 + @ ;
  75.  
  76. : A0! REGISTERS 32 + ! ;
  77. : A0@ REGISTERS 32 + @ ;
  78.  
  79. : A1! REGISTERS 36 + ! ;
  80. : A1@ REGISTERS 36 + @ ;
  81.  
  82. : A2! REGISTERS 40 + ! ;
  83. : A2@ REGISTERS 40 + @ ;
  84.  
  85. : A3! REGISTERS 44 + ! ;
  86. : A3@ REGISTERS 44 + @ ;
  87.  
  88. : A4! REGISTERS 48 + ! ;
  89. : A4@ REGISTERS 48 + @ ;
  90.  
  91. : A5! REGISTERS 52 + ! ;
  92. : A5@ REGISTERS 52 + @ ;
  93.                   
  94. : A6! REGISTERS 56 + ! ;
  95. : A6@ REGISTERS 56 + @ ;
  96.  
  97. : LIB_CALL ( iOffset aLibBase )
  98.     @ A6! REGISTERS 28 + !
  99.     lib_call
  100. ;
  101.  
  102. : LIB_CLOSE ( aLibBase )
  103.     @ A1! -414 ExecBase LIB_CALL
  104. ;
  105.  
  106. : LIB_OPEN  ( iVersion sName -> iLibBase )
  107.     A1! D0! -552 ExecBase LIB_CALL
  108.     D0@
  109. ;
  110.  
  111. : SP>DP     ( iSinglePrecision -> f )
  112.   D0! ieeeTIEEE REGISTERS F@
  113. ;
  114.  
  115. : DISP_MSG  ( DISP_MSG )
  116.     "OK" error_msg GET_KEY DROP
  117. ;
  118.  
  119. ?ENDIF ( SYSTEM.RPL )
  120.