|
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_P
Names: »WWCOMPR«
└─⟦8cf7567ac⟧ Bits:30005366 WordWork v.2.5 Dansk Funk.Taster (15.10.1981)
└─⟦this⟧ »WWCOMPR«
└─⟦d32d3be74⟧ Bits:30005367 WordWork v.2.5 Dansk Funk.Taster (21.01.1982
└─⟦this⟧ »WWCOMPR«
0x000…020 (0,) 00 00 03 ba 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 ┆ ┆ 0x020…040 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 ┆ ┆ 0x040…060 75 72 6e 65 72 69 6e 67 20 74 69 6c 20 6f 76 65 72 6f 72 64 6e 65 74 20 00 d2 13 9e 00 e9 a6 0f ┆urnering til overordnet ┆ 0x060…080 6b 6f 6d 6d 61 6e 64 6f 6e 69 76 65 61 75 2e 00 d2 13 9e 00 e9 d2 16 9e 00 d5 6b e9 a6 13 57 6f ┆kommandoniveau. k Wo┆ 0x080…0a0 d5 10 9e 27 d5 12 e9 a6 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a ┆ ' 7 *****┆ 0x0a0…0c0 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 ┆********************************┆ 0x0c0…0e0 00 d2 13 9e 00 e9 d2 16 9e 00 d5 13 e9 a6 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 7 ┆ 0x0e0…100 20 2a 20 57 6f 72 64 57 6f 72 6b 20 64 69 73 6b 6b 6f 6d 70 72 69 6d 65 72 69 6e 67 73 70 72 6f ┆ * WordWork diskkomprimeringspro┆ 0x100…120 67 72 61 6d 20 2a 00 d2 13 9e 00 e9 d2 16 9e 00 d5 14 e9 a6 37 20 20 20 20 20 20 20 20 20 20 20 ┆gram * 7 ┆ 0x120…140 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 56 65 72 73 69 6f 6e 20 32 2e 35 20 ┆ * Version 2.5 ┆ 0x140…160 20 20 20 20 20 20 20 20 20 20 20 2a 00 d2 13 9e 00 e9 d2 16 9e 00 d5 15 e9 a6 37 20 20 20 20 20 ┆ * 7 ┆ 0x160…180 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *******************┆ 0x180…1a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 d2 13 9e 00 e9 d2 16 9e 00 d5 1d e9 d2 ┆****************** ┆ 0x1a0…1c0 16 9e 00 d5 1e e9 d2 16 9e 00 d5 21 e9 a6 15 44 69 73 6b 69 64 65 6e 74 69 66 69 6b 61 74 69 6f ┆ ! Diskidentifikatio┆ 0x1c0…1e0 6e 3a 20 50 00 d2 13 9e 00 e9 d2 04 9e 00 d5 26 a5 05 20 aa 01 d5 27 a5 05 01 00 d2 1c d5 29 e8 ┆n: P & ' ) ┆ 0x1e0…200 01 00 d2 0a 93 a1 f2 d5 2a d5 2b e9 d2 16 9e 00 d5 2c e9 d2 16 9e 00 d5 2e e9 a6 2e 41 6b 74 75 ┆ * + , . .Aktu┆ 0x200…220 65 6c 74 20 73 70 6f 72 20 6e 72 2e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 53 69 64 73 74 65 ┆elt spor nr.: Sidste┆ 0x220…240 20 73 70 6f 72 20 6e 72 2e 3a 00 d2 13 9e 00 e9 d2 16 9e 00 d5 33 e9 d2 16 9e 00 d5 34 00 cc 08 ┆ spor nr.: 3 4 ┆ 0x240…260 c6 08 a6 01 50 01 d2 17 c6 08 a5 05 02 d2 17 c6 08 a5 04 cd 52 d5 35 00 ab 06 d5 36 eb b9 f6 d5 ┆ P R 5 6 ┆ 0x260…280 37 01 ab 06 b9 f4 d5 38 d5 39 9e 22 ab 04 d5 3a e9 d2 16 9e 00 d5 3c e9 a6 0d 46 65 6a 6c 20 6e ┆7 8 9 " : < Fejl n┆ 0x280…2a0 75 6d 6d 65 72 3a 20 00 d2 13 9e 00 e9 eb 00 d2 0d 9e 00 e9 d2 16 9e 00 d5 41 b9 7c d5 42 d5 43 ┆ummer: A ø B C┆ 0x2a0…2c0 e9 d2 16 9e 00 d5 45 e9 a6 15 46 65 6a 6c 20 69 20 64 69 73 6b 6b 61 74 61 6c 6f 67 65 74 2e 00 ┆ E Fejl i diskkataloget. ┆ 0x2c0…2e0 d2 13 9e 00 e9 d2 16 9e 00 d5 4a b9 4b d5 4b d5 4c e9 d2 16 9e 00 d5 4e e9 a6 20 46 65 6a 6c 20 ┆ J K K L N Fejl ┆ 0x2e0…300 69 20 72 65 73 65 72 76 61 74 69 6f 6e 73 70 72 6f 63 65 64 75 72 65 72 6e 65 2e 00 d2 13 9e 00 ┆i reservationsprocedurerne. ┆ 0x300…320 e9 d2 16 9e 00 d5 53 b9 0f ac 00 00 03 00 b9 08 b1 00 ac 00 78 00 49 00 d5 55 e9 d2 16 9e 00 d5 ┆ S x I U ┆ 0x320…340 57 ed 93 a1 53 d5 58 d5 5a e9 a6 39 52 65 74 75 72 6e 65 72 20 74 69 6c 20 6f 76 65 72 6f 72 64 ┆W S X Z 9Returner til overord┆ 0x340…360 6e 65 74 20 6b 6f 6d 6d 61 6e 64 6f 6e 69 76 65 61 75 20 2d 20 74 72 79 6b 20 70 7d 20 52 45 54 ┆net kommandoniveau - tryk på RET┆ 0x360…380 55 52 4e 3a 20 00 d2 13 9e 00 e9 d2 04 9e 00 d5 5f e8 d2 15 9e 00 d5 60 d5 61 d5 63 a6 0a 57 57 ┆URN: _ ` a c WW┆ 0x380…3a0 20 20 20 20 20 20 2a 31 a6 01 20 a5 07 d2 1e d5 64 9e 22 00 cb a1 f0 d5 66 d5 67 9e 22 ab 04 d5 ┆ *1 d " f g " ┆ 0x3a0…3c0 69 e9 a6 05 46 65 6a 6c 20 00 d2 13 9e 00 e9 eb 00 d2 0d 9e 00 e9 a6 20 20 76 65 64 20 72 65 74 ┆i Fejl ved ret┆ 0x3c0…3e0 75 72 6e 65 72 69 6e 67 20 74 69 6c 20 6f 76 65 72 6f 72 64 6e 65 74 20 00 d2 13 9e 00 e9 a6 0f ┆urnering til overordnet ┆ 0x3e0…400 6b 6f 6d 6d 61 6e 64 6f 6e 69 76 65 61 75 2e 00 d2 13 9e 00 e9 d2 16 9e 00 d5 6b e9 a6 13 57 6f ┆kommandoniveau. k Wo┆ 0x400…420 72 64 57 6f 72 6b 20 61 66 73 6c 75 74 74 65 74 2e 00 d2 13 9e 00 e9 d2 16 9e 00 d5 72 d5 73 c1 ┆rdWork afsluttet. r s ┆ 0x420…440 00 8a 05 00 aa 00 0e 01 1f 01 0c 00 06 00 0f 00 b0 03 01 00 b2 03 04 00 00 02 65 64 20 72 65 74 ┆ ed ret┆ 0x440…460 75 72 6e 65 72 69 6e 67 20 74 69 6c 20 6f 76 65 72 6f 72 64 6e 65 74 20 00 d2 13 9e 00 e9 a6 0f ┆urnering til overordnet ┆ 0x460…480 6b 6f 6d 6d 61 6e 64 6f 6e 69 76 65 61 75 2e 00 d2 13 9e 00 e9 d2 16 9e 00 d5 6b e9 a6 13 57 6f ┆kommandoniveau. k Wo┆ 0x480…4a0 9e 00 e9 d2 16 9e 00 d5 38 e9 a6 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 d2 ┆ 8 ┆ 0x4a0…4c0 13 9e 00 e9 a5 31 00 d2 13 9e 00 e9 d2 16 9e 00 d5 39 e9 a6 12 20 20 20 20 20 20 20 20 20 20 20 ┆ 1 9 ┆ 0x4c0…4e0 20 20 20 20 20 20 20 00 d2 13 9e 00 e9 a5 5a 00 d2 13 9e 00 e9 d2 16 9e 00 d5 3a e9 a6 12 20 20 ┆ Z : ┆ 0x4e0…500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 d2 13 9e 00 e9 a5 08 00 d2 13 9e 00 e9 d2 16 ┆ ┆ 0x500…520 9e 00 d5 3b e9 d2 16 9e 00 d5 3c e9 d2 16 9e 00 d5 3e e9 a5 80 83 00 d2 13 9e 00 e9 d2 04 9e 00 ┆ ; < > ┆ 0x520…540 d5 3f a5 05 20 aa 01 d5 40 a5 05 01 00 d2 1c d5 42 e8 01 00 d2 0a 93 a1 f6 d5 43 d5 44 e9 d2 16 ┆ ? @ B C D ┆ 0x540…560 9e 00 d5 45 e9 d2 16 9e 00 d5 46 e9 a5 80 ac 00 d2 13 9e 00 e9 d2 16 9e 00 d5 47 e9 d2 16 9e 00 ┆ E F G ┆ 0x560…580 d5 48 00 cc 81 f4 c6 81 f4 a6 01 50 01 d2 17 c6 81 f4 a5 05 02 d2 17 c6 81 f4 a5 04 cd 52 d5 49 ┆ H P R I┆ 0x580…5a0 00 ab 06 d5 4a eb b9 6b d5 4b 01 ab 06 b9 73 d5 4c d5 4d 9e 22 ab 04 d5 4e e9 d2 16 9e 00 d5 4f ┆ J k K s L M " N O┆ 0x5a0…5c0 e9 a5 80 d5 00 d2 13 9e 00 e9 eb 00 d2 0d 9e 00 e9 d2 16 9e 00 d5 50 b9 49 d5 51 d5 52 e9 d2 16 ┆ P I Q R ┆ 0x5c0…5e0 9e 00 d5 53 e9 a5 80 fe 00 d2 13 9e 00 e9 d2 16 9e 00 d5 54 b9 2c d5 55 d5 56 e9 d2 16 9e 00 d5 ┆ S T , U V ┆ 0x5e0…600 57 e9 a5 81 27 00 d2 13 9e 00 e9 d2 16 9e 00 d5 58 b9 0f ac 00 00 03 00 b9 08 72 00 6d 00 45 00 ┆W ' X r m E ┆ 0x600…620 2a 00 d5 5a e9 d2 16 9e 00 d5 5c ed 93 a1 1b d5 5d d5 5e e9 a5 81 50 00 d2 13 9e 00 e9 d2 04 9e ┆* Z Ø Å ^ P ┆ 0x620…640 00 d5 5f e8 d2 15 9e 00 d5 60 d5 61 d5 63 a6 0a 57 57 20 20 20 20 20 20 2a 31 a6 01 20 a5 07 d2 ┆ _ ` a c WW *1 ┆ 0x640…660 1e d5 64 9e 22 00 cb a1 3a d5 66 d5 67 9e 22 ab 04 d5 68 e9 a5 81 79 00 d2 13 9e 00 e9 eb 00 d2 ┆ d " : f g " h y ┆ 0x660…680 0d 9e 00 e9 a5 81 a2 00 d2 13 9e 00 e9 d2 16 9e 00 d5 69 e9 a5 81 cb 00 d2 13 9e 00 e9 d2 16 9e ┆ i ┆ 0x680…6a0 00 d5 6a d5 6b c1 00 73 5c 00 e4 03 06 00 09 00 3a 02 01 00 40 02 ef 30 06 00 00 03 e9 d2 04 9e ┆ j k sØ : @ 0 ┆ 0x6a0…6c0 00 d5 5f e8 d2 15 9e 00 d5 60 d5 61 d5 63 a6 0a 57 57 20 20 20 20 20 20 2a 31 a6 01 20 a5 07 d2 ┆ _ ` a c WW *1 ┆ 0x6c0…6e0 1e d5 64 9e 22 00 cb a1 3a d5 66 d5 67 9e 22 ab 04 d5 68 e9 a5 81 79 00 d2 13 9e 00 e9 eb 00 d2 ┆ d " : f g " h y ┆ 0x6e0…700 0d 9e 00 e9 a5 81 a2 00 d2 13 9e 00 e9 d2 16 9e 00 d5 69 e9 a5 81 cb 00 d2 13 9e 00 e9 d2 16 9e ┆ i ┆ 0x700…720 20 20 20 20 20 58 43 48 47 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 48 4c 2d 3e 4e 45 58 54 20 ┆ XCHG ;HL->NEXT ┆ 0x720…740 43 4f 4e 53 4f 4c 45 20 53 45 4d 41 50 48 4f 52 45 20 41 44 44 52 45 53 53 3c 3e 20 20 20 20 20 ┆CONSOLE SEMAPHORE ADDRESS<> ┆ 0x740…760 20 20 20 50 4f 50 20 20 20 20 20 44 20 20 20 20 20 20 20 20 3b 44 45 3a 3d 41 43 54 55 41 4c 20 ┆ POP D ;DE:=ACTUAL ┆ 0x760…780 43 4f 4e 53 4f 4c 45 20 53 45 4d 41 50 48 4f 52 45 20 41 44 44 52 45 53 53 3e 28 20 20 20 20 20 ┆CONSOLE SEMAPHORE ADDRESS>( ┆ 0x780…7a0 20 20 20 50 4f 50 20 20 20 20 20 42 20 20 20 20 20 20 20 20 3b 43 3a 3d 42 41 4e 4b 20 4e 55 4d ┆ POP B ;C:=BANK NUM┆ 0x7a0…7c0 42 45 52 28 11 20 20 20 20 20 20 20 20 49 4e 52 20 20 20 20 20 43 11 13 20 20 20 20 20 20 20 20 ┆BER( INR C ┆ 0x7c0…7e0 4d 4f 56 20 20 20 20 20 41 2c 43 13 36 20 20 20 20 20 20 20 20 43 50 49 20 20 20 20 20 39 20 20 ┆MOV A,C 6 CPI 9 ┆ 0x7e0…800 20 20 20 20 20 20 3b 41 4e 59 54 48 49 4e 47 20 52 45 4d 41 49 4e 49 4e 47 20 49 4e 20 54 41 42 ┆ ;ANYTHING REMAINING IN TAB┆ 0x800…820 4c 45 3f 36 24 20 20 20 20 20 20 20 20 4a 5a 20 20 20 20 20 20 45 52 52 20 20 20 20 20 20 3b 4e ┆LE?6$ JZ ERR ;N┆ 0x820…840 4f 20 2d 20 45 52 52 4f 52 24 01 20 01 2a 20 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 42 20 ┆O - ERROR$ * PUSH B ┆ 0x840…860 20 20 20 20 20 20 20 3b 53 41 56 45 20 42 41 4e 4b 20 4e 55 4d 42 45 52 2a 3f 20 20 20 20 20 20 ┆ ;SAVE BANK NUMBER*? ┆ 0x860…880 20 20 50 55 53 48 20 20 20 20 44 20 20 20 20 20 20 20 20 3b 53 41 56 45 20 41 43 54 55 41 4c 20 ┆ PUSH D ;SAVE ACTUAL ┆ 0x880…8a0 43 4f 4e 53 4f 4c 45 20 53 45 4d 41 50 48 4f 52 45 20 41 44 44 52 45 53 53 3f 14 20 20 20 20 20 ┆CONSOLE SEMAPHORE ADDRESS? ┆ 0x8a0…8c0 20 20 20 4a 4d 50 20 20 20 20 20 4c 4f 4f 50 14 01 20 01 41 46 4f 55 4e 44 3a 20 20 50 4f 50 20 ┆ JMP LOOP AFOUND: POP ┆ 0x8c0…8e0 20 20 20 20 44 20 20 20 20 20 20 20 20 3b 52 45 4d 4f 56 45 20 41 43 55 54 41 4c 20 43 4f 4e 53 ┆ D ;REMOVE ACUTAL CONS┆ 0x8e0…900 4f 4c 45 20 53 45 4d 41 50 48 4f 52 45 20 41 44 44 52 45 53 53 41 25 20 20 20 20 20 20 20 20 20 ┆OLE SEMAPHORE ADDRESSA% ┆ 0x900…920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 46 52 4f 4d 20 53 54 41 43 4b 25 3f 20 20 ┆ ; FROM STACK%? ┆ 0x920…940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 54 4f 50 20 4f 46 20 53 ┆ ;TOP OF S┆ 0x940…960 54 41 43 4b 20 4e 4f 57 20 43 4f 4e 54 41 49 4e 53 20 42 41 4e 4b 20 4e 55 4d 42 45 52 3f 2c 20 ┆TACK NOW CONTAINS BANK NUMBER?, ┆ 0x960…980 20 20 20 20 20 20 20 4c 48 4c 44 20 20 20 20 52 45 54 41 44 52 20 20 20 3b 48 4c 3a 3d 52 45 54 ┆ LHLD RETADR ;HL:=RET┆ 0x980…9a0 55 52 4e 20 41 44 44 52 45 53 53 2c 12 20 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 48 20 12 ┆URN ADDRESS, PUSH H ┆ 0x9a0…9c0 0b 20 20 20 20 20 20 20 20 52 45 54 0b 01 20 01 29 45 52 52 3a 20 20 20 20 4c 58 49 20 20 20 20 ┆ RET )ERR: LXI ┆ 0x9c0…9e0 20 42 2c 30 20 20 20 20 20 20 3b 52 45 54 55 52 4e 20 56 41 4c 55 45 3a 3d 30 29 11 20 20 20 63 ┆ B,0 ;RETURN VALUE:=0) c┆