|
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: 17360 (0x43d0)
Notes: pts_type(SC)
Names: »DDTP71.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/DDTP71.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/DDTP71.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/DDTP71.SC«
IDENT DDTP71 DEMONSTRATE 6371-PRINTER DDUM DEMODD PDIV EXPROC PVATTP EXPROC PWDETP EXPROC XCLAMP EXPROC XEERR EXPROC ZMRDF EXPROC DEFDOC EXPROC FMOVE ENTRY DDTP71 ************************************************************************ * * * DEMONSTRATE THE 6371-PRINTER* * * ************************************************************************ DDTP71 PROC DD000 PERF PVATTP,DSVCHPRT ATTACH PRINTER * * * DISPLAY MESSAGE TO MOUNT A4-SHEET IN PRINTER* * * PERF XCLAMP,KW4,KW1 LAMP 4 ON PERF XEERR,=W'64',KW3 PERF XCLAMP,KW4,KW0 LAMP 4 OFF TBT SBCANCEL,DD999 * * * DEFINE THE DOCUMENT* * * MOVE WW1,=W'18' MOVE VCDOCPAR,=C'1012561475710058000000' SET PARAMETERS DSC2 DSVCHPRT,X'11',KW0,VCDOCPAR,WW1 DSC1 DSVCHPRT,X'00',KW0 MOVE WW1,=X'8066' DSC1 DSVCHPRT,X'0D',WW1 ** * WRITE TITLE LINES* ** MOVE WW1,=W'65' FORMAT NUMBER PERF ZMRDF,WW1,KW0 READ INTO FCFORMAT MOVE ICSTRG1,=X'19' START WITH DOUBLE COLUMN PERF PTITLE,=W'10',=D'7',=D'1' PERF PTITLE,=W'13',=D'10',=D'2' PERF PTITLE,=W'15',=D'12',=D'4' MOVE ICSTRG1,=C' ' STOP DOUBLE COLUMN PERF PTITLE,=W'10',=D'17',=D'3' PERF PTITLE,=W'13',=D'18',=D'5' PERF PTITLE,=W'14',=D'19',=D'6' * * * PRINT AVAILABLE CHARACTER SET* * * PERF PUPOSA,=D'26' MOVE WW1,=W'66' FORMAT NUMBER PERF ZMRDF,WW1,KW0 READ INTO FCFORMAT PERF PSWFMT,=W'10' PERF PUPOSA,=D'28' CALL FMOVE,FCFORMAT,FMTCSET PERF PSWFMT,=W'19' * * * PRINT NATIONAL CHARACTER SETS* * * PERF PUPOSA,=D'30' CALL FMOVE,FCFORMAT,FMTNCV MOVE ICTEXT2,=C'D,A,L,CH' PERF PSWFMT,=W'11' MOVE ICTEXT2,=C'GB,NL,B ' PERF PSWFMT,=W'1' MOVE ICTEXT2,=C'F,CH,B,L' PERF PSWFMT,=W'2' MOVE ICTEXT2,=C'E ' PERF PSWFMT,=W'3' MOVE ICTEXT2,=C'I,CH ' PERF PSWFMT,=W'4' MOVE ICTEXT2,=C'S,SF ' PERF PSWFMT,=W'5' MOVE ICTEXT2,=C'DK,N ' PERF PSWFMT,=W'6' MOVE ICTEXT2,=C'P ' PERF PSWFMT,=W'7' MOVE ICTEXT2,=C'US ' PERF PSWFMT,=W'8' MOVE ICTEXT2,=C'YU ' PERF PSWFMT,=W'9' MOVE ICTEXT2,=C'DK,N (2)' PERF PSWFMT,=W'21' * * * PRINT SPECIAL CHARACTERS* * * MOVE WW1,=W'67' FORMAT NUMBER PERF ZMRDF,WW1,KW0 READ INTO FCFORMAT PERF PSWFMT,=W'10' * * * WRITE TITLE LINES AGAIN* * * MOVE WW1,=W'65' FORMAT NUMBER PERF ZMRDF,WW1,KW0 READ INTO FCFORMAT PERF PTITLE,=W'16',=D'44',=D'6' PERF PTITLE,=W'17',=D'45',=D'5' PERF PTITLE,=W'19',=D'46',=D'3' MOVE ICSTRG1,=X'19' START DOUBLE COLUMN AGAIN PERF PTITLE,=W'20',=D'50',=D'4' PERF PTITLE,=W'18',=D'53',=D'2' * * * RELEASE A4-SHEET AND DETACH PRINTER* * * DSC0 DSVCHPRT,01 RELEASE DOCUMENT PERF PWDETP,DSVCHPRT DETACH PRINTER DD999 RET PEND ************************************************************************ * * * PROCEDURE: PTITLE* * PARAMETERS:* * PWPRT: INDEX IN THE PRINTER PARAMETERS-ARRAY* * PDPOS: LINE NUMBER WHERE THE LINE MUST BE PRINTED* * PDFILL: LENGTH OF THE FILLER PRECEDING THE TEXT * * FUNCTIONAL DESCRIPTION:* * THE FORMAT CONTAINED IN FCFORMAT IS PRINTED IN THE LINE GIVEN* * BY PDPOS USING THE PRINTER PARAMETERS POINTED TO BY PWPRT AND* * AND PRECEDED BY THE NUMBER OF SPACES GIVEN BY PDFILL.* * * ************************************************************************ PTITLE PROC PWPRT,PDPOS,PDFILL PLIT PWPRT PLIT PDPOS PLIT PDFILL PT000 * * * GET THE PRINTER PARAMETERS* * * MOVE WW2,PWPRT MOVE WW1,KCPRTPAR(WW2) DSC1 DSVCHPRT,5,WW1 SEND PRINTER PARAMTERS * * * POSITION DOCUMENT* * * PERF PUPOSA,PDPOS * * * WRITE THE LINE* * * MOVE WW1,PDFILL IB WW1,PT001,PT002,PT003,PT004,PT005,PT006 PT001 SET SBFIL1 PT002 SET SBFIL2 PT003 SET SBFIL3 PT004 SET SBFIL4 PT005 SET SBFIL5 PT006 EDWRT DSVCHPRT,FCFORMAT CLEAR SBFIL1 CLEAR SBFIL2 CLEAR SBFIL3 CLEAR SBFIL4 CLEAR SBFIL5 PT999 RET PEND ************************************************************************ * * * PROCEDURE: PSWFMT* * FUNCTIONAL DESCRIPTION:* * WRITE THE FORMAT CONTAINED IN FCFORMAT USING THE PRINTER-* * PARAMETERS POINTED TO BY PWPRT.* * * ************************************************************************ PSWFMT PROC PWPRT PLIT PWPRT PS000 MOVE WW2,PWPRT MOVE WW1,KCPRTPAR(WW2) DSC1 DSVCHPRT,5,WW1 SEND PRINTER PARAMETERS EDWRT DSVCHPRT,FCFORMAT PS999 RET PEND ************************************************************************ * * * PROCEDURE: PUPOSA* * FUNCTIONAL DESCRIPTION:* * POSITION A4-SHEET ON THE LINE NUMBER GIVEN BY PDLINE* * * ************************************************************************ PUPOSA PROC PDLINE PLIT PDLINE PU000 MOVE WDEC1,PDLINE DSC1 DSVCHPRT,6,WDEC1 PU999 RET PEND ************************************************************************ ************************************************************************ * * * DEMO TP71: AVAILABLE CHARACTER SET* * * ************************************************************************ FMTCSET FRMT FTEXT ' ' FILLR ' ',15 FTEXT =X'202122232425262728292A2B2C2D2E2F' FTEXT =X'303132333435363738393A3B3C3D3E3F' FTEXT =X'404142434445464748494A4B4C4D4E4F' FEOR FTEXT ' ' FILLR ' ',15 FTEXT =X'505152535455565758595A5B5C5D5E5F' FTEXT =X'606162636465666768696A6B6C6D6E6F' FTEXT =X'707172737475767778797A7B7C7D7E7F' FMEND ************************************************************************ * * * DEMO TP71: NATIONAL CHARACTER VERSION* * * ************************************************************************ FMTNCV FRMT FTEXT ' ' FILLR ' ',6 FCOPY ICTEXT2 FTAB 17 FTEXT ': ' FTEXT =X'23405B5C5D607B7C7D7E' FMEND ************************************************************************ END
0x0000…002e (0, 0, 400) Head {h00=0x002a, h01=0x0050, text=» IDENT DDTP71 DEMONSTRATE 6371-PRINTER«, t00=0x0000, t01=0x0004}
0x002e…007e Head {h00=0x004c, h01=0x0050, text=» DDUM DEMODD «, t00=0x0000, t01=0x0032}
0x007e…00ce Head {h00=0x004c, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0082}
0x00ce…0122 Head {h00=0x0050, h01=0x0050, text=» EXPROC PVATTP «, t00=0x0000, t01=0x00d2}
0x0122…0176 Head {h00=0x0050, h01=0x0050, text=» EXPROC PWDETP «, t00=0x0000, t01=0x0126}
0x0176…01ca Head {h00=0x0050, h01=0x0050, text=» EXPROC XCLAMP «, t00=0x0000, t01=0x017a}
0x01ca…021e Head {h00=0x0050, h01=0x0050, text=» EXPROC XEERR «, t00=0x0001, t01=0x003e}
0x021e…0272 Head {h00=0x0050, h01=0x0050, text=» EXPROC ZMRDF «, t00=0x0001, t01=0x0092}
0x0272…02c6 Head {h00=0x0050, h01=0x0050, text=» EXPROC DEFDOC «, t00=0x0001, t01=0x00e6}
0x02c6…02dc Head {h00=0x0012, h01=0x0050, text=» EXPROC FMOVE «, t00=0x0001, t01=0x013a}
0x02dc…032c Head {h00=0x004c, h01=0x0050, text=» ENTRY DDTP71 «, t00=0x0001, t01=0x0150}
0x032c…037c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0002, t01=0x0010}
0x037c…03cc Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0002, t01=0x0060}
0x03cc…041c Head {h00=0x004c, h01=0x0050, text=»* DEMONSTRATE THE 6371-PRINTER *«, t00=0x0002, t01=0x00b0}
0x041c…046c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0002, t01=0x0100}
0x046c…04bc Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0002, t01=0x0150}
0x04bc…050c Head {h00=0x004c, h01=0x0050, text=»DDTP71 PROC «, t00=0x0003, t01=0x0010}
0x050c…055c Head {h00=0x004c, h01=0x0050, text=»DD000 «, t00=0x0003, t01=0x0060}
0x055c…05ae Head {h00=0x004e, h01=0x0050, text=» PERF PVATTP,DSVCHPRT ATTACH PRINTER «, t00=0x0003, t01=0x00b0}
0x05ae…05fe Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0003, t01=0x0102}
0x05fe…064e Head {h00=0x004c, h01=0x0050, text=»* DISPLAY MESSAGE TO MOUNT A4-SHEET IN PRINTER *«, t00=0x0003, t01=0x0152}
0x064e…069e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0004, t01=0x0012}
0x069e…06ee Head {h00=0x004c, h01=0x0050, text=» PERF XCLAMP,KW4,KW1 LAMP 4 ON «, t00=0x0004, t01=0x0062}
0x06ee…073e Head {h00=0x004c, h01=0x0050, text=» PERF XEERR,=W'64',KW3 «, t00=0x0004, t01=0x00b2}
0x073e…078e Head {h00=0x004c, h01=0x0050, text=» PERF XCLAMP,KW4,KW0 LAMP 4 OFF «, t00=0x0004, t01=0x0102}
0x078e…07de Head {h00=0x004c, h01=0x0050, text=» TBT SBCANCEL,DD999 «, t00=0x0004, t01=0x0152}
0x07de…082e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0005, t01=0x0012}
0x082e…087e Head {h00=0x004c, h01=0x0050, text=»* DEFINE THE DOCUMENT *«, t00=0x0005, t01=0x0062}
0x087e…08ce Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0005, t01=0x00b2}
0x08ce…08e6 Head {h00=0x0014, h01=0x0050, text=» MOVE WW1,=W'18'«, t00=0x0005, t01=0x0102}
0x08e6…0926 Head {h00=0x003c, h01=0x0050, text=» MOVE VCDOCPAR,=C'1012561475710058000000' SET PARAMETERS«, t00=0x0005, t01=0x011a}
0x0926…0954 Head {h00=0x002a, h01=0x0050, text=» DSC2 DSVCHPRT,X'11',KW0,VCDOCPAR,WW1 «, t00=0x0005, t01=0x015a}
0x0954…0974 Head {h00=0x001c, h01=0x0050, text=» DSC1 DSVCHPRT,X'00',KW0«, t00=0x0005, t01=0x0188}
0x0974…098e Head {h00=0x0016, h01=0x0050, text=» MOVE WW1,=X'8066'«, t00=0x0006, t01=0x0018}
0x098e…09ae Head {h00=0x001c, h01=0x0050, text=» DSC1 DSVCHPRT,X'0D',WW1«, t00=0x0006, t01=0x0032}
0x09ae…09fe Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x0052}
0x09fe…0a4e Head {h00=0x004c, h01=0x0050, text=»* WRITE TITLE LINES *«, t00=0x0006, t01=0x00a2}
0x0a4e…0a9e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x00f2}
0x0a9e…0ac4 Head {h00=0x0022, h01=0x0050, text=» MOVE WW1,=W'65' FORMAT NUMBER«, t00=0x0006, t01=0x0142}
0x0ac4…0b12 Head {h00=0x004a, h01=0x0050, text=» PERF ZMRDF,WW1,KW0 READ INTO FCFORMAT «, t00=0x0006, t01=0x0168}
0x0b12…0b62 Head {h00=0x004c, h01=0x0050, text=» MOVE ICSTRG1,=X'19' START WITH DOUBLE COLUMN «, t00=0x0007, t01=0x0026}
0x0b62…0bb2 Head {h00=0x004c, h01=0x0050, text=» PERF PTITLE,=W'10',=D'7',=D'1' «, t00=0x0007, t01=0x0076}
0x0bb2…0c02 Head {h00=0x004c, h01=0x0050, text=» PERF PTITLE,=W'13',=D'10',=D'2' «, t00=0x0007, t01=0x00c6}
0x0c02…0c52 Head {h00=0x004c, h01=0x0050, text=» PERF PTITLE,=W'15',=D'12',=D'4' «, t00=0x0007, t01=0x0116}
0x0c52…0ca2 Head {h00=0x004c, h01=0x0050, text=» MOVE ICSTRG1,=C' ' STOP DOUBLE COLUMN «, t00=0x0007, t01=0x0166}
0x0ca2…0cf2 Head {h00=0x004c, h01=0x0050, text=» PERF PTITLE,=W'10',=D'17',=D'3' «, t00=0x0008, t01=0x0026}
0x0cf2…0d42 Head {h00=0x004c, h01=0x0050, text=» PERF PTITLE,=W'13',=D'18',=D'5' «, t00=0x0008, t01=0x0076}
0x0d42…0d92 Head {h00=0x004c, h01=0x0050, text=» PERF PTITLE,=W'14',=D'19',=D'6' «, t00=0x0008, t01=0x00c6}
0x0d92…0de2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0008, t01=0x0116}
0x0de2…0e32 Head {h00=0x004c, h01=0x0050, text=»* PRINT AVAILABLE CHARACTER SET *«, t00=0x0008, t01=0x0166}
0x0e32…0e82 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0009, t01=0x0026}
0x0e82…0ed2 Head {h00=0x004c, h01=0x0050, text=» PERF PUPOSA,=D'26' «, t00=0x0009, t01=0x0076}
0x0ed2…0ef8 Head {h00=0x0022, h01=0x0050, text=» MOVE WW1,=W'66' FORMAT NUMBER«, t00=0x0009, t01=0x00c6}
0x0ef8…0f46 Head {h00=0x004a, h01=0x0050, text=» PERF ZMRDF,WW1,KW0 READ INTO FCFORMAT «, t00=0x0009, t01=0x00ec}
0x0f46…0f96 Head {h00=0x004c, h01=0x0050, text=» PERF PSWFMT,=W'10' «, t00=0x0009, t01=0x013a}
0x0f96…0fe6 Head {h00=0x004c, h01=0x0050, text=» PERF PUPOSA,=D'28' «, t00=0x0009, t01=0x018a}
0x0fe6…1036 Head {h00=0x004c, h01=0x0050, text=» CALL FMOVE,FCFORMAT,FMTCSET «, t00=0x000a, t01=0x004a}
0x1036…1086 Head {h00=0x004c, h01=0x0050, text=» PERF PSWFMT,=W'19' «, t00=0x000a, t01=0x009a}
0x1086…10d6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000a, t01=0x00ea}
0x10d6…1126 Head {h00=0x004c, h01=0x0050, text=»* PRINT NATIONAL CHARACTER SETS *«, t00=0x000a, t01=0x013a}
0x1126…1176 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000a, t01=0x018a}
0x1176…11c6 Head {h00=0x004c, h01=0x0050, text=» PERF PUPOSA,=D'30' «, t00=0x000b, t01=0x004a}
0x11c6…1216 Head {h00=0x004c, h01=0x0050, text=» CALL FMOVE,FCFORMAT,FMTNCV «, t00=0x000b, t01=0x009a}
0x1216…1266 Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT2,=C'D,A,L,CH' «, t00=0x000b, t01=0x00ea}
0x1266…12b6 Head {h00=0x004c, h01=0x0050, text=» PERF PSWFMT,=W'11' «, t00=0x000b, t01=0x013a}
0x12b6…1306 Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT2,=C'GB,NL,B ' «, t00=0x000b, t01=0x018a}
0x1306…1356 Head {h00=0x004c, h01=0x0050, text=» PERF PSWFMT,=W'1' «, t00=0x000c, t01=0x004a}
0x1356…13a6 Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT2,=C'F,CH,B,L' «, t00=0x000c, t01=0x009a}
0x13a6…13f6 Head {h00=0x004c, h01=0x0050, text=» PERF PSWFMT,=W'2' «, t00=0x000c, t01=0x00ea}
0x13f6…1446 Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT2,=C'E ' «, t00=0x000c, t01=0x013a}
0x1446…1496 Head {h00=0x004c, h01=0x0050, text=» PERF PSWFMT,=W'3' «, t00=0x000c, t01=0x018a}
0x1496…14e6 Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT2,=C'I,CH ' «, t00=0x000d, t01=0x004a}
0x14e6…1536 Head {h00=0x004c, h01=0x0050, text=» PERF PSWFMT,=W'4' «, t00=0x000d, t01=0x009a}
0x1536…1586 Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT2,=C'S,SF ' «, t00=0x000d, t01=0x00ea}
0x1586…15d6 Head {h00=0x004c, h01=0x0050, text=» PERF PSWFMT,=W'5' «, t00=0x000d, t01=0x013a}
0x15d6…1626 Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT2,=C'DK,N ' «, t00=0x000d, t01=0x018a}
0x1626…1676 Head {h00=0x004c, h01=0x0050, text=» PERF PSWFMT,=W'6' «, t00=0x000e, t01=0x004a}
0x1676…16c6 Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT2,=C'P ' «, t00=0x000e, t01=0x009a}
0x16c6…1716 Head {h00=0x004c, h01=0x0050, text=» PERF PSWFMT,=W'7' «, t00=0x000e, t01=0x00ea}
0x1716…1766 Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT2,=C'US ' «, t00=0x000e, t01=0x013a}
0x1766…17b6 Head {h00=0x004c, h01=0x0050, text=» PERF PSWFMT,=W'8' «, t00=0x000e, t01=0x018a}
0x17b6…1806 Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT2,=C'YU ' «, t00=0x000f, t01=0x004a}
0x1806…1856 Head {h00=0x004c, h01=0x0050, text=» PERF PSWFMT,=W'9' «, t00=0x000f, t01=0x009a}
0x1856…1878 Head {h00=0x001e, h01=0x0050, text=» MOVE ICTEXT2,=C'DK,N (2)'«, t00=0x000f, t01=0x00ea}
0x1878…1894 Head {h00=0x0018, h01=0x0050, text=» PERF PSWFMT,=W'21' «, t00=0x000f, t01=0x010c}
0x1894…18e4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000f, t01=0x0128}
0x18e4…1934 Head {h00=0x004c, h01=0x0050, text=»* PRINT SPECIAL CHARACTERS *«, t00=0x000f, t01=0x0178}
0x1934…1984 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0010, t01=0x0038}
0x1984…19aa Head {h00=0x0022, h01=0x0050, text=» MOVE WW1,=W'67' FORMAT NUMBER«, t00=0x0010, t01=0x0088}
0x19aa…19f8 Head {h00=0x004a, h01=0x0050, text=» PERF ZMRDF,WW1,KW0 READ INTO FCFORMAT «, t00=0x0010, t01=0x00ae}
0x19f8…1a48 Head {h00=0x004c, h01=0x0050, text=» PERF PSWFMT,=W'10' «, t00=0x0010, t01=0x00fc}
0x1a48…1a98 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0010, t01=0x014c}
0x1a98…1ae8 Head {h00=0x004c, h01=0x0050, text=»* WRITE TITLE LINES AGAIN *«, t00=0x0011, t01=0x000c}
0x1ae8…1b38 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0011, t01=0x005c}
0x1b38…1b5e Head {h00=0x0022, h01=0x0050, text=» MOVE WW1,=W'65' FORMAT NUMBER«, t00=0x0011, t01=0x00ac}
0x1b5e…1bac Head {h00=0x004a, h01=0x0050, text=» PERF ZMRDF,WW1,KW0 READ INTO FCFORMAT «, t00=0x0011, t01=0x00d2}
0x1bac…1bfc Head {h00=0x004c, h01=0x0050, text=» PERF PTITLE,=W'16',=D'44',=D'6' «, t00=0x0011, t01=0x0120}
0x1bfc…1c4c Head {h00=0x004c, h01=0x0050, text=» PERF PTITLE,=W'17',=D'45',=D'5' «, t00=0x0011, t01=0x0170}
0x1c4c…1c9c Head {h00=0x004c, h01=0x0050, text=» PERF PTITLE,=W'19',=D'46',=D'3' «, t00=0x0012, t01=0x0030}
0x1c9c…1cec Head {h00=0x004c, h01=0x0050, text=» MOVE ICSTRG1,=X'19' START DOUBLE COLUMN AGAIN «, t00=0x0012, t01=0x0080}
0x1cec…1d3c Head {h00=0x004c, h01=0x0050, text=» PERF PTITLE,=W'20',=D'50',=D'4' «, t00=0x0012, t01=0x00d0}
0x1d3c…1d8c Head {h00=0x004c, h01=0x0050, text=» PERF PTITLE,=W'18',=D'53',=D'2' «, t00=0x0012, t01=0x0120}
0x1d8c…1ddc Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0012, t01=0x0170}
0x1ddc…1e2c Head {h00=0x004c, h01=0x0050, text=»* RELEASE A4-SHEET AND DETACH PRINTER *«, t00=0x0013, t01=0x0030}
0x1e2c…1e7c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0013, t01=0x0080}
0x1e7c…1ece Head {h00=0x004e, h01=0x0050, text=» DSC0 DSVCHPRT,01 RELEASE DOCUMENT «, t00=0x0013, t01=0x00d0}
0x1ece…1f20 Head {h00=0x004e, h01=0x0050, text=» PERF PWDETP,DSVCHPRT DETACH PRINTER «, t00=0x0013, t01=0x0122}
0x1f20…1f70 Head {h00=0x004c, h01=0x0050, text=»DD999 «, t00=0x0013, t01=0x0174}
0x1f70…1fc0 Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x0014, t01=0x0034}
0x1fc0…2010 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0014, t01=0x0084}
0x2010…2060 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0014, t01=0x00d4}
0x2060…20b0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0014, t01=0x0124}
0x20b0…2100 Head {h00=0x004c, h01=0x0050, text=»* PROCEDURE: PTITLE *«, t00=0x0014, t01=0x0174}
0x2100…2150 Head {h00=0x004c, h01=0x0050, text=»* PARAMETERS: *«, t00=0x0015, t01=0x0034}
0x2150…21a0 Head {h00=0x004c, h01=0x0050, text=»* PWPRT: INDEX IN THE PRINTER PARAMETERS-ARRAY *«, t00=0x0015, t01=0x0084}
0x21a0…21f0 Head {h00=0x004c, h01=0x0050, text=»* PDPOS: LINE NUMBER WHERE THE LINE MUST BE PRINTED *«, t00=0x0015, t01=0x00d4}
0x21f0…2240 Head {h00=0x004c, h01=0x0050, text=»* PDFILL: LENGTH OF THE FILLER PRECEDING THE TEXT *«, t00=0x0015, t01=0x0124}
0x2240…2290 Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: *«, t00=0x0015, t01=0x0174}
0x2290…22e0 Head {h00=0x004c, h01=0x0050, text=»* THE FORMAT CONTAINED IN FCFORMAT IS PRINTED IN THE LINE GIVEN *«, t00=0x0016, t01=0x0034}
0x22e0…2330 Head {h00=0x004c, h01=0x0050, text=»* BY PDPOS USING THE PRINTER PARAMETERS POINTED TO BY PWPRT AND *«, t00=0x0016, t01=0x0084}
0x2330…2380 Head {h00=0x004c, h01=0x0050, text=»* AND PRECEDED BY THE NUMBER OF SPACES GIVEN BY PDFILL. *«, t00=0x0016, t01=0x00d4}
0x2380…23d0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0016, t01=0x0124}
0x23d0…2420 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0016, t01=0x0174}
0x2420…2446 Head {h00=0x0022, h01=0x0050, text=»PTITLE PROC PWPRT,PDPOS,PDFILL«, t00=0x0017, t01=0x0034}
0x2446…245a Head {h00=0x0010, h01=0x0050, text=» PLIT PWPRT «, t00=0x0017, t01=0x005a}
0x245a…246e Head {h00=0x0010, h01=0x0050, text=» PLIT PDPOS «, t00=0x0017, t01=0x006e}
0x246e…2482 Head {h00=0x0010, h01=0x0050, text=» PLIT PDFILL«, t00=0x0017, t01=0x0082}
0x2482…24d2 Head {h00=0x004c, h01=0x0050, text=»PT000 «, t00=0x0017, t01=0x0096}
0x24d2…2522 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0017, t01=0x00e6}
0x2522…2572 Head {h00=0x004c, h01=0x0050, text=»* GET THE PRINTER PARAMETERS *«, t00=0x0017, t01=0x0136}
0x2572…25c2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0017, t01=0x0186}
0x25c2…25da Head {h00=0x0014, h01=0x0050, text=» MOVE WW2,PWPRT «, t00=0x0018, t01=0x0046}
0x25da…25fa Head {h00=0x001c, h01=0x0050, text=» MOVE WW1,KCPRTPAR(WW2) «, t00=0x0018, t01=0x005e}
0x25fa…264c Head {h00=0x004e, h01=0x0050, text=» DSC1 DSVCHPRT,5,WW1 SEND PRINTER PARAMTERS «, t00=0x0018, t01=0x007e}
0x264c…269c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0018, t01=0x00d0}
0x269c…26ec Head {h00=0x004c, h01=0x0050, text=»* POSITION DOCUMENT *«, t00=0x0018, t01=0x0120}
0x26ec…273c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0018, t01=0x0170}
0x273c…278c Head {h00=0x004c, h01=0x0050, text=» PERF PUPOSA,PDPOS «, t00=0x0019, t01=0x0030}
0x278c…27dc Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0019, t01=0x0080}
0x27dc…282c Head {h00=0x004c, h01=0x0050, text=»* WRITE THE LINE *«, t00=0x0019, t01=0x00d0}
0x282c…287c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0019, t01=0x0120}
0x287c…28ca Head {h00=0x004a, h01=0x0050, text=» MOVE WW1,PDFILL «, t00=0x0019, t01=0x0170}
0x28ca…28fe Head {h00=0x0030, h01=0x0050, text=» IB WW1,PT001,PT002,PT003,PT004,PT005,PT006 «, t00=0x001a, t01=0x002e}
0x28fe…290c Head {h00=0x000a, h01=0x0050, text=»PT001 «, t00=0x001a, t01=0x0062}
0x290c…2920 Head {h00=0x0010, h01=0x0050, text=» SET SBFIL1 «, t00=0x001a, t01=0x0070}
0x2920…292e Head {h00=0x000a, h01=0x0050, text=»PT002 «, t00=0x001a, t01=0x0084}
0x292e…2942 Head {h00=0x0010, h01=0x0050, text=» SET SBFIL2 «, t00=0x001a, t01=0x0092}
0x2942…2950 Head {h00=0x000a, h01=0x0050, text=»PT003 «, t00=0x001a, t01=0x00a6}
0x2950…2964 Head {h00=0x0010, h01=0x0050, text=» SET SBFIL3 «, t00=0x001a, t01=0x00b4}
0x2964…2972 Head {h00=0x000a, h01=0x0050, text=»PT004 «, t00=0x001a, t01=0x00c8}
0x2972…2986 Head {h00=0x0010, h01=0x0050, text=» SET SBFIL4 «, t00=0x001a, t01=0x00d6}
0x2986…2994 Head {h00=0x000a, h01=0x0050, text=»PT005 «, t00=0x001a, t01=0x00ea}
0x2994…29a8 Head {h00=0x0010, h01=0x0050, text=» SET SBFIL5 «, t00=0x001a, t01=0x00f8}
0x29a8…29b6 Head {h00=0x000a, h01=0x0050, text=»PT006 «, t00=0x001a, t01=0x010c}
0x29b6…2a08 Head {h00=0x004e, h01=0x0050, text=» EDWRT DSVCHPRT,FCFORMAT «, t00=0x001a, t01=0x011a}
0x2a08…2a1e Head {h00=0x0012, h01=0x0050, text=» CLEAR SBFIL1 «, t00=0x001a, t01=0x016c}
0x2a1e…2a34 Head {h00=0x0012, h01=0x0050, text=» CLEAR SBFIL2 «, t00=0x001a, t01=0x0182}
0x2a34…2a4a Head {h00=0x0012, h01=0x0050, text=» CLEAR SBFIL3 «, t00=0x001b, t01=0x0008}
0x2a4a…2a60 Head {h00=0x0012, h01=0x0050, text=» CLEAR SBFIL4 «, t00=0x001b, t01=0x001e}
0x2a60…2a76 Head {h00=0x0012, h01=0x0050, text=» CLEAR SBFIL5 «, t00=0x001b, t01=0x0034}
0x2a76…2ac6 Head {h00=0x004c, h01=0x0050, text=»PT999 «, t00=0x001b, t01=0x004a}
0x2ac6…2b16 Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x001b, t01=0x009a}
0x2b16…2b66 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x001b, t01=0x00ea}
0x2b66…2bb6 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001b, t01=0x013a}
0x2bb6…2c06 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001b, t01=0x018a}
0x2c06…2c56 Head {h00=0x004c, h01=0x0050, text=»* PROCEDURE: PSWFMT *«, t00=0x001c, t01=0x004a}
0x2c56…2ca6 Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: *«, t00=0x001c, t01=0x009a}
0x2ca6…2cf6 Head {h00=0x004c, h01=0x0050, text=»* WRITE THE FORMAT CONTAINED IN FCFORMAT USING THE PRINTER- *«, t00=0x001c, t01=0x00ea}
0x2cf6…2d46 Head {h00=0x004c, h01=0x0050, text=»* PARAMETERS POINTED TO BY PWPRT. *«, t00=0x001c, t01=0x013a}
0x2d46…2d96 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001c, t01=0x018a}
0x2d96…2de6 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001d, t01=0x004a}
0x2de6…2e36 Head {h00=0x004c, h01=0x0050, text=»PSWFMT PROC PWPRT «, t00=0x001d, t01=0x009a}
0x2e36…2e4a Head {h00=0x0010, h01=0x0050, text=» PLIT PWPRT «, t00=0x001d, t01=0x00ea}
0x2e4a…2e9a Head {h00=0x004c, h01=0x0050, text=»PS000 «, t00=0x001d, t01=0x00fe}
0x2e9a…2eb2 Head {h00=0x0014, h01=0x0050, text=» MOVE WW2,PWPRT «, t00=0x001d, t01=0x014e}
0x2eb2…2ed2 Head {h00=0x001c, h01=0x0050, text=» MOVE WW1,KCPRTPAR(WW2) «, t00=0x001d, t01=0x0166}
0x2ed2…2f24 Head {h00=0x004e, h01=0x0050, text=» DSC1 DSVCHPRT,5,WW1 SEND PRINTER PARAMETERS «, t00=0x001d, t01=0x0186}
0x2f24…2f76 Head {h00=0x004e, h01=0x0050, text=» EDWRT DSVCHPRT,FCFORMAT «, t00=0x001e, t01=0x0048}
0x2f76…2fc6 Head {h00=0x004c, h01=0x0050, text=»PS999 «, t00=0x001e, t01=0x009a}
0x2fc6…3016 Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x001e, t01=0x00ea}
0x3016…3066 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x001e, t01=0x013a}
0x3066…30b6 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001e, t01=0x018a}
0x30b6…3106 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001f, t01=0x004a}
0x3106…3156 Head {h00=0x004c, h01=0x0050, text=»* PROCEDURE: PUPOSA *«, t00=0x001f, t01=0x009a}
0x3156…31a6 Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: *«, t00=0x001f, t01=0x00ea}
0x31a6…31f6 Head {h00=0x004c, h01=0x0050, text=»* POSITION A4-SHEET ON THE LINE NUMBER GIVEN BY PDLINE *«, t00=0x001f, t01=0x013a}
0x31f6…3246 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001f, t01=0x018a}
0x3246…3296 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0020, t01=0x004a}
0x3296…32e6 Head {h00=0x004c, h01=0x0050, text=»PUPOSA PROC PDLINE «, t00=0x0020, t01=0x009a}
0x32e6…32fa Head {h00=0x0010, h01=0x0050, text=» PLIT PDLINE«, t00=0x0020, t01=0x00ea}
0x32fa…334a Head {h00=0x004c, h01=0x0050, text=»PU000 «, t00=0x0020, t01=0x00fe}
0x334a…3364 Head {h00=0x0016, h01=0x0050, text=» MOVE WDEC1,PDLINE«, t00=0x0020, t01=0x014e}
0x3364…3382 Head {h00=0x001a, h01=0x0050, text=» DSC1 DSVCHPRT,6,WDEC1«, t00=0x0020, t01=0x0168}
0x3382…33d2 Head {h00=0x004c, h01=0x0050, text=»PU999 «, t00=0x0020, t01=0x0186}
0x33d2…3422 Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x0021, t01=0x0046}
0x3422…3472 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0021, t01=0x0096}
0x3472…34c2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0021, t01=0x00e6}
0x34c2…3512 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0021, t01=0x0136}
0x3512…3562 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0021, t01=0x0186}
0x3562…35b2 Head {h00=0x004c, h01=0x0050, text=»* DEMO TP71: AVAILABLE CHARACTER SET *«, t00=0x0022, t01=0x0046}
0x35b2…3602 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0022, t01=0x0096}
0x3602…3652 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0022, t01=0x00e6}
0x3652…36a2 Head {h00=0x004c, h01=0x0050, text=»FMTCSET FRMT «, t00=0x0022, t01=0x0136}
0x36a2…36f2 Head {h00=0x004c, h01=0x0050, text=» FTEXT ' ' «, t00=0x0022, t01=0x0186}
0x36f2…3742 Head {h00=0x004c, h01=0x0050, text=» FILLR ' ',15 «, t00=0x0023, t01=0x0046}
0x3742…3792 Head {h00=0x004c, h01=0x0050, text=» FTEXT =X'202122232425262728292A2B2C2D2E2F' «, t00=0x0023, t01=0x0096}
0x3792…37e2 Head {h00=0x004c, h01=0x0050, text=» FTEXT =X'303132333435363738393A3B3C3D3E3F' «, t00=0x0023, t01=0x00e6}
0x37e2…3832 Head {h00=0x004c, h01=0x0050, text=» FTEXT =X'404142434445464748494A4B4C4D4E4F' «, t00=0x0023, t01=0x0136}
0x3832…3882 Head {h00=0x004c, h01=0x0050, text=» FEOR «, t00=0x0023, t01=0x0186}
0x3882…38d2 Head {h00=0x004c, h01=0x0050, text=» FTEXT ' ' «, t00=0x0024, t01=0x0046}
0x38d2…3922 Head {h00=0x004c, h01=0x0050, text=» FILLR ' ',15 «, t00=0x0024, t01=0x0096}
0x3922…3972 Head {h00=0x004c, h01=0x0050, text=» FTEXT =X'505152535455565758595A5B5C5D5E5F' «, t00=0x0024, t01=0x00e6}
0x3972…39c2 Head {h00=0x004c, h01=0x0050, text=» FTEXT =X'606162636465666768696A6B6C6D6E6F' «, t00=0x0024, t01=0x0136}
0x39c2…3a12 Head {h00=0x004c, h01=0x0050, text=» FTEXT =X'707172737475767778797A7B7C7D7E7F' «, t00=0x0024, t01=0x0186}
0x3a12…3a62 Head {h00=0x004c, h01=0x0050, text=» FMEND «, t00=0x0025, t01=0x0046}
0x3a62…3ab2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0025, t01=0x0096}
0x3ab2…3b02 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0025, t01=0x00e6}
0x3b02…3b52 Head {h00=0x004c, h01=0x0050, text=»* DEMO TP71: NATIONAL CHARACTER VERSION *«, t00=0x0025, t01=0x0136}
0x3b52…3ba2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0025, t01=0x0186}
0x3ba2…3bf2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0026, t01=0x0046}
0x3bf2…3c42 Head {h00=0x004c, h01=0x0050, text=»FMTNCV FRMT «, t00=0x0026, t01=0x0096}
0x3c42…3c92 Head {h00=0x004c, h01=0x0050, text=» FTEXT ' ' «, t00=0x0026, t01=0x00e6}
0x3c92…3ce2 Head {h00=0x004c, h01=0x0050, text=» FILLR ' ',6 «, t00=0x0026, t01=0x0136}
0x3ce2…3d32 Head {h00=0x004c, h01=0x0050, text=» FCOPY ICTEXT2 «, t00=0x0026, t01=0x0186}
0x3d32…3d82 Head {h00=0x004c, h01=0x0050, text=» FTAB 17 «, t00=0x0027, t01=0x0046}
0x3d82…3dd2 Head {h00=0x004c, h01=0x0050, text=» FTEXT ': ' «, t00=0x0027, t01=0x0096}
0x3dd2…3e22 Head {h00=0x004c, h01=0x0050, text=» FTEXT =X'23405B5C5D607B7C7D7E' «, t00=0x0027, t01=0x00e6}
0x3e22…3e72 Head {h00=0x004c, h01=0x0050, text=» FMEND «, t00=0x0027, t01=0x0136}
0x3e72…3ec2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0027, t01=0x0186}
0x3ec2…3f12 Head {h00=0x004c, h01=0x0050, text=» END «, t00=0x0028, t01=0x0046}
0x3f12…3f16 Head {h00=0x4004, h01=0x0000}
0x3f16…3f1a 00 28 00 96 ┆ ( ┆
0x3f1a…3f22 (41, 1, 8) 20 04 00 00 00 29 00 04 ┆ ) ┆
0x3f22…3f72 (42, 0, 398) 52 4d 2c 3d 44 27 31 30 30 27 5c 54 45 52 4d 20 4e 55 4d 42 45 52 49 4e 47 20 00 01 01 84 00 06 00 50 2a 20 00 02 00 22 00 36 00 50 2a 20 54 48 45 20 4e 45 58 54 20 46 4f 52 4d 41 54 20 49 53 20 49 4e 43 4c 55 44 45 44 20 49 4e 20 54 48 45 ┆RM,=D'100' TERM NUMBERING P* " 6 P* THE NEXT FORMAT IS INCLUDED IN THE┆
0x3f72…3fc2 20 41 50 50 4c 49 43 41 54 49 4f 4e 2e 20 00 02 00 2c 00 3e 00 50 2a 20 54 4f 20 49 4e 53 54 52 55 43 54 20 58 42 46 4d 54 2c 20 4e 4f 54 20 54 4f 20 52 45 41 44 20 41 20 46 4f 52 4d 41 54 2c 20 50 41 52 41 4d 45 54 45 52 20 57 27 30 27 20 ┆ APPLICATION. , > P* TO INSTRUCT XBFMT, NOT TO READ A FORMAT, PARAMETER W'0' ┆
0x3fc2…4012 00 02 00 66 00 18 00 50 2a 20 49 53 20 50 41 53 53 45 44 20 54 4f 20 58 42 46 4d 54 00 02 00 a8 00 06 00 50 2a 20 00 02 00 c4 00 2a 00 50 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 46 4d 4f 56 45 2c 46 43 46 4f 52 4d 41 54 2c 46 4d ┆ f P* IS PASSED TO XBFMT P* * P CALL FMOVE,FCFORMAT,FM┆
0x4012…4062 54 56 4f 4c 00 02 00 ce 00 20 00 50 20 20 20 20 20 20 20 20 20 50 45 52 46 20 20 20 20 58 42 46 4d 54 2c 3d 57 27 30 27 00 02 00 fc 00 24 00 50 20 20 20 20 20 20 20 20 20 54 42 54 20 20 20 20 20 53 42 43 41 4e 43 45 4c 2c 43 41 39 30 30 20 ┆TVOL P PERF XBFMT,=W'0' $ P TBT SBCANCEL,CA900 ┆
0x4062…40b0 00 02 01 20 00 46 00 50 20 20 20 20 20 20 20 20 20 43 4f 50 59 20 20 20 20 56 43 46 4d 54 56 4f 4c 2c 4b 57 33 2c 4b 57 33 2c 56 43 56 4f 4c 4e 52 32 2c 4b 57 30 20 20 20 20 46 4d 54 20 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 00 02 01 48 ┆ F P COPY VCFMTVOL,KW3,KW3,VCVOLNR2,KW0 FMT VOLUME NAME H┆
0x40b0…4100 (43, 0, 400) 00 3c 00 50 20 20 20 20 20 20 20 20 20 50 45 52 46 20 20 20 20 5a 4b 4f 50 4e 46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 46 4f 52 4d 41 54 20 46 49 4c 45 20 00 03 00 04 00 24 00 50 20 20 20 20 20 20 20 20 20 54 42 54 ┆ < P PERF ZKOPNF OPEN FORMAT FILE $ P TBT┆
0x4100…4150 20 20 20 20 20 53 42 43 41 4e 43 45 4c 2c 43 41 39 30 30 20 00 03 00 44 00 20 00 50 5c 43 41 4c 4c 5c 46 4d 4f 56 45 2c 46 43 46 4f 52 4d 41 54 2c 46 4d 54 53 59 53 20 00 03 00 6c 00 2e 00 50 5c 50 45 52 46 5c 58 42 46 4d 54 2c 3d 57 27 30 ┆ SBCANCEL,CA900 D P CALL FMOVE,FCFORMAT,FMTSYS l . P PERF XBFMT,=W'0┆
0x4150…41a0 27 5c 4c 41 4e 47 55 41 47 45 20 41 4e 44 20 44 42 53 20 56 4f 4c 4e 41 4d 45 00 03 00 90 00 18 00 50 20 54 42 54 20 53 42 43 41 4e 43 45 4c 2c 43 41 39 30 30 20 00 03 00 c2 00 28 00 50 5c 4d 4f 56 45 5c 4e 44 54 52 4d 4c 47 47 2c 59 44 53 ┆' LANGUAGE AND DBS VOLNAME P TBT SBCANCEL,CA900 ( P MOVE NDTRMLGG,YDS┆
0x41a0…41f0 59 53 4c 47 47 5c 53 45 54 20 4c 41 4e 47 55 41 47 45 00 03 00 de 00 3a 00 50 20 43 4f 50 59 20 56 43 44 42 53 56 4f 4c 2c 4b 57 33 2c 4b 57 33 2c 56 43 56 4f 4c 4e 52 31 2c 4b 57 30 5c 20 20 44 42 53 20 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 ┆YSLGG SET LANGUAGE : P COPY VCDBSVOL,KW3,KW3,VCVOLNR1,KW0 DBS VOLUME NAME ┆
0x41f0…4240 00 03 01 0a 00 06 00 50 2a 20 00 03 01 48 00 4c 00 50 2a 20 4f 50 45 4e 20 44 41 54 41 42 41 53 45 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ P* H L P* OPEN DATABASE ┆
0x4240…4290 (44, 0, 400) 00 00 00 00 00 00 00 00 00 2a 00 03 01 52 00 06 00 50 2a 20 00 04 00 12 00 10 00 50 20 50 45 52 46 20 5a 41 4f 50 4e 44 00 04 00 1c 00 18 00 50 5c 54 42 46 5c 53 42 43 41 4e 43 45 4c 2c 43 41 39 39 39 20 00 04 00 30 00 0a 00 50 43 41 39 30 ┆ * R P* P PERF ZAOPND P TBF SBCANCEL,CA999 0 PCA90┆
0x4290…42e0 30 20 00 04 00 4c 00 54 00 50 5c 50 45 52 46 5c 5a 4c 43 4c 53 46 5c 43 4c 4f 53 45 20 46 4f 52 4d 41 54 46 49 4c 45 20 41 47 41 49 4e 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆0 L T P PERF ZLCLSF CLOSE FORMATFILE AGAIN ┆
0x42e0…4330 00 00 00 00 00 00 00 00 00 00 00 04 00 5a 00 34 00 50 20 4d 4f 56 45 20 59 44 53 54 41 54 55 53 2c 3d 44 27 30 27 5c 52 45 53 45 54 20 54 4f 20 53 59 53 54 45 4d 20 4e 4f 54 20 53 54 41 52 54 45 44 00 04 00 b2 00 0a 00 50 43 41 39 39 39 20 ┆ Z 4 P MOVE YDSTATUS,=D'0' RESET TO SYSTEM NOT STARTED PCA999 ┆
0x4330…4380 00 04 00 ea 00 08 00 50 20 52 45 54 00 04 00 f8 00 0a 00 50 20 50 45 4e 44 20 00 04 01 04 00 4a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P RET P PEND J P**********************************************┆
0x4380…43d0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 04 01 12 00 06 00 50 2a 20 00 04 01 60 00 22 00 50 2a 20 20 47 45 54 20 46 4f 52 4d 41 54 20 46 49 4c 45 20 56 4f 4c 55 4d 45 20 4e 41 4d 45 00 04 01 6a 00 06 00 50 ┆*********************** P* ` " P* GET FORMAT FILE VOLUME NAME j P┆