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

⟦568549ad8⟧

    Length: 7522 (0x1d62)
    Notes: pts_type(SC)
    Names: »DEDI02.SC«

Derivation

└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
    └─⟦this⟧ »S:DU/DEDI02.SC« 
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
    └─⟦this⟧ »S:DU/DEDI02.SC« 
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
    └─⟦this⟧ »S:DU/DEDI02.SC« 

PTS(SC)

 IDENT DEDI02 PRR 1.0 79-06-19/AST
	DDUM	DDINIT
 PDIV 
 ENTRY ENTFMT 
 ENTRY DELFMT 
 ENTRY GETSYS 
 ENTRY ENTSYS 
 ENTRY PREFMT 
 ENTRY NEXFMT 
 ENTRY ENTTBL 
 ENTRY DELTBL 
 ENTRY ENTT01 
 ENTRY ENTCOR 
 ENTRY ENTT03 
 ENTRY DELT01 
 EXT WAIT 
 EXT SFMTCH 
 EXT FREESP 
 EXT DISU 
 EXT RELEAS 
 EXT NXPRFM 
 EXT DLRCCH 
 EXT RFRSP
 EXT GETT01 
 EXT EMPTYT 
 EXT WRFSP
 EXT COND 
 EXT ALGO 
 EJECT
DUMM02 PROC FC
* 
ENTFMT			ENTER FORMAT 
 PERF WAIT
 BERR RETURN
 MOVE STR6A,FORMAT
 PERF FREESP,DEBIN1,W1
 BERR RETURN
	MOVE	DEBIN5,W4 
RDCHAIN 
	MOVE	DEBIN3,DEBIN5 
	PERF	DISU,W1,DEBIN3,SYSBUF	READ FORMATCHAIN
 BNERR FST3 
 CBE DEBINW4,=W'30',FFIRST
 B RETURN 
FST3
	XCOPY	DEBIN4,W0,W2,SYSBUF,W6	OCCUPIED SPACE TO DEBIN4
	CBG	DEBIN4,=W'180',RENEXT	NO SPACE FOR MORE ENTRIES? 
ADDENTRY
	XCOPY	STRG10A,W0,W2,W0,W0	STATUS = '00'
	COPY	STRG10A,W2,W6,FORMAT,W0	NAME
	XCOPY	STRG10A,W8,W2,DEBIN1,W0	FREESPACE-RECNR = PTR TO FMT 
	COPY	SYSBUF,DEBIN4,W10,STRG10A,W0	INSERT ENTRY TO CHAIN
 ADD DEBIN4,W10 
	XCOPY	SYSBUF,W6,W2,DEBIN4,W0	SET OCCUPIED SPACE
 PERF DISU,W2,DEBIN5,SYSBUF 
	B	WRTFMT 
FFIRST
 MOVE DEBIN3,W0 
 MOVE DEBINW4,W0
 B FFST01 
RENEXT
	XCOPY	DEBIN5,W0,W2,SYSBUF,W4	GET LINK TO NEXT
	CBNE	DEBIN5,W0,RDCHAIN 
 PERF FREESP,DEBIN5,W1
 BERR RETURN
 XCOPY SYSBUF,W4,W2,DEBIN5,W0 
 PERF DISU,W2,DEBIN3,SYSBUF 
FFST01
 MOVE DEBIN4,W10
	MOVE	SYSBUF,=X'464300'	SET SCTR-IDENTIFICATION 
	XCOPY	SYSBUF,W2,W2,DEBIN3,W0	SET LINK TO PREV
	XCOPY	SYSBUF,W4,W2,W0,W0	LINK TO NEXT = 0
	B	ADDENTRY 
WRTFMT
 MOVE DEBIN3,PINDFR 
 PERF ALGO,W1	SET FORMAT-IDENTIFICATION 
NEGST 
 MOVE DEBIN2,W0 
	XCOPY	DEBIN2,W1,W1,RPOOL(DEBIN3),W8	GET LINK NEXT BUF
 XCOPY SYSBUF,W8,W2,RPOOL(DEBIN3),W17 
	CBE	DEBIN2,W0,NOMOREC	LAST RECORD? 
 PERF FREESP,DEBIN4,W1
 BERR RETURN
COP 
	XCOPY	SYSBUF,W4,W2,DEBIN4,W0	SET LINK NEXT REC 
	COPY	SYSBUF,W10,W188,BPOOL(DEBIN3),W0
	PERF	DISU,W2,DEBIN1,SYSBUF 
 BERR RETURN
	TBF	SWIT01,CO10
	B	RETURN 
CO10
	MOVE	DEBIN3,DEBIN2 
	MOVE	DEBIN1,DEBIN4 
 MOVE SYSBUF,=X'4600' 
	B	NEGST
NOMOREC 
	MOVE	DEBIN4,W0 
	SET	SWIT01 
	B	COP
* 
* 
* 
* 
* 
NEXFMT			GET NEXT FORMAT
 SET SWIT03 
* 
* 
PREFMT
 MOVE FRMTPNTR,W0 
 CALL EMPTYT,FORMAT 
 BZ RRECNX
 MOVE RNRFMCH,W4
 MOVE PTRFMCH,W0
 TBT SWIT03,RRECNX
 ADD PTRFMCH,W20
RRECNX
 CBNE RNRFMCH,W0,RRECNZ 
 MOVE STR6A,FORMAT
 PERF SFMTCH,W4,SYSBUF,W10
 BERR RETURN
 MOVE RNRFMCH,DEBIN1
 MOVE PTRFMCH,DEBIN2
 SUB PTRFMCH,W8 
RRECNZ
 PERF WAIT
 BERR RETURN
RRECNY
 PERF DISU,W1,RNRFMCH,SYSBUF
 BNERR RREC01 
 CBE DEBINW4,=W'30',OUTOFRAN
 B RETURN 
OUTOFRAN
 MOVE DEBINW4,W9
 MOVE RNRFMCH,W0
 B RETURN 
RREC01
 XCOPY DEBIN1,W0,W2,SYSBUF,W6 
 TBF SWIT03,RREC02
 ADD PTRFMCH,W10
 CBE PTRFMCH,DEBIN1,RREC03
RREC07
 MOVE DEBIN1,PTRFMCH
 B RREC04 
RREC03
 MOVE DEBIN1,W4 
RREC05
 XCOPY DEBIN5,W0,W2,SYSBUF,DEBIN1 
 CBE DEBIN5,W0,OUTOFRAN 
 MOVE RNRFMCH,DEBIN5
 TBF SWIT03,RRECNY
 MOVE PTRFMCH,W0
 B RRECNY 
RREC02
 CBL PTRFMCH,W20,RREC06 
 SUB PTRFMCH,W10
 B RREC07 
