|
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