|
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: 1584 (0x630)
Notes: pts_type(SC)
Names: »ZFMTIO.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/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
RSTAT DSFMTFLE,NWXSTAT
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=0x0050, text=» DDUM DEMODD«, t00=0x0000, t01=0x0046}
0x056…064 Head {h00=0x000a, h01=0x0050, 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=0x0050, text=» ENTRY ZKOPNF «, t00=0x0000, t01=0x007e}
0x090…0a6 Head {h00=0x0012, h01=0x0050, 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…294 Head {h00=0x001c, h01=0x0050, text=» RSTAT DSFMTFLE,NWXSTAT «, t00=0x0001, t01=0x00e8}
0x294…2b2 Head {h00=0x001a, h01=0x0050, text=» EDWRT SPDSSCRN,ERROPF«, t00=0x0001, t01=0x0108}
0x2b2…2c0 Head {h00=0x000a, h01=0x0050, text=»ZK910 «, t00=0x0001, t01=0x0126}
0x2c0…2e6 Head {h00=0x0022, h01=0x0050, text=» PERF XAKBIN,=W'0' GET ANSWER «, t00=0x0001, t01=0x0134}
0x2e6…31a Head {h00=0x0030, h01=0x0050, text=» CBNE SPBINW2,KWCANCEL,ZK910 MUST BE CANCEL «, t00=0x0001, t01=0x015a}
0x31a…330 Head {h00=0x0012, h01=0x0050, text=» SET SBCANCEL «, t00=0x0001, t01=0x018e}
0x330…33e Head {h00=0x000a, h01=0x0050, text=»ZK999 «, t00=0x0002, t01=0x0014}
0x33e…34a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x0022}
0x34a…358 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0002, t01=0x002e}
0x358…362 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x003c}
0x362…36c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0046}
0x36c…380 Head {h00=0x0010, h01=0x0050, text=»ERROPF FRMT «, t00=0x0002, t01=0x0050}
0x380…398 Head {h00=0x0014, h01=0x0050, text=» FCOPY =X'2031' «, t00=0x0002, t01=0x0064}
0x398…3c6 Head {h00=0x002a, h01=0x0050, text=» FTEXT 'FORMATFILE OPEN UNSUCCESSFULL'«, t00=0x0002, t01=0x007c}
0x3c6…3d4 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0002, t01=0x00aa}
0x3d4…3de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b8}
0x3de…3e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c2}
0x3e8…3fc Head {h00=0x0010, h01=0x0050, text=»ZLCLSF PROC «, t00=0x0002, t01=0x00cc}
0x3fc…40a Head {h00=0x000a, h01=0x0050, text=»ZL000 «, t00=0x0002, t01=0x00e0}
0x40a…422 Head {h00=0x0014, h01=0x0050, text=» CLOSE DSFMTFLE «, t00=0x0002, t01=0x00ee}
0x422…430 Head {h00=0x000a, h01=0x0050, text=»ZL999 «, t00=0x0002, t01=0x0106}
0x430…43c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x0114}
0x43c…44a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0002, t01=0x0120}
0x44a…454 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012e}
0x454…45e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0138}
0x45e…47a Head {h00=0x0018, h01=0x0050, text=» INCLUDE FMTPIC,LIST«, t00=0x0002, t01=0x0142}
0x47a…484 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x015e}
0x484…490 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0002, t01=0x0168}
0x490…494 Head {h00=0x4004, h01=0x0000}
0x494…498 00 02 01 74 ┆ t┆
0x498…4a0 (3, 1, 8) 20 04 00 00 00 03 00 04 ┆ ┆
0x4a0…4f0 (4, 0, 400) 80 5c f2 00 b5 80 00 43 01 70 00 2a 00 26 03 12 00 00 02 fd 00 00 0a b5 db 15 b5 83 2f 23 b5 84 47 19 84 60 37 02 4a 87 d2 d2 02 4a 87 d2 d3 02 4a 87 d2 d4 00 44 00 0e 00 2a 00 26 03 12 00 00 03 1b 00 00 02 4b 87 d3 d4 02 4b 87 d3 d5 02 65 ┆ C p * & /# G `7 J J J D * & K K e┆
0x4f0…540 87 d1 d1 02 66 87 d1 d2 02 67 87 d1 d3 02 68 87 d1 d4 00 44 00 3c 00 2a 00 26 03 12 00 00 03 39 00 00 02 61 87 d2 d1 02 62 87 d3 d1 02 63 87 d3 d2 02 64 87 d3 d3 5f 7a 00 87 d1 d1 65 00 87 d1 00 44 00 6a 00 2a 00 26 03 12 00 00 03 57 00 00 ┆ f g h D < * & 9 a b c d _z e D j * & W ┆
0x540…590 d2 66 00 87 d1 d3 67 00 87 d1 d4 68 00 87 d2 d1 61 00 87 d3 d1 62 00 87 d3 d2 63 00 87 d3 00 44 00 98 00 2a 00 26 03 12 00 00 03 75 00 00 d3 64 81 01 41 81 01 42 49 32 1c 03 2b 60 00 b6 2b 01 22 62 82 10 20 f8 49 32 0c 80 11 49 00 44 00 c6 ┆ f g h a b c D * & u d A BI2 +` + "b I2 I D ┆
0x590…5e0 00 2a 00 26 03 12 00 00 03 93 00 00 32 07 81 0e 13 80 12 57 06 01 22 61 81 0e 13 80 13 40 6a 34 00 29 22 60 19 01 53 11 00 70 00 44 00 f4 00 2a 00 26 03 12 00 00 03 b1 00 00 53 03 70 67 08 70 db 83 07 70 f8 d1 49 32 31 49 fa 02 80 14 21 22 ┆ * & 2 W "a @j4 )"` S p D * & S pg p p I21I !"┆
0x5e0…630 60 05 41 66 81 0e 11 81 00 44 01 22 00 2a 00 26 03 12 00 00 03 cf 00 00 01 1f 49 32 1d 00 23 53 73 82 10 70 f8 29 22 60 09 03 53 11 15 53 14 38 57 08 80 15 03 2b 00 44 01 50 00 2a 00 26 03 12 00 00 03 ed 00 00 60 00 b6 2b 40 66 34 00 00 6b ┆` Af D " * & I2 #Ss p )"` S S 8W + D P * & ` +@f4 k┆