|
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: »RESDI«
└─⟦6980b4520⟧ Bits:30003618 MIKADOS start diskette med DDE COMAL-80 version 1.5
└─⟦this⟧ »RESDI«
0x000…020 (0,) 13 02 52 45 53 44 49 20 20 20 02 22 00 01 00 00 00 76 76 76 13 0d 04 52 45 53 44 49 20 20 20 02 ┆ RESDI " vvv RESDI ┆
0x020…040 00 00 08 0d 0d 05 52 45 53 52 56 20 20 20 01 00 00 08 0d 0d 04 52 45 4c 44 49 20 20 20 02 11 00 ┆ RESRV RELDI ┆
0x040…060 08 0d 0d 05 52 45 4c 53 45 20 20 20 02 00 00 08 0d 07 08 01 03 00 c5 e5 21 07 04 0a 02 1a 00 04 ┆ RELSE ! ┆
0x060…080 03 08 e5 cd 03 05 0b 01 00 00 00 05 08 08 a7 c8 3e 1e c9 e5 21 08 04 0a 02 1a 00 04 03 08 e5 cd ┆ > ! ┆
0x080…0a0 03 05 0b 02 00 00 00 05 0a 08 c9 24 42 41 53 49 53 2d 2d 0a 02 0f 00 02 00 00 00 00 00 00 00 00 ┆ $BASIS-- ┆
0x0a0…0c0 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 ┆ ┆
[…0x1…]
0x0e0…100 3b 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 52 45 47 49 4f ┆; REGIO┆
0x100…120 4e 2f 42 41 4e 4b 20 4b 4f 44 45 20 28 31 20 54 45 47 4e 29 34 3f 3b 20 20 20 20 20 20 20 20 20 ┆N/BANK KODE (1 TEGN)4?; ┆
0x120…140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 47 20 50 4c 41 44 45 4c 41 47 45 52 49 44 ┆ OG PLADELAGERID┆
0x140…160 45 4e 54 49 46 49 4b 41 54 49 4f 4e 20 28 31 20 54 45 47 4e 29 3f 41 3b 20 20 20 20 20 20 20 20 ┆ENTIFIKATION (1 TEGN)?A; ┆
0x160…180 20 20 20 55 44 48 4f 50 20 20 20 28 41 29 20 20 20 20 52 45 53 55 4c 54 41 54 4b 4f 44 45 20 46 ┆ UDHOP (A) RESULTATKODE F┆
0x180…1a0 52 41 20 48 4f 56 45 44 4c 41 47 45 52 41 44 4d 49 4e 49 53 54 52 41 2d 41 26 3b 20 20 20 20 20 ┆RA HOVEDLAGERADMINISTRA-A&; ┆
0x1a0…1c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 49 4f 4e 53 50 52 4f 43 45 53 ┆ TIONSPROCES┆
0x1c0…1e0 26 40 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 42 2c 43 29 20 20 41 44 52 ┆&@; (B,C) ADR┆
0x1e0…200 45 53 53 45 20 50 5d 20 50 52 4f 43 45 53 53 45 4e 53 20 4b 4f 52 55 54 49 4e 45 53 45 4d 41 46 ┆ESSE PÅ PROCESSENS KORUTINESEMAF┆
0x200…220 4f 52 40 34 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 44 2c 45 29 20 20 41 ┆OR@4; (D,E) A┆
0x220…240 44 52 45 53 53 45 20 50 5d 20 50 52 4f 43 45 53 53 45 4e 53 20 50 4b 42 34 44 3b 2a 2a 2a 2a 2a ┆DRESSE PÅ PROCESSENS PKB4D;*****┆
0x240…260 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 ┆********************************┆
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 44 01 ┆******************************D ┆
0x280…2a0 3b 01 0b 20 20 20 20 20 20 20 52 4f 4f 54 0b 08 53 54 50 52 43 5c 3a 3a 08 10 20 20 20 20 20 20 ┆; ROOT STPRCØ:: ┆
0x2a0…2c0 20 50 55 53 48 20 20 20 20 42 10 42 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 44 20 20 20 20 ┆ PUSH B B PUSH D ┆
0x2c0…2e0 20 20 20 3b 50 49 4c 20 54 49 4c 20 46 49 4c 4e 41 56 4e 2c 20 50 4c 41 44 45 4c 41 47 45 52 42 ┆ ;PIL TIL FILNAVN, PLADELAGERB┆
0x2e0…300 45 54 45 47 4e 45 4c 53 45 20 45 54 43 2e 42 01 3b 01 3d 20 20 20 20 20 20 20 43 41 4c 4c 20 20 ┆ETEGNELSE ETC.B ; = CALL ┆
0x300…320 20 20 46 5d 49 4e 48 5c 20 20 3b 53 56 41 52 53 45 4d 41 46 4f 52 20 53 4b 41 4c 20 56 5b 52 45 ┆ FÅINHØ ;SVARSEMAFOR SKAL VÆRE┆
0x320…340 20 48 4a 5b 4c 50 45 53 45 4d 41 46 4f 52 45 4e 3d 34 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 ┆ HJÆLPESEMAFOREN=4 MVI ┆
0x340…360 20 4d 2c 23 34 30 20 20 20 3b 4f 50 45 52 41 54 49 4f 4e 53 4b 4f 44 45 3a 20 53 54 41 52 54 20 ┆ M,#40 ;OPERATIONSKODE: START ┆
0x360…380 50 52 4f 43 45 53 34 10 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 10 10 20 20 20 20 20 20 ┆PROCES4 INX H ┆
0x380…3a0 20 50 4f 50 20 20 20 20 20 44 10 3e 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 42 2c 23 31 30 ┆ POP D > MVI B,#10┆
0x3a0…3c0 20 20 20 3b 46 4c 59 54 20 46 49 4c 4e 41 56 4e 2c 20 42 41 4e 4b 20 4b 4f 44 45 20 4f 47 20 50 ┆ ;FLYT FILNAVN, BANK KODE OG P┆
0x3c0…3e0 4c 41 44 45 4c 41 47 45 52 2d 3e 32 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 4d 4f 56 45 5c ┆LADELAGER->2 CALL MOVEØ┆
0x3e0…400 20 20 20 3b 20 42 45 54 45 47 4e 45 4c 53 45 20 54 49 4c 20 4d 45 44 44 45 4c 45 4c 53 45 32 01 ┆ ; BETEGNELSE TIL MEDDELELSE2 ┆
0x400…420 3b 01 10 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 42 10 32 20 20 20 20 20 20 20 4d 4f 56 20 ┆; POP B 2 MOV ┆
0x420…440 20 20 20 20 4d 2c 42 20 20 20 20 20 3b 47 45 4d 20 50 52 49 4f 52 49 54 45 54 20 49 20 4d 45 44 ┆ M,B ;GEM PRIORITET I MED┆
0x440…460 44 45 4c 45 4c 53 45 32 01 3b 01 15 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 44 2c 2d 23 31 ┆DELELSE2 ; LXI D,-#1┆
0x460…480 35 15 38 20 20 20 20 20 20 20 44 41 44 20 20 20 20 20 44 20 20 20 20 20 20 20 3b 28 48 2c 4c 29 ┆5 8 DAD D ;(H,L)┆
0x480…4a0 20 50 49 4c 20 54 49 4c 20 4d 45 44 44 45 4c 45 4c 53 45 4e 53 20 53 54 41 52 54 38 31 20 20 20 ┆ PIL TIL MEDDELELSENS START81 ┆
0x4a0…4c0 20 20 20 20 4c 58 49 20 20 20 20 20 42 2c 48 4c 4d 45 53 20 3b 53 45 4e 44 20 4d 45 44 44 45 4c ┆ LXI B,HLMES ;SEND MEDDEL┆
0x4c0…4e0 45 4c 53 45 20 54 49 4c 20 48 4c 41 44 4d 31 14 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 63 ┆ELSE TIL HLADM1 CALL c┆