|
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
0x000…042 (0, 0, 400) Head {h00=0x003e, h01=0x0050, text=» IDENT ZFMTIO FORMAT I/O CONTROL«, t00=0x0000, t01=0x0004}
0x042…056 Head {h00=0x0010, h01=0x000c, text=» DDUM DEMODD«, t00=0x0000, t01=0x0046}
0x056…064 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x005a}
0x064…07a Head {h00=0x0012, h01=0x0050, text=» EXPROC XAKBIN«, t00=0x0000, t01=0x0068}
0x07a…090 Head {h00=0x0012, h01=0x000d, text=» ENTRY ZKOPNF «, t00=0x0000, t01=0x007e}
0x090…0a6 Head {h00=0x0012, h01=0x000d, text=» ENTRY ZLCLSF «, t00=0x0000, t01=0x0094}
0x0a6…0ba Head {h00=0x0010, h01=0x0050, text=»ZKOPNF PROC «, t00=0x0000, t01=0x00aa}
0x0ba…0c8 Head {h00=0x000a, h01=0x0050, text=»ZK000 «, t00=0x0000, t01=0x00be}
0x0c8…0e4 Head {h00=0x0018, h01=0x0050, text=» MOVE FCPARAM1,=X'0'«, t00=0x0000, t01=0x00cc}
0x0e4…0fc Head {h00=0x0014, h01=0x0050, text=» MOVE WW1,=W'16'«, t00=0x0000, t01=0x00e8}
0x0fc…114 Head {h00=0x0014, h01=0x0050, text=» MOVE WW2,=W'8' «, t00=0x0000, t01=0x0100}
0x114…136 Head {h00=0x001e, h01=0x0050, text=» MOVE WC1STRG8,='FORMFILE'«, t00=0x0000, t01=0x0118}
0x136…16e Head {h00=0x0034, h01=0x0050, text=» XCOPY FCPARAM1,WW1,WW2,WC1STRG8,KW0 SET DSNAME «, t00=0x0000, t01=0x013a}
0x16e…186 Head {h00=0x0014, h01=0x0050, text=» MOVE WW1,=W'26'«, t00=0x0000, t01=0x0172}
0x186…1a6 Head {h00=0x001c, h01=0x0050, text=» MOVE WCSTRG6,='DSC001' «, t00=0x0000, t01=0x018a}
0x1a6…1de Head {h00=0x0034, h01=0x0050, text=» XCOPY FCPARAM1,WW1,KW6,WCSTRG6,KW0 SET VOLNMAE «, t00=0x0001, t01=0x001a}
0x1de…1f6 Head {h00=0x0014, h01=0x0050, text=» MOVE WW1,=W'29'«, t00=0x0001, t01=0x0052}
0x1f6…222 Head {h00=0x0028, h01=0x0050, text=» XCOPY FCPARAM1,WW1,KW3,VCVOLNR2,KW0«, t00=0x0001, t01=0x006a}
0x222…23a Head {h00=0x0014, h01=0x0050, text=» MOVE WW1,=W'66'«, t00=0x0001, t01=0x0096}
0x23a…262 Head {h00=0x0024, h01=0x0050, text=» OPEN DSFMTFLE,1,0,FCPARAM1,WW1 «, t00=0x0001, t01=0x00ae}
0x262…274 Head {h00=0x000e, h01=0x0050, text=» BOK ZK999«, t00=0x0001, t01=0x00d6}
0x274…292 Head {h00=0x001a, h01=0x0050, text=» EDWRT SPDSSCRN,ERROPF«, t00=0x0001, t01=0x00e8}
0x292…2a0 Head {h00=0x000a, h01=0x0050, text=»ZK910 «, t00=0x0001, t01=0x0106}
0x2a0…2c6 Head {h00=0x0022, h01=0x0050, text=» PERF XAKBIN,=W'0' GET ANSWER «, t00=0x0001, t01=0x0114}
0x2c6…2fa Head {h00=0x0030, h01=0x0050, text=» CBNE SPBINW2,KWCANCEL,ZK910 MUST BE CANCEL «, t00=0x0001, t01=0x013a}
0x2fa…310 Head {h00=0x0012, h01=0x0050, text=» SET SBCANCEL «, t00=0x0001, t01=0x016e}
0x310…31e Head {h00=0x000a, h01=0x0050, text=»ZK999 «, t00=0x0001, t01=0x0184}
0x31e…32a (2, 2, 346) Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x0004}
0x32a…338 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0002, t01=0x0010}
0x338…342 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001e}
0x342…34c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0028}
0x34c…360 Head {h00=0x0010, h01=0x0050, text=»ERROPF FRMT «, t00=0x0002, t01=0x0032}
0x360…378 Head {h00=0x0014, h01=0x0050, text=» FCOPY =X'2031' «, t00=0x0002, t01=0x0046}
0x378…3a6 Head {h00=0x002a, h01=0x0050, text=» FTEXT 'FORMATFILE OPEN UNSUCCESSFULL'«, t00=0x0002, t01=0x005e}
0x3a6…3b4 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0002, t01=0x008c}
0x3b4…3be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x009a}
0x3be…3c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a4}
0x3c8…3dc Head {h00=0x0010, h01=0x0050, text=»ZLCLSF PROC «, t00=0x0002, t01=0x00ae}
0x3dc…3ea Head {h00=0x000a, h01=0x0050, text=»ZL000 «, t00=0x0002, t01=0x00c2}
0x3ea…402 Head {h00=0x0014, h01=0x0050, text=» CLOSE DSFMTFLE «, t00=0x0002, t01=0x00d0}
0x402…410 Head {h00=0x000a, h01=0x0050, text=»ZL999 «, t00=0x0002, t01=0x00e8}
0x410…41c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x00f6}
0x41c…42a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0002, t01=0x0102}
0x42a…434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0110}
0x434…43e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x011a}
0x43e…45a Head {h00=0x0018, h01=0x0050, text=» INCLUDE FMTPIC,LIST«, t00=0x0002, t01=0x0124}
0x45a…464 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0140}
0x464…470 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0002, t01=0x014a}
0x470…474 Head {h00=0x4004, h01=0x0000}
0x474…478 00 02 01 56 ┆ V┆
0x478…480 (3, 1, 8) 20 04 00 00 00 03 00 04 ┆ ┆
0x480…4d0 (4, 0, 400) 5a 5a 39 2c 39 39 2d 20 00 03 01 82 00 0c 00 07 00 03 22 05 00 1b 65 00 00 04 00 10 00 18 00 14 00 09 1a 12 00 1c 10 0c 5a 5a 5a 5a 5a 5a 5a 5a 5a 2c 5a 5a 00 04 00 20 00 0c 00 07 00 03 22 05 00 1c 65 00 00 04 00 3c 00 1a 00 15 00 0a 1a 13 ┆ZZ9,99- " e ZZZZZZZZZ,ZZ " e < ┆
0x4d0…520 00 1d 10 0d 5a 5a 5a 5a 5a 5a 5a 5a 5a 2c 5a 5a 2d 20 00 04 00 4c 00 0c 00 07 00 03 22 05 00 1d 65 00 00 04 00 6a 00 12 00 0e 00 06 1a 0c 00 1e 10 06 39 39 45 3a 39 39 00 04 00 7a 00 0c 00 07 00 03 22 05 00 1e 65 00 00 04 00 90 00 12 00 0e ┆ ZZZZZZZZZ,ZZ- L " e j 99E:99 z " e ┆
0x520…570 00 06 1a 0c 00 1f 10 06 5a 5a 45 3a 5a 5a 00 04 00 a0 00 0c 00 07 00 03 22 05 00 1f 65 00 00 04 00 b6 00 16 00 11 00 08 1a 0f 00 20 10 09 5a 5a 56 5a 5a 39 2c 39 39 2c 00 04 00 c6 00 0c 00 07 00 03 22 05 00 20 65 00 00 04 00 e0 00 16 00 11 ┆ ZZE:ZZ " e ZZVZZ9,99, " e ┆
0x570…5c0 00 08 1a 0f 00 21 10 09 5a 5a 56 5a 5a 5a 2c 5a 5a 2c 00 04 00 f0 00 0c 00 07 00 03 22 05 00 21 65 00 00 04 01 0a 00 16 00 12 00 08 1a 10 00 22 10 0a 39 39 45 2d 39 39 45 2d 39 39 00 04 01 1a 00 0c 00 07 00 03 22 05 00 22 65 00 00 04 01 34 ┆ ! ZZVZZZ,ZZ, " !e " 99E-99E-99 " "e 4┆
0x5c0…610 00 16 00 12 00 08 1a 10 00 23 10 0a 5a 5a 45 2d 5a 5a 45 2d 5a 5a 00 04 01 44 00 0c 00 07 00 03 22 05 00 23 65 00 00 04 01 5e 00 1a 00 16 00 0a 1a 14 00 24 10 0e 5a 5a 56 5a 5a 5a 56 5a 5a 39 2c 39 39 2d 00 04 01 6e 00 0c 00 07 00 03 22 05 ┆ # ZZE-ZZE-ZZ D " #e ^ $ ZZVZZZVZZ9,99- n " ┆