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

⟦8b22c5ea6⟧

    Length: 7814 (0x1e86)
    Notes: pts_type(SC)
    Names: »RGSUB3.SC«

Derivation

└─⟦f445cacdf⟧ Bits:30009666 Philips computer tape "600111"
    └─⟦this⟧ »NJ-AMT/RGSUB3.SC« 

PTS(SC)

	IDENT RGSUB3 	02.03.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,GTUWB
 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,GTUWB
 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.03.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…0d2c              Head {h00=0x0016, h01=0x0050, text=» MUL GSWBIN1,GTUWB«, t00=0x0008, t01=0x0098}
0x0d2c…0d52              Head {h00=0x0022, h01=0x0050, text=» CBNL GTCYOUT,GSWBIN1,CYLINNOK«, t00=0x0008, t01=0x00b2}
0x0d52…0d6e              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'32'«, t00=0x0008, t01=0x00d8}
0x0d6e…0d7e              Head {h00=0x000c, h01=0x0050, text=»CYLIN000«, t00=0x0008, t01=0x00f4}
0x0d7e…0dac              Head {h00=0x002a, h01=0x0050, text=» TBF CCYPFLG,CYLIN010 WAIT FOR BUFFER «, t00=0x0008, t01=0x0104}
0x0dac…0dc0              Head {h00=0x0010, h01=0x0050, text=» DELAY CBIN2«, t00=0x0008, t01=0x0132}
0x0dc0…0dda              Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN2«, t00=0x0008, t01=0x0146}
0x0dda…0dfe              Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN1,CBIN0,CYLINNOK «, t00=0x0008, t01=0x0160}
0x0dfe…0e12              Head {h00=0x0010, h01=0x0050, text=» B CYLIN000 «, t00=0x0008, t01=0x0184}
0x0e12…0e1c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0008}
0x0e1c…0e2c              Head {h00=0x000c, h01=0x0050, text=»CYLIN010«, t00=0x0009, t01=0x0012}
0x0e2c…0e50              Head {h00=0x0020, h01=0x0050, text=» SET CCYPFLG RESERVE BUFFER «, t00=0x0009, t01=0x0022}
0x0e50…0e78              Head {h00=0x0024, h01=0x0050, text=» MOVE CCYBUF,=X'00' CLEAR BUFFER«, t00=0x0009, t01=0x0046}
0x0e78…0e96              Head {h00=0x001a, h01=0x0050, text=» EDIT CCYBUF,GTSTRFMT «, t00=0x0009, t01=0x006e}
0x0e96…0ec4              Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK03,=D'3',CCYBUF,GTCYOUT«, t00=0x0009, t01=0x008c}
0x0ec4…0eda              Head {h00=0x0012, h01=0x0050, text=» BNOK CYLIN100«, t00=0x0009, t01=0x00ba}
0x0eda…0ef4              Head {h00=0x0016, h01=0x0050, text=» ADD GTCYOUT,CBIN1«, t00=0x0009, t01=0x00d0}
0x0ef4…0f1a              Head {h00=0x0022, h01=0x0050, text=» CLEAR CCYPFLG RELEASE BUFFER «, t00=0x0009, t01=0x00ea}
0x0f1a…0f32              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0009, t01=0x0110}
0x0f32…0f3e              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x0128}
0x0f3e…0f48              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0134}
0x0f48…0f58              Head {h00=0x000c, h01=0x0050, text=»CYLIN100«, t00=0x0009, t01=0x013e}
0x0f58…0f7e              Head {h00=0x0022, h01=0x0050, text=» CLEAR CCYPFLG RELEASE BUFFER «, t00=0x0009, t01=0x014e}
0x0f7e…0f8e              Head {h00=0x000c, h01=0x0050, text=»CYLINNOK«, t00=0x0009, t01=0x0174}
0x0f8e…0fa6              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0009, t01=0x0184}
0x0fa6…0fb2              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x000c}
0x0fb2…0fc0              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x0018}
0x0fc0…0fca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0026}
0x0fca…0fd8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0030}
0x0fd8…0fea              Head {h00=0x000e, h01=0x0050, text=»CYOUT PROC«, t00=0x000a, t01=0x003e}
0x0fea…1006              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000a, t01=0x0050}
0x1006…1010              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x006c}
0x1010…1048              Head {h00=0x0034, h01=0x0050, text=»*          WRITE OUT THE WHOLE CONTENT OF CYSET «, t00=0x000a, t01=0x0076}
0x1048…1070              Head {h00=0x0024, h01=0x0050, text=»*          (LESS THAN ONE PAGE) «, t00=0x000a, t01=0x00ae}
0x1070…107a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d6}
0x107a…1096              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000a, t01=0x00e0}
0x1096…10b4              Head {h00=0x001a, h01=0x0050, text=» TBT GTCYWRTF,CYOUT050«, t00=0x000a, t01=0x00fc}
0x10b4…10d2              Head {h00=0x001a, h01=0x0050, text=» TBT TTTSTFLG,CYOUT005«, t00=0x000a, t01=0x011a}
0x10d2…10e8              Head {h00=0x0012, h01=0x0050, text=» SET TTTSTFLG «, t00=0x000a, t01=0x0138}
0x10e8…1108              Head {h00=0x001c, h01=0x0050, text=» PERF SPLIN8,CBIN5,CBIN2«, t00=0x000a, t01=0x014e}
0x1108…111c              Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x000a, t01=0x016e}
0x111c…1130              Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x000a, t01=0x0182}
0x1130…1140              Head {h00=0x000c, h01=0x0050, text=»CYOUT005«, t00=0x000b, t01=0x0008}
0x1140…115e              Head {h00=0x001a, h01=0x0050, text=» MOVE TTLINNR,TTCYKPOS«, t00=0x000b, t01=0x0018}
0x115e…117c              Head {h00=0x001a, h01=0x0050, text=» TBF GTCYTRPF,CYOUT010«, t00=0x000b, t01=0x0036}
0x117c…11b2              Head {h00=0x0032, h01=0x0050, text=» SUB GTCYOUT,CBIN1 ADJUST FOR TRP LINE, -TOTAL«, t00=0x000b, t01=0x0054}
0x11b2…11c2              Head {h00=0x000c, h01=0x0050, text=»CYOUT010«, t00=0x000b, t01=0x008a}
0x11c2…11e0              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x000b, t01=0x009a}
0x11e0…1200              Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x000b, t01=0x00b8}
0x1200…1226              Head {h00=0x0022, h01=0x0050, text=» CBNL GTCYIN,GTCYOUT,CYOUT050 «, t00=0x000b, t01=0x00d8}
0x1226…1238              Head {h00=0x000e, h01=0x0050, text=» PERF CYRD«, t00=0x000b, t01=0x00fe}
0x1238…1252              Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'2'«, t00=0x000b, t01=0x0110}
0x1252…1266              Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x000b, t01=0x012a}
0x1266…127a              Head {h00=0x0010, h01=0x0050, text=» B CYOUT010 «, t00=0x000b, t01=0x013e}
0x127a…1284              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0152}
0x1284…1294              Head {h00=0x000c, h01=0x0050, text=»CYOUT050«, t00=0x000b, t01=0x015c}
0x1294…12a0              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x016c}
0x12a0…12ae              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x0178}
0x12ae…12b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0186}
0x12b8…12c6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0190}
0x12c6…12d8              Head {h00=0x000e, h01=0x0050, text=»CYWRT PROC«, t00=0x000c, t01=0x000e}
0x12d8…12f4              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x0020}
0x12f4…12fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x003c}
0x12fe…132e              Head {h00=0x002c, h01=0x0050, text=»*          WRITE A LINE ON CYCLE DATASET«, t00=0x000c, t01=0x0046}
0x132e…136c              Head {h00=0x003a, h01=0x0050, text=»*          IN NOK  EMPTY THE CYCLE DATASET TO VOUCHER «, t00=0x000c, t01=0x0076}
0x136c…13a0              Head {h00=0x0030, h01=0x0050, text=»*                  AND WRITE LINE TO VOUCHER«, t00=0x000c, t01=0x00b4}
0x13a0…13aa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00e8}
0x13aa…13c6              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x00f2}
0x13c6…13ee              Head {h00=0x0024, h01=0x0050, text=» PERF CYLINE WRITE LINE TO CYSET«, t00=0x000c, t01=0x010e}
0x13ee…1404              Head {h00=0x0012, h01=0x0050, text=» BNOK CYWRT100«, t00=0x000c, t01=0x0136}
0x1404…141e              Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'2'«, t00=0x000c, t01=0x014c}
0x141e…144e              Head {h00=0x002c, h01=0x0050, text=» CBL TTLINNR,=D'4',CYWRT010 IF PAGE FULL«, t00=0x000c, t01=0x0166}
0x144e…146a              Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x000d, t01=0x0008}
0x146a…1476              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x0024}
0x1476…1480              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0030}
0x1480…1490              Head {h00=0x000c, h01=0x0050, text=»CYWRT010«, t00=0x000d, t01=0x003a}
0x1490…14b8              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR9,=C'TRP ' NEW PAGE «, t00=0x000d, t01=0x004a}
0x14b8…14d2              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN2«, t00=0x000d, t01=0x0072}
0x14d2…14e6              Head {h00=0x0010, h01=0x0050, text=» PERF CYLINE«, t00=0x000d, t01=0x008c}
0x14e6…150a              Head {h00=0x0020, h01=0x0050, text=» SET GTCYTRPF INITIATE PRINT«, t00=0x000d, t01=0x00a0}
0x150a…1526              Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x000d, t01=0x00c4}
0x1526…1532              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x00e0}
0x1532…153c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ec}
0x153c…154c              Head {h00=0x000c, h01=0x0050, text=»CYWRT100«, t00=0x000d, t01=0x00f6}
0x154c…1560              Head {h00=0x0010, h01=0x0050, text=» PERF CYOUT «, t00=0x000d, t01=0x0106}
0x1560…1576              Head {h00=0x0012, h01=0x0050, text=» SET GTCYWRTF «, t00=0x000d, t01=0x011a}
0x1576…158e              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x000d, t01=0x0130}
0x158e…159a              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x0148}
0x159a…15a8              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x0154}
0x15a8…15b2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0162}
0x15b2…15c0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x016c}
0x15c0…15d2              Head {h00=0x000e, h01=0x0050, text=»CYRD PROC «, t00=0x000d, t01=0x017a}
0x15d2…15ee              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x018c}
0x15ee…15f8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0018}
0x15f8…1630              Head {h00=0x0034, h01=0x0050, text=»*          READ ONE LINE FROM CYCLE DATASET AND «, t00=0x000e, t01=0x0022}
0x1630…1656              Head {h00=0x0022, h01=0x0050, text=»*          WRITE IT TO VOUCHER«, t00=0x000e, t01=0x005a}
0x1656…1660              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0080}
0x1660…169c              Head {h00=0x0038, h01=0x0050, text=»*          VOUCHER SHOULD BE POSITIONED BEFORE PRINT«, t00=0x000e, t01=0x008a}
0x169c…16a6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c6}
0x16a6…16c2              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000e, t01=0x00d0}
0x16c2…16d2              Head {h00=0x000c, h01=0x0050, text=»CYRD000 «, t00=0x000e, t01=0x00ec}
0x16d2…16ee              Head {h00=0x0018, h01=0x0050, text=» TBF CCYPFLG,CYRD010«, t00=0x000e, t01=0x00fc}
0x16ee…1718              Head {h00=0x0026, h01=0x0050, text=» DELAY CBIN2 WAIT FOR CYCLE BUFFER«, t00=0x000e, t01=0x0118}
0x1718…172a              Head {h00=0x000e, h01=0x0050, text=» B CYRD000«, t00=0x000e, t01=0x0142}
0x172a…173a              Head {h00=0x000c, h01=0x0050, text=»CYRD010 «, t00=0x000e, t01=0x0154}
0x173a…1764              Head {h00=0x0026, h01=0x0050, text=» SET CCYPFLG RESERVE CYCLE BUFFER «, t00=0x000e, t01=0x0164}
0x1764…178c              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,=W'128' SET LENGTH«, t00=0x000e, t01=0x018e}
0x178c…17c2              Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK03,=D'3',CCYBUF,GSWBIN1,GTCYIN «, t00=0x000f, t01=0x0026}
0x17c2…17d8              Head {h00=0x0012, h01=0x0050, text=» BNOK CYRDNOK «, t00=0x000f, t01=0x005c}
0x17d8…17f8              Head {h00=0x001c, h01=0x0050, text=» EDWRT .NW,KVOUCH,CYEDT «, t00=0x000f, t01=0x0072}
0x17f8…180e              Head {h00=0x0012, h01=0x0050, text=» CLEAR CCYPFLG«, t00=0x000f, t01=0x0092}
0x180e…1820              Head {h00=0x000e, h01=0x0050, text=» B CYRD100«, t00=0x000f, t01=0x00a8}
0x1820…1830              Head {h00=0x000c, h01=0x0050, text=»CYRDNOK «, t00=0x000f, t01=0x00ba}
0x1830…184a              Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x000f, t01=0x00ca}
0x184a…1860              Head {h00=0x0012, h01=0x0050, text=» CLEAR CCYPFLG«, t00=0x000f, t01=0x00e4}
0x1860…1872              Head {h00=0x000e, h01=0x0050, text=» PERF CRVO«, t00=0x000f, t01=0x00fa}
0x1872…188e              Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x000f, t01=0x010c}
0x188e…189a              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000f, t01=0x0128}
0x189a…18a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0134}
0x18a4…18b4              Head {h00=0x000c, h01=0x0050, text=»CYRD100 «, t00=0x000f, t01=0x013e}
0x18b4…18c8              Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x000f, t01=0x014e}
0x18c8…18da              Head {h00=0x000e, h01=0x0050, text=» PERF CRVO«, t00=0x000f, t01=0x0162}
0x18da…18f4              Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x000f, t01=0x0174}
0x18f4…1910              Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x000f, t01=0x018e}
0x1910…191c              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x001a}
0x191c…192a              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x0026}
0x192a…1934              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0034}
0x1934…193e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x003e}
0x193e…1950              Head {h00=0x000e, h01=0x0050, text=»CYEDT FRMT«, t00=0x0010, t01=0x0048}
0x1950…1966              Head {h00=0x0012, h01=0x0050, text=» FCOPY CCYBUF «, t00=0x0010, t01=0x005a}
0x1966…1974              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0010, t01=0x0070}
0x1974…197e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x007e}
0x197e…198c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0088}
0x198c…199e              Head {h00=0x000e, h01=0x0050, text=»CYTRP PROC«, t00=0x0010, t01=0x0096}
0x199e…19ba              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0010, t01=0x00a8}
0x19ba…19c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00c4}
0x19c4…19ea              Head {h00=0x0022, h01=0x0050, text=»*          PRINT A WHOLE PAGE «, t00=0x0010, t01=0x00ce}
0x19ea…19f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00f4}
0x19f4…1a2e              Head {h00=0x0036, h01=0x0050, text=»*          AND WRITE TRANSPORT LINE FIRST ON CYSET«, t00=0x0010, t01=0x00fe}
0x1a2e…1a38              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0138}
0x1a38…1a54              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0010, t01=0x0142}
0x1a54…1a72              Head {h00=0x001a, h01=0x0050, text=» TBF GTCYTRPF,CYTRP200«, t00=0x0010, t01=0x015e}
0x1a72…1aa2              Head {h00=0x002c, h01=0x0050, text=» TBT GTCYWRTF,CYTRP100 T=ALREADY WRITTEN«, t00=0x0010, t01=0x017c}
0x1aa2…1aba              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTCYTRPF «, t00=0x0011, t01=0x001c}
0x1aba…1ad2              Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0011, t01=0x0034}
0x1ad2…1ae6              Head {h00=0x0010, h01=0x0050, text=» PERF CYOUT «, t00=0x0011, t01=0x004c}
0x1ae6…1afa              Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0011, t01=0x0060}
0x1afa…1b18              Head {h00=0x001a, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS«, t00=0x0011, t01=0x0074}
0x1b18…1b30              Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0011, t01=0x0092}
0x1b30…1b4e              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR9,=C'TRP '«, t00=0x0011, t01=0x00aa}
0x1b4e…1b68              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN2«, t00=0x0011, t01=0x00c8}
0x1b68…1b82              Head {h00=0x0016, h01=0x0050, text=» MOVE GTCYIN,GTUWB«, t00=0x0011, t01=0x00e2}
0x1b82…1b9c              Head {h00=0x0016, h01=0x0050, text=» SUB GTCYIN,CBIN1 «, t00=0x0011, t01=0x00fc}
0x1b9c…1bb8              Head {h00=0x0018, h01=0x0050, text=» MUL GTCYIN,CCYSIZE «, t00=0x0011, t01=0x0116}
0x1bb8…1bd2              Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x0011, t01=0x0132}
0x1bd2…1bee              Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYOUT,GTCYIN«, t00=0x0011, t01=0x014c}
0x1bee…1c0c              Head {h00=0x001a, h01=0x0050, text=» MOVE TTLINNR,TTCYKST «, t00=0x0011, t01=0x0168}
0x1c0c…1c2a              Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKPOS,TTLINNR«, t00=0x0011, t01=0x0186}
0x1c2a…1c3e              Head {h00=0x0010, h01=0x0050, text=» PERF CYLINE«, t00=0x0012, t01=0x0014}
0x1c3e…1c54              Head {h00=0x0012, h01=0x0050, text=» BNOK CYTRP100«, t00=0x0012, t01=0x0028}
0x1c54…1c68              Head {h00=0x0010, h01=0x0050, text=» B CYTRP150 «, t00=0x0012, t01=0x003e}
0x1c68…1c72              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0052}
0x1c72…1c82              Head {h00=0x000c, h01=0x0050, text=»CYTRP100«, t00=0x0012, t01=0x005c}
0x1c82…1c9a              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTCYTRPF «, t00=0x0012, t01=0x006c}
0x1c9a…1cb0              Head {h00=0x0012, h01=0x0050, text=» SET GTCYWRTF «, t00=0x0012, t01=0x0084}
0x1cb0…1ce2              Head {h00=0x002e, h01=0x0050, text=» PERF SPLIN8,CBIN3,CBIN2 ASK FOR 'NY SIDE'«, t00=0x0012, t01=0x009a}
0x1ce2…1cfc              Head {h00=0x0016, h01=0x0050, text=» PERF GRASPV GRASP«, t00=0x0012, t01=0x00cc}
0x1cfc…1d1a              Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKPOS,TTCYKST«, t00=0x0012, t01=0x00e6}
0x1d1a…1d48              Head {h00=0x002a, h01=0x0050, text=» MOVE TTLINNR,TTCYKST POSITION VOUCHER«, t00=0x0012, t01=0x0104}
0x1d48…1d66              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0012, t01=0x0132}
0x1d66…1d86              Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x0012, t01=0x0150}
0x1d86…1dba              Head {h00=0x0030, h01=0x0050, text=» MOVE GSWSTR9,=C'TRP ' SET UP TRANSPORT LINE«, t00=0x0012, t01=0x0170}
0x1dba…1dd4              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN2«, t00=0x0013, t01=0x0014}
0x1dd4…1e02              Head {h00=0x002a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT WRITE TRP LINE «, t00=0x0013, t01=0x002e}
0x1e02…1e0c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x005c}
0x1e0c…1e1c              Head {h00=0x000c, h01=0x0050, text=»CYTRP150«, t00=0x0013, t01=0x0066}
0x1e1c…1e36              Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'2'«, t00=0x0013, t01=0x0076}
0x1e36…1e46              Head {h00=0x000c, h01=0x0050, text=»CYTRP200«, t00=0x0013, t01=0x0090}
0x1e46…1e52              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0013, t01=0x00a0}
0x1e52…1e60              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0013, t01=0x00ac}
0x1e60…1e6a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ba}
0x1e6a…1e76              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0013, t01=0x00c4}
0x1e76…1e7a              Head {h00=0x4004, h01=0x0000}
0x1e7a…1e7e              00 13 00 d0                                                                                                                                                                                                                                       ┆    ┆
0x1e7e…1e86 (20, 1, 8)   20 04 00 00 00 14 00 04                                                                                                                                                                                                                           ┆        ┆

Reduced view