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

⟦9a19d2904⟧

    Length: 23770 (0x5cda)
    Notes: pts_type(SC)
    Names: »DEPOOL.SC«

Derivation

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

PTS(SC)

 IDENT DEPOOL  REL 1.0 80-03-26/DALI
	DDUM	DDINIT
************************************************************
* 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…002c (0, 0, 400)  Head {h00=0x0028, h01=0x0050, text=» IDENT DEPOOL  REL 1.0 80-03-26/DALI«, t00=0x0000, t01=0x0004}
0x002c…0040              Head {h00=0x0010, h01=0x0050, text=» DDUM DDINIT«, t00=0x0000, t01=0x0030}
0x0040…0084              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0000, t01=0x0044}
0x0084…00c8              Head {h00=0x0040, h01=0x003c, text=»* THIS PROCEDURE HANDLES POOLING FUNCTIONS. THE CALLING    *«, t00=0x0000, t01=0x0088}
0x00c8…010c              Head {h00=0x0040, h01=0x003c, text=»* SEQUENCE AND THE FORMAL PARAMETERS ARE DESCRIBED BELOW.  *«, t00=0x0000, t01=0x00cc}
0x010c…0150              Head {h00=0x0040, h01=0x003c, text=»*                                                          *«, t00=0x0000, t01=0x0110}
0x0150…0194              Head {h00=0x0040, h01=0x0050, text=»*        PERF    DEPOOL,<FC>,<BUFF1>,<BUFF2>,<KEY>         *«, t00=0x0000, t01=0x0154}
0x0194…01d8              Head {h00=0x0040, h01=0x003c, text=»*                                                          *«, t00=0x0001, t01=0x0008}
0x01d8…021c              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0001, t01=0x004c}
0x021c…0226              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0090}
0x0226…0264              Head {h00=0x003a, h01=0x0050, text=»* FOLLOWING DATA ITEMS ARE USED BY THE DEPOOL ROUTINES«, t00=0x0001, t01=0x009a}
0x0264…0296              Head {h00=0x002e, h01=0x0050, text=»* AND ORIGINATE CONTENTS OF THEM ARE LOST.«, t00=0x0001, t01=0x00d8}
0x0296…02a0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010a}
0x02a0…02d4              Head {h00=0x0030, h01=0x0050, text=»*        <BUFF1>  ONLY WHEN <FC> = 1,2,5,7,9«, t00=0x0001, t01=0x0114}
0x02d4…0304              Head {h00=0x002c, h01=0x0050, text=»*        <BUFF2>  ONLY WHEN <FC> = 5,7,9«, t00=0x0001, t01=0x0148}
0x0304…031c              Head {h00=0x0014, h01=0x0050, text=»*         BIN15 «, t00=0x0001, t01=0x0178}
0x031c…0334              Head {h00=0x0014, h01=0x0050, text=»*         BIN16 «, t00=0x0001, t01=0x0190}
0x0334…034e              Head {h00=0x0016, h01=0x0050, text=»*         DEBINW3 «, t00=0x0002, t01=0x0018}
0x034e…0368              Head {h00=0x0016, h01=0x0050, text=»*         DEBINW4 «, t00=0x0002, t01=0x0032}
0x0368…0380              Head {h00=0x0014, h01=0x0050, text=»*         POOL1 «, t00=0x0002, t01=0x004c}
0x0380…0398              Head {h00=0x0014, h01=0x0050, text=»*         STR1A «, t00=0x0002, t01=0x0064}
0x0398…03b0              Head {h00=0x0014, h01=0x0050, text=»*         STR64A«, t00=0x0002, t01=0x007c}
0x03b0…03ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0094}
0x03ba…03fe              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0002, t01=0x009e}
0x03fe…040c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00e2}
0x040c…0450              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0002, t01=0x00f0}
0x0450…045a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0134}
0x045a…048e              Head {h00=0x0030, h01=0x0050, text=»*        <FC> = 1  GET BUFFERS WITHOUT LOCK «, t00=0x0002, t01=0x013e}
0x048e…04ce              Head {h00=0x003c, h01=0x003c, text=»*                  THE RETURNED BUFFERS ARE FREE FOR USE«, t00=0x0002, t01=0x0172}
0x04ce…050c              Head {h00=0x003a, h01=0x003d, text=»*                  BY ANY TASK FOR THE SAME PURPOSES. «, t00=0x0003, t01=0x0022}
0x050c…054c              Head {h00=0x003c, h01=0x0038, text=»*                  THE COUNTER OF THE PASSED BUFFERCHAIN«, t00=0x0003, t01=0x0060}
0x054c…0574              Head {h00=0x0024, h01=0x0050, text=»*                  IS SET TO 1. «, t00=0x0003, t01=0x00a0}
0x0574…05a2              Head {h00=0x002a, h01=0x003d, text=»*                  PASSED PARAMETERS: «, t00=0x0003, t01=0x00c8}
0x05a2…05dc              Head {h00=0x0036, h01=0x0050, text=»*        <BUFF1> = TOTAL NUMBER OF WANTED BUFFERS «, t00=0x0003, t01=0x00f6}
0x05dc…061c              Head {h00=0x003c, h01=0x003e, text=»*        <BUFF2> = NUMBER OF WANTED CONSECUTIVE BUFFERS «, t00=0x0003, t01=0x0130}
0x061c…064c              Head {h00=0x002c, h01=0x0027, text=»*                  RETURNED PARAMETERS: «, t00=0x0003, t01=0x0170}
0x064c…068e              Head {h00=0x003e, h01=0x0039, text=»*        <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER «, t00=0x0004, t01=0x0010}
0x068e…06ba              Head {h00=0x0028, h01=0x0050, text=»*                  IF NO BUFFERS = 0«, t00=0x0004, t01=0x0052}
0x06ba…06c4              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x007e}
0x06c4…0708              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0004, t01=0x0088}
0x0708…0712              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x00cc}
0x0712…0742              Head {h00=0x002c, h01=0x0028, text=»*        <FC> = 2  GET BUFFERS WITH LOCK«, t00=0x0004, t01=0x00d6}
0x0742…0780              Head {h00=0x003a, h01=0x0036, text=»*                  THE RETURNED BUFFERS ARE LOCKED AND«, t00=0x0004, t01=0x0106}
0x0780…07be              Head {h00=0x003a, h01=0x0035, text=»*                  RESERVED FOR USE ONLY BY THIS TASK «, t00=0x0004, t01=0x0144}
0x07be…07fe              Head {h00=0x003c, h01=0x0038, text=»*                  THE COUNTER OF THE PASSED BUFFERCHAIN«, t00=0x0004, t01=0x0182}
0x07fe…0826              Head {h00=0x0024, h01=0x0050, text=»*                  IS SET TO 1. «, t00=0x0005, t01=0x0032}
0x0826…0854              Head {h00=0x002a, h01=0x003d, text=»*                  PASSED PARAMETERS: «, t00=0x0005, t01=0x005a}
0x0854…088e              Head {h00=0x0036, h01=0x0050, text=»*        <BUFF1> = TOTAL NUMBER OF WANTED BUFFERS «, t00=0x0005, t01=0x0088}
0x088e…08ce              Head {h00=0x003c, h01=0x003e, text=»*        <BUFF2> = NUMBER OF WANTED CONSECUTIVE BUFFERS «, t00=0x0005, t01=0x00c2}
0x08ce…08fe              Head {h00=0x002c, h01=0x0027, text=»*                  RETURNED PARAMETERS: «, t00=0x0005, t01=0x0102}
0x08fe…0940              Head {h00=0x003e, h01=0x0039, text=»*        <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER «, t00=0x0005, t01=0x0132}
0x0940…096c              Head {h00=0x0028, h01=0x0050, text=»*                  IF NO BUFFERS = 0«, t00=0x0005, t01=0x0174}
0x096c…0976              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x0010}
0x0976…09ba              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0006, t01=0x001a}
0x09ba…09c8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x005e}
0x09c8…0a0c              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0006, t01=0x006c}
0x0a0c…0a16              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x00b0}
0x0a16…0a3e              Head {h00=0x0024, h01=0x0020, text=»*        <FC> = 3  CHAIN BUFFERS«, t00=0x0006, t01=0x00ba}
0x0a3e…0a7c              Head {h00=0x003a, h01=0x0036, text=»*                  THE RETURNED BUFFER IS ADDED TO THE«, t00=0x0006, t01=0x00e2}
0x0a7c…0aac              Head {h00=0x002c, h01=0x0027, text=»*                  BUFFERCHAIN IN POOL. «, t00=0x0006, t01=0x0120}
0x0aac…0ae8              Head {h00=0x0038, h01=0x0050, text=»*                  THE COUNTER OF THE ADDED BUFFERS «, t00=0x0006, t01=0x0150}
0x0ae8…0b10              Head {h00=0x0024, h01=0x0050, text=»*                  IS SET TO 1. «, t00=0x0006, t01=0x018c}
0x0b10…0b3e              Head {h00=0x002a, h01=0x0033, text=»*                  PASSED PARAMETERS: «, t00=0x0007, t01=0x0024}
0x0b3e…0b78              Head {h00=0x0036, h01=0x0050, text=»*        <BUFF1> = TOTAL NUMBER OF WANTED BUFFERS «, t00=0x0007, t01=0x0052}
0x0b78…0bb4              Head {h00=0x0038, h01=0x0050, text=»*        <BUFF2> = POOLINDEX TO THE  RESERVED BUFFER«, t00=0x0007, t01=0x008c}
0x0bb4…0bfa              Head {h00=0x0042, h01=0x0050, text=»*                  IN THE CHAIN AFTER WHICH THE NEW BUFFER(S) «, t00=0x0007, t01=0x00c8}
0x0bfa…0c26              Head {h00=0x0028, h01=0x0050, text=»*                  WILL BE INSERTED.«, t00=0x0007, t01=0x010e}
0x0c26…0c56              Head {h00=0x002c, h01=0x0027, text=»*                  RETURNED PARAMETERS: «, t00=0x0007, t01=0x013a}
0x0c56…0c90              Head {h00=0x0036, h01=0x0031, text=»*        <BUFF1> = POOLINDEX TO THE ADDED BUFFER. «, t00=0x0007, t01=0x016a}
0x0c90…0cbc              Head {h00=0x0028, h01=0x0050, text=»*                  IF NO BUFFERS = 0«, t00=0x0008, t01=0x0014}
0x0cbc…0cfe              Head {h00=0x003e, h01=0x0050, text=»*        <BUFF2> = POOLINDEX TO THE FIRST RESERVED BUFFER «, t00=0x0008, t01=0x0040}
0x0cfe…0d26              Head {h00=0x0024, h01=0x001f, text=»*                  IN THE CHAIN «, t00=0x0008, t01=0x0082}
0x0d26…0d30              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x00aa}
0x0d30…0d74              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0008, t01=0x00b4}
0x0d74…0d82              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00f8}
0x0d82…0dc6              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0008, t01=0x0106}
0x0dc6…0dd0              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x014a}
0x0dd0…0df6              Head {h00=0x0022, h01=0x001e, text=»*        <FC> = 4  SET BUFFERS«, t00=0x0008, t01=0x0154}
0x0df6…0e26              Head {h00=0x002c, h01=0x0050, text=»*                  THE NAME AND THE TYPE«, t00=0x0008, t01=0x017a}
0x0e26…0e68              Head {h00=0x003e, h01=0x003a, text=»*                  OF THE USER IS PUT INTO THE POOLELEMENT«, t00=0x0009, t01=0x001a}
0x0e68…0ea8              Head {h00=0x003c, h01=0x0038, text=»*                  THE COUNTER OF THE PASSED BUFFERCHAIN«, t00=0x0009, t01=0x005c}
0x0ea8…0eda              Head {h00=0x002e, h01=0x0050, text=»*                  WILL NOT BE INCREASED .«, t00=0x0009, t01=0x009c}
0x0eda…0f08              Head {h00=0x002a, h01=0x0025, text=»*                  PASSED PARAMETERS: «, t00=0x0009, t01=0x00ce}
0x0f08…0f4a              Head {h00=0x003e, h01=0x0039, text=»*        <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER «, t00=0x0009, t01=0x00fc}
0x0f4a…0f72              Head {h00=0x0024, h01=0x001f, text=»*                  IN THE CHAIN «, t00=0x0009, t01=0x013e}
0x0f72…0fb8              Head {h00=0x0042, h01=0x003e, text=»*        <KEY> =   NAME. THE NAME IS STRG7 VARIABEL CONSISTING«, t00=0x0009, t01=0x0166}
0x0fb8…0ff8              Head {h00=0x003c, h01=0x0038, text=»*                        OF A STRG1 TYPE AND STRG6 NAME.«, t00=0x000a, t01=0x001c}
0x0ff8…102c              Head {h00=0x0030, h01=0x002c, text=»*                  RETURNED PARAMETERS: NONE«, t00=0x000a, t01=0x005c}
0x102c…1036              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x0090}
0x1036…107a              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x000a, t01=0x009a}
0x107a…1088              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00de}
0x1088…10cc              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x000a, t01=0x00ec}
0x10cc…10d6              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x0130}
0x10d6…10fe              Head {h00=0x0024, h01=0x0020, text=»*        <FC> = 5  SEARCH BUFFER«, t00=0x000a, t01=0x013a}
0x10fe…1140              Head {h00=0x003e, h01=0x0039, text=»*                  THE BUFFERPOOL IS SEARCHED FOR A POOL- «, t00=0x000a, t01=0x0162}
0x1140…117e              Head {h00=0x003a, h01=0x0035, text=»*                  ELEMENT OF THE SAME NAME AND TYPE. «, t00=0x000b, t01=0x0014}
0x117e…11be              Head {h00=0x003c, h01=0x0038, text=»*                  THE COUNTER OF THE PASSED BUFFERCHAIN«, t00=0x000b, t01=0x0052}
0x11be…11ec              Head {h00=0x002a, h01=0x0050, text=»*                  IS INCREASED BY 1. «, t00=0x000b, t01=0x0092}
0x11ec…122e              Head {h00=0x003e, h01=0x0050, text=»*                  IF THE SEARCHED BUFFER IS FOUND LOCKED «, t00=0x000b, t01=0x00c0}
0x122e…126a              Head {h00=0x0038, h01=0x0050, text=»*                  THE COUNTER WILL NOT BE INCREASED«, t00=0x000b, t01=0x0102}
0x126a…1298              Head {h00=0x002a, h01=0x0025, text=»*                  PASSED PARAMETERS: «, t00=0x000b, t01=0x013e}
0x1298…12d0              Head {h00=0x0034, h01=0x0030, text=»*        <BUFF1>,<BUFF2> = USED FOR RETURNVALUES«, t00=0x000b, t01=0x016c}
0x12d0…1316              Head {h00=0x0042, h01=0x003e, text=»*        <KEY> =   NAME. THE NAME IS STRG7 VARIABEL CONSISTING«, t00=0x000c, t01=0x0014}
0x1316…1356              Head {h00=0x003c, h01=0x0038, text=»*                        OF A STRG1 TYPE AND STRG6 NAME.«, t00=0x000c, t01=0x005a}
0x1356…1386              Head {h00=0x002c, h01=0x0027, text=»*                  RETURNED PARAMETERS: «, t00=0x000c, t01=0x009a}
0x1386…13ca              Head {h00=0x0040, h01=0x003b, text=»*        <BUFF1> = POOLINDEX TO THE BUFFER THAT MATCHED THE «, t00=0x000c, t01=0x00ca}
0x13ca…1404              Head {h00=0x0036, h01=0x0050, text=»*                  TYPE AND NAME. IF NOT FOUND = 0«, t00=0x000c, t01=0x010e}
0x1404…143a              Head {h00=0x0032, h01=0x0050, text=»*        <BUFF2> = RETURNCODE. 1 = FOUND FREE «, t00=0x000c, t01=0x0148}
0x143a…1472              Head {h00=0x0034, h01=0x0050, text=»*                              2 = FOUND LOCKED «, t00=0x000c, t01=0x017e}
0x1472…14a6              Head {h00=0x0030, h01=0x0050, text=»*                              0 = NOT FOUND«, t00=0x000d, t01=0x0026}
0x14a6…14b0              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x005a}
0x14b0…14f4              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x000d, t01=0x0064}
0x14f4…1502              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00a8}
0x1502…1546              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x000d, t01=0x00b6}
0x1546…1550              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x00fa}
0x1550…157a              Head {h00=0x0026, h01=0x0021, text=»*        <FC> = 6  RELEASE BUFFER «, t00=0x000d, t01=0x0104}
0x157a…15bc              Head {h00=0x003e, h01=0x003a, text=»*                  THE COUNTER OF USERS IS DECREASED BY 1.«, t00=0x000d, t01=0x012e}
0x15bc…15fa              Head {h00=0x003a, h01=0x0036, text=»*                  IF THE COUNTER AFTERWARDS IS 0, THE«, t00=0x000d, t01=0x0170}
0x15fa…163c              Head {h00=0x003e, h01=0x0050, text=»*                  BUFFER IS PUT ON LRUQUE IF IT WAS FREE.«, t00=0x000e, t01=0x001e}
0x163c…1678              Head {h00=0x0038, h01=0x0050, text=»*                  IF IT WAS LOCKED IT BECOMES FREE «, t00=0x000e, t01=0x0060}
0x1678…16b4              Head {h00=0x0038, h01=0x0050, text=»*                  IMMEDIATLY AND IS NOT PUT ON THE «, t00=0x000e, t01=0x009c}
0x16b4…16de              Head {h00=0x0026, h01=0x0050, text=»*                  LRUQUE AT ALL. «, t00=0x000e, t01=0x00d8}
0x16de…170c              Head {h00=0x002a, h01=0x0025, text=»*                  PASSED PARAMETERS: «, t00=0x000e, t01=0x0102}
0x170c…174e              Head {h00=0x003e, h01=0x0039, text=»*        <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER «, t00=0x000e, t01=0x0130}
0x174e…1776              Head {h00=0x0024, h01=0x001f, text=»*                  IN THE CHAIN «, t00=0x000e, t01=0x0172}
0x1776…17a6              Head {h00=0x002c, h01=0x0027, text=»*                  RETURNED PARAMETERS: «, t00=0x000f, t01=0x000a}
0x17a6…17ca              Head {h00=0x0020, h01=0x0050, text=»*        <BUFF1> = SET TO 0 «, t00=0x000f, t01=0x003a}
0x17ca…17d4              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x005e}
0x17d4…1818              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x000f, t01=0x0068}
0x1818…1826              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00ac}
0x1826…186a              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x000f, t01=0x00ba}
0x186a…1874              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x00fe}
0x1874…189a              Head {h00=0x0022, h01=0x0050, text=»*        <FC> = 7  SCAN BUFFER«, t00=0x000f, t01=0x0108}
0x189a…18da              Head {h00=0x003c, h01=0x0050, text=»*                  THE BUFFERPOOL IS SCANNED FOR A POOL-«, t00=0x000f, t01=0x012e}
0x18da…1918              Head {h00=0x003a, h01=0x0035, text=»*                  ELEMENT OF THE SAME NAME AND TYPE. «, t00=0x000f, t01=0x016e}
0x1918…1958              Head {h00=0x003c, h01=0x0038, text=»*                  THE COUNTER OF THE PASSED BUFFERCHAIN«, t00=0x0010, t01=0x001c}
0x1958…198a              Head {h00=0x002e, h01=0x0050, text=»*                  WILL NOT BE INCREASED .«, t00=0x0010, t01=0x005c}
0x198a…19b8              Head {h00=0x002a, h01=0x0025, text=»*                  PASSED PARAMETERS: «, t00=0x0010, t01=0x008e}
0x19b8…19f0              Head {h00=0x0034, h01=0x0030, text=»*        <BUFF1>,<BUFF2> = USED FOR RETURNVALUES«, t00=0x0010, t01=0x00bc}
0x19f0…1a36              Head {h00=0x0042, h01=0x003e, text=»*        <KEY> =   NAME. THE NAME IS STRG7 VARIABEL CONSISTING«, t00=0x0010, t01=0x00f4}
0x1a36…1a76              Head {h00=0x003c, h01=0x0038, text=»*                        OF A STRG1 TYPE AND STRG6 NAME.«, t00=0x0010, t01=0x013a}
0x1a76…1aa6              Head {h00=0x002c, h01=0x0027, text=»*                  RETURNED PARAMETERS: «, t00=0x0010, t01=0x017a}
0x1aa6…1aea              Head {h00=0x0040, h01=0x003b, text=»*        <BUFF1> = POOLINDEX TO THE BUFFER THAT MATCHED THE «, t00=0x0011, t01=0x001a}
0x1aea…1b24              Head {h00=0x0036, h01=0x0050, text=»*                  TYPE AND NAME. IF NOT FOUND = 0«, t00=0x0011, t01=0x005e}
0x1b24…1b5a              Head {h00=0x0032, h01=0x0050, text=»*        <BUFF2> = RETURNCODE. 1 = FOUND FREE «, t00=0x0011, t01=0x0098}
0x1b5a…1b92              Head {h00=0x0034, h01=0x0050, text=»*                              2 = FOUND LOCKED «, t00=0x0011, t01=0x00ce}
0x1b92…1bc6              Head {h00=0x0030, h01=0x0050, text=»*                              0 = NOT FOUND«, t00=0x0011, t01=0x0106}
0x1bc6…1bd0              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x013a}
0x1bd0…1c14              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0011, t01=0x0144}
0x1c14…1c22              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0188}
0x1c22…1c66              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0012, t01=0x0008}
0x1c66…1c70              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x004c}
0x1c70…1c98              Head {h00=0x0024, h01=0x0050, text=»*        <FC> = 8   LOCK BUFFERS«, t00=0x0012, t01=0x0056}
0x1c98…1cd6              Head {h00=0x003a, h01=0x0036, text=»*                  THE RETURNED BUFFERS ARE LOCKED AND«, t00=0x0012, t01=0x007e}
0x1cd6…1d18              Head {h00=0x003e, h01=0x0050, text=»*                  RESERVED FOR USE ONLY BY THIS TASK ONLY«, t00=0x0012, t01=0x00bc}
0x1d18…1d5c              Head {h00=0x0040, h01=0x0050, text=»*                  IF THE COUNTER OF THE PASSED BUFFERCHAIN «, t00=0x0012, t01=0x00fe}
0x1d5c…1d7e              Head {h00=0x001e, h01=0x0050, text=»*                  IS = 1.«, t00=0x0012, t01=0x0142}
0x1d7e…1dbe              Head {h00=0x003c, h01=0x0038, text=»*                  THE COUNTER OF THE PASSED BUFFERCHAIN«, t00=0x0012, t01=0x0164}
0x1dbe…1df0              Head {h00=0x002e, h01=0x0050, text=»*                  WILL NOT BE INCREASED .«, t00=0x0013, t01=0x0014}
0x1df0…1e1e              Head {h00=0x002a, h01=0x0025, text=»*                  PASSED PARAMETERS: «, t00=0x0013, t01=0x0046}
0x1e1e…1e60              Head {h00=0x003e, h01=0x0039, text=»*        <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER «, t00=0x0013, t01=0x0074}
0x1e60…1e88              Head {h00=0x0024, h01=0x001f, text=»*                  IN THE CHAIN «, t00=0x0013, t01=0x00b6}
0x1e88…1e92              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x00de}
0x1e92…1ed6              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0013, t01=0x00e8}
0x1ed6…1ee4              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x012c}
0x1ee4…1f28              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0013, t01=0x013a}
0x1f28…1f32              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x017e}
0x1f32…1f58              Head {h00=0x0022, h01=0x0050, text=»*        <FC> = 9  SCAN BUFFER«, t00=0x0013, t01=0x0188}
0x1f58…1f98              Head {h00=0x003c, h01=0x0050, text=»*                  THE BUFFERPOOL IS SCANNED FOR A POOL-«, t00=0x0014, t01=0x001e}
0x1f98…1fc8              Head {h00=0x002c, h01=0x0050, text=»*                  ELEMENTCONSISTING OF.«, t00=0x0014, t01=0x005e}
0x1fc8…2008              Head {h00=0x003c, h01=0x0038, text=»*                  THE COUNTER OF THE PASSED BUFFERCHAIN«, t00=0x0014, t01=0x008e}
0x2008…203a              Head {h00=0x002e, h01=0x0050, text=»*                  WILL NOT BE INCREASED .«, t00=0x0014, t01=0x00ce}
0x203a…2068              Head {h00=0x002a, h01=0x0025, text=»*                  PASSED PARAMETERS: «, t00=0x0014, t01=0x0100}
0x2068…20a0              Head {h00=0x0034, h01=0x0030, text=»*        <BUFF1>,<BUFF2> = USED FOR RETURNVALUES«, t00=0x0014, t01=0x012e}
0x20a0…20e6              Head {h00=0x0042, h01=0x003e, text=»*        <KEY> =   NAME. THE NAME IS STRG7 VARIABEL CONSISTING«, t00=0x0014, t01=0x0166}
0x20e6…2126              Head {h00=0x003c, h01=0x0038, text=»*                        OF A STRG1 TYPE AND STRG6 NAME.«, t00=0x0015, t01=0x001c}
0x2126…2156              Head {h00=0x002c, h01=0x0027, text=»*                  RETURNED PARAMETERS: «, t00=0x0015, t01=0x005c}
0x2156…219a              Head {h00=0x0040, h01=0x003b, text=»*        <BUFF1> = POOLINDEX TO THE BUFFER THAT MATCHED THE «, t00=0x0015, t01=0x008c}
0x219a…21d4              Head {h00=0x0036, h01=0x0050, text=»*                  TYPE AND NAME. IF NOT FOUND = 0«, t00=0x0015, t01=0x00d0}
0x21d4…220a              Head {h00=0x0032, h01=0x0050, text=»*        <BUFF2> = RETURNCODE. 1 = FOUND FREE «, t00=0x0015, t01=0x010a}
0x220a…2242              Head {h00=0x0034, h01=0x0050, text=»*                              2 = FOUND LOCKED «, t00=0x0015, t01=0x0140}
0x2242…2276              Head {h00=0x0030, h01=0x0050, text=»*                              0 = NOT FOUND«, t00=0x0015, t01=0x0178}
0x2276…2280              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x001c}
0x2280…22c4              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0016, t01=0x0026}
0x22c4…22d2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x006a}
0x22d2…2316              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0016, t01=0x0078}
0x2316…2320              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x00bc}
0x2320…2348              Head {h00=0x0024, h01=0x0050, text=»*        <FC> = 10  SET BUFFERS «, t00=0x0016, t01=0x00c6}
0x2348…2382              Head {h00=0x0036, h01=0x0050, text=»*                  THE NAME OF THE BATCHDATARECORD«, t00=0x0016, t01=0x00ee}
0x2382…23c4              Head {h00=0x003e, h01=0x003a, text=»*                  OF THE USER IS PUT INTO THE POOLELEMENT«, t00=0x0016, t01=0x0128}
0x23c4…2404              Head {h00=0x003c, h01=0x0038, text=»*                  THE COUNTER OF THE PASSED BUFFERCHAIN«, t00=0x0016, t01=0x016a}
0x2404…2436              Head {h00=0x002e, h01=0x0050, text=»*                  WILL NOT BE INCREASED .«, t00=0x0017, t01=0x001a}
0x2436…2464              Head {h00=0x002a, h01=0x0025, text=»*                  PASSED PARAMETERS: «, t00=0x0017, t01=0x004c}
0x2464…24a6              Head {h00=0x003e, h01=0x0039, text=»*        <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER «, t00=0x0017, t01=0x007a}
0x24a6…24ce              Head {h00=0x0024, h01=0x001f, text=»*                  IN THE CHAIN «, t00=0x0017, t01=0x00bc}
0x24ce…2514              Head {h00=0x0042, h01=0x003e, text=»*        <KEY> =   NAME. THE NAME IS STRG7 VARIABEL CONSISTING«, t00=0x0017, t01=0x00e4}
0x2514…2554              Head {h00=0x003c, h01=0x0038, text=»*                        OF A STRG1 TYPE AND STRG6 NAME.«, t00=0x0017, t01=0x012a}
0x2554…2588              Head {h00=0x0030, h01=0x002c, text=»*                  RETURNED PARAMETERS: NONE«, t00=0x0017, t01=0x016a}
0x2588…2592              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x000e}
0x2592…25d6              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0018, t01=0x0018}
0x25d6…25e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x005c}
0x25e0…260a              Head {h00=0x0026, h01=0x0050, text=»*        <FC> = 11  RELEASE BUFFER«, t00=0x0018, t01=0x0066}
0x260a…2644              Head {h00=0x0036, h01=0x0050, text=»*                   THE CHAINLINKS FOR THE BUFFERS«, t00=0x0018, t01=0x0090}
0x2644…267c              Head {h00=0x0034, h01=0x0050, text=»*                   ON DISK ARE CLEARED AND THE «, t00=0x0018, t01=0x00ca}
0x267c…26b6              Head {h00=0x0036, h01=0x0050, text=»*                   BUFFERS MUST BE ENTERED AS NEW«, t00=0x0018, t01=0x0102}
0x26b6…26de              Head {h00=0x0024, h01=0x0050, text=»*                   DISCSECTORS.«, t00=0x0018, t01=0x013c}
0x26de…26e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0164}
0x26e8…2716              Head {h00=0x002a, h01=0x0025, text=»*                  PASSED PARAMETERS: «, t00=0x0018, t01=0x016e}
0x2716…2758              Head {h00=0x003e, h01=0x0039, text=»*        <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER «, t00=0x0019, t01=0x000c}
0x2758…2780              Head {h00=0x0024, h01=0x001f, text=»*                  IN THE CHAIN «, t00=0x0019, t01=0x004e}
0x2780…278a              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x0076}
0x278a…27ce              Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0019, t01=0x0080}
0x27ce…27dc              Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0019, t01=0x00c4}
0x27dc…27f2              Head {h00=0x0012, h01=0x000d, text=» ENTRY DEPOOL «, t00=0x0019, t01=0x00d2}
0x27f2…2804              Head {h00=0x000e, h01=0x0050, text=» EXT SETB «, t00=0x0019, t01=0x00e8}
0x2804…2816              Head {h00=0x000e, h01=0x0050, text=» EXT TESTB«, t00=0x0019, t01=0x00fa}
0x2816…282a              Head {h00=0x0010, h01=0x0050, text=» EXT CLEARB «, t00=0x0019, t01=0x010c}
0x282a…283e              Head {h00=0x0010, h01=0x0050, text=» EXT CMPIND «, t00=0x0019, t01=0x0120}
0x283e…2852              Head {h00=0x0010, h01=0x0050, text=» EXT GETIND «, t00=0x0019, t01=0x0134}
0x2852…2860              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0148}
0x2860…2886              Head {h00=0x0022, h01=0x001e, text=»DEPOOL PROC FC,BUFF1,BUFF2,KEY«, t00=0x0019, t01=0x0156}
0x2886…289a              Head {h00=0x0010, h01=0x0050, text=» CLEAR POOL1«, t00=0x0019, t01=0x017c}
0x289a…28ac              Head {h00=0x000e, h01=0x0050, text=» IB FC  C «, t00=0x0019, t01=0x0190}
0x28ac…28be              Head {h00=0x000e, h01=0x0050, text=»  DEPO1  C«, t00=0x001a, t01=0x0012}
0x28be…28d0              Head {h00=0x000e, h01=0x0050, text=»  DEPO1  C«, t00=0x001a, t01=0x0024}
0x28d0…28e2              Head {h00=0x000e, h01=0x0050, text=»  DEPO3  C«, t00=0x001a, t01=0x0036}
0x28e2…28f4              Head {h00=0x000e, h01=0x0050, text=»  DEPO4  C«, t00=0x001a, t01=0x0048}
0x28f4…2906              Head {h00=0x000e, h01=0x0050, text=»  DEPO5  C«, t00=0x001a, t01=0x005a}
0x2906…2918              Head {h00=0x000e, h01=0x0050, text=»  DEPO6  C«, t00=0x001a, t01=0x006c}
0x2918…292a              Head {h00=0x000e, h01=0x0050, text=»  DEPO5  C«, t00=0x001a, t01=0x007e}
0x292a…293c              Head {h00=0x000e, h01=0x0050, text=»  DEPO8  C«, t00=0x001a, t01=0x0090}
0x293c…294e              Head {h00=0x000e, h01=0x0050, text=»  DEPO5  C«, t00=0x001a, t01=0x00a2}
0x294e…2960              Head {h00=0x000e, h01=0x0050, text=»  DEPO4  C«, t00=0x001a, t01=0x00b4}
0x2960…2976              Head {h00=0x0012, h01=0x0050, text=»  DEPO6 FC=11 «, t00=0x001a, t01=0x00c6}
0x2976…2984              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x00dc}
0x2984…2992              Head {h00=0x000a, h01=0x0050, text=»DEPO1 «, t00=0x001a, t01=0x00ea}
0x2992…29c4              Head {h00=0x002e, h01=0x0050, text=» CBE BUFF2,W0,DEPO05 JUMP IF NO COSECUTIVE«, t00=0x001a, t01=0x00f8}
0x29c4…29dc              Head {h00=0x0014, h01=0x0050, text=»   ARE REQUESTED«, t00=0x001a, t01=0x012a}
0x29dc…29ee              Head {h00=0x000e, h01=0x0050, text=» SET POOL1«, t00=0x001a, t01=0x0142}
0x29ee…29fc              Head {h00=0x000a, h01=0x0050, text=»DEPO05«, t00=0x001a, t01=0x0154}
0x29fc…2a2c              Head {h00=0x002c, h01=0x0050, text=» MOVE BIN16,W0 COUNTER FOR CONSECUTIVES «, t00=0x001a, t01=0x0162}
0x2a2c…2a3a (27, 0, 400) Head {h00=0x000a, h01=0x0050, text=»DEPO3 «, t00=0x001b, t01=0x0004}
0x2a3a…2a64              Head {h00=0x0026, h01=0x0050, text=» MOVE BIN15,W1 STARTINDEX IN POOL «, t00=0x001b, t01=0x0012}
0x2a64…2a72              Head {h00=0x000a, h01=0x0050, text=»DEPO11«, t00=0x001b, t01=0x003c}
0x2a72…2aa4              Head {h00=0x002e, h01=0x0050, text=» MOVE STR64A,HEX00 DROP TEMPORARY RESERVED«, t00=0x001b, t01=0x004a}
0x2aa4…2ab2              Head {h00=0x000a, h01=0x0050, text=»DEPO12«, t00=0x001b, t01=0x007c}
0x2ab2…2ae4              Head {h00=0x002e, h01=0x0050, text=» MOVE STR1A,RPOOL(BIN15) GET FILETYPE CODE«, t00=0x001b, t01=0x008a}
0x2ae4…2af2              Head {h00=0x000a, h01=0x0050, text=»DEPO13«, t00=0x001b, t01=0x00bc}
0x2af2…2b26              Head {h00=0x0030, h01=0x0050, text=» CBE STR1A,=C'X',DEPO18 JUMP IF FREE BUFFER «, t00=0x001b, t01=0x00ca}
0x2b26…2b30              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00fe}
0x2b30…2b50              Head {h00=0x001c, h01=0x0050, text=»* HANDLE OCCUPIED BUFFER«, t00=0x001b, t01=0x0108}
0x2b50…2b5a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0128}
0x2b5a…2b68              Head {h00=0x000a, h01=0x0050, text=»DEPO14«, t00=0x001b, t01=0x0132}
0x2b68…2b92              Head {h00=0x0026, h01=0x0050, text=» ADD BIN15,W1 INCREASE BUFFERINDEX«, t00=0x001b, t01=0x0140}
0x2b92…2bb6              Head {h00=0x0020, h01=0x0050, text=» CALL CMPIND,BIN15,BPOOL(W1)«, t00=0x001b, t01=0x016a}
0x2bb6…2bde              Head {h00=0x0024, h01=0x0050, text=» BNOK DEPO16 JUMP IF LAST BUFFER«, t00=0x001b, t01=0x018e}
0x2bde…2bec              Head {h00=0x000a, h01=0x0050, text=»DEPO15«, t00=0x001c, t01=0x0026}
0x2bec…2c1e              Head {h00=0x002e, h01=0x0050, text=» TBF POOL1,DEPO12 JUMP IF NOT CONSECUTIVE «, t00=0x001c, t01=0x0034}
0x2c1e…2c50              Head {h00=0x002e, h01=0x0050, text=» ADD BUFF1,BIN16 ADJUST REQUESTED BUFFERS «, t00=0x001c, t01=0x0066}
0x2c50…2c82              Head {h00=0x002e, h01=0x0050, text=» MOVE BIN16,W0 SET NUMBER OF CONSECUTIVE=0«, t00=0x001c, t01=0x0098}
0x2c82…2c96              Head {h00=0x0010, h01=0x0050, text=»   REQUESTED«, t00=0x001c, t01=0x00ca}
0x2c96…2ca8              Head {h00=0x000e, h01=0x0050, text=» B DEPO11 «, t00=0x001c, t01=0x00de}
0x2ca8…2cd4              Head {h00=0x0028, h01=0x0050, text=»DEPO16   LOOK IFTHERE ARE BUFFERS IN«, t00=0x001c, t01=0x00f0}
0x2cd4…2d06              Head {h00=0x002e, h01=0x0050, text=» PERF DELRUF  LRUQUE THAT CAN BE MADE FREE«, t00=0x001c, t01=0x011c}
0x2d06…2d2e              Head {h00=0x0024, h01=0x0050, text=» BERR DEPON13 JUMP IF NO BUFFERS«, t00=0x001c, t01=0x014e}
0x2d2e…2d5a              Head {h00=0x0028, h01=0x0050, text=» TBT POOL1,DEPO17 JUMP IF CONSEC REQ«, t00=0x001c, t01=0x0176}
0x2d5a…2d86              Head {h00=0x0028, h01=0x0050, text=» MOVE BIN15,W1 START FROM BEGINNING «, t00=0x001d, t01=0x0012}
0x2d86…2d98              Head {h00=0x000e, h01=0x0050, text=» B DEPO12 «, t00=0x001d, t01=0x003e}
0x2d98…2da6              Head {h00=0x000a, h01=0x0050, text=»DEPO17«, t00=0x001d, t01=0x0050}
0x2da6…2dd8              Head {h00=0x002e, h01=0x0050, text=» ADD BUFF1,BIN16 ADJUST REQUESTED BUFFERS «, t00=0x001d, t01=0x005e}
0x2dd8…2dea              Head {h00=0x000e, h01=0x0050, text=» B DEPO05 «, t00=0x001d, t01=0x0090}
0x2dea…2df8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00a2}
0x2df8…2e02              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00b0}
0x2e02…2e20              Head {h00=0x001a, h01=0x0050, text=»* HANDLE FREE BUFFERS «, t00=0x001d, t01=0x00ba}
0x2e20…2e2a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00d8}
0x2e2a…2e38              Head {h00=0x000a, h01=0x0050, text=»DEPO18«, t00=0x001d, t01=0x00e2}
0x2e38…2e5c              Head {h00=0x0020, h01=0x0050, text=» XCOPY STR1A,W0,W1,BIN15,W1 «, t00=0x001d, t01=0x00f0}
0x2e5c…2e74              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W0«, t00=0x001d, t01=0x0114}
0x2e74…2ea6              Head {h00=0x002e, h01=0x0050, text=» MATCH STR64A,DEBINW3,W64,STR1A,DEBINW3,W1«, t00=0x001d, t01=0x012c}
0x2ea6…2eba              Head {h00=0x0010, h01=0x0050, text=» BOK DEPO14 «, t00=0x001d, t01=0x015e}
0x2eba…2eea              Head {h00=0x002c, h01=0x0050, text=» TBF POOL1,DEPO19 JUMP IF NOT CONSECUTVE«, t00=0x001d, t01=0x0172}
0x2eea…2f0a              Head {h00=0x001c, h01=0x0050, text=» ADD BIN16,W1 REQUESTED «, t00=0x001e, t01=0x0012}
0x2f0a…2f40              Head {h00=0x0032, h01=0x0050, text=» CBNE BUFF2,BIN16,DEPO19 JUMP IF NOT NUMBER OF«, t00=0x001e, t01=0x0032}
0x2f40…2f68              Head {h00=0x0024, h01=0x0050, text=»   REQUESTED CONSECUTVES REACHED«, t00=0x001e, t01=0x0068}
0x2f68…2f7c              Head {h00=0x0010, h01=0x0050, text=» CLEAR POOL1«, t00=0x001e, t01=0x0090}
0x2f7c…2f8a              Head {h00=0x000a, h01=0x0050, text=»DEPO19«, t00=0x001e, t01=0x00a4}
0x2f8a…2fb4              Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW3,W0 RESERV TEMPORARY «, t00=0x001e, t01=0x00b2}
0x2fb4…2fe2              Head {h00=0x002a, h01=0x0050, text=» MATCH STR64A,DEBINW3,W64,HEX00,W0,W1 «, t00=0x001e, t01=0x00dc}
0x2fe2…301a              Head {h00=0x0034, h01=0x0050, text=» XCOPY STR64A,DEBINW3,W1,BIN15,W1 SAVE POOLINDEX«, t00=0x001e, t01=0x010a}
0x301a…3048              Head {h00=0x002a, h01=0x0050, text=» SUB BUFF1,W1 DECREASE TOTAL REQUESTED«, t00=0x001e, t01=0x0142}
0x3048…3072              Head {h00=0x0026, h01=0x0050, text=» BZ DEPO20 JUMP IF ENOUGH BUFFERS «, t00=0x001e, t01=0x0170}
0x3072…3088              Head {h00=0x0012, h01=0x0050, text=» ADD BIN15,W1 «, t00=0x001f, t01=0x000a}
0x3088…30ac              Head {h00=0x0020, h01=0x0050, text=» CALL CMPIND,BIN15,BPOOL(W1)«, t00=0x001f, t01=0x0020}
0x30ac…30c0              Head {h00=0x0010, h01=0x0050, text=» BNOK DEPO16«, t00=0x001f, t01=0x0044}
0x30c0…30da              Head {h00=0x0016, h01=0x0050, text=» B DEPO12 CONTINUE«, t00=0x001f, t01=0x0058}
0x30da…30e8              Head {h00=0x000a, h01=0x0050, text=»DEPO20«, t00=0x001f, t01=0x0072}
0x30e8…3102              Head {h00=0x0016, h01=0x0050, text=» MOVE BUFF1,BUFF2 «, t00=0x001f, t01=0x0080}
0x3102…3130              Head {h00=0x002a, h01=0x0050, text=» PERF DEPORE,BUFF1,FC RESERV PERMANENT«, t00=0x001f, t01=0x009a}
0x3130…3142              Head {h00=0x000e, h01=0x0050, text=» B DEPOOK «, t00=0x001f, t01=0x00c8}
0x3142…3150              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x00da}
0x3150…315e              Head {h00=0x000a, h01=0x0050, text=»DEPO4 «, t00=0x001f, t01=0x00e8}
0x315e…3176              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W0«, t00=0x001f, t01=0x00f6}
0x3176…318e              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x001f, t01=0x010e}
0x318e…31c6              Head {h00=0x0034, h01=0x0050, text=» XCOPY DEBINW3,W1,W1,RPOOL(BUFF1),W7 GET COUNTER«, t00=0x001f, t01=0x0126}
0x31c6…3200              Head {h00=0x0036, h01=0x0050, text=» CBNE DEBINW3,W1,DEP430 JUMP IF MORE THAN ONE USER«, t00=0x001f, t01=0x015e}
0x3200…3228              Head {h00=0x0024, h01=0x0050, text=» XCOPY RPOOL(BUFF1),W1,W6,KEY,W1«, t00=0x0020, t01=0x0008}
0x3228…324c              Head {h00=0x0020, h01=0x0050, text=» XCOPY DEBINW3,W1,W1,KEY,W0 «, t00=0x0020, t01=0x0030}
0x324c…3280              Head {h00=0x0030, h01=0x0050, text=» CBNE FC,W10,DEPO41 JUMP IF NOT ACCUMULATORS«, t00=0x0020, t01=0x0054}
0x3280…32aa              Head {h00=0x0026, h01=0x0050, text=» XCOPY RPOOL(BUFF1),W11,W6,KEY,W7 «, t00=0x0020, t01=0x0088}
0x32aa…32b8              Head {h00=0x000a, h01=0x0050, text=»DEPO41«, t00=0x0020, t01=0x00b2}
0x32b8…32e4              Head {h00=0x0028, h01=0x0050, text=» XCOPY DEBINW4,W1,W1,RPOOL(BUFF1),W0«, t00=0x0020, t01=0x00c0}
0x32e4…330c              Head {h00=0x0024, h01=0x0050, text=» CBE DEBINW4,W128,DEP420 LOCKED «, t00=0x0020, t01=0x00ec}
0x330c…3342              Head {h00=0x0032, h01=0x0050, text=» CBNE DEBINW4,W0,DEP430 JUMP IF ALREADY FIXED «, t00=0x0020, t01=0x0114}
0x3342…3350              Head {h00=0x000a, h01=0x0050, text=»DEP420«, t00=0x0020, t01=0x014a}
0x3350…336c              Head {h00=0x0018, h01=0x0050, text=» ADD DEBINW3,DEBINW4«, t00=0x0020, t01=0x0158}
0x336c…3398              Head {h00=0x0028, h01=0x0050, text=» XCOPY RPOOL(BUFF1),W0,W1,DEBINW3,W1«, t00=0x0020, t01=0x0174}
0x3398…33b6              Head {h00=0x001a, h01=0x0050, text=»DEP430 MOVE STR1A,KEY «, t00=0x0021, t01=0x0010}
0x33b6…33e4              Head {h00=0x002a, h01=0x0050, text=» CBE STR1A,=C'F',DEP440 HANDLE FORMATS«, t00=0x0021, t01=0x002e}
0x33e4…33f6              Head {h00=0x000e, h01=0x0050, text=» B DEPOOK «, t00=0x0021, t01=0x005c}
0x33f6…3420              Head {h00=0x0026, h01=0x0050, text=»DEP440   STORE THE RECORDLENGTH OF«, t00=0x0021, t01=0x006e}
0x3420…345c              Head {h00=0x0038, h01=0x0050, text=» XCOPY RECLNTH,W0,W2,BPOOL(BUFF1),W4 THE DATARECORD «, t00=0x0021, t01=0x0098}
0x345c…348a              Head {h00=0x002a, h01=0x0050, text=» MOVE BIN15,W0 GET THE TOTAL NUMBER OF«, t00=0x0021, t01=0x00d4}
0x348a…34c4              Head {h00=0x0036, h01=0x0050, text=» XCOPY BIN15,W1,W1,RPOOL(BUFF1),W17 FORMATRECORDS «, t00=0x0021, t01=0x0102}
0x34c4…34ec              Head {h00=0x0024, h01=0x0050, text=» MOVE BIN16,W0 GET THE NUMBER OF«, t00=0x0021, t01=0x013c}
0x34ec…352a              Head {h00=0x003a, h01=0x0050, text=» XCOPY BIN16,W1,W1,RPOOL(BUFF1),W18 DESCRIPTORRECORDS «, t00=0x0021, t01=0x0164}
0x352a…3554              Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW4,BUFF1 START OF CHAIN«, t00=0x0022, t01=0x0012}
0x3554…3586              Head {h00=0x002e, h01=0x0050, text=» CBE BIN16,W0,DEP470 JUMP IF NO DESCRIPTOR«, t00=0x0022, t01=0x003c}
0x3586…35b2              Head {h00=0x0028, h01=0x0050, text=» SUB BIN15,BIN16 JUST FORMATRECORDS «, t00=0x0022, t01=0x006e}
0x35b2…35d6              Head {h00=0x0020, h01=0x0050, text=»DEP450 MOVE DEBINW3,DEBINW4 «, t00=0x0022, t01=0x009a}
0x35d6…3616              Head {h00=0x003c, h01=0x0050, text=» XCOPY DEBINW4,W1,W1,RPOOL(DEBINW3),W8 GET LINK TO NEXT «, t00=0x0022, t01=0x00be}
0x3616…3640              Head {h00=0x0026, h01=0x0050, text=» TBT POOL1,DEP475 JUMP IF FORMATS «, t00=0x0022, t01=0x00fe}
0x3640…365c              Head {h00=0x0018, h01=0x0050, text=»DEP460 SUB BIN16,W1 «, t00=0x0022, t01=0x0128}
0x365c…366e              Head {h00=0x000e, h01=0x0050, text=» BP DEP450«, t00=0x0022, t01=0x0144}
0x366e…3694              Head {h00=0x0022, h01=0x0050, text=»DEP470 SET POOL1 FORMATRECORD «, t00=0x0022, t01=0x0156}
0x3694…36c0              Head {h00=0x0028, h01=0x0050, text=»DEP475 ADD BIN16,W1 SET FLINK INDEX «, t00=0x0022, t01=0x017c}
0x36c0…36e2              Head {h00=0x001e, h01=0x0050, text=» MOVE FLIND(BIN16),DEBINW4«, t00=0x0023, t01=0x0018}
0x36e2…36fe              Head {h00=0x0018, h01=0x0050, text=»DEP480 SUB BIN15,W1 «, t00=0x0023, t01=0x003a}
0x36fe…372a              Head {h00=0x0028, h01=0x0050, text=» BNZ DEP450 JUMP IF MORE FORMATRECS.«, t00=0x0023, t01=0x0056}
0x372a…373c              Head {h00=0x000e, h01=0x0050, text=» B DEPOOK «, t00=0x0023, t01=0x0082}
0x373c…374a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0094}
0x374a…3758              Head {h00=0x000a, h01=0x0050, text=»DEPO5 «, t00=0x0023, t01=0x00a2}
0x3758…376e              Head {h00=0x0012, h01=0x0050, text=» MOVE BUFF2,W0«, t00=0x0023, t01=0x00b0}
0x376e…3786              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x0023, t01=0x00c6}
0x3786…379e              Head {h00=0x0014, h01=0x0050, text=» MOVE STR1A,KEY «, t00=0x0023, t01=0x00de}
0x379e…37ba              Head {h00=0x0018, h01=0x0050, text=» CALL SETB,STR1A,W0 «, t00=0x0023, t01=0x00f6}
0x37ba…37c8              Head {h00=0x000a, h01=0x0050, text=»DEPO51«, t00=0x0023, t01=0x0112}
0x37c8…37de              Head {h00=0x0012, h01=0x0050, text=» MOVE BIN15,W1«, t00=0x0023, t01=0x0120}
0x37de…380e              Head {h00=0x002c, h01=0x0050, text=» MATCH RPOOL(DEBINW3),BIN15,W6,KEY,W1,W6«, t00=0x0023, t01=0x0136}
0x380e…3822              Head {h00=0x0010, h01=0x0050, text=» BOK DEPO53 «, t00=0x0023, t01=0x0166}
0x3822…3830              Head {h00=0x000a, h01=0x0050, text=»DEPO52«, t00=0x0023, t01=0x017a}
0x3830…3848              Head {h00=0x0014, h01=0x0050, text=» ADD DEBINW3,W1 «, t00=0x0023, t01=0x0188}
0x3848…386e              Head {h00=0x0022, h01=0x0050, text=» CALL CMPIND,DEBINW3,BPOOL(W1)«, t00=0x0024, t01=0x0010}
0x386e…3896              Head {h00=0x0024, h01=0x0050, text=» BNOK DEPON9 JUMP IF LAST INDEX «, t00=0x0024, t01=0x0036}
0x3896…38a8              Head {h00=0x000e, h01=0x0050, text=» B DEPO51 «, t00=0x0024, t01=0x005e}
0x38a8…38b6              Head {h00=0x000a, h01=0x0050, text=»DEPO53«, t00=0x0024, t01=0x0070}
0x38b6…38ea              Head {h00=0x0030, h01=0x0050, text=» CBNE FC,W9,DEPO58 JUMP IF NOT ACCUMULATORS «, t00=0x0024, t01=0x007e}
0x38ea…3902              Head {h00=0x0014, h01=0x0050, text=» MOVE BIN15,W11 «, t00=0x0024, t01=0x00b2}
0x3902…3932              Head {h00=0x002c, h01=0x0050, text=» MATCH RPOOL(DEBINW3),BIN15,W6,KEY,W7,W6«, t00=0x0024, t01=0x00ca}
0x3932…3946              Head {h00=0x0010, h01=0x0050, text=» BERR DEPO52«, t00=0x0024, t01=0x00fa}
0x3946…3954              Head {h00=0x000a, h01=0x0050, text=»DEPO58«, t00=0x0024, t01=0x010e}
0x3954…396a              Head {h00=0x0012, h01=0x0050, text=» MOVE BIN15,W0«, t00=0x0024, t01=0x011c}
0x396a…399a              Head {h00=0x002c, h01=0x0050, text=» MATCH RPOOL(DEBINW3),BIN15,W1,KEY,W0,W1«, t00=0x0024, t01=0x0132}
0x399a…39ae              Head {h00=0x0010, h01=0x0050, text=» BERR DEPO54«, t00=0x0024, t01=0x0162}
0x39ae…39c4              Head {h00=0x0012, h01=0x0050, text=» MOVE BUFF2,W1«, t00=0x0024, t01=0x0176}
0x39c4…39d6              Head {h00=0x000e, h01=0x0050, text=» B DEPO55 «, t00=0x0024, t01=0x018c}
0x39d6…39e4              Head {h00=0x000a, h01=0x0050, text=»DEPO54«, t00=0x0025, t01=0x000e}
0x39e4…39fa              Head {h00=0x0012, h01=0x0050, text=» MOVE BIN15,W0«, t00=0x0025, t01=0x001c}
0x39fa…3a2c              Head {h00=0x002e, h01=0x0050, text=» MATCH RPOOL(DEBINW3),BIN15,W1,STR1A,W0,W1«, t00=0x0025, t01=0x0032}
0x3a2c…3a40              Head {h00=0x0010, h01=0x0050, text=» BERR DEPO52«, t00=0x0025, t01=0x0064}
0x3a40…3a56              Head {h00=0x0012, h01=0x0050, text=» MOVE BUFF2,W2«, t00=0x0025, t01=0x0078}
0x3a56…3a64              Head {h00=0x000a, h01=0x0050, text=»DEPO55«, t00=0x0025, t01=0x008e}
0x3a64…3a86              Head {h00=0x001e, h01=0x0050, text=» CBNE STR1A,=X'D4',DEP565 «, t00=0x0025, t01=0x009c}
0x3a86…3aa6              Head {h00=0x001c, h01=0x0050, text=»   JUMP IF NOT VALUESET «, t00=0x0025, t01=0x00be}
0x3aa6…3ace              Head {h00=0x0024, h01=0x0050, text=» CBE ELMNO,W0,DEP565 JUMP IF NO «, t00=0x0025, t01=0x00de}
0x3ace…3aec              Head {h00=0x001a, h01=0x0050, text=»   ELEMENT IS SEARCHED«, t00=0x0025, t01=0x0106}
0x3aec…3b1a              Head {h00=0x002a, h01=0x0050, text=» XCOPY BIN15,W1,W1,RPOOL(DEBINW3),W17 «, t00=0x0025, t01=0x0124}
0x3b1a…3b48              Head {h00=0x002a, h01=0x0050, text=» XCOPY BIN16,W1,W1,RPOOL(DEBINW3),W18 «, t00=0x0025, t01=0x0152}
0x3b48…3b68              Head {h00=0x001c, h01=0x0050, text=» CBL ELMNO,BIN15,DEP560 «, t00=0x0025, t01=0x0180}
0x3b68…3b88              Head {h00=0x001c, h01=0x0050, text=» CBNG ELMNO,BIN16,DEP565«, t00=0x0026, t01=0x0010}
0x3b88…3b96              Head {h00=0x000a, h01=0x0050, text=»DEP560«, t00=0x0026, t01=0x0030}
0x3b96…3bac              Head {h00=0x0012, h01=0x0050, text=» MOVE BUFF2,W0«, t00=0x0026, t01=0x003e}
0x3bac…3bbe              Head {h00=0x000e, h01=0x0050, text=» B DEPO52 «, t00=0x0026, t01=0x0054}
0x3bbe…3bcc              Head {h00=0x000a, h01=0x0050, text=»DEP565«, t00=0x0026, t01=0x0066}
0x3bcc…3be8              Head {h00=0x0018, h01=0x0050, text=» MOVE BUFF1,DEBINW3 «, t00=0x0026, t01=0x0074}
0x3be8…3c04              Head {h00=0x0018, h01=0x0050, text=» CBE BUFF2,W2,DEP570«, t00=0x0026, t01=0x0090}
0x3c04…3c2c              Head {h00=0x0024, h01=0x0050, text=» CBE FC,W5,DEPO59 JUMP IF SEARCH«, t00=0x0026, t01=0x00ac}
0x3c2c…3c3a              Head {h00=0x000a, h01=0x0050, text=»DEP570«, t00=0x0026, t01=0x00d4}
0x3c3a…3c58              Head {h00=0x001a, h01=0x0050, text=» B DEPOOK JUMP IF SCAN«, t00=0x0026, t01=0x00e2}
0x3c58…3c66              Head {h00=0x000a, h01=0x0050, text=»DEPO59«, t00=0x0026, t01=0x0100}
0x3c66…3c82              Head {h00=0x0018, h01=0x0050, text=» MOVE BIN15,DEBINW3 «, t00=0x0026, t01=0x010e}
0x3c82…3cbe              Head {h00=0x0038, h01=0x0050, text=» XCOPY DEBINW4,W1,W1,RPOOL(BIN15),W7 GET THE COUNTER«, t00=0x0026, t01=0x012a}
0x3cbe…3cee              Head {h00=0x002c, h01=0x0050, text=» TBT POOL1,DEPO56 JUMP IF START OF CHAIN«, t00=0x0026, t01=0x0166}
0x3cee…3d12              Head {h00=0x0020, h01=0x0050, text=» SET POOL1 ALREADY HANDLED. «, t00=0x0027, t01=0x0008}
0x3d12…3d42              Head {h00=0x002c, h01=0x0050, text=» CBNE DEBINW4,W0,DEPO56 JUMP IF NOT = 0 «, t00=0x0027, t01=0x002c}
0x3d42…3d66              Head {h00=0x0020, h01=0x0050, text=» XCOPY STR1A,W0,W1,BIN15,W1 «, t00=0x0027, t01=0x005c}
0x3d66…3d90              Head {h00=0x0026, h01=0x0050, text=» CALL GETIND,LRUQUE,BIN16,DEBINW3 «, t00=0x0027, t01=0x0080}
0x3d90…3da8              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W0«, t00=0x0027, t01=0x00aa}
0x3da8…3de8              Head {h00=0x003c, h01=0x0050, text=» MATCH LRUQUE,DEBINW3,BIN16,STR1A,W0,W1 LOOK FOR BUFFER «, t00=0x0027, t01=0x00c2}
0x3de8…3dfc              Head {h00=0x0010, h01=0x0050, text=» BNOK DEPO56«, t00=0x0027, t01=0x0102}
0x3dfc…3e2a              Head {h00=0x002a, h01=0x0050, text=» DLETE LRUQUE,DEBINW3,W1 DELETE BUFFER«, t00=0x0027, t01=0x0116}
0x3e2a…3e40              Head {h00=0x0012, h01=0x0050, text=» SUB BIN16,W1 «, t00=0x0027, t01=0x0144}
0x3e40…3e68              Head {h00=0x0024, h01=0x0050, text=» XCOPY LRUQUE,BIN16,W1,HEX00,W0 «, t00=0x0027, t01=0x015a}
0x3e68…3e76              Head {h00=0x000a, h01=0x0050, text=»DEPO56«, t00=0x0027, t01=0x0182}
0x3e76…3e8e              Head {h00=0x0014, h01=0x0050, text=» ADD DEBINW4,W1 «, t00=0x0027, t01=0x0190}
0x3e8e…3ec8              Head {h00=0x0036, h01=0x0050, text=» XCOPY RPOOL(BIN15),W7,W1,DEBINW4,W1 STORE COUNTER«, t00=0x0028, t01=0x0018}
0x3ec8…3f06              Head {h00=0x003a, h01=0x0050, text=» XCOPY DEBINW3,W1,W1,RPOOL(BIN15),W8 GET LINK TO NEXT «, t00=0x0028, t01=0x0052}
0x3f06…3f38              Head {h00=0x002e, h01=0x0050, text=» CBE DEBINW3,W0,DEPOOK JUMP IF LAST BUFFER«, t00=0x0028, t01=0x0090}
0x3f38…3f4a              Head {h00=0x000e, h01=0x0050, text=» B DEPO59 «, t00=0x0028, t01=0x00c2}
0x3f4a…3f58              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x00d4}
0x3f58…3f66              Head {h00=0x000a, h01=0x0050, text=»DEPO6 «, t00=0x0028, t01=0x00e2}
0x3f66…3f7e              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0028, t01=0x00f0}
0x3f7e…3f94              Head {h00=0x0012, h01=0x0050, text=» MOVE BIN16,W0«, t00=0x0028, t01=0x0108}
0x3f94…3fc0              Head {h00=0x0028, h01=0x0050, text=» MOVE BIN15,BUFF1 GET START OF CHAIN«, t00=0x0028, t01=0x011e}
0x3fc0…3fdc              Head {h00=0x0018, h01=0x0050, text=» CBE BUFF1,W0,DEP690«, t00=0x0028, t01=0x014a}
0x3fdc…400a              Head {h00=0x002a, h01=0x0050, text=» CBE BUFF1,W1,DEPO6 MAKE AN IDLE-LOOP «, t00=0x0028, t01=0x0166}
0x400a…4018 (41, 0, 398) Head {h00=0x000a, h01=0x0050, text=»DEPO61«, t00=0x0029, t01=0x0004}
0x4018…4034              Head {h00=0x0018, h01=0x0050, text=» CBNE FC,W11,DEP610 «, t00=0x0029, t01=0x0012}
0x4034…404e              Head {h00=0x0016, h01=0x0050, text=» MOVE STR64A,HEX00«, t00=0x0029, t01=0x002e}
0x404e…4060              Head {h00=0x000e, h01=0x0050, text=» B DEP660 «, t00=0x0029, t01=0x0048}
0x4060…406e              Head {h00=0x000a, h01=0x0050, text=»DEP610«, t00=0x0029, t01=0x005a}
0x406e…40a6              Head {h00=0x0034, h01=0x0050, text=» XCOPY DEBINW4,W1,W1,RPOOL(BIN15),W7 GET COUNTER«, t00=0x0029, t01=0x0068}
0x40a6…40ce              Head {h00=0x0024, h01=0x0050, text=» SUB DEBINW4,W1 DECREASE COUNTER«, t00=0x0029, t01=0x00a0}
0x40ce…40e0              Head {h00=0x000e, h01=0x0050, text=» BG DEPO62«, t00=0x0029, t01=0x00c8}
0x40e0…410a              Head {h00=0x0026, h01=0x0050, text=» MOVE STR1A,RPOOL(BIN15) GET TYPE «, t00=0x0029, t01=0x00da}
0x410a…413a              Head {h00=0x002c, h01=0x0050, text=» TBT POOL1,DEPO62 JUMP IF START OF CHAIN«, t00=0x0029, t01=0x0104}
0x413a…4160              Head {h00=0x0022, h01=0x0050, text=» CBE STR1A,=C'F',DEP630 FORMAT«, t00=0x0029, t01=0x0134}
0x4160…418a              Head {h00=0x0026, h01=0x0050, text=» CBE STR1A,=C'T',DEP630 VALUE-SET «, t00=0x0029, t01=0x015a}
0x418a…4198              Head {h00=0x000a, h01=0x0050, text=»DEP620«, t00=0x0029, t01=0x0184}
0x4198…41b2 (42, 0, 400) Head {h00=0x0016, h01=0x0050, text=» MOVE STR1A,=C'X' «, t00=0x002a, t01=0x0004}
0x41b2…41dc              Head {h00=0x0026, h01=0x0050, text=» COPY RPOOL(BIN15),W0,W1,STR1A,W0 «, t00=0x002a, t01=0x001e}
0x41dc…41ee              Head {h00=0x000e, h01=0x0050, text=» B DEPO62 «, t00=0x002a, t01=0x0048}
0x41ee…41fc              Head {h00=0x000a, h01=0x0050, text=»DEP630«, t00=0x002a, t01=0x005a}
0x41fc…4226              Head {h00=0x0026, h01=0x0050, text=» CALL GETIND,LRUQUE,BIN16,DEBINW3 «, t00=0x002a, t01=0x0068}
0x4226…423e              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W0«, t00=0x002a, t01=0x0092}
0x423e…4282              Head {h00=0x0040, h01=0x0050, text=» MATCH LRUQUE,DEBINW3,BIN16,HEX00,W0,W1 LOOK FOR EMPTY PLACE«, t00=0x002a, t01=0x00aa}
0x4282…4296              Head {h00=0x0010, h01=0x0050, text=» BOK DEP640 «, t00=0x002a, t01=0x00ee}
0x4296…42c0              Head {h00=0x0026, h01=0x0050, text=» CBE STR1A,=C'T',DEP620 VALUE-SET «, t00=0x002a, t01=0x0102}
0x42c0…42da              Head {h00=0x0016, h01=0x0050, text=» MOVE STR1A,=C'X' «, t00=0x002a, t01=0x012c}
0x42da…42fe              Head {h00=0x0020, h01=0x0050, text=» XCOPY BIN16,W1,W1,LRUQUE,W0«, t00=0x002a, t01=0x0146}
0x42fe…4328              Head {h00=0x0026, h01=0x0050, text=» COPY RPOOL(BIN16),W0,W1,STR1A,W0 «, t00=0x002a, t01=0x016a}
0x4328…4344 (43, 0, 400) Head {h00=0x0018, h01=0x0050, text=» DLETE LRUQUE,W0,W1 «, t00=0x002b, t01=0x0004}
0x4344…435c              Head {h00=0x0014, h01=0x0050, text=» SUB DEBINW3,W1 «, t00=0x002b, t01=0x0020}
0x435c…436a              Head {h00=0x000a, h01=0x0050, text=»DEP640«, t00=0x002b, t01=0x0038}
0x436a…438e              Head {h00=0x0020, h01=0x0050, text=» SET POOL1 ALREADY HANDLED. «, t00=0x002b, t01=0x0046}
0x438e…43b2              Head {h00=0x0020, h01=0x0050, text=» XCOPY STR1A,W0,W1,BIN15,W1 «, t00=0x002b, t01=0x006a}
0x43b2…43dc              Head {h00=0x0026, h01=0x0050, text=» INSRT LRUQUE,DEBINW3,W1,STR1A,W0 «, t00=0x002b, t01=0x008e}
0x43dc…43ea              Head {h00=0x000a, h01=0x0050, text=»DEPO62«, t00=0x002b, t01=0x00b8}
0x43ea…4424              Head {h00=0x0036, h01=0x0050, text=» XCOPY RPOOL(BIN15),W7,W1,DEBINW4,W1 STORE COUNTER«, t00=0x002b, t01=0x00c6}
0x4424…4432              Head {h00=0x000a, h01=0x0050, text=»DEP660«, t00=0x002b, t01=0x0100}
0x4432…445c              Head {h00=0x0026, h01=0x0050, text=» XCOPY BIN16,W1,W1,RPOOL(BIN15),W8«, t00=0x002b, t01=0x010e}
0x445c…4478              Head {h00=0x0018, h01=0x0050, text=» CBNE FC,W11,DEP680 «, t00=0x002b, t01=0x0138}
0x4478…44a4              Head {h00=0x0028, h01=0x0050, text=» COPY RPOOL(BIN15),W11,W4,STR64A,W0 «, t00=0x002b, t01=0x0154}
0x44a4…44b2              Head {h00=0x000a, h01=0x0050, text=»DEP680«, t00=0x002b, t01=0x0180}
0x44b2…44cc              Head {h00=0x0016, h01=0x0050, text=» MOVE BIN15,BIN16 «, t00=0x002b, t01=0x018e}
0x44cc…44ea              Head {h00=0x001a, h01=0x0050, text=» CBNE BIN15,W0,DEPO61 «, t00=0x002c, t01=0x0018}
0x44ea…4500              Head {h00=0x0012, h01=0x0050, text=» MOVE BUFF1,W0«, t00=0x002c, t01=0x0036}
0x4500…450e              Head {h00=0x000a, h01=0x0050, text=»DEP690«, t00=0x002c, t01=0x004c}
0x450e…4520              Head {h00=0x000e, h01=0x0050, text=» B DEPOOK «, t00=0x002c, t01=0x005a}
0x4520…452e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x006c}
0x452e…454c              Head {h00=0x001a, h01=0x0050, text=»DEPO8 MOVE DEBINW4,W0 «, t00=0x002c, t01=0x007a}
0x454c…4584              Head {h00=0x0034, h01=0x0050, text=» XCOPY DEBINW4,W1,W1,RPOOL(BUFF1),W7 GET COUNTER«, t00=0x002c, t01=0x0098}
0x4584…45ba              Head {h00=0x0032, h01=0x0050, text=» CBNE DEBINW4,W1,DEPON11 JUMP IF NOT ONE USER «, t00=0x002c, t01=0x00d0}
0x45ba…45e6              Head {h00=0x0028, h01=0x0050, text=» XCOPY DEBINW4,W1,W1,RPOOL(BUFF1),W0«, t00=0x002c, t01=0x0106}
0x45e6…4610              Head {h00=0x0026, h01=0x0050, text=» CALL SETB,DEBINW4,W8 LOCK BUFFER «, t00=0x002c, t01=0x0132}
0x4610…463c              Head {h00=0x0028, h01=0x0050, text=» XCOPY RPOOL(BUFF1),W0,W1,DEBINW4,W1«, t00=0x002c, t01=0x015c}
0x463c…464e              Head {h00=0x000e, h01=0x0050, text=» B DEPOOK «, t00=0x002c, t01=0x0188}
0x464e…465c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x000a}
0x465c…4666              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0018}
0x4666…467a              Head {h00=0x0010, h01=0x0050, text=»* BAD RESULT«, t00=0x002d, t01=0x0022}
0x467a…4684              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0036}
0x4684…46a2              Head {h00=0x001a, h01=0x0050, text=»DEPON9 MOVE DEBINW4,W9«, t00=0x002d, t01=0x0040}
0x46a2…46b4              Head {h00=0x000e, h01=0x0050, text=» B DEPONO «, t00=0x002d, t01=0x005e}
0x46b4…46d4              Head {h00=0x001c, h01=0x0050, text=»DEPON11 MOVE DEBINW4,W11«, t00=0x002d, t01=0x0070}
0x46d4…46fa              Head {h00=0x0022, h01=0x0050, text=» MOVE STR6B,='FTJB' FUNCTIONS «, t00=0x002d, t01=0x0090}
0x46fa…4726              Head {h00=0x0028, h01=0x0050, text=» XCOPY STR1A,W0,W1,KEY,W0 CHECK FUNC«, t00=0x002d, t01=0x00b6}
0x4726…4748              Head {h00=0x001e, h01=0x0050, text=» MOVE BIN16,W0 POINTER:=0 «, t00=0x002d, t01=0x00e2}
0x4748…4772              Head {h00=0x0026, h01=0x0050, text=» MATCH STR6B,BIN16,W4,STR1A,W0,W1 «, t00=0x002d, t01=0x0104}
0x4772…4788              Head {h00=0x0012, h01=0x0050, text=» BNOK DEPON20 «, t00=0x002d, t01=0x012e}
0x4788…47a2              Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,W24 «, t00=0x002d, t01=0x0144}
0x47a2…47bc              Head {h00=0x0016, h01=0x0050, text=» ADD DEBINW4,BIN16«, t00=0x002d, t01=0x015e}
0x47bc…47ce              Head {h00=0x000e, h01=0x0050, text=» B DEPON20«, t00=0x002d, t01=0x0178}
0x47ce…47ee              Head {h00=0x001c, h01=0x0050, text=»DEPON13 MOVE DEBINW4,W13«, t00=0x002d, t01=0x018a}
0x47ee…47fc              Head {h00=0x000a, h01=0x0050, text=»DEPONO«, t00=0x002e, t01=0x001a}
0x47fc…4812              Head {h00=0x0012, h01=0x0050, text=» MOVE BUFF1,W0«, t00=0x002e, t01=0x0028}
0x4812…4822              Head {h00=0x000c, h01=0x0050, text=»DEPON20 «, t00=0x002e, t01=0x003e}
0x4822…4834              Head {h00=0x000e, h01=0x0050, text=» CMP W1,W2«, t00=0x002e, t01=0x004e}
0x4834…4840              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002e, t01=0x0060}
0x4840…484a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x006c}
0x484a…4862              Head {h00=0x0014, h01=0x0050, text=»* BUFFERS FOUND «, t00=0x002e, t01=0x0076}
0x4862…486c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x008e}
0x486c…487a              Head {h00=0x000a, h01=0x0050, text=»DEPOOK«, t00=0x002e, t01=0x0098}
0x487a…4892              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x002e, t01=0x00a6}
0x4892…48a4              Head {h00=0x000e, h01=0x0050, text=» CMP W1,W1«, t00=0x002e, t01=0x00be}
0x48a4…48b0              Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x002e, t01=0x00d0}
0x48b0…48be              Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x002e, t01=0x00dc}
0x48be…48cc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x00ea}
0x48cc…490e              Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x002e, t01=0x00f8}
0x490e…494a              Head {h00=0x0038, h01=0x0050, text=»* THIS PROCEDURE FREE BUFFERELEMENTS IN THE LRUQUE. «, t00=0x002e, t01=0x013a}
0x494a…496c              Head {h00=0x001e, h01=0x0050, text=»* THE CALLING SEQUENCE IS:«, t00=0x002e, t01=0x0176}
0x496c…498a              Head {h00=0x001a, h01=0x0050, text=»*        PERF  DELRUF «, t00=0x002f, t01=0x0008}
0x498a…4994              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0026}
0x4994…49d6              Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x002f, t01=0x0030}
0x49d6…49ea              Head {h00=0x0010, h01=0x0050, text=»DELRUF PROC «, t00=0x002f, t01=0x0072}
0x49ea…4a02              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x002f, t01=0x0086}
0x4a02…4a40              Head {h00=0x003a, h01=0x0050, text=» XCOPY DEBINW4,W1,W1,LRUQUE,W0 GET INDEX TO THE FIRST «, t00=0x002f, t01=0x009e}
0x4a40…4a5c              Head {h00=0x0018, h01=0x0050, text=»   BUFFER IN LRUQUE «, t00=0x002f, t01=0x00dc}
0x4a5c…4a8c              Head {h00=0x002c, h01=0x0050, text=» CBNE DEBINW4,W0,DEL10 JUMP IF THERE ARE«, t00=0x002f, t01=0x00f8}
0x4a8c…4aaa              Head {h00=0x001a, h01=0x0050, text=»   POOLINDEX IN LRUQUE«, t00=0x002f, t01=0x0128}
0x4aaa…4abc              Head {h00=0x000e, h01=0x0050, text=» CMP W1,W2«, t00=0x002f, t01=0x0146}
0x4abc…4ac8              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002f, t01=0x0158}
0x4ac8…4ad6              Head {h00=0x000a, h01=0x0050, text=»DEL10 «, t00=0x002f, t01=0x0164}
0x4ad6…4aee              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W0«, t00=0x002f, t01=0x0172}
0x4aee…4b12              Head {h00=0x0020, h01=0x0050, text=» MOVE STR1A,=C'X' FREE-MARK «, t00=0x002f, t01=0x018a}
0x4b12…4b20              Head {h00=0x000a, h01=0x0050, text=»DEL11 «, t00=0x0030, t01=0x001e}
0x4b20…4b4c              Head {h00=0x0028, h01=0x0050, text=» XCOPY RPOOL(DEBINW4),W0,W1,STR1A,W0«, t00=0x0030, t01=0x002c}
0x4b4c…4b8c              Head {h00=0x003c, h01=0x0050, text=» XCOPY DEBINW3,W1,W1,RPOOL(DEBINW4),W8 GET LINK TO NEXT «, t00=0x0030, t01=0x0058}
0x4b8c…4bba              Head {h00=0x002a, h01=0x0050, text=» CBE DEBINW3,W0,DEL12 JUMP IF LINK = 0«, t00=0x0030, t01=0x0098}
0x4bba…4bf0              Head {h00=0x0032, h01=0x0050, text=» XCOPY RPOOL(DEBINW4),W8,W1,W0,W1 SET LINK = 0«, t00=0x0030, t01=0x00c6}
0x4bf0…4c20              Head {h00=0x002c, h01=0x0050, text=» MOVE DEBINW4,DEBINW3 CURRENT POOLINDEX «, t00=0x0030, t01=0x00fc}
0x4c20…4c30              Head {h00=0x000c, h01=0x0050, text=» B DEL11«, t00=0x0030, t01=0x012c}
0x4c30…4c3e              Head {h00=0x000a, h01=0x0050, text=»DEL12 «, t00=0x0030, t01=0x013c}
0x4c3e…4c72              Head {h00=0x0030, h01=0x0050, text=» DLETE LRUQUE,W0,W1 DELETE FREE BUFFERCHAIN «, t00=0x0030, t01=0x014a}
0x4c72…4c9e              Head {h00=0x0028, h01=0x0050, text=» CALL GETIND,LRUQUE,DEBINW3,DEBINW4 «, t00=0x0030, t01=0x017e}
0x4c9e…4cb6              Head {h00=0x0014, h01=0x0050, text=» SUB DEBINW3,W1 «, t00=0x0031, t01=0x001a}
0x4cb6…4ce0              Head {h00=0x0026, h01=0x0050, text=» XCOPY LRUQUE,DEBINW3,W1,HEX00,W0 «, t00=0x0031, t01=0x0032}
0x4ce0…4cf2              Head {h00=0x000e, h01=0x0050, text=» CMP W1,W1«, t00=0x0031, t01=0x005c}
0x4cf2…4cfe              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0031, t01=0x006e}
0x4cfe…4d0c              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0031, t01=0x007a}
0x4d0c…4d1a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0088}
0x4d1a…4d56              Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0031, t01=0x0096}
0x4d56…4d8c              Head {h00=0x0032, h01=0x0050, text=»* THIS PROCEDURE RESERV THE REQUESTED BUFFERS «, t00=0x0031, t01=0x00d2}
0x4d8c…4dc6              Head {h00=0x0036, h01=0x0050, text=»* PERMANENTLY WHEN ALL REQUESTED BUFFERS ARE FOUND«, t00=0x0031, t01=0x0108}
0x4dc6…4de8              Head {h00=0x001e, h01=0x0050, text=»* THE CALLING SEQUENCE IS:«, t00=0x0031, t01=0x0142}
0x4de8…4e12              Head {h00=0x0026, h01=0x0050, text=»*        PERF  DEPORE,<WBIN>,<FC> «, t00=0x0031, t01=0x0164}
0x4e12…4e1c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x018e}
0x4e1c…4e46              Head {h00=0x0026, h01=0x0050, text=»*             RETURNED PARAMETER: «, t00=0x0032, t01=0x0008}
0x4e46…4e80              Head {h00=0x0036, h01=0x0050, text=»*        <WBIN> = POOLINDEX TO THE FIRST RESERVED «, t00=0x0032, t01=0x0032}
0x4e80…4eaa              Head {h00=0x0026, h01=0x0050, text=»*                 BUFFER IN RPOOL.«, t00=0x0032, t01=0x006c}
0x4eaa…4ee6              Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0032, t01=0x0096}
0x4ee6…4f02              Head {h00=0x0018, h01=0x0050, text=»DEPORE PROC WBIN,FC «, t00=0x0032, t01=0x00d2}
0x4f02…4f1a              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W0«, t00=0x0032, t01=0x00ee}
0x4f1a…4f32              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0032, t01=0x0106}
0x4f32…4f52              Head {h00=0x001c, h01=0x0050, text=» IB FC,DEO1,DEPO10,DEO3 «, t00=0x0032, t01=0x011e}
0x4f52…4f60              Head {h00=0x000a, h01=0x0050, text=»DEPO10«, t00=0x0032, t01=0x013e}
0x4f60…4f88              Head {h00=0x0024, h01=0x0050, text=» MOVE STR1A,=X'80' BUFFER LOCKED«, t00=0x0032, t01=0x014c}
0x4f88…4f98              Head {h00=0x000c, h01=0x0050, text=» B DEO1B«, t00=0x0032, t01=0x0174}
0x4f98…4fa4              Head {h00=0x0008, h01=0x0050, text=»DEO1«, t00=0x0032, t01=0x0184}
0x4fa4…4fd2              Head {h00=0x002a, h01=0x0050, text=» MOVE STR1A,HEX00 BUFFER WITHOUT LOCK «, t00=0x0032, t01=0x0190}
0x4fd2…4fe0              Head {h00=0x000a, h01=0x0050, text=»DEO1B «, t00=0x0033, t01=0x002e}
0x4fe0…4ff6              Head {h00=0x0012, h01=0x0050, text=» MOVE WBIN,W0 «, t00=0x0033, t01=0x003c}
0x4ff6…502a              Head {h00=0x0030, h01=0x0050, text=» XCOPY WBIN,W1,W1,STR64A,W0 GET FIRST BUFFER«, t00=0x0033, t01=0x0052}
0x502a…503a              Head {h00=0x000c, h01=0x0050, text=» B DEO3B«, t00=0x0033, t01=0x0086}
0x503a…5046              Head {h00=0x0008, h01=0x0050, text=»DEO3«, t00=0x0033, t01=0x0096}
0x5046…5066              Head {h00=0x001c, h01=0x0050, text=» MOVE STR1A,RPOOL(WBIN) «, t00=0x0033, t01=0x00a2}
0x5066…5090              Head {h00=0x0026, h01=0x0050, text=» XCOPY BIN15,W1,W1,RPOOL(WBIN),W8 «, t00=0x0033, t01=0x00c2}
0x5090…50a0              Head {h00=0x000c, h01=0x0050, text=» B DEO3C«, t00=0x0033, t01=0x00ec}
0x50a0…50ae              Head {h00=0x000a, h01=0x0050, text=»DEO3B «, t00=0x0033, t01=0x00fc}
0x50ae…50ce              Head {h00=0x001c, h01=0x0050, text=» MOVE RPOOL(WBIN),HEX00 «, t00=0x0033, t01=0x010a}
0x50ce…5108              Head {h00=0x0036, h01=0x0050, text=» XCOPY RPOOL(WBIN),W0,W1,STR1A,W0 LOCK/NOT LOCKED «, t00=0x0033, t01=0x012a}
0x5108…5140              Head {h00=0x0034, h01=0x0050, text=» XCOPY RPOOL(WBIN),W7,W1,W1,W1 SET COUNTER TO 1 «, t00=0x0033, t01=0x0164}
0x5140…516e              Head {h00=0x002a, h01=0x0050, text=» ADD DEBINW3,W1 POINTER TO NEXT INDEX «, t00=0x0034, t01=0x000c}
0x516e…517c              Head {h00=0x000a, h01=0x0050, text=»DEO3C «, t00=0x0034, t01=0x003a}
0x517c…51b6              Head {h00=0x0036, h01=0x0050, text=» XCOPY DEBINW4,W1,W1,STR64A,DEBINW3 GET NEXT INDEX«, t00=0x0034, t01=0x0048}
0x51b6…51ea              Head {h00=0x0030, h01=0x0050, text=» CBE DEBINW4,W0,DE04 JUMP IF NO MORE BUFFERS«, t00=0x0034, t01=0x0082}
0x51ea…5226              Head {h00=0x0038, h01=0x0050, text=» XCOPY RPOOL(WBIN),W8,W1,STR64A,DEBINW3 LINK TO NEXT«, t00=0x0034, t01=0x00b6}
0x5226…5240              Head {h00=0x0016, h01=0x0050, text=» MOVE WBIN,DEBINW4«, t00=0x0034, t01=0x00f2}
0x5240…5250              Head {h00=0x000c, h01=0x0050, text=» B DEO3B«, t00=0x0034, t01=0x010c}
0x5250…525c              Head {h00=0x0008, h01=0x0050, text=»DE04«, t00=0x0034, t01=0x011c}
0x525c…528c              Head {h00=0x002c, h01=0x0050, text=» CBNE FC,W3,DEPO90 JUMP IF NOT CHAINING «, t00=0x0034, t01=0x0128}
0x528c…52a8              Head {h00=0x0018, h01=0x0050, text=» CBE BIN15,W0,DEPO90«, t00=0x0034, t01=0x0158}
0x52a8…52d2              Head {h00=0x0026, h01=0x0050, text=» XCOPY RPOOL(WBIN),W8,W1,BIN15,W1 «, t00=0x0034, t01=0x0174}
0x52d2…52e0              Head {h00=0x000a, h01=0x0050, text=»DEPO90«, t00=0x0035, t01=0x000e}
0x52e0…531c              Head {h00=0x0038, h01=0x0050, text=» XCOPY WBIN,W1,W1,STR64A,W0 RETURN FIRST BUFFERINDEX«, t00=0x0035, t01=0x001c}
0x531c…5328              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0035, t01=0x0058}
0x5328…5336              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0035, t01=0x0064}
0x5336…5342              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0035, t01=0x0072}
0x5342…5350              Head {h00=0x000a, h01=0x0050, text=»TRA /S«, t00=0x0035, t01=0x007e}
0x5350…535e              Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0035, t01=0x008c}
0x535e…536a              Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0035, t01=0x009a}
0x536a…536e              Head {h00=0x4004, h01=0x0000}
0x536e…5370              00 35                                                                                                                                                                                                                                             ┆ 5┆
0x5370…5372              00 a6                                                                                                                                                                                                                                             ┆  ┆
0x5372…537a (54, 1, 8)   20 04 00 00 00 36 00 04                                                                                                                                                                                                                           ┆     6  ┆
0x537a…53ca (55, 0, 400) 04 7a 03 e9 03 f8 03 fe 04 6e 04 72 04 76 36 00 04 00 13 26 39 30 19 10 41 21 02 e5 01 50 05 80 01 4b e0 0f 80 02 34 03 30 1a 10 41 21 02 e5 01 50 05 80 01 4b e0 0f 80 02 34 03 30 19 10 41 76 02 e5 01 50 05 80 01 4b e0 0f 80 02 34 03 30 1a   ┆ z       n r v6    &90  A!   P   K    4 0  A!   P   K    4 0  Av   P   K    4 0 ┆
0x53ca…541a              10 41 76 02 e5 01 50 05 80 01 4b e0 0f 80 02 34 03 30 19 10 41 76 a0 65 00 80 02 34 01 30 1a 10 41 76 a0 65 00 80 02 34 01 40 e0 30 12 10 e2 00 98 e2 01 e3 34 30 1b e2 e3 50 05 00 93 36 34 00 01 e3 33 30 1b e2 e3 50 05 01 93 32 34 00 00 e3   ┆ Av   P   K    4 0  Av e   4 0  Av e   4 @ 0        40   P   64   30   P   24   ┆
0x541a…546a              12 30 1b e2 e3 50 04 41 e0 34 00 00 e3 21 30 1b e2 e3 50 03 01 93 31 34 00 80 03 00 e2 45 00 62 52 20 2a 19 e2 29 62 52 2a 13 1b e2 20 00 e2 49 00 30 1a 10 41 00 52 e5 e2 56 02 80 01 80 02 34 01 80 03 30 19 10 41 01 52 e5 00 56 05 80 01 4b   ┆ 0   P A 4   !0   P   14     E bR *  )bR*      I 0  A R  V     4   0  A R  V   K┆
0x546a…54ba              e0 0f 00 e2 45 01 00 49 01 00 62 19 e2 29 2a 52 20 62 1b e2 20 13 52 2a 80 02 34 02 49 73 07 80 04 21 00 01 57 05 80 04 23 00 01 34 02 49 73 07 80 04 22 00 01 5f 0c 80 04 24 00 01 5f 13 80 03 80 04 23 60 52 52 0e 62 1b 7c 20 13 52 2a 6a 19   ┆    E  I  b  )*R b    R*  4 Is   !  W   #  4 Is   "  _   $  _     #`RR b |  R*j ┆
0x54ba…550a              7c 29 22 60 20 80 02 34 00 80 03 01 52 36 62 52 2a 13 1b 7c 20 6a 60 20 22 19 7c 29 80 04 24 60 52 80 02 34 00 80 05 60 76 56 02 41 70 01 9a 35 62 a0 20 22 9a 20 6a a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01   ┆|)"`   4    R6bR*  | j` " |)  $`R  4   `vV Ap  5b  "  j                         ┆
0x550a…555a (56, 0, 400) 24 22 60 20 80 06 75 56 3e 80 05 61 76 00 75 61 6a 62 20 22 a0 22 20 62 20 28 80 07 62 52 23 6a a0 24 22 75 20 80 06 62 5e 26 6a 62 20 22 52 22 20 62 20 0e 80 07 62 52 09 6a a0 24 22 20 20 80 06 62 00 93 35 57 1b 6a a0 22 22 75 20 6a a0 24   ┆$"`   uV>  av uajb " " b (  bR#j $"u   b^&jb "R" b    bR j $"    b  5W j ""u j $┆
0x555a…55aa              22 20 20 6a a0 26 22 2a 20 00 75 60 48 70 03 00 93 2a 3f 01 80 08 80 09 76 3f 01 80 06 75 3f 01 00 60 20 5f 80 80 07 75 29 93 32 03 00 93 20 3f 01 6a 60 20 22 a0 24 80 07 60 3a 01 20 00 30 1c 6a 61 20 22 a0 22 20 61 20 0d 20 75 61 0e 6a a0   ┆"  j &"*  u`Hp   *?     v?   u?  ` _   u) 2    ? j` " $  `:   0 ja " " a   ua j ┆
0x55aa…55fa              24 22 20 20 80 06 60 00 93 29 3f 01 00 75 60 3f 01 6a 60 20 22 a0 22 5f 32 41 73 80 0a a0 00 75 61 3f 01 00 93 20 40 75 40 76 00 e2 45 01 30 1c 1b e2 19 e2 00 20 00 20 0e 04 3f 01 21 22 3f 01 15 01 31 41 78 57 2d 6a e4 20 22 19 e2 2d 20 e4   ┆$"    `  )?  u`? j` " "_2As    ua?    @u@v  E 0           ? !"?   1AxW-j  "  -  ┆
0x55fa…564a              20 15 80 0b 80 09 01 52 0a 80 0c e4 01 52 04 80 0d 5f 39 80 0d 57 0d 49 75 07 41 75 00 e4 22 5f 1f 00 93 2a 22 01 21 02 41 e1 80 02 34 02 80 0e 00 01 30 1d 1b 63 19 63 00 02 3f 01 21 28 01 21 02 41 e1 80 02 34 02 00 e2 21 20 01 21 06 00 e2   ┆       R     R   _9  W Iu Au  "_   *" ! A   4     0  c c  ? !( ! A   4   !  !   ┆
0x564a…569a              65 0a e2 e5 00 63 45 01 6a e3 20 22 19 63 2f 04 e3 2c 08 e3 28 0a e3 e2 08 e3 e2 6a e2 20 22 19 63 31 00 e4 e2 02 e2 e3 04 e2 21 22 00 e2 0a 24 00 e4 29 00 63 45 01 34 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08   ┆e    cE j  " c/  ,  (      j  " c1        !"   $  ) cE 4                        ┆
0x569a…56ea (57, 0, 400) 02 00 e2 2d 6a 63 20 22 19 63 e2 10 63 20 14 80 0b 80 09 01 52 0a 80 0c 63 01 52 04 80 0d 5f 61 80 0d 5f 29 00 e2 2b 5f 25 80 0e 00 01 30 1e 1b 63 19 63 00 34 02 00 e9 21 93 00 e2 21 00 e3 21 80 0f 22 e2 e3 9d 56 04 30 15 5f 12 00 e9 22 e2   ┆   -jc " c  c       R   c R   _a  _)  +_%    0  c c 4   !   !  !  "   V 0 _   " ┆
0x56ea…573a              62 19 e2 29 2a 52 20 62 1b e2 20 13 52 2a 00 93 e9 21 34 00 00 e2 e9 22 62 52 20 2a 19 e2 29 62 52 2a 13 1b e2 20 80 0f 26 e2 e2 9d 34 00 40 6b 40 6c 6a 61 20 22 00 22 6a 60 20 22 00 24 28 60 20 04 41 6c 57 3d 80 10 60 00 52 67 6a 64 20 22   ┆b  )*R b    R*   !4    "bR *  )bR*      &   4 @k@lja " "j` " $(`  AlW=  ` Rgjd "┆
0x573a…578a              00 22 6a 00 22 22 61 20 28 61 20 23 80 11 64 00 6a 61 20 22 00 24 20 61 20 10 80 10 61 00 52 43 6a 00 22 22 64 20 80 11 61 00 00 64 60 57 08 80 11 60 00 28 61 20 07 41 6b 49 6c 27 57 18 80 10 61 00 52 1f 6a 64 20 22 00 24 6a 00 24 22 60 20   ┆ "j ""a (a #  d ja " $ a    a RCj ""d   a  d`W   ` (a  AkIl'W   a R jd " $j $"` ┆
0x578a…57da              80 11 61 00 52 0d 00 60 76 49 73 03 00 60 21 80 12 64 60 80 02 34 01 24 00 01 00 00 02 6f 00 12 00 01 00 79 00 00 02 85 00 00 02 9c 00 01 00 0e 00 01 02 3b 00 01 00 6d 00 01 00 61 00 01 01 49 00 01 00 b9 00 01 03 6e 00 01 03 26 00 01 00 e1   ┆  a R  `vIs  `!  d`  4 $     o     y               ;   m   a   I       n   &    ┆
0x57da…582a              00 01 03 54 00 01 02 af 00 07 00 0e 00 01 01 0c 00 01 01 1d 00 01 02 96 00 17 00 1e 08 00 80 22 44 53 41 43 00 01 20 02 00 00 20 02 00 02 20 02 00 04 20 02 00 06 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01   ┆   T                           "DSAC                                            ┆
0x582a…587a (58, 0, 400) 00 08 00 03 00 0a 04 56 04 48 04 6e 04 55 04 6e 04 55 20 22 a0 22 20 62 20 28 80 07 62 52 23 6a a0 24 22 75 20 80 06 62 5e 26 6a 62 20 22 52 22 20 62 20 0e 80 07 62 52 09 6a a0 24 22 20 20 80 06 62 00 93 35 57 1b 6a a0 22 22 75 20 6a a0 24   ┆       V H n U n U " " b (  bR#j $"u   b^&jb "R" b    bR j $"    b  5W j ""u j $┆
0x587a…58ca              22 20 20 6a a0 26 22 2a 20 00 75 60 48 70 03 00 93 2a 3f 01 80 08 80 09 76 3f 01 80 06 75 3f 01 00 60 20 5f 80 80 07 75 29 93 32 03 00 93 20 3f 01 6a 60 20 22 a0 24 80 07 60 3a 01 20 00 30 1c 6a 61 20 22 a0 22 20 61 20 0d 20 75 61 0e 6a a0   ┆"  j &"*  u`Hp   *?     v?   u?  ` _   u) 2    ? j` " $  `:   0 ja " " a   ua j ┆
0x58ca…591a              24 22 20 20 80 06 60 00 93 29 3f 01 00 75 60 3f 01 6a 60 20 22 a0 22 5f 32 41 73 80 0a a0 00 75 61 3f 01 00 93 20 40 75 40 76 00 e2 45 01 30 1c 1b e2 19 e2 00 20 00 20 0e 04 3f 01 21 22 3f 01 15 01 31 41 78 57 2d 6a e4 20 22 19 e2 2d 20 e4   ┆$"    `  )?  u`? j` " "_2As    ua?    @u@v  E 0           ? !"?   1AxW-j  "  -  ┆
0x591a…596a              20 15 80 0b 80 09 01 52 0a 80 0c e4 01 52 04 80 0d 5f 39 80 0d 57 0d 49 75 07 41 75 00 e4 22 5f 1f 00 93 2a 22 01 21 02 41 e1 80 02 34 02 80 0e 00 01 30 1d 1b 63 19 63 00 02 3f 01 21 28 01 21 02 41 e1 80 02 34 02 00 e2 21 20 01 21 06 00 e2   ┆       R     R   _9  W Iu Au  "_   *" ! A   4     0  c c  ? !( ! A   4   !  !   ┆
0x596a…59ba              65 0a e2 e5 00 63 45 01 6a e3 20 22 19 63 2f 04 e3 2c 08 e3 28 0a e3 e2 08 e3 e2 6a e2 20 22 19 63 31 00 e4 e2 02 e2 e3 04 e2 21 22 00 e2 0a 24 00 e4 29 00 63 45 01 34 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08   ┆e    cE j  " c/  ,  (      j  " c1        !"   $  ) cE 4                        ┆
0x59ba…5a0a (59, 0, 400) 04 f6 04 2e 04 3c 04 5a 04 ea 04 ee 04 f2 00 93 20 32 00 04 01 02 03 04 48 11 04 30 15 5f 07 41 e3 54 88 41 11 40 73 02 43 21 21 22 43 21 21 7b 01 9d 3b 00 6b 56 21 30 1f 10 41 21 52 9d 6b 50 12 30 20 10 41 21 52 20 40 e3 00 93 34 04 43 21   ┆   . < Z         2      H  0 _ A T A @s C!!"C!!{  ; kV!0  A!R kP 0  A!R @   4 C!┆
0x5a0a…5a5a              21 57 58 00 5e 55 00 e2 21 30 21 e2 1b 21 54 09 01 19 e2 38 02 e2 21 5f 10 80 01 60 21 00 3f 21 60 80 02 21 21 52 6a 15 21 20 22 52 25 6a 47 21 20 22 52 21 00 e2 21 00 e3 21 80 03 22 e2 e3 9d 5c 51 00 45 21 e2 80 04 22 21 50 0c 00 e3 45 21   ┆!WX ^U  !0!  !T    8  !_   `! ?!`  !!Rj ! "R%jG! "R!  !  !  "    Q E!   "!P   E!┆
0x5a5a…5aaa              80 03 26 e3 e3 9d 5f 67 80 05 33 40 11 80 06 34 01 48 e3 2f 40 e3 04 43 21 21 22 43 21 20 24 80 07 21 54 18 80 02 21 21 52 54 11 80 02 22 21 52 54 0a 00 e3 45 21 80 03 26 e3 e3 9d 30 20 10 41 21 52 20 80 06 34 01 48 12 11 30 15 5f 07 80 02   ┆  &   _g  3@   4 H /@  C!!"C! $  !T   !!RT   "!RT   E!  &   0  A!R   4 H  0 _   ┆
0x5aaa…5afa              23 21 a0 52 99 80 08 52 95 57 9b 41 e4 54 9d 41 12 40 70 02 43 76 21 12 43 76 21 1e 01 9d 3a 00 9b 56 76 30 1f 10 41 76 a0 9d 9b 54 67 80 01 60 76 50 02 41 70 00 3f 76 60 80 02 23 21 a0 52 54 6a 15 76 20 22 a0 25 00 e2 20 6a e2 21 21 a0 20   ┆#! R   R W A T A @p Cv! Cv!   :  Vv0  Av   Tg  `vP Ap ?v`  #! RTj v " %   j !!  ┆
0x5afa…5b4a              6a 47 76 20 22 a0 21 20 e2 20 02 41 70 6a a0 20 21 27 21 80 02 24 21 a0 50 02 41 70 80 08 52 24 00 e4 21 00 e3 21 80 03 22 e4 e3 9d 54 16 00 45 76 e4 80 04 22 76 80 09 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01   ┆jGv " !    Apj  !'!  $! P Ap  R$  !  !  "   T  Ev   "v                          ┆
0x5b4a…5b9a (60, 0, 400) 50 1c 00 e2 45 76 80 03 26 e2 e3 9d 30 20 10 41 76 52 20 00 93 35 40 e4 04 43 76 21 57 06 48 70 03 01 93 36 40 12 80 06 34 01 48 e4 34 40 e4 04 43 76 21 51 2c 80 07 76 80 09 54 1e 00 e2 45 76 80 03 26 e2 e3 9d 80 02 23 21 a0 54 0d 6a a0 20   ┆P   Ev  &   0  AvR   5@  Cv!W Hp   6@   4 H 4@  Cv!Q,  v  T   Ev  &     #! T j  ┆
0x5b9a…5bea              21 20 21 80 02 24 21 a0 54 00 30 20 10 41 76 52 20 80 06 34 01 6a e5 20 22 a0 29 28 e5 20 03 01 e5 34 6a e2 20 22 a0 27 28 e2 20 03 00 e2 21 08 e2 e5 30 03 a0 e3 e4 2a e2 e3 08 00 93 36 01 98 3c 57 09 00 65 e2 04 e2 2f 00 73 e2 80 06 34 00   ┆! !  $! T 0  AvR   4 j  " )(     4j  " '(     !   0    *     6  <W  e   / s   4 ┆
0x5bea…5c3a              80 0a 3a 05 00 9b 6d 80 0b 60 21 3a 05 00 e9 29 60 57 7d 00 64 24 00 62 64 80 02 21 62 52 56 06 21 93 31 35 3f 05 6a 63 20 22 52 26 23 63 32 31 6a 9d 20 22 20 20 62 9d 22 26 6d 20 6a 9d 28 22 e9 29 20 62 52 63 2a 9d 20 02 63 2a 6a 52 26 22   ┆  :   m  `!:   )`W} d$ bd  !bRV ! 15? jc "R&#c21j  "  b "&m j (" ) bRc*   c*jR&"┆
0x5c3a…5c8a              63 20 80 02 22 64 52 3f 05 00 62 20 00 93 20 57 1b 6a 64 20 22 52 24 18 64 20 55 80 0b 64 21 3a 05 6a 52 24 22 64 20 80 02 22 62 52 00 63 2a 01 52 39 6a 52 22 22 62 20 6a 52 24 22 20 20 5f 60 00 62 7b 80 0c 21 00 61 20 6a 61 21 21 19 62 28   ┆c   "dR?  b    W jd "R$ d U  d!: jR$"d   "bR c* R9jR""b jR$"  _` b{  ! a ja!! b(┆
0x5c8a…5cda              6a 52 28 22 19 62 31 20 61 20 41 80 0b 63 21 56 11 00 61 e9 29 00 e9 29 93 80 02 21 61 52 3a 05 3f 06 6a 52 24 22 63 20 62 52 2a 13 1b 62 20 80 02 22 60 52 3a 05 48 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08   ┆jR(" b1 a A  c!V  a )  )   !aR: ? jR$"c bR*  b   "`R: Hp                        ┆

Reduced view