|
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: 1248 (0x4e0)
Notes: Mikados_R
Names: »PRI6«
└─⟦ca21ef4c0⟧ Bits:30005311 Extended Pascal System Disc v. 04.07.1980 (SPC/1)
└─⟦this⟧ »PRI6«
0x000…020 (0,) 13 02 50 52 49 36 20 20 20 20 02 10 00 01 00 00 00 76 76 76 13 0d 04 50 52 49 36 20 20 20 20 02 ┆ PRI6 vvv PRI6 ┆
0x020…040 00 00 08 0d 0d 05 52 55 4e 4e 20 20 20 20 01 00 00 08 0d 05 08 f5 e5 c5 2a 05 05 0b 01 00 00 00 ┆ RUNN * ┆
0x040…060 05 0b 08 01 04 00 09 36 06 c1 e1 f1 c9 0b 02 0f 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ 6 ┆
0x060…080 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 ┆ ┆
[…0x3…]
0x0e0…100 52 45 53 29 3c 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 50 50 52 45 47 20 20 20 3b 21 50 55 ┆RES)< CALL PPREG ;!PU┆
0x100…120 53 48 20 42 55 46 41 44 52 2c 20 42 45 52 45 47 4e 20 44 43 42 20 41 44 52 20 4f 47 20 50 55 53 ┆SH BUFADR, BEREGN DCB ADR OG PUS┆
0x120…140 48 3c 1a 20 20 20 20 20 20 20 49 46 20 20 20 20 20 20 44 45 44 49 43 26 4d 42 41 4e 4b 1a 15 20 ┆H< IF DEDIC&MBANK ┆
0x140…160 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 43 52 45 41 44 56 15 0c 20 20 20 20 20 20 20 45 4e 44 ┆ CALL CREADV END┆
0x160…180 49 46 0c 1e 20 20 20 20 20 20 20 49 46 20 20 20 20 20 20 44 45 44 49 43 26 4d 42 41 4e 4b 2b 4e ┆IF IF DEDIC&MBANK+N┆
0x180…1a0 4f 4e 1e 17 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 52 45 41 44 56 20 20 20 17 0c 20 20 20 ┆ON CALL READV ┆
0x1a0…1c0 20 20 20 20 45 4e 44 49 46 0c 20 20 20 20 20 20 20 20 41 4e 41 20 20 20 20 20 41 20 20 20 20 20 ┆ ENDIF ANA A ┆
0x1c0…1e0 20 20 3b 52 45 41 44 20 4f 4b 3f 20 43 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 20 20 4b 54 47 31 ┆ ;READ OK? C JNZ KTG1┆
0x1e0…200 35 20 20 20 3b 4e 45 4a 2c 20 48 55 53 4b 20 41 54 20 4c 55 4b 4b 45 20 46 49 4c 45 4e 20 49 4e ┆5 ;NEJ, HUSK AT LUKKE FILEN IN┆
0x200…220 44 45 4e 20 46 45 4a 4c 55 44 53 4b 52 49 46 54 43 2e 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 ┆DEN FEJLUDSKRIFTC. MOV ┆
0x220…240 20 41 2c 42 20 20 20 20 20 3b 45 52 20 44 45 54 20 53 49 44 53 54 45 20 53 5b 54 4e 49 4e 47 3f ┆ A,B ;ER DET SIDSTE SÆTNING?┆
0x240…260 2e 10 20 20 20 20 20 20 20 4f 52 41 20 20 20 20 20 41 10 3e 20 20 20 20 20 20 20 4a 5a 20 20 20 ┆. ORA A > JZ ┆
0x260…280 20 20 20 4b 54 47 31 35 20 20 20 3b 4a 41 2c 20 48 4f 50 20 54 49 4c 20 53 4c 55 54 20 50 5d 20 ┆ KTG15 ;JA, HOP TIL SLUT PÅ ┆
0x280…2a0 4c 5b 53 4e 49 4e 47 20 4f 47 20 4c 55 4b 20 46 49 4c 3e 35 20 20 20 20 20 20 20 4d 56 49 20 20 ┆LÆSNING OG LUK FIL>5 MVI ┆
0x2a0…2c0 20 20 20 42 2c 30 20 20 20 20 20 3b 4e 45 4a 2c 53 59 4e 54 41 58 41 4e 41 4c 59 53 45 52 20 53 ┆ B,0 ;NEJ,SYNTAXANALYSER S┆
0x2c0…2e0 5b 54 4e 49 4e 47 20 4f 47 35 28 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 43 2c 41 20 20 20 ┆ÆTNING OG5( MOV C,A ┆
0x2e0…300 20 20 3b 20 44 45 4e 20 49 20 55 44 42 55 46 46 45 52 2e 28 13 20 20 20 20 20 20 20 4c 48 4c 44 ┆ ; DEN I UDBUFFER.( LHLD┆
0x300…320 20 20 20 20 49 4e 49 42 13 2d 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 48 20 20 20 20 20 20 ┆ INIB - PUSH H ┆
0x320…340 20 3b 47 45 4d 20 49 4e 44 42 55 46 46 45 52 20 41 44 52 45 53 53 45 2d 3e 20 20 20 20 20 20 20 ┆ ;GEM INDBUFFER ADRESSE-> ┆
0x340…360 44 41 44 20 20 20 20 20 42 20 20 20 20 20 20 20 3b 28 48 2c 4c 29 20 50 45 47 45 50 49 4e 44 20 ┆DAD B ;(H,L) PEGEPIND ┆
0x360…380 54 49 4c 20 53 49 44 53 54 45 20 42 59 54 45 20 49 20 50 4f 53 54 2c 3e 38 20 20 20 20 20 20 20 ┆TIL SIDSTE BYTE I POST,>8 ┆
0x380…3a0 4d 4f 56 20 20 20 20 20 4d 2c 42 20 20 20 20 20 3b 20 45 52 53 54 41 54 54 45 53 20 41 46 20 4e ┆MOV M,B ; ERSTATTES AF N┆
0x3a0…3c0 55 4c 20 28 53 4c 55 54 20 50 5d 20 50 4f 53 54 29 38 2e 20 20 20 20 20 20 20 50 4f 50 20 20 20 ┆UL (SLUT PÅ POST)8. POP ┆
0x3c0…3e0 20 20 48 20 20 20 20 20 20 20 3b 48 45 4e 54 20 49 4e 44 42 55 46 46 45 52 20 41 44 52 45 53 53 ┆ H ;HENT INDBUFFER ADRESS┆
0x3e0…400 45 2e 3c 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 53 41 54 4e 20 20 20 20 3b 28 48 2c 4c 29 ┆E.< CALL SATN ;(H,L)┆
0x400…420 20 50 45 47 45 52 20 50 5d 20 46 5c 52 53 54 45 20 45 47 45 4e 54 4c 49 47 45 20 42 59 54 45 3c ┆ PEGER PÅ FØRSTE EGENTLIGE BYTE<┆
0x420…440 2c 4b 47 54 49 4e 3a 3a 49 46 20 20 20 20 20 20 4d 55 4c 54 49 20 20 20 3b 49 4e 44 47 41 4e 47 ┆,KGTIN::IF MULTI ;INDGANG┆
0x440…460 20 46 52 41 20 47 45 54 20 46 45 4a 4c 2c 29 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 4b 52 ┆ FRA GET FEJL,) CALL KR┆
0x460…480 46 52 49 20 20 20 3b 46 52 49 47 49 56 20 52 45 47 4e 45 4b 52 45 44 53 29 0c 20 20 20 20 20 20 ┆FRI ;FRIGIV REGNEKREDS) ┆
0x480…4a0 20 45 4e 44 49 46 0c 3d 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 49 4e 53 54 20 20 20 20 3b ┆ ENDIF = CALL INST ;┆
0x4a0…4c0 53 59 4e 54 41 58 41 4e 41 4c 59 53 45 52 20 4f 47 20 4c 41 47 52 20 49 20 53 5b 54 4e 49 4e 47 ┆SYNTAXANALYSER OG LAGR I SÆTNING┆
0x4c0…4e0 53 4b 5b 44 45 3d 2d 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 4b 54 47 30 39 20 20 20 3b 0b ┆SKÆDE=- JMP KTG09 ; ┆