|
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: 10640 (0x2990)
Notes: pts_type(SC)
Names: »ZMRDF.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/ZMRDF.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/ZMRDF.SC«
IDENT ZMRDF SCREEN I/O DDUM DEMODD PDIV ENTRY ZMRDF EXPROC MASK ************************************************************************ ** * PROCEDURE-NAME :* * ZMRDF* * FUNCTIONAL DESCRIPTION :* * THE PROCEDURE READS A FORMAT FROM THE FORMAT-FILE* * THERE ARE MESSAGE-FORMATS ( MAXIMUM LENGTH 397 BYTES)* * AND NORMAL FORMATS ( MAXIMUM LENGTH 794 BYTES )* * A MESSAGE-FORMAT MUST BE PLACED IN FCBUFFER , WHILE* * FCFMTBUF AND FCFORMAT MAY NOT BE USED* * A NORMAL FORMAT MUST BE PLACED IN FCFORMAT* * AS A RECORD OF THE FORMAT-FILE IS ONLY 400 BYTES IN* * LENGTH , FOR A NORMAL FORMAT IT COULD BE NECESSARY TO* * READ TWO RECORDS OF THE FORMAT-FILE* ** * FIRST THE PROCEDURE TRIES TO READ A RECORD IN THE* * DESIRED LANGUAGE , IF NOT OK THE PROCEDURE TRIES* * TO READ A RECORD IN THE FIRST LANGUAGE ( LANGUGE-* * NUMBER = 0 ) , IF NOT OK AN ERROR-MESSAGE WILL BE* * DISPLAYED AND ABEND OCCURS* * IF READING OF THE SECOND RECORD OF A FORMAT IS NOT OK* * AN ERROR-MESSAGE WILL BE DISPLAYED AND ABEND OCCURS* * PARAMETERS :* * XWFMTNR : RELATIVE FORMAT NUMBER (INPUT )* * XWMSG : MESSAGE-FLAG ( INPUT )* * 0 = NORMAL FORMAT , 1 = MESSAGE-FORMAT* * USE OF VARIABLES :* * NONE* * WORKVARIABLES :* * WWCOUNT : RELATIVE RECORD NUMBER* * WW2 : AMOUNT OF BYTES TO BE MOVED ,* * POINTER IN XCOPY-STATEMENTS* ************************************************************************ ZMRDF PROC XWFMTNR,XWMSG PBIN XWFMTNR,XWMSG ZM000 MOVE WWCOUNT,NDTRMLGG CBL WWCOUNT,KW4,ZM050 MOVE WWCOUNT,KW0 ZM050 MUL WWCOUNT,KWNRFMT ) COMPUTE RELATIVE-RECORD-NR ADD WWCOUNT,XWFMTNR ) MOVE WWINDEX2,=X'8800' * USED IN CALL MASK - INSTRUCTIONS, TEST FOR 'NO DATA' CBE XWMSG,KW1,ZM500 MESSAGE FORMAT ZM100 MOVE WW2,KWFMTLNG * READ FORMAT-RECORD IN DESIRED LANGUAGE MOVE WDEC1,WWCOUNT RECNR TO BCD READ .DIR,DSFMTFLE,FCFMTBUF,WW2,WDEC1 XSTAT DSFMTFLE,WWINDEX1 CALL MASK,WWINDEX1,WWINDEX2 BOK ZM200 MOVE WDEC1,XWFMTNR MOVE WW2,KWFMTLNG * READ DEFAULT FORMAT-RECORD (LANGUAGE-NR = 0 ) READ .DIR,DSFMTFLE,FCFMTBUF,WW2,WDEC1 XSTAT DSFMTFLE,WWINDEX1 CALL MASK,WWINDEX1,WWINDEX2 BNOK ZM900 ZM200 MOVE WW2,KWFMTLNG SUB WW2,KW2 XCOPY FCFORMAT,KW0,WW2,FCFMTBUF,KW0 CBE WWCOUNT,KW1,ZM999 * ( FIRST FORMAT-RECORD CONTAINS FIRST FREE OVERFLOWRECORDNUMBER ) XCOPY WWCOUNT,KW0,KW2,FCFMTBUF,WW2 CBE WWCOUNT,KW0,ZM999 CHECK IF FORMAT IS CONTAINED * IN A SINGLE RECORD* MOVE WW2,KWFMTLNG MOVE WDEC1,WWCOUNT RECNR TO BCD READ .DIR,DSFMTFLE,FCFMTBUF,WW2,WDEC1 XSTAT DSFMTFLE,WWINDEX1 CALL MASK,WWINDEX1,WWINDEX2 BNOK ZM900 MOVE WW2,KWFMTLNG SUB WW2,KW2 XCOPY FCFORMAT,WW2,WW2,FCFMTBUF,KW0 XCOPY WWCOUNT,KW0,KW2,FCFMTBUF,WW2 CBE WWCOUNT,KW0,ZM999 MOVE WW2,KWFMTLNG MOVE WDEC1,WWCOUNT RECNR TO BCD READ .DIR,DSFMTFLE,FCFMTBUF,WW2,WDEC1 XSTAT DSFMTFLE,WWINDEX1 CALL MASK,WWINDEX1,WWINDEX2 BNOK ZM900 MOVE WW2,KWFMTLNG SUB WW2,KW2 MOVE SPBINW1,WW2 ADD SPBINW1,WW2 XCOPY FCFORMAT,SPBINW1,WW2,FCFMTBUF,KW0 B ZM999 ZM500 * READ MESSAGE-FORMAT* MOVE WW2,KWFMTLNG MOVE WDEC1,WWCOUNT RECNR TO BCD READ .DIR,DSFMTFLE,FCBUFFER,WW2,WDEC1 XSTAT DSFMTFLE,WWINDEX1 CALL MASK,WWINDEX1,WWINDEX2 BOK ZM600 MOVE WDEC1,XWFMTNR MOVE WW2,KWFMTLNG READ .DIR,DSFMTFLE,FCBUFFER,WW2,WDEC1 XSTAT DSFMTFLE,WWINDEX1 CALL MASK,WWINDEX1,WWINDEX2 BNOK ZM900 ZM600 MOVE WW2,KWFMTLNG SUB WW2,KW2 XCOPY WWCOUNT,KW0,KW2,FCBUFFER,WW2 * OVERFLOW RECORDNUMBER CBE WWCOUNT,KW0,ZM999 MOVE WW2,KWFMTLNG MOVE WDEC1,WWCOUNT READ .DIR,DSFMTFLE,FCFMTBUF,WW2,WDEC1 BNOK ZM900 MOVE WW2,KWFMTLNG SUB WW2,KW2 MOVE WWCOUNT,=W'146' XCOPY FCBUFFER,WW2,WWCOUNT,FCFMTBUF,KW0 B ZM999 ZM900 EDWRT SPDSSCRN,FMTA WRITE ERROR-MESSAGE SET SBCANCEL ABEND ZM999 RET PEND FMTA FRMT FSL FTEXT 'FAILURE ON FORMAT-FILE-DISK' FNL FTEXT 'FUNCTION ABENDED BY ZMRDF' FMEND END
0x0000…002c (0, 0, 400) Head {h00=0x0028, h01=0x0050, text=» IDENT ZMRDF SCREEN I/O«, t00=0x0000, t01=0x0004}
0x002c…0040 Head {h00=0x0010, h01=0x000c, text=» DDUM DEMODD«, t00=0x0000, t01=0x0030}
0x0040…004e Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0044}
0x004e…0062 Head {h00=0x0010, h01=0x000c, text=» ENTRY ZMRDF«, t00=0x0000, t01=0x0052}
0x0062…0076 Head {h00=0x0010, h01=0x0050, text=» EXPROC MASK«, t00=0x0000, t01=0x0066}
0x0076…00c6 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x007a}
0x00c6…0116 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0000, t01=0x00ca}
0x0116…0166 Head {h00=0x004c, h01=0x0050, text=»* PROCEDURE-NAME : *«, t00=0x0000, t01=0x011a}
0x0166…01b6 Head {h00=0x004c, h01=0x0050, text=»* ZMRDF *«, t00=0x0000, t01=0x016a}
0x01b6…0206 Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION : *«, t00=0x0001, t01=0x002a}
0x0206…0256 Head {h00=0x004c, h01=0x0050, text=»* THE PROCEDURE READS A FORMAT FROM THE FORMAT-FILE *«, t00=0x0001, t01=0x007a}
0x0256…02a6 Head {h00=0x004c, h01=0x0050, text=»* THERE ARE MESSAGE-FORMATS ( MAXIMUM LENGTH 397 BYTES) *«, t00=0x0001, t01=0x00ca}
0x02a6…02f6 Head {h00=0x004c, h01=0x0050, text=»* AND NORMAL FORMATS ( MAXIMUM LENGTH 794 BYTES ) *«, t00=0x0001, t01=0x011a}
0x02f6…0346 Head {h00=0x004c, h01=0x0050, text=»* A MESSAGE-FORMAT MUST BE PLACED IN FCBUFFER , WHILE *«, t00=0x0001, t01=0x016a}
0x0346…0396 Head {h00=0x004c, h01=0x0050, text=»* FCFMTBUF AND FCFORMAT MAY NOT BE USED *«, t00=0x0002, t01=0x002a}
0x0396…03e6 Head {h00=0x004c, h01=0x0050, text=»* A NORMAL FORMAT MUST BE PLACED IN FCFORMAT *«, t00=0x0002, t01=0x007a}
0x03e6…0436 Head {h00=0x004c, h01=0x0050, text=»* AS A RECORD OF THE FORMAT-FILE IS ONLY 400 BYTES IN *«, t00=0x0002, t01=0x00ca}
0x0436…0486 Head {h00=0x004c, h01=0x0050, text=»* LENGTH , FOR A NORMAL FORMAT IT COULD BE NECESSARY TO *«, t00=0x0002, t01=0x011a}
0x0486…04d6 Head {h00=0x004c, h01=0x0050, text=»* READ TWO RECORDS OF THE FORMAT-FILE *«, t00=0x0002, t01=0x016a}
0x04d6…0526 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0003, t01=0x002a}
0x0526…0576 Head {h00=0x004c, h01=0x0050, text=»* FIRST THE PROCEDURE TRIES TO READ A RECORD IN THE *«, t00=0x0003, t01=0x007a}
0x0576…05c6 Head {h00=0x004c, h01=0x0050, text=»* DESIRED LANGUAGE , IF NOT OK THE PROCEDURE TRIES *«, t00=0x0003, t01=0x00ca}
0x05c6…0616 Head {h00=0x004c, h01=0x0050, text=»* TO READ A RECORD IN THE FIRST LANGUAGE ( LANGUGE- *«, t00=0x0003, t01=0x011a}
0x0616…0666 Head {h00=0x004c, h01=0x0050, text=»* NUMBER = 0 ) , IF NOT OK AN ERROR-MESSAGE WILL BE *«, t00=0x0003, t01=0x016a}
0x0666…06b6 Head {h00=0x004c, h01=0x0050, text=»* DISPLAYED AND ABEND OCCURS *«, t00=0x0004, t01=0x002a}
0x06b6…0706 Head {h00=0x004c, h01=0x0050, text=»* IF READING OF THE SECOND RECORD OF A FORMAT IS NOT OK *«, t00=0x0004, t01=0x007a}
0x0706…0756 Head {h00=0x004c, h01=0x0050, text=»* AN ERROR-MESSAGE WILL BE DISPLAYED AND ABEND OCCURS *«, t00=0x0004, t01=0x00ca}
0x0756…07a6 Head {h00=0x004c, h01=0x0050, text=»* PARAMETERS : *«, t00=0x0004, t01=0x011a}
0x07a6…07f6 Head {h00=0x004c, h01=0x0050, text=»* XWFMTNR : RELATIVE FORMAT NUMBER (INPUT ) *«, t00=0x0004, t01=0x016a}
0x07f6…0846 Head {h00=0x004c, h01=0x0050, text=»* XWMSG : MESSAGE-FLAG ( INPUT ) *«, t00=0x0005, t01=0x002a}
0x0846…0896 Head {h00=0x004c, h01=0x0050, text=»* 0 = NORMAL FORMAT , 1 = MESSAGE-FORMAT *«, t00=0x0005, t01=0x007a}
0x0896…08e6 Head {h00=0x004c, h01=0x0050, text=»* USE OF VARIABLES : *«, t00=0x0005, t01=0x00ca}
0x08e6…0936 Head {h00=0x004c, h01=0x0050, text=»* NONE *«, t00=0x0005, t01=0x011a}
0x0936…0986 Head {h00=0x004c, h01=0x0050, text=»* WORKVARIABLES : *«, t00=0x0005, t01=0x016a}
0x0986…09da Head {h00=0x0050, h01=0x0050, text=»* WWCOUNT : RELATIVE RECORD NUMBER *«, t00=0x0006, t01=0x002a}
0x09da…0a2a Head {h00=0x004c, h01=0x0050, text=»* WW2 : AMOUNT OF BYTES TO BE MOVED , *«, t00=0x0006, t01=0x007e}
0x0a2a…0a7a Head {h00=0x004c, h01=0x0050, text=»* POINTER IN XCOPY-STATEMENTS *«, t00=0x0006, t01=0x00ce}
0x0a7a…0aca Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0006, t01=0x011e}
0x0aca…0aea Head {h00=0x001c, h01=0x0050, text=»ZMRDF PROC XWFMTNR,XWMSG«, t00=0x0006, t01=0x016e}
0x0aea…0b06 Head {h00=0x0018, h01=0x0050, text=» PBIN XWFMTNR,XWMSG «, t00=0x0006, t01=0x018e}
0x0b06…0b56 Head {h00=0x004c, h01=0x0050, text=»ZM000 «, t00=0x0007, t01=0x001a}
0x0b56…0baa Head {h00=0x0050, h01=0x0050, text=» MOVE WWCOUNT,NDTRMLGG «, t00=0x0007, t01=0x006a}
0x0baa…0bc8 Head {h00=0x001a, h01=0x0050, text=» CBL WWCOUNT,KW4,ZM050«, t00=0x0007, t01=0x00be}
0x0bc8…0be2 Head {h00=0x0016, h01=0x0050, text=» MOVE WWCOUNT,KW0 «, t00=0x0007, t01=0x00dc}
0x0be2…0bf0 Head {h00=0x000a, h01=0x0050, text=»ZM050 «, t00=0x0007, t01=0x00f6}
0x0bf0…0c44 Head {h00=0x0050, h01=0x0050, text=» MUL WWCOUNT,KWNRFMT ) COMPUTE RELATIVE-RECORD-NR «, t00=0x0007, t01=0x0104}
0x0c44…0c98 Head {h00=0x0050, h01=0x0050, text=» ADD WWCOUNT,XWFMTNR ) «, t00=0x0007, t01=0x0158}
0x0c98…0cb8 Head {h00=0x001c, h01=0x0050, text=» MOVE WWINDEX2,=X'8800' «, t00=0x0008, t01=0x001c}
0x0cb8…0cf6 Head {h00=0x003a, h01=0x0050, text=»* USED IN CALL MASK - INSTRUCTIONS, TEST FOR 'NO DATA'«, t00=0x0008, t01=0x003c}
0x0cf6…0d22 Head {h00=0x0028, h01=0x0050, text=» CBE XWMSG,KW1,ZM500 MESSAGE FORMAT «, t00=0x0008, t01=0x007a}
0x0d22…0d72 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0008, t01=0x00a6}
0x0d72…0dc2 Head {h00=0x004c, h01=0x0050, text=»ZM100 «, t00=0x0008, t01=0x00f6}
0x0dc2…0ddc Head {h00=0x0016, h01=0x0050, text=» MOVE WW2,KWFMTLNG«, t00=0x0008, t01=0x0146}
0x0ddc…0e10 Head {h00=0x0030, h01=0x0050, text=»* READ FORMAT-RECORD IN DESIRED LANGUAGE «, t00=0x0008, t01=0x0160}
0x0e10…0e38 (9, 0, 398) Head {h00=0x0024, h01=0x0050, text=» MOVE WDEC1,WWCOUNT RECNR TO BCD«, t00=0x0009, t01=0x0004}
0x0e38…0e66 Head {h00=0x002a, h01=0x0050, text=» READ .DIR,DSFMTFLE,FCFMTBUF,WW2,WDEC1«, t00=0x0009, t01=0x002c}
0x0e66…0e86 Head {h00=0x001c, h01=0x0050, text=» XSTAT DSFMTFLE,WWINDEX1«, t00=0x0009, t01=0x005a}
0x0e86…0eaa Head {h00=0x0020, h01=0x0050, text=» CALL MASK,WWINDEX1,WWINDEX2«, t00=0x0009, t01=0x007a}
0x0eaa…0efa Head {h00=0x004c, h01=0x0050, text=» BOK ZM200 «, t00=0x0009, t01=0x009e}
0x0efa…0f4c Head {h00=0x004e, h01=0x0050, text=» MOVE WDEC1,XWFMTNR «, t00=0x0009, t01=0x00ee}
0x0f4c…0f66 Head {h00=0x0016, h01=0x0050, text=» MOVE WW2,KWFMTLNG«, t00=0x0009, t01=0x0140}
0x0f66…0fa2 Head {h00=0x0038, h01=0x0050, text=»* READ DEFAULT FORMAT-RECORD (LANGUAGE-NR = 0 ) «, t00=0x0009, t01=0x015a}
0x0fa2…0fd0 Head {h00=0x002a, h01=0x0050, text=» READ .DIR,DSFMTFLE,FCFMTBUF,WW2,WDEC1«, t00=0x000a, t01=0x0008}
0x0fd0…0ff0 Head {h00=0x001c, h01=0x0050, text=» XSTAT DSFMTFLE,WWINDEX1«, t00=0x000a, t01=0x0036}
0x0ff0…1014 Head {h00=0x0020, h01=0x0050, text=» CALL MASK,WWINDEX1,WWINDEX2«, t00=0x000a, t01=0x0056}
0x1014…1064 Head {h00=0x004c, h01=0x0050, text=» BNOK ZM900 «, t00=0x000a, t01=0x007a}
0x1064…10b4 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x000a, t01=0x00ca}
0x10b4…1104 Head {h00=0x004c, h01=0x0050, text=»ZM200 «, t00=0x000a, t01=0x011a}
0x1104…1154 Head {h00=0x004c, h01=0x0050, text=» MOVE WW2,KWFMTLNG «, t00=0x000a, t01=0x016a}
0x1154…11a4 Head {h00=0x004c, h01=0x0050, text=» SUB WW2,KW2 «, t00=0x000b, t01=0x002a}
0x11a4…11f4 Head {h00=0x004c, h01=0x0050, text=» XCOPY FCFORMAT,KW0,WW2,FCFMTBUF,KW0 «, t00=0x000b, t01=0x007a}
0x11f4…1212 Head {h00=0x001a, h01=0x0050, text=» CBE WWCOUNT,KW1,ZM999«, t00=0x000b, t01=0x00ca}
0x1212…1260 Head {h00=0x004a, h01=0x0050, text=»* ( FIRST FORMAT-RECORD CONTAINS FIRST FREE OVERFLOWRECORDNUMBER ) «, t00=0x000b, t01=0x00e8}
0x1260…12b4 Head {h00=0x0050, h01=0x0050, text=» XCOPY WWCOUNT,KW0,KW2,FCFMTBUF,WW2 «, t00=0x000b, t01=0x0136}
0x12b4…1308 Head {h00=0x0050, h01=0x0050, text=» CBE WWCOUNT,KW0,ZM999 CHECK IF FORMAT IS CONTAINED «, t00=0x000b, t01=0x018a}
0x1308…1358 Head {h00=0x004c, h01=0x0050, text=»* IN A SINGLE RECORD *«, t00=0x000c, t01=0x004e}
0x1358…1376 Head {h00=0x001a, h01=0x0050, text=» MOVE WW2,KWFMTLNG «, t00=0x000c, t01=0x009e}
0x1376…139e Head {h00=0x0024, h01=0x0050, text=» MOVE WDEC1,WWCOUNT RECNR TO BCD«, t00=0x000c, t01=0x00bc}
0x139e…13cc Head {h00=0x002a, h01=0x0050, text=» READ .DIR,DSFMTFLE,FCFMTBUF,WW2,WDEC1«, t00=0x000c, t01=0x00e4}
0x13cc…13ec Head {h00=0x001c, h01=0x0050, text=» XSTAT DSFMTFLE,WWINDEX1«, t00=0x000c, t01=0x0112}
0x13ec…1410 Head {h00=0x0020, h01=0x0050, text=» CALL MASK,WWINDEX1,WWINDEX2«, t00=0x000c, t01=0x0132}
0x1410…1460 Head {h00=0x004c, h01=0x0050, text=» BNOK ZM900 «, t00=0x000c, t01=0x0156}
0x1460…147a Head {h00=0x0016, h01=0x0050, text=» MOVE WW2,KWFMTLNG«, t00=0x000d, t01=0x0016}
0x147a…148e Head {h00=0x0010, h01=0x0050, text=» SUB WW2,KW2«, t00=0x000d, t01=0x0030}
0x148e…14de Head {h00=0x004c, h01=0x0050, text=» XCOPY FCFORMAT,WW2,WW2,FCFMTBUF,KW0 «, t00=0x000d, t01=0x0044}
0x14de…150a Head {h00=0x0028, h01=0x0050, text=» XCOPY WWCOUNT,KW0,KW2,FCFMTBUF,WW2 «, t00=0x000d, t01=0x0094}
0x150a…1528 Head {h00=0x001a, h01=0x0050, text=» CBE WWCOUNT,KW0,ZM999«, t00=0x000d, t01=0x00c0}
0x1528…1546 Head {h00=0x001a, h01=0x0050, text=» MOVE WW2,KWFMTLNG «, t00=0x000d, t01=0x00de}
0x1546…156e Head {h00=0x0024, h01=0x0050, text=» MOVE WDEC1,WWCOUNT RECNR TO BCD«, t00=0x000d, t01=0x00fc}
0x156e…159c Head {h00=0x002a, h01=0x0050, text=» READ .DIR,DSFMTFLE,FCFMTBUF,WW2,WDEC1«, t00=0x000d, t01=0x0124}
0x159c…15bc Head {h00=0x001c, h01=0x0050, text=» XSTAT DSFMTFLE,WWINDEX1«, t00=0x000d, t01=0x0152}
0x15bc…15e0 Head {h00=0x0020, h01=0x0050, text=» CALL MASK,WWINDEX1,WWINDEX2«, t00=0x000d, t01=0x0172}
0x15e0…1630 Head {h00=0x004c, h01=0x0050, text=» BNOK ZM900 «, t00=0x000e, t01=0x0008}
0x1630…164a Head {h00=0x0016, h01=0x0050, text=» MOVE WW2,KWFMTLNG«, t00=0x000e, t01=0x0058}
0x164a…165e Head {h00=0x0010, h01=0x0050, text=» SUB WW2,KW2«, t00=0x000e, t01=0x0072}
0x165e…1678 Head {h00=0x0016, h01=0x0050, text=» MOVE SPBINW1,WW2 «, t00=0x000e, t01=0x0086}
0x1678…1690 Head {h00=0x0014, h01=0x0050, text=» ADD SPBINW1,WW2«, t00=0x000e, t01=0x00a0}
0x1690…16c0 Head {h00=0x002c, h01=0x0050, text=» XCOPY FCFORMAT,SPBINW1,WW2,FCFMTBUF,KW0«, t00=0x000e, t01=0x00b8}
0x16c0…1710 Head {h00=0x004c, h01=0x0050, text=» B ZM999 «, t00=0x000e, t01=0x00e8}
0x1710…1760 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x000e, t01=0x0138}
0x1760…17b0 Head {h00=0x004c, h01=0x0050, text=»ZM500 «, t00=0x000e, t01=0x0188}
0x17b0…1800 Head {h00=0x004c, h01=0x0050, text=»* READ MESSAGE-FORMAT *«, t00=0x000f, t01=0x0048}
0x1800…1852 Head {h00=0x004e, h01=0x0050, text=» MOVE WW2,KWFMTLNG «, t00=0x000f, t01=0x0098}
0x1852…187a Head {h00=0x0024, h01=0x0050, text=» MOVE WDEC1,WWCOUNT RECNR TO BCD«, t00=0x000f, t01=0x00ea}
0x187a…18a8 Head {h00=0x002a, h01=0x0050, text=» READ .DIR,DSFMTFLE,FCBUFFER,WW2,WDEC1«, t00=0x000f, t01=0x0112}
0x18a8…18c8 Head {h00=0x001c, h01=0x0050, text=» XSTAT DSFMTFLE,WWINDEX1«, t00=0x000f, t01=0x0140}
0x18c8…18ec Head {h00=0x0020, h01=0x0050, text=» CALL MASK,WWINDEX1,WWINDEX2«, t00=0x000f, t01=0x0160}
0x18ec…193c Head {h00=0x004c, h01=0x0050, text=» BOK ZM600 «, t00=0x000f, t01=0x0184}
0x193c…1958 Head {h00=0x0018, h01=0x0050, text=» MOVE WDEC1,XWFMTNR «, t00=0x0010, t01=0x0044}
0x1958…1972 Head {h00=0x0016, h01=0x0050, text=» MOVE WW2,KWFMTLNG«, t00=0x0010, t01=0x0060}
0x1972…19a0 Head {h00=0x002a, h01=0x0050, text=» READ .DIR,DSFMTFLE,FCBUFFER,WW2,WDEC1«, t00=0x0010, t01=0x007a}
0x19a0…19c0 Head {h00=0x001c, h01=0x0050, text=» XSTAT DSFMTFLE,WWINDEX1«, t00=0x0010, t01=0x00a8}
0x19c0…19e4 Head {h00=0x0020, h01=0x0050, text=» CALL MASK,WWINDEX1,WWINDEX2«, t00=0x0010, t01=0x00c8}
0x19e4…19f8 Head {h00=0x0010, h01=0x0050, text=» BNOK ZM900 «, t00=0x0010, t01=0x00ec}
0x19f8…1a06 Head {h00=0x000a, h01=0x0050, text=»ZM600 «, t00=0x0010, t01=0x0100}
0x1a06…1a20 Head {h00=0x0016, h01=0x0050, text=» MOVE WW2,KWFMTLNG«, t00=0x0010, t01=0x010e}
0x1a20…1a34 Head {h00=0x0010, h01=0x0050, text=» SUB WW2,KW2«, t00=0x0010, t01=0x0128}
0x1a34…1a60 Head {h00=0x0028, h01=0x0050, text=» XCOPY WWCOUNT,KW0,KW2,FCBUFFER,WW2 «, t00=0x0010, t01=0x013c}
0x1a60…1a80 Head {h00=0x001c, h01=0x0050, text=»* OVERFLOW RECORDNUMBER «, t00=0x0010, t01=0x0168}
0x1a80…1a9e Head {h00=0x001a, h01=0x0050, text=» CBE WWCOUNT,KW0,ZM999«, t00=0x0010, t01=0x0188}
0x1a9e…1ab8 Head {h00=0x0016, h01=0x0050, text=» MOVE WW2,KWFMTLNG«, t00=0x0011, t01=0x0016}
0x1ab8…1ad4 Head {h00=0x0018, h01=0x0050, text=» MOVE WDEC1,WWCOUNT «, t00=0x0011, t01=0x0030}
0x1ad4…1b02 Head {h00=0x002a, h01=0x0050, text=» READ .DIR,DSFMTFLE,FCFMTBUF,WW2,WDEC1«, t00=0x0011, t01=0x004c}
0x1b02…1b16 Head {h00=0x0010, h01=0x0050, text=» BNOK ZM900 «, t00=0x0011, t01=0x007a}
0x1b16…1b30 Head {h00=0x0016, h01=0x0050, text=» MOVE WW2,KWFMTLNG«, t00=0x0011, t01=0x008e}
0x1b30…1b44 Head {h00=0x0010, h01=0x0050, text=» SUB WW2,KW2«, t00=0x0011, t01=0x00a8}
0x1b44…1b62 Head {h00=0x001a, h01=0x0050, text=» MOVE WWCOUNT,=W'146' «, t00=0x0011, t01=0x00bc}
0x1b62…1b92 Head {h00=0x002c, h01=0x0050, text=» XCOPY FCBUFFER,WW2,WWCOUNT,FCFMTBUF,KW0«, t00=0x0011, t01=0x00da}
0x1b92…1ba2 Head {h00=0x000c, h01=0x0050, text=» B ZM999«, t00=0x0011, t01=0x010a}
0x1ba2…1bf2 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0011, t01=0x011a}
0x1bf2…1c42 Head {h00=0x004c, h01=0x0050, text=»ZM900 «, t00=0x0011, t01=0x016a}
0x1c42…1c92 Head {h00=0x004c, h01=0x0050, text=» EDWRT SPDSSCRN,FMTA WRITE ERROR-MESSAGE «, t00=0x0012, t01=0x002a}
0x1c92…1cae Head {h00=0x0018, h01=0x0050, text=» SET SBCANCEL ABEND «, t00=0x0012, t01=0x007a}
0x1cae…1cfe Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0012, t01=0x0096}
0x1cfe…1d4e Head {h00=0x004c, h01=0x0050, text=»ZM999 «, t00=0x0012, t01=0x00e6}
0x1d4e…1d9e Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x0012, t01=0x0136}
0x1d9e…1dee Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0012, t01=0x0186}
0x1dee…1e3e Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0013, t01=0x0046}
0x1e3e…1e8e Head {h00=0x004c, h01=0x0050, text=»FMTA FRMT «, t00=0x0013, t01=0x0096}
0x1e8e…1e9a Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0013, t01=0x00e6}
0x1e9a…1eea Head {h00=0x004c, h01=0x0050, text=» FTEXT 'FAILURE ON FORMAT-FILE-DISK' «, t00=0x0013, t01=0x00f2}
0x1eea…1f3a Head {h00=0x004c, h01=0x0050, text=» FNL «, t00=0x0013, t01=0x0142}
0x1f3a…1f64 (20, 2, 142) Head {h00=0x0026, h01=0x0050, text=» FTEXT 'FUNCTION ABENDED BY ZMRDF'«, t00=0x0014, t01=0x0004}
0x1f64…1fb4 Head {h00=0x004c, h01=0x0050, text=» FMEND «, t00=0x0014, t01=0x002e}
0x1fb4…1fc0 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0014, t01=0x007e}
0x1fc0…1fc4 Head {h00=0x4004, h01=0x0000}
0x1fc4…1fc8 00 14 00 8a ┆ ┆
0x1fc8…1fd0 (21, 1, 8) 20 04 00 00 00 15 00 04 ┆ ┆
0x1fd0…2020 (22, 0, 400) 30 41 c8 5a 3a 54 53 50 30 41 c8 44 3a 55 42 46 30 30 c8 55 3a 55 42 46 30 46 c8 44 3a 55 49 46 30 20 c8 55 3a 55 49 46 30 43 c8 44 3a 55 43 59 30 52 02 1c c8 55 3a 55 43 59 30 00 c8 44 3a 55 4f 50 30 00 c8 55 3a 55 4f 50 30 00 c8 44 3a 55 ┆0A Z:TSP0A D:UBF00 U:UBF0F D:UIF0 U:UIF0C D:UCY0R U:UCY0 D:UOP0 U:UOP0 D:U┆
0x2020…2070 41 31 30 00 c8 55 3a 55 41 31 30 00 c8 44 3a 55 41 32 30 00 c8 55 3a 55 41 32 30 00 02 1c c8 44 3a 55 54 31 30 41 c8 55 3a 55 54 31 30 41 c8 44 3a 55 54 32 30 30 c8 55 3a 55 54 32 30 46 c8 44 3a 43 4b 31 30 20 c8 43 3a 43 4b 31 30 43 c8 44 ┆A10 U:UA10 D:UA20 U:UA20 D:UT10A U:UT10A D:UT200 U:UT20F D:CK10 C:CK10C D┆
0x2070…20c0 3a 43 4b 32 30 52 02 0c c8 43 3a 43 4b 32 30 00 c8 44 3a 55 51 51 30 00 c8 55 3a 55 51 51 30 00 07 04 00 00 01 45 01 58 00 00 00 36 54 3a 44 41 30 30 00 e0 00 01 00 01 38 30 30 38 31 33 00 00 00 00 05 05 c8 54 3a 44 41 30 30 44 00 00 02 04 ┆:CK20R C:CK20 D:UQQ0 U:UQQ0 E X 6T:DA00 800813 T:DA00D ┆
0x20c0…2110 c8 41 41 4d 41 49 4e 00 07 04 00 00 00 01 00 2a 00 00 00 ea 5a 44 53 43 49 4f 00 e1 00 07 00 07 38 30 30 38 31 33 00 00 00 00 02 04 c8 24 24 24 54 52 41 00 05 1c c8 5a 41 4f 50 4e 44 53 00 00 c8 5a 42 43 4c 53 44 31 00 96 a8 5a 43 52 44 44 ┆ AAMAIN * ZDSCIO 800813 $$$TRA ZAOPNDS ZBCLSD1 ZCRDD┆
0x2110…2160 00 a1 c8 5a 44 52 57 52 44 31 00 f3 c8 5a 45 49 4e 53 44 20 01 17 a8 5a 47 52 45 41 01 37 05 0e c8 5a 48 57 52 49 44 00 01 3c c8 5a 59 52 4c 4e 47 5a 01 56 a8 5a 5a 45 52 52 01 8f 02 1f 88 4d 41 53 4b 4e c8 51 45 4d 4f 56 45 43 c8 54 3a 43 ┆ ZDRWRD1 ZEINSD ZGREA 7 ZHWRID < ZYRLNGZ V ZZERR MASKN QEMOVEC T:C┆
0x2160…21b0 (23, 2, 96) 4c 4f 53 5a c8 54 3a 43 4f 4d 4d 5a c8 54 3a 45 44 57 52 f3 c8 54 3a 49 52 45 41 20 c8 54 3a 49 52 45 57 41 c8 54 3a 49 57 52 49 00 02 13 c8 54 3a 4f 50 45 4e 00 c8 54 3a 52 53 54 41 4e c8 54 3a 58 53 54 41 45 c8 58 41 4b 42 49 4e 5a a8 58 ┆LOSZ T:COMMZ T:EDWR T:IREA T:IREWA T:IWRI T:OPEN T:RSTAN T:XSTAE XAKBINZ X┆
0x21b0…21c0 45 45 52 52 07 04 00 00 01 b3 01 bc 00 00 ff fe ┆EERR ┆
0x21c0…2210 (24, 0, 400) 00 09 00 04 00 1d 30 04 00 21 30 04 00 25 30 04 00 29 30 04 00 2d 30 06 00 31 30 03 00 37 00 84 00 00 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ 0 !0 %0 )0 -0 10 7 ┆
0x2210…2260 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 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 ┆ ┆
0x2260…22b0 00 2a 00 26 30 06 00 00 30 03 00 06 00 06 00 09 00 12 00 0f 30 01 00 21 30 02 00 22 30 01 00 24 f0 06 00 25 05 03 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * &0 0 0 !0 "0 $ % ┆
0x22b0…2300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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 ┆ ┆
0x2300…2350 00 00 00 00 20 20 20 2a 00 42 30 06 00 00 30 03 00 06 00 14 00 09 00 14 00 1d 00 14 00 31 00 06 00 45 30 01 00 4b 30 06 00 4c 30 06 00 52 30 06 00 58 30 06 00 5e 30 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c ┆ * B0 0 1 E0 K0 L0 R0 X0 ^0 ┆
0x2350…23a0 (25, 0, 400) 00 64 30 06 00 66 30 06 00 6c 30 06 00 72 00 03 00 78 00 7c 00 00 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ d0 f0 l0 r x | ┆
0x23a0…23f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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 3e 30 06 00 00 30 03 00 06 00 14 00 09 00 14 00 1d ┆ >0 0 ┆
0x23f0…2440 00 14 00 31 00 06 00 45 30 01 00 4b 30 06 00 4c 30 06 00 52 30 06 00 58 30 06 00 5e 30 02 00 64 30 06 00 66 30 06 00 6c 30 06 00 72 00 50 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 ┆ 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P ┆
0x2440…2490 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 32 30 06 00 00 30 03 00 06 30 02 00 09 30 04 00 0b 30 06 00 0f 30 06 00 15 30 06 00 1b 30 06 00 21 30 06 ┆ * 20 0 0 0 0 0 0 0 !0 ┆
0x2490…24e0 00 27 30 06 00 2d 30 04 00 33 00 14 00 37 00 50 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 ┆ '0 -0 3 7 P ┆
0x24e0…2530 (26, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 32 30 06 00 00 30 03 00 06 30 02 00 09 30 04 00 0b 30 06 00 0f 30 06 00 15 30 06 00 1b 30 06 00 21 30 06 00 27 30 06 00 2d ┆ * 20 0 0 0 0 0 0 0 !0 '0 -┆
0x2530…2580 30 04 00 33 00 14 00 37 00 28 00 00 00 00 00 01 00 02 00 03 00 04 00 05 00 06 00 ff 00 64 b1 b4 b1 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 00 3e 20 02 00 00 20 02 00 02 20 02 00 04 20 02 00 06 20 02 00 08 20 02 00 0a 20 02 00 0c 20 02 ┆0 3 7 ( d > ┆
0x2580…25d0 00 0e 20 02 00 10 30 01 00 12 30 01 00 13 30 02 00 14 30 04 00 16 30 04 00 1a 00 06 00 1e 00 48 00 00 00 03 00 04 00 01 00 14 00 13 00 15 00 16 00 03 00 04 00 11 00 01 00 15 00 0c 90 66 92 66 93 66 94 66 95 66 96 66 97 66 99 66 98 66 80 66 ┆ 0 0 0 0 0 H f f f f f f f f f f┆
0x25d0…2620 91 66 80 66 80 55 80 44 80 44 90 44 90 55 90 55 90 66 90 44 9a 66 00 3e 20 02 00 00 20 02 00 02 20 02 00 04 20 02 00 06 20 02 00 08 20 02 00 0a 20 02 00 0c 20 02 00 0e 20 02 00 10 20 02 00 12 20 02 00 14 20 02 00 16 20 02 00 18 80 02 00 1a ┆ f f U D D D U U f D f > ┆
0x2620…2670 00 15 00 00 00 1c 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 1a 20 02 00 00 20 02 00 02 20 02 00 04 30 06 00 06 30 06 00 0c 30 06 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c ┆ 0 0 0 ┆
0x2670…26c0 (27, 0, 400) 00 12 01 c2 01 c6 00 00 00 00 00 00 00 00 00 00 00 00 00 68 00 00 00 18 00 00 00 35 00 00 00 12 00 00 00 00 00 00 11 11 00 01 01 fe 00 00 00 00 00 00 00 00 00 00 01 14 4e 01 44 20 01 45 18 01 58 51 6a 14 44 45 58 d0 01 44 27 01 57 50 6a 14 ┆ h 5 N D E XQj DEX D' WPj ┆
0x26c0…2710 44 d6 57 d0 01 44 2a 6a 14 44 d3 11 d0 01 44 46 30 01 18 01 00 14 44 50 0d 31 02 90 10 80 01 10 18 41 e4 07 41 32 34 00 30 03 18 34 00 31 02 90 11 01 00 33 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 ┆D W D*j D DF0 DP 1 A A24 0 4 1 3 ┆
0x2710…2760 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 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 01 00 06 01 b4 ┆ ┆
0x2760…27b0 00 00 00 01 00 02 00 03 00 04 00 05 00 06 00 07 00 08 00 09 00 0a 00 0b 00 0c 00 0d 00 0e 00 0f 00 10 00 11 00 12 00 13 00 14 00 15 00 16 00 1a 00 1b 00 1c 00 1d 00 1e 00 1f 00 20 00 21 00 22 00 25 00 26 00 28 00 29 00 2a 00 2d 00 2e 00 2f ┆ ! " % & ( ) * - . /┆
0x27b0…2800 00 30 00 31 00 32 00 34 00 35 00 36 00 38 00 39 00 3a 00 3b 00 3c 00 3e 00 3f 00 40 00 42 00 44 00 45 00 46 00 47 00 48 00 49 00 4a 00 20 31 44 53 43 30 30 31 46 4f 52 60 00 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 ┆ 0 1 2 4 5 6 8 9 : ; < > ? @ B D E F G H I J 1DSC001FOR` ┆
0x2800…2850 (28, 0, 400) 4d 46 49 4c 45 b1 b2 b3 b4 b5 b6 b7 b0 10 b0 12 b0 17 b0 18 b0 19 b0 26 b0 28 b0 29 b0 30 b0 39 b0 44 b0 45 b0 46 b0 50 b0 53 39 5a 39 39 5a 39 5a 5a 39 39 39 5a 5a 5a 39 39 39 39 5a 5a 5a 5a 39 39 39 39 39 5a 5a 5a 5a 39 5a 5a 5a 5a 5a 39 ┆MFILE & ( ) 0 9 D E F P S9Z99Z9ZZ999ZZZ9999ZZZZ99999ZZZZ9ZZZZZ9┆
0x2850…28a0 39 39 39 39 39 39 39 45 3a 39 39 5a 5a 45 3a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 39 2c 39 39 5a 5a 5a 5a 2c 5a 5a 5a 5a 5a 39 2c 39 39 2d 5a 5a 5a 5a 39 2c 30 30 5a 5a 5a 5a 39 2c 39 39 5a 5a 56 5a 5a 39 2c 39 39 5a 5a 56 5a 5a 5a 2c 5a 5a 5a ┆9999999E:99ZZE:ZZZZZZZZZZZ9,99ZZZZ,ZZZZZ9,99-ZZZZ9,00ZZZZ9,99ZZVZZ9,99ZZVZZZ,ZZZ┆
0x28a0…28f0 5a 5a 5a 39 2c 39 39 2d 5a 5a 5a 5a 5a 39 2c 39 39 5a 5a 5a 5a 5a 5a 2c 5a 5a 39 39 45 2d 39 39 45 2d 39 39 5a 5a 45 2d 5a 5a 45 2d 5a 5a 5a 5a 5a 5a 5a 39 2c 39 39 2d 5a 5a 5a 5a 5a 5a 5a 5a 39 2c 39 39 5a 5a 5a 5a 5a 5a 5a 5a 5a 2c 5a 5a ┆ZZZ9,99-ZZZZZ9,99ZZZZZZ,ZZ99E-99E-99ZZE-ZZE-ZZZZZZZ9,99-ZZZZZZZZ9,99ZZZZZZZZZ,ZZ┆
0x28f0…2940 5a 5a 5a 5a 5a 5a 5a 5a 39 2c 39 39 2d 5a 5a 5a 5a 5a 5a 5a 5a 5a 2c 5a 5a 2d 5a 5a 56 5a 5a 5a 56 5a 5a 39 2c 39 39 2d 5a 5a 5a 56 5a 5a 5a 56 5a 5a 39 2c 39 39 5a 5a 5a 56 5a 5a 5a 56 5a 5a 5a 2c 5a 5a 46 2a 5a 56 5a 5a 5a 56 5a 5a 39 2c ┆ZZZZZZZZ9,99-ZZZZZZZZZ,ZZ-ZZVZZZVZZ9,99-ZZZVZZZVZZ9,99ZZZVZZZVZZZ,ZZF*ZVZZZVZZ9,┆
0x2940…2990 39 39 2d 02 3f 09 0c 82 84 88 81 a3 ff ff 90 a2 ff 96 97 0c c2 c4 c8 c1 e3 ff ff d0 e2 ff d6 d7 15 98 a3 ff 90 a2 ff 96 97 ff ff ff ff ff ff 91 ff 3c 92 80 93 94 15 98 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c ┆99- ? < ┆