|
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: 1552 (0x610)
Notes: pts_type(SC)
Names: »ZFMTIO.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/ZFMTIO.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/ZFMTIO.SC«
IDENT ZFMTIO FORMAT I/O CONTROL
DDUM DEMODD
PDIV
EXPROC XAKBIN
ENTRY ZKOPNF
ENTRY ZLCLSF
ZKOPNF PROC
ZK000
MOVE FCPARAM1,=X'0'
MOVE WW1,=W'16'
MOVE WW2,=W'8'
MOVE WC1STRG8,='FORMFILE'
XCOPY FCPARAM1,WW1,WW2,WC1STRG8,KW0 SET DSNAME
MOVE WW1,=W'26'
MOVE WCSTRG6,='DSC001'
XCOPY FCPARAM1,WW1,KW6,WCSTRG6,KW0 SET VOLNMAE
MOVE WW1,=W'29'
XCOPY FCPARAM1,WW1,KW3,VCVOLNR2,KW0
MOVE WW1,=W'66'
OPEN DSFMTFLE,1,0,FCPARAM1,WW1
BOK ZK999
EDWRT SPDSSCRN,ERROPF
ZK910
PERF XAKBIN,=W'0' GET ANSWER
CBNE SPBINW2,KWCANCEL,ZK910 MUST BE CANCEL
SET SBCANCEL
ZK999
RET
PEND
*
*
ERROPF FRMT
FCOPY =X'2031'
FTEXT 'FORMATFILE OPEN UNSUCCESSFULL'
FMEND
*
*
ZLCLSF PROC
ZL000
CLOSE DSFMTFLE
ZL999
RET
PEND
*
*
INCLUDE FMTPIC,LIST
*
END