|
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: 1308 (0x51c)
Notes: pts_type(SC)
Names: »FORMIO.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »HJFORMAT/FORMIO.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »FORMAT/FORMIO.SC«
IDENT FORMIO DDUM DEMODD PDIV ENTRY ZKOPNF ENTRY ZLCLSF ZKOPNF PROC ZK000 MOVE FCPARAM1,=X'00' FILL PAR BLOCK WITH ZEROES MOVE WW1,=W'16' POINTER MOVE WWINDEX1,=W'8' LENGTH MOVE WC1STRG8,='FORMFILE' FILE NAME XCOPY FCPARAM1,WW1,WWINDEX1,WC1STRG8,KW0 MOVE WW1,=W'26' MOVE WCSTRG6,='DSC001' DSNAME XCOPY FCPARAM1,WW1,KW3,WCSTRG6,KW0 MOVE WW1,=W'29' POINTER XCOPY FCPARAM1,WW1,KW3,VCVOLNR2,KW0 MOVE WW1,=W'66' OPEN DSFMTFLE,7,1,FCPARAM1,WW1 COMMIT NWXSTAT ZK999 RET PEND * * * ZLCLSF PROC ZL000 CLOSE DSFMTFLE XSTAT DSFMTFLE,NWXSTAT ZL999 RET PEND * * INCLUDE FMTPIC,LIST * END
0x000…016 (0, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IDENT FORMIO «, t00=0x0000, t01=0x0004}
0x016…02a Head {h00=0x0010, h01=0x000c, text=» DDUM DEMODD«, t00=0x0000, t01=0x001a}
0x02a…038 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x002e}
0x038…04e Head {h00=0x0012, h01=0x000d, text=» ENTRY ZKOPNF «, t00=0x0000, t01=0x003c}
0x04e…064 Head {h00=0x0012, h01=0x000d, text=» ENTRY ZLCLSF «, t00=0x0000, t01=0x0052}
0x064…078 Head {h00=0x0010, h01=0x0050, text=»ZKOPNF PROC «, t00=0x0000, t01=0x0068}
0x078…086 Head {h00=0x000a, h01=0x0050, text=»ZK000 «, t00=0x0000, t01=0x007c}
0x086…0be Head {h00=0x0034, h01=0x0050, text=» MOVE FCPARAM1,=X'00' FILL PAR BLOCK WITH ZEROES«, t00=0x0000, t01=0x008a}
0x0be…0de Head {h00=0x001c, h01=0x0050, text=» MOVE WW1,=W'16' POINTER«, t00=0x0000, t01=0x00c2}
0x0de…102 Head {h00=0x0020, h01=0x0050, text=» MOVE WWINDEX1,=W'8' LENGTH «, t00=0x0000, t01=0x00e2}
0x102…12e Head {h00=0x0028, h01=0x0050, text=» MOVE WC1STRG8,='FORMFILE' FILE NAME«, t00=0x0000, t01=0x0106}
0x12e…160 Head {h00=0x002e, h01=0x0050, text=» XCOPY FCPARAM1,WW1,WWINDEX1,WC1STRG8,KW0 «, t00=0x0000, t01=0x0132}
0x160…178 Head {h00=0x0014, h01=0x0050, text=» MOVE WW1,=W'26'«, t00=0x0000, t01=0x0164}
0x178…19e Head {h00=0x0022, h01=0x0050, text=» MOVE WCSTRG6,='DSC001' DSNAME«, t00=0x0000, t01=0x017c}
0x19e…1ca Head {h00=0x0028, h01=0x0050, text=» XCOPY FCPARAM1,WW1,KW3,WCSTRG6,KW0 «, t00=0x0001, t01=0x0012}
0x1ca…1ea Head {h00=0x001c, h01=0x0050, text=» MOVE WW1,=W'29' POINTER«, t00=0x0001, t01=0x003e}
0x1ea…216 Head {h00=0x0028, h01=0x0050, text=» XCOPY FCPARAM1,WW1,KW3,VCVOLNR2,KW0«, t00=0x0001, t01=0x005e}
0x216…22e Head {h00=0x0014, h01=0x0050, text=» MOVE WW1,=W'66'«, t00=0x0001, t01=0x008a}
0x22e…256 Head {h00=0x0024, h01=0x0050, text=» OPEN DSFMTFLE,7,1,FCPARAM1,WW1 «, t00=0x0001, t01=0x00a2}
0x256…26e Head {h00=0x0014, h01=0x0050, text=» COMMIT NWXSTAT «, t00=0x0001, t01=0x00ca}
0x26e…27c Head {h00=0x000a, h01=0x0050, text=»ZK999 «, t00=0x0001, t01=0x00e2}
0x27c…288 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0001, t01=0x00f0}
0x288…296 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0001, t01=0x00fc}
0x296…2a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010a}
0x2a0…2aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0114}
0x2aa…2b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011e}
0x2b4…2c8 Head {h00=0x0010, h01=0x0050, text=»ZLCLSF PROC «, t00=0x0001, t01=0x0128}
0x2c8…2d6 Head {h00=0x000a, h01=0x0050, text=»ZL000 «, t00=0x0001, t01=0x013c}
0x2d6…2ee Head {h00=0x0014, h01=0x0050, text=» CLOSE DSFMTFLE «, t00=0x0001, t01=0x014a}
0x2ee…30e Head {h00=0x001c, h01=0x0050, text=» XSTAT DSFMTFLE,NWXSTAT «, t00=0x0001, t01=0x0162}
0x30e…31c Head {h00=0x000a, h01=0x0050, text=»ZL999 «, t00=0x0001, t01=0x0182}
0x31c…328 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0001, t01=0x0190}
0x328…336 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0002, t01=0x000c}
0x336…340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001a}
0x340…34a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0024}
0x34a…366 Head {h00=0x0018, h01=0x0050, text=» INCLUDE FMTPIC,LIST«, t00=0x0002, t01=0x002e}
0x366…370 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x004a}
0x370…37c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0002, t01=0x0054}
0x37c…380 Head {h00=0x4004, h01=0x0000}
0x380…384 00 02 00 60 ┆ `┆
0x384…38c (3, 1, 8) 20 04 00 00 00 03 00 04 ┆ ┆
0x38c…3dc (4, 0, 400) 5a 5a 5a 5a 39 2c 39 39 00 33 01 84 00 0c 00 07 00 03 22 05 00 84 98 8b 00 34 00 10 00 10 00 0c 00 05 26 0a c3 06 20 4c 49 4e 45 3a 00 34 00 20 00 0e 00 0a 00 04 26 08 f2 22 10 80 82 c0 00 34 00 34 00 0e 00 0a 00 04 1a 08 00 85 10 02 39 39 ┆ZZZZ9,99 3 " 4 & LINE: 4 & " 4 4 99┆
0x3dc…42c 00 34 00 46 00 0c 00 07 00 03 22 05 00 85 9b 80 00 34 00 58 00 0a 00 06 00 02 26 04 d8 16 00 34 00 68 00 18 00 13 00 09 26 11 c3 0d 43 52 45 44 49 54 20 4c 49 4d 49 54 3a 20 00 34 00 76 00 0e 00 09 00 04 26 07 f0 18 80 8b c0 44 00 34 00 92 ┆ 4 F " 4 X & 4 h & CREDIT LIMIT: 4 v & D 4 ┆
0x42c…47c 00 1a 00 15 00 0a 1a 13 00 86 10 0d 5a 5a 5a 5a 5a 5a 5a 5a 39 2c 39 39 2d 43 00 34 00 a4 00 0c 00 07 00 03 22 05 00 86 98 8b 00 34 00 c2 00 0a 00 05 00 02 26 03 e1 86 00 34 00 d2 00 18 00 13 00 09 26 11 c3 0d 42 41 4c 41 4e 43 45 20 20 20 ┆ ZZZZZZZZ9,99-C 4 " 4 & 4 & BALANCE ┆
0x47c…4cc 20 20 3a 20 00 34 00 e0 00 0e 00 0a 00 04 26 08 f2 18 1e 80 8b c0 00 34 00 fc 00 1a 00 15 00 0a 1a 13 00 87 10 0d 5a 5a 5a 5a 5a 5a 5a 5a 39 2c 39 39 2d 43 00 34 01 0e 00 0c 00 07 00 03 22 05 00 87 b8 80 00 34 01 2c 00 0a 00 05 00 02 26 03 ┆ : 4 & 4 ZZZZZZZZ9,99-C 4 " 4 , & ┆
0x4cc…51c e1 87 00 34 01 3c 00 18 00 13 00 09 26 11 c3 0d 53 54 41 54 55 53 20 20 20 20 20 20 3a 20 00 34 01 4a 00 0e 00 0a 00 04 26 08 f2 23 03 80 81 c0 00 34 01 66 00 0e 00 09 00 04 1a 07 00 88 10 01 39 c0 00 34 01 78 00 0c 00 07 00 03 22 05 00 88 ┆ 4 < & STATUS : 4 J & # 4 f 9 4 x " ┆