1988-10-26 15:21:11 +00:00
|
|
|
/* REQUIRED PROCEDURES AND FUNCTIONS */
|
|
|
|
|
|
|
|
/* PROCEDURES */
|
|
|
|
/* FILE HANDLING */
|
|
|
|
#define R_REWRITE 1
|
|
|
|
#define R_PUT 2
|
|
|
|
#define R_RESET 3
|
|
|
|
#define R_GET 4
|
|
|
|
#define R_PAGE 5
|
|
|
|
|
|
|
|
/* DYNAMIC ALLOCATION */
|
|
|
|
#define R_NEW 6
|
|
|
|
#define R_DISPOSE 7
|
1989-05-03 10:30:22 +00:00
|
|
|
#define R_MARK 8
|
|
|
|
#define R_RELEASE 9
|
|
|
|
|
|
|
|
/* MISCELLANEOUS PROCEDURE(S) */
|
|
|
|
#define R_HALT 10
|
1988-10-26 15:21:11 +00:00
|
|
|
|
|
|
|
/* TRANSFER */
|
1989-05-03 10:30:22 +00:00
|
|
|
#define R_PACK 11
|
|
|
|
#define R_UNPACK 12
|
1988-10-26 15:21:11 +00:00
|
|
|
|
|
|
|
/* FUNCTIONS */
|
|
|
|
/* ARITHMETIC */
|
1989-05-03 10:30:22 +00:00
|
|
|
#define R_ABS 13
|
|
|
|
#define R_SQR 14
|
|
|
|
#define R_SIN 15
|
|
|
|
#define R_COS 16
|
|
|
|
#define R_EXP 17
|
|
|
|
#define R_LN 18
|
|
|
|
#define R_SQRT 19
|
|
|
|
#define R_ARCTAN 20
|
1988-10-26 15:21:11 +00:00
|
|
|
|
|
|
|
/* TRANSFER */
|
1989-05-03 10:30:22 +00:00
|
|
|
#define R_TRUNC 21
|
|
|
|
#define R_ROUND 22
|
1988-10-26 15:21:11 +00:00
|
|
|
|
|
|
|
/* ORDINAL */
|
1989-05-03 10:30:22 +00:00
|
|
|
#define R_ORD 23
|
|
|
|
#define R_CHR 24
|
|
|
|
#define R_SUCC 25
|
|
|
|
#define R_PRED 26
|
1988-10-26 15:21:11 +00:00
|
|
|
|
|
|
|
/* BOOLEAN */
|
1989-05-03 10:30:22 +00:00
|
|
|
#define R_ODD 27
|
|
|
|
#define R_EOF 28
|
|
|
|
#define R_EOLN 29
|