// DATE 081020 // NOHALT * *** RUN MAINT. * // LOAD $MAINT,F1 // RUN // COPY FROM-READER,TO-F1,RETAIN-R,LIBRARY-S,NAME-$I$E MACRO $I$E &EXP-Y .* .* 5703-XM1 S/3 BASIC FIXED INTERPRETER VIRTUAL ADDR EQUATES .* TEXT PRINT OFF AIF (&EXP EQ 'Y').ON PRINT ON REQUESTED ? AIF (&EXP EQ 'N').OFF PRINT OFF REQUESTED ? .ERR MNOTE 00,'INVALID MACRO OPTION SPECIFIED.' AGO .MEND .ON ANOP PRINT ON .OFF ANOP TITLE '$I$EQ - S/3 BASIC INTERPRETER FIXED ADDRESS EQUATES' *********************************************************************** * FIXED REGION CORE ADDRESS EQUATES * *********************************************************************** * I$CSXA EQU X'2000' CORE EXTENSION STARTING ADDR I$CPG1 EQU X'1600' CORE PAGE REGION STARTING ADDR * *********************************************************************** EJECT *********************************************************************** * CORE RESIDENT ROUTINE ENTRY POINTS AND PARAMETER ADDRESSES * *********************************************************************** * I$INIT EQU X'0607' ENTRY - INTERPRETER INITIATOR I$FWRK EQU X'0607' INTERPRETER FUNCTION WORK AREA I$STKB EQU X'0639' RUN-TIME STACK BASE CORE ADDR * I$INTR EQU X'0C5C' ENTRY - INTERPRETER EXECUTIVE I$NPAG EQU X'0C68' ENTRY - RESET EXECUTION CONTROL I$XAD4 EQU X'0C74' ENTRY - INCR IAR, 4-BYTE INST I$XAD3 EQU X'0C7B' ENTRY - INCR IAR, 3-BYTE INST I$XAD2 EQU X'0C82' ENTRY - INCR IAR, 2-BYTE INST I$XAD1 EQU X'0C89' ENTRY - INCR IAR, 1-BYTE INST I$ADST EQU X'0C9D' ENTRY - INCR STACK POINTER RTN I$XERR EQU X'0CAB' ENTRY - EXECUTION ERROR RTN I$BASE EQU X'0C60' INTERPRETER BASE CORE ADDRESS I$STAK EQU X'0D4E' RUN-TIME STACK POINTER I$STKI EQU X'0D4F' RUN-TIME STACK POINTER INCR I$XPAG EQU X'0C61' CURRENT PSEUDO INSTRUCTION PAGE I$XIAR EQU X'0D4C' PSEUDO INSTRUCTION CORE ADDR I$ERRC EQU X'0CBC' EXECUTION ERROR CODE BYTE I$DATA EQU X'0D53' INTERNAL DATA FILE VADDR RT I$DAT1 EQU X'0D55' DATA FILE 1ST ELEMENT VADDR I$PARM EQU X'0D57' PARAMETER COMMUNICATION AREA I$WRK1 EQU X'0D59' GENERAL PURPOSE WORK AREA 1 I$WRK2 EQU X'0D5B' GENERAL PURPOSE WORK AREA 2 I$STHA EQU X'0D51' CURRENT STMT 'STH' INST VADDR I$IRSW EQU X'0CDE' IMAGE STMT REFERENCE SWITCH I$RESW EQU X'0CE9' STATEMENT RECURSION ERR SWITCH I$TFSW EQU X'0D28' INTERPRETER TRACE FLOW SWITCH I$CBN1 EQU X'0D3E' BINARY CONSTANT, +1 I$CBN2 EQU X'0D3F' BINARY CONSTANT, +2 I$CBN3 EQU X'0D40' BINARY CONSTANT, +3 I$CBN4 EQU X'0D41' BINARY CONSTANT, +4 I$CBM1 EQU X'0D43' BINARY CONSTANT, -1 I$CL1F EQU X'0D44' LENGTH CONSTANT, 1 FLT VALUE I$CL2F EQU X'0D45' LENGTH CONSTANT, 2 FLT VALUES I$CL1C EQU X'0D46' LENGTH CONSTANT, 1 CHAR VALUE I$CL2C EQU X'0D47' LENGTH CONSTANT, 2 CHAR VALUES I$CLVA EQU X'0D49' LENGTH CONSTANT, VIRTUAL ADDR I$CLFA EQU X'0D4A' LENGTH CONST, FLT VALUE AND ADDR * I$RNSW EQU X'0D5C' RANDOM NUMBER INITLZN SWITCH I$RNMK EQU X'0001' RANDOM NUMBER INITLZN SW MASK * * SW ON = RND FUNC PRIOR USAGE * I$INDR EQU X'0DC5' PRINT USING INDICATOR BYTE I$IMLN EQU X'0DC6' IMAGE ASSEMBLY BYTE LENGTH I$PUB1 EQU X'0DC8' IMAGE BUFFER 1 CORE ADDRESS I$PUB2 EQU X'0DCA' IMAGE BUFFER 2 CORE ADDRESS I$IMPT EQU X'0DCC' IMAGE SCAN POINTER I$IMC1 EQU X'0DCE' IMAGE CONV SPEC 1ST CHAR PT I$SDPT EQU X'0DD0' IMAGE CONV SPEC DECML POINT PT I$CSCT EQU X'0D5A' IMAGE CONV SPEC COUNTERS I$SSCT EQU X'0D58' IMAGE CONV SPEC CHAR COUNT I$SDCT EQU X'0D59' IMAGE CONY SPEC DIGIT COUNT I$SFCT EQU X'0D5A' IMAGE CONY SPEC FRACTION COUNT I$SICT EQU X'0D5B' IMAGE CONY SPEC INTEGER COUNT I$ADJX EQU X'0D56' ADJUSTED EXPONENT FOR E-FORMAT * I$FACT EQU X'0DD1' FUNCTION ACTIVITY TBL BASE ADDR I$FATE EQU X'0DE6' FUNCTION ACTIVITY TBL END ADDR I$FATP EQU X'0DE8' FUNCTION ACTIVITY TBL POINTER * I$SFFO EQU X'0D5D' FILE EXEC RTNS OVERLAY CADDR * I$BSET EQU X'119D' ENTRY - SET BRANCH EXEC ADDR I$BRCN EQU X'117B' BRANCH CONDITION STATUS BYTE * I$STCK EQU X'0B50' ENTRY - STACK VM ELEMENT I$SLNG EQU X'0BA2' ELEMENT LENGTH INPUT PARAMETER I$SLLC EQU X'0BA1' STACKED ELEMENT LENGTH PARM * I$USTK EQU X'0BB0' ENTRY - UNSTACK VM ELEMENT I$ULNG EQU X'0C3A' ELEMENT LENGTH INPUT PARAMETER I$DMSW EQU X'0BC1' DATA TYPE MATCHING SWITCH * I$CPUF EQU X'0A27' ENTRY - FLOATING POINT UNPACKER * I$CUPF EQU X'0A85' ENTRY - FLOATING POINT PACKER * I$CFBS EQU X'0AE3' ENTRY - FLT TO BIN SUBSC CONV * I$FADD EQU X'075D' ENTRY - FLOATING ADDITION RTN I$FSUB EQU X'0751' ENTRY - FLOATING SUBTRACT RTN * I$FMPY EQU X'082A' ENTRY - FLOATING MULTIPLY RTN * I$FDVD EQU X'0919' ENTRY - FLOATING DIVISION RTN I$I700 EQU X'0E24' ENTRY - LINE PRT CONFIG. CHECK. I$MOD4 EQU X'130B' ENTRY - STACK MODIFICATION 1-4 * I$CVAD EQU X'1358' ENTRY - PAGING RTN CONV VADDR I$MDFY EQU X'1349' ENTRY - CONVERT VADDR FOR MODFY I$LOCK EQU X'1354' ENTRY - LOCK AND CONVERT VADDR I$UNLK EQU X'1350' ENTRY - UNLOCK A VIRTUAL PAGE I$LDBR EQU X'1329' ENTRY - CONVERT VADDR, LOAD BR I$LDXR EQU X'1330' ENTRY - CONVERT VADDR, LOAD XR I$CALL EQU X'12B1' ENTRY - CALL VIRTUAL MEMORY RTN I$LBFR EQU X'12B6' FORCE LINE PTR BUFFER UNLOCK 1-4 I$RTRN EQU X'12D3' ENTRY - RETURN FROM VM ROUTINE I$PGNO EQU X'1449' VIRTUAL PAGE INPUT PARAMETER I$PGDS EQU X'144A' VIRTUAL PAGE DISP INPUT PARM I$VADR EQU X'144A' VIRTUAL ADDRESS INPUT PARM I$CADR EQU X'144C' CORE ADDRESS OUTPUT PARAMETER I$PGTB EQU X'14CA' PAGE REFERENCE TABLE CORE ADDR I$PLRT EQU X'15E2' CORE PAGE STATUS TABLES ADDR I$PSTK EQU X'15CA' PAGE LINKAGE STACK CORE ADDRESS * *********************************************************************** EJECT *********************************************************************** * SPECIAL INTERPRETER EQUATES REFERENCING CONSTANTS * *********************************************************************** * I$NCPG EQU 10 NO. OF 8K SYSTEM PAGES (MAX) SPACE *********************************************************************** * PRINT USING FUNCTION INDICATORS (USED WITH INDICATOR BYTE I$INDR) * *********************************************************************** * I$NISW EQU X'80' NULL IMAGE INDICATOR * * 1 = CURRENT IMAGE NULL I$B1SW EQU X'40' IMAGE BUFFER 1 INDICATOR * * 1 = BUFFER 1 LOCKED IN CORE I$B2SW EQU X'20' IMAGE BUFFER 2 INDICATOR * * 1 = BUFFER 2 LOCKED IN CORE I$CSSW EQU X'10' CONVERSION SPECIFICATION INDR * * 1 = AT LEAST 1 C/S IN IMAGE I$STSW EQU X'08' CHARACTER STRING INDICATOR * * 1 = CONV SPEC NOT FILLED I$ECSW EQU X'04' E-FORMAT CONVERSION INDICATOR * * 1 = E-FORMAT CONV SPEC I$NDSW EQU X'02' END-OF-IMAGE INDICATOR * * 1 = IMAGE END ENCOUNTERED I$SNSW EQU X'01' IMPLIED NEGATIVE SIGN INDR * * 1 = NEG VALUE W/ NO C/S SIGN * *********************************************************************** * * END OF INTERPRETER FIXED ADDRESS EQUATES .* END OF MACRO; RESTORE PRINT ON. .MEND ANOP PRINT ON MEND // CEND // END * // READER CONSOLE *