|
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: 1152 (0x480)
Names: »SORTER«
└─⟦48fe3f668⟧ Bits:30003085 Kursus i datalære med COMAL80 på RC700
└─ ⟦this⟧ »SORTER«
└─⟦d67b880a0⟧ Bits:30003049 Datalære: 30-timers kursus med COMAL80 og Pascal
└─ ⟦this⟧ »SORTER«
0x000…020 02 83 71 c7 23 36 ee 04 ac 04 31 2f 73 6f 72 74 65 72 20 20 20 20 20 20 20 20 0a 00 d3 1f 01 01 ┆ q #6 1/sorter ┆ 0x020…040 20 53 6f 72 74 65 72 69 6e 67 20 61 66 20 6f 72 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ Sortering af ord ┆ 0x040…060 20 20 20 20 20 70 72 6f 67 72 61 6d 6e 61 76 6e 3a 20 53 4f 52 54 45 52 14 00 d3 23 01 01 2d 2d ┆ programnavn: SORTER # --┆ 0x060…080 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x080…0a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 00 1e 00 ┆----------------------------- ┆ 0x0a0…0c0 86 0a 08 d0 01 20 00 00 00 00 00 82 55 00 07 00 01 00 28 00 86 11 18 c0 15 00 20 20 20 20 53 6f ┆ U ( So┆ 0x0c0…0e0 72 74 65 72 69 6e 67 20 61 66 20 6f 72 64 2e 00 07 00 01 00 32 00 86 04 08 00 01 00 3c 00 87 12 ┆rtering af ord. 2 < ┆ 0x0e0…100 16 c0 13 00 48 76 6f 72 20 6d 61 6e 67 65 20 6f 72 64 20 3f 20 20 3a 00 12 3a 02 80 05 00 01 00 ┆ Hvor mange ord ? : : ┆ 0x100…120 46 00 67 10 02 80 82 f3 04 01 06 a0 2d 2c 82 f3 04 00 0c a0 2d 2c 82 f3 04 00 3a a0 2d 00 01 00 ┆F g -, -, : - ┆ 0x120…140 50 00 d1 06 13 80 81 f1 1d 00 01 00 5a 00 82 09 00 00 ca 71 13 80 02 80 26 00 2d 3d 01 00 64 00 ┆P Z q & -= d ┆ 0x140…160 86 0c 0a c0 08 00 6f 72 64 20 6e 72 2e 20 07 3b 13 80 07 3b 01 00 6e 00 87 0c 06 c0 04 00 20 20 ┆ ord nr. ; ; n ┆ 0x160…180 3a 20 12 3a 13 80 02 01 06 a0 05 00 01 00 78 00 d1 08 13 80 13 80 81 f1 24 00 1d 00 01 00 82 00 ┆: : x $ ┆ 0x180…1a0 a1 04 70 71 01 00 8c 00 d3 10 01 01 20 69 6e 64 6c 7b 73 6e 69 6e 67 65 6e 20 65 72 20 6e 75 20 ┆ pq indlæsningen er nu ┆ 0x1a0…1c0 66 7b 72 64 69 67 96 00 d3 03 01 01 a0 00 86 0d 10 c0 0d 00 4e 75 20 73 6f 72 74 65 72 65 73 20 ┆færdig Nu sorteres ┆ 0x1c0…1e0 2e 00 07 00 01 00 aa 00 65 09 06 a0 81 f1 02 80 02 03 17 80 2d 0d 01 00 b4 00 d3 03 01 01 be 00 ┆. e - ┆ 0x1e0…200 86 0a 08 d0 01 20 00 00 00 00 00 82 55 00 07 00 01 00 c8 00 86 12 1a c0 17 00 44 65 6e 20 73 6f ┆ U Den so┆ 0x200…220 72 74 65 72 65 64 65 20 6c 69 73 74 65 20 65 72 3a 00 07 00 01 00 d2 00 5f 0d 00 00 a6 72 13 80 ┆rterede liste er: _ r ┆ 0x220…240 81 f1 1d 00 02 80 81 f1 23 00 3b 00 11 3d 01 00 dc 00 86 14 13 80 02 01 06 a0 07 3b 08 d0 03 50 ┆ # ; = ; P┆ 0x240…260 00 00 00 00 00 82 5a 00 07 3b 13 80 81 f1 24 00 02 01 06 a0 07 00 01 00 e6 00 60 05 74 72 13 80 ┆ Z ; $ ` tr ┆ 0x260…280 01 00 f0 00 d3 03 01 01 fa 00 d3 03 01 01 04 01 d3 20 01 01 20 64 65 74 20 66 7c 6c 67 65 6e 64 ┆ det følgend┆ 0x280…2a0 65 20 65 72 20 65 6e 20 70 72 6f 63 65 64 75 72 65 2c 20 64 65 72 20 6d 65 67 65 74 20 68 75 72 ┆e er en procedure, der meget hur┆ 0x2a0…2c0 74 69 67 74 20 73 6f 72 74 65 72 65 72 2e 0e 01 63 0d 42 74 7f 03 17 80 20 a0 03 01 24 80 00 00 ┆tigt sorterer. c Bt $ ┆ 0x2c0…2e0 2e 80 00 00 2d 7f 01 00 18 01 85 05 0c a0 3a a0 01 00 22 01 d1 09 13 80 24 80 1d 1b 36 80 2e 80 ┆. - : " $ 6 . ┆ 0x2e0…300 1d 00 01 00 2c 01 d1 0d 3a a0 13 80 36 80 24 00 14 00 81 f2 46 00 02 01 20 a0 1e 00 01 00 36 01 ┆ , : 6 $ F 6 ┆ 0x300…320 83 04 94 74 01 00 40 01 81 0f 13 80 02 01 20 a0 3a a0 18 00 2d 3c d1 00 13 80 13 80 81 f1 24 00 ┆ t @ : -< $ ┆ 0x320…340 1d 00 01 00 4a 01 81 0f 3a a0 36 80 02 01 20 a0 18 00 2d 3c d1 00 36 80 36 80 81 f1 23 00 1d 00 ┆ J : 6 -< 6 6 # ┆ 0x340…360 01 00 54 01 3f 0c 44 73 f2 73 13 80 36 80 26 00 2d 72 01 01 20 20 62 79 74 00 5e 01 d1 08 0c a0 ┆ T ? Ds s 6 & -r byt ^ ┆ 0x360…380 13 80 02 01 20 a0 1e 00 01 00 68 01 d1 0a 13 80 02 01 20 a0 36 80 02 01 20 a0 1e 00 01 00 72 01 ┆ h 6 r ┆ 0x380…3a0 d1 08 36 80 02 01 20 a0 0c a0 1e 00 01 00 7c 01 d1 0d 13 80 13 80 81 f1 24 00 1d 1b 36 80 36 80 ┆ 6 ø $ 6 6 ┆ 0x3a0…3c0 81 f1 23 00 1d 00 01 00 86 01 80 03 01 00 90 01 84 08 4a 73 13 80 36 80 2a 00 2d 0a 01 00 9a 01 ┆ # Js 6 * - ┆ 0x3c0…3e0 3e 0e 24 80 36 80 27 00 2d 71 65 00 20 a0 24 80 36 80 02 03 17 80 2d 0d 01 00 a4 01 3e 0e 13 80 ┆> $ 6 ' -qe $ 6 - > ┆ 0x3e0…400 2e 80 27 00 2d 71 65 00 20 a0 13 80 2e 80 02 03 17 80 2d 0d 01 00 ae 01 a3 04 17 80 01 00 b8 01 ┆. ' -qe . - ┆ 0x400…420 d3 03 01 01 c2 01 6b 03 01 00 10 27 d6 00 62 c7 02 4e a8 c4 04 49 4e 44 7f c4 05 48 55 53 4b 47 ┆ k ' b N IND HUSKG┆ 0x420…440 c4 02 49 71 c7 07 53 4f 52 54 45 52 00 00 02 41 00 00 08 56 45 4e 53 54 52 45 00 00 06 48 5c 4a ┆ Iq SORTER A VENSTRE HØJ┆ 0x440…460 52 45 00 00 02 4a 56 c4 04 50 49 4c 00 00 00 d4 1a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆RE JV PIL ┆ 0x460…480 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 ┆ ┆