|
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: 2816 (0xb00)
Names: »SPAREOP.CSB«
└─⟦b8c2906c0⟧ Bits:30004180 METANIC COMAL v. 1.6 og en del COMAL programmer (Comet)
└─⟦this⟧ »SPAREOP.CSB«
0x000…020 (0,) fa 05 38 12 3b 31 f7 03 e7 30 4a fa 05 47 2d 00 31 4b e7 fa 05 38 10 3b 31 f7 03 e7 30 4a fa 05 ┆ 8 ;1 0J G- 1K 8 ;1 0J ┆ 0x020…040 47 3c 00 31 4b e7 fa 05 38 0b 3b 31 f7 03 e7 fa 06 45 01 00 2d 31 f7 04 e7 fa 05 38 0f 3b 31 f7 ┆G< 1K 8 ;1 E -1 8 ;1 ┆ 0x040…060 03 e7 fa 08 45 03 00 2f 31 32 31 f7 04 f8 ea 01 0a 90 eb 9b 01 ff 0f f8 f4 01 05 7b f8 fe 01 16 ┆ E /121 æ ┆ 0x060…080 a8 fa 04 37 0b 31 ec fa 0a 38 0e 3b 47 01 00 33 52 31 f8 08 02 2e a8 fa 04 37 0c 31 ec fa 22 47 ┆ 7 1 8 ;G 3R1 . 7 1 "G┆ 0x080…0a0 0c 00 38 08 3b 32 4e 47 42 00 38 00 3b 32 4e 52 4b 38 01 3b 4e 47 0c 00 33 4f 47 64 00 33 4f 31 ┆ 8 ;2NGB 8 ;2NRK8 ;NG 3OGd 3O1┆ 0x0a0…0c0 f8 12 02 23 a8 fa 04 37 0c 31 ec fa 17 38 0c 3b 47 64 00 33 4e 46 00 00 00 80 52 0f 4b 47 64 00 ┆ # 7 1 8 ;Gd 3NF R KGd ┆ 0x0c0…0e0 33 4f 31 f8 1c 02 1a a8 fa 04 37 08 31 ec fa 0e 38 08 3b 47 0c 00 38 00 3b 32 4e 52 31 f8 26 02 ┆3O1 7 1 8 ;G 8 ;2NR1 & ┆ 0x0e0…100 11 a8 fa 04 37 09 31 ed fa 05 38 0c 3b 31 f8 30 02 15 a8 fa 04 37 0a 31 ec fa 09 38 08 3b 38 09 ┆ 7 1 8 ;1 0 7 1 8 ;8 ┆ 0x100…120 3b 52 31 f8 3a 02 64 aa fa 07 45 02 00 20 20 31 f7 04 e7 fa 05 38 0b 3b 31 f7 03 e7 30 4a fa 05 ┆;R1 : d E 1 8 ;1 0J ┆ 0x120…140 47 0e 00 31 4b e7 fa 05 38 08 3b 31 f7 03 e7 30 4a fa 05 47 1d 00 31 4b e7 fa 05 38 09 3b 31 f7 ┆G 1K 8 ;1 0J G 1K 8 ;1 ┆ 0x140…160 03 e7 30 4a fa 05 47 2d 00 31 4b e7 fa 05 38 0a 3b 31 f7 03 e7 30 4a fa 05 47 3c 00 31 4b e7 fa ┆ 0J G- 1K 8 ;1 0J G< 1K ┆ 0x160…180 05 38 0b 3b 31 f7 03 f8 44 02 0a 90 96 9b 00 ff 0e f8 4e 02 12 9c b7 a0 fa 09 38 04 3b 47 00 00 ┆ 8 ;1 D N 8 ;G ┆ 0x180…1a0 68 31 dd f8 58 02 12 a8 fa 04 37 12 31 ec fa 06 47 00 00 33 31 f8 62 02 1b 8f e1 9f 00 ff 0f ec ┆h1 X 7 1 G 31 b ┆ 0x1a0…1c0 fa 06 47 01 00 33 31 e0 fa 06 38 04 3b 33 31 de f8 6c 02 19 a8 fa 04 37 11 31 ec fa 0d 38 08 3b ┆ G 31 8 ;31 l 7 1 8 ;┆ 0x1c0…1e0 38 0f 3b 38 00 3b 4e 52 31 f8 76 02 24 a8 fa 04 37 0c 31 ec fa 18 38 11 3b 38 00 3b 53 4b 38 01 ┆8 ;8 ;NR1 v $ 7 1 8 ;8 ;SK8 ┆ 0x1e0…200 3b 4e 47 0c 00 33 4f 47 64 00 33 4f 31 f8 80 02 23 a8 fa 04 37 0c 31 ec fa 17 38 0c 3b 47 64 00 ┆;NG 3OGd 3O1 # 7 1 8 ;Gd ┆ 0x200…220 (1,) ec fa 12 38 0b 3b 47 64 00 33 4e 12 47 64 00 33 32 4f 4b 31 e8 fa 04 37 05 31 ec fa 09 38 05 3b ┆ 8 ;Gd 3N Gd 32OK1 7 1 8 ;┆ 0x220…240 38 0b 3b 52 31 f8 8e 03 07 7a 08 a4 f8 98 03 12 a8 fa 04 37 06 31 ee fa 06 47 01 00 33 31 f8 a2 ┆8 ;R1 z 7 1 G 31 ┆ 0x240…260 03 30 a8 fa 04 37 07 31 ec fa 13 38 05 3b 38 03 3b 4e 47 03 00 33 4f 47 64 00 33 4f 31 e8 fa 04 ┆ 0 7 1 8 ;8 ;NG 3OGd 3O1 ┆ 0x260…280 38 0a 31 ec fa 09 45 04 00 2b 31 2f 33 31 f8 ac 03 16 9c a6 a3 fa 0d 38 04 3b 38 05 3b 38 07 3b ┆8 1 E +1/31 8 ;8 ;8 ;┆ 0x280…2a0 52 56 31 dd f8 b6 03 39 a8 fa 04 37 07 31 ec fa 1c 38 07 3b 38 05 3b 38 04 3b 53 4b 38 03 3b 4e ┆RV1 9 7 1 8 ;8 ;8 ;SK8 ;N┆ 0x2a0…2c0 47 03 00 33 4f 47 64 00 33 4f 52 31 e8 fa 04 38 0a 31 ec fa 09 45 04 00 2b 32 2f 33 31 f8 c0 03 ┆G 3OGd 3OR1 8 1 E +2/31 ┆ 0x2c0…2e0 1b 9c a1 a3 fa 12 47 02 00 38 04 3b 32 4e 38 05 3b 38 07 3b 52 56 31 dd f8 ca 03 48 a8 fa 04 37 ┆ G 8 ;2N8 ;8 ;RV1 H 7┆ 0x2e0…300 07 31 ec fa 21 38 07 3b 38 05 3b 47 02 00 38 04 3b 32 4e 53 4b 38 03 3b 4e 47 03 00 33 4f 47 64 ┆ 1 !8 ;8 ;G 8 ;2NSK8 ;NG 3OGd┆ 0x300…320 00 33 4f 52 31 e8 fa 04 37 06 31 ed fa 06 47 01 00 33 31 e8 fa 04 38 0a 31 ec fa 05 45 00 00 31 ┆ 3OR1 7 1 G 31 8 1 E 1┆ 0x320…340 f8 d4 03 05 7b f8 de 03 05 7b f8 e8 03 27 a8 fa 04 37 07 31 ed fa 07 46 23 d7 0a 79 31 e8 fa 04 ┆ æ æ ' 7 1 F# y1 ┆ 0x340…360 37 07 31 ee fa 0c 38 07 3b 46 23 d7 0a 7a 51 4b 31 f8 f2 03 36 a8 fa 04 37 04 31 ec fa 0f 38 05 ┆7 1 8 ;F# zQK1 6 7 1 8 ┆ 0x360…380 3b 38 07 3b 52 4b 47 03 00 33 4f 31 e8 fa 04 37 08 31 ec fa 05 38 05 3b 31 e8 fa 04 37 05 31 ec ┆;8 ;RKG 3O1 7 1 8 ;1 7 1 ┆ 0x380…3a0 fa 06 47 00 00 33 31 f8 fc 03 05 7b f8 06 04 12 9c 3f a4 fa 09 38 06 3b 38 0c 3b 59 31 dd f8 10 ┆ G 31 æ ? 8 ;8 ;Y1 ┆ 0x3a0…3c0 04 20 a8 fa 04 37 06 31 ec fa 06 47 00 00 33 31 e8 fa 04 37 0d 31 ed fa 06 47 01 00 33 31 f8 1a ┆ 7 1 G 31 7 1 G 31 ┆ 0x3c0…3e0 04 05 7b f8 24 04 2a aa fa 05 38 0d 3b 31 f7 03 e7 fa 06 45 01 00 2d 31 f7 04 e7 fa 05 38 06 3b ┆ æ $ * 8 ;1 E -1 8 ;┆ 0x3e0…400 31 f7 03 e7 fa 05 38 0a 3b 31 f7 04 e7 f8 2e 04 56 aa 30 4a fa 05 47 0b 00 31 4b e7 fa 0a 38 04 ┆1 8 ;1 . V 0J G 1K 8 ┆ 0x400…420 (2,) 3b 47 03 00 33 4e 31 f7 03 e7 30 4a fa 05 47 19 00 31 4b e7 fa 05 38 07 3b 31 f7 03 e7 30 4a fa ┆;G 3N1 0J G 1K 8 ;1 0J ┆ 0x420…440 05 47 23 00 31 4b e7 fa 05 38 08 3b 31 f7 03 e7 30 4a fa 05 47 32 00 31 4b e7 fa 05 38 05 3b 31 ┆ G# 1K 8 ;1 0J G2 1K 8 ;1┆ 0x440…460 f7 03 e7 f8 38 04 12 9c 0a a5 fa 09 38 0a 3b 45 00 00 6f 31 dd f8 42 04 34 aa 30 4a fa 05 47 46 ┆ 8 8 ;E o1 B 4 0J GF┆ 0x460…480 00 31 4b e7 fa 05 38 06 3b 31 f7 03 e7 fa 05 38 0a 3b 31 f7 04 e7 fa 07 45 02 00 20 2d 31 f7 04 ┆ 1K 8 ;1 8 ;1 E -1 ┆ 0x480…4a0 e7 fa 05 38 0d 3b 31 f7 03 f8 4c 04 07 7a 45 a5 f8 56 04 34 aa 30 4a fa 05 47 42 00 31 4b e7 fa ┆ 8 ;1 L zE V 4 0J GB 1K ┆ 0x4a0…4c0 05 38 06 3b 31 f7 03 e7 fa 05 38 0a 3b 31 f7 04 e7 fa 07 45 02 00 20 2d 31 f7 04 e7 fa 05 38 0d ┆ 8 ;1 8 ;1 E -1 8 ┆ 0x4c0…4e0 3b 31 f7 03 f8 60 04 05 7b f8 6a 04 12 7d 3a a1 fa 0a 38 05 3b 47 00 00 33 59 31 f8 74 04 07 7a ┆;1 ` æ j å: 8 ;G 3Y1 t z┆ 0x4e0…500 63 a5 f8 7e 04 05 7b f8 88 04 05 aa f8 92 04 13 9c 9e db fa 0a 38 0e 3b 47 01 00 33 59 31 dd f8 ┆c ü æ 8 ;G 3Y1 ┆ 0x500…520 9c 04 0f ab ef fa 08 45 03 00 44 53 3a 31 f8 a6 04 05 7b f8 b0 04 07 75 ff 01 f8 10 27 00 91 77 ┆ E DS:1 æ u ' w┆ 0x520…540 00 03 03 03 03 03 03 03 03 03 03 04 03 03 03 03 05 53 4b 52 49 56 02 5d 52 08 54 45 52 4d 49 4e ┆ SKRIV ÅR TERMIN┆ 0x540…560 5d 52 05 44 45 43 49 4d 04 42 52 5c 4b 04 46 4f 52 4d 06 41 46 44 52 41 47 05 52 45 4e 54 45 06 ┆ÅR DECIM BRØK FORM AFDRAG RENTE ┆ 0x560…580 54 45 52 4d 49 4e 08 52 45 53 54 47 5b 4c 44 06 59 44 45 4c 53 45 07 50 52 4f 43 45 4e 54 04 47 ┆TERMIN RESTGÆLD YDELSE PROCENT G┆ 0x580…5a0 5b 4c 44 08 4f 56 45 52 53 49 47 54 0b 4f 50 4c 59 53 4e 49 4e 47 45 52 ff 01 f8 10 27 00 91 77 ┆ÆLD OVERSIGT OPLYSNINGER ' w┆ 0x5a0…5c0 00 03 03 03 03 03 03 03 03 03 03 04 03 03 03 03 05 53 4b 52 49 56 02 5d 52 08 54 45 52 4d 49 4e ┆ SKRIV ÅR TERMIN┆ 0x5c0…5e0 5d 52 05 44 45 43 49 4d 04 42 52 5c 4b 04 46 4f 52 4d 06 41 46 44 52 41 47 05 52 45 4e 54 45 06 ┆ÅR DECIM BRØK FORM AFDRAG RENTE ┆ 0x5e0…600 54 45 52 4d 49 4e 08 52 45 53 54 47 5b 4c 44 06 59 44 45 4c 53 45 07 50 52 4f 43 45 4e 54 04 18 ┆TERMIN RESTGÆLD YDELSE PROCENT ┆ 0x600…620 (3,) 07 00 33 0a 15 aa 00 02 00 33 0a f8 0a 00 08 71 f9 00 00 f8 14 00 29 71 f9 21 00 20 20 20 20 20 ┆ 3 3 q )q ! ┆ 0x620…640 20 20 50 72 6f 67 72 61 6d 6d 65 74 20 20 68 65 64 64 65 72 20 53 50 41 52 45 4f 50 f8 1e 00 08 ┆ Programmet hedder SPAREOP ┆ 0x640…660 71 f9 00 00 f8 28 00 08 71 f9 00 00 f8 32 00 05 ac f8 3c 00 4d aa fa 45 45 40 00 20 20 2a 2a 2a ┆q ( q 2 < M EE@ ***┆ 0x660…680 20 4d 7d 6e 65 64 6c 69 67 20 6f 70 73 70 61 72 69 6e 67 20 6d 65 64 20 68 65 6c 7d 72 6c 69 67 ┆ Månedlig opsparing med helårlig┆ 0x680…6a0 20 72 65 6e 74 65 74 69 6c 73 6b 72 69 76 6e 69 6e 67 20 20 2a 2a 2a 20 20 20 20 31 f7 04 f8 46 ┆ rentetilskrivning *** 1 F┆ 0x6a0…6c0 00 05 aa f8 50 00 36 95 45 28 00 48 76 6f 72 20 73 74 6f 72 20 65 72 20 64 65 6e 20 6d 7d 6e 65 ┆ P 6 E( Hvor stor er den måne┆ 0x6c0…6e0 64 6c 69 67 65 20 6f 70 73 70 61 72 69 6e 67 3f 20 20 20 ea fa 04 37 00 31 f8 5a 00 3b 95 45 2d ┆dlige opsparing? 7 1 Z ; E-┆ 0x6e0…700 00 48 76 6f 72 20 73 74 6f 72 20 65 72 20 64 65 6e 20 7d 72 6c 69 67 65 20 72 65 6e 74 65 20 28 ┆ Hvor stor er den årlige rente (┆ 0x700…720 69 20 70 72 6f 63 65 6e 74 29 3f 20 20 20 ea fa 04 37 01 31 f8 64 00 05 aa f8 6e 00 3f aa fa 37 ┆i procent)? 7 1 d n ? 7┆ 0x720…740 45 32 00 48 76 6f 72 20 6d 61 6e 67 65 20 7d 72 20 6f 67 20 6d 7d 6e 65 64 65 72 20 73 6b 61 6c ┆E2 Hvor mange år og måneder skal┆ 0x740…760 20 6f 70 73 70 61 72 69 6e 67 65 6e 20 6c 7c 62 65 3f 20 20 20 31 f7 04 f8 78 00 1b 95 45 0d 00 ┆ opsparingen løbe? 1 x E ┆ 0x760…780 41 6e 74 61 6c 20 7d 72 20 3f 20 20 20 ea fa 04 37 05 31 f8 82 00 1a 95 45 0c 00 4d 7d 6e 65 64 ┆Antal år ? 7 1 E Måned┆ 0x780…7a0 65 72 20 3f 20 20 20 ea fa 04 37 04 31 f8 8c 00 12 9c 46 99 fa 09 38 04 3b 47 0b 00 68 31 dd f8 ┆er ? 7 1 F 8 ;G h1 ┆ 0x7a0…7c0 96 00 05 7c f8 a0 00 49 aa fa 41 45 3c 00 44 65 72 20 73 70 7c 72 67 65 73 20 6f 6d 20 61 6e 74 ┆ ø I AE< Der spørges om ant┆ 0x7c0…7e0 61 6c 20 6d 7d 6e 65 64 65 72 20 75 64 20 6f 76 65 72 20 66 7c 72 6f 6d 74 61 6c 74 65 20 7d 72 ┆al måneder ud over føromtalte år┆ 0x7e0…800 2e 20 44 65 72 20 53 4b 41 4c 31 f7 04 f8 aa 00 40 aa fa 38 45 33 00 73 76 61 72 65 73 20 6d 65 ┆. Der SKAL1 @ 8E3 svares me┆ 0x800…820 (4,) 33 4e 46 00 00 00 80 52 0f 4b 47 64 00 33 4f 31 f8 8a 02 11 a8 fa 04 37 12 31 ed fa 05 38 0c 3b ┆3NF R KGd 3O1 7 1 8 ;┆ 0x820…840 31 f8 94 02 1d a8 fa 04 37 10 31 ec fa 11 38 0a 3b 38 0f 3b 38 00 3b 4e 52 38 12 3b 52 31 f8 9e ┆1 7 1 8 ;8 ;8 ;NR8 ;R1 ┆ 0x840…860 02 13 9c dc 9f fa 0a 38 06 3b 47 01 00 33 59 31 dd f8 a8 02 a2 aa fa 07 45 02 00 20 20 31 f7 04 ┆ 8 ;G 3Y1 E 1 ┆ 0x860…880 e7 fa 05 38 05 3b 31 f7 02 e7 fa 06 45 01 00 2d 31 f7 04 e7 fa 05 38 0f 3b 31 f7 03 e7 fa 08 45 ┆ 8 ;1 E -1 8 ;1 E┆ 0x880…8a0 03 00 2f 31 32 31 f7 04 e7 30 4a fa 05 47 0e 00 31 4b e7 fa 05 38 11 3b 31 f7 03 e7 30 4a fa 05 ┆ /121 0J G 1K 8 ;1 0J ┆ 0x8a0…8c0 47 1d 00 31 4b e7 fa 05 38 12 3b 31 f7 03 e7 30 4a fa 05 47 2d 00 31 4b e7 fa 05 38 10 3b 31 f7 ┆G 1K 8 ;1 0J G- 1K 8 ;1 ┆ 0x8c0…8e0 03 e7 30 4a fa 05 47 3c 00 31 4b e7 fa 05 38 05 3b 31 f7 02 e7 fa 06 45 01 00 2d 31 f7 04 e7 fa ┆ 0J G< 1K 8 ;1 E -1 ┆ 0x8e0…900 05 38 0f 3b 31 f7 03 e7 fa 08 45 03 00 2f 31 32 31 f7 04 f8 b2 02 05 7b f8 bc 02 0a 90 7e 9e 00 ┆ 8 ;1 E /121 æ ü ┆ 0x900…920 ff 0f f8 c6 02 13 9c b2 a0 fa 0a 38 06 3b 47 01 00 33 5a 31 dd f8 d0 02 12 a8 fa 04 37 0f 31 ee ┆ 8 ;G 3Z1 7 1 ┆ 0x920…940 fa 06 47 01 00 33 31 f8 da 02 a2 aa fa 07 45 02 00 20 20 31 f7 04 e7 fa 05 38 05 3b 31 f7 02 e7 ┆ G 31 E 1 8 ;1 ┆ 0x940…960 fa 06 45 01 00 2d 31 f7 04 e7 fa 05 38 0f 3b 31 f7 03 e7 fa 08 45 03 00 2f 31 32 31 f7 04 e7 30 ┆ E -1 8 ;1 E /121 0┆ 0x960…980 4a fa 05 47 0e 00 31 4b e7 fa 05 38 11 3b 31 f7 03 e7 30 4a fa 05 47 1d 00 31 4b e7 fa 05 38 12 ┆J G 1K 8 ;1 0J G 1K 8 ┆ 0x980…9a0 3b 31 f7 03 e7 30 4a fa 05 47 2d 00 31 4b e7 fa 05 38 10 3b 31 f7 03 e7 30 4a fa 05 47 3c 00 31 ┆;1 0J G- 1K 8 ;1 0J G< 1┆ 0x9a0…9c0 4b e7 fa 05 38 05 3b 31 f7 02 e7 fa 06 45 01 00 2d 31 f7 04 e7 fa 05 38 0f 3b 31 f7 03 e7 fa 08 ┆K 8 ;1 E -1 8 ;1 ┆ 0x9c0…9e0 45 03 00 2f 31 32 31 f7 04 f8 e4 02 05 7b f8 ee 02 05 7b f8 f8 02 13 9c de a0 fa 0a 38 14 3b 47 ┆E /121 æ æ 8 ;G┆ 0x9e0…a00 01 00 33 59 31 dd f8 02 03 0f ab ef fa 08 45 03 00 44 53 3a 31 f8 0c 03 05 7b f8 16 03 05 aa f8 ┆ 3Y1 E DS:1 æ ┆ 0xa00…a20 (5,) 20 03 12 ad fa 05 47 4d 00 31 e6 fa 05 47 14 00 31 f8 2a 03 11 aa fa 09 45 04 00 53 4c 55 54 31 ┆ GM 1 G 1 * E SLUT1┆ 0xa20…a40 f7 04 f8 34 03 12 ad fa 05 47 4d 00 31 e6 fa 05 47 15 00 31 f8 3e 03 05 91 f8 10 27 00 91 aa 00 ┆ 4 GM 1 G 1 > ' ┆ 0xa40…a60 03 03 03 03 02 02 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 05 53 4b 52 49 56 06 52 45 4e 54 ┆ SKRIV RENT┆ 0xa60…a80 45 33 06 52 45 4e 54 4f 50 04 49 4e 44 42 05 53 41 4c 44 4f 06 54 5b 4c 4d 44 52 05 54 5b 4c 5d ┆E3 RENTOP INDB SALDO TÆLMDR TÆLÅ┆ 0xa80…aa0 52 08 49 4e 4e 44 49 41 4c 54 05 52 45 4e 54 45 02 5d 52 08 53 41 4c 44 49 41 4c 54 08 52 45 4e ┆R INNDIALT RENTE ÅR SALDIALT REN┆ 0xaa0…ac0 54 49 41 4c 54 07 49 4e 44 49 41 4c 54 07 49 4e 44 53 4b 55 44 04 53 56 41 52 06 4c 5c 42 45 5d ┆TIALT INDIALT INDSKUD SVAR LØBEÅ┆ 0xac0…ae0 52 07 4c 5c 42 45 4d 44 52 07 4c 5c 42 45 4d 44 52 06 4c 5c 42 45 5d 52 08 52 45 4e 54 45 46 4f ┆R LØBEMDR LØBEMDR LØBEÅR RENTEFO┆ 0xae0…b00 44 08 4d 5d 4e 45 44 53 4f 50 49 4e 44 42 05 53 41 4c 44 4f 06 54 5b 4c 4d 44 52 05 54 5b 4c 6a ┆D MÅNEDSOPINDB SALDO TÆLMDR TÆLj┆