|
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: 1366 (0x556)
Notes: pts_type(SC)
Names: »GENDAT.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/GENDAT.SC«
IDENT GENDAT MOVE GTREGF(CBIN1),=D'830304' BASIS SYSTEM MOVE GTREGF(CBIN2),=D'821105' 3270 MOVE GTREGF(CBIN3),=D'821012' REMIT MOVE GTREGF(CBIN4),=D'810106' BUDGET *************** BASIS SYSTEM ONLY *************** MOVE GTREGF(CBIN1),=D'820601' BASIS SYSTEM MOVE GTREGF(CBIN2),=D'0' MOVE GTREGF(CBIN3),=D'0' MOVE GTREGF(CBIN4),=D'0' *************** *************** *************** *************** *************** *************** END
0x000…016 (0, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IDENT GENDAT «, t00=0x0000, t01=0x0004}
0x016…04a Head {h00=0x0030, h01=0x0050, text=» MOVE GTREGF(CBIN1),=D'830304' BASIS SYSTEM «, t00=0x0000, t01=0x001a}
0x04a…076 Head {h00=0x0028, h01=0x0050, text=» MOVE GTREGF(CBIN2),=D'821105' 3270 «, t00=0x0000, t01=0x004e}
0x076…0a2 Head {h00=0x0028, h01=0x0050, text=» MOVE GTREGF(CBIN3),=D'821012' REMIT«, t00=0x0000, t01=0x007a}
0x0a2…0d0 Head {h00=0x002a, h01=0x0025, text=» MOVE GTREGF(CBIN4),=D'810106' BUDGET «, t00=0x0000, t01=0x00a6}
0x0d0…10a Head {h00=0x0036, h01=0x0050, text=»*************** BASIS SYSTEM ONLY *************** «, t00=0x0000, t01=0x00d4}
0x10a…13e Head {h00=0x0030, h01=0x0050, text=» MOVE GTREGF(CBIN1),=D'820601' BASIS SYSTEM «, t00=0x0000, t01=0x010e}
0x13e…160 Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGF(CBIN2),=D'0' «, t00=0x0000, t01=0x0142}
0x160…182 Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGF(CBIN3),=D'0' «, t00=0x0000, t01=0x0164}
0x182…1a4 Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGF(CBIN4),=D'0' «, t00=0x0000, t01=0x0186}
0x1a4…1cc Head {h00=0x0024, h01=0x001f, text=»*************** *************** «, t00=0x0001, t01=0x0018}
0x1cc…1f4 Head {h00=0x0024, h01=0x001f, text=»*************** *************** «, t00=0x0001, t01=0x0040}
0x1f4…21c Head {h00=0x0024, h01=0x001f, text=»*************** *************** «, t00=0x0001, t01=0x0068}
0x21c…228 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0001, t01=0x0090}
0x228…22c Head {h00=0x4004, h01=0x0000}
0x22c…230 00 01 00 9c ┆ ┆
0x230…238 (2, 1, 8) 20 04 00 00 00 02 00 04 ┆ ┆
0x238…288 (3, 0, 400) 28 43 42 49 4e 39 29 2c 54 54 41 52 4b 53 41 56 00 02 01 84 00 0a 00 50 53 4c 55 54 33 30 00 03 00 18 00 1a 00 50 2a 20 49 4e 53 45 54 20 52 45 47 4e 53 4b 41 42 53 5d 52 20 49 46 00 03 00 26 00 2e 00 50 2a 20 54 52 41 4e 53 54 59 50 45 53 ┆(CBIN9),TTARKSAV PSLUT30 P* INSET REGNSKABS]R IF & . P* TRANSTYPES┆
0x288…2d8 20 20 31 2c 32 2c 35 2c 36 2c 37 2c 38 2c 39 2c 31 30 2c 31 38 2c 31 39 2c 32 38 2c 32 39 00 03 00 44 00 2e 00 50 2a 20 49 4e 44 45 58 20 20 20 20 20 20 20 31 2c 32 2c 35 2c 36 2c 37 2c 38 2c 39 2c 31 30 2c 31 32 2c 31 33 2c 31 34 2c 31 35 ┆ 1,2,5,6,7,8,9,10,18,19,28,29 D . P* INDEX 1,2,5,6,7,8,9,10,12,13,14,15┆
0x2d8…328 00 03 00 76 00 28 00 50 20 43 42 47 20 47 54 52 45 47 44 45 58 2c 43 42 49 4e 31 35 2c 53 4c 55 54 35 30 20 3e 20 54 52 20 32 39 20 00 03 00 a8 00 28 00 50 20 43 42 45 20 47 54 52 45 47 44 45 58 2c 43 42 49 4e 31 31 2c 53 4c 55 54 35 30 20 ┆ v ( P CBG GTREGDEX,CBIN15,SLUT50 > TR 29 ( P CBE GTREGDEX,CBIN11,SLUT50 ┆
0x328…378 3d 20 54 52 20 31 32 20 00 03 00 d4 00 24 00 50 20 43 42 45 20 47 54 52 45 47 44 45 58 2c 43 42 49 4e 33 2c 53 4c 55 54 35 30 20 3d 20 54 52 33 00 03 01 00 00 26 00 50 20 43 42 45 20 47 54 52 45 47 44 45 58 2c 43 42 49 4e 34 2c 53 4c 55 54 ┆= TR 12 $ P CBE GTREGDEX,CBIN3,SLUT50 = TR3 & P CBE GTREGDEX,CBIN4,SLUT┆
0x378…3c8 35 30 20 3d 20 54 52 20 34 20 00 03 01 28 00 1a 00 50 2a 20 54 59 50 45 53 20 31 2c 32 2c 35 2d 31 30 2c 31 38 2c 32 39 00 03 01 52 00 28 00 50 5c 4d 4f 56 45 5c 47 54 44 55 50 46 28 43 42 49 4e 36 29 2c 47 54 44 41 54 4f 5c 47 45 54 20 44 ┆50 = TR 4 ( P* TYPES 1,2,5-10,18,29 R ( P MOVE GTDUPF(CBIN6),GTDATO GET D┆
0x3c8…418 (4, 0, 398) 41 54 45 20 00 03 01 70 00 3a 00 50 20 43 42 45 20 47 54 52 45 47 44 45 58 2c 43 42 49 4e 31 30 2c 53 4c 55 54 35 30 20 54 52 41 4e 53 31 30 2c 20 41 4c 57 41 59 53 20 53 55 50 4c 20 59 45 41 52 20 00 04 00 0c 00 18 00 50 20 54 42 54 20 54 ┆ATE p : P CBE GTREGDEX,CBIN10,SLUT50 TRANS10, ALWAYS SUPL YEAR P TBT T┆
0x418…468 54 53 55 50 46 4c 47 2c 53 4c 55 54 33 35 00 04 00 4a 00 18 00 50 20 4d 4f 56 45 20 54 54 53 55 50 4d 52 4b 2c 3d 27 20 27 20 00 04 00 66 00 0e 00 50 20 42 20 53 4c 55 54 34 30 20 00 04 00 82 00 0a 00 50 53 4c 55 54 33 35 00 04 00 94 00 1e ┆TSUPFLG,SLUT35 J P MOVE TTSUPMRK,=' ' f P B SLUT40 PSLUT35 ┆
0x468…4b8 00 50 20 43 42 45 20 54 54 53 55 50 4d 52 4b 2c 3d 43 27 4e 27 2c 53 4c 55 54 33 36 00 04 00 a2 00 1e 00 50 20 43 42 45 20 54 54 53 55 50 4d 52 4b 2c 3d 43 27 47 27 2c 53 4c 55 54 33 37 00 04 00 c4 00 0e 00 50 20 42 20 53 4c 55 54 34 30 20 ┆ P CBE TTSUPMRK,=C'N',SLUT36 P CBE TTSUPMRK,=C'G',SLUT37 P B SLUT40 ┆
0x4b8…508 00 04 00 e6 00 0a 00 50 53 4c 55 54 33 36 00 04 00 f8 00 2a 00 50 20 41 44 44 20 47 54 44 55 50 46 28 43 42 49 4e 36 29 2c 3d 44 27 31 27 20 46 4f 52 53 55 50 50 4c 45 4d 45 4e 54 00 04 01 06 00 0e 00 50 20 42 20 53 4c 55 54 34 30 20 00 04 ┆ PSLUT36 * P ADD GTDUPF(CBIN6),=D'1' FORSUPPLEMENT P B SLUT40 ┆
0x508…556 01 34 00 0a 00 50 53 4c 55 54 33 37 00 04 01 46 00 2c 00 50 5c 53 55 42 5c 47 54 44 55 50 46 28 43 42 49 4e 36 29 2c 3d 44 27 31 27 5c 53 55 42 20 31 20 46 52 4f 4d 20 59 45 41 52 00 04 01 54 00 0a 00 50 53 4c 55 54 34 30 00 04 01 84 ┆ 4 PSLUT37 F , P SUB GTDUPF(CBIN6),=D'1' SUB 1 FROM YEAR T PSLUT40 ┆