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

⟦7fa27c7ef⟧

    Length: 23068 (0x5a1c)
    Notes: pts_type(SC)
    Names: »DEPOOL.SC«

Derivation

└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
    └─⟦this⟧ »S:DE/DEPOOL.SC« 
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
    └─⟦this⟧ »DEN10/DEPOOL.SC« 
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
    └─⟦this⟧ »S:DE/DEPOOL.SC« 
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
    └─⟦this⟧ »DEN10/DEPOOL.SC« 
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
    └─⟦this⟧ »S:DE/DEPOOL.SC« 

PTS(SC)

	IDENT	DEPOOL	REL 10.0 80-04-11 
			80-03-26/DALI
	DDUM	DEDDIV
************************************************************
* THIS PROCEDURE HANDLES POOLING FUNCTIONS. THE CALLING    *
* SEQUENCE AND THE FORMAL PARAMETERS ARE DESCRIBED BELOW.  *
*                                                          *
*        PERF    DEPOOL,<FC>,<BUFF1>,<BUFF2>,<KEY>         *
*                                                          *
************************************************************
* 
* FOLLOWING DATA ITEMS ARE USED BY THE DEPOOL ROUTINES
* AND ORIGINATE CONTENTS OF THEM ARE LOST.
* 
*        <BUFF1>  ONLY WHEN <FC> = 1,2,5,7,9
*        <BUFF2>  ONLY WHEN <FC> = 5,7,9
*         BIN15 
*         BIN16 
*         DEBINW3 
*         DEBINW4 
*         POOL1 
*         STR1A 
*         STR64A
* 
************************************************************
 EJECT
************************************************************
* 
*        <FC> = 1  GET BUFFERS WITHOUT LOCK 
*                  THE RETURNED BUFFERS ARE FREE FOR USE
*                  BY ANY TASK FOR THE SAME PURPOSES. 
*                  THE COUNTER OF THE PASSED BUFFERCHAIN
*                  IS SET TO 1. 
*                  PASSED PARAMETERS: 
*        <BUFF1> = TOTAL NUMBER OF WANTED BUFFERS 
*        <BUFF2> = NUMBER OF WANTED CONSECUTIVE BUFFERS 
*                  RETURNED PARAMETERS: 
*        <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER 
*                  IF NO BUFFERS = 0
* 
************************************************************
* 
*        <FC> = 2  GET BUFFERS WITH LOCK
*                  THE RETURNED BUFFERS ARE LOCKED AND
*                  RESERVED FOR USE ONLY BY THIS TASK 
*                  THE COUNTER OF THE PASSED BUFFERCHAIN
*                  IS SET TO 1. 
*                  PASSED PARAMETERS: 
*        <BUFF1> = TOTAL NUMBER OF WANTED BUFFERS 
*        <BUFF2> = NUMBER OF WANTED CONSECUTIVE BUFFERS 
*                  RETURNED PARAMETERS: 
*        <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER 
*                  IF NO BUFFERS = 0
* 
************************************************************
 EJECT
************************************************************
* 
*        <FC> = 3  CHAIN BUFFERS
*                  THE RETURNED BUFFER IS ADDED TO THE
*                  BUFFERCHAIN IN POOL. 
*                  THE COUNTER OF THE ADDED BUFFERS 
*                  IS SET TO 1. 
*                  PASSED PARAMETERS: 
*        <BUFF1> = TOTAL NUMBER OF WANTED BUFFERS 
*        <BUFF2> = POOLINDEX TO THE  RESERVED BUFFER
*                  IN THE CHAIN AFTER WHICH THE NEW BUFFER(S) 
*                  WILL BE INSERTED.
*                  RETURNED PARAMETERS: 
*        <BUFF1> = POOLINDEX TO THE ADDED BUFFER. 
*                  IF NO BUFFERS = 0
*        <BUFF2> = POOLINDEX TO THE FIRST RESERVED BUFFER 
*                  IN THE CHAIN 
* 
************************************************************
 EJECT
************************************************************
* 
*        <FC> = 4  SET BUFFERS
*                  THE NAME AND THE TYPE
*                  OF THE USER IS PUT INTO THE POOLELEMENT
*                  THE COUNTER OF THE PASSED BUFFERCHAIN
*                  WILL NOT BE INCREASED .
*                  PASSED PARAMETERS: 
*        <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER 
*                  IN THE CHAIN 
*        <KEY> =   NAME. THE NAME IS STRG7 VARIABEL CONSISTING
*                        OF A STRG1 TYPE AND STRG6 NAME.
*                  RETURNED PARAMETERS: NONE
* 
************************************************************
 EJECT
************************************************************
* 
*        <FC> = 5  SEARCH BUFFER
*                  THE BUFFERPOOL IS SEARCHED FOR A POOL- 
*                  ELEMENT OF THE SAME NAME AND TYPE. 
*                  THE COUNTER OF THE PASSED BUFFERCHAIN
*                  IS INCREASED BY 1. 
*                  IF THE SEARCHED BUFFER IS FOUND LOCKED 
*                  THE COUNTER WILL NOT BE INCREASED
*                  PASSED PARAMETERS: 
*        <BUFF1>,<BUFF2> = USED FOR RETURNVALUES
*        <KEY> =   NAME. THE NAME IS STRG7 VARIABEL CONSISTING
*                        OF A STRG1 TYPE AND STRG6 NAME.
*                  RETURNED PARAMETERS: 
*        <BUFF1> = POOLINDEX TO THE BUFFER THAT MATCHED THE 
*                  TYPE AND NAME. IF NOT FOUND = 0
*        <BUFF2> = RETURNCODE. 1 = FOUND FREE 
*                              2 = FOUND LOCKED 
*                              0 = NOT FOUND
* 
************************************************************
 EJECT
************************************************************
* 
*        <FC> = 6  RELEASE BUFFER 
*                  THE COUNTER OF USERS IS DECREASED BY 1.
*                  IF THE COUNTER AFTERWARDS IS 0, THE
*                  BUFFER IS PUT ON LRUQUE IF IT WAS FREE.
*                  IF IT WAS LOCKED IT BECOMES FREE 
*                  IMMEDIATLY AND IS NOT PUT ON THE 
*                  LRUQUE AT ALL. 
*                  PASSED PARAMETERS: 
*        <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER 
*                  IN THE CHAIN 
*                  RETURNED PARAMETERS: 
*        <BUFF1> = SET TO 0 
* 
************************************************************
 EJECT
************************************************************
* 
*        <FC> = 7  SCAN BUFFER
*                  THE BUFFERPOOL IS SCANNED FOR A POOL-
*                  ELEMENT OF THE SAME NAME AND TYPE. 
*                  THE COUNTER OF THE PASSED BUFFERCHAIN
*                  WILL NOT BE INCREASED .
*                  PASSED PARAMETERS: 
*        <BUFF1>,<BUFF2> = USED FOR RETURNVALUES
*        <KEY> =   NAME. THE NAME IS STRG7 VARIABEL CONSISTING
*                        OF A STRG1 TYPE AND STRG6 NAME.
*                  RETURNED PARAMETERS: 
*        <BUFF1> = POOLINDEX TO THE BUFFER THAT MATCHED THE 
*                  TYPE AND NAME. IF NOT FOUND = 0
*        <BUFF2> = RETURNCODE. 1 = FOUND FREE 
*                              2 = FOUND LOCKED 
*                              0 = NOT FOUND
* 
************************************************************
 EJECT
************************************************************
* 
*        <FC> = 8   LOCK BUFFERS
*                  THE RETURNED BUFFERS ARE LOCKED AND
*                  RESERVED FOR USE ONLY BY THIS TASK ONLY
*                  IF THE COUNTER OF THE PASSED BUFFERCHAIN 
*                  IS = 1.
*                  THE COUNTER OF THE PASSED BUFFERCHAIN
*                  WILL NOT BE INCREASED .
*                  PASSED PARAMETERS: 
*        <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER 
*                  IN THE CHAIN 
* 
************************************************************
 EJECT
************************************************************
* 
*        <FC> = 9  SCAN BUFFER
*                  THE BUFFERPOOL IS SCANNED FOR A POOL-
*                  ELEMENTCONSISTING OF.
*                  THE COUNTER OF THE PASSED BUFFERCHAIN
*                  WILL NOT BE INCREASED .
*                  PASSED PARAMETERS: 
*        <BUFF1>,<BUFF2> = USED FOR RETURNVALUES
*        <KEY> =   NAME. THE NAME IS STRG7 VARIABEL CONSISTING
*                        OF A STRG1 TYPE AND STRG6 NAME.
*                  RETURNED PARAMETERS: 
*        <BUFF1> = POOLINDEX TO THE BUFFER THAT MATCHED THE 
*                  TYPE AND NAME. IF NOT FOUND = 0
*        <BUFF2> = RETURNCODE. 1 = FOUND FREE 
*                              2 = FOUND LOCKED 
*                              0 = NOT FOUND
* 
************************************************************
 EJECT
************************************************************
* 
*        <FC> = 10  SET BUFFERS 
*                  THE NAME OF THE BATCHDATARECORD
*                  OF THE USER IS PUT INTO THE POOLELEMENT
*                  THE COUNTER OF THE PASSED BUFFERCHAIN
*                  WILL NOT BE INCREASED .
*                  PASSED PARAMETERS: 
*        <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER 
*                  IN THE CHAIN 
*        <KEY> =   NAME. THE NAME IS STRG7 VARIABEL CONSISTING
*                        OF A STRG1 TYPE AND STRG6 NAME.
*                  RETURNED PARAMETERS: NONE
* 
************************************************************
* 
*        <FC> = 11  RELEASE BUFFER
*                   THE CHAINLINKS FOR THE BUFFERS
*                   ON DISK ARE CLEARED AND THE 
*                   BUFFERS MUST BE ENTERED AS NEW
*                   DISCSECTORS.
* 
*                  PASSED PARAMETERS: 
*        <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER 
*                  IN THE CHAIN 
* 
************************************************************
	PDIV 
	ENTRY	DEPOOL 
 EXT SETB 
 EXT TESTB
 EXT CLEARB 
	EXT	CMPIND 
 EXT GETIND 
	EJECT
DEPOOL	PROC	FC,BUFF1,BUFF2,KEY
 CLEAR POOL1
 IB FC		C 
		DEPO1		C
		DEPO1		C
		DEPO3		C
		DEPO4		C
		DEPO5		C
		DEPO6		C
		DEPO5		C
		DEPO8		C
		DEPO5		C
		DEPO4		C
		DEPO6	FC=11 
 EJECT
DEPO1 
 CBE BUFF2,W0,DEPO05 JUMP IF NO COSECUTIVE
			ARE REQUESTED
 SET POOL1
DEPO05
 MOVE BIN16,W0 COUNTER FOR CONSECUTIVES 
DEPO3 
 MOVE BIN15,W1 STARTINDEX IN POOL 
DEPO11
 MOVE STR64A,HEX00 DROP TEMPORARY RESERVED
DEPO12
 MOVE STR1A,RPOOL(BIN15) GET FILETYPE CODE
DEPO13
 CBE STR1A,=C'X',DEPO18 JUMP IF FREE BUFFER 
* 
* HANDLE OCCUPIED BUFFER
* 
DEPO14
 ADD BIN15,W1 INCREASE BUFFERINDEX
	CALL	CMPIND,BIN15,BPOOL(W1)
	BNOK	DEPO16	JUMP IF LAST BUFFER
DEPO15
 TBF POOL1,DEPO12 JUMP IF NOT CONSECUTIVE 
 ADD BUFF1,BIN16 ADJUST REQUESTED BUFFERS 
 MOVE BIN16,W0 SET NUMBER OF CONSECUTIVE=0
			REQUESTED
 B DEPO11 
DEPO16			LOOK IFTHERE ARE BUFFERS IN
 PERF DELRUF  LRUQUE THAT CAN BE MADE FREE
 BERR DEPON13 JUMP IF NO BUFFERS
 TBT POOL1,DEPO17 JUMP IF CONSEC REQ
 MOVE BIN15,W1 START FROM BEGINNING 
 B DEPO12 
DEPO17
 ADD BUFF1,BIN16 ADJUST REQUESTED BUFFERS 
 B DEPO05 
 EJECT
* 
* HANDLE FREE BUFFERS 
* 
DEPO18
 XCOPY STR1A,W0,W1,BIN15,W1 
 MOVE DEBINW3,W0
 MATCH STR64A,DEBINW3,W64,STR1A,DEBINW3,W1
 BOK DEPO14 
 TBF POOL1,DEPO19 JUMP IF NOT CONSECUTVE
 ADD BIN16,W1 REQUESTED 
 CBNE BUFF2,BIN16,DEPO19 JUMP IF NOT NUMBER OF
			REQUESTED CONSECUTVES REACHED
 CLEAR POOL1
DEPO19
 MOVE DEBINW3,W0 RESERV TEMPORARY 
 MATCH STR64A,DEBINW3,W64,HEX00,W0,W1 
 XCOPY STR64A,DEBINW3,W1,BIN15,W1 SAVE POOLINDEX
 SUB BUFF1,W1 DECREASE TOTAL REQUESTED
 BZ DEPO20 JUMP IF ENOUGH BUFFERS 
 ADD BIN15,W1 
 CALL CMPIND,BIN15,BPOOL(W1)
 BNOK DEPO16
 B DEPO12 CONTINUE
DEPO20
 MOVE BUFF1,BUFF2 
 PERF DEPORE,BUFF1,FC RESERV PERMANENT
 B DEPOOK 
 EJECT
DEPO4 
 MOVE DEBINW3,W0
 MOVE DEBINW4,W0
 XCOPY DEBINW3,W1,W1,RPOOL(BUFF1),W7 GET COUNTER
 CBNE DEBINW3,W1,DEP430 JUMP IF MORE THAN ONE USER
 XCOPY RPOOL(BUFF1),W1,W6,KEY,W1
 XCOPY DEBINW3,W1,W1,KEY,W0 
 CBNE FC,W10,DEPO41 JUMP IF NOT ACCUMULATORS
 XCOPY RPOOL(BUFF1),W11,W6,KEY,W7 
DEPO41
 XCOPY DEBINW4,W1,W1,RPOOL(BUFF1),W0
 CBE DEBINW4,W128,DEP420 LOCKED 
 CBNE DEBINW4,W0,DEP430 JUMP IF ALREADY FIXED 
DEP420
 ADD DEBINW3,DEBINW4
 XCOPY RPOOL(BUFF1),W0,W1,DEBINW3,W1
DEP430 MOVE STR1A,KEY 
 CBE STR1A,=C'F',DEP440 HANDLE FORMATS
 B DEPOOK 
DEP440			STORE THE RECORDLENGTH OF
 XCOPY RECLNTH,W0,W2,BPOOL(BUFF1),W4 THE DATARECORD 
 MOVE BIN15,W0 GET THE TOTAL NUMBER OF
 XCOPY BIN15,W1,W1,RPOOL(BUFF1),W17 FORMATRECORDS 
 MOVE BIN16,W0 GET THE NUMBER OF
 XCOPY BIN16,W1,W1,RPOOL(BUFF1),W18 DESCRIPTORRECORDS 
 MOVE DEBINW4,BUFF1 START OF CHAIN
 CBE BIN16,W0,DEP470 JUMP IF NO DESCRIPTOR
 SUB BIN15,BIN16 JUST FORMATRECORDS 
DEP450 MOVE DEBINW3,DEBINW4 
 XCOPY DEBINW4,W1,W1,RPOOL(DEBINW3),W8 GET LINK TO NEXT 
 TBT POOL1,DEP475 JUMP IF FORMATS 
DEP460 SUB BIN16,W1 
 BP DEP450
