|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC850 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC850 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3712 (0xe80)
Types: RcTekst, TextFile
Names: »CORN195.WP«
└─⟦1ce066637⟧ Bits:30005845 Dokumenter - Per Cornelius #135 - #236
└─⟦this⟧ »CORN195.WP«
╱04002d4e0a0006000000000201503100000000000000000000000000000000000000000000000000050f19232d37414b555f69737d8791ff04╱
corn 86.02.26 edb.corn195↲
↲
↲
┆a1┆┆b0┆FORSLAG TIL OVERFØRSEL AF DMO- & DMA-REGISTER.↲
↲
Alle DMO'er trækkes ud samt bedste udgave af tilhørende DMA.↲
↲
↲
DMO feltnavn indhold BIB feltnr.↲
-------------------------------------------------------------------------------↲
↲
DMOLGD længdefelt↲
↲
DMOMOD modulnummer: ----------------------: 001 00 a nøgle↲
↲
form: AAA_CCC↲
↲
┆a1┆AAA kan være:↲
↲
DAT, DDM, DOM, DOG,↲
DLI, SDO, SOG, SPA,↲
BSW, XRF↲
↲
┆a1┆CCC er:↲
↲
et løbenummer.↲
↲
DMOTEXT navn/titel ----------------------: 245 00 a tekst 1↲
↲
DMOPK gl. pakkekode: ----------------------: 301 00 a pakkekode↲
↲
┆a1┆konvertering:↲
↲
DMOPK til BIB.pakkekode↲
↲
0 .... 0↲
1 .... 1↲
2 .... 2↲
3 .... 2↲
4 .... 4↲
5 .... 5↲
6 .... 6↲
7 .... 7↲
8 .... 2↲
9 .... 9↲
10 .... 10↲
↲
DMORBIB biblioteks rettedato↲
↲
DMOBIB ikke i brug↲
↲
DMORDATO rettelses dato ----------------------: 130 00 c rettelses dato↲
↲
DMOINIT initialer↲
↲
DMOSTART oprettelsesdato ? ----------------------: 130 00 a opret. dato↲
↲
DMODOKAOK ikke i brug↲
↲
DMOKOST ikke i brug↲
↲
DMOPRIS ikke i brug↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
DMA feltnavn indhold BIB feltnr.↲
-------------------------------------------------------------------------------↲
↲
HOVED:↲
======↲
↲
↲
DMALGD længdefelt↲
↲
DMOMOD modulnummer:↲
↲
DMAUDG udgave nr. ----------------------: 302 00 a bedste udg.nr.↲
Anvendes ved søgning↲
af bedste udgave nummer.↲
↲
DMAITNR itemnr = løbenummer↲
↲
DMADATO1 start dato ----------------------: ??? ?? ? ?????↲
↲
DMADATO2 slut dato ----------------------: ??? ?? ? ?????↲
↲
HVIS = 0 så bedste udgave,↲
ellers søg højere nummer !↲
↲
DMADATO3 rettelses dato ----------------------: ??? ?? ? ?????↲
↲
evt. rettelse, hvis↲
ikke ny udgave er valgt.↲
↲
↲
ITEM:↲
=====↲
↲
↲
DMALGD )↲
)↲
DMOMOD )↲
) se DMA HOVED !↲
DMAUDG )↲
)↲
DMAITNR )↲
↲
↲
DMAPART1 )↲
DMAPART2 ) nøgle til DPA ----------------------: ??? ?? ? ?????↲
DMAPART3 )↲
↲
DMASEKT DPA'ens placering↲
i 'manualen'.↲
↲
DMAIRDAT item rettedato↲
↲
↲
(fortsættes næste side)↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
UDTRÆKS RECORD:↲
===============↲
↲
↲
DMO_START:↲
↲
læs en DMO-rec,↲
↲
ved slut på file, så afslut program !↲
↲
gem dmomod,↓
dmotext,↲
dmopk,↲
dmordato,↲
dmostart.↲
↲
DMA_START_HOVED:↲
↲
læs tilhørende DMA-HOVED↲
* hvad indeholder dmaitnr ? antal items eller løbenummer ? ↲
* for dma-hoved eller dma-item ?↲
↲
hvis dmadato2 er lig med 0 (nul),↲
så er det bedste udgave;↲
↲
ellers find bedste udgave (dmaudg = dmaudg + 1)↲
↲
gem dmaudg,↲
dmadato1 (start) ?,↲
dmadato3 (rett.) ?;↲
↲
DMA_START_ITEM:↲
↲
læs tilhørende DMA-ITEM↲
↲
hvis dmomod er forskellig fra dmamod,↲
så skriv output record↲
og gå til DMO_START;↲
↲
gem dmapart1,↲
dmapart2,↲
dmapart3 (1,2,3 er DPA's partnummer),↲
dmasekt;↲
↲
gå dma_start_item.↲
↲
↲
I hvilket felt i BIB skal DPA' partnumre flyttes over i ?↲
↲
┆1a┆┆1a┆
0x000…020 (0,) 00 00 00 00 00 00 00 00 42 01 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4e 00 00 00 ┆ B N ┆
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…047 00 00 00 00 00 00 00 ┆ ┆
0x047…080 Params {
0x047…080 04 00 2d 4e 0a 00 06 00 00 00 00 02 01 50 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -N P1 ┆
0x047…080 00 00 00 00 00 00 00 00 05 0f 19 23 2d 37 41 4b 55 5f 69 73 7d 87 91 ff 04 ┆ #-7AKU_iså ┆
0x047…080 }
0x080…0a0 63 6f 72 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆corn ┆
0x0a0…0c0 20 20 20 20 20 20 20 20 20 20 20 38 36 2e 30 32 2e 32 36 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 86.02.26 ┆
0x0c0…0e0 20 20 65 64 62 2e 63 6f 72 6e 31 39 35 0d 0a 0d 0a 0d 0a a1 b0 46 4f 52 53 4c 41 47 20 54 49 4c ┆ edb.corn195 FORSLAG TIL┆
0x0e0…100 20 4f 56 45 52 46 5c 52 53 45 4c 20 41 46 20 44 4d 4f 2d 20 26 20 44 4d 41 2d 52 45 47 49 53 54 ┆ OVERFØRSEL AF DMO- & DMA-REGIST┆
0x100…120 45 52 2e 0d 0a 0d 0a 41 6c 6c 65 20 44 4d 4f 27 65 72 20 74 72 7b 6b 6b 65 73 20 75 64 20 73 61 ┆ER. Alle DMO'er trækkes ud sa┆
0x120…140 6d 74 20 62 65 64 73 74 65 20 75 64 67 61 76 65 20 61 66 20 74 69 6c 68 7c 72 65 6e 64 65 20 44 ┆mt bedste udgave af tilhørende D┆
0x140…160 4d 41 2e 0d 0a 0d 0a 0d 0a 44 4d 4f 20 66 65 6c 74 6e 61 76 6e 20 20 20 20 69 6e 64 68 6f 6c 64 ┆MA. DMO feltnavn indhold┆
0x160…180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x180…1a0 42 49 42 20 66 65 6c 74 6e 72 2e 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆BIB feltnr. -------------------┆
0x1a0…1c0 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 ┆--------------------------------┆
0x1c0…1e0 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 0d 0a 0d 0a ┆---------------------------- ┆
0x1e0…200 44 4d 4f 4c 47 44 20 20 20 20 20 6c 7b 6e 67 64 65 66 65 6c 74 0d 0a 0d 0a 44 4d 4f 4d 4f 44 20 ┆DMOLGD længdefelt DMOMOD ┆
0x200…220 (1,) 20 20 20 20 6d 6f 64 75 6c 6e 75 6d 6d 65 72 3a 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d ┆ modulnummer: --------┆
0x220…240 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3a 20 30 30 31 20 30 30 20 61 20 6e 7c 67 6c 65 0d 0a ┆--------------: 001 00 a nøgle ┆
0x240…260 0d 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 6d 3a 20 41 41 41 5f 43 43 43 0d 0a 0d 0a 20 20 ┆ form: AAA_CCC ┆
0x260…280 20 20 20 20 20 20 20 20 20 a1 41 41 41 20 6b 61 6e 20 76 7b 72 65 3a 0d 0a 0d 0a 20 20 20 20 20 ┆ AAA kan være: ┆
0x280…2a0 20 20 20 20 20 20 44 41 54 2c 20 44 44 4d 2c 20 44 4f 4d 2c 20 44 4f 47 2c 0d 0a 20 20 20 20 20 ┆ DAT, DDM, DOM, DOG, ┆
0x2a0…2c0 20 20 20 20 20 20 44 4c 49 2c 20 53 44 4f 2c 20 53 4f 47 2c 20 53 50 41 2c 0d 0a 20 20 20 20 20 ┆ DLI, SDO, SOG, SPA, ┆
0x2c0…2e0 20 20 20 20 20 20 42 53 57 2c 20 58 52 46 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 a1 43 43 ┆ BSW, XRF CC┆
0x2e0…300 43 20 65 72 3a 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 65 74 20 6c 7c 62 65 6e 75 6d 6d 65 ┆C er: et løbenumme┆
0x300…320 72 2e 0d 0a 0d 0a 44 4d 4f 54 45 58 54 20 20 20 20 6e 61 76 6e 2f 74 69 74 65 6c 20 20 20 20 20 ┆r. DMOTEXT navn/titel ┆
0x320…340 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3a 20 32 34 35 ┆ ----------------------: 245┆
0x340…360 20 30 30 20 61 20 74 65 6b 73 74 20 31 0d 0a 0d 0a 44 4d 4f 50 4b 20 20 20 20 20 20 67 6c 2e 20 ┆ 00 a tekst 1 DMOPK gl. ┆
0x360…380 70 61 6b 6b 65 6b 6f 64 65 3a 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆pakkekode: ----------------┆
0x380…3a0 2d 2d 2d 2d 2d 2d 3a 20 33 30 31 20 30 30 20 61 20 70 61 6b 6b 65 6b 6f 64 65 0d 0a 0d 0a 20 20 ┆------: 301 00 a pakkekode ┆
0x3a0…3c0 20 20 20 20 20 20 20 20 20 a1 6b 6f 6e 76 65 72 74 65 72 69 6e 67 3a 0d 0a 0d 0a 20 20 20 20 20 ┆ konvertering: ┆
0x3c0…3e0 20 20 20 20 20 20 44 4d 4f 50 4b 20 20 74 69 6c 20 42 49 42 2e 70 61 6b 6b 65 6b 6f 64 65 0d 0a ┆ DMOPK til BIB.pakkekode ┆
0x3e0…400 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 30 20 20 20 20 2e 2e 2e 2e 20 20 20 30 0d 0a 20 20 20 ┆ 0 .... 0 ┆
0x400…420 (2,) 20 20 20 20 20 20 20 20 20 31 20 20 20 20 2e 2e 2e 2e 20 20 20 31 0d 0a 20 20 20 20 20 20 20 20 ┆ 1 .... 1 ┆
0x420…440 20 20 20 20 32 20 20 20 20 2e 2e 2e 2e 20 20 20 32 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 33 ┆ 2 .... 2 3┆
0x440…460 20 20 20 20 2e 2e 2e 2e 20 20 20 32 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 34 20 20 20 20 2e ┆ .... 2 4 .┆
0x460…480 2e 2e 2e 20 20 20 34 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 35 20 20 20 20 2e 2e 2e 2e 20 20 ┆... 4 5 .... ┆
0x480…4a0 20 35 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 36 20 20 20 20 2e 2e 2e 2e 20 20 20 36 0d 0a 20 ┆ 5 6 .... 6 ┆
0x4a0…4c0 20 20 20 20 20 20 20 20 20 20 20 37 20 20 20 20 2e 2e 2e 2e 20 20 20 37 0d 0a 20 20 20 20 20 20 ┆ 7 .... 7 ┆
0x4c0…4e0 20 20 20 20 20 20 38 20 20 20 20 2e 2e 2e 2e 20 20 20 32 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ 8 .... 2 ┆
0x4e0…500 20 39 20 20 20 20 2e 2e 2e 2e 20 20 20 39 0d 0a 20 20 20 20 20 20 20 20 20 20 20 31 30 20 20 20 ┆ 9 .... 9 10 ┆
0x500…520 20 2e 2e 2e 2e 20 20 31 30 0d 0a 0d 0a 44 4d 4f 52 42 49 42 20 20 20 20 62 69 62 6c 69 6f 74 65 ┆ .... 10 DMORBIB bibliote┆
0x520…540 6b 73 20 72 65 74 74 65 64 61 74 6f 0d 0a 0d 0a 44 4d 4f 42 49 42 20 20 20 20 20 69 6b 6b 65 20 ┆ks rettedato DMOBIB ikke ┆
0x540…560 69 20 62 72 75 67 0d 0a 0d 0a 44 4d 4f 52 44 41 54 4f 20 20 20 72 65 74 74 65 6c 73 65 73 20 64 ┆i brug DMORDATO rettelses d┆
0x560…580 61 74 6f 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3a ┆ato ----------------------:┆
0x580…5a0 20 31 33 30 20 30 30 20 63 20 72 65 74 74 65 6c 73 65 73 20 64 61 74 6f 0d 0a 0d 0a 44 4d 4f 49 ┆ 130 00 c rettelses dato DMOI┆
0x5a0…5c0 4e 49 54 20 20 20 20 69 6e 69 74 69 61 6c 65 72 0d 0a 0d 0a 44 4d 4f 53 54 41 52 54 20 20 20 6f ┆NIT initialer DMOSTART o┆
0x5c0…5e0 70 72 65 74 74 65 6c 73 65 73 64 61 74 6f 20 3f 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆prettelsesdato ? -------------┆
0x5e0…600 2d 2d 2d 2d 2d 2d 2d 2d 2d 3a 20 31 33 30 20 30 30 20 61 20 6f 70 72 65 74 2e 20 64 61 74 6f 0d ┆---------: 130 00 a opret. dato ┆
0x600…620 (3,) 0a 0d 0a 44 4d 4f 44 4f 4b 41 4f 4b 20 20 69 6b 6b 65 20 69 20 62 72 75 67 0d 0a 0d 0a 44 4d 4f ┆ DMODOKAOK ikke i brug DMO┆
0x620…640 4b 4f 53 54 20 20 20 20 69 6b 6b 65 20 69 20 62 72 75 67 0d 0a 0d 0a 44 4d 4f 50 52 49 53 20 20 ┆KOST ikke i brug DMOPRIS ┆
0x640…64f 20 20 69 6b 6b 65 20 69 20 62 72 75 67 0d 0a ┆ ikke i brug ┆
0x64f…652 FormFeed {
0x64f…652 0c 83 f0 ┆ ┆
0x64f…652 }
0x652…660 0a 0d 0a 0d 0a 44 4d 41 20 66 65 6c 74 6e ┆ DMA feltn┆
0x660…680 61 76 6e 20 20 20 20 69 6e 64 68 6f 6c 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆avn indhold ┆
0x680…6a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 49 42 20 66 65 6c 74 6e 72 2e 0d 0a 2d 2d 2d 2d 2d ┆ BIB feltnr. -----┆
0x6a0…6c0 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 ┆--------------------------------┆
[…0x1…]
0x6e0…700 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 48 4f 56 45 44 3a 0d 0a 3d 3d 3d 3d 3d 3d 0d 0a 0d 0a ┆---------- HOVED: ====== ┆
0x700…720 0d 0a 44 4d 41 4c 47 44 20 20 20 20 20 6c 7b 6e 67 64 65 66 65 6c 74 0d 0a 0d 0a 44 4d 4f 4d 4f ┆ DMALGD længdefelt DMOMO┆
0x720…740 44 20 20 20 20 20 6d 6f 64 75 6c 6e 75 6d 6d 65 72 3a 0d 0a 0d 0a 44 4d 41 55 44 47 20 20 20 20 ┆D modulnummer: DMAUDG ┆
0x740…760 20 75 64 67 61 76 65 20 6e 72 2e 20 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ udgave nr. -----------┆
0x760…780 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3a 20 33 30 32 20 30 30 20 61 20 62 65 64 73 74 65 20 75 64 67 ┆-----------: 302 00 a bedste udg┆
0x780…7a0 2e 6e 72 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 41 6e 76 65 6e 64 65 73 20 76 65 64 20 73 7c ┆.nr. Anvendes ved sø┆
0x7a0…7c0 67 6e 69 6e 67 0d 0a 20 20 20 20 20 20 20 20 20 20 20 61 66 20 62 65 64 73 74 65 20 75 64 67 61 ┆gning af bedste udga┆
0x7c0…7e0 76 65 20 6e 75 6d 6d 65 72 2e 0d 0a 0d 0a 44 4d 41 49 54 4e 52 20 20 20 20 69 74 65 6d 6e 72 20 ┆ve nummer. DMAITNR itemnr ┆
0x7e0…800 3d 20 6c 7c 62 65 6e 75 6d 6d 65 72 0d 0a 0d 0a 44 4d 41 44 41 54 4f 31 20 20 20 73 74 61 72 74 ┆= løbenummer DMADATO1 start┆
0x800…820 (4,) 20 64 61 74 6f 20 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ dato -----------------┆
0x820…840 2d 2d 2d 2d 2d 3a 20 3f 3f 3f 20 3f 3f 20 3f 20 3f 3f 3f 3f 3f 0d 0a 0d 0a 44 4d 41 44 41 54 4f ┆-----: ??? ?? ? ????? DMADATO┆
0x840…860 32 20 20 20 73 6c 75 74 20 64 61 74 6f 20 20 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d ┆2 slut dato --------┆
0x860…880 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3a 20 3f 3f 3f 20 3f 3f 20 3f 20 3f 3f 3f 3f 3f 0d 0a ┆--------------: ??? ?? ? ????? ┆
0x880…8a0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 48 56 49 53 20 3d 20 30 20 73 7d 20 62 65 64 73 74 65 20 ┆ HVIS = 0 så bedste ┆
0x8a0…8c0 75 64 67 61 76 65 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 65 6c 6c 65 72 73 20 73 7c 67 20 68 ┆udgave, ellers søg h┆
0x8c0…8e0 7c 6a 65 72 65 20 6e 75 6d 6d 65 72 20 21 0d 0a 0d 0a 44 4d 41 44 41 54 4f 33 20 20 20 72 65 74 ┆øjere nummer ! DMADATO3 ret┆
0x8e0…900 74 65 6c 73 65 73 20 64 61 74 6f 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆telses dato ---------------┆
0x900…920 2d 2d 2d 2d 2d 2d 2d 3a 20 3f 3f 3f 20 3f 3f 20 3f 20 3f 3f 3f 3f 3f 0d 0a 0d 0a 20 20 20 20 20 ┆-------: ??? ?? ? ????? ┆
0x920…940 20 20 20 20 20 20 65 76 74 2e 20 72 65 74 74 65 6c 73 65 2c 20 68 76 69 73 0d 0a 20 20 20 20 20 ┆ evt. rettelse, hvis ┆
0x940…960 20 20 20 20 20 20 69 6b 6b 65 20 6e 79 20 75 64 67 61 76 65 20 65 72 20 76 61 6c 67 74 2e 0d 0a ┆ ikke ny udgave er valgt. ┆
0x960…980 0d 0a 0d 0a 49 54 45 4d 3a 0d 0a 3d 3d 3d 3d 3d 0d 0a 0d 0a 0d 0a 44 4d 41 4c 47 44 20 20 20 20 ┆ ITEM: ===== DMALGD ┆
0x980…9a0 20 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 29 0d 0a 44 4d 4f 4d 4f 44 20 20 20 20 20 29 0d 0a ┆ ) ) DMOMOD ) ┆
0x9a0…9c0 20 20 20 20 20 20 20 20 20 20 20 29 20 20 73 65 20 44 4d 41 20 48 4f 56 45 44 20 21 0d 0a 44 4d ┆ ) se DMA HOVED ! DM┆
0x9c0…9e0 41 55 44 47 20 20 20 20 20 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 29 0d 0a 44 4d 41 49 54 4e ┆AUDG ) ) DMAITN┆
0x9e0…a00 52 20 20 20 20 29 0d 0a 0d 0a 0d 0a 44 4d 41 50 41 52 54 31 20 20 20 29 0d 0a 44 4d 41 50 41 52 ┆R ) DMAPART1 ) DMAPAR┆
0xa00…a20 (5,) 54 32 20 20 20 29 20 20 6e 7c 67 6c 65 20 74 69 6c 20 44 50 41 20 20 20 20 2d 2d 2d 2d 2d 2d 2d ┆T2 ) nøgle til DPA -------┆
0xa20…a40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3a 20 3f 3f 3f 20 3f 3f 20 3f 20 3f 3f 3f 3f 3f 0d ┆---------------: ??? ?? ? ????? ┆
0xa40…a60 0a 44 4d 41 50 41 52 54 33 20 20 20 29 0d 0a 0d 0a 44 4d 41 53 45 4b 54 20 20 20 20 44 50 41 27 ┆ DMAPART3 ) DMASEKT DPA'┆
0xa60…a80 65 6e 73 20 70 6c 61 63 65 72 69 6e 67 0d 0a 20 20 20 20 20 20 20 20 20 20 20 69 20 27 6d 61 6e ┆ens placering i 'man┆
0xa80…aa0 75 61 6c 65 6e 27 2e 0d 0a 0d 0a 44 4d 41 49 52 44 41 54 20 20 20 69 74 65 6d 20 72 65 74 74 65 ┆ualen'. DMAIRDAT item rette┆
0xaa0…ac0 64 61 74 6f 0d 0a 0d 0a 0d 0a 28 66 6f 72 74 73 7b 74 74 65 73 20 6e 7b 73 74 65 20 73 69 64 65 ┆dato (fortsættes næste side┆
0xac0…ac3 29 0d 0a ┆) ┆
0xac3…ac6 FormFeed {
0xac3…ac6 0c 83 c0 ┆ ┆
0xac3…ac6 }
0xac6…ae0 0a 0d 0a 0d 0a 0d 0a 55 44 54 52 5b 4b 53 20 52 45 43 4f 52 44 3a 0d 0a 3d 3d ┆ UDTRÆKS RECORD: ==┆
0xae0…b00 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 0a 0d 0a 0d 0a 44 4d 4f 5f 53 54 41 52 54 3a 0d 0a 0d ┆============= DMO_START: ┆
0xb00…b20 0a 20 20 20 20 20 6c 7b 73 20 65 6e 20 44 4d 4f 2d 72 65 63 2c 0d 0a 0d 0a 20 20 20 20 20 76 65 ┆ læs en DMO-rec, ve┆
0xb20…b40 64 20 73 6c 75 74 20 70 7d 20 66 69 6c 65 2c 20 73 7d 20 61 66 73 6c 75 74 20 70 72 6f 67 72 61 ┆d slut på file, så afslut progra┆
0xb40…b60 6d 20 21 0d 0a 0d 0a 20 20 20 20 20 67 65 6d 20 64 6d 6f 6d 6f 64 2c 0a 20 20 20 20 20 20 20 20 ┆m ! gem dmomod, ┆
0xb60…b80 20 64 6d 6f 74 65 78 74 2c 0d 0a 20 20 20 20 20 20 20 20 20 64 6d 6f 70 6b 2c 0d 0a 20 20 20 20 ┆ dmotext, dmopk, ┆
0xb80…ba0 20 20 20 20 20 64 6d 6f 72 64 61 74 6f 2c 0d 0a 20 20 20 20 20 20 20 20 20 64 6d 6f 73 74 61 72 ┆ dmordato, dmostar┆
0xba0…bc0 74 2e 0d 0a 0d 0a 44 4d 41 5f 53 54 41 52 54 5f 48 4f 56 45 44 3a 0d 0a 0d 0a 20 20 20 20 20 6c ┆t. DMA_START_HOVED: l┆
0xbc0…be0 7b 73 20 74 69 6c 68 7c 72 65 6e 64 65 20 44 4d 41 2d 48 4f 56 45 44 0d 0a 20 20 20 20 20 2a 20 ┆æs tilhørende DMA-HOVED * ┆
0xbe0…c00 68 76 61 64 20 69 6e 64 65 68 6f 6c 64 65 72 20 64 6d 61 69 74 6e 72 20 3f 20 20 61 6e 74 61 6c ┆hvad indeholder dmaitnr ? antal┆
0xc00…c20 (6,) 20 69 74 65 6d 73 20 65 6c 6c 65 72 20 6c 7c 62 65 6e 75 6d 6d 65 72 20 3f 20 0d 0a 20 20 20 20 ┆ items eller løbenummer ? ┆
0xc20…c40 20 2a 20 66 6f 72 20 64 6d 61 2d 68 6f 76 65 64 20 65 6c 6c 65 72 20 64 6d 61 2d 69 74 65 6d 20 ┆ * for dma-hoved eller dma-item ┆
0xc40…c60 3f 0d 0a 0d 0a 20 20 20 20 20 68 76 69 73 20 64 6d 61 64 61 74 6f 32 20 65 72 20 6c 69 67 20 6d ┆? hvis dmadato2 er lig m┆
0xc60…c80 65 64 20 30 20 28 6e 75 6c 29 2c 0d 0a 20 20 20 20 20 73 7d 20 65 72 20 64 65 74 20 62 65 64 73 ┆ed 0 (nul), så er det beds┆
0xc80…ca0 74 65 20 75 64 67 61 76 65 3b 0d 0a 0d 0a 20 20 20 20 20 65 6c 6c 65 72 73 20 66 69 6e 64 20 62 ┆te udgave; ellers find b┆
0xca0…cc0 65 64 73 74 65 20 75 64 67 61 76 65 20 28 64 6d 61 75 64 67 20 3d 20 64 6d 61 75 64 67 20 2b 20 ┆edste udgave (dmaudg = dmaudg + ┆
0xcc0…ce0 31 29 0d 0a 0d 0a 20 20 20 20 20 67 65 6d 20 64 6d 61 75 64 67 2c 0d 0a 20 20 20 20 20 20 20 20 ┆1) gem dmaudg, ┆
0xce0…d00 20 64 6d 61 64 61 74 6f 31 20 28 73 74 61 72 74 29 20 3f 2c 0d 0a 20 20 20 20 20 20 20 20 20 64 ┆ dmadato1 (start) ?, d┆
0xd00…d20 6d 61 64 61 74 6f 33 20 28 72 65 74 74 2e 29 20 3f 3b 0d 0a 0d 0a 44 4d 41 5f 53 54 41 52 54 5f ┆madato3 (rett.) ?; DMA_START_┆
0xd20…d40 49 54 45 4d 3a 0d 0a 0d 0a 20 20 20 20 20 6c 7b 73 20 74 69 6c 68 7c 72 65 6e 64 65 20 44 4d 41 ┆ITEM: læs tilhørende DMA┆
0xd40…d60 2d 49 54 45 4d 0d 0a 0d 0a 20 20 20 20 20 68 76 69 73 20 64 6d 6f 6d 6f 64 20 65 72 20 66 6f 72 ┆-ITEM hvis dmomod er for┆
0xd60…d80 73 6b 65 6c 6c 69 67 20 66 72 61 20 64 6d 61 6d 6f 64 2c 0d 0a 20 20 20 20 20 73 7d 20 73 6b 72 ┆skellig fra dmamod, så skr┆
0xd80…da0 69 76 20 6f 75 74 70 75 74 20 72 65 63 6f 72 64 0d 0a 20 20 20 20 20 6f 67 20 67 7d 20 74 69 6c ┆iv output record og gå til┆
0xda0…dc0 20 44 4d 4f 5f 53 54 41 52 54 3b 0d 0a 0d 0a 20 20 20 20 20 67 65 6d 20 64 6d 61 70 61 72 74 31 ┆ DMO_START; gem dmapart1┆
0xdc0…de0 2c 0d 0a 20 20 20 20 20 20 20 20 20 64 6d 61 70 61 72 74 32 2c 0d 0a 20 20 20 20 20 20 20 20 20 ┆, dmapart2, ┆
0xde0…e00 64 6d 61 70 61 72 74 33 20 28 31 2c 32 2c 33 20 65 72 20 44 50 41 27 73 20 70 61 72 74 6e 75 6d ┆dmapart3 (1,2,3 er DPA's partnum┆
0xe00…e20 (7,) 6d 65 72 29 2c 0d 0a 20 20 20 20 20 20 20 20 20 64 6d 61 73 65 6b 74 3b 0d 0a 0d 0a 20 20 20 20 ┆mer), dmasekt; ┆
0xe20…e40 20 67 7d 20 64 6d 61 5f 73 74 61 72 74 5f 69 74 65 6d 2e 0d 0a 0d 0a 0d 0a 49 20 68 76 69 6c 6b ┆ gå dma_start_item. I hvilk┆
0xe40…e60 65 74 20 66 65 6c 74 20 69 20 42 49 42 20 73 6b 61 6c 20 44 50 41 27 20 70 61 72 74 6e 75 6d 72 ┆et felt i BIB skal DPA' partnumr┆
0xe60…e80 65 20 66 6c 79 74 74 65 73 20 6f 76 65 72 20 69 20 3f 0d 0a 0d 0a 1a 1a 20 20 20 20 20 20 20 20 ┆e flyttes over i ? ┆
B▶01◀▶01◀N▶04◀-N
▶06◀▶02◀▶01◀P1▶05◀▶0f◀▶19◀#-7AKU_iså▶87◀▶91◀▶ff◀▶04◀corn 86.02.26 edb.corn195
▶a1◀▶b0◀FORSLAG TIL OVERFØRSEL AF DMO- & DMA-REGISTER.
Alle DMO'er trækkes ud samt bedste udgave af tilhørende DMA.
DMO feltnavn indhold BIB feltnr.
-------------------------------------------------------------------------------
DMOLGD længdefelt
DMOMOD modulnummer: ----------------------: 001 00 a nøgle
form: AAA_CCC
▶a1◀AAA kan være:
DAT, DDM, DOM, DOG,
DLI, SDO, SOG, SPA,
BSW, XRF
▶a1◀CCC er:
et løbenummer.
DMOTEXT navn/titel ----------------------: 245 00 a tekst 1
DMOPK gl. pakkekode: ----------------------: 301 00 a pakkekode
▶a1◀konvertering:
DMOPK til BIB.pakkekode
0 .... 0
1 .... 1
2 .... 2
3 .... 2
4 .... 4
5 .... 5
6 .... 6
7 .... 7
8 .... 2
9 .... 9
10 .... 10
DMORBIB biblioteks rettedato
DMOBIB ikke i brug
DMORDATO rettelses dato ----------------------: 130 00 c rettelses dato
DMOINIT initialer
DMOSTART oprettelsesdato ? ----------------------: 130 00 a opret. dato
DMODOKAOK ikke i brug
DMOKOST ikke i brug
DMOPRIS ikke i brug
\f
▶83◀▶f0◀
DMA feltnavn indhold BIB feltnr.
-------------------------------------------------------------------------------
HOVED:
======
DMALGD længdefelt
DMOMOD modulnummer:
DMAUDG udgave nr. ----------------------: 302 00 a bedste udg.nr.
Anvendes ved søgning
af bedste udgave nummer.
DMAITNR itemnr = løbenummer
DMADATO1 start dato ----------------------: ??? ?? ? ?????
DMADATO2 slut dato ----------------------: ??? ?? ? ?????
HVIS = 0 så bedste udgave,
ellers søg højere nummer !
DMADATO3 rettelses dato ----------------------: ??? ?? ? ?????
evt. rettelse, hvis
ikke ny udgave er valgt.
ITEM:
=====
DMALGD )
)
DMOMOD )
) se DMA HOVED !
DMAUDG )
)
DMAITNR )
DMAPART1 )
DMAPART2 ) nøgle til DPA ----------------------: ??? ?? ? ?????
DMAPART3 )
DMASEKT DPA'ens placering
i 'manualen'.
DMAIRDAT item rettedato
(fortsættes næste side)
\f
▶83◀▶c0◀
UDTRÆKS RECORD:
===============
DMO_START:
læs en DMO-rec,
ved slut på file, så afslut program !
gem dmomod,
dmotext,
dmopk,
dmordato,
dmostart.
DMA_START_HOVED:
læs tilhørende DMA-HOVED
* hvad indeholder dmaitnr ? antal items eller løbenummer ?
* for dma-hoved eller dma-item ?
hvis dmadato2 er lig med 0 (nul),
så er det bedste udgave;
ellers find bedste udgave (dmaudg = dmaudg + 1)
gem dmaudg,
dmadato1 (start) ?,
dmadato3 (rett.) ?;
DMA_START_ITEM:
læs tilhørende DMA-ITEM
hvis dmomod er forskellig fra dmamod,
så skriv output record
og gå til DMO_START;
gem dmapart1,
dmapart2,
dmapart3 (1,2,3 er DPA's partnummer),
dmasekt;
gå dma_start_item.
I hvilket felt i BIB skal DPA' partnumre flyttes over i ?
«eof»