DataMuseum.dk

top - metrics - download

    Length: 5888 (0x1700)
    Types: TextFile
    Names: »RTEQU.SA«

└─⟦909f4eb2b⟧ Bits:30009789/_.ft.Ibm2.50006622.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »RTEQU.SA« 
└─⟦ddcd65152⟧ Bits:30009789/_.ft.Ibm2.50006617.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »RTEQU.SA« 

TextFile

         TTL     VER 0.02 68K PASCAL SYMBOL EQUATES
*
*********
*
*        PASCAL RUNTIME ROUTINES EQUATE, AND MACRO FILE
*
*********
*
*                            GLOBAL EQUATES
         PAGE
*
*********
*
*        VARIABLE OFFSETS
*
*********
*
FDP      EQU     4           * 4 = OFFSET TO FILE DESCRIPTOR POINTER
PFS      EQU     4           * 4 = OFFSET TO PASCAL FILE STATUS WORD
CSZ      EQU     6           * 6 = OFFSET TO COMPONENT SIZE WORD
BCD      EQU     6           * 6 = OFFSET TO BCD BUFFER IN REAL READ
HPTR     EQU     4           * 4 = OFFSET TO HEAP PTR IN RT MAINTENCE
CCDR     EQU     52          * 52 = OFFSET TO CHAIN CMD DIAG REG IN RMA
SBP      EQU     20          * 20 = OFFSET TO START OF BUFFER POINTER
EBP      EQU     24          * 24 = OFFSET TO END OF BUFFER POINTER
BUF      EQU     32          * 32 = BUFFER ZONE SIZE FOR STACK ALOCATIONS
A5OFFSET EQU     52          * OFFSET TO A5 REG IN FP USER REG BLOCK
LOWHEAP  EQU     368         * OFFSET TO LOWEST ADDRESS IN HEAP
*
*********
*
*        SYMBOLIC CONSTANTS
*
*********
*
FORM     EQU     12          * 12 = ASCII FORM FEED CODE
SPC      EQU     $20         * $20 = ASCII SPACE CODE ' '
NEG      EQU     $2D         * $2D = ASCII MINUS SIGN CODE '-'
PLUS     EQU     $2B         * $2B = ASCII PLUS  SIGN CODE '+'
ZERO     EQU     $30         * $30 = ASCII CODE FOR '0'
NINE     EQU     $39         * $39 = ASCII CODE FOR '9'
A        EQU     $41         * $41 = ASCII CODE FOR 'A'
E        EQU     $45         * $45 = ASCII CODE FOR 'E'
I        EQU     $49         * $49 = ASCII CODE FOR 'I'
N        EQU     $4E         * $4E = ASCII CODE FOR 'N'
T        EQU     $54         * $54 = ASCII CODE FOR 'T'
Z        EQU     $5A         * $5A = ASCII CODE FOR 'Z'
MINUS_INF   EQU  $B0         * $B0 = SIGN OF EXPONENT FOR MINUS INFINITY
PLUS_INF    EQU  $A0         * $A0 = SIGN OF EXPONENT FOR PLUS INFINITY
NAN_SIGN    EQU  $C0         * $C0 = SIGN OF EXPONENT FOR A NAN
NAN_WIDTH   EQU  16          * 16 = NUM COLUMN POSITION NEEDED TO WRITE A NAN
OVRHD       EQU  4           * 4 = NUMBER OF OVERHEAD DIGITS IN A REAL WRITE
MAXRODIG    EQU  17          * 17 = MAX NUM DIGITS CONVERTED ON OUTPUT
MAXRIDIG    EQU  19          * 19 = MAX NUM DIGITS CONVERTED ON INPUT OF REAL
MAXIIDIG    EQU  34          * 34 = MAX NUM DIGITS CONVERTED ON INPUT OF INT
CLRRNDMODE  EQU  $FCFF       * $FCFF = MASK TO CLEAR ROUNDING MODE TO ZERO
RNDTOZERO   EQU  $0100       * $0100 = MASK TO SET ROUNDING MODE TO RND TO ZERO
INITSTATUS  EQU  0           * 0 = VALUE TO INIT 68341 STATUS REGISTER TO
INITCNTRL   EQU  0           * 0 = VALUE TO INIT 68341 CNTRL REGISTER TO
MAXRNDPREC  EQU  2           * 2 = MAX VALUE OF ROUNDING PREC. FIELD
MAXCLOSURE  EQU  1           * 1 = MAX VALUE OF CLOSURE FIELD
MAXNORMMODE EQU  1           * 1 = MAX VALUE OF THE NORMAIZATION MODE FIELD
MAXRNDMODE  EQU  3           * 3 = MAX VALUE OF THE ROUNDING MODE FIELD
MAXPOSEXP   EQU  4931        * 4931 = MAX POSITIVE EXPONENT
MAXNEGEXP   EQU  4952        * 4952 = MAX NEGATIVE EXPONENT
FPSTACK     EQU  100         * 100 = NUMBER OF FREE BYTES NEEDED BY 68341
RMASIZE       EQU  176         *     NUMBER OF BYTES IN THE RMA
NUMEXCEPTIONS EQU 7          * 7 = THE NUMBER OF FLOATING POINT EXCEPTIONS
*
*
         PAGE