DEP470 SET POOL1 FORMATRECORD 
DEP475 ADD BIN16,W1 SET FLINK INDEX 
 MOVE FLIND(BIN16),DEBINW4
DEP480 SUB BIN15,W1 
 BNZ DEP450 JUMP IF MORE FORMATRECS.
 B DEPOOK 
 EJECT
DEPO5 
 MOVE BUFF2,W0
 MOVE DEBINW3,W1
 MOVE STR1A,KEY 
 CALL SETB,STR1A,W0 
DEPO51
 MOVE BIN15,W1
 MATCH RPOOL(DEBINW3),BIN15,W6,KEY,W1,W6
 BOK DEPO53 
DEPO52
 ADD DEBINW3,W1 
	CALL	CMPIND,DEBINW3,BPOOL(W1)
	BNOK	DEPON9	JUMP IF LAST INDEX 
	B	DEPO51 
DEPO53
 CBNE FC,W9,DEPO58 JUMP IF NOT ACCUMULATORS 
 MOVE BIN15,W11 
 MATCH RPOOL(DEBINW3),BIN15,W6,KEY,W7,W6
 BERR DEPO52
DEPO58
 MOVE BIN15,W0
 MATCH RPOOL(DEBINW3),BIN15,W1,KEY,W0,W1
 BERR DEPO54
 MOVE BUFF2,W1
 B DEPO55 
DEPO54
 MOVE BIN15,W0
 MATCH RPOOL(DEBINW3),BIN15,W1,STR1A,W0,W1
 BERR DEPO52
 MOVE BUFF2,W2
DEPO55
 CBNE STR1A,=X'D4',DEP565 
			JUMP IF NOT VALUESET 
 CBE ELMNO,W0,DEP565 JUMP IF NO 
			ELEMENT IS SEARCHED
 XCOPY BIN15,W1,W1,RPOOL(DEBINW3),W17 
 XCOPY BIN16,W1,W1,RPOOL(DEBINW3),W18 
 CBL ELMNO,BIN15,DEP560 
 CBNG ELMNO,BIN16,DEP565
DEP560
 MOVE BUFF2,W0
 B DEPO52 
DEP565
 MOVE BUFF1,DEBINW3 
 CBE BUFF2,W2,DEP570
 CBE FC,W5,DEPO59 JUMP IF SEARCH
DEP570
 B DEPOOK JUMP IF SCAN
DEPO59
 MOVE BIN15,DEBINW3 
 XCOPY DEBINW4,W1,W1,RPOOL(BIN15),W7 GET THE COUNTER
 TBT POOL1,DEPO56 JUMP IF START OF CHAIN
 SET POOL1 ALREADY HANDLED. 
 CBNE DEBINW4,W0,DEPO56 JUMP IF NOT = 0 
 XCOPY STR1A,W0,W1,BIN15,W1 
 CALL GETIND,LRUQUE,BIN16,DEBINW3 
 MOVE DEBINW3,W0
 MATCH LRUQUE,DEBINW3,BIN16,STR1A,W0,W1 LOOK FOR BUFFER 
 BNOK DEPO56
 DLETE LRUQUE,DEBINW3,W1 DELETE BUFFER
 SUB BIN16,W1 
 XCOPY LRUQUE,BIN16,W1,HEX00,W0 
DEPO56
 ADD DEBINW4,W1 
 XCOPY RPOOL(BIN15),W7,W1,DEBINW4,W1 STORE COUNTER
 XCOPY DEBINW3,W1,W1,RPOOL(BIN15),W8 GET LINK TO NEXT 
 CBE DEBINW3,W0,DEPOOK JUMP IF LAST BUFFER
 B DEPO59 
 EJECT
DEPO6 
 MOVE DEBINW4,W0
 MOVE BIN16,W0
 MOVE BIN15,BUFF1 GET START OF CHAIN
 CBE BUFF1,W0,DEP690
 CBE BUFF1,W1,DEPO6 MAKE AN IDLE-LOOP 
DEPO61
 CBNE FC,W11,DEP610 
 MOVE STR64A,HEX00
 B DEP660 
DEP610
 XCOPY DEBINW4,W1,W1,RPOOL(BIN15),W7 GET COUNTER
 SUB DEBINW4,W1 DECREASE COUNTER
 BG DEPO62
 MOVE STR1A,RPOOL(BIN15) GET TYPE 
 TBT POOL1,DEPO62 JUMP IF START OF CHAIN
 CBE STR1A,=C'F',DEP630 FORMAT
 CBE STR1A,=C'T',DEP630 VALUE-SET 
DEP620
 MOVE STR1A,=C'X' 
 COPY RPOOL(BIN15),W0,W1,STR1A,W0 
 B DEPO62 
DEP630
 CALL GETIND,LRUQUE,BIN16,DEBINW3 
 MOVE DEBINW3,W0
 MATCH LRUQUE,DEBINW3,BIN16,HEX00,W0,W1 LOOK FOR EMPTY PLACE
 BOK DEP640 
 CBE STR1A,=C'T',DEP620 VALUE-SET 
 MOVE STR1A,=C'X' 
 XCOPY BIN16,W1,W1,LRUQUE,W0
 COPY RPOOL(BIN16),W0,W1,STR1A,W0 
 DLETE LRUQUE,W0,W1 
 SUB DEBINW3,W1 
DEP640
 SET POOL1 ALREADY HANDLED. 
 XCOPY STR1A,W0,W1,BIN15,W1 
 INSRT LRUQUE,DEBINW3,W1,STR1A,W0 
DEPO62
 XCOPY RPOOL(BIN15),W7,W1,DEBINW4,W1 STORE COUNTER
DEP660
 XCOPY BIN16,W1,W1,RPOOL(BIN15),W8
 CBNE FC,W11,DEP680 
 COPY RPOOL(BIN15),W11,W4,STR64A,W0 
DEP680
 MOVE BIN15,BIN16 
 CBNE BIN15,W0,DEPO61 
 MOVE BUFF1,W0
DEP690
 B DEPOOK 
 EJECT
DEPO8 MOVE DEBINW4,W0 
 XCOPY DEBINW4,W1,W1,RPOOL(BUFF1),W7 GET COUNTER
 CBNE DEBINW4,W1,DEPON11 JUMP IF NOT ONE USER 
 XCOPY DEBINW4,W1,W1,RPOOL(BUFF1),W0
 CALL SETB,DEBINW4,W8 LOCK BUFFER 
 XCOPY RPOOL(BUFF1),W0,W1,DEBINW4,W1
 B DEPOOK 
 EJECT
* 
* BAD RESULT
* 
DEPON9 MOVE DEBINW4,W9
 B DEPONO 
DEPON11 MOVE DEBINW4,W11
	MOVE	STR6B,='FTJB'	FUNCTIONS 
	XCOPY	STR1A,W0,W1,KEY,W0	CHECK FUNC
	MOVE	BIN16,W0	POINTER:=0 
	MATCH	STR6B,BIN16,W4,STR1A,W0,W1 
	BNOK	DEPON20 
	MOVE	DEBINW4,W24 
	ADD	DEBINW4,BIN16
 B DEPON20
DEPON13 MOVE DEBINW4,W13
DEPONO
 MOVE BUFF1,W0
DEPON20 
 CMP W1,W2
 RET
* 
* BUFFERS FOUND 
* 
DEPOOK
 MOVE DEBINW4,W0
 CMP W1,W1
	RET
	PEND 
 EJECT
********************************************************* 
* THIS PROCEDURE FREE BUFFERELEMENTS IN THE LRUQUE. 
* THE CALLING SEQUENCE IS:
*        PERF  DELRUF 
* 
********************************************************* 
DELRUF PROC 
 MOVE DEBINW4,W0
 XCOPY DEBINW4,W1,W1,LRUQUE,W0 GET INDEX TO THE FIRST 
			BUFFER IN LRUQUE 
 CBNE DEBINW4,W0,DEL10 JUMP IF THERE ARE
			POOLINDEX IN LRUQUE
 CMP W1,W2
 RET
DEL10 
 MOVE DEBINW3,W0
 MOVE STR1A,=C'X' FREE-MARK 
DEL11 
 XCOPY RPOOL(DEBINW4),W0,W1,STR1A,W0
 XCOPY DEBINW3,W1,W1,RPOOL(DEBINW4),W8 GET LINK TO NEXT 
 CBE DEBINW3,W0,DEL12 JUMP IF LINK = 0
 XCOPY RPOOL(DEBINW4),W8,W1,W0,W1 SET LINK = 0
 MOVE DEBINW4,DEBINW3 CURRENT POOLINDEX 
 B DEL11
DEL12 
 DLETE LRUQUE,W0,W1 DELETE FREE BUFFERCHAIN 
 CALL GETIND,LRUQUE,DEBINW3,DEBINW4 
 SUB DEBINW3,W1 
 XCOPY LRUQUE,DEBINW3,W1,HEX00,W0 
 CMP W1,W1
 RET
 PEND 
 EJECT
****************************************************
* THIS PROCEDURE RESERV THE REQUESTED BUFFERS 
* PERMANENTLY WHEN ALL REQUESTED BUFFERS ARE FOUND
* THE CALLING SEQUENCE IS:
*        PERF  DEPORE,<WBIN>,<FC> 
* 
*             RETURNED PARAMETER: 
*        <WBIN> = POOLINDEX TO THE FIRST RESERVED 
*                 BUFFER IN RPOOL.
****************************************************
DEPORE PROC WBIN,FC 
 MOVE DEBINW3,W0
 MOVE DEBINW4,W0
 IB FC,DEO1,DEPO10,DEO3 
DEPO10
 MOVE STR1A,=X'80' BUFFER LOCKED
 B DEO1B
DEO1
 MOVE STR1A,HEX00 BUFFER WITHOUT LOCK 
DEO1B 
 MOVE WBIN,W0 
 XCOPY WBIN,W1,W1,STR64A,W0 GET FIRST BUFFER
 B DEO3B
DEO3
 MOVE STR1A,RPOOL(WBIN) 
 XCOPY BIN15,W1,W1,RPOOL(WBIN),W8 
 B DEO3C
DEO3B 
 MOVE RPOOL(WBIN),HEX00 
 XCOPY RPOOL(WBIN),W0,W1,STR1A,W0 LOCK/NOT LOCKED 
 XCOPY RPOOL(WBIN),W7,W1,W1,W1 SET COUNTER TO 1 
 ADD DEBINW3,W1 POINTER TO NEXT INDEX 
DEO3C 
 XCOPY DEBINW4,W1,W1,STR64A,DEBINW3 GET NEXT INDEX
 CBE DEBINW4,W0,DE04 JUMP IF NO MORE BUFFERS
 XCOPY RPOOL(WBIN),W8,W1,STR64A,DEBINW3 LINK TO NEXT
 MOVE WBIN,DEBINW4
 B DEO3B
DE04
 CBNE FC,W3,DEPO90 JUMP IF NOT CHAINING 
 CBE BIN15,W0,DEPO90
 XCOPY RPOOL(WBIN),W8,W1,BIN15,W1 
DEPO90
 XCOPY WBIN,W1,W1,STR64A,W0 RETURN FIRST BUFFERINDEX
 RET
 PEND 
	END
TRA /S
	EJECT
	END

HexDump

