OPT -L

***
* OS9 EQUATES
***
F$LINK EQU 0
F$LOAD EQU 1
F$UNLK EQU 2
F$EXIT EQU 6

***
* FILE CONTROL BLOCK EQUATES
***
FFLAGL EQU $B LOW FLAG BYTE
FCCTL  EQU $D CONTROL BYTE

DATAEND EQU $D2 ZERO PAGE DATA SIZE

***
* ZERO PAGE EQUATES
***
MEMTOP EQU 0 ABSOLUTE ADDRESS OF MEMORY TOP
MEMBOT EQU 2 ABSOLUTE ADDRESS OF MEMORY BOTTOM
SUPJTBL EQU 4 SUPPORT JUMP TABLE ADDRESS
SUPBEG EQU 6 ABSOLUTE ADDRESS OF SUPPORT MODULE HEADER
ABORT EQU 8 ADDRESS OF PASCAL ABORT ROUTINE
DHOLD EQU $A GENERAL USE
YHOLD EQU $E GENERAL USE
UHOLD EQU $10 GENERAL USE
HEAPPTR EQU $12 HEAP POINTER
PROCTAB EQU $16 PROCEDURE TABLE
STKBOT EQU $18 ABSOLUTE ADDRESS OF STACK BOTTOM
DISPATCH EQU $1A ABSOLUTE ADDRESS OF DISPATCH ROUTINE
PROCN EQU $20 CURRENT PROCEDURE NUMBER
PATHOK EQU $22 ERROR FILE STATUS FLAG
OS9ERR EQU $2E LAST OS9 ERROR NUMBER
EXTJTBL EQU $30 ABSOLUTE ADDRESS OF EXTERNAL TABLES
HEAPBOT EQU $34 ABSOLUTE ADDRESS OF BOTTOM OF HEAP
ISOMOD EQU $37 ISOMOD FLAG
RJUSTIFY EQU $38 RIGHT JUSTIFY FLAG
MATHABRT EQU $3A MATH ABORT FLAG
START EQU $40 CODE START FLAG
LOCSIZE EQU $42 LOCAL STACK SIZE
EXTSIZE EQU $44 EXTENDED STACK SIZE
HEAPSIZE EQU $46 MINIMUM HEAP SIZE
SWAPSIZE EQU $48 SWAP SIZE
PARAMBEG EQU $4E PARAMETER BEGIN ADDRESS
PARAMEND EQU $50 PARAMETER END ADDRESS
LINENUM EQU $CE DEBUG LINE NUMBER
MATHERR EQU $D0 LAST MATH ERROR NUMBER

***
* SUPPORT ROUTINE OFFSETS
***
IOREADY EQU -108
WRITEEOF EQU -105
REALSUB EQU -102
REALADD EQU -99
REALMUL EQU -96
REALDIV EQU -93
REALSQRT EQU -90
REWRITE EQU -87
RESET EQU -84
PUTCHAR EQU -81
WRTBOOL EQU -78
GETHEAP EQU -75
POINTERR EQU -72
RANGEERR EQU -69
CASEERR EQU -66
CLOSE EQU -63
ERROR EQU -60
INIT EQU -57
QUIT EQU -54
ADRMPY EQU -51
POSITION EQU -48
RELEASE EQU -45
STACKCHK EQU -42
WRTCHAR EQU -39
REPOSITN EQU -36
UPDATE EQU -33
SCAN EQU -30
TIME EQU -27
IOABORT EQU -24
INTERACT EQU -21
IORESULT EQU -18
INTMPY EQU -15
INTDIV EQU -12
PUT EQU -9
GET EQU -6
WRTSTR EQU -3
WRTINT EQU 0
READINT EQU 3
GETCHAR EQU 6
READLN EQU 9
READCHAR EQU 12
INTMOD EQU 15
FLOATTOS EQU 18
FLOATNOS EQU 21
ROUND EQU 24
TRUNCATE EQU 27
READREAL EQU 30
CNVTREAL EQU 33
WRTREAL EQU 36
REALEQU EQU 39
REALNEQ EQU 42
REALGRT EQU 45
REALGEQ EQU 48
REALLES EQU 51
REALLEQ EQU 54
SEEKEOF EQU 57
FIELDPUT EQU 60
FIELDGET EQU 63
SHELL EQU 66
SYSRPT EQU 69
APPEND EQU 72
AINT EQU 75
AFRAC EQU 78
GETINFO EQU 81
PUTINFO EQU 84
SHORTIO EQU 87
FILESIZE EQU 90
REALATN EQU 93
REALLN EQU 96
REALEXP EQU 99
REALCOS EQU 102
REALSIN EQU 105
GETCH EQU 108

 OPT L