*********
*
*        ERROR CODES
*
*********
*
VALRNG   EQU     $1002       * $1002 = VALUE OUT OF RANGE ERROR
DIVZRO   EQU     $1004       * $1004 = DIVIDE BY ZERO ERROR
OVRFLW   EQU     $1006       * $1006 = OVERFLOW ERROR
INVALPTR EQU     $1008       * $1008 = INVALID POINTER VALUE
COMPERR  EQU     $1011       * $1011 = COMPILER ERROR
STKHEAP  EQU     $10         * $10 = STACK HEAP OVERFLOW ERROR
EOF      EQU     $22         * $22 = END OF FILE ERROR
INTEXP   EQU     $31         * $31 = INTEGER EXPECTED
REALEXP  EQU     $32         * $32 = REAL EXPECTED
BOOLEXP  EQU     $33         * $33 = BOOLEAN EXPECTED
REALRNG  EQU     $51         * $31 = REAL NUMBER OUT OF RANGE
TRAP6809 EQU     $52         * $52 = A 6809 TRAP WAS ENABLED
FLAG6809 EQU     $53         * $53 = A 6809 FLAG WAS SET OR TESTED
BADAMODE EQU     $54         * $54 = A BAD ARITHMETIC MODE VALUE WAS USED
INTVALUE EQU     $61         * $61 = INTEGER VALUE TO LARGE
BADBASE  EQU     $62         * $62 = A BASE BASE WAS SEEN WHILE READING AN INT.
BADDIGIT EQU     $63         * $63 = A DIGIT >= THE CUR BASE WAS FOUND
READOVF  EQU     $64         * $64 = OVERFLOW OCCURED WHILE READING AN INTEGER
BADNAN   EQU     $70         * $70 = BAD MANTISA IN NAN GENERATION
*
*
***************
*
* EOS ERROR CODES
*
**************
*
SECPNO    EQU    0             ORG NO FOR SE-CP
PASCALNO  EQU    7             PASCAL SYSTEM NO
*
GIVEUP    EQU    18            UNIVERSAL GIVEUP
VALERR    EQU    20            UNIVERSAL VAL PARAM ERROR
*
ADDRERR   EQU    GIVEUP<<16+$5001  ADDRESS ERROR
VALSIZER  EQU    VALERR<<16+1      VALSIZE ERROR
VALARGER  EQU    VALERR<<16+2      VALARG ERROR
MMUERR    EQU    GIVEUP<<16+$5002  MMU ERROR
LGTHERR   EQU    GIVEUP<<16+$5003  LENGTH ERROR
OBJERR    EQU    GIVEUP<<16+$5004  OBJECT CALL ERROR
*
 
*        BUFFER BLOCK OFFSETS AND SIZES
*
            OFFSET   0
UNPACKED    DS.B     20
PACKED      DS.B     14
BCDBUFSIZE  DS.W     0
CHARBUFSIZE DS.W     0
*
            OFFSET   0
SIGNS       DS.B     1
AFTER_DP    DS.B     1
EXPONENT    DS.W     1
BCDDIGITS   DS.B     6
NAN_VALUE   DS.B     4           ! THIS FIELD ALSO PART OF BCDDIGITS
ENDPACKED   DS.W     0
*
              OFFSET    104
ERRADR      DS.L     1          * OFFSET TO ERROR ADDRESS SAVE AREA
ERRNUM      DS.L     1          * ERRNMR = OFFSET TO ERROR NUMBER SAVE AREA
REGS        DS.L     1          * REGS =OFFSET FROM A5 TO REGISTER SAVE AREA
*
«eof»