0x0000…0028 (0, 0, 400)  Head {h00=0x0024, h01=0x0050, text=» IDENT DEPOOL REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0040              Head {h00=0x0014, h01=0x0050, text=»   80-03-26/DALI«, t00=0x0000, t01=0x002c}
0x0040…0054              Head {h00=0x0010, h01=0x000c, text=» DDUM DEDDIV«, t00=0x0000, t01=0x0044}
0x0054…0098              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0000, t01=0x0058}
0x0098…00dc              Head {h00=0x0040, h01=0x003c, text=»* THIS PROCEDURE HANDLES POOLING FUNCTIONS. THE CALLING    *«, t00=0x0000, t01=0x009c}
0x00dc…0120              Head {h00=0x0040, h01=0x003c, text=»* SEQUENCE AND THE FORMAL PARAMETERS ARE DESCRIBED BELOW.  *«, t00=0x0000, t01=0x00e0}
0x0120…0164              Head {h00=0x0040, h01=0x003c, text=»*                                                          *«, t00=0x0000, t01=0x0124}
0x0164…01a8              Head {h00=0x0040, h01=0x0050, text=»*        PERF    DEPOOL,<FC>,<BUFF1>,<BUFF2>,<KEY>         *«, t00=0x0000, t01=0x0168}
0x01a8…01ec              Head {h00=0x0040, h01=0x003c, text=»*                                                          *«, t00=0x0001, t01=0x001c}
0x01ec…0230              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0001, t01=0x0060}
0x0230…023a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a4}
0x023a…0278              Head {h00=0x003a, h01=0x0050, text=»* FOLLOWING DATA ITEMS ARE USED BY THE DEPOOL ROUTINES«, t00=0x0001, t01=0x00ae}
0x0278…02aa              Head {h00=0x002e, h01=0x0050, text=»* AND ORIGINATE CONTENTS OF THEM ARE LOST.«, t00=0x0001, t01=0x00ec}
0x02aa…02b4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011e}
0x02b4…02e8              Head {h00=0x0030, h01=0x0050, text=»*        <BUFF1>  ONLY WHEN <FC> = 1,2,5,7,9«, t00=0x0001, t01=0x0128}
0x02e8…0318              Head {h00=0x002c, h01=0x0050, text=»*        <BUFF2>  ONLY WHEN <FC> = 5,7,9«, t00=0x0001, t01=0x015c}
0x0318…0330              Head {h00=0x0014, h01=0x0050, text=»*         BIN15 «, t00=0x0001, t01=0x018c}
0x0330…0348              Head {h00=0x0014, h01=0x0050, text=»*         BIN16 «, t00=0x0002, t01=0x0014}
0x0348…0362              Head {h00=0x0016, h01=0x0050, text=»*         DEBINW3 «, t00=0x0002, t01=0x002c}
0x0362…037c              Head {h00=0x0016, h01=0x0050, text=»*         DEBINW4 «, t00=0x0002, t01=0x0046}
0x037c…0394              Head {h00=0x0014, h01=0x0050, text=»*         POOL1 «, t00=0x0002, t01=0x0060}
0x0394…03ac              Head {h00=0x0014, h01=0x0050, text=»*         STR1A «, t00=0x0002, t01=0x0078}
0x03ac…03c4              Head {h00=0x0014, h01=0x0050, text=»*         STR64A«, t00=0x0002, t01=0x0090}
0x03c4…03ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a8}
0x03ce…0412              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0002, t01=0x00b2}
0x0412…0420              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00f6}
0x0420…0464              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0002, t01=0x0104}
0x0464…046e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0148}
0x046e…04a2              Head {h00=0x0030, h01=0x0050, text=»*        <FC> = 1  GET BUFFERS WITHOUT LOCK «, t00=0x0002, t01=0x0152}
0x04a2…04e2              Head {h00=0x003c, h01=0x003c, text=»*                  THE RETURNED BUFFERS ARE FREE FOR USE«, t00=0x0002, t01=0x0186}
0x04e2…0520              Head {h00=0x003a, h01=0x003d, text=»*                  BY ANY TASK FOR THE SAME PURPOSES. «, t00=0x0003, t01=0x0036}
0x0520…0560              Head {h00=0x003c, h01=0x0038, text=»*                  THE COUNTER OF THE PASSED BUFFERCHAIN«, t00=0x0003, t01=0x0074}
0x0560…0588              Head {h00=0x0024, h01=0x0050, text=»*                  IS SET TO 1. «, t00=0x0003, t01=0x00b4}
0x0588…05b6              Head {h00=0x002a, h01=0x003d, text=»*                  PASSED PARAMETERS: «, t00=0x0003, t01=0x00dc}
0x05b6…05f0              Head {h00=0x0036, h01=0x0050, text=»*        <BUFF1> = TOTAL NUMBER OF WANTED BUFFERS «, t00=0x0003, t01=0x010a}
0x05f0…0630              Head {h00=0x003c, h01=0x003e, text=»*        <BUFF2> = NUMBER OF WANTED CONSECUTIVE BUFFERS «, t00=0x0003, t01=0x0144}
0x0630…0660              Head {h00=0x002c, h01=0x0027, text=»*                  RETURNED PARAMETERS: «, t00=0x0003, t01=0x0184}
0x0660…06a2              Head {h00=0x003e, h01=0x0039, text=»*        <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER «, t00=0x0004, t01=0x0024}
0x06a2…06ce              Head {h00=0x0028, h01=0x0050, text=»*                  IF NO BUFFERS = 0«, t00=0x0004, t01=0x0066}
0x06ce…06d8              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x0092}
0x06d8…071c              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0004, t01=0x009c}
0x071c…0726              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x00e0}
0x0726…0756              Head {h00=0x002c, h01=0x0028, text=»*        <FC> = 2  GET BUFFERS WITH LOCK«, t00=0x0004, t01=0x00ea}
0x0756…0794              Head {h00=0x003a, h01=0x0036, text=»*                  THE RETURNED BUFFERS ARE LOCKED AND«, t00=0x0004, t01=0x011a}
0x0794…07d2              Head {h00=0x003a, h01=0x0035, text=»*                  RESERVED FOR USE ONLY BY THIS TASK «, t00=0x0004, t01=0x0158}
0x07d2…0812              Head {h00=0x003c, h01=0x0038, text=»*                  THE COUNTER OF THE PASSED BUFFERCHAIN«, t00=0x0005, t01=0x0008}
0x0812…083a              Head {h00=0x0024, h01=0x0050, text=»*                  IS SET TO 1. «, t00=0x0005, t01=0x0048}
0x083a…0868              Head {h00=0x002a, h01=0x003d, text=»*                  PASSED PARAMETERS: «, t00=0x0005, t01=0x0070}
0x0868…08a2              Head {h00=0x0036, h01=0x0050, text=»*        <BUFF1> = TOTAL NUMBER OF WANTED BUFFERS «, t00=0x0005, t01=0x009e}
0x08a2…08e2              Head {h00=0x003c, h01=0x003e, text=»*        <BUFF2> = NUMBER OF WANTED CONSECUTIVE BUFFERS «, t00=0x0005, t01=0x00d8}
0x08e2…0912              Head {h00=0x002c, h01=0x0027, text=»*                  RETURNED PARAMETERS: «, t00=0x0005, t01=0x0118}
0x0912…0954              Head {h00=0x003e, h01=0x0039, text=»*        <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER «, t00=0x0005, t01=0x0148}
0x0954…0980              Head {h00=0x0028, h01=0x0050, text=»*                  IF NO BUFFERS = 0«, t00=0x0005, t01=0x018a}
0x0980…098a              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x0026}
0x098a…09ce              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0006, t01=0x0030}
0x09ce…09dc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0074}
0x09dc…0a20              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0006, t01=0x0082}
0x0a20…0a2a              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x00c6}
0x0a2a…0a52              Head {h00=0x0024, h01=0x0020, text=»*        <FC> = 3  CHAIN BUFFERS«, t00=0x0006, t01=0x00d0}
0x0a52…0a90              Head {h00=0x003a, h01=0x0036, text=»*                  THE RETURNED BUFFER IS ADDED TO THE«, t00=0x0006, t01=0x00f8}
0x0a90…0ac0              Head {h00=0x002c, h01=0x0027, text=»*                  BUFFERCHAIN IN POOL. «, t00=0x0006, t01=0x0136}
0x0ac0…0afc              Head {h00=0x0038, h01=0x0050, text=»*                  THE COUNTER OF THE ADDED BUFFERS «, t00=0x0006, t01=0x0166}
0x0afc…0b24              Head {h00=0x0024, h01=0x0050, text=»*                  IS SET TO 1. «, t00=0x0007, t01=0x0012}
0x0b24…0b52              Head {h00=0x002a, h01=0x0033, text=»*                  PASSED PARAMETERS: «, t00=0x0007, t01=0x003a}
0x0b52…0b8c              Head {h00=0x0036, h01=0x0050, text=»*        <BUFF1> = TOTAL NUMBER OF WANTED BUFFERS «, t00=0x0007, t01=0x0068}
0x0b8c…0bc8              Head {h00=0x0038, h01=0x0050, text=»*        <BUFF2> = POOLINDEX TO THE  RESERVED BUFFER«, t00=0x0007, t01=0x00a2}
0x0bc8…0c0e              Head {h00=0x0042, h01=0x0050, text=»*                  IN THE CHAIN AFTER WHICH THE NEW BUFFER(S) «, t00=0x0007, t01=0x00de}
0x0c0e…0c3a              Head {h00=0x0028, h01=0x0050, text=»*                  WILL BE INSERTED.«, t00=0x0007, t01=0x0124}
0x0c3a…0c6a              Head {h00=0x002c, h01=0x0027, text=»*                  RETURNED PARAMETERS: «, t00=0x0007, t01=0x0150}
0x0c6a…0ca4              Head {h00=0x0036, h01=0x0031, text=»*        <BUFF1> = POOLINDEX TO THE ADDED BUFFER. «, t00=0x0007, t01=0x0180}
0x0ca4…0cd0              Head {h00=0x0028, h01=0x0050, text=»*                  IF NO BUFFERS = 0«, t00=0x0008, t01=0x002a}
0x0cd0…0d12              Head {h00=0x003e, h01=0x0050, text=»*        <BUFF2> = POOLINDEX TO THE FIRST RESERVED BUFFER «, t00=0x0008, t01=0x0056}
0x0d12…0d3a              Head {h00=0x0024, h01=0x001f, text=»*                  IN THE CHAIN «, t00=0x0008, t01=0x0098}
0x0d3a…0d44              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x00c0}
0x0d44…0d88              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0008, t01=0x00ca}
0x0d88…0d96              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x010e}
0x0d96…0dda              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0008, t01=0x011c}
0x0dda…0de4              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x0160}
0x0de4…0e0a              Head {h00=0x0022, h01=0x001e, text=»*        <FC> = 4  SET BUFFERS«, t00=0x0008, t01=0x016a}
0x0e0a…0e3a              Head {h00=0x002c, h01=0x0050, text=»*                  THE NAME AND THE TYPE«, t00=0x0008, t01=0x0190}
0x0e3a…0e7c              Head {h00=0x003e, h01=0x003a, text=»*                  OF THE USER IS PUT INTO THE POOLELEMENT«, t00=0x0009, t01=0x0030}
0x0e7c…0ebc              Head {h00=0x003c, h01=0x0038, text=»*                  THE COUNTER OF THE PASSED BUFFERCHAIN«, t00=0x0009, t01=0x0072}
0x0ebc…0eee              Head {h00=0x002e, h01=0x0050, text=»*                  WILL NOT BE INCREASED .«, t00=0x0009, t01=0x00b2}
0x0eee…0f1c              Head {h00=0x002a, h01=0x0025, text=»*                  PASSED PARAMETERS: «, t00=0x0009, t01=0x00e4}
0x0f1c…0f5e              Head {h00=0x003e, h01=0x0039, text=»*        <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER «, t00=0x0009, t01=0x0112}
0x0f5e…0f86              Head {h00=0x0024, h01=0x001f, text=»*                  IN THE CHAIN «, t00=0x0009, t01=0x0154}
0x0f86…0fcc              Head {h00=0x0042, h01=0x003e, text=»*        <KEY> =   NAME. THE NAME IS STRG7 VARIABEL CONSISTING«, t00=0x0009, t01=0x017c}
0x0fcc…100c              Head {h00=0x003c, h01=0x0038, text=»*                        OF A STRG1 TYPE AND STRG6 NAME.«, t00=0x000a, t01=0x0032}
0x100c…1040              Head {h00=0x0030, h01=0x002c, text=»*                  RETURNED PARAMETERS: NONE«, t00=0x000a, t01=0x0072}
0x1040…104a              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x00a6}
0x104a…108e              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x000a, t01=0x00b0}
0x108e…109c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00f4}
0x109c…10e0              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x000a, t01=0x0102}
0x10e0…10ea              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x0146}
0x10ea…1112              Head {h00=0x0024, h01=0x0020, text=»*        <FC> = 5  SEARCH BUFFER«, t00=0x000a, t01=0x0150}
0x1112…1154              Head {h00=0x003e, h01=0x0039, text=»*                  THE BUFFERPOOL IS SEARCHED FOR A POOL- «, t00=0x000a, t01=0x0178}
0x1154…1192              Head {h00=0x003a, h01=0x0035, text=»*                  ELEMENT OF THE SAME NAME AND TYPE. «, t00=0x000b, t01=0x002a}
0x1192…11d2              Head {h00=0x003c, h01=0x0038, text=»*                  THE COUNTER OF THE PASSED BUFFERCHAIN«, t00=0x000b, t01=0x0068}
0x11d2…1200              Head {h00=0x002a, h01=0x0050, text=»*                  IS INCREASED BY 1. «, t00=0x000b, t01=0x00a8}
0x1200…1242              Head {h00=0x003e, h01=0x0050, text=»*                  IF THE SEARCHED BUFFER IS FOUND LOCKED «, t00=0x000b, t01=0x00d6}
0x1242…127e              Head {h00=0x0038, h01=0x0050, text=»*                  THE COUNTER WILL NOT BE INCREASED«, t00=0x000b, t01=0x0118}
0x127e…12ac              Head {h00=0x002a, h01=0x0025, text=»*                  PASSED PARAMETERS: «, t00=0x000b, t01=0x0154}
0x12ac…12e4              Head {h00=0x0034, h01=0x0030, text=»*        <BUFF1>,<BUFF2> = USED FOR RETURNVALUES«, t00=0x000b, t01=0x0182}
0x12e4…132a              Head {h00=0x0042, h01=0x003e, text=»*        <KEY> =   NAME. THE NAME IS STRG7 VARIABEL CONSISTING«, t00=0x000c, t01=0x002a}
0x132a…136a              Head {h00=0x003c, h01=0x0038, text=»*                        OF A STRG1 TYPE AND STRG6 NAME.«, t00=0x000c, t01=0x0070}
0x136a…139a              Head {h00=0x002c, h01=0x0027, text=»*                  RETURNED PARAMETERS: «, t00=0x000c, t01=0x00b0}
0x139a…13de              Head {h00=0x0040, h01=0x003b, text=»*        <BUFF1> = POOLINDEX TO THE BUFFER THAT MATCHED THE «, t00=0x000c, t01=0x00e0}
0x13de…1418              Head {h00=0x0036, h01=0x0050, text=»*                  TYPE AND NAME. IF NOT FOUND = 0«, t00=0x000c, t01=0x0124}
0x1418…144e              Head {h00=0x0032, h01=0x0050, text=»*        <BUFF2> = RETURNCODE. 1 = FOUND FREE «, t00=0x000c, t01=0x015e}
0x144e…1486 (13, 0, 400) Head {h00=0x0034, h01=0x0050, text=»*                              2 = FOUND LOCKED «, t00=0x000d, t01=0x0004}
0x1486…14ba              Head {h00=0x0030, h01=0x0050, text=»*                              0 = NOT FOUND«, t00=0x000d, t01=0x003c}
0x14ba…14c4              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x0070}
0x14c4…1508              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x000d, t01=0x007a}
0x1508…1516              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00be}
0x1516…155a              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x000d, t01=0x00cc}
0x155a…1564              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x0110}
0x1564…158e              Head {h00=0x0026, h01=0x0021, text=»*        <FC> = 6  RELEASE BUFFER «, t00=0x000d, t01=0x011a}
0x158e…15d0              Head {h00=0x003e, h01=0x003a, text=»*                  THE COUNTER OF USERS IS DECREASED BY 1.«, t00=0x000d, t01=0x0144}
0x15d0…160e              Head {h00=0x003a, h01=0x0036, text=»*                  IF THE COUNTER AFTERWARDS IS 0, THE«, t00=0x000d, t01=0x0186}
0x160e…1650              Head {h00=0x003e, h01=0x0050, text=»*                  BUFFER IS PUT ON LRUQUE IF IT WAS FREE.«, t00=0x000e, t01=0x0034}
0x1650…168c              Head {h00=0x0038, h01=0x0050, text=»*                  IF IT WAS LOCKED IT BECOMES FREE «, t00=0x000e, t01=0x0076}
0x168c…16c8              Head {h00=0x0038, h01=0x0050, text=»*                  IMMEDIATLY AND IS NOT PUT ON THE «, t00=0x000e, t01=0x00b2}
0x16c8…16f2              Head {h00=0x0026, h01=0x0050, text=»*                  LRUQUE AT ALL. «, t00=0x000e, t01=0x00ee}
0x16f2…1720              Head {h00=0x002a, h01=0x0025, text=»*                  PASSED PARAMETERS: «, t00=0x000e, t01=0x0118}
0x1720…1762              Head {h00=0x003e, h01=0x0039, text=»*        <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER «, t00=0x000e, t01=0x0146}
0x1762…178a              Head {h00=0x0024, h01=0x001f, text=»*                  IN THE CHAIN «, t00=0x000e, t01=0x0188}
0x178a…17ba              Head {h00=0x002c, h01=0x0027, text=»*                  RETURNED PARAMETERS: «, t00=0x000f, t01=0x0020}
0x17ba…17de              Head {h00=0x0020, h01=0x0050, text=»*        <BUFF1> = SET TO 0 «, t00=0x000f, t01=0x0050}
0x17de…17e8              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x0074}
0x17e8…182c              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x000f, t01=0x007e}
0x182c…183a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00c2}
0x183a…187e              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x000f, t01=0x00d0}
0x187e…1888              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x0114}
0x1888…18ae              Head {h00=0x0022, h01=0x0050, text=»*        <FC> = 7  SCAN BUFFER«, t00=0x000f, t01=0x011e}
0x18ae…18ee              Head {h00=0x003c, h01=0x0050, text=»*                  THE BUFFERPOOL IS SCANNED FOR A POOL-«, t00=0x000f, t01=0x0144}
0x18ee…192c              Head {h00=0x003a, h01=0x0035, text=»*                  ELEMENT OF THE SAME NAME AND TYPE. «, t00=0x000f, t01=0x0184}
0x192c…196c              Head {h00=0x003c, h01=0x0038, text=»*                  THE COUNTER OF THE PASSED BUFFERCHAIN«, t00=0x0010, t01=0x0032}
0x196c…199e              Head {h00=0x002e, h01=0x0050, text=»*                  WILL NOT BE INCREASED .«, t00=0x0010, t01=0x0072}
0x199e…19cc              Head {h00=0x002a, h01=0x0025, text=»*                  PASSED PARAMETERS: «, t00=0x0010, t01=0x00a4}
0x19cc…1a04              Head {h00=0x0034, h01=0x0030, text=»*        <BUFF1>,<BUFF2> = USED FOR RETURNVALUES«, t00=0x0010, t01=0x00d2}
0x1a04…1a4a              Head {h00=0x0042, h01=0x003e, text=»*        <KEY> =   NAME. THE NAME IS STRG7 VARIABEL CONSISTING«, t00=0x0010, t01=0x010a}
0x1a4a…1a8a              Head {h00=0x003c, h01=0x0038, text=»*                        OF A STRG1 TYPE AND STRG6 NAME.«, t00=0x0010, t01=0x0150}
0x1a8a…1aba              Head {h00=0x002c, h01=0x0027, text=»*                  RETURNED PARAMETERS: «, t00=0x0010, t01=0x0190}
0x1aba…1afe              Head {h00=0x0040, h01=0x003b, text=»*        <BUFF1> = POOLINDEX TO THE BUFFER THAT MATCHED THE «, t00=0x0011, t01=0x0030}
0x1afe…1b38              Head {h00=0x0036, h01=0x0050, text=»*                  TYPE AND NAME. IF NOT FOUND = 0«, t00=0x0011, t01=0x0074}
0x1b38…1b6e              Head {h00=0x0032, h01=0x0050, text=»*        <BUFF2> = RETURNCODE. 1 = FOUND FREE «, t00=0x0011, t01=0x00ae}
0x1b6e…1ba6              Head {h00=0x0034, h01=0x0050, text=»*                              2 = FOUND LOCKED «, t00=0x0011, t01=0x00e4}
0x1ba6…1bda              Head {h00=0x0030, h01=0x0050, text=»*                              0 = NOT FOUND«, t00=0x0011, t01=0x011c}
0x1bda…1be4              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x0150}
0x1be4…1c28              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0011, t01=0x015a}
0x1c28…1c36              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x000e}
0x1c36…1c7a              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0012, t01=0x001c}
0x1c7a…1c84              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x0060}
0x1c84…1cac              Head {h00=0x0024, h01=0x0050, text=»*        <FC> = 8   LOCK BUFFERS«, t00=0x0012, t01=0x006a}
0x1cac…1cea              Head {h00=0x003a, h01=0x0036, text=»*                  THE RETURNED BUFFERS ARE LOCKED AND«, t00=0x0012, t01=0x0092}
0x1cea…1d2c              Head {h00=0x003e, h01=0x0050, text=»*                  RESERVED FOR USE ONLY BY THIS TASK ONLY«, t00=0x0012, t01=0x00d0}
0x1d2c…1d70              Head {h00=0x0040, h01=0x0050, text=»*                  IF THE COUNTER OF THE PASSED BUFFERCHAIN «, t00=0x0012, t01=0x0112}
0x1d70…1d92              Head {h00=0x001e, h01=0x0050, text=»*                  IS = 1.«, t00=0x0012, t01=0x0156}
0x1d92…1dd2              Head {h00=0x003c, h01=0x0038, text=»*                  THE COUNTER OF THE PASSED BUFFERCHAIN«, t00=0x0012, t01=0x0178}
0x1dd2…1e04              Head {h00=0x002e, h01=0x0050, text=»*                  WILL NOT BE INCREASED .«, t00=0x0013, t01=0x0028}
0x1e04…1e32              Head {h00=0x002a, h01=0x0025, text=»*                  PASSED PARAMETERS: «, t00=0x0013, t01=0x005a}
0x1e32…1e74              Head {h00=0x003e, h01=0x0039, text=»*        <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER «, t00=0x0013, t01=0x0088}
0x1e74…1e9c              Head {h00=0x0024, h01=0x001f, text=»*                  IN THE CHAIN «, t00=0x0013, t01=0x00ca}
0x1e9c…1ea6              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x00f2}
0x1ea6…1eea              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0013, t01=0x00fc}
0x1eea…1ef8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0140}
0x1ef8…1f3c              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0013, t01=0x014e}
0x1f3c…1f46 (20, 0, 400) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x0004}
0x1f46…1f6c              Head {h00=0x0022, h01=0x0050, text=»*        <FC> = 9  SCAN BUFFER«, t00=0x0014, t01=0x000e}
0x1f6c…1fac              Head {h00=0x003c, h01=0x0050, text=»*                  THE BUFFERPOOL IS SCANNED FOR A POOL-«, t00=0x0014, t01=0x0034}
0x1fac…1fdc              Head {h00=0x002c, h01=0x0050, text=»*                  ELEMENTCONSISTING OF.«, t00=0x0014, t01=0x0074}
0x1fdc…201c              Head {h00=0x003c, h01=0x0038, text=»*                  THE COUNTER OF THE PASSED BUFFERCHAIN«, t00=0x0014, t01=0x00a4}
0x201c…204e              Head {h00=0x002e, h01=0x0050, text=»*                  WILL NOT BE INCREASED .«, t00=0x0014, t01=0x00e4}
0x204e…207c              Head {h00=0x002a, h01=0x0025, text=»*                  PASSED PARAMETERS: «, t00=0x0014, t01=0x0116}
0x207c…20b4              Head {h00=0x0034, h01=0x0030, text=»*        <BUFF1>,<BUFF2> = USED FOR RETURNVALUES«, t00=0x0014, t01=0x0144}
0x20b4…20fa              Head {h00=0x0042, h01=0x003e, text=»*        <KEY> =   NAME. THE NAME IS STRG7 VARIABEL CONSISTING«, t00=0x0014, t01=0x017c}
0x20fa…213a              Head {h00=0x003c, h01=0x0038, text=»*                        OF A STRG1 TYPE AND STRG6 NAME.«, t00=0x0015, t01=0x0032}
0x213a…216a              Head {h00=0x002c, h01=0x0027, text=»*                  RETURNED PARAMETERS: «, t00=0x0015, t01=0x0072}
0x216a…21ae              Head {h00=0x0040, h01=0x003b, text=»*        <BUFF1> = POOLINDEX TO THE BUFFER THAT MATCHED THE «, t00=0x0015, t01=0x00a2}
0x21ae…21e8              Head {h00=0x0036, h01=0x0050, text=»*                  TYPE AND NAME. IF NOT FOUND = 0«, t00=0x0015, t01=0x00e6}
0x21e8…221e              Head {h00=0x0032, h01=0x0050, text=»*        <BUFF2> = RETURNCODE. 1 = FOUND FREE «, t00=0x0015, t01=0x0120}
0x221e…2256              Head {h00=0x0034, h01=0x0050, text=»*                              2 = FOUND LOCKED «, t00=0x0015, t01=0x0156}
0x2256…228a              Head {h00=0x0030, h01=0x0050, text=»*                              0 = NOT FOUND«, t00=0x0015, t01=0x018e}
0x228a…2294              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x0032}
0x2294…22d8              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0016, t01=0x003c}
0x22d8…22e6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0080}
0x22e6…232a              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0016, t01=0x008e}
0x232a…2334              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x00d2}
0x2334…235c              Head {h00=0x0024, h01=0x0050, text=»*        <FC> = 10  SET BUFFERS «, t00=0x0016, t01=0x00dc}
0x235c…2396              Head {h00=0x0036, h01=0x0050, text=»*                  THE NAME OF THE BATCHDATARECORD«, t00=0x0016, t01=0x0104}
0x2396…23d8              Head {h00=0x003e, h01=0x003a, text=»*                  OF THE USER IS PUT INTO THE POOLELEMENT«, t00=0x0016, t01=0x013e}
0x23d8…2418              Head {h00=0x003c, h01=0x0038, text=»*                  THE COUNTER OF THE PASSED BUFFERCHAIN«, t00=0x0016, t01=0x0180}
0x2418…244a              Head {h00=0x002e, h01=0x0050, text=»*                  WILL NOT BE INCREASED .«, t00=0x0017, t01=0x0030}
0x244a…2478              Head {h00=0x002a, h01=0x0025, text=»*                  PASSED PARAMETERS: «, t00=0x0017, t01=0x0062}
0x2478…24ba              Head {h00=0x003e, h01=0x0039, text=»*        <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER «, t00=0x0017, t01=0x0090}
0x24ba…24e2              Head {h00=0x0024, h01=0x001f, text=»*                  IN THE CHAIN «, t00=0x0017, t01=0x00d2}
0x24e2…2528              Head {h00=0x0042, h01=0x003e, text=»*        <KEY> =   NAME. THE NAME IS STRG7 VARIABEL CONSISTING«, t00=0x0017, t01=0x00fa}
0x2528…2568              Head {h00=0x003c, h01=0x0038, text=»*                        OF A STRG1 TYPE AND STRG6 NAME.«, t00=0x0017, t01=0x0140}
0x2568…259c              Head {h00=0x0030, h01=0x002c, text=»*                  RETURNED PARAMETERS: NONE«, t00=0x0017, t01=0x0180}
0x259c…25a6              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x0024}
0x25a6…25ea              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0018, t01=0x002e}
0x25ea…25f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0072}
0x25f4…261e              Head {h00=0x0026, h01=0x0050, text=»*        <FC> = 11  RELEASE BUFFER«, t00=0x0018, t01=0x007c}
0x261e…2658              Head {h00=0x0036, h01=0x0050, text=»*                   THE CHAINLINKS FOR THE BUFFERS«, t00=0x0018, t01=0x00a6}
0x2658…2690              Head {h00=0x0034, h01=0x0050, text=»*                   ON DISK ARE CLEARED AND THE «, t00=0x0018, t01=0x00e0}
0x2690…26ca              Head {h00=0x0036, h01=0x0050, text=»*                   BUFFERS MUST BE ENTERED AS NEW«, t00=0x0018, t01=0x0118}
0x26ca…26f2              Head {h00=0x0024, h01=0x0050, text=»*                   DISCSECTORS.«, t00=0x0018, t01=0x0152}
0x26f2…26fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x017a}
0x26fc…272a              Head {h00=0x002a, h01=0x0025, text=»*                  PASSED PARAMETERS: «, t00=0x0018, t01=0x0184}
0x272a…276c              Head {h00=0x003e, h01=0x0039, text=»*        <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER «, t00=0x0019, t01=0x0022}
0x276c…2794              Head {h00=0x0024, h01=0x001f, text=»*                  IN THE CHAIN «, t00=0x0019, t01=0x0064}
0x2794…279e              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x008c}
0x279e…27e2              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0019, t01=0x0096}
0x27e2…27f0              Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0019, t01=0x00da}
0x27f0…2806              Head {h00=0x0012, h01=0x000d, text=» ENTRY DEPOOL «, t00=0x0019, t01=0x00e8}
0x2806…2818              Head {h00=0x000e, h01=0x0050, text=» EXT SETB «, t00=0x0019, t01=0x00fe}
0x2818…282a              Head {h00=0x000e, h01=0x0050, text=» EXT TESTB«, t00=0x0019, t01=0x0110}
0x282a…283e              Head {h00=0x0010, h01=0x0050, text=» EXT CLEARB «, t00=0x0019, t01=0x0122}
0x283e…2852              Head {h00=0x0010, h01=0x0050, text=» EXT CMPIND «, t00=0x0019, t01=0x0136}
0x2852…2866              Head {h00=0x0010, h01=0x0050, text=» EXT GETIND «, t00=0x0019, t01=0x014a}
0x2866…2874              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x015e}
0x2874…289a              Head {h00=0x0022, h01=0x001e, text=»DEPOOL PROC FC,BUFF1,BUFF2,KEY«, t00=0x0019, t01=0x016c}
0x289a…28ae (26, 0, 400) Head {h00=0x0010, h01=0x0050, text=» CLEAR POOL1«, t00=0x001a, t01=0x0004}
0x28ae…28c0              Head {h00=0x000e, h01=0x0050, text=» IB FC  C «, t00=0x001a, t01=0x0018}
0x28c0…28d2              Head {h00=0x000e, h01=0x0050, text=»  DEPO1  C«, t00=0x001a, t01=0x002a}
0x28d2…28e4              Head {h00=0x000e, h01=0x0050, text=»  DEPO1  C«, t00=0x001a, t01=0x003c}
0x28e4…28f6              Head {h00=0x000e, h01=0x0050, text=»  DEPO3  C«, t00=0x001a, t01=0x004e}
0x28f6…2908              Head {h00=0x000e, h01=0x0050, text=»  DEPO4  C«, t00=0x001a, t01=0x0060}
0x2908…291a              Head {h00=0x000e, h01=0x0050, text=»  DEPO5  C«, t00=0x001a, t01=0x0072}
0x291a…292c              Head {h00=0x000e, h01=0x0050, text=»  DEPO6  C«, t00=0x001a, t01=0x0084}
0x292c…293e              Head {h00=0x000e, h01=0x0050, text=»  DEPO5  C«, t00=0x001a, t01=0x0096}
0x293e…2950              Head {h00=0x000e, h01=0x0050, text=»  DEPO8  C«, t00=0x001a, t01=0x00a8}
0x2950…2962              Head {h00=0x000e, h01=0x0050, text=»  DEPO5  C«, t00=0x001a, t01=0x00ba}
0x2962…2974              Head {h00=0x000e, h01=0x0050, text=»  DEPO4  C«, t00=0x001a, t01=0x00cc}
0x2974…298a              Head {h00=0x0012, h01=0x0050, text=»  DEPO6 FC=11 «, t00=0x001a, t01=0x00de}
0x298a…2998              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x00f4}
0x2998…29a6              Head {h00=0x000a, h01=0x0050, text=»DEPO1 «, t00=0x001a, t01=0x0102}
0x29a6…29d8              Head {h00=0x002e, h01=0x0050, text=» CBE BUFF2,W0,DEPO05 JUMP IF NO COSECUTIVE«, t00=0x001a, t01=0x0110}
0x29d8…29f0              Head {h00=0x0014, h01=0x0050, text=»   ARE REQUESTED«, t00=0x001a, t01=0x0142}
0x29f0…2a02              Head {h00=0x000e, h01=0x0050, text=» SET POOL1«, t00=0x001a, t01=0x015a}
0x2a02…2a10              Head {h00=0x000a, h01=0x0050, text=»DEPO05«, t00=0x001a, t01=0x016c}
0x2a10…2a40              Head {h00=0x002c, h01=0x0050, text=» MOVE BIN16,W0 COUNTER FOR CONSECUTIVES «, t00=0x001a, t01=0x017a}
0x2a40…2a4e              Head {h00=0x000a, h01=0x0050, text=»DEPO3 «, t00=0x001b, t01=0x001a}
0x2a4e…2a78              Head {h00=0x0026, h01=0x0050, text=» MOVE BIN15,W1 STARTINDEX IN POOL «, t00=0x001b, t01=0x0028}
0x2a78…2a86              Head {h00=0x000a, h01=0x0050, text=»DEPO11«, t00=0x001b, t01=0x0052}
0x2a86…2ab8              Head {h00=0x002e, h01=0x0050, text=» MOVE STR64A,HEX00 DROP TEMPORARY RESERVED«, t00=0x001b, t01=0x0060}
0x2ab8…2ac6              Head {h00=0x000a, h01=0x0050, text=»DEPO12«, t00=0x001b, t01=0x0092}
0x2ac6…2af8              Head {h00=0x002e, h01=0x0050, text=» MOVE STR1A,RPOOL(BIN15) GET FILETYPE CODE«, t00=0x001b, t01=0x00a0}
0x2af8…2b06              Head {h00=0x000a, h01=0x0050, text=»DEPO13«, t00=0x001b, t01=0x00d2}
0x2b06…2b3a              Head {h00=0x0030, h01=0x0050, text=» CBE STR1A,=C'X',DEPO18 JUMP IF FREE BUFFER «, t00=0x001b, t01=0x00e0}
0x2b3a…2b44              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0114}
0x2b44…2b64              Head {h00=0x001c, h01=0x0050, text=»* HANDLE OCCUPIED BUFFER«, t00=0x001b, t01=0x011e}
0x2b64…2b6e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x013e}
0x2b6e…2b7c              Head {h00=0x000a, h01=0x0050, text=»DEPO14«, t00=0x001b, t01=0x0148}
0x2b7c…2ba6              Head {h00=0x0026, h01=0x0050, text=» ADD BIN15,W1 INCREASE BUFFERINDEX«, t00=0x001b, t01=0x0156}
0x2ba6…2bca              Head {h00=0x0020, h01=0x0050, text=» CALL CMPIND,BIN15,BPOOL(W1)«, t00=0x001b, t01=0x0180}
0x2bca…2bf2              Head {h00=0x0024, h01=0x0050, text=» BNOK DEPO16 JUMP IF LAST BUFFER«, t00=0x001c, t01=0x0014}
0x2bf2…2c00              Head {h00=0x000a, h01=0x0050, text=»DEPO15«, t00=0x001c, t01=0x003c}
0x2c00…2c32              Head {h00=0x002e, h01=0x0050, text=» TBF POOL1,DEPO12 JUMP IF NOT CONSECUTIVE «, t00=0x001c, t01=0x004a}
0x2c32…2c64              Head {h00=0x002e, h01=0x0050, text=» ADD BUFF1,BIN16 ADJUST REQUESTED BUFFERS «, t00=0x001c, t01=0x007c}
0x2c64…2c96              Head {h00=0x002e, h01=0x0050, text=» MOVE BIN16,W0 SET NUMBER OF CONSECUTIVE=0«, t00=0x001c, t01=0x00ae}
0x2c96…2caa              Head {h00=0x0010, h01=0x0050, text=»   REQUESTED«, t00=0x001c, t01=0x00e0}
0x2caa…2cbc              Head {h00=0x000e, h01=0x0050, text=» B DEPO11 «, t00=0x001c, t01=0x00f4}
0x2cbc…2ce8              Head {h00=0x0028, h01=0x0050, text=»DEPO16   LOOK IFTHERE ARE BUFFERS IN«, t00=0x001c, t01=0x0106}
0x2ce8…2d1a              Head {h00=0x002e, h01=0x0050, text=» PERF DELRUF  LRUQUE THAT CAN BE MADE FREE«, t00=0x001c, t01=0x0132}
0x2d1a…2d42              Head {h00=0x0024, h01=0x0050, text=» BERR DEPON13 JUMP IF NO BUFFERS«, t00=0x001c, t01=0x0164}
0x2d42…2d6e              Head {h00=0x0028, h01=0x0050, text=» TBT POOL1,DEPO17 JUMP IF CONSEC REQ«, t00=0x001c, t01=0x018c}
0x2d6e…2d9a              Head {h00=0x0028, h01=0x0050, text=» MOVE BIN15,W1 START FROM BEGINNING «, t00=0x001d, t01=0x0028}
0x2d9a…2dac              Head {h00=0x000e, h01=0x0050, text=» B DEPO12 «, t00=0x001d, t01=0x0054}
0x2dac…2dba              Head {h00=0x000a, h01=0x0050, text=»DEPO17«, t00=0x001d, t01=0x0066}
0x2dba…2dec              Head {h00=0x002e, h01=0x0050, text=» ADD BUFF1,BIN16 ADJUST REQUESTED BUFFERS «, t00=0x001d, t01=0x0074}
0x2dec…2dfe              Head {h00=0x000e, h01=0x0050, text=» B DEPO05 «, t00=0x001d, t01=0x00a6}
0x2dfe…2e0c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00b8}
0x2e0c…2e16              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00c6}
0x2e16…2e34              Head {h00=0x001a, h01=0x0050, text=»* HANDLE FREE BUFFERS «, t00=0x001d, t01=0x00d0}
0x2e34…2e3e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ee}
0x2e3e…2e4c              Head {h00=0x000a, h01=0x0050, text=»DEPO18«, t00=0x001d, t01=0x00f8}
0x2e4c…2e70              Head {h00=0x0020, h01=0x0050, text=» XCOPY STR1A,W0,W1,BIN15,W1 «, t00=0x001d, t01=0x0106}
0x2e70…2e88              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W0«, t00=0x001d, t01=0x012a}
0x2e88…2eba              Head {h00=0x002e, h01=0x0050, text=» MATCH STR64A,DEBINW3,W64,STR1A,DEBINW3,W1«, t00=0x001d, t01=0x0142}
0x2eba…2ece              Head {h00=0x0010, h01=0x0050, text=» BOK DEPO14 «, t00=0x001d, t01=0x0174}
0x2ece…2efe              Head {h00=0x002c, h01=0x0050, text=» TBF POOL1,DEPO19 JUMP IF NOT CONSECUTVE«, t00=0x001d, t01=0x0188}
0x2efe…2f1e              Head {h00=0x001c, h01=0x0050, text=» ADD BIN16,W1 REQUESTED «, t00=0x001e, t01=0x0028}
0x2f1e…2f54              Head {h00=0x0032, h01=0x0050, text=» CBNE BUFF2,BIN16,DEPO19 JUMP IF NOT NUMBER OF«, t00=0x001e, t01=0x0048}
0x2f54…2f7c              Head {h00=0x0024, h01=0x0050, text=»   REQUESTED CONSECUTVES REACHED«, t00=0x001e, t01=0x007e}
0x2f7c…2f90              Head {h00=0x0010, h01=0x0050, text=» CLEAR POOL1«, t00=0x001e, t01=0x00a6}
0x2f90…2f9e              Head {h00=0x000a, h01=0x0050, text=»DEPO19«, t00=0x001e, t01=0x00ba}
0x2f9e…2fc8              Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW3,W0 RESERV TEMPORARY «, t00=0x001e, t01=0x00c8}
0x2fc8…2ff6              Head {h00=0x002a, h01=0x0050, text=» MATCH STR64A,DEBINW3,W64,HEX00,W0,W1 «, t00=0x001e, t01=0x00f2}
0x2ff6…302e              Head {h00=0x0034, h01=0x0050, text=» XCOPY STR64A,DEBINW3,W1,BIN15,W1 SAVE POOLINDEX«, t00=0x001e, t01=0x0120}
0x302e…305c              Head {h00=0x002a, h01=0x0050, text=» SUB BUFF1,W1 DECREASE TOTAL REQUESTED«, t00=0x001e, t01=0x0158}
0x305c…3086              Head {h00=0x0026, h01=0x0050, text=» BZ DEPO20 JUMP IF ENOUGH BUFFERS «, t00=0x001e, t01=0x0186}
0x3086…309c              Head {h00=0x0012, h01=0x0050, text=» ADD BIN15,W1 «, t00=0x001f, t01=0x0020}
0x309c…30c0              Head {h00=0x0020, h01=0x0050, text=» CALL CMPIND,BIN15,BPOOL(W1)«, t00=0x001f, t01=0x0036}
0x30c0…30d4              Head {h00=0x0010, h01=0x0050, text=» BNOK DEPO16«, t00=0x001f, t01=0x005a}
0x30d4…30ee              Head {h00=0x0016, h01=0x0050, text=» B DEPO12 CONTINUE«, t00=0x001f, t01=0x006e}
0x30ee…30fc              Head {h00=0x000a, h01=0x0050, text=»DEPO20«, t00=0x001f, t01=0x0088}
0x30fc…3116              Head {h00=0x0016, h01=0x0050, text=» MOVE BUFF1,BUFF2 «, t00=0x001f, t01=0x0096}
0x3116…3144              Head {h00=0x002a, h01=0x0050, text=» PERF DEPORE,BUFF1,FC RESERV PERMANENT«, t00=0x001f, t01=0x00b0}
0x3144…3156              Head {h00=0x000e, h01=0x0050, text=» B DEPOOK «, t00=0x001f, t01=0x00de}
0x3156…3164              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x00f0}
0x3164…3172              Head {h00=0x000a, h01=0x0050, text=»DEPO4 «, t00=0x001f, t01=0x00fe}
0x3172…318a              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W0«, t00=0x001f, t01=0x010c}
0x318a…31a2              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x001f, t01=0x0124}
0x31a2…31da              Head {h00=0x0034, h01=0x0050, text=» XCOPY DEBINW3,W1,W1,RPOOL(BUFF1),W7 GET COUNTER«, t00=0x001f, t01=0x013c}
0x31da…3214              Head {h00=0x0036, h01=0x0050, text=» CBNE DEBINW3,W1,DEP430 JUMP IF MORE THAN ONE USER«, t00=0x001f, t01=0x0174}
0x3214…323c              Head {h00=0x0024, h01=0x0050, text=» XCOPY RPOOL(BUFF1),W1,W6,KEY,W1«, t00=0x0020, t01=0x001e}
0x323c…3260              Head {h00=0x0020, h01=0x0050, text=» XCOPY DEBINW3,W1,W1,KEY,W0 «, t00=0x0020, t01=0x0046}
0x3260…3294              Head {h00=0x0030, h01=0x0050, text=» CBNE FC,W10,DEPO41 JUMP IF NOT ACCUMULATORS«, t00=0x0020, t01=0x006a}
0x3294…32be              Head {h00=0x0026, h01=0x0050, text=» XCOPY RPOOL(BUFF1),W11,W6,KEY,W7 «, t00=0x0020, t01=0x009e}
0x32be…32cc              Head {h00=0x000a, h01=0x0050, text=»DEPO41«, t00=0x0020, t01=0x00c8}
0x32cc…32f8              Head {h00=0x0028, h01=0x0050, text=» XCOPY DEBINW4,W1,W1,RPOOL(BUFF1),W0«, t00=0x0020, t01=0x00d6}
0x32f8…3320              Head {h00=0x0024, h01=0x0050, text=» CBE DEBINW4,W128,DEP420 LOCKED «, t00=0x0020, t01=0x0102}
0x3320…3356              Head {h00=0x0032, h01=0x0050, text=» CBNE DEBINW4,W0,DEP430 JUMP IF ALREADY FIXED «, t00=0x0020, t01=0x012a}
0x3356…3364              Head {h00=0x000a, h01=0x0050, text=»DEP420«, t00=0x0020, t01=0x0160}
0x3364…3380              Head {h00=0x0018, h01=0x0050, text=» ADD DEBINW3,DEBINW4«, t00=0x0020, t01=0x016e}
0x3380…33ac              Head {h00=0x0028, h01=0x0050, text=» XCOPY RPOOL(BUFF1),W0,W1,DEBINW3,W1«, t00=0x0020, t01=0x018a}
0x33ac…33ca              Head {h00=0x001a, h01=0x0050, text=»DEP430 MOVE STR1A,KEY «, t00=0x0021, t01=0x0026}
0x33ca…33f8              Head {h00=0x002a, h01=0x0050, text=» CBE STR1A,=C'F',DEP440 HANDLE FORMATS«, t00=0x0021, t01=0x0044}
0x33f8…340a              Head {h00=0x000e, h01=0x0050, text=» B DEPOOK «, t00=0x0021, t01=0x0072}
0x340a…3434              Head {h00=0x0026, h01=0x0050, text=»DEP440   STORE THE RECORDLENGTH OF«, t00=0x0021, t01=0x0084}
0x3434…3470              Head {h00=0x0038, h01=0x0050, text=» XCOPY RECLNTH,W0,W2,BPOOL(BUFF1),W4 THE DATARECORD «, t00=0x0021, t01=0x00ae}
0x3470…349e              Head {h00=0x002a, h01=0x0050, text=» MOVE BIN15,W0 GET THE TOTAL NUMBER OF«, t00=0x0021, t01=0x00ea}
0x349e…34d8              Head {h00=0x0036, h01=0x0050, text=» XCOPY BIN15,W1,W1,RPOOL(BUFF1),W17 FORMATRECORDS «, t00=0x0021, t01=0x0118}
0x34d8…3500              Head {h00=0x0024, h01=0x0050, text=» MOVE BIN16,W0 GET THE NUMBER OF«, t00=0x0021, t01=0x0152}
0x3500…353e              Head {h00=0x003a, h01=0x0050, text=» XCOPY BIN16,W1,W1,RPOOL(BUFF1),W18 DESCRIPTORRECORDS «, t00=0x0021, t01=0x017a}
0x353e…3568              Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW4,BUFF1 START OF CHAIN«, t00=0x0022, t01=0x0028}
0x3568…359a              Head {h00=0x002e, h01=0x0050, text=» CBE BIN16,W0,DEP470 JUMP IF NO DESCRIPTOR«, t00=0x0022, t01=0x0052}
0x359a…35c6              Head {h00=0x0028, h01=0x0050, text=» SUB BIN15,BIN16 JUST FORMATRECORDS «, t00=0x0022, t01=0x0084}
0x35c6…35ea              Head {h00=0x0020, h01=0x0050, text=»DEP450 MOVE DEBINW3,DEBINW4 «, t00=0x0022, t01=0x00b0}
0x35ea…362a              Head {h00=0x003c, h01=0x0050, text=» XCOPY DEBINW4,W1,W1,RPOOL(DEBINW3),W8 GET LINK TO NEXT «, t00=0x0022, t01=0x00d4}
0x362a…3654              Head {h00=0x0026, h01=0x0050, text=» TBT POOL1,DEP475 JUMP IF FORMATS «, t00=0x0022, t01=0x0114}
0x3654…3670              Head {h00=0x0018, h01=0x0050, text=»DEP460 SUB BIN16,W1 «, t00=0x0022, t01=0x013e}
0x3670…3682              Head {h00=0x000e, h01=0x0050, text=» BP DEP450«, t00=0x0022, t01=0x015a}
0x3682…36a8              Head {h00=0x0022, h01=0x0050, text=»DEP470 SET POOL1 FORMATRECORD «, t00=0x0022, t01=0x016c}
0x36a8…36d4 (35, 0, 398) Head {h00=0x0028, h01=0x0050, text=»DEP475 ADD BIN16,W1 SET FLINK INDEX «, t00=0x0023, t01=0x0004}
0x36d4…36f6              Head {h00=0x001e, h01=0x0050, text=» MOVE FLIND(BIN16),DEBINW4«, t00=0x0023, t01=0x0030}
0x36f6…3712              Head {h00=0x0018, h01=0x0050, text=»DEP480 SUB BIN15,W1 «, t00=0x0023, t01=0x0052}
0x3712…373e              Head {h00=0x0028, h01=0x0050, text=» BNZ DEP450 JUMP IF MORE FORMATRECS.«, t00=0x0023, t01=0x006e}
0x373e…3750              Head {h00=0x000e, h01=0x0050, text=» B DEPOOK «, t00=0x0023, t01=0x009a}
0x3750…375e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x00ac}
0x375e…376c              Head {h00=0x000a, h01=0x0050, text=»DEPO5 «, t00=0x0023, t01=0x00ba}
0x376c…3782              Head {h00=0x0012, h01=0x0050, text=» MOVE BUFF2,W0«, t00=0x0023, t01=0x00c8}
0x3782…379a              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x0023, t01=0x00de}
0x379a…37b2              Head {h00=0x0014, h01=0x0050, text=» MOVE STR1A,KEY «, t00=0x0023, t01=0x00f6}
0x37b2…37ce              Head {h00=0x0018, h01=0x0050, text=» CALL SETB,STR1A,W0 «, t00=0x0023, t01=0x010e}
0x37ce…37dc              Head {h00=0x000a, h01=0x0050, text=»DEPO51«, t00=0x0023, t01=0x012a}
0x37dc…37f2              Head {h00=0x0012, h01=0x0050, text=» MOVE BIN15,W1«, t00=0x0023, t01=0x0138}
0x37f2…3822              Head {h00=0x002c, h01=0x0050, text=» MATCH RPOOL(DEBINW3),BIN15,W6,KEY,W1,W6«, t00=0x0023, t01=0x014e}
0x3822…3836              Head {h00=0x0010, h01=0x0050, text=» BOK DEPO53 «, t00=0x0023, t01=0x017e}
0x3836…3844 (36, 0, 400) Head {h00=0x000a, h01=0x0050, text=»DEPO52«, t00=0x0024, t01=0x0004}
0x3844…385c              Head {h00=0x0014, h01=0x0050, text=» ADD DEBINW3,W1 «, t00=0x0024, t01=0x0012}
0x385c…3882              Head {h00=0x0022, h01=0x0050, text=» CALL CMPIND,DEBINW3,BPOOL(W1)«, t00=0x0024, t01=0x002a}
0x3882…38aa              Head {h00=0x0024, h01=0x0050, text=» BNOK DEPON9 JUMP IF LAST INDEX «, t00=0x0024, t01=0x0050}
0x38aa…38bc              Head {h00=0x000e, h01=0x0050, text=» B DEPO51 «, t00=0x0024, t01=0x0078}
0x38bc…38ca              Head {h00=0x000a, h01=0x0050, text=»DEPO53«, t00=0x0024, t01=0x008a}
0x38ca…38fe              Head {h00=0x0030, h01=0x0050, text=» CBNE FC,W9,DEPO58 JUMP IF NOT ACCUMULATORS «, t00=0x0024, t01=0x0098}
0x38fe…3916              Head {h00=0x0014, h01=0x0050, text=» MOVE BIN15,W11 «, t00=0x0024, t01=0x00cc}
0x3916…3946              Head {h00=0x002c, h01=0x0050, text=» MATCH RPOOL(DEBINW3),BIN15,W6,KEY,W7,W6«, t00=0x0024, t01=0x00e4}
0x3946…395a              Head {h00=0x0010, h01=0x0050, text=» BERR DEPO52«, t00=0x0024, t01=0x0114}
0x395a…3968              Head {h00=0x000a, h01=0x0050, text=»DEPO58«, t00=0x0024, t01=0x0128}
0x3968…397e              Head {h00=0x0012, h01=0x0050, text=» MOVE BIN15,W0«, t00=0x0024, t01=0x0136}
0x397e…39ae              Head {h00=0x002c, h01=0x0050, text=» MATCH RPOOL(DEBINW3),BIN15,W1,KEY,W0,W1«, t00=0x0024, t01=0x014c}
0x39ae…39c2              Head {h00=0x0010, h01=0x0050, text=» BERR DEPO54«, t00=0x0024, t01=0x017c}
0x39c2…39d8              Head {h00=0x0012, h01=0x0050, text=» MOVE BUFF2,W1«, t00=0x0024, t01=0x0190}
0x39d8…39ea              Head {h00=0x000e, h01=0x0050, text=» B DEPO55 «, t00=0x0025, t01=0x0016}
0x39ea…39f8              Head {h00=0x000a, h01=0x0050, text=»DEPO54«, t00=0x0025, t01=0x0028}
0x39f8…3a0e              Head {h00=0x0012, h01=0x0050, text=» MOVE BIN15,W0«, t00=0x0025, t01=0x0036}
0x3a0e…3a40              Head {h00=0x002e, h01=0x0050, text=» MATCH RPOOL(DEBINW3),BIN15,W1,STR1A,W0,W1«, t00=0x0025, t01=0x004c}
0x3a40…3a54              Head {h00=0x0010, h01=0x0050, text=» BERR DEPO52«, t00=0x0025, t01=0x007e}
0x3a54…3a6a              Head {h00=0x0012, h01=0x0050, text=» MOVE BUFF2,W2«, t00=0x0025, t01=0x0092}
0x3a6a…3a78              Head {h00=0x000a, h01=0x0050, text=»DEPO55«, t00=0x0025, t01=0x00a8}
0x3a78…3a9a              Head {h00=0x001e, h01=0x0050, text=» CBNE STR1A,=X'D4',DEP565 «, t00=0x0025, t01=0x00b6}
0x3a9a…3aba              Head {h00=0x001c, h01=0x0050, text=»   JUMP IF NOT VALUESET «, t00=0x0025, t01=0x00d8}
0x3aba…3ae2              Head {h00=0x0024, h01=0x0050, text=» CBE ELMNO,W0,DEP565 JUMP IF NO «, t00=0x0025, t01=0x00f8}
0x3ae2…3b00              Head {h00=0x001a, h01=0x0050, text=»   ELEMENT IS SEARCHED«, t00=0x0025, t01=0x0120}
0x3b00…3b2e              Head {h00=0x002a, h01=0x0050, text=» XCOPY BIN15,W1,W1,RPOOL(DEBINW3),W17 «, t00=0x0025, t01=0x013e}
0x3b2e…3b5c              Head {h00=0x002a, h01=0x0050, text=» XCOPY BIN16,W1,W1,RPOOL(DEBINW3),W18 «, t00=0x0025, t01=0x016c}
0x3b5c…3b7c              Head {h00=0x001c, h01=0x0050, text=» CBL ELMNO,BIN15,DEP560 «, t00=0x0026, t01=0x000a}
0x3b7c…3b9c              Head {h00=0x001c, h01=0x0050, text=» CBNG ELMNO,BIN16,DEP565«, t00=0x0026, t01=0x002a}
0x3b9c…3baa              Head {h00=0x000a, h01=0x0050, text=»DEP560«, t00=0x0026, t01=0x004a}
0x3baa…3bc0              Head {h00=0x0012, h01=0x0050, text=» MOVE BUFF2,W0«, t00=0x0026, t01=0x0058}
0x3bc0…3bd2              Head {h00=0x000e, h01=0x0050, text=» B DEPO52 «, t00=0x0026, t01=0x006e}
0x3bd2…3be0              Head {h00=0x000a, h01=0x0050, text=»DEP565«, t00=0x0026, t01=0x0080}
0x3be0…3bfc              Head {h00=0x0018, h01=0x0050, text=» MOVE BUFF1,DEBINW3 «, t00=0x0026, t01=0x008e}
0x3bfc…3c18              Head {h00=0x0018, h01=0x0050, text=» CBE BUFF2,W2,DEP570«, t00=0x0026, t01=0x00aa}
0x3c18…3c40              Head {h00=0x0024, h01=0x0050, text=» CBE FC,W5,DEPO59 JUMP IF SEARCH«, t00=0x0026, t01=0x00c6}
0x3c40…3c4e              Head {h00=0x000a, h01=0x0050, text=»DEP570«, t00=0x0026, t01=0x00ee}
0x3c4e…3c6c              Head {h00=0x001a, h01=0x0050, text=» B DEPOOK JUMP IF SCAN«, t00=0x0026, t01=0x00fc}
0x3c6c…3c7a              Head {h00=0x000a, h01=0x0050, text=»DEPO59«, t00=0x0026, t01=0x011a}
0x3c7a…3c96              Head {h00=0x0018, h01=0x0050, text=» MOVE BIN15,DEBINW3 «, t00=0x0026, t01=0x0128}
0x3c96…3cd2              Head {h00=0x0038, h01=0x0050, text=» XCOPY DEBINW4,W1,W1,RPOOL(BIN15),W7 GET THE COUNTER«, t00=0x0026, t01=0x0144}
0x3cd2…3d02              Head {h00=0x002c, h01=0x0050, text=» TBT POOL1,DEPO56 JUMP IF START OF CHAIN«, t00=0x0026, t01=0x0180}
0x3d02…3d26              Head {h00=0x0020, h01=0x0050, text=» SET POOL1 ALREADY HANDLED. «, t00=0x0027, t01=0x0020}
0x3d26…3d56              Head {h00=0x002c, h01=0x0050, text=» CBNE DEBINW4,W0,DEPO56 JUMP IF NOT = 0 «, t00=0x0027, t01=0x0044}
0x3d56…3d7a              Head {h00=0x0020, h01=0x0050, text=» XCOPY STR1A,W0,W1,BIN15,W1 «, t00=0x0027, t01=0x0074}
0x3d7a…3da4              Head {h00=0x0026, h01=0x0050, text=» CALL GETIND,LRUQUE,BIN16,DEBINW3 «, t00=0x0027, t01=0x0098}
0x3da4…3dbc              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W0«, t00=0x0027, t01=0x00c2}
0x3dbc…3dfc              Head {h00=0x003c, h01=0x0050, text=» MATCH LRUQUE,DEBINW3,BIN16,STR1A,W0,W1 LOOK FOR BUFFER «, t00=0x0027, t01=0x00da}
0x3dfc…3e10              Head {h00=0x0010, h01=0x0050, text=» BNOK DEPO56«, t00=0x0027, t01=0x011a}
0x3e10…3e3e              Head {h00=0x002a, h01=0x0050, text=» DLETE LRUQUE,DEBINW3,W1 DELETE BUFFER«, t00=0x0027, t01=0x012e}
0x3e3e…3e54              Head {h00=0x0012, h01=0x0050, text=» SUB BIN16,W1 «, t00=0x0027, t01=0x015c}
0x3e54…3e7c              Head {h00=0x0024, h01=0x0050, text=» XCOPY LRUQUE,BIN16,W1,HEX00,W0 «, t00=0x0027, t01=0x0172}
0x3e7c…3e8a              Head {h00=0x000a, h01=0x0050, text=»DEPO56«, t00=0x0028, t01=0x000a}
0x3e8a…3ea2              Head {h00=0x0014, h01=0x0050, text=» ADD DEBINW4,W1 «, t00=0x0028, t01=0x0018}
0x3ea2…3edc              Head {h00=0x0036, h01=0x0050, text=» XCOPY RPOOL(BIN15),W7,W1,DEBINW4,W1 STORE COUNTER«, t00=0x0028, t01=0x0030}
0x3edc…3f1a              Head {h00=0x003a, h01=0x0050, text=» XCOPY DEBINW3,W1,W1,RPOOL(BIN15),W8 GET LINK TO NEXT «, t00=0x0028, t01=0x006a}
0x3f1a…3f4c              Head {h00=0x002e, h01=0x0050, text=» CBE DEBINW3,W0,DEPOOK JUMP IF LAST BUFFER«, t00=0x0028, t01=0x00a8}
0x3f4c…3f5e              Head {h00=0x000e, h01=0x0050, text=» B DEPO59 «, t00=0x0028, t01=0x00da}
0x3f5e…3f6c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x00ec}
0x3f6c…3f7a              Head {h00=0x000a, h01=0x0050, text=»DEPO6 «, t00=0x0028, t01=0x00fa}
0x3f7a…3f92              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0028, t01=0x0108}
0x3f92…3fa8              Head {h00=0x0012, h01=0x0050, text=» MOVE BIN16,W0«, t00=0x0028, t01=0x0120}
0x3fa8…3fd4              Head {h00=0x0028, h01=0x0050, text=» MOVE BIN15,BUFF1 GET START OF CHAIN«, t00=0x0028, t01=0x0136}
0x3fd4…3ff0              Head {h00=0x0018, h01=0x0050, text=» CBE BUFF1,W0,DEP690«, t00=0x0028, t01=0x0162}
0x3ff0…401e              Head {h00=0x002a, h01=0x0050, text=» CBE BUFF1,W1,DEPO6 MAKE AN IDLE-LOOP «, t00=0x0028, t01=0x017e}
0x401e…402c              Head {h00=0x000a, h01=0x0050, text=»DEPO61«, t00=0x0029, t01=0x001c}
0x402c…4048              Head {h00=0x0018, h01=0x0050, text=» CBNE FC,W11,DEP610 «, t00=0x0029, t01=0x002a}
0x4048…4062              Head {h00=0x0016, h01=0x0050, text=» MOVE STR64A,HEX00«, t00=0x0029, t01=0x0046}
0x4062…4074              Head {h00=0x000e, h01=0x0050, text=» B DEP660 «, t00=0x0029, t01=0x0060}
0x4074…4082              Head {h00=0x000a, h01=0x0050, text=»DEP610«, t00=0x0029, t01=0x0072}
0x4082…40ba              Head {h00=0x0034, h01=0x0050, text=» XCOPY DEBINW4,W1,W1,RPOOL(BIN15),W7 GET COUNTER«, t00=0x0029, t01=0x0080}
0x40ba…40e2              Head {h00=0x0024, h01=0x0050, text=» SUB DEBINW4,W1 DECREASE COUNTER«, t00=0x0029, t01=0x00b8}
0x40e2…40f4              Head {h00=0x000e, h01=0x0050, text=» BG DEPO62«, t00=0x0029, t01=0x00e0}
0x40f4…411e              Head {h00=0x0026, h01=0x0050, text=» MOVE STR1A,RPOOL(BIN15) GET TYPE «, t00=0x0029, t01=0x00f2}
0x411e…414e              Head {h00=0x002c, h01=0x0050, text=» TBT POOL1,DEPO62 JUMP IF START OF CHAIN«, t00=0x0029, t01=0x011c}
0x414e…4174              Head {h00=0x0022, h01=0x0050, text=» CBE STR1A,=C'F',DEP630 FORMAT«, t00=0x0029, t01=0x014c}
0x4174…419e              Head {h00=0x0026, h01=0x0050, text=» CBE STR1A,=C'T',DEP630 VALUE-SET «, t00=0x0029, t01=0x0172}
0x419e…41ac              Head {h00=0x000a, h01=0x0050, text=»DEP620«, t00=0x002a, t01=0x000c}
0x41ac…41c6              Head {h00=0x0016, h01=0x0050, text=» MOVE STR1A,=C'X' «, t00=0x002a, t01=0x001a}
0x41c6…41f0              Head {h00=0x0026, h01=0x0050, text=» COPY RPOOL(BIN15),W0,W1,STR1A,W0 «, t00=0x002a, t01=0x0034}
0x41f0…4202              Head {h00=0x000e, h01=0x0050, text=» B DEPO62 «, t00=0x002a, t01=0x005e}
0x4202…4210              Head {h00=0x000a, h01=0x0050, text=»DEP630«, t00=0x002a, t01=0x0070}
0x4210…423a              Head {h00=0x0026, h01=0x0050, text=» CALL GETIND,LRUQUE,BIN16,DEBINW3 «, t00=0x002a, t01=0x007e}
0x423a…4252              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W0«, t00=0x002a, t01=0x00a8}
0x4252…4296              Head {h00=0x0040, h01=0x0050, text=» MATCH LRUQUE,DEBINW3,BIN16,HEX00,W0,W1 LOOK FOR EMPTY PLACE«, t00=0x002a, t01=0x00c0}
0x4296…42aa              Head {h00=0x0010, h01=0x0050, text=» BOK DEP640 «, t00=0x002a, t01=0x0104}
0x42aa…42d4              Head {h00=0x0026, h01=0x0050, text=» CBE STR1A,=C'T',DEP620 VALUE-SET «, t00=0x002a, t01=0x0118}
0x42d4…42ee              Head {h00=0x0016, h01=0x0050, text=» MOVE STR1A,=C'X' «, t00=0x002a, t01=0x0142}
0x42ee…4312              Head {h00=0x0020, h01=0x0050, text=» XCOPY BIN16,W1,W1,LRUQUE,W0«, t00=0x002a, t01=0x015c}
0x4312…433c              Head {h00=0x0026, h01=0x0050, text=» COPY RPOOL(BIN16),W0,W1,STR1A,W0 «, t00=0x002a, t01=0x0180}
0x433c…4358              Head {h00=0x0018, h01=0x0050, text=» DLETE LRUQUE,W0,W1 «, t00=0x002b, t01=0x001a}
0x4358…4370              Head {h00=0x0014, h01=0x0050, text=» SUB DEBINW3,W1 «, t00=0x002b, t01=0x0036}
0x4370…437e              Head {h00=0x000a, h01=0x0050, text=»DEP640«, t00=0x002b, t01=0x004e}
0x437e…43a2              Head {h00=0x0020, h01=0x0050, text=» SET POOL1 ALREADY HANDLED. «, t00=0x002b, t01=0x005c}
0x43a2…43c6              Head {h00=0x0020, h01=0x0050, text=» XCOPY STR1A,W0,W1,BIN15,W1 «, t00=0x002b, t01=0x0080}
0x43c6…43f0              Head {h00=0x0026, h01=0x0050, text=» INSRT LRUQUE,DEBINW3,W1,STR1A,W0 «, t00=0x002b, t01=0x00a4}
0x43f0…43fe              Head {h00=0x000a, h01=0x0050, text=»DEPO62«, t00=0x002b, t01=0x00ce}
0x43fe…4438              Head {h00=0x0036, h01=0x0050, text=» XCOPY RPOOL(BIN15),W7,W1,DEBINW4,W1 STORE COUNTER«, t00=0x002b, t01=0x00dc}
0x4438…4446              Head {h00=0x000a, h01=0x0050, text=»DEP660«, t00=0x002b, t01=0x0116}
0x4446…4470              Head {h00=0x0026, h01=0x0050, text=» XCOPY BIN16,W1,W1,RPOOL(BIN15),W8«, t00=0x002b, t01=0x0124}
0x4470…448c              Head {h00=0x0018, h01=0x0050, text=» CBNE FC,W11,DEP680 «, t00=0x002b, t01=0x014e}
0x448c…44b8              Head {h00=0x0028, h01=0x0050, text=» COPY RPOOL(BIN15),W11,W4,STR64A,W0 «, t00=0x002b, t01=0x016a}
0x44b8…44c6              Head {h00=0x000a, h01=0x0050, text=»DEP680«, t00=0x002c, t01=0x0008}
0x44c6…44e0              Head {h00=0x0016, h01=0x0050, text=» MOVE BIN15,BIN16 «, t00=0x002c, t01=0x0016}
0x44e0…44fe              Head {h00=0x001a, h01=0x0050, text=» CBNE BIN15,W0,DEPO61 «, t00=0x002c, t01=0x0030}
0x44fe…4514              Head {h00=0x0012, h01=0x0050, text=» MOVE BUFF1,W0«, t00=0x002c, t01=0x004e}
0x4514…4522              Head {h00=0x000a, h01=0x0050, text=»DEP690«, t00=0x002c, t01=0x0064}
0x4522…4534              Head {h00=0x000e, h01=0x0050, text=» B DEPOOK «, t00=0x002c, t01=0x0072}
0x4534…4542              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0084}
0x4542…4560              Head {h00=0x001a, h01=0x0050, text=»DEPO8 MOVE DEBINW4,W0 «, t00=0x002c, t01=0x0092}
0x4560…4598              Head {h00=0x0034, h01=0x0050, text=» XCOPY DEBINW4,W1,W1,RPOOL(BUFF1),W7 GET COUNTER«, t00=0x002c, t01=0x00b0}
0x4598…45ce              Head {h00=0x0032, h01=0x0050, text=» CBNE DEBINW4,W1,DEPON11 JUMP IF NOT ONE USER «, t00=0x002c, t01=0x00e8}
0x45ce…45fa              Head {h00=0x0028, h01=0x0050, text=» XCOPY DEBINW4,W1,W1,RPOOL(BUFF1),W0«, t00=0x002c, t01=0x011e}
0x45fa…4624              Head {h00=0x0026, h01=0x0050, text=» CALL SETB,DEBINW4,W8 LOCK BUFFER «, t00=0x002c, t01=0x014a}
0x4624…4650              Head {h00=0x0028, h01=0x0050, text=» XCOPY RPOOL(BUFF1),W0,W1,DEBINW4,W1«, t00=0x002c, t01=0x0174}
0x4650…4662              Head {h00=0x000e, h01=0x0050, text=» B DEPOOK «, t00=0x002d, t01=0x0010}
0x4662…4670              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x0022}
0x4670…467a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0030}
0x467a…468e              Head {h00=0x0010, h01=0x0050, text=»* BAD RESULT«, t00=0x002d, t01=0x003a}
0x468e…4698              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x004e}
0x4698…46b6              Head {h00=0x001a, h01=0x0050, text=»DEPON9 MOVE DEBINW4,W9«, t00=0x002d, t01=0x0058}
0x46b6…46c8              Head {h00=0x000e, h01=0x0050, text=» B DEPONO «, t00=0x002d, t01=0x0076}
0x46c8…46e8              Head {h00=0x001c, h01=0x0050, text=»DEPON11 MOVE DEBINW4,W11«, t00=0x002d, t01=0x0088}
0x46e8…470e              Head {h00=0x0022, h01=0x0050, text=» MOVE STR6B,='FTJB' FUNCTIONS «, t00=0x002d, t01=0x00a8}
0x470e…473a              Head {h00=0x0028, h01=0x0050, text=» XCOPY STR1A,W0,W1,KEY,W0 CHECK FUNC«, t00=0x002d, t01=0x00ce}
0x473a…475c              Head {h00=0x001e, h01=0x0050, text=» MOVE BIN16,W0 POINTER:=0 «, t00=0x002d, t01=0x00fa}
0x475c…4786              Head {h00=0x0026, h01=0x0050, text=» MATCH STR6B,BIN16,W4,STR1A,W0,W1 «, t00=0x002d, t01=0x011c}
0x4786…479c              Head {h00=0x0012, h01=0x0050, text=» BNOK DEPON20 «, t00=0x002d, t01=0x0146}
0x479c…47b6              Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,W24 «, t00=0x002d, t01=0x015c}
0x47b6…47d0              Head {h00=0x0016, h01=0x0050, text=» ADD DEBINW4,BIN16«, t00=0x002d, t01=0x0176}
0x47d0…47e2              Head {h00=0x000e, h01=0x0050, text=» B DEPON20«, t00=0x002d, t01=0x0190}
0x47e2…4802              Head {h00=0x001c, h01=0x0050, text=»DEPON13 MOVE DEBINW4,W13«, t00=0x002e, t01=0x0012}
0x4802…4810              Head {h00=0x000a, h01=0x0050, text=»DEPONO«, t00=0x002e, t01=0x0032}
0x4810…4826              Head {h00=0x0012, h01=0x0050, text=» MOVE BUFF1,W0«, t00=0x002e, t01=0x0040}
0x4826…4836              Head {h00=0x000c, h01=0x0050, text=»DEPON20 «, t00=0x002e, t01=0x0056}
0x4836…4848              Head {h00=0x000e, h01=0x0050, text=» CMP W1,W2«, t00=0x002e, t01=0x0066}
0x4848…4854              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002e, t01=0x0078}
0x4854…485e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0084}
0x485e…4876              Head {h00=0x0014, h01=0x0050, text=»* BUFFERS FOUND «, t00=0x002e, t01=0x008e}
0x4876…4880              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00a6}
0x4880…488e              Head {h00=0x000a, h01=0x0050, text=»DEPOOK«, t00=0x002e, t01=0x00b0}
0x488e…48a6              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x002e, t01=0x00be}
0x48a6…48b8              Head {h00=0x000e, h01=0x0050, text=» CMP W1,W1«, t00=0x002e, t01=0x00d6}
0x48b8…48c4              Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x002e, t01=0x00e8}
0x48c4…48d2              Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x002e, t01=0x00f4}
0x48d2…48e0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0102}
0x48e0…4922              Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x002e, t01=0x0110}
0x4922…495e              Head {h00=0x0038, h01=0x0050, text=»* THIS PROCEDURE FREE BUFFERELEMENTS IN THE LRUQUE. «, t00=0x002e, t01=0x0152}
0x495e…4980              Head {h00=0x001e, h01=0x0050, text=»* THE CALLING SEQUENCE IS:«, t00=0x002e, t01=0x018e}
0x4980…499e              Head {h00=0x001a, h01=0x0050, text=»*        PERF  DELRUF «, t00=0x002f, t01=0x0020}
0x499e…49a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x003e}
0x49a8…49ea              Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x002f, t01=0x0048}
0x49ea…49fe              Head {h00=0x0010, h01=0x0050, text=»DELRUF PROC «, t00=0x002f, t01=0x008a}
0x49fe…4a16              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x002f, t01=0x009e}
0x4a16…4a54              Head {h00=0x003a, h01=0x0050, text=» XCOPY DEBINW4,W1,W1,LRUQUE,W0 GET INDEX TO THE FIRST «, t00=0x002f, t01=0x00b6}
0x4a54…4a70              Head {h00=0x0018, h01=0x0050, text=»   BUFFER IN LRUQUE «, t00=0x002f, t01=0x00f4}
0x4a70…4aa0              Head {h00=0x002c, h01=0x0050, text=» CBNE DEBINW4,W0,DEL10 JUMP IF THERE ARE«, t00=0x002f, t01=0x0110}
0x4aa0…4abe              Head {h00=0x001a, h01=0x0050, text=»   POOLINDEX IN LRUQUE«, t00=0x002f, t01=0x0140}
0x4abe…4ad0              Head {h00=0x000e, h01=0x0050, text=» CMP W1,W2«, t00=0x002f, t01=0x015e}
0x4ad0…4adc              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002f, t01=0x0170}
0x4adc…4aea              Head {h00=0x000a, h01=0x0050, text=»DEL10 «, t00=0x002f, t01=0x017c}
0x4aea…4b02              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W0«, t00=0x002f, t01=0x018a}
0x4b02…4b26              Head {h00=0x0020, h01=0x0050, text=» MOVE STR1A,=C'X' FREE-MARK «, t00=0x0030, t01=0x0012}
0x4b26…4b34              Head {h00=0x000a, h01=0x0050, text=»DEL11 «, t00=0x0030, t01=0x0036}
0x4b34…4b60              Head {h00=0x0028, h01=0x0050, text=» XCOPY RPOOL(DEBINW4),W0,W1,STR1A,W0«, t00=0x0030, t01=0x0044}
0x4b60…4ba0              Head {h00=0x003c, h01=0x0050, text=» XCOPY DEBINW3,W1,W1,RPOOL(DEBINW4),W8 GET LINK TO NEXT «, t00=0x0030, t01=0x0070}
0x4ba0…4bce              Head {h00=0x002a, h01=0x0050, text=» CBE DEBINW3,W0,DEL12 JUMP IF LINK = 0«, t00=0x0030, t01=0x00b0}
0x4bce…4c04              Head {h00=0x0032, h01=0x0050, text=» XCOPY RPOOL(DEBINW4),W8,W1,W0,W1 SET LINK = 0«, t00=0x0030, t01=0x00de}
0x4c04…4c34              Head {h00=0x002c, h01=0x0050, text=» MOVE DEBINW4,DEBINW3 CURRENT POOLINDEX «, t00=0x0030, t01=0x0114}
0x4c34…4c44              Head {h00=0x000c, h01=0x0050, text=» B DEL11«, t00=0x0030, t01=0x0144}
0x4c44…4c52              Head {h00=0x000a, h01=0x0050, text=»DEL12 «, t00=0x0030, t01=0x0154}
0x4c52…4c86              Head {h00=0x0030, h01=0x0050, text=» DLETE LRUQUE,W0,W1 DELETE FREE BUFFERCHAIN «, t00=0x0030, t01=0x0162}
0x4c86…4cb2              Head {h00=0x0028, h01=0x0050, text=» CALL GETIND,LRUQUE,DEBINW3,DEBINW4 «, t00=0x0031, t01=0x0008}
0x4cb2…4cca              Head {h00=0x0014, h01=0x0050, text=» SUB DEBINW3,W1 «, t00=0x0031, t01=0x0034}
0x4cca…4cf4              Head {h00=0x0026, h01=0x0050, text=» XCOPY LRUQUE,DEBINW3,W1,HEX00,W0 «, t00=0x0031, t01=0x004c}
0x4cf4…4d06              Head {h00=0x000e, h01=0x0050, text=» CMP W1,W1«, t00=0x0031, t01=0x0076}
0x4d06…4d12              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0031, t01=0x0088}
0x4d12…4d20              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0031, t01=0x0094}
0x4d20…4d2e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x00a2}
0x4d2e…4d6a              Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0031, t01=0x00b0}
0x4d6a…4da0              Head {h00=0x0032, h01=0x0050, text=»* THIS PROCEDURE RESERV THE REQUESTED BUFFERS «, t00=0x0031, t01=0x00ec}
0x4da0…4dda              Head {h00=0x0036, h01=0x0050, text=»* PERMANENTLY WHEN ALL REQUESTED BUFFERS ARE FOUND«, t00=0x0031, t01=0x0122}
0x4dda…4dfc              Head {h00=0x001e, h01=0x0050, text=»* THE CALLING SEQUENCE IS:«, t00=0x0031, t01=0x015c}
0x4dfc…4e26              Head {h00=0x0026, h01=0x0050, text=»*        PERF  DEPORE,<WBIN>,<FC> «, t00=0x0031, t01=0x017e}
0x4e26…4e30              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0018}
0x4e30…4e5a              Head {h00=0x0026, h01=0x0050, text=»*             RETURNED PARAMETER: «, t00=0x0032, t01=0x0022}
0x4e5a…4e94              Head {h00=0x0036, h01=0x0050, text=»*        <WBIN> = POOLINDEX TO THE FIRST RESERVED «, t00=0x0032, t01=0x004c}
0x4e94…4ebe              Head {h00=0x0026, h01=0x0050, text=»*                 BUFFER IN RPOOL.«, t00=0x0032, t01=0x0086}
0x4ebe…4efa              Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0032, t01=0x00b0}
0x4efa…4f16              Head {h00=0x0018, h01=0x0050, text=»DEPORE PROC WBIN,FC «, t00=0x0032, t01=0x00ec}
0x4f16…4f2e              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W0«, t00=0x0032, t01=0x0108}
0x4f2e…4f46              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0032, t01=0x0120}
0x4f46…4f66              Head {h00=0x001c, h01=0x0050, text=» IB FC,DEO1,DEPO10,DEO3 «, t00=0x0032, t01=0x0138}
0x4f66…4f74              Head {h00=0x000a, h01=0x0050, text=»DEPO10«, t00=0x0032, t01=0x0158}
0x4f74…4f9c              Head {h00=0x0024, h01=0x0050, text=» MOVE STR1A,=X'80' BUFFER LOCKED«, t00=0x0032, t01=0x0166}
0x4f9c…4fac              Head {h00=0x000c, h01=0x0050, text=» B DEO1B«, t00=0x0032, t01=0x018e}
0x4fac…4fb8              Head {h00=0x0008, h01=0x0050, text=»DEO1«, t00=0x0033, t01=0x000e}
0x4fb8…4fe6              Head {h00=0x002a, h01=0x0050, text=» MOVE STR1A,HEX00 BUFFER WITHOUT LOCK «, t00=0x0033, t01=0x001a}
0x4fe6…4ff4              Head {h00=0x000a, h01=0x0050, text=»DEO1B «, t00=0x0033, t01=0x0048}
0x4ff4…500a              Head {h00=0x0012, h01=0x0050, text=» MOVE WBIN,W0 «, t00=0x0033, t01=0x0056}
0x500a…503e              Head {h00=0x0030, h01=0x0050, text=» XCOPY WBIN,W1,W1,STR64A,W0 GET FIRST BUFFER«, t00=0x0033, t01=0x006c}
0x503e…504e              Head {h00=0x000c, h01=0x0050, text=» B DEO3B«, t00=0x0033, t01=0x00a0}
0x504e…505a              Head {h00=0x0008, h01=0x0050, text=»DEO3«, t00=0x0033, t01=0x00b0}
0x505a…507a              Head {h00=0x001c, h01=0x0050, text=» MOVE STR1A,RPOOL(WBIN) «, t00=0x0033, t01=0x00bc}
0x507a…50a4              Head {h00=0x0026, h01=0x0050, text=» XCOPY BIN15,W1,W1,RPOOL(WBIN),W8 «, t00=0x0033, t01=0x00dc}
0x50a4…50b4              Head {h00=0x000c, h01=0x0050, text=» B DEO3C«, t00=0x0033, t01=0x0106}
0x50b4…50c2              Head {h00=0x000a, h01=0x0050, text=»DEO3B «, t00=0x0033, t01=0x0116}
0x50c2…50e2              Head {h00=0x001c, h01=0x0050, text=» MOVE RPOOL(WBIN),HEX00 «, t00=0x0033, t01=0x0124}
0x50e2…511c              Head {h00=0x0036, h01=0x0050, text=» XCOPY RPOOL(WBIN),W0,W1,STR1A,W0 LOCK/NOT LOCKED «, t00=0x0033, t01=0x0144}
0x511c…5154              Head {h00=0x0034, h01=0x0050, text=» XCOPY RPOOL(WBIN),W7,W1,W1,W1 SET COUNTER TO 1 «, t00=0x0033, t01=0x017e}
0x5154…5182              Head {h00=0x002a, h01=0x0050, text=» ADD DEBINW3,W1 POINTER TO NEXT INDEX «, t00=0x0034, t01=0x0026}
0x5182…5190              Head {h00=0x000a, h01=0x0050, text=»DEO3C «, t00=0x0034, t01=0x0054}
0x5190…51ca              Head {h00=0x0036, h01=0x0050, text=» XCOPY DEBINW4,W1,W1,STR64A,DEBINW3 GET NEXT INDEX«, t00=0x0034, t01=0x0062}
0x51ca…51fe              Head {h00=0x0030, h01=0x0050, text=» CBE DEBINW4,W0,DE04 JUMP IF NO MORE BUFFERS«, t00=0x0034, t01=0x009c}
0x51fe…523a              Head {h00=0x0038, h01=0x0050, text=» XCOPY RPOOL(WBIN),W8,W1,STR64A,DEBINW3 LINK TO NEXT«, t00=0x0034, t01=0x00d0}
0x523a…5254              Head {h00=0x0016, h01=0x0050, text=» MOVE WBIN,DEBINW4«, t00=0x0034, t01=0x010c}
0x5254…5264              Head {h00=0x000c, h01=0x0050, text=» B DEO3B«, t00=0x0034, t01=0x0126}
0x5264…5270              Head {h00=0x0008, h01=0x0050, text=»DE04«, t00=0x0034, t01=0x0136}
0x5270…52a0              Head {h00=0x002c, h01=0x0050, text=» CBNE FC,W3,DEPO90 JUMP IF NOT CHAINING «, t00=0x0034, t01=0x0142}
0x52a0…52bc              Head {h00=0x0018, h01=0x0050, text=» CBE BIN15,W0,DEPO90«, t00=0x0034, t01=0x0172}
0x52bc…52e6              Head {h00=0x0026, h01=0x0050, text=» XCOPY RPOOL(WBIN),W8,W1,BIN15,W1 «, t00=0x0034, t01=0x018e}
0x52e6…52f4              Head {h00=0x000a, h01=0x0050, text=»DEPO90«, t00=0x0035, t01=0x0028}
0x52f4…5330              Head {h00=0x0038, h01=0x0050, text=» XCOPY WBIN,W1,W1,STR64A,W0 RETURN FIRST BUFFERINDEX«, t00=0x0035, t01=0x0036}
0x5330…533c              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0035, t01=0x0072}
0x533c…534a              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0035, t01=0x007e}
0x534a…5356              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0035, t01=0x008c}
0x5356…5364              Head {h00=0x000a, h01=0x0050, text=»TRA /S«, t00=0x0035, t01=0x0098}
0x5364…5372              Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0035, t01=0x00a6}
0x5372…537e              Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0035, t01=0x00b4}
0x537e…5382              Head {h00=0x4004, h01=0x0000}
0x5382…5386              00 35 00 c0                                                                                                                                                                                                                                       ┆ 5  ┆
0x5386…538e (54, 1, 8)   20 04 00 00 00 36 00 04                                                                                                                                                                                                                           ┆     6  ┆
0x538e…53c8 (55, 2, 58)  06 fb 00 00 06 ee 06 b5 00 e6 01 8c 00 10 00 0c 03 05 00 00 06 ff 00 00 06 ee 06 b5 00 e7 00 10 00 0e 00 0a 07 04 00 00 00 00 07 02 00 00 00 e7 00 24 40 04 00 00 00 e7 00 36                                                                     ┆                                                 $@      6┆
0x53c8…53dc (56, 2, 20)  00 08 00 48 4e 4f 44 20 00 e8 00 04 40 04 00 00 00 e8 00 10                                                                                                                                                                                       ┆   HNOD     @       ┆
0x53dc…542c (57, 0, 400) 00 1a 00 18 20 20 20 20 20 20 20 20 20 49 44 45 4e 54 20 50 3a 53 30 32 34 20 00 e9 00 04 00 1a 00 16 03 0a 00 00 00 01 00 00 06 f6 04 0b 04 1a 04 3c 06 ea 06 ee 06 f2 00 e9 00 22 00 2a 00 26 03 12 00 00 00 0f 00 00 40 68 30 45 1b 21 8a 8b   ┆             IDENT P:S024                        <         " * &        @h0E !  ┆
0x542c…547c              8c 50 13 20 91 23 04 28 91 2b 02 3f 01 30 39 95 3c 02 41 68 57 cf 00 e9 00 40 00 2a 00 26 03 12 00 00 00 2d 00 00 00 88 25 68 5a 88 28 1b 8a 8b 21 3c 02 20 88 25 9d 04 88 28 52 f8 02 8b 21 00 87 20 6a 87 00 e9 00 6e 00 2a 00 26 03 12 00 00   ┆ P   # ( + ? 09 < AhW    @ * &     -    %hZ (   !<   %   (R   !   j    n * &    ┆
0x547c…54cc              00 4b 00 00 21 21 1b 8a 8b 02 8b 21 00 97 87 28 88 24 81 00 87 32 68 5a 87 21 1b 8a 8b 21 54 0c 02 8b 00 e9 00 9c 00 2a 00 26 03 12 00 00 00 69 00 00 21 6a e0 21 21 1b 8a 8b 57 1c 80 01 25 19 32 91 04 03 03 03 04 04 90 21 58 10 62 95 90 21   ┆ K  !!     !   ( $   2hZ !   !T        * &     i  !j !!   W   % 2        !X b  !┆
0x54cc…551c              00 e9 00 ca 00 2a 00 26 03 12 00 00 00 87 00 00 55 20 00 98 95 00 e0 98 28 e0 20 0e 20 e8 20 05 00 e0 e8 57 05 00 93 29 57 9d 00 e6 97 01 00 e9 00 f8 00 2a 00 26 03 12 00 00 00 a5 00 00 99 34 66 e6 20 22 64 e6 22 21 55 20 64 e6 20 21 99 20   ┆     * &        U       (          W   )W          * &         4f  "d "!U d  !  ┆
0x551c…556c              80 02 38 54 82 00 e8 e0 30 26 1b e1 00 e9 01 26 00 2a 00 26 03 12 00 00 00 c3 00 00 28 2b 30 27 1b e1 20 2b 00 89 20 6a 89 21 21 19 e1 31 04 e0 89 02 e0 21 80 03 88 80 04 26 00 e9 01 54 00 2a 00 26 03 12 00 00 00 e1 00 00 e1 89 9d 30 30 00   ┆  8T    0&     & * &        (+0'   +   j !!  1     !     &   T * &           00 ┆
0x556c…55bc (58, 0, 400) 54 13 30 2a 01 93 04 93 90 56 0a 09 93 16 66 95 20 93 04 90 93 30 22 0c 00 e9 01 82 00 2a 00 26 03 12 00 00 00 ff 00 00 54 28 30 30 00 50 12 30 2a 01 93 00 92 20 68 95 92 93 0c 20 93 50 17 57 09 00 9f 21 95 20 00 ea 00 20 00 2a 00 26 03 12   ┆T 0*     V    f      0"      * &        T(00 P 0*     h      P W   !       * &  ┆
0x55bc…560c              00 00 01 1d 00 00 9f 21 0c 0c 30 2b 92 30 09 09 92 92 30 36 01 95 00 91 23 40 68 54 02 41 8c 06 21 21 34 00 00 ea 00 4e 00 2a 00 26 03 12 00 00 01 3b 00 00 00 93 20 00 91 20 00 90 20 06 21 20 34 00 00 89 21 00 95 55 00 86 20 36 00 06 5f 6c   ┆       !  0+ 0    06    #@hT A  !!4    N * &     ;            ! 4   !  U   6  _l┆
0x560c…565c              3b 0d 00 ea 00 7c 00 2a 00 26 03 12 00 00 01 59 00 00 32 2a 30 21 87 d3 21 54 92 00 95 d3 87 57 6f 30 07 1b e1 22 54 10 6a 86 21 21 1b e1 21 62 00 ea 00 aa 00 2a 00 26 03 12 00 00 01 77 00 00 95 20 86 b0 e0 20 57 70 00 95 b0 e0 57 6a 00 97   ┆;    | * &     Y  2*0!  !T     Wo0   "T j !!  !b     * &     w        Wp    Wj  ┆
0x565c…56ac              e8 00 95 97 57 62 00 95 53 66 95 20 21 57 00 ea 00 d8 00 2a 00 26 03 12 00 00 01 95 00 00 41 48 7b 05 00 95 0c 57 3c 30 41 86 0b 00 0a 87 20 86 22 09 00 86 20 6d 95 86 1d 57 20 00 00 ea 01 06 00 2a 00 26 03 12 00 00 01 b3 00 00 95 0b 00 0a   ┆    Wb  Sf  !W     * &        AH{    W<0A       "    m   W       * &            ┆
0x56ac…56fc              87 57 20 30 21 87 17 21 54 33 6d 95 86 18 57 0b 30 21 87 d5 21 54 26 6d 95 86 00 ea 01 34 00 2a 00 26 03 12 00 00 01 d1 00 00 17 00 90 86 57 18 00 89 20 00 90 20 01 86 30 68 95 90 86 55 20 21 04 90 89 56 03 00 90 20 00 ea 01 62 00 2a 00 26   ┆ W 0!  !T3m   W 0!  !T&m     4 * &            W         0h   U !   V       b * &┆
0x56fc…574c (59, 0, 400) 03 12 00 00 01 ef 00 00 06 21 21 34 01 06 21 22 34 01 00 8e 00 00 93 38 30 09 00 93 93 31 31 92 2f 00 00 90 20 36 00 ea 01 90 00 2a 00 26 03 12 00 00 02 0d 00 00 00 0f 02 27 27 27 1d 27 96 98 79 96 27 27 27 96 22 57 25 00 90 c2 2c 22 90 20   ┆         !!4  !"4      80    11 /    6     * &           ''' '  y ''' "W%   ,"  ┆
0x574c…579c              0a 00 91 22 00 eb 00 2e 00 2a 00 26 03 12 00 00 02 2b 00 00 30 09 00 93 93 57 65 30 46 d1 95 01 90 91 57 14 00 90 22 5f 0e 00 90 27 5f 13 00 90 21 30 00 eb 00 5c 00 2a 00 26 03 12 00 00 02 49 00 00 46 91 95 01 90 91 80 05 21 91 32 92 03 05   ┆   "   . * &     +  0    We0F     W   "_   '_   !0     * &     I  F       ! 2   ┆
0x579c…57ec              06 07 57 0f 30 12 11 92 30 1b 92 28 50 22 00 91 00 eb 00 8a 00 2a 00 26 03 12 00 00 02 67 00 00 26 57 3a 36 00 0f 33 33 00 33 33 00 1b 1b 1b 1b 33 33 33 1b 33 36 91 03 05 05 05 04 91 23 00 eb 00 b8 00 2a 00 26 03 12 00 00 02 85 00 00 57 28   ┆  W 0   0  (P"       * &     g  &W:6  33 33     333 36       #     * &        W(┆
0x57ec…583c              31 31 92 19 5f 84 00 92 21 30 32 13 92 20 5f 9b 31 31 92 19 57 19 30 0c 00 21 20 5f 00 eb 00 e6 00 2a 00 26 03 12 00 00 02 a3 00 00 a8 32 00 05 08 07 07 07 08 02 90 21 30 09 00 93 93 34 02 30 29 34 02 41 83 30 30 00 50 08 00 eb 01 14 00 2a   ┆11  _   !02   _ 11  W 0  ! _     * &         2         !0    4 0)4 A 00 P      *┆
0x583c…588c              00 26 03 12 00 00 02 c1 00 00 01 95 33 00 0c 95 57 1e 30 2a 01 93 02 93 22 30 07 93 2f 50 05 01 95 35 57 03 01 95 36 0a 00 eb 01 42 00 2a 00 26 03 12 00 00 02 df 00 00 93 22 6a 0c 20 93 95 20 30 2b 93 30 0c 01 93 93 00 91 23 34 00 40 88 00   ┆ &          3   W 0*    "0  /P   5W   6    B * &         "j     0+ 0      #4 @  ┆
0x588c…58dc (60, 0, 400) 89 20 00 88 20 30 00 eb 01 70 00 2a 00 26 03 12 00 00 02 fd 00 00 43 0c 50 08 6a 95 20 21 21 21 57 50 00 95 55 30 30 00 50 0d 00 88 20 6d 95 88 16 28 88 20 00 ec 00 0e 00 2a 00 26 03 12 00 00 03 1b 00 00 26 57 1c 00 95 0c 01 87 30 29 0c 3d   ┆     0   p * &        C P j  !!!WP  U00 P    m   (       * &        &W      0) =┆
0x58dc…592c              06 62 95 20 21 5a 2f 68 95 88 87 55 20 21 04 88 21 51 00 ec 00 3c 00 2a 00 26 03 12 00 00 03 39 00 00 05 00 93 21 34 00 02 89 21 30 33 40 88 54 11 30 25 9d 1e 02 88 12 6a 9d 25 21 88 21 30 31 00 ec 00 6a 00 2a 00 26 03 12 00 00 03 57 00 00   ┆ b  !Z/h   U !  !Q   < * &     9     !4   !03@ T 0%     j %! !01   j * &     W  ┆
0x592c…597c              92 9d 00 90 21 00 88 89 30 46 91 99 28 90 91 80 05 21 91 36 92 03 9b 63 76 36 91 06 12 12 00 ec 00 98 00 2a 00 26 03 12 00 00 03 75 00 00 17 43 08 97 04 91 26 00 93 20 34 00 80 06 00 90 20 80 07 10 57 8a 01 99 31 57 03 01 99 32 00 ec 00 c6   ┆    !   0F  (    ! 6   cv6         * &     u   C    &   4         W   1W   2    ┆
0x597c…59cc              00 2a 00 26 03 12 00 00 03 93 00 00 30 30 00 50 04 22 91 22 4a 68 95 88 21 55 20 21 54 41 30 30 00 54 0c 00 8b 20 68 95 8b 21 00 ec 00 f4 00 2a 00 26 03 12 00 00 03 b1 00 00 99 20 21 54 30 30 36 00 95 5f 82 41 88 30 30 00 54 04 66 95 20 21   ┆ * &        00 P " "Jh  !U !TA00 T    h  !     * &          !T006  _ A 00 T f  !┆
0x59cc…5a1c              30 25 9d 1a 30 33 30 31 00 ec 01 22 00 2a 00 26 03 12 00 00 03 cf 00 00 92 9d 5f dd 30 12 11 92 30 1b 92 28 50 09 68 95 88 21 99 20 21 50 06 31 31 92 19 5f 93 31 00 ec 01 50 00 2a 00 26 03 12 00 00 03 ed 00 00 31 92 1b 02 89 21 30 30 03 58   ┆0%  0301   " * &          _ 0   0  (P h  !  !P 11  _ 1   P * &        1    !00 X┆

Reduced view