|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1280 (0x500)
Names: »&G.CSB«
└─⟦b5c9f25d9⟧ Bits:30004195/disk4.imd Programmer til datalære fra UV-Datateket på Comet
└─⟦this⟧ »&G.CSB«
0x000…020 (0,) 02 e9 fa 06 45 01 00 20 31 f7 04 e9 f8 6a 0e 0f 96 fa 09 41 17 47 02 00 43 02 31 f8 74 0e 12 ad ┆ E 1 j A G C 1 t ┆
0x020…040 fa 05 47 01 00 31 e6 fa 05 47 18 00 31 f8 7e 0e 19 aa fa 10 38 02 47 18 00 39 47 01 00 47 0a 00 ┆ G 1 G 1 ü 8 G 9G G ┆
0x040…060 3a 3b 31 f7 04 e9 f8 88 0e 12 ad fa 05 38 53 3b 31 e6 fa 05 38 52 3b 31 f8 92 0e 07 75 ff 7d f8 ┆:;1 8S;1 8R;1 u å ┆
0x060…080 9c 0e 09 74 17 b3 ff 3a f8 a6 0e 12 ad fa 05 47 01 00 31 e6 fa 05 47 01 00 31 f8 b0 0e 0f aa fa ┆ t : G 1 G 1 ┆
0x080…0a0 06 47 0b 00 15 31 f7 04 e9 f8 ba 0e 12 ad fa 05 47 01 00 31 e6 fa 05 47 01 00 31 f8 c4 0e 12 aa ┆ G 1 G 1 G 1 ┆
0x0a0…0c0 fa 09 38 02 47 01 00 39 3b 31 f7 04 e9 f8 ce 0e 07 75 ff 3a f8 d8 0e 0d 74 6e b3 ff 17 4a ff 30 ┆ 8 G 9;1 u : tn J 0┆
0x0c0…0e0 4b f8 e2 0e 1f 8f 64 b3 00 ff 2c ec fa 06 47 01 00 33 31 e0 fa 0a 47 96 00 38 30 3b 32 4e 31 de ┆K d , G 31 G 80;2N1 ┆
0x0e0…100 f8 ec 0e 1a a8 fa 04 37 2c 31 ec fa 0e 38 2c 3b 47 01 00 38 2c 3b 32 4f 52 31 f8 f6 0e 0a 90 2b ┆ 7,1 8,;G 8,;2OR1 +┆
0x100…120 b3 00 ff 2c f8 00 0f 07 75 ff 17 f8 0a 0f 09 74 f1 b3 ff 2d f8 14 0f 1c b3 f5 fa 05 47 02 00 31 ┆ , u t - G 1┆
0x120…140 e6 fa 05 38 04 3b 31 e6 b2 e6 fa 05 47 53 00 31 f8 1e 0f 19 8f d1 b3 00 ff 52 ec fa 05 47 01 00 ┆ 8 ;1 GS 1 R G ┆
0x140…160 31 e0 fa 05 47 18 00 31 de f8 28 0f 1e 92 f5 fa 05 47 02 00 31 e6 fa 06 38 52 3b 33 31 ea fa 08 ┆1 G 1 ( G 1 8R;31 ┆
0x160…180 38 02 38 52 3b 39 31 f8 32 0f 0a 90 9a b3 00 ff 52 f8 3c 0f 0c b4 f5 fa 05 47 02 00 31 f8 46 0f ┆8 8R;91 2 R < G 1 F ┆
0x180…1a0 0a 96 fa 04 41 1c 31 f8 50 0f 07 75 ff 2d f8 5a 0f 09 74 5f b5 ff 14 f8 64 0f 05 ac f8 6e 0f 12 ┆ A 1 P u - Z t_ d n ┆
0x1a0…1c0 ad fa 05 47 14 00 31 e6 fa 05 47 07 00 31 f8 78 0f 28 aa fa 1f 45 1a 00 41 6e 67 69 76 20 64 69 ┆ G 1 G 1 x ( E Angiv di┆
0x1c0…1e0 73 6b 65 74 74 65 65 6e 68 65 64 20 20 20 41 2f 42 20 31 f7 04 e9 f8 82 0f 05 7c f8 8c 0f 0b b0 ┆sketteenhed A/B 1 ø ┆
0x1e0…200 fa 05 38 45 3b 31 f8 96 0f 12 a8 fa 04 38 01 31 ec fa 06 38 47 3b 15 31 f8 a0 0f 15 7d 40 b4 fa ┆ 8E;1 8 1 8G; 1 å@ ┆
0x200…220 (1,) 44 4f 4b 54 4f 52 0d 0a 3c 45 4f 46 3e 0d 0a 44 4f 4b 54 4f 52 0d 0a 0d 0a 20 20 44 65 74 74 65 ┆DOKTOR <EOF> DOKTOR Dette┆
0x220…240 20 70 72 6f 67 72 61 6d 20 73 69 6d 75 6c 65 72 65 72 20 64 69 61 67 6e 6f 73 74 69 6b 2c 20 73 ┆ program simulerer diagnostik, s┆
0x240…260 6f 6d 20 64 65 6e 20 61 6e 76 65 6e 64 65 73 20 61 66 20 68 75 73 6c 7b 67 65 6e 2e 0d 0a 50 72 ┆om den anvendes af huslægen. Pr┆
0x260…280 6f 67 72 61 6d 6d 65 74 20 22 75 64 73 70 7c 72 67 65 72 22 20 22 70 61 74 69 65 6e 74 65 6e 22 ┆ogrammet "udspørger" "patienten"┆
0x280…2a0 2c 20 73 6f 6d 20 73 76 61 72 65 72 20 68 65 72 70 7d 2e 20 50 7d 20 67 72 75 6e 64 6c 61 67 0d ┆, som svarer herpå. På grundlag ┆
0x2a0…2c0 0a 68 65 72 61 66 20 73 74 69 6c 6c 65 73 20 65 6e 20 22 64 69 61 67 6e 6f 73 65 22 2e 0d 0a 20 ┆ heraf stilles en "diagnose". ┆
0x2c0…2e0 20 42 65 68 61 6e 64 6c 69 6e 67 65 6e 20 61 66 20 22 70 61 74 69 65 6e 74 65 6e 73 22 20 73 76 ┆ Behandlingen af "patientens" sv┆
0x2e0…300 61 72 20 6b 61 6e 20 75 64 62 79 67 67 65 73 20 6f 67 20 70 72 6f 67 72 61 6d 6d 65 74 73 0d 0a ┆ar kan udbygges og programmets ┆
0x300…320 72 65 73 70 6f 6e 73 73 7b 74 20 6b 61 6e 20 75 64 76 69 64 65 73 2f 6e 75 61 6e 63 65 72 65 73 ┆responssæt kan udvides/nuanceres┆
0x320…340 2e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆. ┆
0x340…360 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x380…3a0 00 26 47 20 20 20 20 20 20 43 53 42 00 00 00 04 4a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ &G CSB J ┆
0x3a0…3c0 00 44 45 53 53 45 52 54 20 43 53 42 00 00 00 08 4b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ DESSERT CSB K ┆
0x3c0…3e0 00 4b 41 52 42 4f 47 20 20 43 53 42 00 00 00 2f 4c 4d 4e 4f 50 51 00 00 00 00 00 00 00 00 00 00 ┆ KARBOG CSB /LMNOPQ ┆
0x3e0…400 00 41 44 52 4c 49 53 54 45 43 53 42 00 00 00 08 52 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ADRLISTECSB R ┆
0x400…420 (2,) 20 20 20 20 4f 4b 3a 3d 54 52 55 45 20 2f 2f 49 4e 47 45 4e 20 54 45 53 54 2f 2f 0d 32 35 31 30 ┆ OK:=TRUE //INGEN TEST// 2510┆
0x420…440 20 20 20 45 4e 44 43 41 53 45 20 0d 32 35 32 30 20 20 20 49 46 20 4e 4f 54 20 4f 4b 20 54 48 45 ┆ ENDCASE 2520 IF NOT OK THE┆
0x440…460 4e 20 45 58 45 43 20 46 45 4a 4c 28 31 30 29 0d 32 35 33 30 20 45 4e 44 50 52 4f 43 20 4b 4f 4e ┆N EXEC FEJL(10) 2530 ENDPROC KON┆
0x460…480 54 52 4f 4c 0d 32 35 34 30 20 2f 2f 0d 32 35 35 30 20 50 52 4f 43 20 46 45 4a 4c 28 4e 52 29 0d ┆TROL 2540 // 2550 PROC FEJL(NR) ┆
0x480…4a0 32 35 36 30 20 20 20 45 58 45 43 20 43 4c 45 41 52 54 4f 28 31 29 0d 32 35 37 30 20 20 20 50 52 ┆2560 EXEC CLEARTO(1) 2570 PR┆
0x4a0…4c0 49 4e 54 20 22 46 45 4a 4c 21 22 0d 32 35 38 30 20 20 20 2f 2f 0d 32 35 39 30 20 20 20 2f 2f 53 ┆INT "FEJL!" 2580 // 2590 //S┆
0x4c0…4e0 54 55 42 2f 2f 0d 32 36 30 30 20 20 20 2f 2f 0d 32 36 31 30 20 45 4e 44 50 52 4f 43 20 46 45 4a ┆TUB// 2600 // 2610 ENDPROC FEJ┆
0x4e0…500 4c 0d 32 36 32 30 20 2f 2f 0d 32 36 33 30 20 50 52 4f 43 20 53 54 41 52 54 53 59 53 54 45 4d 0d ┆L 2620 // 2630 PROC STARTSYSTEM ┆