DataMuseum.dk

Presents historical artifacts from the history of:

Philips Data Systems

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Philips Data Systems

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦522b6d9cc⟧

    Length: 7818 (0x1e8a)
    Notes: pts_type(SC)
    Names: »RGSUB3.SC«

Derivation

└─⟦9ad21746d⟧ Bits:30009682 Philips computer tape "600304"
    └─⟦this⟧ »NJ-AMT/RGSUB3.SC« 

PTS(SC)

	IDENT RGSUB3 	02.01.XXX.1
 DDUM KMD08 
 PDIV 
* 
 ENTRY ASGVOL 
 ENTRY CLSVOL 
 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 
* 
 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 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
 PERF ASSG,CBIN2,DK02,CBIN2 REG DATASET 
 B ASGRET 
* 
ASG300			ASSIGN ALL FILES - VOLUME 3
 B ASGOK
* 
ASG400			ASSIGN ALL FILES - VOLUME 4
 B ASGOK
* 
ASGNOK
 CMP CBIN1,CBIN0
 RET
* 
ASGOK 
 CMP CBIN0,CBIN0
ASGRET
 RET
 PEND 
* 
 EJECT
CLSVOL PROC VOL 
********************
* 
*          CLOSE ROUTINE - PER VOLUME 
* 
*          CLOSES ALL FILES ON SPECIFIED VOLUME 
* 
*          CALL:     PERF CLSVOL,<VOLUME NUMBER>
* 
********************
* 
 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
 DSC0 FD01,UNLOD
 B CLSRET 
* 
CLS200			CLOSE ALL FILES - VOLUME 2 
 DSC0 DK02,CLOSE
 DSC0 FD02,UNLOD
 B CLSRET 
* 
CLS300			CLOSE ALL FILES - VOLUME 3 
 B CLSRET 
* 
CLS400			CLOSE ALL FILES - VOLUME 4 
 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
* 
********************
CYRD000 
 TBF CCYPFLG,CYRD010
 DELAY CBIN2 WAIT FOR CYCLE BUFFER
 B CYRD000
CYRD010 
 SET CCYPFLG RESERVE CYCLE BUFFER 
 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

HexDump

