|
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: 4576 (0x11e0)
Types: TextFile
Notes: Mikados_K
Names: »INTER.K«
└─⟦89d8689a3⟧ Bits:30003591 MIKADOS Pascal compiler (01.02.1982 E)
└─⟦this⟧ »INTER.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 *;
;* 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 FPTX ; - 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
0x0000…003b Line {l1=0x39, l2=»;*******************************************************;«, l3=0x39}
0x003b…0076 Line {l1=0x39, l2=»;* *;«, l3=0x39}
0x0076…00b1 Line {l1=0x39, l2=»;* PASCAL INTERPRETER FOR *;«, l3=0x39}
0x00b1…00ec Line {l1=0x39, l2=»;* MIKADOS PASCAL (EXTENDED PRECISION), *;«, l3=0x39}
0x00ec…0127 Line {l1=0x39, l2=»;* VERSION I.4e OF 04 DEC 1979 *;«, l3=0x39}
0x0127…0162 Line {l1=0x39, l2=»;* *;«, l3=0x39}
0x0162…019d Line {l1=0x39, l2=»;* COPYRIGHT (C) 1979 BY *;«, l3=0x39}
0x019d…01d8 Line {l1=0x39, l2=»;* DANSK DATA ELEKTRONIK APS *;«, l3=0x39}
0x01d8…0213 Line {l1=0x39, l2=»;* HERLEV HOVEDGADE 207, *;«, l3=0x39}
0x0213…024e Line {l1=0x39, l2=»;* 2730 HERLEV *;«, l3=0x39}
0x024e…0289 Line {l1=0x39, l2=»;* *;«, l3=0x39}
0x0289…02c4 Line {l1=0x39, l2=»;* NORMAL COMPILER: FPE, FPBCD, FPTX, PCOMP, FSYSX *;«, l3=0x39}
0x02c4…02ff Line {l1=0x39, l2=»;* MINIMUM COMPILER: FPEX, FPTX, PCOMP, FSYSX *;«, l3=0x39}
0x02ff…033a Line {l1=0x39, l2=»;* STD. INTERPRETER: FPE, FPBCD, FPT, PCOMX, FSYS *;«, l3=0x39}
0x033a…0375 Line {l1=0x39, l2=»;* MIN. INTERPRETER: FPEX, FPTX, PCOMX, FSYSX *;«, l3=0x39}
0x0375…03b0 Line {l1=0x39, l2=»;*******************************************************;«, l3=0x39}
0x03b0…03b3 Line {l1=0x01, l2=» «, l3=0x01}
0x03b3…03bb Line {l1=0x06, l2=» «, l3=0x06}
0x03bb…03c4 Line {l1=0x07, l2=»INTRE::«, l3=0x07}
0x03c4…03cd Line {l1=0x07, l2=»INTER::«, l3=0x07}
0x03cd…040b Line {l1=0x3c, l2=» EXT ARITH ;INTEGER ARITHMETIC, LOGIC OPERATIONS«, l3=0x3c}
0x040b…043a Line {l1=0x2d, l2=» EXT VARS ;VARIABLE MANIPULATION«, l3=0x2d}
0x043a…0462 Line {l1=0x26, l2=» EXT SET ;SET OPERATIONS«, l3=0x26}
0x0462…04aa Line {l1=0x46, l2=» EXT FPE ;FLOATING POINT ARITHMETIC (EXTENDED PRECISION)«, l3=0x46}
0x04aa…04c0 Line {l1=0x14, l2=» EXT FPBCD«, l3=0x14}
0x04c0…04f9 Line {l1=0x37, l2=» EXT FPTX ; - TRANSCENDENT FUNCTIONS«, l3=0x37}
0x04f9…0522 Line {l1=0x27, l2=» EXT PROC ;PROCEDURE CALLS«, l3=0x27}
0x0522…054f Line {l1=0x2b, l2=» EXT STAPR ;STANDARD PROCEDURES«, l3=0x2b}
0x054f…058c Line {l1=0x3b, l2=» EXT PCOMX ;SPECIAL PROCEDURES USED BY COMPILER«, l3=0x3b}
0x058c…05bc Line {l1=0x2e, l2=» EXT PFILS ;FILE SYSTEM OPERATIONS«, l3=0x2e}
0x05bc…05e2 Line {l1=0x24, l2=» EXT FSYS ;SEEK ROUTINE«, l3=0x24}
0x05e2…0616 Line {l1=0x32, l2=» EXT INITP ;INTERPRETER INITIALIZATION«, l3=0x32}
0x0616…0643 Line {l1=0x2b, l2=» EXT SPCHK ;STACK POINTER CHECK«, l3=0x2b}
0x0643…0646 Line {l1=0x01, l2=» «, l3=0x01}
0x0646…0686 Line {l1=0x3e, l2=»MAXADR::EQU 0 ;END OF AREA USED BY PASCAL INTERPRETER«, l3=0x3e}
0x0686…06b2 Line {l1=0x2a, l2=» ; VALUE MUST BE ODD«, l3=0x2a}
0x06b2…06f2 Line {l1=0x3e, l2=» ; SET TO ZERO IF INTERPRETER SHOULD USE«, l3=0x3e}
0x06f2…0733 Line {l1=0x3f, l2=» ; ALL THE MEMORY INSTALLED IN THE REGION«, l3=0x3f}
0x0733…076e Line {l1=0x39, l2=» ; IN WHICH THE PROGRAM IS EXECUTED«, l3=0x39}
0x076e…0771 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x0774…07ab Line {l1=0x35, l2=» END ;OF CENTRAL INTERPRETER MODULE«, l3=0x35}
0x07ab…07c0 00 00 45 54 20 54 4f 20 5a 45 52 4f 20 49 46 20 49 4e 54 45 52 ┆ ET TO ZERO IF INTER┆
0x07c0…07e0 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>? ┆
0x07e0…0800 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┆
0x0800…0820 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 ┆
0x0820…0840 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┆
0x0840…0860 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 ┆
0x0860…0880 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┆
0x0880…08a0 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 ┆
0x08a0…08c0 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 ┆ ┆
[…0x18…]
0x0bc0…0be0 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 2a ┆ *┆
0x0be0…0c00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 39 39 3b 2a 20 20 ┆*************************;99;* ┆
0x0c00…0c20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c20…0c40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3b 39 39 3b 2a 20 20 20 20 20 50 41 ┆ *;99;* PA┆
0x0c40…0c60 53 43 41 4c 20 49 4e 54 45 52 50 52 45 54 45 52 20 46 4f 52 20 20 20 20 20 20 20 20 20 20 20 20 ┆SCAL INTERPRETER FOR ┆
0x0c60…0c80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3b 39 39 3b 2a 20 20 20 20 20 20 20 4d 49 4b 41 44 ┆ *;99;* MIKAD┆
0x0c80…0ca0 4f 53 20 50 41 53 43 41 4c 20 28 45 58 54 45 4e 44 45 44 20 50 52 45 43 49 53 49 4f 4e 29 2c 20 ┆OS PASCAL (EXTENDED PRECISION), ┆
0x0ca0…0cc0 4c 44 45 52 20 28 41 4e 54 41 4c 20 4f 4b 54 45 54 54 45 52 29 20 44 49 56 20 34 3c 2a 20 20 20 ┆LDER (ANTAL OKTETTER) DIV 4<* ┆
0x0cc0…0ce0 20 20 20 20 4d 4f 56 20 20 20 20 20 42 2c 41 20 20 20 20 20 3b 47 45 4d 20 42 49 54 4d 5c 4e 53 ┆ MOV B,A ;GEM BITMØNS┆
0x0ce0…0d00 54 45 52 20 49 20 42 2a 0a 20 20 20 20 20 20 20 43 4d 41 0a 38 20 20 20 20 20 20 20 4d 4f 56 20 ┆TER I B* CMA 8 MOV ┆
0x0d00…0d20 20 20 20 20 43 2c 41 20 20 20 20 20 3b 47 45 4d 20 4b 4f 4d 50 4c 45 4d 45 4e 54 45 52 54 20 42 ┆ C,A ;GEM KOMPLEMENTERT B┆
0x0d20…0d40 49 54 4d 5c 4e 53 54 45 52 20 49 20 43 38 01 3b 01 12 42 53 4b 52 31 3a 20 4d 4f 56 20 20 20 20 ┆ITMØNSTER I C8 ; BSKR1: MOV ┆
0x0d40…0d60 20 4d 2c 42 12 10 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 10 2c 20 20 20 20 20 20 20 4d ┆ M,B INX H , M┆
0x0d60…0d80 4f 56 20 20 20 20 20 4d 2c 43 20 20 20 20 20 3b 54 4f 20 43 45 4c 4c 45 52 20 45 52 20 53 4b 52 ┆OV M,C ;TO CELLER ER SKR┆
0x0d80…0da0 45 56 45 54 2c 10 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 10 12 20 20 20 20 20 20 20 4d ┆EVET, INX H M┆
0x0da0…0dc0 4f 56 20 20 20 20 20 4d 2c 42 12 10 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 10 2c 20 20 ┆OV M,B INX H , ┆
0x0dc0…0de0 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4d 2c 43 20 20 20 20 20 3b 54 4f 20 43 45 4c 4c 45 52 20 ┆ MOV M,C ;TO CELLER ┆
0x0de0…0e00 45 52 20 53 4b 52 45 56 45 54 2c 10 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 10 10 20 20 ┆ER SKREVET, INX H ┆
0x0e00…0e20 20 20 20 20 20 44 43 58 20 20 20 20 20 44 10 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 ┆ DCX D MOV A┆
0x0e20…0e40 2c 44 12 39 20 20 20 20 20 20 20 4f 52 41 20 20 20 20 20 45 20 20 20 20 20 20 20 3b 45 52 20 44 ┆,D 9 ORA E ;ER D┆
0x0e40…0e60 45 52 20 46 4c 45 52 45 20 43 45 4c 4c 45 52 20 41 54 20 53 4b 52 49 56 45 20 49 20 3f 39 14 20 ┆ER FLERE CELLER AT SKRIVE I ?9 ┆
0x0e60…0e80 20 20 20 20 20 20 4a 4e 5a 20 20 20 20 20 42 53 4b 52 31 14 0a 20 20 20 20 20 20 20 52 45 54 0a ┆ JNZ BSKR1 RET ┆
0x0e80…0ea0 46 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 53 4c 55 54 20 53 4b 52 49 ┆F;******************** SLUT SKRI┆
0x0ea0…0ec0 56 4e 49 4e 47 20 41 46 20 54 45 53 54 4d 5c 4e 53 54 45 52 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆VNING AF TESTMØNSTER ***********┆
0x0ec0…0ee0 2a 2a 2a 2a 2a 2a 2a 46 01 3b 01 46 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆*******F ; F;*******************┆
0x0ee0…0f00 2a 20 4c 5b 53 20 54 45 53 54 4d 5c 4e 53 54 45 52 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆* LÆS TESTMØNSTER **************┆
0x0f00…0f20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 46 01 3b 01 44 3b 55 4e 44 45 52 50 52 4f ┆******************F ; D;UNDERPRO┆
0x0f20…0f40 47 52 41 4d 4d 45 54 20 4c 5b 53 45 52 20 49 20 31 36 4b 20 4c 41 47 45 52 20 4f 47 20 53 41 4d ┆GRAMMET LÆSER I 16K LAGER OG SAM┆
0x0f40…0f60 4d 45 4e 4c 49 47 4e 45 52 20 4d 45 44 20 41 20 4f 47 20 41 27 53 20 4b 4f 4d 2d 44 45 3b 50 4c ┆MENLIGNER MED A OG A'S KOM-DE;PL┆
0x0f60…0f80 45 4d 45 4e 54 2e 20 48 56 49 53 20 46 45 4a 4c 20 53 5b 54 54 45 53 20 43 59 20 56 45 44 20 55 ┆EMENT. HVIS FEJL SÆTTES CY VED U┆
0x0f80…0fa0 44 48 4f 50 2e 20 48 56 49 53 20 46 45 4a 4c 20 50 45 47 45 52 20 48 4c 20 50 5d 20 43 45 4c 4c ┆DHOP. HVIS FEJL PEGER HL PÅ CELL┆
0x0fa0…0fc0 45 4e 45 2f 3b 4f 47 20 41 20 49 4e 44 45 48 4f 4c 44 45 52 20 44 45 4e 20 46 4f 52 56 45 4e 54 ┆ENE/;OG A INDEHOLDER DEN FORVENT┆
0x0fc0…0fe0 45 44 45 20 56 5b 52 44 49 20 49 20 43 45 4c 4c 45 4e 2e 2f 01 3b 01 2b 42 4c 5b 44 53 3a 20 20 ┆EDE VÆRDI I CELLEN./ ; +BLÆDS: ┆
0x0fe0…1000 4c 48 4c 44 20 20 20 20 54 53 41 44 52 20 20 20 3b 48 45 4e 54 20 53 54 41 52 54 41 44 52 45 53 ┆LHLD TSADR ;HENT STARTADRES┆
0x1000…1020 53 45 4e 2b 3c 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 44 2c 31 30 30 30 20 20 3b 44 45 20 ┆SEN+< LXI D,1000 ;DE ┆
0x1020…1040 49 4e 44 45 48 4f 4c 44 45 52 20 28 41 4e 54 41 4c 20 4f 4b 54 45 54 54 45 52 29 20 44 49 56 20 ┆INDEHOLDER (ANTAL OKTETTER) DIV ┆
0x1040…1060 34 3c 27 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 2c 41 20 20 20 20 20 3b 47 45 4d 20 54 ┆4<' MOV B,A ;GEM T┆
0x1060…1080 45 53 54 4d 5c 4e 53 54 45 52 27 0a 20 20 20 20 20 20 20 43 4d 41 0a 35 20 20 20 20 20 20 20 4d ┆ESTMØNSTER' CMA 5 M┆
0x1080…10a0 4f 56 20 20 20 20 20 43 2c 41 20 20 20 20 20 3b 47 45 4d 20 4b 4f 4d 50 4c 45 4d 45 4e 54 45 52 ┆OV C,A ;GEM KOMPLEMENTER┆
0x10a0…10c0 54 20 54 45 53 54 4d 5c 4e 53 54 45 52 35 01 3b 01 13 42 4c 5b 44 53 31 3a 20 4d 4f 56 20 20 20 ┆T TESTMØNSTER5 ; BLÆDS1: MOV ┆
0x10c0…10e0 20 20 41 2c 42 13 10 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 20 4d 10 1d 20 20 20 20 20 20 20 ┆ A,B CMP M ┆
0x10e0…1100 4a 4e 5a 20 20 20 20 20 42 4c 5b 44 53 32 20 20 20 3b 46 45 4a 4c 1d 10 20 20 20 20 20 20 20 49 ┆JNZ BLÆDS2 ;FEJL I┆
0x1100…1120 4e 58 20 20 20 20 20 48 10 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 43 12 10 20 20 ┆NX H MOV A,C ┆
0x1120…1140 20 20 20 20 20 43 4d 50 20 20 20 20 20 4d 10 1d 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 20 20 42 ┆ CMP M JNZ B┆
0x1140…1160 4c 5b 44 53 32 20 20 20 3b 46 45 4a 4c 1d 10 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 10 ┆LÆDS2 ;FEJL INX H ┆
0x1160…1180 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 42 12 10 20 20 20 20 20 20 20 43 4d 50 20 ┆ MOV A,B CMP ┆
0x1180…11a0 20 20 20 20 4d 10 1d 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 20 20 42 4c 5b 44 53 32 20 20 20 63 ┆ M JNZ BLÆDS2 c┆
0x11a0…11c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]