|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4512 (0x11a0)
Notes: Mikados TextFile, Mikados_K
Names: »INTRE«
└─⟦ca21ef4c0⟧ Bits:30005311 Extended Pascal System Disc v. 04.07.1980 (SPC/1)
└─ ⟦this⟧ »INTRE«
;*******************************************************;
;* *;
;* PASCAL INTERPRETER FOR *;
;* MIKADOS PASCAL (EXTENDED PRECISION), *;
;* VERSION I.4e OF 04 DEC 1979 *;
;* *;
;* COPYRIGHT (C) 1979 BY *;
;* DANSK DATA ELEKTRONIK APS *;
;* HERLEV HOVEDGADE 207, *;
;* 2730 HERLEV *;
;* *;
;* NORMAL COMPILER: FPE, FPBCD, FPTX, PCOMP, FSYSX *;
;* MINIMUM COMPILER: FPEX, FPTX, PCOMP, FSYSX *;
;* STD. INTERPRETER: FPE, FPBCD, FPT, PCOMX, FSYS *;
;* MIN. INTERPRETER: FPEX, FPTX, PCOMX, FSYSX *;
;*******************************************************;
INTRE::
INTER::
EXT ARITH ;INTEGER ARITHMETIC, LOGIC OPERATIONS
EXT VARS ;VARIABLE MANIPULATION
EXT SET ;SET OPERATIONS
EXT FPE ;FLOATING POINT ARITHMETIC (EXTENDED PRECISION)
EXT FPBCD
EXT FPT ; - TRANSCENDENT FUNCTIONS
EXT PROC ;PROCEDURE CALLS
EXT STAPR ;STANDARD PROCEDURES
EXT PCOMX ;SPECIAL PROCEDURES USED BY COMPILER
EXT PFILS ;FILE SYSTEM OPERATIONS
EXT FSYS ;SEEK ROUTINE
EXT INITP ;INTERPRETER INITIALIZATION
EXT SPCHK ;STACK POINTER CHECK
MAXADR::EQU 0 ;END OF AREA USED BY PASCAL INTERPRETER
; VALUE MUST BE ODD
; SET TO ZERO IF INTERPRETER SHOULD USE
; ALL THE MEMORY INSTALLED IN THE REGION
; IN WHICH THE PROGRAM IS EXECUTED
END ;OF CENTRAL INTERPRETER MODULE