RREC06
 MOVE PTRFMCH,=W'190' 
 MOVE DEBIN1,W2 
 B RREC05 
RREC04
 ADD DEBIN1,W2
 MOVE STRG10A,=X'4600'
 COPY STRG10A,W1,W6,SYSBUF,DEBIN1 
 COPY FORMAT,W0,W6,SYSBUF,DEBIN1
 MOVE STR6A,FORMAT
 B NXPRFM 
* 
* 
* 
DELFMT			DELETE FORMAT
 PERF WAIT
 BNOK RETURN
 MOVE STR6A,FORMAT
 CLEAR SWIT04 
 PERF SFMTCH,W4,SYSBUF,W10
 BERR RETURN
 MOVE PINACC,DEBIN1 
 SUB DEBIN2,W6 DEBIN2=PTR TO ENTRY IN REC 
 XCOPY DEBIN1,W0,W2,SYSBUF,W6 DEBIN1=OCC. SPACE 
 DLETE SYSBUF,DEBIN2,W10
 SUB DEBIN1,W10 
 XCOPY SYSBUF,W6,W2,DEBIN1,W0 SET OCC SPACE 
 CBG DEBIN1,W10,DELF1 
 CLEAR SWIT04 
 PERF DLRCCH,SYSBUF 
 BERR RETURN
DELF1 
 PERF DISU,W2,PINACC,SYSBUF 
 MOVE DEBIN2,DEBIN3 
 PERF DISU,W1,DEBIN2,SYSBUF 
 BERR RETURN
 PERF ALGO,W2 
 BNERR DELF2
DELF3 
 MOVE DEBINW4,W9
 B RETURN 
DELF2 
 XCOPY DEBIN1,W0,W2,SYSBUF,W4 
 PERF RFRSP,DEBIN2,W1 
DELF
 CBE DEBIN1,W0,RETURN 
 PERF DISU,W1,DEBIN1,SYSBUF 
 BERR RETURN
 COPY STR2A,W0,W2,SYSBUF,W0 
 CBNE STR2A,=X'4600',DELF3
 PERF RFRSP,DEBIN1,W1 
 XCOPY DEBIN1,W0,W2,SYSBUF,W4 
 B DELF 
* 
* 
* 
ENTSYS
 PERF WAIT
 BERR RETURN
 MOVE SYSBUF,=X'535600' 
 MOVE DEBIN1,W10
 MOVE DEBIN2,W1 
CENT
 COPY SYSBUF,DEBIN1,W18,SYSV(DEBIN2),W0 
 ADD DEBIN1,W18 
 ADD DEBIN2,W1
 CBL DEBIN2,W11,CENT
 PERF DISU,W2,W5,SYSBUF 
 B RETURN 
* 
* 
GETSYS
 PERF DISU,W1,W5,SYSBUF 
 BOK NNODA
 MOVE SYSBUF,HEX00
 MOVE DEBINW4,W0
NNODA 
 MOVE DEBIN1,W10
 MOVE DEBIN2,W1 
CGET
 COPY SYSV(DEBIN2),W0,W18,SYSBUF,DEBIN1 
 ADD DEBIN1,W18 
 ADD DEBIN2,W1
 CBL DEBIN2,W11,CGET
 B RETURN 
* 
* 
ENTTBL
 SET SWIT01 
 B GETT01 
ENTT01
 MOVE SYSBUF,=X'5400' 
ENTCOR
 COPY SYSBUF,W8,W2,RPOOL(PINDTB),W17
 COPY SYSBUF,W10,W188,BPOOL(PINDTB),W0
 PERF DISU,W2,DEBIN4,SYSBUF 
 B RETURN 
ENTT03
 PERF FREESP,DEBIN2,W1
 BERR RETURN
 XCOPY SYSBUF,W4,W2,DEBIN2,W0 
 PERF DISU,W2,DEBIN4,SYSBUF 
 BERR RETURN
 MOVE DEBIN4,DEBIN2 
 B ENTT01 
* 
* 
* 
DELTBL
 SET SWIT02 
 B GETT01 
DELT01
 XCOPY SYSBUF,DEBIN5,W2,W0,W0 
 PERF DISU,W2,W7,SYSBUF 
 BNOK RETURN
DELT02
 PERF DISU,W1,DEBIN1,SYSBUF 
 BNOK RETURN
 XCOPY DEBIN2,W0,W2,SYSBUF,W4 
 PERF RFRSP,DEBIN1,W1 
 BNOK RETURN
 CBE DEBIN2,W0,RETURN 
 MOVE DEBIN1,DEBIN2 
 B DELT02 
* 
* 
* 
* 
RETURN
 TBF SWITFS,RETUNF
 PERF WRFSP,W1
RETUNF
 PERF RELEAS
 CBNE DEBINW4,W0,RETUN9 
 TBF SW95PR,RETUN9
 MOVE DEBINW4,=W'-1'
RETUN9
 PERF COND
 RET
 PEND 
 END

HexDump

