|
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 - download
Length: 1280 (0x500)
Names: »EXAMPLE2.CSB«
└─⟦832e7e234⟧ Bits:30003263 Butler systemdiskette
└─⟦832e7e234⟧ Bits:30004286 Butler systemdiskette
└─ ⟦this⟧ »EXAMPLE2.CSB«
└─⟦ccbc2d84d⟧ Bits:30004597 Boot 60k CP/M (Butler)
└─ ⟦this⟧ »EXAMPLE2.CSB«
└─⟦d823d3189⟧ Bits:30004365 Butler CP/M 2.2 systemdiskette fra LFU
└─ ⟦this⟧ »EXAMPLE2.CSB«
0x000…020 07 00 da 03 07 31 00 04 00 0b 00 00 bb b3 03 42 49 54 82 02 01 04 12 00 01 f7 b3 06 53 45 54 42 ┆ 1 BIT SETB┆ 0x020…040 49 54 00 00 02 ff 01 ff 01 fe 0d 00 02 3b b4 05 43 4f 4d 50 4c 82 00 02 05 0b 00 03 4b b4 03 48 ┆IT ; COMPL K H┆ 0x040…060 45 58 04 ff 03 fe 12 00 04 9a b4 08 4c 4f 57 42 4f 55 4e 44 02 fd 09 ff 01 fe 13 00 05 9f b4 09 ┆EX LOWBOUND ┆ 0x060…080 48 49 47 48 42 4f 55 4e 44 02 fd 09 ff 01 fe 11 00 06 ee b4 09 4d 41 58 4c 45 4e 47 54 48 02 00 ┆HIGHBOUND MAXLENGTH ┆ 0x080…0a0 04 fe 01 00 c3 da 03 f6 0a 00 41 71 f7 39 00 20 54 68 69 73 20 69 73 20 61 6e 20 65 78 61 6d 70 ┆ Aq 9 This is an examp┆ 0x0a0…0c0 6c 65 20 70 72 6f 67 72 61 6d 20 77 68 69 63 68 20 64 65 6d 6f 6e 73 74 72 61 74 65 73 20 74 68 ┆le program which demonstrates th┆ 0x0c0…0e0 65 20 75 73 65 20 6f 66 f6 14 00 41 71 f7 39 00 20 73 6f 6d 65 20 6f 66 20 74 68 65 20 4d 45 54 ┆e use of Aq 9 some of the MET┆ 0x0e0…100 41 4e 49 43 20 43 4f 4d 41 4c 2d 38 30 20 22 45 58 54 45 4e 53 49 4f 4e 53 22 20 64 65 66 69 6e ┆ANIC COMAL-80 "EXTENSIONS" defin┆ 0x100…120 65 64 20 69 6e 20 74 68 65 f6 1e 00 1b 71 f7 13 00 20 66 69 6c 65 20 45 58 41 4d 50 4c 45 2e 4d ┆ed in the q file EXAMPLE.M┆ 0x120…140 41 43 20 2e f6 28 00 08 71 f7 00 00 f6 32 00 24 71 f7 1c 00 20 54 68 69 73 20 70 72 6f 67 72 61 ┆AC . ( q 2 $q This progra┆ 0x140…160 6d 20 77 72 69 74 74 65 6e 20 38 33 30 33 32 34 f6 3c 00 2e 71 f7 26 00 20 20 20 20 20 20 20 20 ┆m written 830324 < .q & ┆ 0x160…180 20 20 20 20 20 20 20 20 20 20 20 62 79 20 41 72 6e 65 20 43 68 72 69 73 74 65 6e 73 65 6e f6 46 ┆ by Arne Christensen F┆ 0x180…1a0 00 29 71 f7 21 00 20 20 20 20 20 20 20 20 20 20 20 20 77 68 6f 20 69 73 20 6f 66 20 4d 65 74 61 ┆ )q ! who is of Meta┆ 0x1a0…1c0 6e 69 63 20 41 70 53 f6 50 00 2c 71 f7 24 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆nic ApS P ,q $ ┆ 0x1c0…1e0 20 20 20 20 20 4b 6f 6e 67 65 76 65 6a 65 6e 20 31 37 37 f6 5a 00 2b 71 f7 23 00 20 20 20 20 20 ┆ Kongevejen 177 Z +q # ┆ 0x1e0…200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 4b 2d 32 38 33 30 20 56 69 72 75 6d f6 64 ┆ DK-2830 Virum d┆ 0x200…220 00 25 71 f7 1d 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 65 6e 6d ┆ %q Denm┆ 0x220…240 61 72 6b f6 6e 00 08 71 f7 00 00 f6 78 00 0f a2 f8 31 00 2b e7 f8 47 00 00 2b f6 82 00 05 a4 f6 ┆ark n q x 1 + G + ┆ 0x240…260 8c 00 3f a4 f8 45 33 00 52 65 73 70 6f 6e 64 20 74 6f 20 65 61 63 68 20 63 6f 6c 6f 6e 20 77 69 ┆ ? E3 Respond to each colon wi┆ 0x260…280 74 68 20 61 20 62 69 74 20 6e 75 6d 62 65 72 20 61 6e 64 20 52 45 54 55 52 4e 2e 2b f5 04 f6 96 ┆th a bit number and RETURN.+ ┆ 0x280…2a0 00 32 a4 f8 45 26 00 54 68 65 20 73 65 6c 65 63 74 65 64 20 62 69 74 20 77 69 6c 6c 20 62 65 20 ┆ 2 E& The selected bit will be ┆ 0x2a0…2c0 63 6f 6d 70 6c 65 6d 65 6e 74 65 64 2e 2b f5 04 f6 a0 00 54 a4 f8 45 48 00 49 66 20 62 69 74 20 ┆complemented.+ T EH If bit ┆ 0x2c0…2e0 6e 75 6d 62 65 72 20 2d 31 20 69 73 20 73 65 6c 65 63 74 65 64 2c 20 74 68 65 20 77 68 6f 6c 65 ┆number -1 is selected, the whole┆ 0x2e0…300 20 6e 75 6d 62 65 72 20 77 69 6c 6c 20 62 65 20 31 27 73 20 63 6f 6d 70 6c 65 6d 65 6e 74 65 64 ┆ number will be 1's complemented┆ 0x300…320 2e 2b f5 04 f6 aa 00 43 a4 f8 45 37 00 54 68 65 20 62 69 74 20 6e 75 6d 62 65 72 20 6d 75 73 74 ┆.+ C E7 The bit number must┆ 0x320…340 20 62 65 20 2d 31 20 6f 72 20 69 6e 20 74 68 65 20 72 61 6e 67 65 20 30 20 74 68 72 6f 75 67 68 ┆ be -1 or in the range 0 through┆ 0x340…360 20 31 35 2e 2b f5 04 f6 b4 00 05 a4 f6 be 00 05 84 f6 c8 00 10 a2 f8 31 06 2b e7 f8 32 00 39 2d ┆ 15.+ 1 + 2 9-┆ 0x360…380 2b f6 d2 00 1f 99 0e db f8 32 06 39 47 00 00 2d 56 2b d8 a2 f8 31 06 2b e8 f8 46 00 00 00 91 2b ┆+ 2 9G -V+ 1 + F +┆ 0x380…3a0 f6 dc 00 1a a4 f8 32 06 39 3d 03 2b f5 04 e2 f8 45 03 00 20 3d 20 2b f5 04 e2 f6 e6 00 19 8b 57 ┆ 2 9= + E = + W┆ 0x3a0…3c0 b8 00 ff 01 e7 f8 47 0f 00 2d 2b dc f8 47 00 00 2d 2b d9 f6 f0 00 15 a4 f8 32 00 39 32 01 39 2e ┆ G -+ G -+ 2 92 9.┆ 0x3c0…3e0 3b 01 3f 00 2b f5 02 e2 f6 fa 00 0a 8c 29 b8 00 ff 01 f6 04 01 05 7c f6 0e 01 11 91 45 03 00 20 ┆; ? + ) ø E ┆ 0x3e0…400 3a 20 e5 f8 31 04 2b e1 f6 18 01 19 7d 61 b8 f8 32 04 39 47 01 00 60 67 32 04 39 47 0f 00 65 5b ┆: 1 + åa 2 9G `g2 9G eÆ┆ 0x400…420 2b f6 22 01 05 a4 f6 2c 01 12 98 b8 b8 f8 32 04 39 47 01 00 60 69 2b d8 f6 36 01 11 a2 f8 31 00 ┆+ " , 2 9G `i+ 6 1 ┆ 0x420…440 2b e7 f8 32 00 39 3e 02 2b f6 40 01 07 7a df b8 f6 4a 01 20 b0 f8 31 00 3c fe 32 04 39 3b 01 32 ┆+ 2 9> + @ z J 1 < 2 9; 2┆ 0x440…460 00 39 3e 02 32 04 39 3b 01 3f 00 3b 01 44 01 2b f6 54 01 05 7b f6 5e 01 07 86 db b7 f6 10 27 00 ┆ 9> 2 9; ? ; D + T æ ^ ' ┆ 0x460…480 8d 31 00 02 03 03 03 02 04 03 09 55 4e 53 5f 56 41 4c 55 45 01 48 05 42 49 54 4e 4f 09 4e 45 57 ┆ 1 UNS_VALUE H BITNO NEW┆ 0x480…4a0 5f 56 41 4c 55 45 05 42 49 54 4e 4f 01 49 05 56 41 4c 55 45 60 69 2b d8 f6 36 01 11 a2 f8 31 00 ┆_VALUE BITNO I VALUE`i+ 6 1 ┆ 0x4a0…4c0 2b e7 f8 32 00 39 3e 02 2b f6 40 01 07 7a df b8 f6 4a 01 20 b0 f8 31 00 3c fe 32 04 39 3b 01 32 ┆+ 2 9> + @ z J 1 < 2 9; 2┆ 0x4c0…4e0 00 39 3e 02 32 04 39 3b 01 3f 00 3b 01 44 01 2b f6 54 01 05 7b f6 5e 01 07 86 db b7 f6 10 27 00 ┆ 9> 2 9; ? ; D + T æ ^ ' ┆ 0x4e0…500 8d 31 00 02 03 03 03 02 04 03 09 55 4e 53 5f 56 41 4c 55 45 01 48 05 42 49 54 4e 4f 09 4e 45 14 ┆ 1 UNS_VALUE H BITNO NE ┆