|
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)
Types: TextFile
Notes: Mikados_K
Names: »INTRE.K«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »INTRE.K«
;*******************************************************;
;* *;
;* 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
0x000…03b Line {l1=0x39, l2=»;*******************************************************;«, l3=0x39}
0x03b…076 Line {l1=0x39, l2=»;* *;«, l3=0x39}
0x076…0b1 Line {l1=0x39, l2=»;* PASCAL INTERPRETER FOR *;«, l3=0x39}
0x0b1…0ec Line {l1=0x39, l2=»;* MIKADOS PASCAL (EXTENDED PRECISION), *;«, l3=0x39}
0x0ec…127 Line {l1=0x39, l2=»;* VERSION I.4e OF 04 DEC 1979 *;«, l3=0x39}
0x127…162 Line {l1=0x39, l2=»;* *;«, l3=0x39}
0x162…19d Line {l1=0x39, l2=»;* COPYRIGHT (C) 1979 BY *;«, l3=0x39}
0x19d…1d8 Line {l1=0x39, l2=»;* DANSK DATA ELEKTRONIK APS *;«, l3=0x39}
0x1d8…213 Line {l1=0x39, l2=»;* HERLEV HOVEDGADE 207, *;«, l3=0x39}
0x213…24e Line {l1=0x39, l2=»;* 2730 HERLEV *;«, l3=0x39}
0x24e…289 Line {l1=0x39, l2=»;* *;«, l3=0x39}
0x289…2c4 Line {l1=0x39, l2=»;* NORMAL COMPILER: FPE, FPBCD, FPTX, PCOMP, FSYSX *;«, l3=0x39}
0x2c4…2ff Line {l1=0x39, l2=»;* MINIMUM COMPILER: FPEX, FPTX, PCOMP, FSYSX *;«, l3=0x39}
0x2ff…33a Line {l1=0x39, l2=»;* STD. INTERPRETER: FPE, FPBCD, FPT, PCOMX, FSYS *;«, l3=0x39}
0x33a…375 Line {l1=0x39, l2=»;*******************************************************;«, l3=0x39}
0x375…378 Line {l1=0x01, l2=» «, l3=0x01}
0x378…380 Line {l1=0x06, l2=» «, l3=0x06}
0x380…389 Line {l1=0x07, l2=»INTRE::«, l3=0x07}
0x389…392 Line {l1=0x07, l2=»INTER::«, l3=0x07}
0x392…3d0 Line {l1=0x3c, l2=» EXT ARITH ;INTEGER ARITHMETIC, LOGIC OPERATIONS«, l3=0x3c}
0x3d0…3ff Line {l1=0x2d, l2=» EXT VARS ;VARIABLE MANIPULATION«, l3=0x2d}
0x3ff…427 Line {l1=0x26, l2=» EXT SET ;SET OPERATIONS«, l3=0x26}
0x427…46f Line {l1=0x46, l2=» EXT FPE ;FLOATING POINT ARITHMETIC (EXTENDED PRECISION)«, l3=0x46}
0x46f…485 Line {l1=0x14, l2=» EXT FPBCD«, l3=0x14}
0x485…4be Line {l1=0x37, l2=» EXT FPTX ; - TRANSCENDENT FUNCTIONS«, l3=0x37}
0x4be…4e7 Line {l1=0x27, l2=» EXT PROC ;PROCEDURE CALLS«, l3=0x27}
0x4e7…514 Line {l1=0x2b, l2=» EXT STAPR ;STANDARD PROCEDURES«, l3=0x2b}
0x514…551 Line {l1=0x3b, l2=» EXT PCOMP ;SPECIAL PROCEDURES USED BY COMPILER«, l3=0x3b}
0x551…581 Line {l1=0x2e, l2=» EXT PFILS ;FILE SYSTEM OPERATIONS«, l3=0x2e}
0x581…5a7 Line {l1=0x24, l2=» EXT FSYSX ;SEEK ROUTINE«, l3=0x24}
0x5a7…5db Line {l1=0x32, l2=» EXT INITP ;INTERPRETER INITIALIZATION«, l3=0x32}
0x5db…5de Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x5e1…621 Line {l1=0x3e, l2=»MAXADR::EQU 0 ;END OF AREA USED BY PASCAL INTERPRETER«, l3=0x3e}
0x621…64d Line {l1=0x2a, l2=» ; VALUE MUST BE ODD«, l3=0x2a}
0x64d…68d Line {l1=0x3e, l2=» ; SET TO ZERO IF INTERPRETER SHOULD USE«, l3=0x3e}
0x68d…6ce Line {l1=0x3f, l2=» ; ALL THE MEMORY INSTALLED IN THE REGION«, l3=0x3f}
0x6ce…709 Line {l1=0x39, l2=» ; IN WHICH THE PROGRAM IS EXECUTED«, l3=0x39}
0x709…70c Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x70f…746 Line {l1=0x35, l2=» END ;OF CENTRAL INTERPRETER MODULE«, l3=0x35}
0x746…760 00 00 41 4c 20 49 4e 54 45 52 50 52 45 54 45 52 20 4d 4f 44 55 4c 45 35 00 00 ┆ AL INTERPRETER MODULE5 ┆
0x760…780 52 45 54 45 52 3e 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆RETER>* ; ┆
0x780…7a0 56 41 4c 55 45 20 4d 55 53 54 20 42 45 20 4f 44 44 2a 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆VALUE MUST BE ODD*> ┆
0x7a0…7c0 20 20 20 20 20 20 20 20 20 20 3b 20 53 45 54 20 54 4f 20 5a 45 52 4f 20 49 46 20 49 4e 54 45 52 ┆ ; SET TO ZERO IF INTER┆
0x7c0…7e0 50 52 45 54 45 52 20 53 48 4f 55 4c 44 20 55 53 45 3e 3f 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PRETER SHOULD USE>? ┆
0x7e0…800 20 20 20 20 20 20 20 20 20 20 3b 20 41 4c 4c 20 54 48 45 20 4d 45 4d 4f 52 59 20 49 4e 53 54 41 ┆ ; ALL THE MEMORY INSTA┆
0x800…820 4c 4c 45 44 20 49 4e 20 54 48 45 20 52 45 47 49 4f 4e 3f 39 20 20 20 20 20 20 20 20 20 20 20 20 ┆LLED IN THE REGION?9 ┆
0x820…840 20 20 20 20 20 20 20 20 20 20 20 3b 20 49 4e 20 57 48 49 43 48 20 54 48 45 20 50 52 4f 47 52 41 ┆ ; IN WHICH THE PROGRA┆
0x840…860 4d 20 49 53 20 45 58 45 43 55 54 45 44 39 01 20 01 01 20 01 35 20 20 20 20 20 20 20 45 4e 44 20 ┆M IS EXECUTED9 5 END ┆
0x860…880 20 20 20 20 20 20 20 20 20 20 20 20 3b 4f 46 20 43 45 4e 54 52 41 4c 20 49 4e 54 45 52 50 52 45 ┆ ;OF CENTRAL INTERPRE┆
0x880…8a0 54 45 52 20 4d 4f 44 55 4c 45 35 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆TER MODULE5 ┆
0x8a0…8c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x17…]
0xba0…bc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63 ┆ c┆