0x0000…002a (0, 0, 398)  Head {h00=0x0026, h01=0x0050, text=» IDENT DEDI02 PRR 1.0 79-06-19/AST«, t00=0x0000, t01=0x0004}
0x002a…003e              Head {h00=0x0010, h01=0x0050, text=» DDUM DDINIT«, t00=0x0000, t01=0x002e}
0x003e…004c              Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0042}
0x004c…0062              Head {h00=0x0012, h01=0x000d, text=» ENTRY ENTFMT «, t00=0x0000, t01=0x0050}
0x0062…0078              Head {h00=0x0012, h01=0x000d, text=» ENTRY DELFMT «, t00=0x0000, t01=0x0066}
0x0078…008e              Head {h00=0x0012, h01=0x000d, text=» ENTRY GETSYS «, t00=0x0000, t01=0x007c}
0x008e…00a4              Head {h00=0x0012, h01=0x000d, text=» ENTRY ENTSYS «, t00=0x0000, t01=0x0092}
0x00a4…00ba              Head {h00=0x0012, h01=0x000d, text=» ENTRY PREFMT «, t00=0x0000, t01=0x00a8}
0x00ba…00d0              Head {h00=0x0012, h01=0x000d, text=» ENTRY NEXFMT «, t00=0x0000, t01=0x00be}
0x00d0…00e6              Head {h00=0x0012, h01=0x000d, text=» ENTRY ENTTBL «, t00=0x0000, t01=0x00d4}
0x00e6…00fc              Head {h00=0x0012, h01=0x000d, text=» ENTRY DELTBL «, t00=0x0000, t01=0x00ea}
0x00fc…0112              Head {h00=0x0012, h01=0x000d, text=» ENTRY ENTT01 «, t00=0x0000, t01=0x0100}
0x0112…0128              Head {h00=0x0012, h01=0x000d, text=» ENTRY ENTCOR «, t00=0x0000, t01=0x0116}
0x0128…013e              Head {h00=0x0012, h01=0x000d, text=» ENTRY ENTT03 «, t00=0x0000, t01=0x012c}
0x013e…0154              Head {h00=0x0012, h01=0x000d, text=» ENTRY DELT01 «, t00=0x0000, t01=0x0142}
0x0154…0166              Head {h00=0x000e, h01=0x0009, text=» EXT WAIT «, t00=0x0000, t01=0x0158}
0x0166…017a              Head {h00=0x0010, h01=0x000b, text=» EXT SFMTCH «, t00=0x0000, t01=0x016a}
0x017a…018e              Head {h00=0x0010, h01=0x000b, text=» EXT FREESP «, t00=0x0000, t01=0x017e}
0x018e…01a0 (1, 0, 400)  Head {h00=0x000e, h01=0x0009, text=» EXT DISU «, t00=0x0001, t01=0x0004}
0x01a0…01b4              Head {h00=0x0010, h01=0x000b, text=» EXT RELEAS «, t00=0x0001, t01=0x0016}
0x01b4…01c8              Head {h00=0x0010, h01=0x0050, text=» EXT NXPRFM «, t00=0x0001, t01=0x002a}
0x01c8…01dc              Head {h00=0x0010, h01=0x0050, text=» EXT DLRCCH «, t00=0x0001, t01=0x003e}
0x01dc…01ee              Head {h00=0x000e, h01=0x0050, text=» EXT RFRSP«, t00=0x0001, t01=0x0052}
0x01ee…0202              Head {h00=0x0010, h01=0x0050, text=» EXT GETT01 «, t00=0x0001, t01=0x0064}
0x0202…0216              Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0001, t01=0x0078}
0x0216…0228              Head {h00=0x000e, h01=0x0050, text=» EXT WRFSP«, t00=0x0001, t01=0x008c}
0x0228…023a              Head {h00=0x000e, h01=0x0050, text=» EXT COND «, t00=0x0001, t01=0x009e}
0x023a…024c              Head {h00=0x000e, h01=0x0050, text=» EXT ALGO «, t00=0x0001, t01=0x00b0}
0x024c…025a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00c2}
0x025a…0270              Head {h00=0x0012, h01=0x0050, text=»DUMM02 PROC FC«, t00=0x0001, t01=0x00d0}
0x0270…027a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e6}
0x027a…0298              Head {h00=0x001a, h01=0x0050, text=»ENTFMT   ENTER FORMAT «, t00=0x0001, t01=0x00f0}
0x0298…02aa              Head {h00=0x000e, h01=0x0050, text=» PERF WAIT«, t00=0x0001, t01=0x010e}
0x02aa…02be              Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x0001, t01=0x0120}
0x02be…02d8              Head {h00=0x0016, h01=0x0050, text=» MOVE STR6A,FORMAT«, t00=0x0001, t01=0x0134}
0x02d8…02f6              Head {h00=0x001a, h01=0x0050, text=» PERF FREESP,DEBIN1,W1«, t00=0x0001, t01=0x014e}
0x02f6…030a              Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x0001, t01=0x016c}
0x030a…0322              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN5,W4 «, t00=0x0001, t01=0x0180}
0x0322…0332              Head {h00=0x000c, h01=0x0050, text=»RDCHAIN «, t00=0x0002, t01=0x0008}
0x0332…034e              Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN3,DEBIN5 «, t00=0x0002, t01=0x0018}
0x034e…0382              Head {h00=0x0030, h01=0x0050, text=» PERF DISU,W1,DEBIN3,SYSBUF READ FORMATCHAIN«, t00=0x0002, t01=0x0034}
0x0382…0396              Head {h00=0x0010, h01=0x0050, text=» BNERR FST3 «, t00=0x0002, t01=0x0068}
0x0396…03b8              Head {h00=0x001e, h01=0x0050, text=» CBE DEBINW4,=W'30',FFIRST«, t00=0x0002, t01=0x007c}
0x03b8…03ca              Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0002, t01=0x009e}
0x03ca…03d6              Head {h00=0x0008, h01=0x0050, text=»FST3«, t00=0x0002, t01=0x00b0}
0x03d6…0414              Head {h00=0x003a, h01=0x0050, text=» XCOPY DEBIN4,W0,W2,SYSBUF,W6 OCCUPIED SPACE TO DEBIN4«, t00=0x0002, t01=0x00bc}
0x0414…0452              Head {h00=0x003a, h01=0x0050, text=» CBG DEBIN4,=W'180',RENEXT NO SPACE FOR MORE ENTRIES? «, t00=0x0002, t01=0x00fa}
0x0452…0462              Head {h00=0x000c, h01=0x0050, text=»ADDENTRY«, t00=0x0002, t01=0x0138}
0x0462…0492              Head {h00=0x002c, h01=0x0050, text=» XCOPY STRG10A,W0,W2,W0,W0 STATUS = '00'«, t00=0x0002, t01=0x0148}
0x0492…04bc              Head {h00=0x0026, h01=0x0050, text=» COPY STRG10A,W2,W6,FORMAT,W0 NAME«, t00=0x0002, t01=0x0178}
0x04bc…0500              Head {h00=0x0040, h01=0x0050, text=» XCOPY STRG10A,W8,W2,DEBIN1,W0 FREESPACE-RECNR = PTR TO FMT «, t00=0x0003, t01=0x0012}
0x0500…0540              Head {h00=0x003c, h01=0x0050, text=» COPY SYSBUF,DEBIN4,W10,STRG10A,W0 INSERT ENTRY TO CHAIN«, t00=0x0003, t01=0x0056}
0x0540…0558              Head {h00=0x0014, h01=0x0050, text=» ADD DEBIN4,W10 «, t00=0x0003, t01=0x0096}
0x0558…0590              Head {h00=0x0034, h01=0x0050, text=» XCOPY SYSBUF,W6,W2,DEBIN4,W0 SET OCCUPIED SPACE«, t00=0x0003, t01=0x00ae}
0x0590…05b4              Head {h00=0x0020, h01=0x0050, text=» PERF DISU,W2,DEBIN5,SYSBUF «, t00=0x0003, t01=0x00e6}
0x05b4…05c6              Head {h00=0x000e, h01=0x0050, text=» B WRTFMT «, t00=0x0003, t01=0x010a}
0x05c6…05d4              Head {h00=0x000a, h01=0x0050, text=»FFIRST«, t00=0x0003, t01=0x011c}
0x05d4…05ec              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN3,W0 «, t00=0x0003, t01=0x012a}
0x05ec…0604              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0003, t01=0x0142}
0x0604…0616              Head {h00=0x000e, h01=0x0050, text=» B FFST01 «, t00=0x0003, t01=0x015a}
0x0616…0624              Head {h00=0x000a, h01=0x0050, text=»RENEXT«, t00=0x0003, t01=0x016c}
0x0624…065a              Head {h00=0x0032, h01=0x0050, text=» XCOPY DEBIN5,W0,W2,SYSBUF,W4 GET LINK TO NEXT«, t00=0x0003, t01=0x017a}
0x065a…067a              Head {h00=0x001c, h01=0x0050, text=» CBNE DEBIN5,W0,RDCHAIN «, t00=0x0004, t01=0x0020}
0x067a…0698              Head {h00=0x001a, h01=0x0050, text=» PERF FREESP,DEBIN5,W1«, t00=0x0004, t01=0x0040}
0x0698…06ac              Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x0004, t01=0x005e}
0x06ac…06d2              Head {h00=0x0022, h01=0x0050, text=» XCOPY SYSBUF,W4,W2,DEBIN5,W0 «, t00=0x0004, t01=0x0072}
0x06d2…06f6              Head {h00=0x0020, h01=0x0050, text=» PERF DISU,W2,DEBIN3,SYSBUF «, t00=0x0004, t01=0x0098}
0x06f6…0704              Head {h00=0x000a, h01=0x0050, text=»FFST01«, t00=0x0004, t01=0x00bc}
0x0704…071c              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN4,W10«, t00=0x0004, t01=0x00ca}
0x071c…0754              Head {h00=0x0034, h01=0x0050, text=» MOVE SYSBUF,=X'464300' SET SCTR-IDENTIFICATION «, t00=0x0004, t01=0x00e2}
0x0754…078a              Head {h00=0x0032, h01=0x0050, text=» XCOPY SYSBUF,W2,W2,DEBIN3,W0 SET LINK TO PREV«, t00=0x0004, t01=0x011a}
0x078a…07bc              Head {h00=0x002e, h01=0x0050, text=» XCOPY SYSBUF,W4,W2,W0,W0 LINK TO NEXT = 0«, t00=0x0004, t01=0x0150}
0x07bc…07d0              Head {h00=0x0010, h01=0x0050, text=» B ADDENTRY «, t00=0x0004, t01=0x0182}
0x07d0…07de              Head {h00=0x000a, h01=0x0050, text=»WRTFMT«, t00=0x0005, t01=0x0008}
0x07de…07fa              Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN3,PINDFR «, t00=0x0005, t01=0x0016}
0x07fa…082a              Head {h00=0x002c, h01=0x0050, text=» PERF ALGO,W1 SET FORMAT-IDENTIFICATION «, t00=0x0005, t01=0x0032}
0x082a…0838              Head {h00=0x000a, h01=0x0050, text=»NEGST «, t00=0x0005, t01=0x0062}
0x0838…0850              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN2,W0 «, t00=0x0005, t01=0x0070}
0x0850…088e              Head {h00=0x003a, h01=0x0050, text=» XCOPY DEBIN2,W1,W1,RPOOL(DEBIN3),W8 GET LINK NEXT BUF«, t00=0x0005, t01=0x0088}
0x088e…08bc              Head {h00=0x002a, h01=0x0050, text=» XCOPY SYSBUF,W8,W2,RPOOL(DEBIN3),W17 «, t00=0x0005, t01=0x00c6}
0x08bc…08e8              Head {h00=0x0028, h01=0x0050, text=» CBE DEBIN2,W0,NOMOREC LAST RECORD? «, t00=0x0005, t01=0x00f4}
0x08e8…0906              Head {h00=0x001a, h01=0x0050, text=» PERF FREESP,DEBIN4,W1«, t00=0x0005, t01=0x0120}
0x0906…091a              Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x0005, t01=0x013e}
0x091a…0926              Head {h00=0x0008, h01=0x0050, text=»COP «, t00=0x0005, t01=0x0152}
0x0926…095e              Head {h00=0x0034, h01=0x0050, text=» XCOPY SYSBUF,W4,W2,DEBIN4,W0 SET LINK NEXT REC «, t00=0x0005, t01=0x015e}
0x095e…098c              Head {h00=0x002a, h01=0x0050, text=» COPY SYSBUF,W10,W188,BPOOL(DEBIN3),W0«, t00=0x0006, t01=0x0008}
0x098c…09b0              Head {h00=0x0020, h01=0x0050, text=» PERF DISU,W2,DEBIN1,SYSBUF «, t00=0x0006, t01=0x0036}
0x09b0…09c4              Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x0006, t01=0x005a}
0x09c4…09dc              Head {h00=0x0014, h01=0x0050, text=» TBF SWIT01,CO10«, t00=0x0006, t01=0x006e}
0x09dc…09ee              Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0006, t01=0x0086}
0x09ee…09fa              Head {h00=0x0008, h01=0x0050, text=»CO10«, t00=0x0006, t01=0x0098}
0x09fa…0a16              Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN3,DEBIN2 «, t00=0x0006, t01=0x00a4}
0x0a16…0a32              Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN1,DEBIN4 «, t00=0x0006, t01=0x00c0}
0x0a32…0a50              Head {h00=0x001a, h01=0x0050, text=» MOVE SYSBUF,=X'4600' «, t00=0x0006, t01=0x00dc}
0x0a50…0a60              Head {h00=0x000c, h01=0x0050, text=» B NEGST«, t00=0x0006, t01=0x00fa}
0x0a60…0a70              Head {h00=0x000c, h01=0x0050, text=»NOMOREC «, t00=0x0006, t01=0x010a}
0x0a70…0a88              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN4,W0 «, t00=0x0006, t01=0x011a}
0x0a88…0a9c              Head {h00=0x0010, h01=0x0050, text=» SET SWIT01 «, t00=0x0006, t01=0x0132}
0x0a9c…0aaa              Head {h00=0x000a, h01=0x0050, text=» B COP«, t00=0x0006, t01=0x0146}
0x0aaa…0ab4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0154}
0x0ab4…0abe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x015e}
0x0abe…0ac8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0168}
0x0ac8…0ad2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0172}
0x0ad2…0adc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x017c}
0x0adc…0afc              Head {h00=0x001c, h01=0x0050, text=»NEXFMT   GET NEXT FORMAT«, t00=0x0006, t01=0x0186}
0x0afc…0b10              Head {h00=0x0010, h01=0x0050, text=» SET SWIT03 «, t00=0x0007, t01=0x0016}
0x0b10…0b1a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x002a}
0x0b1a…0b24              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0034}
0x0b24…0b32              Head {h00=0x000a, h01=0x0050, text=»PREFMT«, t00=0x0007, t01=0x003e}
0x0b32…0b4c              Head {h00=0x0016, h01=0x0050, text=» MOVE FRMTPNTR,W0 «, t00=0x0007, t01=0x004c}
0x0b4c…0b68              Head {h00=0x0018, h01=0x0050, text=» CALL EMPTYT,FORMAT «, t00=0x0007, t01=0x0066}
0x0b68…0b7a              Head {h00=0x000e, h01=0x0050, text=» BZ RRECNX«, t00=0x0007, t01=0x0082}
0x0b7a…0b92              Head {h00=0x0014, h01=0x0050, text=» MOVE RNRFMCH,W4«, t00=0x0007, t01=0x0094}
0x0b92…0baa              Head {h00=0x0014, h01=0x0050, text=» MOVE PTRFMCH,W0«, t00=0x0007, t01=0x00ac}
0x0baa…0bc4              Head {h00=0x0016, h01=0x0050, text=» TBT SWIT03,RRECNX«, t00=0x0007, t01=0x00c4}
0x0bc4…0bdc              Head {h00=0x0014, h01=0x0050, text=» ADD PTRFMCH,W20«, t00=0x0007, t01=0x00de}
0x0bdc…0bea              Head {h00=0x000a, h01=0x0050, text=»RRECNX«, t00=0x0007, t01=0x00f6}
0x0bea…0c0a              Head {h00=0x001c, h01=0x0050, text=» CBNE RNRFMCH,W0,RRECNZ «, t00=0x0007, t01=0x0104}
0x0c0a…0c24              Head {h00=0x0016, h01=0x0050, text=» MOVE STR6A,FORMAT«, t00=0x0007, t01=0x0124}
0x0c24…0c46              Head {h00=0x001e, h01=0x0050, text=» PERF SFMTCH,W4,SYSBUF,W10«, t00=0x0007, t01=0x013e}
0x0c46…0c5a              Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x0007, t01=0x0160}
0x0c5a…0c76              Head {h00=0x0018, h01=0x0050, text=» MOVE RNRFMCH,DEBIN1«, t00=0x0007, t01=0x0174}
0x0c76…0c92              Head {h00=0x0018, h01=0x0050, text=» MOVE PTRFMCH,DEBIN2«, t00=0x0007, t01=0x0190}
0x0c92…0caa              Head {h00=0x0014, h01=0x0050, text=» SUB PTRFMCH,W8 «, t00=0x0008, t01=0x001c}
0x0caa…0cb8              Head {h00=0x000a, h01=0x0050, text=»RRECNZ«, t00=0x0008, t01=0x0034}
0x0cb8…0cca              Head {h00=0x000e, h01=0x0050, text=» PERF WAIT«, t00=0x0008, t01=0x0042}
0x0cca…0cde              Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x0008, t01=0x0054}
0x0cde…0cec              Head {h00=0x000a, h01=0x0050, text=»RRECNY«, t00=0x0008, t01=0x0068}
0x0cec…0d10              Head {h00=0x0020, h01=0x0050, text=» PERF DISU,W1,RNRFMCH,SYSBUF«, t00=0x0008, t01=0x0076}
0x0d10…0d26              Head {h00=0x0012, h01=0x0050, text=» BNERR RREC01 «, t00=0x0008, t01=0x009a}
0x0d26…0d4a              Head {h00=0x0020, h01=0x0050, text=» CBE DEBINW4,=W'30',OUTOFRAN«, t00=0x0008, t01=0x00b0}
0x0d4a…0d5c              Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0008, t01=0x00d4}
0x0d5c…0d6c              Head {h00=0x000c, h01=0x0050, text=»OUTOFRAN«, t00=0x0008, t01=0x00e6}
0x0d6c…0d84              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W9«, t00=0x0008, t01=0x00f6}
0x0d84…0d9c              Head {h00=0x0014, h01=0x0050, text=» MOVE RNRFMCH,W0«, t00=0x0008, t01=0x010e}
0x0d9c…0dae              Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0008, t01=0x0126}
0x0dae…0dbc              Head {h00=0x000a, h01=0x0050, text=»RREC01«, t00=0x0008, t01=0x0138}
0x0dbc…0de2              Head {h00=0x0022, h01=0x0050, text=» XCOPY DEBIN1,W0,W2,SYSBUF,W6 «, t00=0x0008, t01=0x0146}
0x0de2…0dfc              Head {h00=0x0016, h01=0x0050, text=» TBF SWIT03,RREC02«, t00=0x0008, t01=0x016c}
0x0dfc…0e14              Head {h00=0x0014, h01=0x0050, text=» ADD PTRFMCH,W10«, t00=0x0008, t01=0x0186}
0x0e14…0e36              Head {h00=0x001e, h01=0x0050, text=» CBE PTRFMCH,DEBIN1,RREC03«, t00=0x0009, t01=0x000e}
0x0e36…0e44              Head {h00=0x000a, h01=0x0050, text=»RREC07«, t00=0x0009, t01=0x0030}
0x0e44…0e60              Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN1,PTRFMCH«, t00=0x0009, t01=0x003e}
0x0e60…0e72              Head {h00=0x000e, h01=0x0050, text=» B RREC04 «, t00=0x0009, t01=0x005a}
0x0e72…0e80              Head {h00=0x000a, h01=0x0050, text=»RREC03«, t00=0x0009, t01=0x006c}
0x0e80…0e98              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN1,W4 «, t00=0x0009, t01=0x007a}
0x0e98…0ea6              Head {h00=0x000a, h01=0x0050, text=»RREC05«, t00=0x0009, t01=0x0092}
0x0ea6…0ed0              Head {h00=0x0026, h01=0x0050, text=» XCOPY DEBIN5,W0,W2,SYSBUF,DEBIN1 «, t00=0x0009, t01=0x00a0}
0x0ed0…0ef0              Head {h00=0x001c, h01=0x0050, text=» CBE DEBIN5,W0,OUTOFRAN «, t00=0x0009, t01=0x00ca}
0x0ef0…0f0c              Head {h00=0x0018, h01=0x0050, text=» MOVE RNRFMCH,DEBIN5«, t00=0x0009, t01=0x00ea}
0x0f0c…0f26              Head {h00=0x0016, h01=0x0050, text=» TBF SWIT03,RRECNY«, t00=0x0009, t01=0x0106}
0x0f26…0f3e              Head {h00=0x0014, h01=0x0050, text=» MOVE PTRFMCH,W0«, t00=0x0009, t01=0x0120}
0x0f3e…0f50              Head {h00=0x000e, h01=0x0050, text=» B RRECNY «, t00=0x0009, t01=0x0138}
0x0f50…0f5e              Head {h00=0x000a, h01=0x0050, text=»RREC02«, t00=0x0009, t01=0x014a}
0x0f5e…0f7e              Head {h00=0x001c, h01=0x0050, text=» CBL PTRFMCH,W20,RREC06 «, t00=0x0009, t01=0x0158}
0x0f7e…0f96              Head {h00=0x0014, h01=0x0050, text=» SUB PTRFMCH,W10«, t00=0x0009, t01=0x0178}
0x0f96…0fa8              Head {h00=0x000e, h01=0x0050, text=» B RREC07 «, t00=0x0009, t01=0x0190}
0x0fa8…0fb6              Head {h00=0x000a, h01=0x0050, text=»RREC06«, t00=0x000a, t01=0x0012}
0x0fb6…0fd4              Head {h00=0x001a, h01=0x0050, text=» MOVE PTRFMCH,=W'190' «, t00=0x000a, t01=0x0020}
0x0fd4…0fec              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN1,W2 «, t00=0x000a, t01=0x003e}
0x0fec…0ffe              Head {h00=0x000e, h01=0x0050, text=» B RREC05 «, t00=0x000a, t01=0x0056}
0x0ffe…100c              Head {h00=0x000a, h01=0x0050, text=»RREC04«, t00=0x000a, t01=0x0068}
0x100c…1022              Head {h00=0x0012, h01=0x0050, text=» ADD DEBIN1,W2«, t00=0x000a, t01=0x0076}
0x1022…1040              Head {h00=0x001a, h01=0x0050, text=» MOVE STRG10A,=X'4600'«, t00=0x000a, t01=0x008c}
0x1040…106a              Head {h00=0x0026, h01=0x0050, text=» COPY STRG10A,W1,W6,SYSBUF,DEBIN1 «, t00=0x000a, t01=0x00aa}
0x106a…1092              Head {h00=0x0024, h01=0x0050, text=» COPY FORMAT,W0,W6,SYSBUF,DEBIN1«, t00=0x000a, t01=0x00d4}
0x1092…10ac              Head {h00=0x0016, h01=0x0050, text=» MOVE STR6A,FORMAT«, t00=0x000a, t01=0x00fc}
0x10ac…10be              Head {h00=0x000e, h01=0x0050, text=» B NXPRFM «, t00=0x000a, t01=0x0116}
0x10be…10c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0128}
0x10c8…10d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0132}
0x10d2…10dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x013c}
0x10dc…10fa              Head {h00=0x001a, h01=0x0050, text=»DELFMT   DELETE FORMAT«, t00=0x000a, t01=0x0146}
0x10fa…110c              Head {h00=0x000e, h01=0x0050, text=» PERF WAIT«, t00=0x000a, t01=0x0164}
0x110c…1120              Head {h00=0x0010, h01=0x0050, text=» BNOK RETURN«, t00=0x000a, t01=0x0176}
0x1120…113a              Head {h00=0x0016, h01=0x0050, text=» MOVE STR6A,FORMAT«, t00=0x000a, t01=0x018a}
0x113a…1150              Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT04 «, t00=0x000b, t01=0x0014}
0x1150…1172              Head {h00=0x001e, h01=0x0050, text=» PERF SFMTCH,W4,SYSBUF,W10«, t00=0x000b, t01=0x002a}
0x1172…1186              Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x000b, t01=0x004c}
0x1186…11a2              Head {h00=0x0018, h01=0x0050, text=» MOVE PINACC,DEBIN1 «, t00=0x000b, t01=0x0060}
0x11a2…11d4              Head {h00=0x002e, h01=0x0050, text=» SUB DEBIN2,W6 DEBIN2=PTR TO ENTRY IN REC «, t00=0x000b, t01=0x007c}
0x11d4…120c              Head {h00=0x0034, h01=0x0050, text=» XCOPY DEBIN1,W0,W2,SYSBUF,W6 DEBIN1=OCC. SPACE «, t00=0x000b, t01=0x00ae}
0x120c…122c              Head {h00=0x001c, h01=0x0050, text=» DLETE SYSBUF,DEBIN2,W10«, t00=0x000b, t01=0x00e6}
0x122c…1244              Head {h00=0x0014, h01=0x0050, text=» SUB DEBIN1,W10 «, t00=0x000b, t01=0x0106}
0x1244…1278              Head {h00=0x0030, h01=0x0050, text=» XCOPY SYSBUF,W6,W2,DEBIN1,W0 SET OCC SPACE «, t00=0x000b, t01=0x011e}
0x1278…1296              Head {h00=0x001a, h01=0x0050, text=» CBG DEBIN1,W10,DELF1 «, t00=0x000b, t01=0x0152}
0x1296…12ac              Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT04 «, t00=0x000b, t01=0x0170}
0x12ac…12c8              Head {h00=0x0018, h01=0x0050, text=» PERF DLRCCH,SYSBUF «, t00=0x000b, t01=0x0186}
0x12c8…12dc              Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x000c, t01=0x0012}
0x12dc…12ea              Head {h00=0x000a, h01=0x0050, text=»DELF1 «, t00=0x000c, t01=0x0026}
0x12ea…130e              Head {h00=0x0020, h01=0x0050, text=» PERF DISU,W2,PINACC,SYSBUF «, t00=0x000c, t01=0x0034}
0x130e…132a              Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN2,DEBIN3 «, t00=0x000c, t01=0x0058}
0x132a…134e              Head {h00=0x0020, h01=0x0050, text=» PERF DISU,W1,DEBIN2,SYSBUF «, t00=0x000c, t01=0x0074}
0x134e…1362              Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x000c, t01=0x0098}
0x1362…1378              Head {h00=0x0012, h01=0x0050, text=» PERF ALGO,W2 «, t00=0x000c, t01=0x00ac}
0x1378…138c              Head {h00=0x0010, h01=0x0050, text=» BNERR DELF2«, t00=0x000c, t01=0x00c2}
0x138c…139a              Head {h00=0x000a, h01=0x0050, text=»DELF3 «, t00=0x000c, t01=0x00d6}
0x139a…13b2              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W9«, t00=0x000c, t01=0x00e4}
0x13b2…13c4              Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x000c, t01=0x00fc}
0x13c4…13d2              Head {h00=0x000a, h01=0x0050, text=»DELF2 «, t00=0x000c, t01=0x010e}
0x13d2…13f8              Head {h00=0x0022, h01=0x0050, text=» XCOPY DEBIN1,W0,W2,SYSBUF,W4 «, t00=0x000c, t01=0x011c}
0x13f8…1416              Head {h00=0x001a, h01=0x0050, text=» PERF RFRSP,DEBIN2,W1 «, t00=0x000c, t01=0x0142}
0x1416…1422              Head {h00=0x0008, h01=0x0050, text=»DELF«, t00=0x000c, t01=0x0160}
0x1422…1440              Head {h00=0x001a, h01=0x0050, text=» CBE DEBIN1,W0,RETURN «, t00=0x000c, t01=0x016c}
0x1440…1464              Head {h00=0x0020, h01=0x0050, text=» PERF DISU,W1,DEBIN1,SYSBUF «, t00=0x000c, t01=0x018a}
0x1464…1478              Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x000d, t01=0x001e}
0x1478…149c              Head {h00=0x0020, h01=0x0050, text=» COPY STR2A,W0,W2,SYSBUF,W0 «, t00=0x000d, t01=0x0032}
0x149c…14be              Head {h00=0x001e, h01=0x0050, text=» CBNE STR2A,=X'4600',DELF3«, t00=0x000d, t01=0x0056}
0x14be…14dc              Head {h00=0x001a, h01=0x0050, text=» PERF RFRSP,DEBIN1,W1 «, t00=0x000d, t01=0x0078}
0x14dc…1502              Head {h00=0x0022, h01=0x0050, text=» XCOPY DEBIN1,W0,W2,SYSBUF,W4 «, t00=0x000d, t01=0x0096}
0x1502…1512              Head {h00=0x000c, h01=0x0050, text=» B DELF «, t00=0x000d, t01=0x00bc}
0x1512…151c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00cc}
0x151c…1526              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d6}
0x1526…1530              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00e0}
0x1530…153e              Head {h00=0x000a, h01=0x0050, text=»ENTSYS«, t00=0x000d, t01=0x00ea}
0x153e…1550              Head {h00=0x000e, h01=0x0050, text=» PERF WAIT«, t00=0x000d, t01=0x00f8}
0x1550…1564              Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x000d, t01=0x010a}
0x1564…1584              Head {h00=0x001c, h01=0x0050, text=» MOVE SYSBUF,=X'535600' «, t00=0x000d, t01=0x011e}
0x1584…159c              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN1,W10«, t00=0x000d, t01=0x013e}
0x159c…15b4              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN2,W1 «, t00=0x000d, t01=0x0156}
0x15b4…15c0              Head {h00=0x0008, h01=0x0050, text=»CENT«, t00=0x000d, t01=0x016e}
0x15c0…15f0              Head {h00=0x002c, h01=0x0050, text=» COPY SYSBUF,DEBIN1,W18,SYSV(DEBIN2),W0 «, t00=0x000d, t01=0x017a}
0x15f0…1608              Head {h00=0x0014, h01=0x0050, text=» ADD DEBIN1,W18 «, t00=0x000e, t01=0x001a}
0x1608…161e              Head {h00=0x0012, h01=0x0050, text=» ADD DEBIN2,W1«, t00=0x000e, t01=0x0032}
0x161e…163a              Head {h00=0x0018, h01=0x0050, text=» CBL DEBIN2,W11,CENT«, t00=0x000e, t01=0x0048}
0x163a…165a              Head {h00=0x001c, h01=0x0050, text=» PERF DISU,W2,W5,SYSBUF «, t00=0x000e, t01=0x0064}
0x165a…166c              Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x000e, t01=0x0084}
0x166c…1676              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0096}
0x1676…1680              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00a0}
0x1680…168e              Head {h00=0x000a, h01=0x0050, text=»GETSYS«, t00=0x000e, t01=0x00aa}
0x168e…16ae              Head {h00=0x001c, h01=0x0050, text=» PERF DISU,W1,W5,SYSBUF «, t00=0x000e, t01=0x00b8}
0x16ae…16c0              Head {h00=0x000e, h01=0x0050, text=» BOK NNODA«, t00=0x000e, t01=0x00d8}
0x16c0…16da              Head {h00=0x0016, h01=0x0050, text=» MOVE SYSBUF,HEX00«, t00=0x000e, t01=0x00ea}
0x16da…16f2              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x000e, t01=0x0104}
0x16f2…1700              Head {h00=0x000a, h01=0x0050, text=»NNODA «, t00=0x000e, t01=0x011c}
0x1700…1718              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN1,W10«, t00=0x000e, t01=0x012a}
0x1718…1730              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN2,W1 «, t00=0x000e, t01=0x0142}
0x1730…173c              Head {h00=0x0008, h01=0x0050, text=»CGET«, t00=0x000e, t01=0x015a}
0x173c…176c              Head {h00=0x002c, h01=0x0050, text=» COPY SYSV(DEBIN2),W0,W18,SYSBUF,DEBIN1 «, t00=0x000e, t01=0x0166}
0x176c…1784              Head {h00=0x0014, h01=0x0050, text=» ADD DEBIN1,W18 «, t00=0x000f, t01=0x0008}
0x1784…179a              Head {h00=0x0012, h01=0x0050, text=» ADD DEBIN2,W1«, t00=0x000f, t01=0x0020}
0x179a…17b6              Head {h00=0x0018, h01=0x0050, text=» CBL DEBIN2,W11,CGET«, t00=0x000f, t01=0x0036}
0x17b6…17c8              Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x000f, t01=0x0052}
0x17c8…17d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0064}
0x17d2…17dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x006e}
0x17dc…17ea              Head {h00=0x000a, h01=0x0006, text=»ENTTBL«, t00=0x000f, t01=0x0078}
0x17ea…17fe              Head {h00=0x0010, h01=0x000b, text=» SET SWIT01 «, t00=0x000f, t01=0x0086}
0x17fe…1810              Head {h00=0x000e, h01=0x0009, text=» B GETT01 «, t00=0x000f, t01=0x009a}
0x1810…181e              Head {h00=0x000a, h01=0x0006, text=»ENTT01«, t00=0x000f, t01=0x00ac}
0x181e…183c              Head {h00=0x001a, h01=0x0050, text=» MOVE SYSBUF,=X'5400' «, t00=0x000f, t01=0x00ba}
0x183c…184a              Head {h00=0x000a, h01=0x0050, text=»ENTCOR«, t00=0x000f, t01=0x00d8}
0x184a…1876              Head {h00=0x0028, h01=0x0050, text=» COPY SYSBUF,W8,W2,RPOOL(PINDTB),W17«, t00=0x000f, t01=0x00e6}
0x1876…18a4              Head {h00=0x002a, h01=0x0050, text=» COPY SYSBUF,W10,W188,BPOOL(PINDTB),W0«, t00=0x000f, t01=0x0112}
0x18a4…18c8              Head {h00=0x0020, h01=0x0050, text=» PERF DISU,W2,DEBIN4,SYSBUF «, t00=0x000f, t01=0x0140}
0x18c8…18da              Head {h00=0x000e, h01=0x0009, text=» B RETURN «, t00=0x000f, t01=0x0164}
0x18da…18e8              Head {h00=0x000a, h01=0x0006, text=»ENTT03«, t00=0x000f, t01=0x0176}
0x18e8…1906              Head {h00=0x001a, h01=0x0016, text=» PERF FREESP,DEBIN2,W1«, t00=0x000f, t01=0x0184}
0x1906…191a              Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x0010, t01=0x0012}
0x191a…1940              Head {h00=0x0022, h01=0x0050, text=» XCOPY SYSBUF,W4,W2,DEBIN2,W0 «, t00=0x0010, t01=0x0026}
0x1940…1964              Head {h00=0x0020, h01=0x0050, text=» PERF DISU,W2,DEBIN4,SYSBUF «, t00=0x0010, t01=0x004c}
0x1964…1978              Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x0010, t01=0x0070}
0x1978…1994              Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN4,DEBIN2 «, t00=0x0010, t01=0x0084}
0x1994…19a6              Head {h00=0x000e, h01=0x0009, text=» B ENTT01 «, t00=0x0010, t01=0x00a0}
0x19a6…19b0              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x00b2}
0x19b0…19ba              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x00bc}
0x19ba…19c4              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x00c6}
0x19c4…19d2              Head {h00=0x000a, h01=0x0050, text=»DELTBL«, t00=0x0010, t01=0x00d0}
0x19d2…19e6              Head {h00=0x0010, h01=0x000b, text=» SET SWIT02 «, t00=0x0010, t01=0x00de}
0x19e6…19f8              Head {h00=0x000e, h01=0x0009, text=» B GETT01 «, t00=0x0010, t01=0x00f2}
0x19f8…1a06              Head {h00=0x000a, h01=0x0006, text=»DELT01«, t00=0x0010, t01=0x0104}
0x1a06…1a2c              Head {h00=0x0022, h01=0x0050, text=» XCOPY SYSBUF,DEBIN5,W2,W0,W0 «, t00=0x0010, t01=0x0112}
0x1a2c…1a4c              Head {h00=0x001c, h01=0x0017, text=» PERF DISU,W2,W7,SYSBUF «, t00=0x0010, t01=0x0138}
0x1a4c…1a60              Head {h00=0x0010, h01=0x000c, text=» BNOK RETURN«, t00=0x0010, t01=0x0158}
0x1a60…1a6e              Head {h00=0x000a, h01=0x0006, text=»DELT02«, t00=0x0010, t01=0x016c}
0x1a6e…1a92              Head {h00=0x0020, h01=0x001b, text=» PERF DISU,W1,DEBIN1,SYSBUF «, t00=0x0010, t01=0x017a}
0x1a92…1aa6              Head {h00=0x0010, h01=0x000c, text=» BNOK RETURN«, t00=0x0011, t01=0x000e}
0x1aa6…1acc              Head {h00=0x0022, h01=0x001d, text=» XCOPY DEBIN2,W0,W2,SYSBUF,W4 «, t00=0x0011, t01=0x0022}
0x1acc…1aea              Head {h00=0x001a, h01=0x0015, text=» PERF RFRSP,DEBIN1,W1 «, t00=0x0011, t01=0x0048}
0x1aea…1afe              Head {h00=0x0010, h01=0x000c, text=» BNOK RETURN«, t00=0x0011, t01=0x0066}
0x1afe…1b1c              Head {h00=0x001a, h01=0x0015, text=» CBE DEBIN2,W0,RETURN «, t00=0x0011, t01=0x007a}
0x1b1c…1b38              Head {h00=0x0018, h01=0x0013, text=» MOVE DEBIN1,DEBIN2 «, t00=0x0011, t01=0x0098}
0x1b38…1b4a              Head {h00=0x000e, h01=0x0009, text=» B DELT02 «, t00=0x0011, t01=0x00b4}
0x1b4a…1b54              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x00c6}
0x1b54…1b5e              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x00d0}
0x1b5e…1b68              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x00da}
0x1b68…1b72              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x00e4}
0x1b72…1b80              Head {h00=0x000a, h01=0x0050, text=»RETURN«, t00=0x0011, t01=0x00ee}
0x1b80…1b9a              Head {h00=0x0016, h01=0x0050, text=» TBF SWITFS,RETUNF«, t00=0x0011, t01=0x00fc}
0x1b9a…1bb0              Head {h00=0x0012, h01=0x0050, text=» PERF WRFSP,W1«, t00=0x0011, t01=0x0116}
0x1bb0…1bbe              Head {h00=0x000a, h01=0x0050, text=»RETUNF«, t00=0x0011, t01=0x012c}
0x1bbe…1bd2              Head {h00=0x0010, h01=0x0050, text=» PERF RELEAS«, t00=0x0011, t01=0x013a}
0x1bd2…1bf2              Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW4,W0,RETUN9 «, t00=0x0011, t01=0x014e}
0x1bf2…1c0c              Head {h00=0x0016, h01=0x0050, text=» TBF SW95PR,RETUN9«, t00=0x0011, t01=0x016e}
0x1c0c…1c28              Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW4,=W'-1'«, t00=0x0011, t01=0x0188}
0x1c28…1c36              Head {h00=0x000a, h01=0x0050, text=»RETUN9«, t00=0x0012, t01=0x0014}
0x1c36…1c48              Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0012, t01=0x0022}
0x1c48…1c54              Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0012, t01=0x0034}
0x1c54…1c62              Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0012, t01=0x0040}
0x1c62…1c6e              Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0012, t01=0x004e}
0x1c6e…1c72              Head {h00=0x4004, h01=0x0000}
0x1c72…1c76              00 12 00 5a                                                                                                                                                                                                                                       ┆   Z┆
0x1c76…1c7e (19, 1, 8)   20 04 00 00 00 13 00 04                                                                                                                                                                                                                           ┆        ┆
0x1c7e…1cce (20, 2, 228) 00 2e 00 48 20 49 44 45 4e 54 20 44 3a 43 42 35 30 20 20 54 52 41 20 34 2e 31 20 20 37 39 2d 30 37 2d 33 31 20 46 31 20 4f 31 31 31 31 20 00 14 00 04 00 0e 00 0a 01 04 c8 44 3a 43 42 35 30 00 00 14 00 36 00 10 00 0c 05 05 c8 44 3a 43 42 35   ┆ . H IDENT D:CB50  TRA 4.1  79-07-31 F1 O1111            D:CB50    6       D:CB5┆
0x1cce…1d1e              30 43 00 02 00 14 00 48 00 2a 00 26 03 12 00 00 00 01 00 00 00 42 20 02 00 00 20 02 00 02 20 02 00 04 20 02 00 06 20 02 00 08 20 02 00 0a 30 04 00 0c 00 14 00 5c 00 2a 00 26 03 12 00 00 00 1f 00 00 30 02 00 10 30 02 00 12 30 03 00 14 30 01   ┆0C     H * &         B                        0        * &        0   0   0   0 ┆
0x1d1e…1d62              00 17 00 01 00 18 80 01 00 19 00 07 00 00 b0 0d 00 14 00 8a 00 12 00 0e 03 06 00 00 00 3d 00 00 00 20 00 10 00 00 00 14 00 b8 00 0e 00 0a 07 04 00 00 00 1f 00 42 00 00 00 14 00 ce 40 04 00 00 00 14 00 e0                                       ┆                             =                       B      @       ┆

Reduced view