|
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: 10820 (0x2a44)
Notes: pts_type(SC)
Names: »RGSUB3.SC«
└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
└─⟦this⟧ »OD-KOM/RGSUB3.SC«
IDENT RGSUB3 840203 EV DDUM KMD08 PDIV * ENTRY ASGVOL ENTRY CLSVOL ENTRY ASGFIL ENTRY CYLINE ENTRY CYOUT ENTRY CYWRT ENTRY CYRD ENTRY CYTRP * EXT ABORT EXT ASSG EXT RAWRIT EXT RAREAD EXT SPLIN8 EXT CLEAR8 EXT GRASPV EXT FRMXVO EXT CRVO EXT WAITF * INCLUDE EQUATE EJECT ASGVOL PROC VOL ******************** * * ASSIGN ROUTINE - PER VOLUME * * ASSIGNS ALL FILES ON SPECIFIED VOLUME * * IF VOL=0, ONLY CONFIGURATION DATA SET * * * CALL: PERF ASGVOL,<VOLUME NUMBER> * ******************** * IB VOL, C ASG100,ASG200,ASG300,ASG400 CBNE VOL,CBIN0,ASGNOK * ASG000 ASSIGN CONF DATASET PERF ASSG,CBIN1,DK01,CBIN1 B ASGRET * ASG100 ASSIGN ALL FILES - VOLUME 1 PERF ASSG,CBIN1,DK01,CBIN1 CONF DATASET BNOK ASGRET PERF ASSG,CBIN1,DK03,CBIN3 CYCLE DATASET BNOK ASGRET PERF ASSG,CBIN1,DK04,CBIN4 KT PLAN BNOK ASGRET TBF CSPOOL,ASG150 PERF ASSG,CBIN1,DK06,CBIN6 EL JOURNAL BNOK ASGRET ASG150 TBF CGLREGFL,ASGRET MOVE CGLRECNR,=D'0' PERF ASSG,CBIN1,DK05,CBIN5 OLD REGSET BNOK ASGRET MOVE CGLRECNR,TTGLREC B ASGRET * ASG200 ASSIGN ALL FILES - VOLUME 2 CBE CREGVOL,=W'4',ASG400 PERF ASSG,CBIN2,DK02,CBIN2 REG DATASET B ASGRET * ASG300 ASSIGN ALL FILES - VOLUME 3 B ASGOK * ASG400 ASSIGN ALL FILES - VOLUME 4 PERF ASSG,CBIN4,DK02,CBIN2 SECOND REG DATASET B ASGRET * ASGNOK CMP CBIN1,CBIN0 RET * ASGOK CMP CBIN0,CBIN0 ASGRET RET PEND * EJECT ASGFIL PROC FILNR ********** * * ASSIGNS FILE REGSET ON EITHER * VOLUME 2 OR 4 * ********** * IB FILNR, C ASGFRET,ASGF200 B ASGFRET * ASGF200 FILE REGSET CBNL CREGVOL,=W'2',ASGF250 * ONLY VOLUME 2 PERF ASGVOL,CBIN2 B ASGFRET * ASGF250 * VOLUME 2 AND 4 * FIRST ALTERNATE MOVE GSWBIN2,CBIN6 SUB GSWBIN2,CREGVOL MOVE CREGVOL,GSWBIN2 PERF ASGVOL,CBIN2 BOK ASGFRET MOVE GSWBIN2,CBIN6 SUB GSWBIN2,CREGVOL MOVE CREGVOL,GSWBIN2 PERF ASGVOL,CBIN2 ASGFRET RET PEND * EJECT CLSVOL PROC VOL ******************** * * CLOSE ROUTINE - PER VOLUME * * CLOSES ALL FILES ON SPECIFIED VOLUME * * CALL: PERF CLSVOL,<VOLUME NUMBER> * ******************** * SET CDKOFF TBF CWFLAG,CLS050 DELAY CBIN20 CLS050 * * IB VOL, C CLS100,CLS200,CLS300,CLS400 B CLSRET * CLS100 CLOSE ALL FILES - VOLUME 1 DSC0 DK01,CLOSE DSC0 DK02,CLOSE DSC0 DK04,CLOSE TBF CGLREGFL,CLS150 DSC0 DK05,CLOSE CLS150 TBF CSPOOL,CLS160 DSC0 DK06,CLOSE CLS160 DSC0 FD01,UNLOD B CLSRET * CLS200 CLOSE ALL FILES - VOLUME 2 CBE CREGVOL,=W'4',CLS400 DSC0 DK02,CLOSE DSC0 FD02,UNLOD B CLSRET * CLS300 CLOSE ALL FILES - VOLUME 3 B CLSRET * CLS400 CLOSE ALL FILES - VOLUME 4 DSC0 DK02,CLOSE SECOND REG DATASET DSC0 FD03,UNLOD B CLSRET * CLSRET RET PEND * EJECT CYLINE PROC ******************** * * WRITE ONE LINE TO CYCLE DATASET * * ON ENTRY DATA IN SEPARATE FIELDS * * ON EXIT CR= OK DATA WRITTEN TO CYSET * CR=NOK DATA NOT WRITTEN TO CYSET * E.G. ERROR ON DISK * DATASET FULL * WAITED TOO LONG FOR BUFFER * ******************** MOVE GSWBIN1,CCYSIZE MUL GSWBIN1,TTASKNR CBNL GTCYOUT,GSWBIN1,CYLINNOK MOVE GSWBIN1,=W'32' CYLIN000 TBF CCYPFLG,CYLIN010 WAIT FOR BUFFER DELAY CBIN2 SUB GSWBIN1,CBIN2 CBL GSWBIN1,CBIN0,CYLINNOK B CYLIN000 * CYLIN010 SET CCYPFLG RESERVE BUFFER MOVE CCYBUF,=X'00' CLEAR BUFFER EDIT CCYBUF,GTSTRFMT PERF RAWRIT,DK03,=D'3',CCYBUF,GTCYOUT BNOK CYLIN100 ADD GTCYOUT,CBIN1 CLEAR CCYPFLG RELEASE BUFFER CMP CBIN0,CBIN0 RET * CYLIN100 CLEAR CCYPFLG RELEASE BUFFER CYLINNOK CMP CBIN1,CBIN0 RET PEND * EJECT CYOUT PROC ******************** * * WRITE OUT THE WHOLE CONTENT OF CYSET * (LESS THAN ONE PAGE) * ******************** TBT GTCYWRTF,CYOUT050 TBT TTTSTFLG,CYOUT005 SET TTTSTFLG PERF SPLIN8,CBIN5,CBIN2 PERF GRASPV PERF CLEAR8 CYOUT005 MOVE TTLINNR,TTCYKPOS TBF GTCYTRPF,CYOUT010 SUB GTCYOUT,CBIN1 ADJUST FOR TRP LINE, -TOTAL CYOUT010 MOVE GSWBIN1,TTLINNR DSC1 KVOUCH,POS,GSWBIN1 CBNL GTCYIN,GTCYOUT,CYOUT050 PERF CYRD SUB TTLINNR,=D'2' WAIT KVOUCH B CYOUT010 * CYOUT050 RET PEND * EJECT CYWRT PROC ******************** * * WRITE A LINE ON CYCLE DATASET * IN NOK EMPTY THE CYCLE DATASET TO VOUCHER * AND WRITE LINE TO VOUCHER * ******************** PERF CYLINE WRITE LINE TO CYSET BNOK CYWRT100 SUB TTLINNR,=D'2' CBL TTLINNR,=D'4',CYWRT010 IF PAGE FULL CMP CBIN0,CBIN0 OK RET * CYWRT010 MOVE GSWSTR9,=C'TRP ' NEW PAGE PERF FRMXVO,CBIN2 PERF CYLINE SET GTCYTRPF INITIATE PRINT CMP CBIN0,CBIN0 OK RET * CYWRT100 PERF CYOUT SET GTCYWRTF CMP CBIN1,CBIN0 RET PEND * EJECT CYRD PROC ******************** * * READ ONE LINE FROM CYCLE DATASET AND * WRITE IT TO VOUCHER * * VOUCHER SHOULD BE POSITIONED BEFORE PRINT * ******************** PERF WAITF,CCYPFLG MOVE GSWBIN1,=W'128' SET LENGTH PERF RAREAD,DK03,=D'3',CCYBUF,GSWBIN1,GTCYIN BNOK CYRDNOK EDWRT .NW,KVOUCH,CYEDT CLEAR CCYPFLG B CYRD100 CYRDNOK ADD GTCYIN,CBIN1 CLEAR CCYPFLG PERF CRVO CMP CBIN1,CBIN0 NOK RET * CYRD100 WAIT KVOUCH PERF CRVO ADD GTCYIN,CBIN1 CMP CBIN0,CBIN0 OK RET PEND * * CYEDT FRMT FCOPY CCYBUF FMEND * EJECT CYTRP PROC ******************** * * PRINT A WHOLE PAGE * * AND WRITE TRANSPORT LINE FIRST ON CYSET * ******************** TBF GTCYTRPF,CYTRP200 TBT GTCYWRTF,CYTRP100 T=ALREADY WRITTEN CLEAR GTCYTRPF CLEAR TTTSTFLG PERF CYOUT WAIT KVOUCH DSC0 .NW,KVOUCH,RLEAS CLEAR TTTSTFLG MOVE GSWSTR9,=C'TRP ' PERF FRMXVO,CBIN2 MOVE GTCYIN,TTASKNR SUB GTCYIN,CBIN1 MUL GTCYIN,CCYSIZE ADD GTCYIN,CBIN1 MOVE GTCYOUT,GTCYIN MOVE TTLINNR,TTCYKST MOVE TTCYKPOS,TTLINNR PERF CYLINE BNOK CYTRP100 B CYTRP150 * CYTRP100 CLEAR GTCYTRPF SET GTCYWRTF PERF SPLIN8,CBIN3,CBIN2 ASK FOR 'NY SIDE' PERF GRASPV GRASP MOVE TTCYKPOS,TTCYKST MOVE TTLINNR,TTCYKST POSITION VOUCHER MOVE GSWBIN1,TTLINNR DSC1 KVOUCH,POS,GSWBIN1 MOVE GSWSTR9,=C'TRP ' SET UP TRANSPORT LINE PERF FRMXVO,CBIN2 EDWRT KVOUCH,GTSTRFMT WRITE TRP LINE * CYTRP150 SUB TTLINNR,=D'2' CYTRP200 RET PEND * END
0x0000…0020 (0, 0, 400) Head {h00=0x001c, h01=0x0050, text=» IDENT RGSUB3 840203 EV «, t00=0x0000, t01=0x0004}
0x0020…0034 Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x0024}
0x0034…0042 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0038}
0x0042…004c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0046}
0x004c…0062 Head {h00=0x0012, h01=0x0050, text=» ENTRY ASGVOL «, t00=0x0000, t01=0x0050}
0x0062…0078 Head {h00=0x0012, h01=0x0050, text=» ENTRY CLSVOL «, t00=0x0000, t01=0x0066}
0x0078…008e Head {h00=0x0012, h01=0x0050, text=» ENTRY ASGFIL «, t00=0x0000, t01=0x007c}
0x008e…00a4 Head {h00=0x0012, h01=0x0050, text=» ENTRY CYLINE «, t00=0x0000, t01=0x0092}
0x00a4…00b8 Head {h00=0x0010, h01=0x0050, text=» ENTRY CYOUT«, t00=0x0000, t01=0x00a8}
0x00b8…00cc Head {h00=0x0010, h01=0x0050, text=» ENTRY CYWRT«, t00=0x0000, t01=0x00bc}
0x00cc…00e0 Head {h00=0x0010, h01=0x0050, text=» ENTRY CYRD «, t00=0x0000, t01=0x00d0}
0x00e0…00f4 Head {h00=0x0010, h01=0x0050, text=» ENTRY CYTRP«, t00=0x0000, t01=0x00e4}
0x00f4…00fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f8}
0x00fe…0110 Head {h00=0x000e, h01=0x0050, text=» EXT ABORT«, t00=0x0000, t01=0x0102}
0x0110…0122 Head {h00=0x000e, h01=0x0050, text=» EXT ASSG «, t00=0x0000, t01=0x0114}
0x0122…0136 Head {h00=0x0010, h01=0x0050, text=» EXT RAWRIT «, t00=0x0000, t01=0x0126}
0x0136…014a Head {h00=0x0010, h01=0x0050, text=» EXT RAREAD «, t00=0x0000, t01=0x013a}
0x014a…015e Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0000, t01=0x014e}
0x015e…0172 Head {h00=0x0010, h01=0x0050, text=» EXT CLEAR8 «, t00=0x0000, t01=0x0162}
0x0172…0186 Head {h00=0x0010, h01=0x0050, text=» EXT GRASPV «, t00=0x0000, t01=0x0176}
0x0186…019a Head {h00=0x0010, h01=0x0050, text=» EXT FRMXVO «, t00=0x0000, t01=0x018a}
0x019a…01ac Head {h00=0x000e, h01=0x0050, text=» EXT CRVO «, t00=0x0001, t01=0x000e}
0x01ac…01be Head {h00=0x000e, h01=0x0050, text=» EXT WAITF«, t00=0x0001, t01=0x0020}
0x01be…01c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0032}
0x01c8…01e0 Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x003c}
0x01e0…01ee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0054}
0x01ee…0206 Head {h00=0x0014, h01=0x0050, text=»ASGVOL PROC VOL «, t00=0x0001, t01=0x0062}
0x0206…0222 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0001, t01=0x007a}
0x0222…022c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0096}
0x022c…025a Head {h00=0x002a, h01=0x0050, text=»* ASSIGN ROUTINE - PER VOLUME«, t00=0x0001, t01=0x00a0}
0x025a…0264 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ce}
0x0264…029c Head {h00=0x0034, h01=0x0050, text=»* ASSIGNS ALL FILES ON SPECIFIED VOLUME«, t00=0x0001, t01=0x00d8}
0x029c…02a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0110}
0x02a6…02de Head {h00=0x0034, h01=0x0050, text=»* IF VOL=0, ONLY CONFIGURATION DATA SET«, t00=0x0001, t01=0x011a}
0x02de…02e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0152}
0x02e8…02f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x015c}
0x02f2…032a Head {h00=0x0034, h01=0x0050, text=»* CALL: PERF ASGVOL,<VOLUME NUMBER>«, t00=0x0001, t01=0x0166}
0x032a…0334 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x000e}
0x0334…0350 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0002, t01=0x0018}
0x0350…035a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0034}
0x035a…036e Head {h00=0x0010, h01=0x0050, text=» IB VOL, C «, t00=0x0002, t01=0x003e}
0x036e…0394 Head {h00=0x0022, h01=0x0050, text=» ASG100,ASG200,ASG300,ASG400 «, t00=0x0002, t01=0x0052}
0x0394…03b2 Head {h00=0x001a, h01=0x0050, text=» CBNE VOL,CBIN0,ASGNOK«, t00=0x0002, t01=0x0078}
0x03b2…03bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0096}
0x03bc…03e0 Head {h00=0x0020, h01=0x0050, text=»ASG000 ASSIGN CONF DATASET«, t00=0x0002, t01=0x00a0}
0x03e0…0404 Head {h00=0x0020, h01=0x0050, text=» PERF ASSG,CBIN1,DK01,CBIN1 «, t00=0x0002, t01=0x00c4}
0x0404…0416 Head {h00=0x000e, h01=0x0050, text=» B ASGRET «, t00=0x0002, t01=0x00e8}
0x0416…0420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fa}
0x0420…044c Head {h00=0x0028, h01=0x0050, text=»ASG100 ASSIGN ALL FILES - VOLUME 1«, t00=0x0002, t01=0x0104}
0x044c…047c Head {h00=0x002c, h01=0x0050, text=» PERF ASSG,CBIN1,DK01,CBIN1 CONF DATASET«, t00=0x0002, t01=0x0130}
0x047c…0490 Head {h00=0x0010, h01=0x0050, text=» BNOK ASGRET«, t00=0x0002, t01=0x0160}
0x0490…04c2 Head {h00=0x002e, h01=0x0050, text=» PERF ASSG,CBIN1,DK03,CBIN3 CYCLE DATASET «, t00=0x0002, t01=0x0174}
0x04c2…04d6 Head {h00=0x0010, h01=0x0050, text=» BNOK ASGRET«, t00=0x0003, t01=0x0016}
0x04d6…0502 Head {h00=0x0028, h01=0x0050, text=» PERF ASSG,CBIN1,DK04,CBIN4 KT PLAN «, t00=0x0003, t01=0x002a}
0x0502…0516 Head {h00=0x0010, h01=0x0050, text=» BNOK ASGRET«, t00=0x0003, t01=0x0056}
0x0516…051e Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x006a}
0x051e…0538 Head {h00=0x0016, h01=0x0050, text=» TBF CSPOOL,ASG150«, t00=0x0003, t01=0x0072}
0x0538…0566 Head {h00=0x002a, h01=0x0050, text=» PERF ASSG,CBIN1,DK06,CBIN6 EL JOURNAL«, t00=0x0003, t01=0x008c}
0x0566…057a Head {h00=0x0010, h01=0x0050, text=» BNOK ASGRET«, t00=0x0003, t01=0x00ba}
0x057a…0588 Head {h00=0x000a, h01=0x0050, text=»ASG150«, t00=0x0003, t01=0x00ce}
0x0588…0590 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00dc}
0x0590…05ac Head {h00=0x0018, h01=0x0050, text=» TBF CGLREGFL,ASGRET«, t00=0x0003, t01=0x00e4}
0x05ac…05c8 Head {h00=0x0018, h01=0x0050, text=» MOVE CGLRECNR,=D'0'«, t00=0x0003, t01=0x0100}
0x05c8…05f6 Head {h00=0x002a, h01=0x0050, text=» PERF ASSG,CBIN1,DK05,CBIN5 OLD REGSET«, t00=0x0003, t01=0x011c}
0x05f6…060a Head {h00=0x0010, h01=0x0050, text=» BNOK ASGRET«, t00=0x0003, t01=0x014a}
0x060a…0628 Head {h00=0x001a, h01=0x0050, text=» MOVE CGLRECNR,TTGLREC«, t00=0x0003, t01=0x015e}
0x0628…063a Head {h00=0x000e, h01=0x0050, text=» B ASGRET «, t00=0x0003, t01=0x017c}
0x063a…0644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x018e}
0x0644…0670 Head {h00=0x0028, h01=0x0050, text=»ASG200 ASSIGN ALL FILES - VOLUME 2«, t00=0x0004, t01=0x0008}
0x0670…0692 Head {h00=0x001e, h01=0x0050, text=» CBE CREGVOL,=W'4',ASG400 «, t00=0x0004, t01=0x0034}
0x0692…06c2 Head {h00=0x002c, h01=0x0050, text=» PERF ASSG,CBIN2,DK02,CBIN2 REG DATASET «, t00=0x0004, t01=0x0056}
0x06c2…06d4 Head {h00=0x000e, h01=0x0050, text=» B ASGRET «, t00=0x0004, t01=0x0086}
0x06d4…06de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0098}
0x06de…070a Head {h00=0x0028, h01=0x0050, text=»ASG300 ASSIGN ALL FILES - VOLUME 3«, t00=0x0004, t01=0x00a2}
0x070a…071a Head {h00=0x000c, h01=0x0050, text=» B ASGOK«, t00=0x0004, t01=0x00ce}
0x071a…0724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00de}
0x0724…0750 Head {h00=0x0028, h01=0x0050, text=»ASG400 ASSIGN ALL FILES - VOLUME 4«, t00=0x0004, t01=0x00e8}
0x0750…0786 Head {h00=0x0032, h01=0x0050, text=» PERF ASSG,CBIN4,DK02,CBIN2 SECOND REG DATASET«, t00=0x0004, t01=0x0114}
0x0786…0798 Head {h00=0x000e, h01=0x0050, text=» B ASGRET «, t00=0x0004, t01=0x014a}
0x0798…07a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x015c}
0x07a2…07b0 Head {h00=0x000a, h01=0x0050, text=»ASGNOK«, t00=0x0004, t01=0x0166}
0x07b0…07c8 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0004, t01=0x0174}
0x07c8…07d4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x018c}
0x07d4…07de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0008}
0x07de…07ec Head {h00=0x000a, h01=0x0050, text=»ASGOK «, t00=0x0005, t01=0x0012}
0x07ec…0804 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0005, t01=0x0020}
0x0804…0812 Head {h00=0x000a, h01=0x0050, text=»ASGRET«, t00=0x0005, t01=0x0038}
0x0812…081e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x0046}
0x081e…082c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x0052}
0x082c…0836 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0060}
0x0836…0844 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x006a}
0x0844…085e Head {h00=0x0016, h01=0x0050, text=»ASGFIL PROC FILNR «, t00=0x0005, t01=0x0078}
0x085e…0870 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0005, t01=0x0092}
0x0870…087a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00a4}
0x087a…08a6 Head {h00=0x0028, h01=0x0050, text=»* ASSIGNS FILE REGSET ON EITHER «, t00=0x0005, t01=0x00ae}
0x08a6…08c2 Head {h00=0x0018, h01=0x0050, text=»* VOLUME 2 OR 4 «, t00=0x0005, t01=0x00da}
0x08c2…08cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00f6}
0x08cc…08de Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0005, t01=0x0100}
0x08de…08e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0112}
0x08e8…08fe Head {h00=0x0012, h01=0x0050, text=» IB FILNR, C «, t00=0x0005, t01=0x011c}
0x08fe…0918 Head {h00=0x0016, h01=0x0050, text=» ASGFRET,ASGF200 «, t00=0x0005, t01=0x0132}
0x0918…092a Head {h00=0x000e, h01=0x0050, text=» B ASGFRET«, t00=0x0005, t01=0x014c}
0x092a…0934 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x015e}
0x0934…0952 Head {h00=0x001a, h01=0x0050, text=»ASGF200 FILE REGSET «, t00=0x0005, t01=0x0168}
0x0952…0976 Head {h00=0x0020, h01=0x0050, text=» CBNL CREGVOL,=W'2',ASGF250 «, t00=0x0005, t01=0x0186}
0x0976…0992 Head {h00=0x0018, h01=0x0050, text=»* ONLY VOLUME 2 «, t00=0x0006, t01=0x001a}
0x0992…09ac Head {h00=0x0016, h01=0x0050, text=» PERF ASGVOL,CBIN2«, t00=0x0006, t01=0x0036}
0x09ac…09be Head {h00=0x000e, h01=0x0050, text=» B ASGFRET«, t00=0x0006, t01=0x0050}
0x09be…09c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0062}
0x09c8…09d8 Head {h00=0x000c, h01=0x0050, text=»ASGF250 «, t00=0x0006, t01=0x006c}
0x09d8…09f4 Head {h00=0x0018, h01=0x0050, text=»* VOLUME 2 AND 4«, t00=0x0006, t01=0x007c}
0x09f4…0a12 Head {h00=0x001a, h01=0x0050, text=»* FIRST ALTERNATE «, t00=0x0006, t01=0x0098}
0x0a12…0a2e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN6 «, t00=0x0006, t01=0x00b6}
0x0a2e…0a4a Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN2,CREGVOL«, t00=0x0006, t01=0x00d2}
0x0a4a…0a68 Head {h00=0x001a, h01=0x0050, text=» MOVE CREGVOL,GSWBIN2 «, t00=0x0006, t01=0x00ee}
0x0a68…0a82 Head {h00=0x0016, h01=0x0050, text=» PERF ASGVOL,CBIN2«, t00=0x0006, t01=0x010c}
0x0a82…0a96 Head {h00=0x0010, h01=0x0050, text=» BOK ASGFRET«, t00=0x0006, t01=0x0126}
0x0a96…0ab2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN6 «, t00=0x0006, t01=0x013a}
0x0ab2…0ace Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN2,CREGVOL«, t00=0x0006, t01=0x0156}
0x0ace…0aec Head {h00=0x001a, h01=0x0050, text=» MOVE CREGVOL,GSWBIN2 «, t00=0x0006, t01=0x0172}
0x0aec…0b06 Head {h00=0x0016, h01=0x0050, text=» PERF ASGVOL,CBIN2«, t00=0x0006, t01=0x0190}
0x0b06…0b16 Head {h00=0x000c, h01=0x0050, text=»ASGFRET «, t00=0x0007, t01=0x001a}
0x0b16…0b22 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x002a}
0x0b22…0b30 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x0036}
0x0b30…0b3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0044}
0x0b3a…0b48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x004e}
0x0b48…0b60 Head {h00=0x0014, h01=0x0050, text=»CLSVOL PROC VOL «, t00=0x0007, t01=0x005c}
0x0b60…0b7c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0007, t01=0x0074}
0x0b7c…0b86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0090}
0x0b86…0bb4 Head {h00=0x002a, h01=0x0050, text=»* CLOSE ROUTINE - PER VOLUME «, t00=0x0007, t01=0x009a}
0x0bb4…0bbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c8}
0x0bbe…0bf6 Head {h00=0x0034, h01=0x0050, text=»* CLOSES ALL FILES ON SPECIFIED VOLUME «, t00=0x0007, t01=0x00d2}
0x0bf6…0c00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x010a}
0x0c00…0c38 Head {h00=0x0034, h01=0x0050, text=»* CALL: PERF CLSVOL,<VOLUME NUMBER>«, t00=0x0007, t01=0x0114}
0x0c38…0c42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x014c}
0x0c42…0c5e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0007, t01=0x0156}
0x0c5e…0c68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0172}
0x0c68…0c7c Head {h00=0x0010, h01=0x0050, text=» SET CDKOFF «, t00=0x0007, t01=0x017c}
0x0c7c…0c96 Head {h00=0x0016, h01=0x0050, text=» TBF CWFLAG,CLS050«, t00=0x0007, t01=0x0190}
0x0c96…0cac Head {h00=0x0012, h01=0x0050, text=» DELAY CBIN20 «, t00=0x0008, t01=0x001a}
0x0cac…0cba Head {h00=0x000a, h01=0x0050, text=»CLS050«, t00=0x0008, t01=0x0030}
0x0cba…0cc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x003e}
0x0cc4…0cce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0048}
0x0cce…0ce2 Head {h00=0x0010, h01=0x0050, text=» IB VOL, C «, t00=0x0008, t01=0x0052}
0x0ce2…0d08 Head {h00=0x0022, h01=0x0050, text=» CLS100,CLS200,CLS300,CLS400 «, t00=0x0008, t01=0x0066}
0x0d08…0d1a Head {h00=0x000e, h01=0x0050, text=» B CLSRET «, t00=0x0008, t01=0x008c}
0x0d1a…0d24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x009e}
0x0d24…0d50 Head {h00=0x0028, h01=0x0050, text=»CLS100 CLOSE ALL FILES - VOLUME 1 «, t00=0x0008, t01=0x00a8}
0x0d50…0d68 Head {h00=0x0014, h01=0x0050, text=» DSC0 DK01,CLOSE«, t00=0x0008, t01=0x00d4}
0x0d68…0d80 Head {h00=0x0014, h01=0x0050, text=» DSC0 DK02,CLOSE«, t00=0x0008, t01=0x00ec}
0x0d80…0d98 Head {h00=0x0014, h01=0x0050, text=» DSC0 DK04,CLOSE«, t00=0x0008, t01=0x0104}
0x0d98…0db4 Head {h00=0x0018, h01=0x0050, text=» TBF CGLREGFL,CLS150«, t00=0x0008, t01=0x011c}
0x0db4…0dcc Head {h00=0x0014, h01=0x0050, text=» DSC0 DK05,CLOSE«, t00=0x0008, t01=0x0138}
0x0dcc…0dda Head {h00=0x000a, h01=0x0050, text=»CLS150«, t00=0x0008, t01=0x0150}
0x0dda…0de2 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x015e}
0x0de2…0dfc Head {h00=0x0016, h01=0x0050, text=» TBF CSPOOL,CLS160«, t00=0x0008, t01=0x0166}
0x0dfc…0e14 Head {h00=0x0014, h01=0x0050, text=» DSC0 DK06,CLOSE«, t00=0x0008, t01=0x0180}
0x0e14…0e22 Head {h00=0x000a, h01=0x0050, text=»CLS160«, t00=0x0009, t01=0x0008}
0x0e22…0e2a Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0016}
0x0e2a…0e42 Head {h00=0x0014, h01=0x0050, text=» DSC0 FD01,UNLOD«, t00=0x0009, t01=0x001e}
0x0e42…0e54 Head {h00=0x000e, h01=0x0050, text=» B CLSRET «, t00=0x0009, t01=0x0036}
0x0e54…0e5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0048}
0x0e5e…0e8a Head {h00=0x0028, h01=0x0050, text=»CLS200 CLOSE ALL FILES - VOLUME 2 «, t00=0x0009, t01=0x0052}
0x0e8a…0eac Head {h00=0x001e, h01=0x0050, text=» CBE CREGVOL,=W'4',CLS400 «, t00=0x0009, t01=0x007e}
0x0eac…0ec4 Head {h00=0x0014, h01=0x0050, text=» DSC0 DK02,CLOSE«, t00=0x0009, t01=0x00a0}
0x0ec4…0edc Head {h00=0x0014, h01=0x0050, text=» DSC0 FD02,UNLOD«, t00=0x0009, t01=0x00b8}
0x0edc…0eee Head {h00=0x000e, h01=0x0050, text=» B CLSRET «, t00=0x0009, t01=0x00d0}
0x0eee…0ef8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e2}
0x0ef8…0f24 Head {h00=0x0028, h01=0x0050, text=»CLS300 CLOSE ALL FILES - VOLUME 3 «, t00=0x0009, t01=0x00ec}
0x0f24…0f36 Head {h00=0x000e, h01=0x0050, text=» B CLSRET «, t00=0x0009, t01=0x0118}
0x0f36…0f40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x012a}
0x0f40…0f6c Head {h00=0x0028, h01=0x0050, text=»CLS400 CLOSE ALL FILES - VOLUME 4 «, t00=0x0009, t01=0x0134}
0x0f6c…0f98 Head {h00=0x0028, h01=0x0050, text=» DSC0 DK02,CLOSE SECOND REG DATASET «, t00=0x0009, t01=0x0160}
0x0f98…0fb0 Head {h00=0x0014, h01=0x0050, text=» DSC0 FD03,UNLOD«, t00=0x0009, t01=0x018c}
0x0fb0…0fc2 Head {h00=0x000e, h01=0x0050, text=» B CLSRET «, t00=0x000a, t01=0x0014}
0x0fc2…0fcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0026}
0x0fcc…0fda Head {h00=0x000a, h01=0x0050, text=»CLSRET«, t00=0x000a, t01=0x0030}
0x0fda…0fe6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x003e}
0x0fe6…0ff4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x004a}
0x0ff4…0ffe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0058}
0x0ffe…100c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0062}
0x100c…1020 Head {h00=0x0010, h01=0x0050, text=»CYLINE PROC «, t00=0x000a, t01=0x0070}
0x1020…103c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000a, t01=0x0084}
0x103c…1046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a0}
0x1046…1078 Head {h00=0x002e, h01=0x0050, text=»* WRITE ONE LINE TO CYCLE DATASET«, t00=0x000a, t01=0x00aa}
0x1078…1082 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00dc}
0x1082…10ba Head {h00=0x0034, h01=0x0050, text=»* ON ENTRY DATA IN SEPARATE FIELDS «, t00=0x000a, t01=0x00e6}
0x10ba…10c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x011e}
0x10c4…1102 Head {h00=0x003a, h01=0x0050, text=»* ON EXIT CR= OK DATA WRITTEN TO CYSET «, t00=0x000a, t01=0x0128}
0x1102…1144 Head {h00=0x003e, h01=0x0050, text=»* CR=NOK DATA NOT WRITTEN TO CYSET «, t00=0x000a, t01=0x0166}
0x1144…1176 Head {h00=0x002e, h01=0x0050, text=»* E.G. ERROR ON DISK«, t00=0x000b, t01=0x0018}
0x1176…11a8 Head {h00=0x002e, h01=0x0050, text=»* DATASET FULL «, t00=0x000b, t01=0x004a}
0x11a8…11e8 Head {h00=0x003c, h01=0x0050, text=»* WAITED TOO LONG FOR BUFFER «, t00=0x000b, t01=0x007c}
0x11e8…11f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00bc}
0x11f2…120e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000b, t01=0x00c6}
0x120e…122c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,CCYSIZE «, t00=0x000b, t01=0x00e2}
0x122c…1248 Head {h00=0x0018, h01=0x0050, text=» MUL GSWBIN1,TTASKNR«, t00=0x000b, t01=0x0100}
0x1248…126e Head {h00=0x0022, h01=0x0050, text=» CBNL GTCYOUT,GSWBIN1,CYLINNOK«, t00=0x000b, t01=0x011c}
0x126e…128a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'32'«, t00=0x000b, t01=0x0142}
0x128a…129a Head {h00=0x000c, h01=0x0050, text=»CYLIN000«, t00=0x000b, t01=0x015e}
0x129a…12c8 Head {h00=0x002a, h01=0x0050, text=» TBF CCYPFLG,CYLIN010 WAIT FOR BUFFER «, t00=0x000b, t01=0x016e}
0x12c8…12dc Head {h00=0x0010, h01=0x0050, text=» DELAY CBIN2«, t00=0x000c, t01=0x000c}
0x12dc…12f6 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN2«, t00=0x000c, t01=0x0020}
0x12f6…131a Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN1,CBIN0,CYLINNOK «, t00=0x000c, t01=0x003a}
0x131a…132e Head {h00=0x0010, h01=0x0050, text=» B CYLIN000 «, t00=0x000c, t01=0x005e}
0x132e…1338 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0072}
0x1338…1348 Head {h00=0x000c, h01=0x0050, text=»CYLIN010«, t00=0x000c, t01=0x007c}
0x1348…136c Head {h00=0x0020, h01=0x0050, text=» SET CCYPFLG RESERVE BUFFER «, t00=0x000c, t01=0x008c}
0x136c…1394 Head {h00=0x0024, h01=0x0050, text=» MOVE CCYBUF,=X'00' CLEAR BUFFER«, t00=0x000c, t01=0x00b0}
0x1394…13b2 Head {h00=0x001a, h01=0x0050, text=» EDIT CCYBUF,GTSTRFMT «, t00=0x000c, t01=0x00d8}
0x13b2…13e0 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK03,=D'3',CCYBUF,GTCYOUT«, t00=0x000c, t01=0x00f6}
0x13e0…13f6 Head {h00=0x0012, h01=0x0050, text=» BNOK CYLIN100«, t00=0x000c, t01=0x0124}
0x13f6…1410 Head {h00=0x0016, h01=0x0050, text=» ADD GTCYOUT,CBIN1«, t00=0x000c, t01=0x013a}
0x1410…1436 Head {h00=0x0022, h01=0x0050, text=» CLEAR CCYPFLG RELEASE BUFFER «, t00=0x000c, t01=0x0154}
0x1436…144e Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x000c, t01=0x017a}
0x144e…145a (13, 0, 400) Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x0004}
0x145a…1464 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0010}
0x1464…1474 Head {h00=0x000c, h01=0x0050, text=»CYLIN100«, t00=0x000d, t01=0x001a}
0x1474…149a Head {h00=0x0022, h01=0x0050, text=» CLEAR CCYPFLG RELEASE BUFFER «, t00=0x000d, t01=0x002a}
0x149a…14aa Head {h00=0x000c, h01=0x0050, text=»CYLINNOK«, t00=0x000d, t01=0x0050}
0x14aa…14c2 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x000d, t01=0x0060}
0x14c2…14ce Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x0078}
0x14ce…14dc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x0084}
0x14dc…14e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0092}
0x14e6…14f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x009c}
0x14f4…1506 Head {h00=0x000e, h01=0x0050, text=»CYOUT PROC«, t00=0x000d, t01=0x00aa}
0x1506…1522 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x00bc}
0x1522…152c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d8}
0x152c…1564 Head {h00=0x0034, h01=0x0050, text=»* WRITE OUT THE WHOLE CONTENT OF CYSET «, t00=0x000d, t01=0x00e2}
0x1564…158c Head {h00=0x0024, h01=0x0050, text=»* (LESS THAN ONE PAGE) «, t00=0x000d, t01=0x011a}
0x158c…1596 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0142}
0x1596…15b2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x014c}
0x15b2…15d0 Head {h00=0x001a, h01=0x0050, text=» TBT GTCYWRTF,CYOUT050«, t00=0x000d, t01=0x0168}
0x15d0…15ee Head {h00=0x001a, h01=0x0050, text=» TBT TTTSTFLG,CYOUT005«, t00=0x000d, t01=0x0186}
0x15ee…1604 Head {h00=0x0012, h01=0x0050, text=» SET TTTSTFLG «, t00=0x000e, t01=0x0014}
0x1604…1624 Head {h00=0x001c, h01=0x0050, text=» PERF SPLIN8,CBIN5,CBIN2«, t00=0x000e, t01=0x002a}
0x1624…1638 Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x000e, t01=0x004a}
0x1638…164c Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x000e, t01=0x005e}
0x164c…165c Head {h00=0x000c, h01=0x0050, text=»CYOUT005«, t00=0x000e, t01=0x0072}
0x165c…167a Head {h00=0x001a, h01=0x0050, text=» MOVE TTLINNR,TTCYKPOS«, t00=0x000e, t01=0x0082}
0x167a…1698 Head {h00=0x001a, h01=0x0050, text=» TBF GTCYTRPF,CYOUT010«, t00=0x000e, t01=0x00a0}
0x1698…16ce Head {h00=0x0032, h01=0x0050, text=» SUB GTCYOUT,CBIN1 ADJUST FOR TRP LINE, -TOTAL«, t00=0x000e, t01=0x00be}
0x16ce…16de Head {h00=0x000c, h01=0x0050, text=»CYOUT010«, t00=0x000e, t01=0x00f4}
0x16de…16fc Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x000e, t01=0x0104}
0x16fc…171c Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x000e, t01=0x0122}
0x171c…1742 Head {h00=0x0022, h01=0x0050, text=» CBNL GTCYIN,GTCYOUT,CYOUT050 «, t00=0x000e, t01=0x0142}
0x1742…1754 Head {h00=0x000e, h01=0x0050, text=» PERF CYRD«, t00=0x000e, t01=0x0168}
0x1754…176e Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'2'«, t00=0x000e, t01=0x017a}
0x176e…1782 (15, 0, 400) Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x000f, t01=0x0004}
0x1782…1796 Head {h00=0x0010, h01=0x0050, text=» B CYOUT010 «, t00=0x000f, t01=0x0018}
0x1796…17a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x002c}
0x17a0…17b0 Head {h00=0x000c, h01=0x0050, text=»CYOUT050«, t00=0x000f, t01=0x0036}
0x17b0…17bc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000f, t01=0x0046}
0x17bc…17ca Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000f, t01=0x0052}
0x17ca…17d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0060}
0x17d4…17e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x006a}
0x17e2…17f4 Head {h00=0x000e, h01=0x0050, text=»CYWRT PROC«, t00=0x000f, t01=0x0078}
0x17f4…1810 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000f, t01=0x008a}
0x1810…181a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a6}
0x181a…184a Head {h00=0x002c, h01=0x0050, text=»* WRITE A LINE ON CYCLE DATASET«, t00=0x000f, t01=0x00b0}
0x184a…1888 Head {h00=0x003a, h01=0x0050, text=»* IN NOK EMPTY THE CYCLE DATASET TO VOUCHER «, t00=0x000f, t01=0x00e0}
0x1888…18bc Head {h00=0x0030, h01=0x0050, text=»* AND WRITE LINE TO VOUCHER«, t00=0x000f, t01=0x011e}
0x18bc…18c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0152}
0x18c6…18e2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000f, t01=0x015c}
0x18e2…190a Head {h00=0x0024, h01=0x0050, text=» PERF CYLINE WRITE LINE TO CYSET«, t00=0x000f, t01=0x0178}
0x190a…1920 Head {h00=0x0012, h01=0x0050, text=» BNOK CYWRT100«, t00=0x0010, t01=0x0010}
0x1920…193a Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'2'«, t00=0x0010, t01=0x0026}
0x193a…196a Head {h00=0x002c, h01=0x0050, text=» CBL TTLINNR,=D'4',CYWRT010 IF PAGE FULL«, t00=0x0010, t01=0x0040}
0x196a…1986 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0010, t01=0x0070}
0x1986…1992 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x008c}
0x1992…199c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0098}
0x199c…19ac Head {h00=0x000c, h01=0x0050, text=»CYWRT010«, t00=0x0010, t01=0x00a2}
0x19ac…19d4 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR9,=C'TRP ' NEW PAGE «, t00=0x0010, t01=0x00b2}
0x19d4…19ee Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN2«, t00=0x0010, t01=0x00da}
0x19ee…1a02 Head {h00=0x0010, h01=0x0050, text=» PERF CYLINE«, t00=0x0010, t01=0x00f4}
0x1a02…1a26 Head {h00=0x0020, h01=0x0050, text=» SET GTCYTRPF INITIATE PRINT«, t00=0x0010, t01=0x0108}
0x1a26…1a42 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0010, t01=0x012c}
0x1a42…1a4e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0148}
0x1a4e…1a58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0154}
0x1a58…1a68 Head {h00=0x000c, h01=0x0050, text=»CYWRT100«, t00=0x0010, t01=0x015e}
0x1a68…1a7c Head {h00=0x0010, h01=0x0050, text=» PERF CYOUT «, t00=0x0010, t01=0x016e}
0x1a7c…1a92 Head {h00=0x0012, h01=0x0050, text=» SET GTCYWRTF «, t00=0x0010, t01=0x0182}
0x1a92…1aaa Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0011, t01=0x0008}
0x1aaa…1ab6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x0020}
0x1ab6…1ac4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0011, t01=0x002c}
0x1ac4…1ace Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x003a}
0x1ace…1adc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0044}
0x1adc…1aee Head {h00=0x000e, h01=0x0050, text=»CYRD PROC «, t00=0x0011, t01=0x0052}
0x1aee…1b0a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x0064}
0x1b0a…1b14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0080}
0x1b14…1b4c Head {h00=0x0034, h01=0x0050, text=»* READ ONE LINE FROM CYCLE DATASET AND «, t00=0x0011, t01=0x008a}
0x1b4c…1b72 Head {h00=0x0022, h01=0x0050, text=»* WRITE IT TO VOUCHER«, t00=0x0011, t01=0x00c2}
0x1b72…1b7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00e8}
0x1b7c…1bb8 Head {h00=0x0038, h01=0x0050, text=»* VOUCHER SHOULD BE POSITIONED BEFORE PRINT«, t00=0x0011, t01=0x00f2}
0x1bb8…1bc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x012e}
0x1bc2…1bde Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x0138}
0x1bde…1bfa Head {h00=0x0018, h01=0x0050, text=» PERF WAITF,CCYPFLG «, t00=0x0011, t01=0x0154}
0x1bfa…1c22 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,=W'128' SET LENGTH«, t00=0x0011, t01=0x0170}
0x1c22…1c58 Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK03,=D'3',CCYBUF,GSWBIN1,GTCYIN «, t00=0x0012, t01=0x0008}
0x1c58…1c6e Head {h00=0x0012, h01=0x0050, text=» BNOK CYRDNOK «, t00=0x0012, t01=0x003e}
0x1c6e…1c8e Head {h00=0x001c, h01=0x0050, text=» EDWRT .NW,KVOUCH,CYEDT «, t00=0x0012, t01=0x0054}
0x1c8e…1ca4 Head {h00=0x0012, h01=0x0050, text=» CLEAR CCYPFLG«, t00=0x0012, t01=0x0074}
0x1ca4…1cb6 Head {h00=0x000e, h01=0x0050, text=» B CYRD100«, t00=0x0012, t01=0x008a}
0x1cb6…1cc6 Head {h00=0x000c, h01=0x0050, text=»CYRDNOK «, t00=0x0012, t01=0x009c}
0x1cc6…1ce0 Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x0012, t01=0x00ac}
0x1ce0…1cf6 Head {h00=0x0012, h01=0x0050, text=» CLEAR CCYPFLG«, t00=0x0012, t01=0x00c6}
0x1cf6…1d08 Head {h00=0x000e, h01=0x0050, text=» PERF CRVO«, t00=0x0012, t01=0x00dc}
0x1d08…1d24 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0012, t01=0x00ee}
0x1d24…1d30 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0012, t01=0x010a}
0x1d30…1d3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0116}
0x1d3a…1d4a Head {h00=0x000c, h01=0x0050, text=»CYRD100 «, t00=0x0012, t01=0x0120}
0x1d4a…1d5e Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0012, t01=0x0130}
0x1d5e…1d70 Head {h00=0x000e, h01=0x0050, text=» PERF CRVO«, t00=0x0012, t01=0x0144}
0x1d70…1d8a Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x0012, t01=0x0156}
0x1d8a…1da6 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0012, t01=0x0170}
0x1da6…1db2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0012, t01=0x018c}
0x1db2…1dc0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0013, t01=0x0008}
0x1dc0…1dca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0016}
0x1dca…1dd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0020}
0x1dd4…1de6 Head {h00=0x000e, h01=0x0050, text=»CYEDT FRMT«, t00=0x0013, t01=0x002a}
0x1de6…1dfc Head {h00=0x0012, h01=0x0050, text=» FCOPY CCYBUF «, t00=0x0013, t01=0x003c}
0x1dfc…1e0a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0013, t01=0x0052}
0x1e0a…1e14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0060}
0x1e14…1e22 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x006a}
0x1e22…1e34 Head {h00=0x000e, h01=0x0050, text=»CYTRP PROC«, t00=0x0013, t01=0x0078}
0x1e34…1e50 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0013, t01=0x008a}
0x1e50…1e5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a6}
0x1e5a…1e80 Head {h00=0x0022, h01=0x0050, text=»* PRINT A WHOLE PAGE «, t00=0x0013, t01=0x00b0}
0x1e80…1e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00d6}
0x1e8a…1ec4 Head {h00=0x0036, h01=0x0050, text=»* AND WRITE TRANSPORT LINE FIRST ON CYSET«, t00=0x0013, t01=0x00e0}
0x1ec4…1ece Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x011a}
0x1ece…1eea Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0013, t01=0x0124}
0x1eea…1f08 Head {h00=0x001a, h01=0x0050, text=» TBF GTCYTRPF,CYTRP200«, t00=0x0013, t01=0x0140}
0x1f08…1f38 Head {h00=0x002c, h01=0x0050, text=» TBT GTCYWRTF,CYTRP100 T=ALREADY WRITTEN«, t00=0x0013, t01=0x015e}
0x1f38…1f50 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTCYTRPF «, t00=0x0013, t01=0x018e}
0x1f50…1f68 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0014, t01=0x0016}
0x1f68…1f7c Head {h00=0x0010, h01=0x0050, text=» PERF CYOUT «, t00=0x0014, t01=0x002e}
0x1f7c…1f90 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0014, t01=0x0042}
0x1f90…1fae Head {h00=0x001a, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS«, t00=0x0014, t01=0x0056}
0x1fae…1fc6 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0014, t01=0x0074}
0x1fc6…1fe4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR9,=C'TRP '«, t00=0x0014, t01=0x008c}
0x1fe4…1ffe Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN2«, t00=0x0014, t01=0x00aa}
0x1ffe…201a Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYIN,TTASKNR«, t00=0x0014, t01=0x00c4}
0x201a…2034 Head {h00=0x0016, h01=0x0050, text=» SUB GTCYIN,CBIN1 «, t00=0x0014, t01=0x00e0}
0x2034…2050 Head {h00=0x0018, h01=0x0050, text=» MUL GTCYIN,CCYSIZE «, t00=0x0014, t01=0x00fa}
0x2050…206a Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x0014, t01=0x0116}
0x206a…2086 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYOUT,GTCYIN«, t00=0x0014, t01=0x0130}
0x2086…20a4 Head {h00=0x001a, h01=0x0050, text=» MOVE TTLINNR,TTCYKST «, t00=0x0014, t01=0x014c}
0x20a4…20c2 Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKPOS,TTLINNR«, t00=0x0014, t01=0x016a}
0x20c2…20d6 Head {h00=0x0010, h01=0x0050, text=» PERF CYLINE«, t00=0x0014, t01=0x0188}
0x20d6…20ec Head {h00=0x0012, h01=0x0050, text=» BNOK CYTRP100«, t00=0x0015, t01=0x000c}
0x20ec…2100 Head {h00=0x0010, h01=0x0050, text=» B CYTRP150 «, t00=0x0015, t01=0x0022}
0x2100…210a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0036}
0x210a…211a Head {h00=0x000c, h01=0x0050, text=»CYTRP100«, t00=0x0015, t01=0x0040}
0x211a…2132 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTCYTRPF «, t00=0x0015, t01=0x0050}
0x2132…2148 Head {h00=0x0012, h01=0x0050, text=» SET GTCYWRTF «, t00=0x0015, t01=0x0068}
0x2148…217a Head {h00=0x002e, h01=0x0050, text=» PERF SPLIN8,CBIN3,CBIN2 ASK FOR 'NY SIDE'«, t00=0x0015, t01=0x007e}
0x217a…2194 Head {h00=0x0016, h01=0x0050, text=» PERF GRASPV GRASP«, t00=0x0015, t01=0x00b0}
0x2194…21b2 Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKPOS,TTCYKST«, t00=0x0015, t01=0x00ca}
0x21b2…21e0 Head {h00=0x002a, h01=0x0050, text=» MOVE TTLINNR,TTCYKST POSITION VOUCHER«, t00=0x0015, t01=0x00e8}
0x21e0…21fe Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0015, t01=0x0116}
0x21fe…221e Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x0015, t01=0x0134}
0x221e…2252 Head {h00=0x0030, h01=0x0050, text=» MOVE GSWSTR9,=C'TRP ' SET UP TRANSPORT LINE«, t00=0x0015, t01=0x0154}
0x2252…226c Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN2«, t00=0x0015, t01=0x0188}
0x226c…229a Head {h00=0x002a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT WRITE TRP LINE «, t00=0x0016, t01=0x0012}
0x229a…22a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0040}
0x22a4…22b4 Head {h00=0x000c, h01=0x0050, text=»CYTRP150«, t00=0x0016, t01=0x004a}
0x22b4…22ce Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'2'«, t00=0x0016, t01=0x005a}
0x22ce…22de Head {h00=0x000c, h01=0x0050, text=»CYTRP200«, t00=0x0016, t01=0x0074}
0x22de…22ea Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x0084}
0x22ea…22f8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0016, t01=0x0090}
0x22f8…2302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x009e}
0x2302…230e Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0016, t01=0x00a8}
0x230e…2312 Head {h00=0x4004, h01=0x0000}
0x2312…2316 00 16 00 b4 ┆ ┆
0x2316…231e (23, 1, 8) 20 04 00 00 00 17 00 04 ┆ ┆
0x231e…236e (24, 0, 400) 00 38 00 48 20 49 44 45 4e 54 20 4b 54 50 4c 4e 20 20 20 54 52 41 20 34 2e 32 20 20 38 34 2d 30 32 2d 30 33 20 46 31 20 4f 31 31 31 31 20 20 38 34 30 32 30 33 20 45 56 00 00 00 04 00 1c 00 18 01 0b c8 4b 54 50 4c 41 4e 00 c8 52 45 53 54 4d ┆ 8 H IDENT KTPLN TRA 4.2 84-02-03 F1 O1111 840203 EV KTPLAN RESTM┆
0x236e…23be 4b 00 a8 53 45 54 4d 4b 00 00 00 40 00 0e 00 0a 02 04 c8 24 24 24 54 52 41 50 00 00 00 60 00 22 00 1e 05 0e c8 4b 54 50 4c 41 4e 00 00 00 c8 52 45 53 54 4d 4b 53 00 87 a8 53 45 54 4d 4b 00 e7 00 00 00 72 00 0e 00 0a 02 04 c8 52 41 52 45 41 ┆K SETMK @ $$$TRAP ` " KTPLAN RESTMKS SETMK r RAREA┆
0x23be…240e 44 50 00 00 00 98 00 0e 00 09 00 04 14 07 00 0d 30 01 00 50 00 00 00 aa 00 0e 00 0a 00 04 10 08 00 2a 20 02 00 80 00 00 00 bc 00 0c 00 08 00 03 07 06 00 2f 00 02 00 00 00 ce 00 0e 00 09 00 04 15 07 00 31 30 01 b4 80 00 00 00 de 00 0e 00 09 ┆DP 0 P * / 10 ┆
0x240e…245e 00 04 14 07 00 3c 30 01 b1 80 00 00 00 f0 00 4a 00 46 00 22 00 44 00 00 00 93 10 02 93 11 22 93 17 0c 21 55 93 4c 07 2c 55 93 00 0e 5f 13 00 93 51 28 93 10 55 00 93 11 57 50 08 93 13 04 93 12 01 94 4c 00 58 4c 80 52 1b 4c 58 94 93 54 46 00 ┆ <0 J F " D " !U L ,U _ Q( U WP L XL R LX TF ┆
0x245e…24ae 94 10 01 9c 4c 6a 9c 11 00 00 01 02 00 0e 00 0a 00 04 10 08 00 50 20 02 00 78 00 00 01 50 00 0e 00 09 00 04 14 07 00 5c 30 01 b1 78 00 00 01 62 00 0e 00 09 00 04 14 07 00 74 30 01 00 78 00 00 01 74 00 0e 00 0a 00 04 10 08 00 77 20 02 ff ff ┆ Lj P x P 0 x b t0 x t w ┆
0x24ae…24fe (25, 0, 400) 00 00 01 86 00 0e 00 09 00 04 14 07 00 81 30 01 00 ff 00 01 00 08 00 4a 00 46 00 22 00 44 00 40 16 58 94 20 9c 00 10 22 9c 00 25 02 94 18 1b 94 4c 18 02 93 11 5f 2f 02 94 16 01 9c 4c 6a 9c 15 12 58 94 00 01 9c 04 94 16 40 2b 06 10 10 34 02 ┆ 0 J F " D @ X " % L _/ Lj X @+ 4 ┆
0x24fe…254e 40 2b 01 01 4c 01 94 4c 06 10 10 34 02 40 2b 01 00 01 00 1a 00 0e 00 0a 00 04 10 08 00 a1 20 02 00 78 00 01 00 68 00 0e 00 09 00 04 14 07 00 a4 30 01 b1 78 00 01 00 7a 00 0e 00 0a 00 04 10 08 00 b7 20 02 00 78 00 01 00 8c 00 0e 00 09 00 04 ┆@+ L L 4 @+ x h 0 x z x ┆
0x254e…259e 14 07 00 ba 30 01 b1 78 00 01 00 9e 00 4a 00 46 00 22 00 44 00 80 01 4c 06 11 10 34 02 00 92 93 02 92 12 0a 92 13 20 93 51 1d 00 94 92 08 94 13 04 94 93 54 46 01 94 4c 01 9c 4c 6a 9c 11 16 58 94 00 55 92 9c 57 34 20 51 10 2b 01 94 4c 01 9c ┆ 0 x J F " D L 4 Q TF L Lj X U W4 Q + L ┆
0x259e…25ee 4c 68 58 94 11 4c 00 01 00 b0 00 0e 00 09 00 04 14 07 00 d8 30 01 00 11 00 01 00 fe 00 0e 00 0a 00 04 10 08 00 ec 20 02 00 80 00 01 01 10 00 0c 00 08 00 03 07 06 00 f1 00 02 00 01 01 22 00 0e 00 09 00 04 15 07 00 f3 30 01 b4 80 00 01 01 32 ┆LhX L 0 " 0 2┆
0x25ee…263e 00 0e 00 0a 00 04 10 08 00 f9 20 02 00 78 00 01 01 44 00 4a 00 46 00 22 00 44 00 c0 10 11 50 17 6a 9c 11 16 58 94 00 55 92 9c 02 92 11 22 92 17 10 01 55 92 4c 5f 0d 04 94 18 5e 25 00 92 10 5f 17 34 00 00 93 11 01 94 4c 00 58 4c 80 52 1b 4c ┆ x D J F " D P j X U " U L_ ^% _ 4 L XL R L┆
0x263e…268e (26, 2, 230) 58 94 93 01 94 4c 68 58 94 12 4c 10 00 01 01 56 00 0c 00 08 00 03 06 06 01 04 00 87 00 02 00 14 00 0e 00 0a 00 04 10 08 01 0a 20 02 00 15 00 02 00 24 00 0e 00 0a 00 04 10 08 01 0e 20 02 00 15 00 02 00 36 00 0e 00 0a 00 04 10 08 01 24 20 02 ┆X LhX L V $ 6 $ ┆
0x268e…26de 00 80 00 02 00 48 00 0c 00 08 00 03 07 06 01 29 00 02 00 02 00 5a 00 0e 00 09 00 04 15 07 01 2b 30 01 b4 80 00 02 00 6a 00 0c 00 08 00 03 06 06 01 33 00 87 00 02 00 7c 00 40 00 3c 00 1d 00 3a 01 00 12 50 0e 80 52 02 93 11 1b 93 4c 22 01 51 ┆ H ) Z +0 j 3 | @ < : P R L" Q┆
0x26de…2724 4c 57 23 00 94 10 68 58 94 12 4c 10 12 54 12 04 93 11 50 0d 01 94 4c 00 58 4c 80 52 1b 4c 58 94 93 00 51 93 80 52 34 00 00 02 00 8c 00 0e 00 0a 07 04 00 00 01 33 01 36 00 01 00 02 00 d0 40 04 00 00 00 02 00 e2 ┆LW# hX L T P L XL R LX Q R4 3 6 @ ┆
0x2724…2774 (27, 0, 400) 47 53 57 53 54 52 32 30 00 32 01 7a 00 28 00 50 20 43 42 45 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 39 2c 52 47 52 30 36 30 20 44 2f 4b 20 4d 41 52 4b 3f 20 00 33 00 10 00 1a 00 50 5c 5c 5c 43 48 45 43 4b 20 49 46 20 57 49 54 48 20 53 49 47 ┆GSWSTR20 2 z ( P CBE GSWBIN3,CBIN9,RGR060 D/K MARK? 3 P CHECK IF WITH SIG┆
0x2774…27c4 4e 20 00 33 00 3c 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 30 20 00 33 00 5a 00 18 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c 3d 43 27 2d 27 20 00 33 00 76 00 36 00 50 20 4d 41 54 43 48 20 47 53 57 53 54 52 32 ┆N 3 < P MOVE GSWBIN3,CBIN0 3 Z P MOVE GSWSTR2,=C'-' 3 v 6 P MATCH GSWSTR2┆
0x27c4…2814 30 2c 47 53 57 42 49 4e 33 2c 43 42 49 4e 32 30 2c 47 53 57 53 54 52 32 2c 43 42 49 4e 30 2c 43 42 49 4e 31 00 33 00 92 00 10 00 50 20 42 4e 45 20 52 47 52 30 34 30 20 00 33 00 cc 00 20 00 50 20 4d 55 4c 20 47 54 55 53 45 44 28 47 53 57 42 ┆0,GSWBIN3,CBIN20,GSWSTR2,CBIN0,CBIN1 3 P BNE RGR040 3 P MUL GTUSED(GSWB┆
0x2814…2864 49 4e 34 29 2c 3d 57 27 2d 31 27 20 00 33 00 e0 00 20 00 50 20 4d 55 4c 20 47 54 44 55 50 46 28 47 53 57 42 49 4e 34 29 2c 3d 44 27 2d 31 27 20 00 33 01 04 00 20 00 50 20 4d 55 4c 20 47 54 52 45 47 46 28 47 53 57 42 49 4e 34 29 2c 3d 44 27 ┆IN4),=W'-1' 3 P MUL GTDUPF(GSWBIN4),=D'-1' 3 P MUL GTREGF(GSWBIN4),=D'┆
0x2864…28b4 2d 31 27 20 00 33 01 28 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 33 01 4c 00 0a 00 50 52 47 52 30 34 30 00 33 01 5e 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 30 20 00 33 01 6c 00 36 00 50 20 4d 41 54 43 48 20 47 ┆-1' 3 ( P B RGR030 3 L PRGR040 3 ^ P MOVE GSWBIN3,CBIN0 3 l 6 P MATCH G┆
0x28b4…2904 (28, 0, 400) 53 57 53 54 52 32 30 2c 47 53 57 42 49 4e 33 2c 43 42 49 4e 32 30 2c 43 42 4c 41 4e 4b 53 2c 43 42 49 4e 30 2c 43 42 49 4e 31 00 33 01 88 00 10 00 50 20 42 4e 45 20 52 47 52 30 33 30 20 00 34 00 32 00 20 00 50 20 4d 55 4c 20 47 54 55 53 45 ┆SWSTR20,GSWBIN3,CBIN20,CBLANKS,CBIN0,CBIN1 3 P BNE RGR030 4 2 P MUL GTUSE┆
0x2904…2954 44 28 47 53 57 42 49 4e 34 29 2c 3d 57 27 2d 31 27 20 00 34 00 46 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 34 00 6a 00 1a 00 50 52 47 52 30 36 30 5c 5c 5c 53 45 54 20 44 2f 4b 20 49 4e 46 4f 20 00 34 00 7c 00 22 00 50 20 4d 4f 56 45 20 ┆D(GSWBIN4),=W'-1' 4 F P B RGR030 4 j PRGR060 SET D/K INFO 4 | " P MOVE ┆
0x2954…29a4 47 53 57 42 49 4e 33 2c 47 54 44 55 50 46 28 47 53 57 42 49 4e 34 29 20 00 34 00 9a 00 20 00 50 20 50 45 52 46 49 20 47 53 57 42 49 4e 33 2c 53 45 54 4b 52 45 2c 53 45 54 44 45 42 00 34 00 c0 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 34 ┆GSWBIN3,GTDUPF(GSWBIN4) 4 P PERFI GSWBIN3,SETKRE,SETDEB 4 P B RGR030 4┆
0x29a4…29f4 00 e4 00 0a 00 50 52 47 52 31 30 30 00 34 00 f6 00 14 00 50 5c 5c 5c 45 4e 44 20 4f 46 20 52 45 43 4f 52 44 00 34 01 04 00 18 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c 3d 58 27 37 46 27 00 34 01 1c 00 22 00 50 20 4d 4f 56 45 20 47 53 ┆ PRGR100 4 P END OF RECORD 4 P MOVE GSWSTR2,=X'7F' 4 " P MOVE GS┆
0x29f4…2a44 57 42 49 4e 36 2c 47 53 57 42 49 4e 34 20 52 45 53 54 4f 52 45 20 00 34 01 38 00 36 00 50 20 4d 41 54 43 48 20 43 50 43 4b 42 55 46 2c 47 53 57 42 49 4e 36 2c 47 53 57 42 49 4e 35 2c 47 53 57 53 54 52 32 2c 43 42 49 4e 30 2c 43 42 49 4e 31 ┆WBIN6,GSWBIN4 RESTORE 4 8 6 P MATCH CPCKBUF,GSWBIN6,GSWBIN5,GSWSTR2,CBIN0,CBIN1┆