|
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: 3008 (0xbc0)
Notes: Mikados TextFile, Mikados_K
Names: »INTRE«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─ ⟦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 *;
;*******************************************************;
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 FPTX ; - TRANSCENDENT FUNCTIONS
EXT PROC ;PROCEDURE CALLS
EXT STAPR ;STANDARD PROCEDURES
EXT PCOMP ;SPECIAL PROCEDURES USED BY COMPILER
EXT PFILS ;FILE SYSTEM OPERATIONS
EXT FSYSX ;SEEK ROUTINE
EXT INITP ;INTERPRETER INITIALIZATION
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