0x0000…0022 (0, 0, 400)  Head {h00=0x001e, h01=0x0050, text=» IDENT RGSUB3  02.01.XXX.1«, t00=0x0000, t01=0x0004}
0x0022…0036              Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x0026}
0x0036…0044              Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x003a}
0x0044…004e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0048}
0x004e…0064              Head {h00=0x0012, h01=0x0050, text=» ENTRY ASGVOL «, t00=0x0000, t01=0x0052}
0x0064…007a              Head {h00=0x0012, h01=0x0050, text=» ENTRY CLSVOL «, t00=0x0000, t01=0x0068}
0x007a…0090              Head {h00=0x0012, h01=0x0050, text=» ENTRY CYLINE «, t00=0x0000, t01=0x007e}
0x0090…00a4              Head {h00=0x0010, h01=0x0050, text=» ENTRY CYOUT«, t00=0x0000, t01=0x0094}
0x00a4…00b8              Head {h00=0x0010, h01=0x0050, text=» ENTRY CYWRT«, t00=0x0000, t01=0x00a8}
0x00b8…00cc              Head {h00=0x0010, h01=0x0050, text=» ENTRY CYRD «, t00=0x0000, t01=0x00bc}
0x00cc…00e0              Head {h00=0x0010, h01=0x0050, text=» ENTRY CYTRP«, t00=0x0000, t01=0x00d0}
0x00e0…00ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e4}
0x00ea…00fc              Head {h00=0x000e, h01=0x0050, text=» EXT ABORT«, t00=0x0000, t01=0x00ee}
0x00fc…010e              Head {h00=0x000e, h01=0x0050, text=» EXT ASSG «, t00=0x0000, t01=0x0100}
0x010e…0122              Head {h00=0x0010, h01=0x0050, text=» EXT RAWRIT «, t00=0x0000, t01=0x0112}
0x0122…0136              Head {h00=0x0010, h01=0x0050, text=» EXT RAREAD «, t00=0x0000, t01=0x0126}
0x0136…014a              Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0000, t01=0x013a}
0x014a…015e              Head {h00=0x0010, h01=0x0050, text=» EXT CLEAR8 «, t00=0x0000, t01=0x014e}
0x015e…0172              Head {h00=0x0010, h01=0x0050, text=» EXT GRASPV «, t00=0x0000, t01=0x0162}
0x0172…0186              Head {h00=0x0010, h01=0x0050, text=» EXT FRMXVO «, t00=0x0000, t01=0x0176}
0x0186…0198              Head {h00=0x000e, h01=0x0050, text=» EXT CRVO «, t00=0x0000, t01=0x018a}
0x0198…01a2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000c}
0x01a2…01ba              Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x0016}
0x01ba…01c8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x002e}
0x01c8…01e0              Head {h00=0x0014, h01=0x0050, text=»ASGVOL PROC VOL «, t00=0x0001, t01=0x003c}
0x01e0…01fc              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0001, t01=0x0054}
0x01fc…0206              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0070}
0x0206…0234              Head {h00=0x002a, h01=0x0050, text=»*          ASSIGN ROUTINE - PER VOLUME«, t00=0x0001, t01=0x007a}
0x0234…023e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a8}
0x023e…0276              Head {h00=0x0034, h01=0x0050, text=»*          ASSIGNS ALL FILES ON SPECIFIED VOLUME«, t00=0x0001, t01=0x00b2}
0x0276…0280              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ea}
0x0280…02b8              Head {h00=0x0034, h01=0x0050, text=»*          IF VOL=0, ONLY CONFIGURATION DATA SET«, t00=0x0001, t01=0x00f4}
0x02b8…02c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012c}
0x02c2…02cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0136}
0x02cc…0304              Head {h00=0x0034, h01=0x0050, text=»*          CALL:     PERF ASGVOL,<VOLUME NUMBER>«, t00=0x0001, t01=0x0140}
0x0304…030e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0178}
0x030e…032a              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0001, t01=0x0182}
0x032a…0334              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x000e}
0x0334…0348              Head {h00=0x0010, h01=0x0050, text=» IB VOL,  C «, t00=0x0002, t01=0x0018}
0x0348…036e              Head {h00=0x0022, h01=0x0050, text=»  ASG100,ASG200,ASG300,ASG400 «, t00=0x0002, t01=0x002c}
0x036e…038c              Head {h00=0x001a, h01=0x0050, text=» CBNE VOL,CBIN0,ASGNOK«, t00=0x0002, t01=0x0052}
0x038c…0396              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0070}
0x0396…03ba              Head {h00=0x0020, h01=0x0050, text=»ASG000   ASSIGN CONF DATASET«, t00=0x0002, t01=0x007a}
0x03ba…03de              Head {h00=0x0020, h01=0x0050, text=» PERF ASSG,CBIN1,DK01,CBIN1 «, t00=0x0002, t01=0x009e}
0x03de…03f0              Head {h00=0x000e, h01=0x0050, text=» B ASGRET «, t00=0x0002, t01=0x00c2}
0x03f0…03fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d4}
0x03fa…0426              Head {h00=0x0028, h01=0x0050, text=»ASG100   ASSIGN ALL FILES - VOLUME 1«, t00=0x0002, t01=0x00de}
0x0426…0456              Head {h00=0x002c, h01=0x0050, text=» PERF ASSG,CBIN1,DK01,CBIN1 CONF DATASET«, t00=0x0002, t01=0x010a}
0x0456…046a              Head {h00=0x0010, h01=0x0050, text=» BNOK ASGRET«, t00=0x0002, t01=0x013a}
0x046a…049c              Head {h00=0x002e, h01=0x0050, text=» PERF ASSG,CBIN1,DK03,CBIN3 CYCLE DATASET «, t00=0x0002, t01=0x014e}
0x049c…04b0              Head {h00=0x0010, h01=0x0050, text=» BNOK ASGRET«, t00=0x0002, t01=0x0180}
0x04b0…04dc (3, 0, 400)  Head {h00=0x0028, h01=0x0050, text=» PERF ASSG,CBIN1,DK04,CBIN4 KT PLAN «, t00=0x0003, t01=0x0004}
0x04dc…04f0              Head {h00=0x0010, h01=0x0050, text=» BNOK ASGRET«, t00=0x0003, t01=0x0030}
0x04f0…050c              Head {h00=0x0018, h01=0x0050, text=» TBF CGLREGFL,ASGRET«, t00=0x0003, t01=0x0044}
0x050c…0528              Head {h00=0x0018, h01=0x0050, text=» MOVE CGLRECNR,=D'0'«, t00=0x0003, t01=0x0060}
0x0528…0556              Head {h00=0x002a, h01=0x0050, text=» PERF ASSG,CBIN1,DK05,CBIN5 OLD REGSET«, t00=0x0003, t01=0x007c}
0x0556…056a              Head {h00=0x0010, h01=0x0050, text=» BNOK ASGRET«, t00=0x0003, t01=0x00aa}
0x056a…0588              Head {h00=0x001a, h01=0x0050, text=» MOVE CGLRECNR,TTGLREC«, t00=0x0003, t01=0x00be}
0x0588…059a              Head {h00=0x000e, h01=0x0050, text=» B ASGRET «, t00=0x0003, t01=0x00dc}
0x059a…05a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ee}
0x05a4…05d0              Head {h00=0x0028, h01=0x0050, text=»ASG200   ASSIGN ALL FILES - VOLUME 2«, t00=0x0003, t01=0x00f8}
0x05d0…0600              Head {h00=0x002c, h01=0x0050, text=» PERF ASSG,CBIN2,DK02,CBIN2 REG DATASET «, t00=0x0003, t01=0x0124}
0x0600…0612              Head {h00=0x000e, h01=0x0050, text=» B ASGRET «, t00=0x0003, t01=0x0154}
0x0612…061c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0166}
0x061c…0648              Head {h00=0x0028, h01=0x0050, text=»ASG300   ASSIGN ALL FILES - VOLUME 3«, t00=0x0003, t01=0x0170}
0x0648…0658              Head {h00=0x000c, h01=0x0050, text=» B ASGOK«, t00=0x0004, t01=0x000c}
0x0658…0662              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x001c}
0x0662…068e              Head {h00=0x0028, h01=0x0050, text=»ASG400   ASSIGN ALL FILES - VOLUME 4«, t00=0x0004, t01=0x0026}
0x068e…069e              Head {h00=0x000c, h01=0x0050, text=» B ASGOK«, t00=0x0004, t01=0x0052}
0x069e…06a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0062}
0x06a8…06b6              Head {h00=0x000a, h01=0x0050, text=»ASGNOK«, t00=0x0004, t01=0x006c}
0x06b6…06ce              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0004, t01=0x007a}
0x06ce…06da              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x0092}
0x06da…06e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x009e}
0x06e4…06f2              Head {h00=0x000a, h01=0x0050, text=»ASGOK «, t00=0x0004, t01=0x00a8}
0x06f2…070a              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0004, t01=0x00b6}
0x070a…0718              Head {h00=0x000a, h01=0x0050, text=»ASGRET«, t00=0x0004, t01=0x00ce}
0x0718…0724              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x00dc}
0x0724…0732              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x00e8}
0x0732…073c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00f6}
0x073c…074a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0100}
0x074a…0762              Head {h00=0x0014, h01=0x0050, text=»CLSVOL PROC VOL «, t00=0x0004, t01=0x010e}
0x0762…077e              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0004, t01=0x0126}
0x077e…0788              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0142}
0x0788…07b6              Head {h00=0x002a, h01=0x0050, text=»*          CLOSE ROUTINE - PER VOLUME «, t00=0x0004, t01=0x014c}
0x07b6…07c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017a}
0x07c0…07f8              Head {h00=0x0034, h01=0x0050, text=»*          CLOSES ALL FILES ON SPECIFIED VOLUME «, t00=0x0004, t01=0x0184}
0x07f8…0802              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x002c}
0x0802…083a              Head {h00=0x0034, h01=0x0050, text=»*          CALL:     PERF CLSVOL,<VOLUME NUMBER>«, t00=0x0005, t01=0x0036}
0x083a…0844              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x006e}
0x0844…0860              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0005, t01=0x0078}
0x0860…086a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0094}
0x086a…087e              Head {h00=0x0010, h01=0x0050, text=» IB VOL,  C «, t00=0x0005, t01=0x009e}
0x087e…08a4              Head {h00=0x0022, h01=0x0050, text=»  CLS100,CLS200,CLS300,CLS400 «, t00=0x0005, t01=0x00b2}
0x08a4…08b6              Head {h00=0x000e, h01=0x0050, text=» B CLSRET «, t00=0x0005, t01=0x00d8}
0x08b6…08c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ea}
0x08c0…08ec              Head {h00=0x0028, h01=0x0050, text=»CLS100   CLOSE ALL FILES - VOLUME 1 «, t00=0x0005, t01=0x00f4}
0x08ec…0904              Head {h00=0x0014, h01=0x0050, text=» DSC0 DK01,CLOSE«, t00=0x0005, t01=0x0120}
0x0904…091c              Head {h00=0x0014, h01=0x0050, text=» DSC0 DK02,CLOSE«, t00=0x0005, t01=0x0138}
0x091c…0934              Head {h00=0x0014, h01=0x0050, text=» DSC0 DK04,CLOSE«, t00=0x0005, t01=0x0150}
0x0934…0950              Head {h00=0x0018, h01=0x0050, text=» TBF CGLREGFL,CLS150«, t00=0x0005, t01=0x0168}
0x0950…0968              Head {h00=0x0014, h01=0x0050, text=» DSC0 DK05,CLOSE«, t00=0x0005, t01=0x0184}
0x0968…0976              Head {h00=0x000a, h01=0x0050, text=»CLS150«, t00=0x0006, t01=0x000c}
0x0976…098e              Head {h00=0x0014, h01=0x0050, text=» DSC0 FD01,UNLOD«, t00=0x0006, t01=0x001a}
0x098e…09a0              Head {h00=0x000e, h01=0x0050, text=» B CLSRET «, t00=0x0006, t01=0x0032}
0x09a0…09aa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0044}
0x09aa…09d6              Head {h00=0x0028, h01=0x0050, text=»CLS200   CLOSE ALL FILES - VOLUME 2 «, t00=0x0006, t01=0x004e}
0x09d6…09ee              Head {h00=0x0014, h01=0x0050, text=» DSC0 DK02,CLOSE«, t00=0x0006, t01=0x007a}
0x09ee…0a06              Head {h00=0x0014, h01=0x0050, text=» DSC0 FD02,UNLOD«, t00=0x0006, t01=0x0092}
0x0a06…0a18              Head {h00=0x000e, h01=0x0050, text=» B CLSRET «, t00=0x0006, t01=0x00aa}
0x0a18…0a22              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00bc}
0x0a22…0a4e              Head {h00=0x0028, h01=0x0050, text=»CLS300   CLOSE ALL FILES - VOLUME 3 «, t00=0x0006, t01=0x00c6}
0x0a4e…0a60              Head {h00=0x000e, h01=0x0050, text=» B CLSRET «, t00=0x0006, t01=0x00f2}
0x0a60…0a6a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0104}
0x0a6a…0a96              Head {h00=0x0028, h01=0x0050, text=»CLS400   CLOSE ALL FILES - VOLUME 4 «, t00=0x0006, t01=0x010e}
0x0a96…0aa8              Head {h00=0x000e, h01=0x0050, text=» B CLSRET «, t00=0x0006, t01=0x013a}
0x0aa8…0ab2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x014c}
0x0ab2…0ac0              Head {h00=0x000a, h01=0x0050, text=»CLSRET«, t00=0x0006, t01=0x0156}
0x0ac0…0acc              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0164}
0x0acc…0ada              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x0170}
0x0ada…0ae4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x017e}
0x0ae4…0af2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0188}
0x0af2…0b06              Head {h00=0x0010, h01=0x0050, text=»CYLINE PROC «, t00=0x0007, t01=0x0008}
0x0b06…0b22              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0007, t01=0x001c}
0x0b22…0b2c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0038}
0x0b2c…0b5e              Head {h00=0x002e, h01=0x0050, text=»*          WRITE ONE LINE TO CYCLE DATASET«, t00=0x0007, t01=0x0042}
0x0b5e…0b68              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0074}
0x0b68…0ba0              Head {h00=0x0034, h01=0x0050, text=»*          ON ENTRY     DATA IN SEPARATE FIELDS «, t00=0x0007, t01=0x007e}
0x0ba0…0baa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b6}
0x0baa…0be8              Head {h00=0x003a, h01=0x0050, text=»*          ON EXIT      CR= OK  DATA WRITTEN TO CYSET «, t00=0x0007, t01=0x00c0}
0x0be8…0c2a              Head {h00=0x003e, h01=0x0050, text=»*                       CR=NOK  DATA NOT WRITTEN TO CYSET «, t00=0x0007, t01=0x00fe}
0x0c2a…0c5c              Head {h00=0x002e, h01=0x0050, text=»*                       E.G. ERROR ON DISK«, t00=0x0007, t01=0x0140}
0x0c5c…0c8e              Head {h00=0x002e, h01=0x0050, text=»*                            DATASET FULL «, t00=0x0007, t01=0x0172}
0x0c8e…0cce              Head {h00=0x003c, h01=0x0050, text=»*                            WAITED TOO LONG FOR BUFFER «, t00=0x0008, t01=0x0014}
0x0cce…0cd8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0054}
0x0cd8…0cf4              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0008, t01=0x005e}
0x0cf4…0d12              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,CCYSIZE «, t00=0x0008, t01=0x007a}
0x0d12…0d2e              Head {h00=0x0018, h01=0x0050, text=» MUL GSWBIN1,TTASKNR«, t00=0x0008, t01=0x0098}
0x0d2e…0d54              Head {h00=0x0022, h01=0x0050, text=» CBNL GTCYOUT,GSWBIN1,CYLINNOK«, t00=0x0008, t01=0x00b4}
0x0d54…0d70              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'32'«, t00=0x0008, t01=0x00da}
0x0d70…0d80              Head {h00=0x000c, h01=0x0050, text=»CYLIN000«, t00=0x0008, t01=0x00f6}
0x0d80…0dae              Head {h00=0x002a, h01=0x0050, text=» TBF CCYPFLG,CYLIN010 WAIT FOR BUFFER «, t00=0x0008, t01=0x0106}
0x0dae…0dc2              Head {h00=0x0010, h01=0x0050, text=» DELAY CBIN2«, t00=0x0008, t01=0x0134}
0x0dc2…0ddc              Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN2«, t00=0x0008, t01=0x0148}
0x0ddc…0e00              Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN1,CBIN0,CYLINNOK «, t00=0x0008, t01=0x0162}
0x0e00…0e14              Head {h00=0x0010, h01=0x0050, text=» B CYLIN000 «, t00=0x0008, t01=0x0186}
0x0e14…0e1e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x000a}
0x0e1e…0e2e              Head {h00=0x000c, h01=0x0050, text=»CYLIN010«, t00=0x0009, t01=0x0014}
0x0e2e…0e52              Head {h00=0x0020, h01=0x0050, text=» SET CCYPFLG RESERVE BUFFER «, t00=0x0009, t01=0x0024}
0x0e52…0e7a              Head {h00=0x0024, h01=0x0050, text=» MOVE CCYBUF,=X'00' CLEAR BUFFER«, t00=0x0009, t01=0x0048}
0x0e7a…0e98              Head {h00=0x001a, h01=0x0050, text=» EDIT CCYBUF,GTSTRFMT «, t00=0x0009, t01=0x0070}
0x0e98…0ec6              Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK03,=D'3',CCYBUF,GTCYOUT«, t00=0x0009, t01=0x008e}
0x0ec6…0edc              Head {h00=0x0012, h01=0x0050, text=» BNOK CYLIN100«, t00=0x0009, t01=0x00bc}
0x0edc…0ef6              Head {h00=0x0016, h01=0x0050, text=» ADD GTCYOUT,CBIN1«, t00=0x0009, t01=0x00d2}
0x0ef6…0f1c              Head {h00=0x0022, h01=0x0050, text=» CLEAR CCYPFLG RELEASE BUFFER «, t00=0x0009, t01=0x00ec}
0x0f1c…0f34              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0009, t01=0x0112}
0x0f34…0f40              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x012a}
0x0f40…0f4a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0136}
0x0f4a…0f5a              Head {h00=0x000c, h01=0x0050, text=»CYLIN100«, t00=0x0009, t01=0x0140}
0x0f5a…0f80              Head {h00=0x0022, h01=0x0050, text=» CLEAR CCYPFLG RELEASE BUFFER «, t00=0x0009, t01=0x0150}
0x0f80…0f90              Head {h00=0x000c, h01=0x0050, text=»CYLINNOK«, t00=0x0009, t01=0x0176}
0x0f90…0fa8              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0009, t01=0x0186}
0x0fa8…0fb4              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x000e}
0x0fb4…0fc2              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x001a}
0x0fc2…0fcc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0028}
0x0fcc…0fda              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0032}
0x0fda…0fec              Head {h00=0x000e, h01=0x0050, text=»CYOUT PROC«, t00=0x000a, t01=0x0040}
0x0fec…1008              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000a, t01=0x0052}
0x1008…1012              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x006e}
0x1012…104a              Head {h00=0x0034, h01=0x0050, text=»*          WRITE OUT THE WHOLE CONTENT OF CYSET «, t00=0x000a, t01=0x0078}
0x104a…1072              Head {h00=0x0024, h01=0x0050, text=»*          (LESS THAN ONE PAGE) «, t00=0x000a, t01=0x00b0}
0x1072…107c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d8}
0x107c…1098              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000a, t01=0x00e2}
0x1098…10b6              Head {h00=0x001a, h01=0x0050, text=» TBT GTCYWRTF,CYOUT050«, t00=0x000a, t01=0x00fe}
0x10b6…10d4              Head {h00=0x001a, h01=0x0050, text=» TBT TTTSTFLG,CYOUT005«, t00=0x000a, t01=0x011c}
0x10d4…10ea              Head {h00=0x0012, h01=0x0050, text=» SET TTTSTFLG «, t00=0x000a, t01=0x013a}
0x10ea…110a              Head {h00=0x001c, h01=0x0050, text=» PERF SPLIN8,CBIN5,CBIN2«, t00=0x000a, t01=0x0150}
0x110a…111e              Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x000a, t01=0x0170}
0x111e…1132              Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x000a, t01=0x0184}
0x1132…1142              Head {h00=0x000c, h01=0x0050, text=»CYOUT005«, t00=0x000b, t01=0x0008}
0x1142…1160              Head {h00=0x001a, h01=0x0050, text=» MOVE TTLINNR,TTCYKPOS«, t00=0x000b, t01=0x0018}
0x1160…117e              Head {h00=0x001a, h01=0x0050, text=» TBF GTCYTRPF,CYOUT010«, t00=0x000b, t01=0x0036}
0x117e…11b4              Head {h00=0x0032, h01=0x0050, text=» SUB GTCYOUT,CBIN1 ADJUST FOR TRP LINE, -TOTAL«, t00=0x000b, t01=0x0054}
0x11b4…11c4              Head {h00=0x000c, h01=0x0050, text=»CYOUT010«, t00=0x000b, t01=0x008a}
0x11c4…11e2              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x000b, t01=0x009a}
0x11e2…1202              Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x000b, t01=0x00b8}
0x1202…1228              Head {h00=0x0022, h01=0x0050, text=» CBNL GTCYIN,GTCYOUT,CYOUT050 «, t00=0x000b, t01=0x00d8}
0x1228…123a              Head {h00=0x000e, h01=0x0050, text=» PERF CYRD«, t00=0x000b, t01=0x00fe}
0x123a…1254              Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'2'«, t00=0x000b, t01=0x0110}
0x1254…1268              Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x000b, t01=0x012a}
0x1268…127c              Head {h00=0x0010, h01=0x0050, text=» B CYOUT010 «, t00=0x000b, t01=0x013e}
0x127c…1286              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0152}
0x1286…1296              Head {h00=0x000c, h01=0x0050, text=»CYOUT050«, t00=0x000b, t01=0x015c}
0x1296…12a2              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x016c}
0x12a2…12b0              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x0178}
0x12b0…12ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0186}
0x12ba…12c8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0190}
0x12c8…12da              Head {h00=0x000e, h01=0x0050, text=»CYWRT PROC«, t00=0x000c, t01=0x000e}
0x12da…12f6              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x0020}
0x12f6…1300              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x003c}
0x1300…1330              Head {h00=0x002c, h01=0x0050, text=»*          WRITE A LINE ON CYCLE DATASET«, t00=0x000c, t01=0x0046}
0x1330…136e              Head {h00=0x003a, h01=0x0050, text=»*          IN NOK  EMPTY THE CYCLE DATASET TO VOUCHER «, t00=0x000c, t01=0x0076}
0x136e…13a2              Head {h00=0x0030, h01=0x0050, text=»*                  AND WRITE LINE TO VOUCHER«, t00=0x000c, t01=0x00b4}
0x13a2…13ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00e8}
0x13ac…13c8              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x00f2}
0x13c8…13f0              Head {h00=0x0024, h01=0x0050, text=» PERF CYLINE WRITE LINE TO CYSET«, t00=0x000c, t01=0x010e}
0x13f0…1406              Head {h00=0x0012, h01=0x0050, text=» BNOK CYWRT100«, t00=0x000c, t01=0x0136}
0x1406…1420              Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'2'«, t00=0x000c, t01=0x014c}
0x1420…1450              Head {h00=0x002c, h01=0x0050, text=» CBL TTLINNR,=D'4',CYWRT010 IF PAGE FULL«, t00=0x000c, t01=0x0166}
0x1450…146c              Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x000d, t01=0x0008}
0x146c…1478              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x0024}
0x1478…1482              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0030}
0x1482…1492              Head {h00=0x000c, h01=0x0050, text=»CYWRT010«, t00=0x000d, t01=0x003a}
0x1492…14ba              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR9,=C'TRP ' NEW PAGE «, t00=0x000d, t01=0x004a}
0x14ba…14d4              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN2«, t00=0x000d, t01=0x0072}
0x14d4…14e8              Head {h00=0x0010, h01=0x0050, text=» PERF CYLINE«, t00=0x000d, t01=0x008c}
0x14e8…150c              Head {h00=0x0020, h01=0x0050, text=» SET GTCYTRPF INITIATE PRINT«, t00=0x000d, t01=0x00a0}
0x150c…1528              Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x000d, t01=0x00c4}
0x1528…1534              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x00e0}
0x1534…153e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ec}
0x153e…154e              Head {h00=0x000c, h01=0x0050, text=»CYWRT100«, t00=0x000d, t01=0x00f6}
0x154e…1562              Head {h00=0x0010, h01=0x0050, text=» PERF CYOUT «, t00=0x000d, t01=0x0106}
0x1562…1578              Head {h00=0x0012, h01=0x0050, text=» SET GTCYWRTF «, t00=0x000d, t01=0x011a}
0x1578…1590              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x000d, t01=0x0130}
0x1590…159c              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x0148}
0x159c…15aa              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x0154}
0x15aa…15b4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0162}
0x15b4…15c2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x016c}
0x15c2…15d4              Head {h00=0x000e, h01=0x0050, text=»CYRD PROC «, t00=0x000d, t01=0x017a}
0x15d4…15f0              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x018c}
0x15f0…15fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0018}
0x15fa…1632              Head {h00=0x0034, h01=0x0050, text=»*          READ ONE LINE FROM CYCLE DATASET AND «, t00=0x000e, t01=0x0022}
0x1632…1658              Head {h00=0x0022, h01=0x0050, text=»*          WRITE IT TO VOUCHER«, t00=0x000e, t01=0x005a}
0x1658…1662              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0080}
0x1662…169e              Head {h00=0x0038, h01=0x0050, text=»*          VOUCHER SHOULD BE POSITIONED BEFORE PRINT«, t00=0x000e, t01=0x008a}
0x169e…16a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c6}
0x16a8…16c4              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000e, t01=0x00d0}
0x16c4…16d4              Head {h00=0x000c, h01=0x0050, text=»CYRD000 «, t00=0x000e, t01=0x00ec}
0x16d4…16f0              Head {h00=0x0018, h01=0x0050, text=» TBF CCYPFLG,CYRD010«, t00=0x000e, t01=0x00fc}
0x16f0…171a              Head {h00=0x0026, h01=0x0050, text=» DELAY CBIN2 WAIT FOR CYCLE BUFFER«, t00=0x000e, t01=0x0118}
0x171a…172c              Head {h00=0x000e, h01=0x0050, text=» B CYRD000«, t00=0x000e, t01=0x0142}
0x172c…173c              Head {h00=0x000c, h01=0x0050, text=»CYRD010 «, t00=0x000e, t01=0x0154}
0x173c…1766              Head {h00=0x0026, h01=0x0050, text=» SET CCYPFLG RESERVE CYCLE BUFFER «, t00=0x000e, t01=0x0164}
0x1766…178e              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,=W'128' SET LENGTH«, t00=0x000e, t01=0x018e}
0x178e…17c4              Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK03,=D'3',CCYBUF,GSWBIN1,GTCYIN «, t00=0x000f, t01=0x0026}
0x17c4…17da              Head {h00=0x0012, h01=0x0050, text=» BNOK CYRDNOK «, t00=0x000f, t01=0x005c}
0x17da…17fa              Head {h00=0x001c, h01=0x0050, text=» EDWRT .NW,KVOUCH,CYEDT «, t00=0x000f, t01=0x0072}
0x17fa…1810              Head {h00=0x0012, h01=0x0050, text=» CLEAR CCYPFLG«, t00=0x000f, t01=0x0092}
0x1810…1822              Head {h00=0x000e, h01=0x0050, text=» B CYRD100«, t00=0x000f, t01=0x00a8}
0x1822…1832              Head {h00=0x000c, h01=0x0050, text=»CYRDNOK «, t00=0x000f, t01=0x00ba}
0x1832…184c              Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x000f, t01=0x00ca}
0x184c…1862              Head {h00=0x0012, h01=0x0050, text=» CLEAR CCYPFLG«, t00=0x000f, t01=0x00e4}
0x1862…1874              Head {h00=0x000e, h01=0x0050, text=» PERF CRVO«, t00=0x000f, t01=0x00fa}
0x1874…1890              Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x000f, t01=0x010c}
0x1890…189c              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000f, t01=0x0128}
0x189c…18a6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0134}
0x18a6…18b6              Head {h00=0x000c, h01=0x0050, text=»CYRD100 «, t00=0x000f, t01=0x013e}
0x18b6…18ca              Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x000f, t01=0x014e}
0x18ca…18dc              Head {h00=0x000e, h01=0x0050, text=» PERF CRVO«, t00=0x000f, t01=0x0162}
0x18dc…18f6              Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x000f, t01=0x0174}
0x18f6…1912              Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x000f, t01=0x018e}
0x1912…191e              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x001a}
0x191e…192c              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x0026}
0x192c…1936              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0034}
0x1936…1940              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x003e}
0x1940…1952              Head {h00=0x000e, h01=0x0050, text=»CYEDT FRMT«, t00=0x0010, t01=0x0048}
0x1952…1968              Head {h00=0x0012, h01=0x0050, text=» FCOPY CCYBUF «, t00=0x0010, t01=0x005a}
0x1968…1976              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0010, t01=0x0070}
0x1976…1980              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x007e}
0x1980…198e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0088}
0x198e…19a0              Head {h00=0x000e, h01=0x0050, text=»CYTRP PROC«, t00=0x0010, t01=0x0096}
0x19a0…19bc              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0010, t01=0x00a8}
0x19bc…19c6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00c4}
0x19c6…19ec              Head {h00=0x0022, h01=0x0050, text=»*          PRINT A WHOLE PAGE «, t00=0x0010, t01=0x00ce}
0x19ec…19f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00f4}
0x19f6…1a30              Head {h00=0x0036, h01=0x0050, text=»*          AND WRITE TRANSPORT LINE FIRST ON CYSET«, t00=0x0010, t01=0x00fe}
0x1a30…1a3a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0138}
0x1a3a…1a56              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0010, t01=0x0142}
0x1a56…1a74              Head {h00=0x001a, h01=0x0050, text=» TBF GTCYTRPF,CYTRP200«, t00=0x0010, t01=0x015e}
0x1a74…1aa4              Head {h00=0x002c, h01=0x0050, text=» TBT GTCYWRTF,CYTRP100 T=ALREADY WRITTEN«, t00=0x0010, t01=0x017c}
0x1aa4…1abc              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTCYTRPF «, t00=0x0011, t01=0x001c}
0x1abc…1ad4              Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0011, t01=0x0034}
0x1ad4…1ae8              Head {h00=0x0010, h01=0x0050, text=» PERF CYOUT «, t00=0x0011, t01=0x004c}
0x1ae8…1afc              Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0011, t01=0x0060}
0x1afc…1b1a              Head {h00=0x001a, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS«, t00=0x0011, t01=0x0074}
0x1b1a…1b32              Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0011, t01=0x0092}
0x1b32…1b50              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR9,=C'TRP '«, t00=0x0011, t01=0x00aa}
0x1b50…1b6a              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN2«, t00=0x0011, t01=0x00c8}
0x1b6a…1b86              Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYIN,TTASKNR«, t00=0x0011, t01=0x00e2}
0x1b86…1ba0              Head {h00=0x0016, h01=0x0050, text=» SUB GTCYIN,CBIN1 «, t00=0x0011, t01=0x00fe}
0x1ba0…1bbc              Head {h00=0x0018, h01=0x0050, text=» MUL GTCYIN,CCYSIZE «, t00=0x0011, t01=0x0118}
0x1bbc…1bd6              Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x0011, t01=0x0134}
0x1bd6…1bf2              Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYOUT,GTCYIN«, t00=0x0011, t01=0x014e}
0x1bf2…1c10              Head {h00=0x001a, h01=0x0050, text=» MOVE TTLINNR,TTCYKST «, t00=0x0011, t01=0x016a}
0x1c10…1c2e              Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKPOS,TTLINNR«, t00=0x0011, t01=0x0188}
0x1c2e…1c42              Head {h00=0x0010, h01=0x0050, text=» PERF CYLINE«, t00=0x0012, t01=0x0016}
0x1c42…1c58              Head {h00=0x0012, h01=0x0050, text=» BNOK CYTRP100«, t00=0x0012, t01=0x002a}
0x1c58…1c6c              Head {h00=0x0010, h01=0x0050, text=» B CYTRP150 «, t00=0x0012, t01=0x0040}
0x1c6c…1c76              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0054}
0x1c76…1c86              Head {h00=0x000c, h01=0x0050, text=»CYTRP100«, t00=0x0012, t01=0x005e}
0x1c86…1c9e              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTCYTRPF «, t00=0x0012, t01=0x006e}
0x1c9e…1cb4              Head {h00=0x0012, h01=0x0050, text=» SET GTCYWRTF «, t00=0x0012, t01=0x0086}
0x1cb4…1ce6              Head {h00=0x002e, h01=0x0050, text=» PERF SPLIN8,CBIN3,CBIN2 ASK FOR 'NY SIDE'«, t00=0x0012, t01=0x009c}
0x1ce6…1d00              Head {h00=0x0016, h01=0x0050, text=» PERF GRASPV GRASP«, t00=0x0012, t01=0x00ce}
0x1d00…1d1e              Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKPOS,TTCYKST«, t00=0x0012, t01=0x00e8}
0x1d1e…1d4c              Head {h00=0x002a, h01=0x0050, text=» MOVE TTLINNR,TTCYKST POSITION VOUCHER«, t00=0x0012, t01=0x0106}
0x1d4c…1d6a              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0012, t01=0x0134}
0x1d6a…1d8a              Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x0012, t01=0x0152}
0x1d8a…1dbe              Head {h00=0x0030, h01=0x0050, text=» MOVE GSWSTR9,=C'TRP ' SET UP TRANSPORT LINE«, t00=0x0012, t01=0x0172}
0x1dbe…1dd8              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN2«, t00=0x0013, t01=0x0016}
0x1dd8…1e06              Head {h00=0x002a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT WRITE TRP LINE «, t00=0x0013, t01=0x0030}
0x1e06…1e10              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x005e}
0x1e10…1e20              Head {h00=0x000c, h01=0x0050, text=»CYTRP150«, t00=0x0013, t01=0x0068}
0x1e20…1e3a              Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'2'«, t00=0x0013, t01=0x0078}
0x1e3a…1e4a              Head {h00=0x000c, h01=0x0050, text=»CYTRP200«, t00=0x0013, t01=0x0092}
0x1e4a…1e56              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0013, t01=0x00a2}
0x1e56…1e64              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0013, t01=0x00ae}
0x1e64…1e6e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00bc}
0x1e6e…1e7a              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0013, t01=0x00c6}
0x1e7a…1e7e              Head {h00=0x4004, h01=0x0000}
0x1e7e…1e82              00 13 00 d2                                                                                                                                                                                                                                       ┆    ┆
0x1e82…1e8a (20, 1, 8)   20 04 00 00 00 14 00 04                                                                                                                                                                                                                           ┆        ┆

Reduced view