|
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: »PNAVN«
└─⟦89d8689a3⟧ Bits:30003591 MIKADOS Pascal compiler (01.02.1982 E)
└─⟦this⟧ »PNAVN«
0x000…020 (0,) 13 02 50 4e 41 56 4e 20 20 20 02 bc 00 01 00 00 00 76 76 76 13 0d 04 50 4e 41 56 4e 20 20 20 02 ┆ PNAVN vvv PNAVN ┆
0x020…040 00 00 08 0d 0d 05 54 45 4d 50 54 20 20 20 01 00 00 08 0d 0d 05 45 30 4c 49 4e 20 20 20 02 00 00 ┆ TEMPT E0LIN ┆
0x040…060 08 0d 0d 05 50 54 41 4c 4b 20 20 20 03 00 00 08 0d 02 08 21 02 05 0b 01 00 00 00 05 04 08 3e 08 ┆ PTALK ! > ┆
0x060…080 cd 04 05 0b 02 00 00 00 05 04 08 78 a7 ca 04 04 0a 02 b8 00 04 04 08 fe 13 d2 04 04 0a 02 b8 00 ┆ x ┆
0x080…0a0 04 04 08 0e 00 21 04 05 0b 01 00 00 00 05 06 08 13 1a fe 3a ca 06 04 0a 02 53 00 04 09 08 77 23 ┆ ! : S w#┆
0x0a0…0c0 0c f5 79 fe 09 c2 09 04 0a 02 32 00 04 05 08 f1 fe 20 c2 05 04 0a 02 b8 00 04 03 08 0d c3 03 04 ┆ y 2 ┆
0x0c0…0e0 0a 02 37 00 04 04 08 f1 05 c2 04 04 0a 02 17 00 04 0b 08 11 00 00 3e 4b f5 21 20 20 22 0b 04 0a ┆ 7 >K ! " ┆
0x0e0…100 02 ba 00 04 05 08 3e 08 91 fa 05 04 0a 02 b7 00 04 02 08 01 02 05 0b 01 00 00 00 05 02 08 2a 02 ┆ > * ┆
0x100…120 04 0a 02 ba 00 04 0b 08 eb f1 37 c9 c5 05 78 d6 02 fa 0b 04 0a 02 b7 00 04 08 08 13 eb 3e 3a 5e ┆ 7 x >:^┆
0x120…140 bb c2 08 04 0a 02 6a 00 04 05 08 11 20 20 c3 05 04 0a 02 81 00 04 06 08 05 23 56 ba ca 06 04 0a ┆ j #V ┆
0x140…160 02 b7 00 04 03 08 05 ca 03 04 0a 02 a8 00 04 06 08 23 7e fe 20 ca 06 04 0a 02 a8 00 04 04 08 fe ┆ #ü ┆
0x160…180 3a c2 04 04 0a 02 b7 00 04 05 08 23 05 eb 22 05 04 0a 02 ba 00 04 03 08 eb cd 03 05 0b 03 00 00 ┆: # " ┆
0x180…1a0 00 05 05 08 78 c1 a7 ca 05 04 0a 02 a2 00 04 05 08 7e fe 20 ca 05 04 0a 02 a2 00 04 04 08 fe 3a ┆ x ü :┆
0x1a0…1c0 c2 04 04 0a 02 b8 00 04 05 08 23 7e f5 c3 05 04 0a 02 43 00 04 05 08 3e 4b f5 c3 05 04 0a 02 43 ┆ #ü C >K C┆
0x1c0…1e0 00 04 03 08 eb 22 03 04 0a 02 ba 00 04 09 08 11 00 00 c1 3e 4b f5 c3 09 04 0a 02 43 00 04 05 08 ┆ " >K C ┆
0x1e0…200 e1 e1 a7 c9 05 03 09 02 00 03 02 0f 00 02 05 08 e1 e1 a7 c9 05 03 09 02 00 03 02 0f 00 02 20 20 ┆ ┆
0x200…220 20 20 20 4c 58 49 20 20 20 20 20 48 2c 44 43 42 4f 55 54 17 14 20 20 20 20 20 20 20 43 41 4c 4c ┆ LXI H,DCBOUT CALL┆
0x220…240 20 20 20 20 46 49 4e 49 54 14 17 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 48 2c 44 43 42 4c ┆ FINIT LXI H,DCBL┆
0x240…260 53 54 17 14 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 46 49 4e 49 54 14 01 3b 01 46 3b 2a 2a ┆ST CALL FINIT ; F;**┆
0x260…280 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 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x2a0…2c0 2a 2a 2a 46 39 3b 20 2e 2e 2e 20 41 4e 44 20 53 45 54 20 55 50 20 4d 41 43 48 49 4e 45 20 53 54 ┆***F9; ... AND SET UP MACHINE ST┆
0x2c0…2e0 41 54 45 20 46 4f 52 20 53 45 47 4d 45 4e 54 20 30 2c 20 50 52 4f 43 45 44 55 52 45 20 31 39 46 ┆ATE FOR SEGMENT 0, PROCEDURE 19F┆
0x2e0…300 3b 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 2a 2a 2a 2a 2a 2a ┆;*******************************┆
0x300…320 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 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x320…340 2a 2a 2a 2a 2a 2a 46 01 3b 01 13 20 20 20 20 20 20 20 4c 48 4c 44 20 20 20 20 53 45 47 50 13 3f ┆******F ; LHLD SEGP ?┆
0x340…360 20 20 20 20 20 20 20 44 43 58 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 20 48 4c 3a 2d 20 5e 41 ┆ DCX H ; HL:- ^A┆
0x360…380 44 44 52 45 53 53 20 4f 46 20 4a 54 41 42 20 46 4f 52 20 4d 41 49 4e 20 50 52 4f 47 52 41 4d 3f ┆DDRESS OF JTAB FOR MAIN PROGRAM?┆
0x380…3a0 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 2c 4d 12 10 20 20 20 20 20 20 20 44 43 58 20 ┆ MOV B,M DCX ┆
0x3a0…3c0 20 20 20 20 48 10 3e 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 43 2c 4d 20 20 20 20 20 3b 20 ┆ H > MOV C,M ; ┆
0x3c0…3e0 53 45 4c 46 20 52 45 4c 41 54 49 56 45 20 49 4e 20 50 52 4f 43 45 44 55 52 45 20 44 49 43 54 49 ┆SELF RELATIVE IN PROCEDURE DICTI┆
0x3e0…400 4f 4e 41 52 59 3e 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 4c 12 10 20 20 20 20 20 ┆ONARY> MOV A,L ┆
0x400…420 20 20 53 55 42 20 20 20 20 20 43 10 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4c 2c 41 12 ┆ SUB C MOV L,A ┆
0x420…440 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 48 12 10 20 20 20 20 20 20 20 53 42 42 20 ┆ MOV A,H SBB ┆
0x440…460 20 20 20 20 42 10 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 48 2c 41 12 13 20 20 20 20 20 ┆ B MOV H,A ┆
0x460…480 20 20 53 48 4c 44 20 20 20 20 4a 54 41 42 13 3e 20 20 20 20 20 20 20 44 43 58 20 20 20 20 20 48 ┆ SHLD JTAB > DCX H┆
0x480…4a0 20 20 20 20 20 20 20 3b 20 49 50 43 53 56 3a 3d 20 45 4e 54 52 59 20 41 44 44 52 45 53 53 20 4f ┆ ; IPCSV:= ENTRY ADDRESS O┆
0x4a0…4c0 46 20 4d 41 49 4e 20 50 52 4f 47 52 41 4d 3e 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 ┆F MAIN PROGRAM> MOV B┆
0x4c0…4e0 2c 4d 12 10 20 20 20 20 20 20 20 44 43 58 20 20 20 20 20 48 10 2e 20 20 20 20 20 20 20 4d 4f 63 ┆,M DCX H . MOc┆