|
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: 2528 (0x9e0)
Notes: Mikados_R
Names: »CCOPY«
└─⟦6980b4520⟧ Bits:30003618 MIKADOS start diskette med DDE COMAL-80 version 1.5
└─⟦this⟧ »CCOPY«
0x000…020 (0,) 13 02 43 43 4f 50 59 20 20 20 02 77 17 01 00 00 00 76 76 76 13 0d 04 43 43 4f 50 58 20 20 20 02 ┆ CCOPY w vvv CCOPX ┆ 0x020…040 00 00 08 0d 0d 04 43 43 4f 50 59 20 20 20 02 13 00 08 0d 0d 05 4f 50 45 4e 20 20 20 20 01 00 00 ┆ CCOPY OPEN ┆ 0x040…060 08 0d 0d 05 43 52 45 41 54 20 20 20 02 00 00 08 0d 0d 05 49 4e 56 48 20 20 20 20 03 00 00 08 0d ┆ CREAT INVH ┆ 0x060…080 0d 05 43 4c 4f 53 45 20 20 20 04 00 00 08 0d 0d 05 52 45 41 44 20 20 20 20 05 00 00 08 0d 0d 05 ┆ CLOSE READ ┆ 0x080…0a0 57 52 49 54 45 20 20 20 06 00 00 08 0d 0d 05 43 52 45 58 54 20 20 20 07 00 00 08 0d 0d 05 52 45 ┆WRITE CREXT RE┆ 0x0a0…0c0 41 44 56 20 20 20 08 00 00 08 0d 0d 05 57 52 49 54 56 20 20 20 09 00 00 08 0d 0d 05 50 55 52 47 ┆ADV WRITV PURG┆ 0x0c0…0e0 45 20 20 20 0a 00 00 08 0d 0d 04 44 4b 42 49 55 20 20 20 02 17 03 08 0d 02 08 22 02 04 0a 02 10 ┆E DKBIU " ┆ 0x0e0…100 03 04 03 08 eb 22 03 04 0a 02 14 03 04 08 08 21 08 00 19 56 23 22 08 04 0a 02 12 03 04 02 08 c3 ┆ " ! V#" ┆ 0x100…120 02 04 0a 02 22 00 04 02 08 22 02 04 0a 02 10 03 04 02 08 22 02 04 0a 02 12 03 04 03 08 eb 22 03 ┆ " " " " ┆ 0x120…140 04 0a 02 14 03 04 07 08 21 08 00 19 56 32 07 04 0a 02 16 03 04 03 08 97 32 03 04 0a 02 0c 03 04 ┆ ! V2 2 ┆ 0x140…160 0d 08 21 0a 00 e5 c5 21 00 00 e5 e5 d5 2a 0d 04 0a 02 10 03 04 03 08 e5 21 03 04 0a 02 17 03 04 ┆ ! ! * ! ┆ 0x160…180 03 08 e5 cd 03 05 0b 01 00 00 00 05 02 08 32 02 04 0a 02 0f 03 04 04 08 fe ff ca 04 04 0a 02 57 ┆ 2 W┆ 0x180…1a0 00 04 03 08 a7 c2 03 04 0a 02 dd 01 04 02 08 2a 02 04 0a 02 39 03 04 04 08 44 4d 2a 04 04 0a 02 ┆ * 9 DM* ┆ 0x1a0…1c0 22 03 04 03 08 eb c3 03 04 0a 02 62 00 04 02 08 2a 02 04 0a 02 2a 03 04 07 08 44 4d 11 00 00 c3 ┆" b * * DM ┆ 0x1c0…1e0 07 04 0a 02 8d 00 04 02 08 3a 02 04 0a 02 16 03 04 04 08 e6 40 c2 04 04 0a 02 77 00 04 02 08 3a ┆ : @ w :┆ 0x1e0…200 02 04 0a 02 1f 03 04 04 08 fe 30 da 04 04 0a 02 8d 00 04 04 08 fe 3a d2 04 04 0a 02 8d 00 04 04 ┆ 0 : ┆ 0x200…220 08 3e 01 32 04 04 0a 02 0c 03 04 02 08 3a 02 04 0a 02 21 03 04 05 08 62 6b 3d fa 05 04 0a 02 89 ┆ > 2 : ! bk= ┆ 0x220…240 00 04 03 08 19 c3 03 04 0a 02 81 00 04 02 08 22 02 04 0a 02 0d 03 04 07 08 eb 21 0a 00 e5 2a 07 ┆ " ! * ┆ 0x240…260 04 0a 02 14 03 04 05 08 e5 d5 c5 3a 05 04 0a 02 1f 03 04 04 08 67 e5 2a 04 04 0a 02 12 03 04 03 ┆ : g * ┆ 0x260…280 08 e5 21 03 04 0a 02 47 0d 04 03 08 e5 cd 03 05 0b 02 00 00 00 05 03 08 a7 ca 03 04 0a 02 19 01 ┆ ! G ┆ 0x280…2a0 04 04 08 fe 02 c2 04 04 0a 02 dd 01 04 02 08 3a 02 04 0a 02 0f 03 04 03 08 3c ca 03 04 0a 02 0f ┆ : < ┆ 0x2a0…2c0 01 04 06 08 21 0a 00 e5 2a 06 04 0a 02 14 03 04 0b 08 e5 21 01 00 e5 21 00 00 e5 3a 0b 04 0a 02 ┆ ! * ! ! : ┆ 0x2c0…2e0 1f 03 04 04 08 67 e5 2a 04 04 0a 02 12 03 04 03 08 e5 21 03 04 0a 02 47 0d 04 03 08 e5 cd 03 05 ┆ g * ! G ┆ 0x2e0…300 0b 01 00 00 00 05 03 08 a7 c2 03 04 0a 02 dd 01 04 02 08 3a 02 04 0a 02 0c 03 04 04 08 fe 01 c2 ┆ : ┆ 0x300…320 04 04 0a 02 1e 01 04 02 08 3a 02 04 0a 02 51 0d 04 03 08 a7 c2 03 04 0a 02 fa 00 04 02 08 2a 02 ┆ : Q * ┆ 0x320…340 04 0a 02 52 0d 04 03 08 eb 2a 03 04 0a 02 0d 03 04 02 08 cd 02 05 0b 03 00 00 00 05 05 08 19 7c ┆ R * ø┆ 0x340…360 a7 f2 05 04 0a 02 1e 01 04 02 08 21 02 04 0a 02 47 0d 04 03 08 e5 cd 03 05 0b 04 00 00 00 05 02 ┆ ! G ┆ 0x360…380 08 cd 02 04 0a 02 ee 01 04 03 08 a7 c2 03 04 0a 02 dd 01 04 02 08 2a 02 04 0a 02 0d 03 04 03 08 ┆ * ┆ 0x380…3a0 eb c3 03 04 0a 02 8d 00 04 02 08 cd 02 04 0a 02 ee 01 04 03 08 a7 c2 03 04 0a 02 dd 01 04 02 08 ┆ ┆ 0x3a0…3c0 c3 02 04 0a 02 57 00 04 02 08 3a 02 04 0a 02 0f 03 04 04 08 3c c8 2a 04 04 0a 02 39 03 04 02 08 ┆ W : < * 9 ┆ 0x3c0…3e0 22 02 04 0a 02 90 0d 04 02 08 3a 02 04 0a 02 16 03 04 04 08 e6 80 ca 04 04 0a 02 3e 01 04 02 08 ┆" : > ┆ 0x3e0…400 3a 02 04 0a 02 1f 03 04 04 08 fe 4b ca 04 04 0a 02 a7 01 04 04 08 fe 52 ca 04 04 0a 02 a7 01 04 ┆: K R ┆ 0x400…420 04 08 fe 42 ca 04 04 0a 02 a7 01 04 05 08 21 1f 00 22 05 04 0a 02 39 03 04 02 08 22 02 04 0a 02 ┆ B ! " 9 " ┆ 0x420…440 69 0d 04 02 08 21 02 04 0a 02 08 02 04 03 08 e5 21 03 04 0a 02 17 03 04 03 08 e5 cd 03 05 0b 05 ┆i ! ! ┆ 0x440…460 00 00 00 05 03 08 a7 c2 03 04 0a 02 dd 01 04 02 08 21 02 04 0a 02 08 02 04 03 08 e5 21 03 04 0a ┆ ! ! ┆ 0x460…480 02 47 0d 04 03 08 e5 cd 03 05 0b 06 00 00 00 05 03 08 a7 c2 03 04 0a 02 dd 01 04 05 08 21 20 00 ┆ G ! ┆ 0x480…4a0 22 05 04 0a 02 39 03 04 02 08 22 02 04 0a 02 69 0d 04 02 08 21 02 04 0a 02 08 02 04 03 08 e5 21 ┆" 9 " i ! !┆ 0x4a0…4c0 03 04 0a 02 17 03 04 03 08 e5 cd 03 05 0b 05 00 00 00 05 04 08 fe 0c ca 04 04 0a 02 dc 01 04 03 ┆ ┆ 0x4c0…4e0 08 a7 c2 03 04 0a 02 dd 01 04 02 08 21 02 04 0a 02 08 02 04 03 08 e5 21 03 04 0a 02 47 0d 04 03 ┆ ! ! G ┆ 0x4e0…500 08 e5 cd 03 05 0b 06 00 00 00 05 04 08 fe 0c ca 04 04 0a 02 99 01 04 03 08 a7 c2 03 04 0a 02 dd ┆ ┆ 0x500…520 01 04 02 08 c3 02 04 0a 02 6e 01 04 02 08 21 02 04 0a 02 47 0d 04 03 08 e5 cd 03 05 0b 07 00 00 ┆ n ! G ┆ 0x520…540 00 05 03 08 a7 c2 03 04 0a 02 dd 01 04 02 08 c3 02 04 0a 02 82 01 04 02 08 21 02 04 0a 02 08 02 ┆ ! ┆ 0x540…560 04 03 08 e5 21 03 04 0a 02 17 03 04 03 08 e5 cd 03 05 0b 08 00 00 00 05 04 08 fe 0c ca 04 04 0a ┆ ! ┆ 0x560…580 02 bc 01 04 04 08 fe 13 c2 04 04 0a 02 c1 01 04 04 08 06 00 c3 04 04 0a 02 c5 01 04 03 08 a7 c2 ┆ ┆ 0x580…5a0 03 04 0a 02 dd 01 04 02 08 21 02 04 0a 02 07 02 04 04 08 e5 70 21 04 04 0a 02 47 0d 04 03 08 e5 ┆ ! p! G ┆ 0x5a0…5c0 cd 03 05 0b 09 00 00 00 05 03 08 a7 c2 03 04 0a 02 dd 01 04 02 08 3a 02 04 0a 02 07 02 04 03 08 ┆ : ┆ 0x5c0…5e0 a7 c2 03 04 0a 02 a7 01 04 04 08 97 f5 21 04 04 0a 02 17 03 04 03 08 e5 cd 03 05 0b 04 00 00 00 ┆ ! ┆ 0x5e0…600 05 02 08 21 02 04 0a 02 47 0d 04 03 08 e5 cd 03 05 0b 04 00 00 00 05 08 08 f1 c9 21 0a 00 e5 2a ┆ ! G ! *┆ 0x600…620 08 04 0a 02 14 03 04 03 08 e5 3a 03 04 0a 02 1f 03 04 04 08 67 e5 2a 04 04 0a 02 12 03 04 03 08 ┆ : g * ┆ 0x620…640 e5 21 03 04 0a 02 47 0d 04 03 08 e5 cd 03 05 0b 0a 00 00 00 05 02 08 c9 02 03 09 70 15 03 02 0f ┆ ! G p ┆ 0x640…660 00 02 20 20 20 20 20 3b 50 49 4c 20 54 49 4c 20 44 45 4e 20 4f 52 49 47 49 4e 41 4c 45 20 4d 45 ┆ ;PIL TIL DEN ORIGINALE ME┆ 0x660…680 44 44 45 4c 45 4c 53 45 38 36 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 48 20 20 20 20 20 20 ┆DDELELSE86 PUSH H ┆ 0x680…6a0 20 3b 56 49 20 53 4b 41 4c 20 42 52 55 47 45 20 44 45 4e 20 49 47 45 4e 20 4f 4d 20 4c 49 44 54 ┆ ;VI SKAL BRUGE DEN IGEN OM LIDT┆ 0x6a0…6c0 36 14 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 42 2c 23 31 33 14 17 20 20 20 20 20 20 20 44 ┆6 LXI B,#13 D┆ 0x6c0…6e0 41 44 20 20 20 20 20 42 20 20 20 20 20 20 20 17 38 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 ┆AD B 8 MVI ┆ 0x6e0…700 42 2c 33 20 20 20 20 20 3b 46 4c 59 54 20 53 54 41 54 55 53 20 4f 47 20 42 55 46 46 45 52 4c 5b ┆B,3 ;FLYT STATUS OG BUFFERLÆ┆ 0x700…720 4e 47 44 45 4e 20 54 49 4c 38 27 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 4d 4f 56 45 20 20 ┆NGDEN TIL8' CALL MOVE ┆ 0x720…740 20 20 3b 53 56 41 52 4d 45 44 44 45 4c 45 4c 53 45 4e 27 01 3b 01 36 20 20 20 20 20 20 20 4c 58 ┆ ;SVARMEDDELELSEN' ; 6 LX┆ 0x740…760 49 20 20 20 20 20 48 2c 42 55 46 20 20 20 3b 48 45 4e 54 20 41 44 52 45 53 53 45 4e 20 50 5d 20 ┆I H,BUF ;HENT ADRESSEN PÅ ┆ 0x760…780 53 56 41 52 53 45 4d 41 46 4f 52 45 4e 36 13 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 47 45 ┆SVARSEMAFOREN6 CALL GE┆ 0x780…7a0 54 58 13 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 2c 48 12 12 20 20 20 20 20 20 20 4d ┆TX MOV B,H M┆ 0x7a0…7c0 4f 56 20 20 20 20 20 43 2c 4c 12 2b 44 4f 4e 45 31 3a 20 50 4f 50 20 20 20 20 20 48 20 20 20 20 ┆OV C,L +DONE1: POP H ┆ 0x7c0…7e0 20 20 20 3b 50 49 4c 20 54 49 4c 20 4d 45 44 44 45 4c 45 4c 53 45 4e 2b 38 20 20 20 20 20 20 20 ┆ ;PIL TIL MEDDELELSEN+8 ┆ 0x7e0…800 43 41 4c 4c 20 20 20 20 53 45 4e 44 20 20 20 20 3b 53 45 4e 44 20 53 56 41 52 4d 45 44 44 45 4c ┆CALL SEND ;SEND SVARMEDDEL┆ 0x800…820 45 4c 53 45 20 54 49 4c 20 42 52 55 47 45 52 45 4e 38 14 20 20 20 20 20 20 20 4a 4d 50 20 20 20 ┆ELSE TIL BRUGEREN8 JMP ┆ 0x820…840 20 20 54 4d 45 53 47 14 01 3b 01 01 3b 01 3f 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ TMESG ; ; ?;****************┆ 0x840…860 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 ┆********************************┆ 0x860…880 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3f 17 3b 20 55 44 53 4b 52 49 56 20 45 4e 20 54 45 47 ┆**************? ; UDSKRIV EN TEG┆ 0x880…8a0 4e 53 54 52 45 4e 47 17 01 3b 01 38 3b 20 41 52 42 45 4a 44 53 42 49 54 54 45 4e 45 20 28 38 20 ┆NSTRENG ; 8; ARBEJDSBITTENE (8 ┆ 0x8a0…8c0 42 49 54 20 49 20 57 52 42 49 54 29 20 48 41 52 20 46 5c 4c 47 45 4e 44 45 20 42 45 54 59 44 4e ┆BIT I WRBIT) HAR FØLGENDE BETYDN┆ 0x8c0…8e0 49 4e 47 3a 38 2e 3b 20 20 20 42 49 54 20 30 20 2d 20 48 56 49 53 20 31 20 53 5d 20 55 44 45 4c ┆ING:8.; BIT 0 - HVIS 1 SÅ UDEL┆ 0x8e0…900 41 44 20 41 46 53 4c 55 54 54 45 4e 44 45 20 4c 46 2d 43 52 2e 3a 3b 20 20 20 42 49 54 20 32 20 ┆AD AFSLUTTENDE LF-CR.:; BIT 2 ┆ 0x900…920 2d 20 48 56 49 53 20 31 20 53 5d 20 46 4c 59 54 20 4d 41 52 4b 5c 52 45 4e 20 54 49 4c 20 44 45 ┆- HVIS 1 SÅ FLYT MARKØREN TIL DE┆ 0x920…940 4e 20 41 44 52 45 53 53 45 20 44 45 52 20 45 52 3a 3e 3b 20 20 20 20 20 20 20 20 20 20 20 41 4e ┆N ADRESSE DER ER:>; AN┆ 0x940…960 47 49 56 45 54 20 49 20 27 57 42 41 44 52 27 20 45 46 54 45 52 20 55 44 53 4b 52 49 56 4e 49 4e ┆GIVET I 'WBADR' EFTER UDSKRIVNIN┆ 0x960…980 47 45 4e 20 45 52 20 41 46 53 4c 55 54 54 45 54 3e 22 3b 20 20 20 20 20 20 20 20 20 20 20 28 4f ┆GEN ER AFSLUTTET>"; (O┆ 0x980…9a0 50 44 41 54 45 52 20 53 4b 5b 52 4d 42 49 4c 4c 45 44 45 29 22 3f 3b 20 20 20 42 49 54 20 33 20 ┆PDATER SKÆRMBILLEDE)"?; BIT 3 ┆ 0x9a0…9c0 2d 20 48 56 49 53 20 31 20 28 4b 55 4e 20 49 20 42 4c 4f 4b 54 49 4c 53 54 41 4e 44 29 20 53 63 ┆- HVIS 1 (KUN I BLOKTILSTAND) Sc┆ 0x9c0…9e0 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┆