|
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: 11200 (0x2bc0)
Notes: pts_type(SC)
Names: »FORMAT.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »HJFORMAT/FORMAT.SC«
IDENT FORMAT
************************************************************************
* FUNCTIONAL DESCRIPTION : *
* BUILDING 100 FORMATS OF THE FORMAT-FILE IN A *
* LANGUAGE ; EACH FORMAT HAS A LENGTH OF 1 RECORD *
* MINIMAL ( 253 BYTES ) AND 2 RECORDS MAXIMAL *
* A MAXIMUM OF 4 LANGUAGES IS ALLOWED *
* THE 100 FORMATS ARE GROUPED TOGETHER IN A FORMAT- *
* TABEL AND HAVE THE NAMES FMT01 - - - FMT100 *
* IF ANOTHER LANGUAGE IS WANTED , TRANSLATE THE *
* TEXT IN THE FTEXT-STATEMENTS OF THE 100 FORMATS IN*
* THE DESIRED LANGUAGE AND EXECUTE THIS MODULE. *
* AFTER CREATION OF A ( EMPTY ) FORMAT-FILE , THE *
* FIRST LANGUAGE-NUMBER ( AFTER EXECUTING THIS MODULE
* WILL BE O (ZERO) ; THE LANGUAGE NUMBER OF THE OTHER
* 3 HAVE TO BE 1 OR 2 OR 3 IN ANY ORDER *
* THIS FORMAT-FILE WILL BE USED BY PROGRAM 'DEMODD' *
* IF A FORMAT-RECORD CONTAINS MORE BYTES THAN A *
* RECORD , THE REMAINING PART OF THE FORMAT- *
* RECORD IS WRITTEN ON THE FIRST FREE OVERFLOW-*
* RECORD ; THE RELATIVE RECORD-NUMBER OF THE *
* OVERFLOW-RECORD WILL BE WRITTEN IN THE LAST *
* TWO BYTES OF THE CONCERNING FORMAT-RECORD *
* PROCEDURES USED : BALGG (LOOKS FOR A FREE LANGUAGE-NUMBER ) *
* ZKOPNF ( OPENS FORMAT-FILE ) *
* ZLCLSF ( CLOSES FORMAT-FILE ) *
************************************************************************
DDUM DEMODD
PDIV
************************************************************************
* FUNCTIONAL DESCRIPTION *
* MAIN PROCEDURE , RULES THIS MODULE *
* INITIALIZATION *
* ASKS VOLUME-NUMBER OF FORMAT-FILE *
* READS FIRST RECORD OF FORMAT-FILE *
* IF NOT O.K. :-LANGUAGE-NUMBER WILL BE ZERO *
* -FIRST FREE OVERFLOW-RECORD *
* WILL BE TOTAL AMOUNT OF LANG *
* UAGES X TOTAL AMOUNT OF FORMATS*
* +1 ( IN THIS CASE 4X100+1=401 *
* IF O.K. :-LAST TWO BYTES CONTAIN THE
* FIRST FREE OVERFLOW-RECORDNR. *
* -ASKS LANGUAGE-NUMBER *
* WRITES FORMATS ON FORMAT-FILE ; THE RELATIVE *
* RECORDNUMBER OF A FORMAT ON THE FORMAT-FILE *
* WILL BE : LANGUAGE-NUMBER X TOTAL AMOUNT OF *
* FORMATS IN THE FORMAT-TABLE + FORMAT-NUMBER *
* ( IF E.G. LANGUAGE-NUMBER = 3 AND *
* FORMAT-NUMBER = 17 , THE RELATIVE RECORD- *
* NUMBER WILL BE 3X100 + 17 = 317 ) *
************************************************************************
EXPROC ZKOPNF
EXPROC ZLCLSF
EXPROC FMOVE
EXPROC MASK
ENTRY AAMAIN
KTB KTAB X'FF',X'90',X'92'
EJECT
AAMAIN
AA000
DSC0 SPDSDYKB,02 CLEAR BUFFER
EDWRT SPDSSCRN,FMTI
EDWRT SPDSSCRN,FMTF
MOVE KWCONT,=W'6'
KI SPDSDYKB,WCSTRG6,KTB,KWCONT,KWSPCONT
CBNE KWSPCONT,KW3,AA000
CBG YDSTATUS,=D'0',AA000
AA100
MOVE YDSTATUS,=D'1'
MOVE WW2,KDMAXLGG )
MUL WW2,KWNRFMT ) COMPUTE FIRST OVERFLOW-REC
ADD WW2,KW1
AA200
EDWRT SPDSSCRN,FMTI
EDWRT SPDSSCRN,FMTA ASK VOLUME-NAME
DSC0 SPDSDYKB,02
MOVE KWCONT,KW3
NKI SPDSDYKB,VCVOLNR2,KTB,KWCONT,KWSPCONT
CBNE KWCONT,KW3,AA200
USE UBF,KW1 ACCESS USERWORKBLOCK
PERF ZKOPNF
BNOK AA900
MOVE NWTOTBYT,KWFMTLNG
SUB NWTOTBYT,KW2
MOVE KWCONT,KWFMTLNG
READ .DIR,DSFMTFLE,FCFMTBUF,KWCONT,KD1
XSTAT DSFMTFLE,WW1
MOVE WWINDEX1,=X'8800' NO DATA
CALL MASK,WW1,WWINDEX1
BNOK AA400
AA300
COMMIT NWXSTAT
XCOPY WW2,KW0,KW2,FCFMTBUF,NWTOTBYT FIRST FREE OVERFLOW-RECORD
PERF BALGG
AA400
MOVE WWINDEX1,KW0 INITIATE FORMAT-NR
AA500
COMMIT NWXSTAT
ADD WWINDEX2,KW1 GIVES RELATIVE-RECORD-NR
ADD WWINDEX1,KW1 GIVES FORMAT-NR
CBG WWINDEX1,KWNRFMT,AA700 FORMAT-NR > 100 ?
CALL FMOVE,FCFORMAT,FMTTAB(WWINDEX1)
MOVE FCFMTBUF,=D'0'
XCOPY FCFMTBUF,KW0,NWTOTBYT,FCFORMAT,KW0
XCOPY SPBINW3,KW0,KW2,FCFORMAT,NWTOTBYT
MOVE SPBINW4,=X'E9E9'
MOVE WDEC1,WWINDEX2
CBNE SPBINW3,SPBINW4,AA600
WRITE .DIR,DSFMTFLE,FCFMTBUF,WDEC1
XSTAT DSFMTFLE,KWCANCEL
BNERR AA500
B AA910
AA600
* FORMATS ARE LONGER THAN 1 RECORD ; 1 RECORD + 1 OVERFLOW-RECORD
* HAVE TO BE WRITTEN ON THE FORMAT-FILE
XCOPY FCFMTBUF,NWTOTBYT,KW2,WW2,KW0
WRITE .DIR,DSFMTFLE,FCFMTBUF,WDEC1
MOVE FCFMTBUF,=D'0'
XCOPY FCFMTBUF,KW0,NWTOTBYT,FCFORMAT,NWTOTBYT
MOVE WDEC2,WW2
MOVE SPBINW1,NWTOTBYT
ADD SPBINW1,NWTOTBYT
XCOPY SPBINW3,KW0,KW2,FCFORMAT,SPBINW1
CBNE SPBINW3,SPBINW4,AA650
WRITE .DIR,DSFMTFLE,FCFMTBUF,WDEC2
ADD WW2,KW1 NEXT OVERFLOW-RECORDNUMBER
B AA500
AA650
* FORMATS ARE LONGER THAN 1RECORD + 1 OVERFLOW RECORD
ADD WW2,KW1
XCOPY FCFMTBUF,NWTOTBYT,KW2,WW2,KW0
WRITE .DIR,DSFMTFLE,FCFMTBUF,WDEC2
MOVE FCFMTBUF,=D'0'
XCOPY FCFMTBUF,KW0,NWTOTBYT,FCFORMAT,SPBINW1
MOVE WDEC2,WW2
WRITE .DIR,DSFMTFLE,FCFMTBUF,WDEC2
XSTAT DSFMTFLE,NWXSTAT
ADD WW2,KW1
B AA500
AA700
* WRITE FIRST FREE OVERFLOW-RECORDNUMBER
* INTO THE FIRST FORMAT-RECORD
XCOPY FCFMTBUF,NWTOTBYT,KW2,WW2,KW0
DISCARD .DIR,DSFMTFLE,KD1
WRITE .DIR,DSFMTFLE,FCFMTBUF,KD1
XSTAT DSFMTFLE,NWXSTAT
B AA920
AA900
RSTAT DSFMTFLE,NWXSTAT READ STATUS
EDWRT SPDSSCRN,FMTI
EDWRT SPDSSCRN,FMTC OPEN UNSUCCESSFULL
B AA999
AA910
EDWRT SPDSSCRN,FMTI
EDWRT SPDSSCRN,FMTG I/O ERROR
B AA999
AA920
EDWRT SPDSSCRN,FMTI
EDWRT SPDSSCRN,FMTH SUCCESSFULL END
B AA999
AA930
EDWRT SPDSSCRN,FMTI
EDWRT SPDSSCRN,FMTE OVERFLOW
B AA999
AA940
EDWRT SPDSSCRN,FMTI
EDWRT SPDSSCRN,FMTD AMOUNT LANG.NRS > 6
AA999
PERF ZLCLSF
EXIT
EJECT
BALGG PROC
************************************************************************
* FUNCTIONAL DESCRIPTION : *
* LOOKING FOR A FREE LANGUAGE-NUMBER *
* LANGUAGE-NR MUST BE 1 , 2 OR 3 *
* THE PROCEDURE "BALGG" READS THE FIRST FORMAT- *
* RECORD OF THE CONCERNED LANGUAGE,
* THE PROCEDURE "MASK" GIVES A CONDITION-CODE EQUAL
* 1 WHEN THE FORMAT-RECORD CONTAINS NO DATA *
* THE MAXIMUM AMOUNT OF TRY-OUTS WILL BE 6 *
************************************************************************
BA000
MOVE WWCOUNT,KW0 INITIATE AMOUNT OF TRIES
MOVE WW1,KDMAXLGG
BA100
EDWRT SPDSSCRN,FMTI
EDWRT SPDSSCRN,FMTB
DSC0 SPDSDYKB,02
MOVE KWCONT,KW1
NKI SPDSDYKB,VCVOLNR1,KTB,KWCONT,KWSPCONT
CBNE KWCONT,KW1,BA200
MOVE NDTRMLGG,VCVOLNR1
MOVE WWINDEX2,NDTRMLGG
CBE WWINDEX2,KW0,BA200
CBNL WWINDEX2,WW1,BA200
MUL WWINDEX2,KWNRFMT COUNT RELATIVE-RECORD-NUMBER
ADD WWINDEX2,KW1 COUNT RELATIVE-RECORD-NUMBER
MOVE KWCONT,KWFMTLNG
MOVE WDEC1,WW1
READ .DIR,DSFMTFLE,FCFMTBUF,KWCONT,WDEC1
XSTAT DSFMTFLE,WW1
MOVE WWINDEX1,=X'8800' NO DATA
CALL MASK,WW1,WWINDEX1
BNOK BA900
BA200
COMMIT NWXSTAT
ADD WWCOUNT,KW1
CBNG WWCOUNT,=W'6',BA100
* TO PREVENT AN ENDLESS LOOP
B AA940
BA900
COMMIT NWXSTAT
SUB WWINDEX2,KW1
BA999
RET
PEND
EJECT
INCLUDE ENGDEF,LIST FORMAT DEFINITIONS
************************************************************************
*
*
FMTA FRMT
FSL
FTEXT ' VOLUME-NAME ? : DSC'
FMEND
FMTB FRMT
FSL
FTEXT 'LANGUAGE-NUMBER ? (1 OR 2 OR 3 ):'
FMEND
FMTC FRMT
FSL
FTEXT 'OPEN FORMAT-FILE NOT SUCCESSFULL'
FMEND
FMTD FRMT
FSL
FTEXT 'MORE THAN 6 LANGUAGE-NUMBERS TRIED'
FNL
FTEXT 'PERHAPS NO FREE LANGUAGE-NUMBER'
FMEND
FMTE FRMT
FSL
FTEXT 'OVERFLOW OF OVERFLOW-AREA'
FNL
FTEXT '** JOB ABENDED **'
FMEND
FMTF FRMT
FNL
FTEXT 'PRESS CONTINUE'
FMEND
FMTG FRMT
FNL
FTEXT 'I/O ERROR WHILE READING OR '
FSL
FTEXT 'WRITING FORMAT-FILE'
FMEND
FMTH FRMT
FNL
FTEXT 'PGM "FORMAT" SUCCESSFULLY EXECUTED'
FMEND
FMTI FRMT CLEARS SCREEN
FCOPY =X'2031'
FMEND
END
0x0000…001e (0, 0, 400) Head {h00=0x001a, h01=0x0050, text=» IDENT FORMAT «, t00=0x0000, t01=0x0004}
0x001e…006e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x0022}
0x006e…00be Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION : *«, t00=0x0000, t01=0x0072}
0x00be…010e Head {h00=0x004c, h01=0x0050, text=»* BUILDING 100 FORMATS OF THE FORMAT-FILE IN A *«, t00=0x0000, t01=0x00c2}
0x010e…015e Head {h00=0x004c, h01=0x0050, text=»* LANGUAGE ; EACH FORMAT HAS A LENGTH OF 1 RECORD *«, t00=0x0000, t01=0x0112}
0x015e…01ae Head {h00=0x004c, h01=0x0050, text=»* MINIMAL ( 253 BYTES ) AND 2 RECORDS MAXIMAL *«, t00=0x0000, t01=0x0162}
0x01ae…01fe Head {h00=0x004c, h01=0x0050, text=»* A MAXIMUM OF 4 LANGUAGES IS ALLOWED *«, t00=0x0001, t01=0x0022}
0x01fe…024e Head {h00=0x004c, h01=0x0050, text=»* THE 100 FORMATS ARE GROUPED TOGETHER IN A FORMAT- *«, t00=0x0001, t01=0x0072}
0x024e…029e Head {h00=0x004c, h01=0x0050, text=»* TABEL AND HAVE THE NAMES FMT01 - - - FMT100 *«, t00=0x0001, t01=0x00c2}
0x029e…02ee Head {h00=0x004c, h01=0x0050, text=»* IF ANOTHER LANGUAGE IS WANTED , TRANSLATE THE *«, t00=0x0001, t01=0x0112}
0x02ee…033e Head {h00=0x004c, h01=0x0050, text=»* TEXT IN THE FTEXT-STATEMENTS OF THE 100 FORMATS IN*«, t00=0x0001, t01=0x0162}
0x033e…038e Head {h00=0x004c, h01=0x0050, text=»* THE DESIRED LANGUAGE AND EXECUTE THIS MODULE. *«, t00=0x0002, t01=0x0022}
0x038e…03de Head {h00=0x004c, h01=0x0050, text=»* AFTER CREATION OF A ( EMPTY ) FORMAT-FILE , THE *«, t00=0x0002, t01=0x0072}
0x03de…042e Head {h00=0x004c, h01=0x0050, text=»* FIRST LANGUAGE-NUMBER ( AFTER EXECUTING THIS MODULE«, t00=0x0002, t01=0x00c2}
0x042e…047e Head {h00=0x004c, h01=0x0050, text=»* WILL BE O (ZERO) ; THE LANGUAGE NUMBER OF THE OTHER«, t00=0x0002, t01=0x0112}
0x047e…04ce Head {h00=0x004c, h01=0x0050, text=»* 3 HAVE TO BE 1 OR 2 OR 3 IN ANY ORDER *«, t00=0x0002, t01=0x0162}
0x04ce…051e Head {h00=0x004c, h01=0x0050, text=»* THIS FORMAT-FILE WILL BE USED BY PROGRAM 'DEMODD' *«, t00=0x0003, t01=0x0022}
0x051e…056e Head {h00=0x004c, h01=0x0050, text=»* IF A FORMAT-RECORD CONTAINS MORE BYTES THAN A *«, t00=0x0003, t01=0x0072}
0x056e…05be Head {h00=0x004c, h01=0x0050, text=»* RECORD , THE REMAINING PART OF THE FORMAT- *«, t00=0x0003, t01=0x00c2}
0x05be…060e Head {h00=0x004c, h01=0x0050, text=»* RECORD IS WRITTEN ON THE FIRST FREE OVERFLOW-*«, t00=0x0003, t01=0x0112}
0x060e…065e Head {h00=0x004c, h01=0x0050, text=»* RECORD ; THE RELATIVE RECORD-NUMBER OF THE *«, t00=0x0003, t01=0x0162}
0x065e…06ae Head {h00=0x004c, h01=0x0050, text=»* OVERFLOW-RECORD WILL BE WRITTEN IN THE LAST *«, t00=0x0004, t01=0x0022}
0x06ae…06fe Head {h00=0x004c, h01=0x0050, text=»* TWO BYTES OF THE CONCERNING FORMAT-RECORD *«, t00=0x0004, t01=0x0072}
0x06fe…074e Head {h00=0x004c, h01=0x0050, text=»* PROCEDURES USED : BALGG (LOOKS FOR A FREE LANGUAGE-NUMBER ) *«, t00=0x0004, t01=0x00c2}
0x074e…079e Head {h00=0x004c, h01=0x0050, text=»* ZKOPNF ( OPENS FORMAT-FILE ) *«, t00=0x0004, t01=0x0112}
0x079e…07ee Head {h00=0x004c, h01=0x0050, text=»* ZLCLSF ( CLOSES FORMAT-FILE ) *«, t00=0x0004, t01=0x0162}
0x07ee…083e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0005, t01=0x0022}
0x083e…0852 Head {h00=0x0010, h01=0x0050, text=» DDUM DEMODD«, t00=0x0005, t01=0x0072}
0x0852…0866 Head {h00=0x0010, h01=0x0050, text=» PDIV «, t00=0x0005, t01=0x0086}
0x0866…08b6 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0005, t01=0x009a}
0x08b6…0906 Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION *«, t00=0x0005, t01=0x00ea}
0x0906…0956 Head {h00=0x004c, h01=0x0050, text=»* MAIN PROCEDURE , RULES THIS MODULE *«, t00=0x0005, t01=0x013a}
0x0956…09a6 Head {h00=0x004c, h01=0x0050, text=»* INITIALIZATION *«, t00=0x0005, t01=0x018a}
0x09a6…09f6 Head {h00=0x004c, h01=0x0050, text=»* ASKS VOLUME-NUMBER OF FORMAT-FILE *«, t00=0x0006, t01=0x004a}
0x09f6…0a46 Head {h00=0x004c, h01=0x0050, text=»* READS FIRST RECORD OF FORMAT-FILE *«, t00=0x0006, t01=0x009a}
0x0a46…0a96 Head {h00=0x004c, h01=0x0050, text=»* IF NOT O.K. :-LANGUAGE-NUMBER WILL BE ZERO *«, t00=0x0006, t01=0x00ea}
0x0a96…0ae6 Head {h00=0x004c, h01=0x0050, text=»* -FIRST FREE OVERFLOW-RECORD *«, t00=0x0006, t01=0x013a}
0x0ae6…0b36 Head {h00=0x004c, h01=0x0050, text=»* WILL BE TOTAL AMOUNT OF LANG *«, t00=0x0006, t01=0x018a}
0x0b36…0b86 Head {h00=0x004c, h01=0x0050, text=»* UAGES X TOTAL AMOUNT OF FORMATS*«, t00=0x0007, t01=0x004a}
0x0b86…0bd6 Head {h00=0x004c, h01=0x0050, text=»* +1 ( IN THIS CASE 4X100+1=401 *«, t00=0x0007, t01=0x009a}
0x0bd6…0c2c Head {h00=0x0052, h01=0x0050, text=»* IF O.K. :-LAST TWO BYTES CONTAIN THE «, t00=0x0007, t01=0x00ea}
0x0c2c…0c7c Head {h00=0x004c, h01=0x0050, text=»* FIRST FREE OVERFLOW-RECORDNR. *«, t00=0x0007, t01=0x0140}
0x0c7c…0ccc Head {h00=0x004c, h01=0x0050, text=»* -ASKS LANGUAGE-NUMBER *«, t00=0x0007, t01=0x0190}
0x0ccc…0d1c Head {h00=0x004c, h01=0x0050, text=»* WRITES FORMATS ON FORMAT-FILE ; THE RELATIVE *«, t00=0x0008, t01=0x0050}
0x0d1c…0d6c Head {h00=0x004c, h01=0x0050, text=»* RECORDNUMBER OF A FORMAT ON THE FORMAT-FILE *«, t00=0x0008, t01=0x00a0}
0x0d6c…0dbc Head {h00=0x004c, h01=0x0050, text=»* WILL BE : LANGUAGE-NUMBER X TOTAL AMOUNT OF *«, t00=0x0008, t01=0x00f0}
0x0dbc…0e0c Head {h00=0x004c, h01=0x0050, text=»* FORMATS IN THE FORMAT-TABLE + FORMAT-NUMBER *«, t00=0x0008, t01=0x0140}
0x0e0c…0e5c Head {h00=0x004c, h01=0x0050, text=»* ( IF E.G. LANGUAGE-NUMBER = 3 AND *«, t00=0x0008, t01=0x0190}
0x0e5c…0eac Head {h00=0x004c, h01=0x0050, text=»* FORMAT-NUMBER = 17 , THE RELATIVE RECORD- *«, t00=0x0009, t01=0x0050}
0x0eac…0efc Head {h00=0x004c, h01=0x0050, text=»* NUMBER WILL BE 3X100 + 17 = 317 ) *«, t00=0x0009, t01=0x00a0}
0x0efc…0f4c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0009, t01=0x00f0}
0x0f4c…0f62 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZKOPNF«, t00=0x0009, t01=0x0140}
0x0f62…0f78 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZLCLSF«, t00=0x0009, t01=0x0156}
0x0f78…0f8e Head {h00=0x0012, h01=0x0050, text=» EXPROC FMOVE «, t00=0x0009, t01=0x016c}
0x0f8e…0fa2 Head {h00=0x0010, h01=0x0050, text=» EXPROC MASK«, t00=0x0009, t01=0x0182}
0x0fa2…0fc0 Head {h00=0x001a, h01=0x0050, text=» ENTRY AAMAIN «, t00=0x000a, t01=0x0008}
0x0fc0…0fe2 Head {h00=0x001e, h01=0x0050, text=»KTB KTAB X'FF',X'90',X'92'«, t00=0x000a, t01=0x0026}
0x0fe2…0ff0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0048}
0x0ff0…0ffe Head {h00=0x000a, h01=0x0050, text=»AAMAIN«, t00=0x000a, t01=0x0056}
0x0ffe…100c Head {h00=0x000a, h01=0x0050, text=»AA000 «, t00=0x000a, t01=0x0064}
0x100c…1032 Head {h00=0x0022, h01=0x0050, text=» DSC0 SPDSDYKB,02 CLEAR BUFFER«, t00=0x000a, t01=0x0072}
0x1032…104e Head {h00=0x0018, h01=0x0050, text=» EDWRT SPDSSCRN,FMTI«, t00=0x000a, t01=0x0098}
0x104e…1072 Head {h00=0x0020, h01=0x0050, text=» EDWRT SPDSSCRN,FMTF«, t00=0x000a, t01=0x00b4}
0x1072…108c Head {h00=0x0016, h01=0x0050, text=» MOVE KWCONT,=W'6'«, t00=0x000a, t01=0x00d8}
0x108c…10bc Head {h00=0x002c, h01=0x0050, text=» KI SPDSDYKB,WCSTRG6,KTB,KWCONT,KWSPCONT«, t00=0x000a, t01=0x00f2}
0x10bc…10dc Head {h00=0x001c, h01=0x0050, text=» CBNE KWSPCONT,KW3,AA000«, t00=0x000a, t01=0x0122}
0x10dc…10fe Head {h00=0x001e, h01=0x0050, text=» CBG YDSTATUS,=D'0',AA000 «, t00=0x000a, t01=0x0142}
0x10fe…110c Head {h00=0x000a, h01=0x0050, text=»AA100 «, t00=0x000a, t01=0x0164}
0x110c…1128 Head {h00=0x0018, h01=0x0050, text=» MOVE YDSTATUS,=D'1'«, t00=0x000a, t01=0x0172}
0x1128…115a Head {h00=0x002e, h01=0x0050, text=» MOVE WW2,KDMAXLGG ) «, t00=0x000a, t01=0x018e}
0x115a…11a6 Head {h00=0x0048, h01=0x0050, text=» MUL WW2,KWNRFMT ) COMPUTE FIRST OVERFLOW-REC«, t00=0x000b, t01=0x0030}
0x11a6…11ba Head {h00=0x0010, h01=0x0050, text=» ADD WW2,KW1«, t00=0x000b, t01=0x007c}
0x11ba…11c8 Head {h00=0x000a, h01=0x0050, text=»AA200 «, t00=0x000b, t01=0x0090}
0x11c8…11e4 Head {h00=0x0018, h01=0x0050, text=» EDWRT SPDSSCRN,FMTI«, t00=0x000b, t01=0x009e}
0x11e4…1224 Head {h00=0x003c, h01=0x0050, text=» EDWRT SPDSSCRN,FMTA ASK VOLUME-NAME «, t00=0x000b, t01=0x00ba}
0x1224…123e Head {h00=0x0016, h01=0x0050, text=» DSC0 SPDSDYKB,02 «, t00=0x000b, t01=0x00fa}
0x123e…1256 Head {h00=0x0014, h01=0x0050, text=» MOVE KWCONT,KW3«, t00=0x000b, t01=0x0114}
0x1256…1292 Head {h00=0x0038, h01=0x0050, text=» NKI SPDSDYKB,VCVOLNR2,KTB,KWCONT,KWSPCONT«, t00=0x000b, t01=0x012c}
0x1292…12b0 Head {h00=0x001a, h01=0x0050, text=» CBNE KWCONT,KW3,AA200«, t00=0x000b, t01=0x0168}
0x12b0…12da Head {h00=0x0026, h01=0x0050, text=» USE UBF,KW1 ACCESS USERWORKBLOCK «, t00=0x000b, t01=0x0186}
0x12da…12f8 Head {h00=0x001a, h01=0x0050, text=» PERF ZKOPNF «, t00=0x000c, t01=0x0020}
0x12f8…130c Head {h00=0x0010, h01=0x0050, text=» BNOK AA900 «, t00=0x000c, t01=0x003e}
0x130c…132c Head {h00=0x001c, h01=0x0050, text=» MOVE NWTOTBYT,KWFMTLNG «, t00=0x000c, t01=0x0052}
0x132c…1346 Head {h00=0x0016, h01=0x0050, text=» SUB NWTOTBYT,KW2 «, t00=0x000c, t01=0x0072}
0x1346…1364 Head {h00=0x001a, h01=0x0050, text=» MOVE KWCONT,KWFMTLNG «, t00=0x000c, t01=0x008c}
0x1364…1394 Head {h00=0x002c, h01=0x0050, text=» READ .DIR,DSFMTFLE,FCFMTBUF,KWCONT,KD1 «, t00=0x000c, t01=0x00aa}
0x1394…13b0 Head {h00=0x0018, h01=0x0050, text=» XSTAT DSFMTFLE,WW1 «, t00=0x000c, t01=0x00da}
0x13b0…13d8 Head {h00=0x0024, h01=0x0050, text=» MOVE WWINDEX1,=X'8800' NO DATA «, t00=0x000c, t01=0x00f6}
0x13d8…13f8 Head {h00=0x001c, h01=0x0050, text=» CALL MASK,WW1,WWINDEX1 «, t00=0x000c, t01=0x011e}
0x13f8…140c Head {h00=0x0010, h01=0x0050, text=» BNOK AA400 «, t00=0x000c, t01=0x013e}
0x140c…141a Head {h00=0x000a, h01=0x0050, text=»AA300 «, t00=0x000c, t01=0x0152}
0x141a…1432 Head {h00=0x0014, h01=0x0050, text=» COMMIT NWXSTAT «, t00=0x000c, t01=0x0160}
0x1432…1482 Head {h00=0x004c, h01=0x0050, text=» XCOPY WW2,KW0,KW2,FCFMTBUF,NWTOTBYT FIRST FREE OVERFLOW-RECORD«, t00=0x000c, t01=0x0178}
0x1482…149e Head {h00=0x0018, h01=0x0050, text=» PERF BALGG«, t00=0x000d, t01=0x0038}
0x149e…14ac Head {h00=0x000a, h01=0x0050, text=»AA400 «, t00=0x000d, t01=0x0054}
0x14ac…14da Head {h00=0x002a, h01=0x0050, text=» MOVE WWINDEX1,KW0 INITIATE FORMAT-NR «, t00=0x000d, t01=0x0062}
0x14da…14e8 Head {h00=0x000a, h01=0x0050, text=»AA500 «, t00=0x000d, t01=0x0090}
0x14e8…1500 Head {h00=0x0014, h01=0x0050, text=» COMMIT NWXSTAT «, t00=0x000d, t01=0x009e}
0x1500…1548 Head {h00=0x0044, h01=0x0050, text=» ADD WWINDEX2,KW1 GIVES RELATIVE-RECORD-NR«, t00=0x000d, t01=0x00b6}
0x1548…1588 Head {h00=0x003c, h01=0x0050, text=» ADD WWINDEX1,KW1 GIVES FORMAT-NR «, t00=0x000d, t01=0x00fe}
0x1588…15ca Head {h00=0x003e, h01=0x0050, text=» CBG WWINDEX1,KWNRFMT,AA700 FORMAT-NR > 100 ? «, t00=0x000d, t01=0x013e}
0x15ca…15fe Head {h00=0x0030, h01=0x0050, text=» CALL FMOVE,FCFORMAT,FMTTAB(WWINDEX1) «, t00=0x000d, t01=0x0180}
0x15fe…1624 Head {h00=0x0022, h01=0x0050, text=» MOVE FCFMTBUF,=D'0' «, t00=0x000e, t01=0x0024}
0x1624…165e Head {h00=0x0036, h01=0x0050, text=» XCOPY FCFMTBUF,KW0,NWTOTBYT,FCFORMAT,KW0 «, t00=0x000e, t01=0x004a}
0x165e…1696 Head {h00=0x0034, h01=0x0050, text=» XCOPY SPBINW3,KW0,KW2,FCFORMAT,NWTOTBYT«, t00=0x000e, t01=0x0084}
0x1696…16be Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=X'E9E9' «, t00=0x000e, t01=0x00bc}
0x16be…16da Head {h00=0x0018, h01=0x0050, text=» MOVE WDEC1,WWINDEX2«, t00=0x000e, t01=0x00e4}
0x16da…1706 Head {h00=0x0028, h01=0x0050, text=» CBNE SPBINW3,SPBINW4,AA600«, t00=0x000e, t01=0x0100}
0x1706…1732 Head {h00=0x0028, h01=0x0050, text=» WRITE .DIR,DSFMTFLE,FCFMTBUF,WDEC1 «, t00=0x000e, t01=0x012c}
0x1732…1752 Head {h00=0x001c, h01=0x0050, text=» XSTAT DSFMTFLE,KWCANCEL«, t00=0x000e, t01=0x0158}
0x1752…1770 Head {h00=0x001a, h01=0x0050, text=» BNERR AA500«, t00=0x000e, t01=0x0178}
0x1770…178c Head {h00=0x0018, h01=0x0050, text=» B AA910«, t00=0x000f, t01=0x0008}
0x178c…179a Head {h00=0x000a, h01=0x0050, text=»AA600 «, t00=0x000f, t01=0x0024}
0x179a…17e8 Head {h00=0x004a, h01=0x0050, text=»* FORMATS ARE LONGER THAN 1 RECORD ; 1 RECORD + 1 OVERFLOW-RECORD «, t00=0x000f, t01=0x0032}
0x17e8…181c Head {h00=0x0030, h01=0x0050, text=»* HAVE TO BE WRITTEN ON THE FORMAT-FILE «, t00=0x000f, t01=0x0080}
0x181c…1850 Head {h00=0x0030, h01=0x0050, text=» XCOPY FCFMTBUF,NWTOTBYT,KW2,WW2,KW0«, t00=0x000f, t01=0x00b4}
0x1850…187c Head {h00=0x0028, h01=0x0050, text=» WRITE .DIR,DSFMTFLE,FCFMTBUF,WDEC1 «, t00=0x000f, t01=0x00e8}
0x187c…18a2 Head {h00=0x0022, h01=0x0050, text=» MOVE FCFMTBUF,=D'0' «, t00=0x000f, t01=0x0114}
0x18a2…18e0 Head {h00=0x003a, h01=0x0050, text=» XCOPY FCFMTBUF,KW0,NWTOTBYT,FCFORMAT,NWTOTBYT«, t00=0x000f, t01=0x013a}
0x18e0…18f8 Head {h00=0x0014, h01=0x0050, text=» MOVE WDEC2,WW2 «, t00=0x000f, t01=0x0178}
0x18f8…1916 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW1,NWTOTBYT«, t00=0x000f, t01=0x0190}
0x1916…1934 Head {h00=0x001a, h01=0x0050, text=» ADD SPBINW1,NWTOTBYT «, t00=0x0010, t01=0x001e}
0x1934…1964 Head {h00=0x002c, h01=0x0050, text=» XCOPY SPBINW3,KW0,KW2,FCFORMAT,SPBINW1 «, t00=0x0010, t01=0x003c}
0x1964…1988 Head {h00=0x0020, h01=0x0050, text=» CBNE SPBINW3,SPBINW4,AA650 «, t00=0x0010, t01=0x006c}
0x1988…19b4 Head {h00=0x0028, h01=0x0050, text=» WRITE .DIR,DSFMTFLE,FCFMTBUF,WDEC2 «, t00=0x0010, t01=0x0090}
0x19b4…19ee Head {h00=0x0036, h01=0x0050, text=» ADD WW2,KW1 NEXT OVERFLOW-RECORDNUMBER «, t00=0x0010, t01=0x00bc}
0x19ee…1a0a Head {h00=0x0018, h01=0x0050, text=» B AA500«, t00=0x0010, t01=0x00f6}
0x1a0a…1a18 Head {h00=0x000a, h01=0x0050, text=»AA650 «, t00=0x0010, t01=0x0112}
0x1a18…1a5c Head {h00=0x0040, h01=0x0050, text=»* FORMATS ARE LONGER THAN 1RECORD + 1 OVERFLOW RECORD«, t00=0x0010, t01=0x0120}
0x1a5c…1a70 Head {h00=0x0010, h01=0x0050, text=» ADD WW2,KW1«, t00=0x0010, t01=0x0164}
0x1a70…1a9c Head {h00=0x0028, h01=0x0050, text=» XCOPY FCFMTBUF,NWTOTBYT,KW2,WW2,KW0«, t00=0x0010, t01=0x0178}
0x1a9c…1ac8 Head {h00=0x0028, h01=0x0050, text=» WRITE .DIR,DSFMTFLE,FCFMTBUF,WDEC2 «, t00=0x0011, t01=0x0014}
0x1ac8…1ae4 Head {h00=0x0018, h01=0x0050, text=» MOVE FCFMTBUF,=D'0'«, t00=0x0011, t01=0x0040}
0x1ae4…1b1a Head {h00=0x0032, h01=0x0050, text=» XCOPY FCFMTBUF,KW0,NWTOTBYT,FCFORMAT,SPBINW1 «, t00=0x0011, t01=0x005c}
0x1b1a…1b32 Head {h00=0x0014, h01=0x0050, text=» MOVE WDEC2,WW2 «, t00=0x0011, t01=0x0092}
0x1b32…1b5e Head {h00=0x0028, h01=0x0050, text=» WRITE .DIR,DSFMTFLE,FCFMTBUF,WDEC2 «, t00=0x0011, t01=0x00aa}
0x1b5e…1b7e Head {h00=0x001c, h01=0x0050, text=» XSTAT DSFMTFLE,NWXSTAT «, t00=0x0011, t01=0x00d6}
0x1b7e…1b92 Head {h00=0x0010, h01=0x0050, text=» ADD WW2,KW1«, t00=0x0011, t01=0x00f6}
0x1b92…1ba2 Head {h00=0x000c, h01=0x0050, text=» B AA500«, t00=0x0011, t01=0x010a}
0x1ba2…1bb0 Head {h00=0x000a, h01=0x0050, text=»AA700 «, t00=0x0011, t01=0x011a}
0x1bb0…1be6 Head {h00=0x0032, h01=0x0050, text=»* WRITE FIRST FREE OVERFLOW-RECORDNUMBER «, t00=0x0011, t01=0x0128}
0x1be6…1c12 Head {h00=0x0028, h01=0x0050, text=»* INTO THE FIRST FORMAT-RECORD «, t00=0x0011, t01=0x015e}
0x1c12…1c46 Head {h00=0x0030, h01=0x0050, text=» XCOPY FCFMTBUF,NWTOTBYT,KW2,WW2,KW0«, t00=0x0011, t01=0x018a}
0x1c46…1c68 Head {h00=0x001e, h01=0x0050, text=» DISCARD .DIR,DSFMTFLE,KD1«, t00=0x0012, t01=0x002e}
0x1c68…1c92 Head {h00=0x0026, h01=0x0050, text=» WRITE .DIR,DSFMTFLE,FCFMTBUF,KD1 «, t00=0x0012, t01=0x0050}
0x1c92…1cb2 Head {h00=0x001c, h01=0x0050, text=» XSTAT DSFMTFLE,NWXSTAT «, t00=0x0012, t01=0x007a}
0x1cb2…1cc2 Head {h00=0x000c, h01=0x0050, text=» B AA920«, t00=0x0012, t01=0x009a}
0x1cc2…1cd0 Head {h00=0x000a, h01=0x0050, text=»AA900 «, t00=0x0012, t01=0x00aa}
0x1cd0…1cfc Head {h00=0x0028, h01=0x0050, text=» RSTAT DSFMTFLE,NWXSTAT READ STATUS «, t00=0x0012, t01=0x00b8}
0x1cfc…1d18 Head {h00=0x0018, h01=0x0050, text=» EDWRT SPDSSCRN,FMTI«, t00=0x0012, t01=0x00e4}
0x1d18…1d48 Head {h00=0x002c, h01=0x0050, text=» EDWRT SPDSSCRN,FMTC OPEN UNSUCCESSFULL «, t00=0x0012, t01=0x0100}
0x1d48…1d58 Head {h00=0x000c, h01=0x0050, text=» B AA999«, t00=0x0012, t01=0x0130}
0x1d58…1d66 Head {h00=0x000a, h01=0x0050, text=»AA910 «, t00=0x0012, t01=0x0140}
0x1d66…1d82 Head {h00=0x0018, h01=0x0050, text=» EDWRT SPDSSCRN,FMTI«, t00=0x0012, t01=0x014e}
0x1d82…1da8 Head {h00=0x0022, h01=0x0050, text=» EDWRT SPDSSCRN,FMTG I/O ERROR«, t00=0x0012, t01=0x016a}
0x1da8…1db8 Head {h00=0x000c, h01=0x0050, text=» B AA999«, t00=0x0012, t01=0x0190}
0x1db8…1dc6 Head {h00=0x000a, h01=0x0050, text=»AA920 «, t00=0x0013, t01=0x0010}
0x1dc6…1de2 Head {h00=0x0018, h01=0x0050, text=» EDWRT SPDSSCRN,FMTI«, t00=0x0013, t01=0x001e}
0x1de2…1e0e Head {h00=0x0028, h01=0x0050, text=» EDWRT SPDSSCRN,FMTH SUCCESSFULL END«, t00=0x0013, t01=0x003a}
0x1e0e…1e1e Head {h00=0x000c, h01=0x0050, text=» B AA999«, t00=0x0013, t01=0x0066}
0x1e1e…1e2c Head {h00=0x000a, h01=0x0050, text=»AA930 «, t00=0x0013, t01=0x0076}
0x1e2c…1e48 Head {h00=0x0018, h01=0x0050, text=» EDWRT SPDSSCRN,FMTI«, t00=0x0013, t01=0x0084}
0x1e48…1e6e Head {h00=0x0022, h01=0x0050, text=» EDWRT SPDSSCRN,FMTE OVERFLOW «, t00=0x0013, t01=0x00a0}
0x1e6e…1e7e Head {h00=0x000c, h01=0x0050, text=» B AA999«, t00=0x0013, t01=0x00c6}
0x1e7e…1e8c Head {h00=0x000a, h01=0x0050, text=»AA940 «, t00=0x0013, t01=0x00d6}
0x1e8c…1ea8 Head {h00=0x0018, h01=0x0050, text=» EDWRT SPDSSCRN,FMTI«, t00=0x0013, t01=0x00e4}
0x1ea8…1ed8 Head {h00=0x002c, h01=0x0050, text=» EDWRT SPDSSCRN,FMTD AMOUNT LANG.NRS > 6«, t00=0x0013, t01=0x0100}
0x1ed8…1ee6 Head {h00=0x000a, h01=0x0050, text=»AA999 «, t00=0x0013, t01=0x0130}
0x1ee6…1efa Head {h00=0x0010, h01=0x0050, text=» PERF ZLCLSF«, t00=0x0013, t01=0x013e}
0x1efa…1f0e Head {h00=0x0010, h01=0x0050, text=» EXIT «, t00=0x0013, t01=0x0152}
0x1f0e…1f22 Head {h00=0x0010, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0166}
0x1f22…1f36 Head {h00=0x0010, h01=0x0050, text=»BALGG PROC «, t00=0x0013, t01=0x017a}
0x1f36…1f86 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0013, t01=0x018e}
0x1f86…1fd6 Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION : *«, t00=0x0014, t01=0x004e}
0x1fd6…2026 Head {h00=0x004c, h01=0x0050, text=»* LOOKING FOR A FREE LANGUAGE-NUMBER *«, t00=0x0014, t01=0x009e}
0x2026…2076 Head {h00=0x004c, h01=0x0050, text=»* LANGUAGE-NR MUST BE 1 , 2 OR 3 *«, t00=0x0014, t01=0x00ee}
0x2076…20c6 Head {h00=0x004c, h01=0x0050, text=»* THE PROCEDURE "BALGG" READS THE FIRST FORMAT- *«, t00=0x0014, t01=0x013e}
0x20c6…2106 Head {h00=0x003c, h01=0x0050, text=»* RECORD OF THE CONCERNED LANGUAGE,«, t00=0x0014, t01=0x018e}
0x2106…2156 Head {h00=0x004c, h01=0x0050, text=»* THE PROCEDURE "MASK" GIVES A CONDITION-CODE EQUAL«, t00=0x0015, t01=0x003e}
0x2156…21a6 Head {h00=0x004c, h01=0x0050, text=»* 1 WHEN THE FORMAT-RECORD CONTAINS NO DATA *«, t00=0x0015, t01=0x008e}
0x21a6…21f6 Head {h00=0x004c, h01=0x0050, text=»* THE MAXIMUM AMOUNT OF TRY-OUTS WILL BE 6 *«, t00=0x0015, t01=0x00de}
0x21f6…2246 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0015, t01=0x012e}
0x2246…2254 Head {h00=0x000a, h01=0x0050, text=»BA000 «, t00=0x0015, t01=0x017e}
0x2254…229c Head {h00=0x0044, h01=0x0050, text=» MOVE WWCOUNT,KW0 INITIATE AMOUNT OF TRIES«, t00=0x0015, t01=0x018c}
0x229c…22b6 Head {h00=0x0016, h01=0x0050, text=» MOVE WW1,KDMAXLGG«, t00=0x0016, t01=0x0044}
0x22b6…22c4 Head {h00=0x000a, h01=0x0050, text=»BA100 «, t00=0x0016, t01=0x005e}
0x22c4…22e0 Head {h00=0x0018, h01=0x0050, text=» EDWRT SPDSSCRN,FMTI«, t00=0x0016, t01=0x006c}
0x22e0…2304 Head {h00=0x0020, h01=0x0050, text=» EDWRT SPDSSCRN,FMTB«, t00=0x0016, t01=0x0088}
0x2304…231e Head {h00=0x0016, h01=0x0050, text=» DSC0 SPDSDYKB,02 «, t00=0x0016, t01=0x00ac}
0x231e…2338 Head {h00=0x0016, h01=0x0050, text=» MOVE KWCONT,KW1 «, t00=0x0016, t01=0x00c6}
0x2338…2374 Head {h00=0x0038, h01=0x0050, text=» NKI SPDSDYKB,VCVOLNR1,KTB,KWCONT,KWSPCONT«, t00=0x0016, t01=0x00e0}
0x2374…2392 Head {h00=0x001a, h01=0x0050, text=» CBNE KWCONT,KW1,BA200«, t00=0x0016, t01=0x011c}
0x2392…23ba Head {h00=0x0024, h01=0x0050, text=» MOVE NDTRMLGG,VCVOLNR1«, t00=0x0016, t01=0x013a}
0x23ba…23da Head {h00=0x001c, h01=0x0050, text=» MOVE WWINDEX2,NDTRMLGG «, t00=0x0016, t01=0x0162}
0x23da…2404 Head {h00=0x0026, h01=0x0050, text=» CBE WWINDEX2,KW0,BA200 «, t00=0x0016, t01=0x0182}
0x2404…242e Head {h00=0x0026, h01=0x0050, text=» CBNL WWINDEX2,WW1,BA200 «, t00=0x0017, t01=0x001c}
0x242e…247a Head {h00=0x0048, h01=0x0050, text=» MUL WWINDEX2,KWNRFMT COUNT RELATIVE-RECORD-NUMBER«, t00=0x0017, t01=0x0046}
0x247a…24c6 Head {h00=0x0048, h01=0x0050, text=» ADD WWINDEX2,KW1 COUNT RELATIVE-RECORD-NUMBER«, t00=0x0017, t01=0x0092}
0x24c6…24e4 Head {h00=0x001a, h01=0x0050, text=» MOVE KWCONT,KWFMTLNG «, t00=0x0017, t01=0x00de}
0x24e4…24fc Head {h00=0x0014, h01=0x0050, text=» MOVE WDEC1,WW1 «, t00=0x0017, t01=0x00fc}
0x24fc…252e Head {h00=0x002e, h01=0x0050, text=» READ .DIR,DSFMTFLE,FCFMTBUF,KWCONT,WDEC1 «, t00=0x0017, t01=0x0114}
0x252e…254a Head {h00=0x0018, h01=0x0050, text=» XSTAT DSFMTFLE,WW1 «, t00=0x0017, t01=0x0146}
0x254a…2572 Head {h00=0x0024, h01=0x0050, text=» MOVE WWINDEX1,=X'8800' NO DATA «, t00=0x0017, t01=0x0162}
0x2572…2592 Head {h00=0x001c, h01=0x0050, text=» CALL MASK,WW1,WWINDEX1 «, t00=0x0017, t01=0x018a}
0x2592…25a6 Head {h00=0x0010, h01=0x0050, text=» BNOK BA900 «, t00=0x0018, t01=0x001a}
0x25a6…25b4 Head {h00=0x000a, h01=0x0050, text=»BA200 «, t00=0x0018, t01=0x002e}
0x25b4…25cc Head {h00=0x0014, h01=0x0050, text=» COMMIT NWXSTAT «, t00=0x0018, t01=0x003c}
0x25cc…25ee Head {h00=0x001e, h01=0x0050, text=» ADD WWCOUNT,KW1«, t00=0x0018, t01=0x0054}
0x25ee…2618 Head {h00=0x0026, h01=0x0050, text=» CBNG WWCOUNT,=W'6',BA100«, t00=0x0018, t01=0x0076}
0x2618…2640 Head {h00=0x0024, h01=0x0050, text=»* TO PREVENT AN ENDLESS LOOP«, t00=0x0018, t01=0x00a0}
0x2640…2650 Head {h00=0x000c, h01=0x0050, text=» B AA940«, t00=0x0018, t01=0x00c8}
0x2650…265e Head {h00=0x000a, h01=0x0050, text=»BA900 «, t00=0x0018, t01=0x00d8}
0x265e…2676 Head {h00=0x0014, h01=0x0050, text=» COMMIT NWXSTAT «, t00=0x0018, t01=0x00e6}
0x2676…2690 Head {h00=0x0016, h01=0x0050, text=» SUB WWINDEX2,KW1 «, t00=0x0018, t01=0x00fe}
0x2690…269e Head {h00=0x000a, h01=0x0050, text=»BA999 «, t00=0x0018, t01=0x0118}
0x269e…26b0 Head {h00=0x000e, h01=0x0050, text=» RET«, t00=0x0018, t01=0x0126}
0x26b0…26c4 Head {h00=0x0010, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x0138}
0x26c4…26d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x014c}
0x26d2…2702 Head {h00=0x002c, h01=0x0050, text=» INCLUDE ENGDEF,LIST FORMAT DEFINITIONS «, t00=0x0018, t01=0x015a}
0x2702…2752 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0018, t01=0x018a}
0x2752…275c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x004a}
0x275c…2766 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0054}
0x2766…277a Head {h00=0x0010, h01=0x0050, text=»FMTA FRMT «, t00=0x0019, t01=0x005e}
0x277a…2786 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0019, t01=0x0072}
0x2786…27ba Head {h00=0x0030, h01=0x0050, text=» FTEXT ' VOLUME-NAME ? : DSC'«, t00=0x0019, t01=0x007e}
0x27ba…27ce Head {h00=0x0010, h01=0x0050, text=» FMEND«, t00=0x0019, t01=0x00b2}
0x27ce…27e2 Head {h00=0x0010, h01=0x0050, text=»FMTB FRMT «, t00=0x0019, t01=0x00c6}
0x27e2…27ee Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0019, t01=0x00da}
0x27ee…2828 Head {h00=0x0036, h01=0x0050, text=» FTEXT 'LANGUAGE-NUMBER ? (1 OR 2 OR 3 ):'«, t00=0x0019, t01=0x00e6}
0x2828…2836 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0019, t01=0x0120}
0x2836…284a Head {h00=0x0010, h01=0x0050, text=»FMTC FRMT «, t00=0x0019, t01=0x012e}
0x284a…2856 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0019, t01=0x0142}
0x2856…2888 Head {h00=0x002e, h01=0x0050, text=» FTEXT 'OPEN FORMAT-FILE NOT SUCCESSFULL' «, t00=0x0019, t01=0x014e}
0x2888…289c Head {h00=0x0010, h01=0x0050, text=» FMEND«, t00=0x0019, t01=0x0180}
0x289c…28b0 (26, 0, 400) Head {h00=0x0010, h01=0x0050, text=»FMTD FRMT «, t00=0x001a, t01=0x0004}
0x28b0…28bc Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x001a, t01=0x0018}
0x28bc…28f0 Head {h00=0x0030, h01=0x0050, text=» FTEXT 'MORE THAN 6 LANGUAGE-NUMBERS TRIED' «, t00=0x001a, t01=0x0024}
0x28f0…2902 Head {h00=0x000e, h01=0x0050, text=» FNL«, t00=0x001a, t01=0x0058}
0x2902…2932 Head {h00=0x002c, h01=0x0050, text=» FTEXT 'PERHAPS NO FREE LANGUAGE-NUMBER'«, t00=0x001a, t01=0x006a}
0x2932…2946 Head {h00=0x0010, h01=0x0050, text=» FMEND«, t00=0x001a, t01=0x009a}
0x2946…295a Head {h00=0x0010, h01=0x0050, text=»FMTE FRMT «, t00=0x001a, t01=0x00ae}
0x295a…2966 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x001a, t01=0x00c2}
0x2966…299a Head {h00=0x0030, h01=0x0050, text=» FTEXT 'OVERFLOW OF OVERFLOW-AREA' «, t00=0x001a, t01=0x00ce}
0x299a…29ac Head {h00=0x000e, h01=0x0050, text=» FNL«, t00=0x001a, t01=0x0102}
0x29ac…29d6 Head {h00=0x0026, h01=0x0050, text=» FTEXT '** JOB ABENDED **'«, t00=0x001a, t01=0x0114}
0x29d6…29ea Head {h00=0x0010, h01=0x0050, text=» FMEND«, t00=0x001a, t01=0x013e}
0x29ea…29fe Head {h00=0x0010, h01=0x0050, text=»FMTF FRMT «, t00=0x001a, t01=0x0152}
0x29fe…2a10 Head {h00=0x000e, h01=0x0050, text=» FNL«, t00=0x001a, t01=0x0166}
0x2a10…2a38 Head {h00=0x0024, h01=0x0050, text=» FTEXT 'PRESS CONTINUE' «, t00=0x001a, t01=0x0178}
0x2a38…2a4c Head {h00=0x0010, h01=0x0050, text=» FMEND«, t00=0x001b, t01=0x0010}
0x2a4c…2a60 Head {h00=0x0010, h01=0x0050, text=»FMTG FRMT«, t00=0x001b, t01=0x0024}
0x2a60…2a74 Head {h00=0x0010, h01=0x0050, text=» FNL «, t00=0x001b, t01=0x0038}
0x2a74…2aa0 Head {h00=0x0028, h01=0x0050, text=» FTEXT 'I/O ERROR WHILE READING OR '«, t00=0x001b, t01=0x004c}
0x2aa0…2aac Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x001b, t01=0x0078}
0x2aac…2ad0 Head {h00=0x0020, h01=0x0050, text=» FTEXT 'WRITING FORMAT-FILE'«, t00=0x001b, t01=0x0084}
0x2ad0…2ae6 Head {h00=0x0012, h01=0x0050, text=» FMEND «, t00=0x001b, t01=0x00a8}
0x2ae6…2afa Head {h00=0x0010, h01=0x0050, text=»FMTH FRMT«, t00=0x001b, t01=0x00be}
0x2afa…2b0e Head {h00=0x0010, h01=0x0050, text=» FNL «, t00=0x001b, t01=0x00d2}
0x2b0e…2b42 Head {h00=0x0030, h01=0x0050, text=» FTEXT 'PGM "FORMAT" SUCCESSFULLY EXECUTED' «, t00=0x001b, t01=0x00e6}
0x2b42…2b58 Head {h00=0x0012, h01=0x0050, text=» FMEND «, t00=0x001b, t01=0x011a}
0x2b58…2b78 Head {h00=0x001c, h01=0x0050, text=»FMTI FRMT CLEARS SCREEN«, t00=0x001b, t01=0x0130}
0x2b78…2b90 Head {h00=0x0014, h01=0x0050, text=» FCOPY =X'2031' «, t00=0x001b, t01=0x0150}
0x2b90…2b9e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001b, t01=0x0168}
0x2b9e…2bb0 Head {h00=0x000e, h01=0x0050, text=» END«, t00=0x001b, t01=0x0176}
0x2bb0…2bb4 Head {h00=0x4004, h01=0x0000}
0x2bb4…2bb8 00 1b 01 88 ┆ ┆
0x2bb8…2bc0 (28, 1, 8) 20 04 00 00 00 1c 00 04 ┆ ┆