|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1232 (0x4d0)
Notes: pts_type(SC)
Names: »KTOPRD.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/KTOPRD.SC«
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
└─⟦this⟧ »NJREMIT/KTOPRD.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/KTOPRD.SC«
IDENT KTOPRD 03.01.XXX.1 DDUM KMD08 PDIV ******************** * * DUMMY MODULE FOR KONTOPLAN * ******************** * ENTRY KTOPR ENTRY KTPRT EXT ADMRET INCLUDE EQUATE KTOPR B ADMRET KTPRT PROC RET PEND * * * END
0x000…022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT KTOPRD 03.01.XXX.1«, t00=0x0000, t01=0x0004}
0x022…036 Head {h00=0x0010, h01=0x000b, text=» DDUM KMD08 «, t00=0x0000, t01=0x0026}
0x036…044 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x003a}
0x044…060 Head {h00=0x0018, h01=0x0014, text=»********************«, t00=0x0000, t01=0x0048}
0x060…06a Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0000, t01=0x0064}
0x06a…098 Head {h00=0x002a, h01=0x0025, text=»* DUMMY MODULE FOR KONTOPLAN «, t00=0x0000, t01=0x006e}
0x098…0a2 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0000, t01=0x009c}
0x0a2…0be Head {h00=0x0018, h01=0x0014, text=»********************«, t00=0x0000, t01=0x00a6}
0x0be…0c8 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0000, t01=0x00c2}
0x0c8…0dc Head {h00=0x0010, h01=0x000c, text=» ENTRY KTOPR«, t00=0x0000, t01=0x00cc}
0x0dc…0f0 Head {h00=0x0010, h01=0x0050, text=» ENTRY KTPRT«, t00=0x0000, t01=0x00e0}
0x0f0…104 Head {h00=0x0010, h01=0x0050, text=» EXT ADMRET «, t00=0x0000, t01=0x00f4}
0x104…11c Head {h00=0x0014, h01=0x000f, text=» INCLUDE EQUATE «, t00=0x0000, t01=0x0108}
0x11c…124 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0120}
0x124…132 Head {h00=0x000a, h01=0x0050, text=»KTOPR «, t00=0x0000, t01=0x0128}
0x132…144 Head {h00=0x000e, h01=0x0050, text=» B ADMRET «, t00=0x0000, t01=0x0136}
0x144…14c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0148}
0x14c…15e Head {h00=0x000e, h01=0x0050, text=»KTPRT PROC«, t00=0x0000, t01=0x0150}
0x15e…16a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0000, t01=0x0162}
0x16a…178 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0000, t01=0x016e}
0x178…182 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x017c}
0x182…18c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0186}
0x18c…196 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0190}
0x196…1a2 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0001, t01=0x000a}
0x1a2…1a6 Head {h00=0x4004, h01=0x0000}
0x1a6…1aa 00 01 00 16 ┆ ┆
0x1aa…1b2 (2, 1, 8) 20 04 00 00 00 02 00 04 ┆ ┆
0x1b2…202 (3, 0, 398) 58 20 3d 20 31 32 31 2b 28 54 54 41 53 4b 4e 52 2a 32 34 29 2b 37 2b 28 4e 52 2a 33 29 2b 41 52 54 20 00 1a 01 7a 00 3a 00 36 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 28 28 54 54 41 53 4b 4e 52 2a 38 29 ┆X = 121+(TTASKNR*24)+7+(NR*3)+ART z : 6* = ((TTASKNR*8)┆
0x202…252 2b 4e 52 29 2a 33 2b 41 52 54 2b 31 32 31 2b 37 00 1b 00 2a 00 06 00 01 2a 20 00 1b 00 68 00 1c 00 50 2a 20 20 20 20 20 54 59 50 45 20 3d 20 34 20 20 45 43 48 20 4c 42 4e 52 00 1b 00 72 00 26 00 50 2a 20 20 20 20 20 20 20 20 20 20 52 45 43 ┆+NR)*3+ART+121+7 * * h P* TYPE = 4 ECH LBNR r & P* REC┆
0x252…2a2 4f 52 44 20 49 4e 44 45 58 3d 20 31 34 30 20 2b 20 41 52 54 00 1b 00 92 00 06 00 50 2a 20 00 1b 00 bc 00 06 00 01 2a 20 00 1b 00 c6 00 28 00 23 2a 20 20 20 20 20 4f 55 54 50 55 54 20 56 41 4c 55 45 20 3d 20 56 41 4c 55 45 20 28 42 43 44 20 ┆ORD INDEX= 140 + ART P* * ( #* OUTPUT VALUE = VALUE (BCD ┆
0x2a2…2f2 31 34 29 20 00 1b 00 d0 00 06 00 01 2a 20 00 1b 00 fc 00 0e 00 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 1b 01 06 00 06 00 01 2a 20 00 1b 01 18 00 20 00 1d 2a 20 20 20 20 20 54 48 49 53 20 50 52 4f 43 45 44 55 52 45 20 43 48 41 4e 47 45 53 00 1b ┆14) * ********** * * THIS PROCEDURE CHANGES ┆
0x2f2…340 01 22 00 16 00 12 2a 20 20 20 20 20 20 20 20 20 20 47 53 57 42 49 4e 31 00 1b 01 46 00 16 00 12 2a 20 20 20 20 20 20 20 20 20 20 47 53 57 42 49 4e 38 00 1b 01 60 00 06 00 01 2a 20 00 1b 01 7a 00 0e 00 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ " * GSWBIN1 F * GSWBIN8 ` * z **********┆
0x340…390 (4, 0, 400) 00 1b 01 84 00 06 00 01 2a 20 00 1c 00 08 00 16 00 12 20 4d 4f 56 45 20 47 53 57 42 49 4e 38 2c 54 59 50 45 00 1c 00 12 00 24 00 1f 20 4d 4f 56 45 20 56 41 4c 55 45 2c 3d 44 27 30 27 20 49 4e 49 54 49 41 4c 20 56 41 4c 55 45 20 00 1c 00 2c ┆ * MOVE GSWBIN8,TYPE $ MOVE VALUE,=D'0' INITIAL VALUE ,┆
0x390…3e0 00 2c 00 50 20 49 42 20 47 53 57 42 49 4e 38 2c 4b 46 52 31 30 30 2c 4b 46 52 32 30 30 2c 4b 46 52 33 30 30 2c 4b 46 52 34 30 30 20 00 1c 00 54 00 0e 00 09 20 42 20 4b 46 52 52 45 54 20 00 1c 00 84 00 06 00 01 2a 20 00 1c 00 96 00 10 00 0c ┆ , P IB GSWBIN8,KFR100,KFR200,KFR300,KFR400 T B KFRRET * ┆
0x3e0…430 2a 20 20 20 20 20 45 4a 2d 45 44 42 00 1c 00 a0 00 0a 00 06 4b 46 52 31 30 30 00 1c 00 b4 00 14 00 10 20 4d 4f 56 45 20 47 53 57 42 49 4e 38 2c 4e 52 00 1c 00 c2 00 16 00 12 20 4d 55 4c 20 47 53 57 42 49 4e 38 2c 43 42 49 4e 32 00 1c 00 da ┆* EJ-EDB KFR100 MOVE GSWBIN8,NR MUL GSWBIN8,CBIN2 ┆
0x430…480 00 16 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 41 52 54 20 00 1c 00 f4 00 18 00 50 20 41 44 44 20 47 53 57 42 49 4e 38 2c 47 53 57 42 49 4e 31 00 1c 01 0e 00 2c 00 27 20 53 55 42 20 47 53 57 42 49 4e 38 2c 43 42 49 4e 32 20 47 53 57 ┆ P MOVE GSWBIN1,ART P ADD GSWBIN8,GSWBIN1 , ' SUB GSWBIN8,CBIN2 GSW┆
0x480…4d0 42 49 4e 38 3d 52 45 43 4f 52 44 20 49 4e 44 45 58 20 00 1c 01 2a 00 0e 00 09 20 42 20 4b 46 52 35 30 30 20 00 1c 01 5a 00 06 00 01 2a 20 00 1c 01 6c 00 14 00 10 2a 20 20 20 20 20 50 45 4e 47 45 4b 4f 4e 54 49 00 1c 01 76 00 0a 00 06 4b 46 ┆BIN8=RECORD INDEX * B KFR500 Z * l * PENGEKONTI v KF┆