|
9
|
1 OPT -L
|
|
|
2
|
|
|
3 ***
|
|
|
4 * OS9 EQUATES
|
|
|
5 ***
|
|
|
6 F$LINK EQU 0
|
|
|
7 F$LOAD EQU 1
|
|
|
8 F$UNLK EQU 2
|
|
|
9 F$EXIT EQU 6
|
|
|
10
|
|
|
11 ***
|
|
|
12 * FILE CONTROL BLOCK EQUATES
|
|
|
13 ***
|
|
|
14 FFLAGL EQU $B LOW FLAG BYTE
|
|
|
15 FCCTL EQU $D CONTROL BYTE
|
|
|
16
|
|
|
17 DATAEND EQU $D2 ZERO PAGE DATA SIZE
|
|
|
18
|
|
|
19 ***
|
|
|
20 * ZERO PAGE EQUATES
|
|
|
21 ***
|
|
|
22 MEMTOP EQU 0 ABSOLUTE ADDRESS OF MEMORY TOP
|
|
|
23 MEMBOT EQU 2 ABSOLUTE ADDRESS OF MEMORY BOTTOM
|
|
|
24 SUPJTBL EQU 4 SUPPORT JUMP TABLE ADDRESS
|
|
|
25 SUPBEG EQU 6 ABSOLUTE ADDRESS OF SUPPORT MODULE HEADER
|
|
|
26 ABORT EQU 8 ADDRESS OF PASCAL ABORT ROUTINE
|
|
|
27 DHOLD EQU $A GENERAL USE
|
|
|
28 YHOLD EQU $E GENERAL USE
|
|
|
29 UHOLD EQU $10 GENERAL USE
|
|
|
30 HEAPPTR EQU $12 HEAP POINTER
|
|
|
31 PROCTAB EQU $16 PROCEDURE TABLE
|
|
|
32 STKBOT EQU $18 ABSOLUTE ADDRESS OF STACK BOTTOM
|
|
|
33 DISPATCH EQU $1A ABSOLUTE ADDRESS OF DISPATCH ROUTINE
|
|
|
34 PROCN EQU $20 CURRENT PROCEDURE NUMBER
|
|
|
35 PATHOK EQU $22 ERROR FILE STATUS FLAG
|
|
|
36 OS9ERR EQU $2E LAST OS9 ERROR NUMBER
|
|
|
37 EXTJTBL EQU $30 ABSOLUTE ADDRESS OF EXTERNAL TABLES
|
|
|
38 HEAPBOT EQU $34 ABSOLUTE ADDRESS OF BOTTOM OF HEAP
|
|
|
39 ISOMOD EQU $37 ISOMOD FLAG
|
|
|
40 RJUSTIFY EQU $38 RIGHT JUSTIFY FLAG
|
|
|
41 MATHABRT EQU $3A MATH ABORT FLAG
|
|
|
42 START EQU $40 CODE START FLAG
|
|
|
43 LOCSIZE EQU $42 LOCAL STACK SIZE
|
|
|
44 EXTSIZE EQU $44 EXTENDED STACK SIZE
|
|
|
45 HEAPSIZE EQU $46 MINIMUM HEAP SIZE
|
|
|
46 SWAPSIZE EQU $48 SWAP SIZE
|
|
|
47 PARAMBEG EQU $4E PARAMETER BEGIN ADDRESS
|
|
|
48 PARAMEND EQU $50 PARAMETER END ADDRESS
|
|
|
49 LINENUM EQU $CE DEBUG LINE NUMBER
|
|
|
50 MATHERR EQU $D0 LAST MATH ERROR NUMBER
|
|
|
51
|
|
|
52 ***
|
|
|
53 * SUPPORT ROUTINE OFFSETS
|
|
|
54 ***
|
|
|
55 IOREADY EQU -108
|
|
|
56 WRITEEOF EQU -105
|
|
|
57 REALSUB EQU -102
|
|
|
58 REALADD EQU -99
|
|
|
59 REALMUL EQU -96
|
|
|
60 REALDIV EQU -93
|
|
|
61 REALSQRT EQU -90
|
|
|
62 REWRITE EQU -87
|
|
|
63 RESET EQU -84
|
|
|
64 PUTCHAR EQU -81
|
|
|
65 WRTBOOL EQU -78
|
|
|
66 GETHEAP EQU -75
|
|
|
67 POINTERR EQU -72
|
|
|
68 RANGEERR EQU -69
|
|
|
69 CASEERR EQU -66
|
|
|
70 CLOSE EQU -63
|
|
|
71 ERROR EQU -60
|
|
|
72 INIT EQU -57
|
|
|
73 QUIT EQU -54
|
|
|
74 ADRMPY EQU -51
|
|
|
75 POSITION EQU -48
|
|
|
76 RELEASE EQU -45
|
|
|
77 STACKCHK EQU -42
|
|
|
78 WRTCHAR EQU -39
|
|
|
79 REPOSITN EQU -36
|
|
|
80 UPDATE EQU -33
|
|
|
81 SCAN EQU -30
|
|
|
82 TIME EQU -27
|
|
|
83 IOABORT EQU -24
|
|
|
84 INTERACT EQU -21
|
|
|
85 IORESULT EQU -18
|
|
|
86 INTMPY EQU -15
|
|
|
87 INTDIV EQU -12
|
|
|
88 PUT EQU -9
|
|
|
89 GET EQU -6
|
|
|
90 WRTSTR EQU -3
|
|
|
91 WRTINT EQU 0
|
|
|
92 READINT EQU 3
|
|
|
93 GETCHAR EQU 6
|
|
|
94 READLN EQU 9
|
|
|
95 READCHAR EQU 12
|
|
|
96 INTMOD EQU 15
|
|
|
97 FLOATTOS EQU 18
|
|
|
98 FLOATNOS EQU 21
|
|
|
99 ROUND EQU 24
|
|
|
100 TRUNCATE EQU 27
|
|
|
101 READREAL EQU 30
|
|
|
102 CNVTREAL EQU 33
|
|
|
103 WRTREAL EQU 36
|
|
|
104 REALEQU EQU 39
|
|
|
105 REALNEQ EQU 42
|
|
|
106 REALGRT EQU 45
|
|
|
107 REALGEQ EQU 48
|
|
|
108 REALLES EQU 51
|
|
|
109 REALLEQ EQU 54
|
|
|
110 SEEKEOF EQU 57
|
|
|
111 FIELDPUT EQU 60
|
|
|
112 FIELDGET EQU 63
|
|
|
113 SHELL EQU 66
|
|
|
114 SYSRPT EQU 69
|
|
|
115 APPEND EQU 72
|
|
|
116 AINT EQU 75
|
|
|
117 AFRAC EQU 78
|
|
|
118 GETINFO EQU 81
|
|
|
119 PUTINFO EQU 84
|
|
|
120 SHORTIO EQU 87
|
|
|
121 FILESIZE EQU 90
|
|
|
122 REALATN EQU 93
|
|
|
123 REALLN EQU 96
|
|
|
124 REALEXP EQU 99
|
|
|
125 REALCOS EQU 102
|
|
|
126 REALSIN EQU 105
|
|
|
127 GETCH EQU 108
|
|
|
128
|
|
|
129 OPT L
|
