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

⟦8172fafff⟧

    Length: 23378 (0x5b52)
    Notes: pts_type(SC)
    Names: »C:CCH.SC«

Derivation

└─⟦2a21e4bb5⟧ Bits:30009691 Philips computer tape "600408"
    └─⟦this⟧ »BDKAPP/C:CCH.SC« 

PTS(SC)

	IDENT C:CCH 	CONPAC REL=0.0 DATE= 77.10.12 
			UPDATE #2 77.09.26 JES 
*************************************************************** 
* 
*	CONCENTRATOR APPLICATION PACKAGE  PEAB-T
* 
*	PROGRAMMER:  PER OMAN / PAN 
* 
* 
*	C : C C H 
* 
* 
*   * 
*   THIS MODULE CONTAINS THE ROUTINES HANDLING
*   CC COMMUNICATION
*   * 
* 
* 
*	THIS MODULE RUNS UNDER TASK:  ANY 
* 
* 
*	THE MODULE CONTAINS THE SUBROUTINES:
* 
*	NAME	REVDAT	VERSION 
* 
*	K:CCW	77 05 04
*	K:CCQ	77 05 04
*	K:CCR	77 05 04
*	K:RBCC	77 05 04 
*	K:RCCB	77 05 04 
* 
****************************************************************
	EJECT		IDENT C:CCH 
* 
* 
*	ENTRY ADDRESSES 
* 
*************************************************************** 
* 
*		ENTRY	DESCRIPTION
* 
	ENTRY	K:CCW	WRITE TO CC
	ENTRY	K:CCQ	WRITE AND READ CC
	ENTRY	K:CCR	READ CC WITH ALLOCATED ECB 
	ENTRY	K:RBCC	RELEASE CC READ BUFFER AND ECB
	ENTRY	K:RCCB	RELEASE CC READ BUFFER ONLY 

	EJECT		IDENT C:CCH 
* 
* 
*	EXTERNAL REFERENSES 
* 
*************************************************************** 
* 
*		ADDRESS	IN MODULE
* 
* 
	EXTRN	K:CCST	C:TCA 
	EXTRN	K:CCAC 
	EXTRN	K:REPI 
	EXTRN	K:LUTE 
* 
	EXTRN	K:SIMP	C:BPL 
* 
	EXTRN	K:CNT	C:SUB
	EXTRN	K:TIME 
	EXTRN	K:ST8
	EXTRN	K:LD8
* 

* 
* 
*  HERE IS THE MODULE 'C:EQU' WITH COMMON EQUATES INCLUDED WITHOUT LIST 
* 
	NLIST
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
	EJECT		IDENT C:EQU **COMMON AREA FRAME** 
	EJECT		IDENT C:EQU **COMMON AREA FRAME** 
* 
*   EXTERNALS 
* 
	EXTRN	T:ADD
	EXTRN	T:ADDC 
	EXTRN	T:SUB
	EXTRN	T:SUBC 
* 
	EXTRN	T:MUL	TOSS-MULDIV
	EXTRN	T:MULC 
	EXTRN	T:DIV
	EXTRN	T:DIVC 
	EJECT		IDENT C:EQU 
* 
*   FORMS FOR FORMAT CODES
* 
EOL	FORM	8=1,8	END OF FORMAT LIST 
EOR	FORM	8=9,8	END OF RECORD
TXT	FORM	8=/10,8	TEXT ELEMENT 
CONTXT	FORM	8=/12,8	TEXT CONSTANT ELEMENT 
IMTXT	FORM	8=/11,8	IMIDEATE TEXT CONSTANT 
ENDSUB	FORM	16=/1700	END OF SUBFORMAT 
COND	FORM	8=/1F,8	CONDITIONAL FORMAT
FILLER	FORM	8,8	FILLER
SPACE	FORM	8=/20,8	SPACE
PICT	FORM	1=1,7,8	PICTURE 
PICREF	FORM	8,8,16	GENERATE FORMS 
BYTE	FORM	8,8 
BCD	FORM	4=0,12 
ASCII	FORM	4=8,12 
ADD	FORM	16=/F6A1,16=T:ADD,8,8
ADDC	FORM	16=/F6A1,16=T:ADDC,8,8
SUB	FORM	16=/F6A1,16=T:SUB,8,8
SUBC	FORM	16=/F6A1,16=T:SUBC,8,8
MUL	FORM	16=/F6A1,16=T:MUL,8,8,8,8
MULC	FORM	16=/F6A1,16=T:MULC,8,8,8,8
DIV	FORM	16=/F6A1,16=T:DIV,8,8,8,8
DIVC	FORM	16=/F6A1,16=T:DIVC,8,8,8,8
	EJECT		IDENT C:EQU 
* 
*   CONSTANT TCA EQUATES
* 
CA1	EQU	/10 
CB1	EQU	/20 
CB10	EQU	/21
CB100	EQU	/22 
CB1000	EQU	/23
CB32K	EQU	/24 
YEAR	EQU	/30
MONTH	EQU	/31 
DAY	EQU	/32 
HOUR	EQU	/40
MIN	EQU	/41 
SEC	EQU	/42 
* 
*   LINE WORKBLOCKS EQUATES 
* 
LIN	EQU	/10	LINE NBR
LINBC	EQU	/11	BUSY COUNTER
LINTC	EQU	/12	TRANS COUNTER 
LINEC	EQU	/13	ERROR COUNTER 
LINHUR	EQU	/14	TIME OF LAST TRANS 
LINMIN	EQU	/15
LINSEC	EQU	/16
* 
*   TC WORKBLOCK EQUATES
* 
TC	EQU	/20
TCBC	EQU	/21
TCTC	EQU	/22
TCEC	EQU	/23
TCHUR	EQU	/24 
TCMIN	EQU	/25 
TCSEC	EQU	/26 
	EJECT		IDENT C:EQU 
* 
*   CC WORKBLOCK RESPONSETIME EQUATES 
* 
CC1	EQU	/30 
CC2	EQU	/31 
CC3	EQU	/32 
CC4	EQU	/33 
CC5	EQU	/34 
CC6	EQU	/35 
CC7	EQU	/36 
CC8	EQU	/37 
CC9	EQU	/38 
CC10	EQU	/39
CC11	EQU	/3A
CC12	EQU	/3B
* 
*   CC WORKBLOCK EQUATES
* 
CCTO	EQU	/40	TIME OUT COUNTER 
CCTC	EQU	/41
CCEC	EQU	/42
CCSUP	EQU	/43	SUPERV MSGS COUNTER 
CCHUR	EQU	/44	TIME OF LAST REPLY
CCMIN	EQU	/45 
CCSEC	EQU	/46 
	EJECT		IDENT C:EQU 
* 
*    NETWORK WORKBLOCK EQUATES
* 
NWTC	EQU	/5D	ACCUMULATED TRANS COUNTER
NWEC	EQU	/5E	ACC ERROR COUNT
* 
PCNT1	EQU	/50	% INTERVALS 
PCNT2	EQU	/51 
PCNT3	EQU	/52 
PCNT4	EQU	/53 
PCNT5	EQU	/54 
PCNT6	EQU	/55 
PCNT7	EQU	/56 
PCNT8	EQU	/57 
PCNT9	EQU	/58 
PCNT10	EQU	/59
PCNT11	EQU	/5A
PCNT12	EQU	/5B
* 
RSPTIM	EQU	/5C	RESPONSE TIME
PCNTW	EQU	/5F	% WORK AREA 1 
PCNTW2	EQU	/6C	%WORK AREA 2 
* 
*  CC TEXT-INTERVAL EQUATES 
* 
IN1	EQU	/60 
IN2	EQU	/61 
IN3	EQU	/62 
IN4	EQU	/63 
IN5	EQU	/64 
IN6	EQU	/65 
IN7	EQU	/66 
IN8	EQU	/67 
IN9	EQU	/68 
IN10	EQU	/69
IN11	EQU	/6A
IN12	EQU	/6B
	EJECT		IDENT C:EQU 
* 
CVTCLK	EQU	/98	ADDRESS TO MONITOR CLOCK 
* 
IDXBL	EQU	-4	INDEX IN CC-BUFFER TO LENGTH 
ORIGIN	EQU	-4	INDEX TO COMMAND ORIGIN INDICATOR IN TCA
INPBL	EQU	-4	INDEX TO INPUT BUFFER LENGTH 
* 
K:EBA	EQU	2	ECB EQUATES 
K:ERL	EQU	4 
K:EEL	EQU	6 
K:ERC	EQU	8 
K:ECW	EQU	10
* 
* 
TCAWBL	EQU	6	INDEX IN TCA TO LINE WB
TCAWBT	EQU	10	INDEX IN TCA TO TC WB 
	EJECT		IDENT C:EQU 
******************************************************* 
* 
*   SYSTEM ADAPTION PARAMETERS
* 
* KEYBOARD KONTROL KEYS 
K:KKEY	EQU	/2F	ENTRY K KEY
K:UKEY	EQU	/28	ENTER U KEY
K:EOR	EQU	/2A	END OF RECORD KEY 
CANCEL	EQU	/23	CANCEL KEY 
* TIME OUT VALUES OF TRUNK LINE 
K:WTIM	EQU	40	CC WRITE REQUEST TIME OUT (X100 MS) 
K:QTIM	EQU	3000	CC EXCHANGE REQUEST TIME OUT (X100 MS)
* BUFFER LENGTHS
K:CCBL	EQU	1100	CCWRITE BUFFER LENGTH (WORDS) 
K:EDBL	EQU	50	EDIT BUFFER LENGTH OF POOL K:OPED (WORDS) 
K:BLTC	EQU	128	LENGTH OF CASSETTE BUFFER (WORDS)
K:KBL	EQU	60	KB BUF LENGTH IN WORDS 
K:KBBL	EQU	K:KBL+K:KBL	IN CHARS 
K:GPBL	EQU	60	GP BUF LENGTH IN WORDS
K:S0BL	EQU	60	SIMULATED TERMINAL 0 BUF (WORDS)
K:INBL	EQU	1100	TERMINAL LINE INPUT BUF LENGTH (WORDS)
	EJECT
* COMMUNICATION ADDRESSES FOR TRUNK LINE. IF SPECIFIED AT SYSTEM GENERATION 
K:CCAD	EQU	0	CONCENTRATOR ADDRESS 
			LEFT BYTE = SELECT ADDR. 
			RIGHT BYTE = POLL ADDR.
K:SIMZ	EQU	0	SIM. TERM. FOR COMMANDS/SYSTEM MESSAGES
			AND SYSTEM MESSAGES
K:SIMS	EQU	0	SIM. TERM. FOR SUPERVISORY MESSAGES
K:FCS	EQU	0	DEVICE FILE CODE OF K:SIMS IF USED

HexDump

0x0000…0034 (0, 0, 400)  Head {h00=0x0030, h01=0x0050, text=» IDENT C:CCH  CONPAC REL=0.0 DATE= 77.10.12 «, t00=0x0000, t01=0x0004}
0x0034…0056              Head {h00=0x001e, h01=0x0050, text=»   UPDATE #2 77.09.26 JES «, t00=0x0000, t01=0x0038}
0x0056…009e              Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0000, t01=0x005a}
0x009e…00a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00a2}
0x00a8…00da              Head {h00=0x002e, h01=0x0050, text=»* CONCENTRATOR APPLICATION PACKAGE  PEAB-T«, t00=0x0000, t01=0x00ac}
0x00da…00e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00de}
0x00e4…010a              Head {h00=0x0022, h01=0x0050, text=»* PROGRAMMER:  PER OMAN / PAN «, t00=0x0000, t01=0x00e8}
0x010a…0114              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010e}
0x0114…011e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x011e…0132              Head {h00=0x0010, h01=0x0050, text=»* C : C C H «, t00=0x0000, t01=0x0122}
0x0132…013c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0136}
0x013c…0146              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0140}
0x0146…0154              Head {h00=0x000a, h01=0x0050, text=»*   * «, t00=0x0000, t01=0x014a}
0x0154…018a              Head {h00=0x0032, h01=0x0050, text=»*   THIS MODULE CONTAINS THE ROUTINES HANDLING«, t00=0x0000, t01=0x0158}
0x018a…01a6              Head {h00=0x0018, h01=0x0050, text=»*   CC COMMUNICATION«, t00=0x0000, t01=0x018e}
0x01a6…01b4              Head {h00=0x000a, h01=0x0050, text=»*   * «, t00=0x0001, t01=0x001a}
0x01b4…01be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0028}
0x01be…01c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0032}
0x01c8…01f4              Head {h00=0x0028, h01=0x0050, text=»* THIS MODULE RUNS UNDER TASK:  ANY «, t00=0x0001, t01=0x003c}
0x01f4…01fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0068}
0x01fe…0208              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0072}
0x0208…0236              Head {h00=0x002a, h01=0x0050, text=»* THE MODULE CONTAINS THE SUBROUTINES:«, t00=0x0001, t01=0x007c}
0x0236…0240              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00aa}
0x0240…025e              Head {h00=0x001a, h01=0x0050, text=»* NAME REVDAT VERSION «, t00=0x0001, t01=0x00b4}
0x025e…0268              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d2}
0x0268…0280              Head {h00=0x0014, h01=0x0050, text=»* K:CCW 77 05 04«, t00=0x0001, t01=0x00dc}
0x0280…0298              Head {h00=0x0014, h01=0x0050, text=»* K:CCQ 77 05 04«, t00=0x0001, t01=0x00f4}
0x0298…02b0              Head {h00=0x0014, h01=0x0050, text=»* K:CCR 77 05 04«, t00=0x0001, t01=0x010c}
0x02b0…02ca              Head {h00=0x0016, h01=0x0050, text=»* K:RBCC 77 05 04 «, t00=0x0001, t01=0x0124}
0x02ca…02e4              Head {h00=0x0016, h01=0x0050, text=»* K:RCCB 77 05 04 «, t00=0x0001, t01=0x013e}
0x02e4…02ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0158}
0x02ee…0336              Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0001, t01=0x0162}
0x0336…0352              Head {h00=0x0018, h01=0x0050, text=» EJECT  IDENT C:CCH «, t00=0x0002, t01=0x001a}
0x0352…035c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0036}
0x035c…0366              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0040}
0x0366…0380              Head {h00=0x0016, h01=0x0050, text=»* ENTRY ADDRESSES «, t00=0x0002, t01=0x004a}
0x0380…038a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0064}
0x038a…03d2              Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0002, t01=0x006e}
0x03d2…03dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b6}
0x03dc…03f8              Head {h00=0x0018, h01=0x0050, text=»*  ENTRY DESCRIPTION«, t00=0x0002, t01=0x00c0}
0x03f8…0402              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00dc}
0x0402…0422              Head {h00=0x001c, h01=0x0050, text=» ENTRY K:CCW WRITE TO CC«, t00=0x0002, t01=0x00e6}
0x0422…0448              Head {h00=0x0022, h01=0x0050, text=» ENTRY K:CCQ WRITE AND READ CC«, t00=0x0002, t01=0x0106}
0x0448…0478              Head {h00=0x002c, h01=0x0050, text=» ENTRY K:CCR READ CC WITH ALLOCATED ECB «, t00=0x0002, t01=0x012c}
0x0478…04ac              Head {h00=0x0030, h01=0x0050, text=» ENTRY K:RBCC RELEASE CC READ BUFFER AND ECB«, t00=0x0002, t01=0x015c}
0x04ac…04de              Head {h00=0x002e, h01=0x0050, text=» ENTRY K:RCCB RELEASE CC READ BUFFER ONLY «, t00=0x0002, t01=0x0190}
0x04de…04e6              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0032}
0x04e6…0502              Head {h00=0x0018, h01=0x0050, text=» EJECT  IDENT C:CCH «, t00=0x0003, t01=0x003a}
0x0502…050c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0056}
0x050c…0516              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0060}
0x0516…0534              Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL REFERENSES «, t00=0x0003, t01=0x006a}
0x0534…053e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0088}
0x053e…0586              Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0003, t01=0x0092}
0x0586…0590              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00da}
0x0590…05ac              Head {h00=0x0018, h01=0x0050, text=»*  ADDRESS IN MODULE«, t00=0x0003, t01=0x00e4}
0x05ac…05b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0100}
0x05b6…05c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x010a}
0x05c0…05dc              Head {h00=0x0018, h01=0x0050, text=» EXTRN K:CCST C:TCA «, t00=0x0003, t01=0x0114}
0x05dc…05f2              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:CCAC «, t00=0x0003, t01=0x0130}
0x05f2…0608              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:REPI «, t00=0x0003, t01=0x0146}
0x0608…061e              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:LUTE «, t00=0x0003, t01=0x015c}
0x061e…0628              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0172}
0x0628…0644              Head {h00=0x0018, h01=0x0050, text=» EXTRN K:SIMP C:BPL «, t00=0x0003, t01=0x017c}
0x0644…064e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0008}
0x064e…0668              Head {h00=0x0016, h01=0x0050, text=» EXTRN K:CNT C:SUB«, t00=0x0004, t01=0x0012}
0x0668…067e              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:TIME «, t00=0x0004, t01=0x002c}
0x067e…0692              Head {h00=0x0010, h01=0x0050, text=» EXTRN K:ST8«, t00=0x0004, t01=0x0042}
0x0692…06a6              Head {h00=0x0010, h01=0x0050, text=» EXTRN K:LD8«, t00=0x0004, t01=0x0056}
0x06a6…06b0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x006a}
0x06b0…06b8              Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0074}
0x06b8…06c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x007c}
0x06c2…06cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0086}
0x06cc…071c              Head {h00=0x004c, h01=0x0050, text=»*  HERE IS THE MODULE 'C:EQU' WITH COMMON EQUATES INCLUDED WITHOUT LIST «, t00=0x0004, t01=0x0090}
0x071c…0726              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00e0}
0x0726…0734              Head {h00=0x000a, h01=0x0050, text=» NLIST«, t00=0x0004, t01=0x00ea}
0x0734…073e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00f8}
0x073e…0748              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0102}
0x0748…0752              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x010c}
0x0752…075c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0116}
0x075c…0766              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0120}
0x0766…0770              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x012a}
0x0770…077a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0134}
0x077a…0784              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x013e}
0x0784…078e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0148}
0x078e…0798              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0152}
0x0798…07a2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x015c}
0x07a2…07ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0166}
0x07ac…07b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0170}
0x07b6…07c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017a}
0x07c0…07ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0184}
0x07ca…07d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x018e}
0x07d4…07de              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0008}
0x07de…07e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0012}
0x07e8…07f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x001c}
0x07f2…07fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0026}
0x07fc…0806              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0030}
0x0806…0810              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x003a}
0x0810…081a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0044}
0x081a…0824              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x004e}
0x0824…082e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0058}
0x082e…0838              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0062}
0x0838…0842              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x006c}
0x0842…084c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0076}
0x084c…0856              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0080}
0x0856…0860              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x008a}
0x0860…086a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0094}
0x086a…0874              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x009e}
0x0874…087e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00a8}
0x087e…0888              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b2}
0x0888…0892              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00bc}
0x0892…089c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c6}
0x089c…08a6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d0}
0x08a6…08b0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00da}
0x08b0…08ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e4}
0x08ba…08c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ee}
0x08c4…08ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00f8}
0x08ce…08d8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0102}
0x08d8…08e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x010c}
0x08e2…08ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0116}
0x08ec…08f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0120}
0x08f6…0900              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x012a}
0x0900…090a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0134}
0x090a…0914              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x013e}
0x0914…091e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0148}
0x091e…0928              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0152}
0x0928…0932              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x015c}
0x0932…093c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0166}
0x093c…0946              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0170}
0x0946…0950              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x017a}
0x0950…095a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0184}
0x095a…0964              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x018e}
0x0964…096e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0008}
0x096e…0978              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0012}
0x0978…0982              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x001c}
0x0982…098c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0026}
0x098c…0996              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0030}
0x0996…09a0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x003a}
0x09a0…09aa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0044}
0x09aa…09b4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x004e}
0x09b4…09be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0058}
0x09be…09c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0062}
0x09c8…09d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x006c}
0x09d2…09dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0076}
0x09dc…09e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0080}
0x09e6…09f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x008a}
0x09f0…09fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0094}
0x09fa…0a04              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x009e}
0x0a04…0a0e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a8}
0x0a0e…0a18              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00b2}
0x0a18…0a22              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00bc}
0x0a22…0a54              Head {h00=0x002e, h01=0x0050, text=» EJECT  IDENT C:EQU **COMMON AREA FRAME** «, t00=0x0006, t01=0x00c6}
0x0a54…0a86              Head {h00=0x002e, h01=0x0050, text=» EJECT  IDENT C:EQU **COMMON AREA FRAME** «, t00=0x0006, t01=0x00f8}
0x0a86…0a90              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x012a}
0x0a90…0aa6              Head {h00=0x0012, h01=0x0050, text=»*   EXTERNALS «, t00=0x0006, t01=0x0134}
0x0aa6…0ab0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x014a}
0x0ab0…0ac4              Head {h00=0x0010, h01=0x0050, text=» EXTRN T:ADD«, t00=0x0006, t01=0x0154}
0x0ac4…0ada              Head {h00=0x0012, h01=0x0050, text=» EXTRN T:ADDC «, t00=0x0006, t01=0x0168}
0x0ada…0aee              Head {h00=0x0010, h01=0x0050, text=» EXTRN T:SUB«, t00=0x0006, t01=0x017e}
0x0aee…0b04 (7, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» EXTRN T:SUBC «, t00=0x0007, t01=0x0004}
0x0b04…0b0e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x001a}
0x0b0e…0b2e              Head {h00=0x001c, h01=0x0050, text=» EXTRN T:MUL TOSS-MULDIV«, t00=0x0007, t01=0x0024}
0x0b2e…0b44              Head {h00=0x0012, h01=0x0050, text=» EXTRN T:MULC «, t00=0x0007, t01=0x0044}
0x0b44…0b58              Head {h00=0x0010, h01=0x0050, text=» EXTRN T:DIV«, t00=0x0007, t01=0x005a}
0x0b58…0b6e              Head {h00=0x0012, h01=0x0050, text=» EXTRN T:DIVC «, t00=0x0007, t01=0x006e}
0x0b6e…0b8a              Head {h00=0x0018, h01=0x0050, text=» EJECT  IDENT C:EQU «, t00=0x0007, t01=0x0084}
0x0b8a…0b94              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a0}
0x0b94…0bb6              Head {h00=0x001e, h01=0x0050, text=»*   FORMS FOR FORMAT CODES«, t00=0x0007, t01=0x00aa}
0x0bb6…0bc0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00cc}
0x0bc0…0bea              Head {h00=0x0026, h01=0x0050, text=»EOL FORM 8=1,8 END OF FORMAT LIST «, t00=0x0007, t01=0x00d6}
0x0bea…0c0e              Head {h00=0x0020, h01=0x0050, text=»EOR FORM 8=9,8 END OF RECORD«, t00=0x0007, t01=0x0100}
0x0c0e…0c34              Head {h00=0x0022, h01=0x0050, text=»TXT FORM 8=/10,8 TEXT ELEMENT «, t00=0x0007, t01=0x0124}
0x0c34…0c66              Head {h00=0x002e, h01=0x0050, text=»CONTXT FORM 8=/12,8 TEXT CONSTANT ELEMENT «, t00=0x0007, t01=0x014a}
0x0c66…0c98              Head {h00=0x002e, h01=0x0050, text=»IMTXT FORM 8=/11,8 IMIDEATE TEXT CONSTANT «, t00=0x0007, t01=0x017c}
0x0c98…0cc6              Head {h00=0x002a, h01=0x0050, text=»ENDSUB FORM 16=/1700 END OF SUBFORMAT «, t00=0x0008, t01=0x001e}
0x0cc6…0cf2              Head {h00=0x0028, h01=0x0050, text=»COND FORM 8=/1F,8 CONDITIONAL FORMAT«, t00=0x0008, t01=0x004c}
0x0cf2…0d10              Head {h00=0x001a, h01=0x0050, text=»FILLER FORM 8,8 FILLER«, t00=0x0008, t01=0x0078}
0x0d10…0d30              Head {h00=0x001c, h01=0x0050, text=»SPACE FORM 8=/20,8 SPACE«, t00=0x0008, t01=0x0096}
0x0d30…0d52              Head {h00=0x001e, h01=0x0050, text=»PICT FORM 1=1,7,8 PICTURE «, t00=0x0008, t01=0x00b6}
0x0d52…0d7c              Head {h00=0x0026, h01=0x0050, text=»PICREF FORM 8,8,16 GENERATE FORMS «, t00=0x0008, t01=0x00d8}
0x0d7c…0d92              Head {h00=0x0012, h01=0x0050, text=»BYTE FORM 8,8 «, t00=0x0008, t01=0x0102}
0x0d92…0daa              Head {h00=0x0014, h01=0x0050, text=»BCD FORM 4=0,12 «, t00=0x0008, t01=0x0118}
0x0daa…0dc4              Head {h00=0x0016, h01=0x0050, text=»ASCII FORM 4=8,12 «, t00=0x0008, t01=0x0130}
0x0dc4…0dea              Head {h00=0x0022, h01=0x0050, text=»ADD FORM 16=/F6A1,16=T:ADD,8,8«, t00=0x0008, t01=0x014a}
0x0dea…0e12              Head {h00=0x0024, h01=0x0050, text=»ADDC FORM 16=/F6A1,16=T:ADDC,8,8«, t00=0x0008, t01=0x0170}
0x0e12…0e38              Head {h00=0x0022, h01=0x0050, text=»SUB FORM 16=/F6A1,16=T:SUB,8,8«, t00=0x0009, t01=0x0008}
0x0e38…0e60              Head {h00=0x0024, h01=0x0050, text=»SUBC FORM 16=/F6A1,16=T:SUBC,8,8«, t00=0x0009, t01=0x002e}
0x0e60…0e8a              Head {h00=0x0026, h01=0x0050, text=»MUL FORM 16=/F6A1,16=T:MUL,8,8,8,8«, t00=0x0009, t01=0x0056}
0x0e8a…0eb6              Head {h00=0x0028, h01=0x0050, text=»MULC FORM 16=/F6A1,16=T:MULC,8,8,8,8«, t00=0x0009, t01=0x0080}
0x0eb6…0ee0              Head {h00=0x0026, h01=0x0050, text=»DIV FORM 16=/F6A1,16=T:DIV,8,8,8,8«, t00=0x0009, t01=0x00ac}
0x0ee0…0f0c              Head {h00=0x0028, h01=0x0050, text=»DIVC FORM 16=/F6A1,16=T:DIVC,8,8,8,8«, t00=0x0009, t01=0x00d6}
0x0f0c…0f28              Head {h00=0x0018, h01=0x0050, text=» EJECT  IDENT C:EQU «, t00=0x0009, t01=0x0102}
0x0f28…0f32              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x011e}
0x0f32…0f52              Head {h00=0x001c, h01=0x0050, text=»*   CONSTANT TCA EQUATES«, t00=0x0009, t01=0x0128}
0x0f52…0f5c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0148}
0x0f5c…0f70              Head {h00=0x0010, h01=0x0050, text=»CA1 EQU /10 «, t00=0x0009, t01=0x0152}
0x0f70…0f84              Head {h00=0x0010, h01=0x0050, text=»CB1 EQU /20 «, t00=0x0009, t01=0x0166}
0x0f84…0f98              Head {h00=0x0010, h01=0x0050, text=»CB10 EQU /21«, t00=0x0009, t01=0x017a}
0x0f98…0fae              Head {h00=0x0012, h01=0x0050, text=»CB100 EQU /22 «, t00=0x0009, t01=0x018e}
0x0fae…0fc4              Head {h00=0x0012, h01=0x0050, text=»CB1000 EQU /23«, t00=0x000a, t01=0x0014}
0x0fc4…0fda              Head {h00=0x0012, h01=0x0050, text=»CB32K EQU /24 «, t00=0x000a, t01=0x002a}
0x0fda…0fee              Head {h00=0x0010, h01=0x0050, text=»YEAR EQU /30«, t00=0x000a, t01=0x0040}
0x0fee…1004              Head {h00=0x0012, h01=0x0050, text=»MONTH EQU /31 «, t00=0x000a, t01=0x0054}
0x1004…1018              Head {h00=0x0010, h01=0x0050, text=»DAY EQU /32 «, t00=0x000a, t01=0x006a}
0x1018…102c              Head {h00=0x0010, h01=0x0050, text=»HOUR EQU /40«, t00=0x000a, t01=0x007e}
0x102c…1040              Head {h00=0x0010, h01=0x0050, text=»MIN EQU /41 «, t00=0x000a, t01=0x0092}
0x1040…1054              Head {h00=0x0010, h01=0x0050, text=»SEC EQU /42 «, t00=0x000a, t01=0x00a6}
0x1054…105e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ba}
0x105e…1082              Head {h00=0x0020, h01=0x0050, text=»*   LINE WORKBLOCKS EQUATES «, t00=0x000a, t01=0x00c4}
0x1082…108c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00e8}
0x108c…10a8              Head {h00=0x0018, h01=0x0050, text=»LIN EQU /10 LINE NBR«, t00=0x000a, t01=0x00f2}
0x10a8…10ca              Head {h00=0x001e, h01=0x0050, text=»LINBC EQU /11 BUSY COUNTER«, t00=0x000a, t01=0x010e}
0x10ca…10ee              Head {h00=0x0020, h01=0x0050, text=»LINTC EQU /12 TRANS COUNTER «, t00=0x000a, t01=0x0130}
0x10ee…1112              Head {h00=0x0020, h01=0x0050, text=»LINEC EQU /13 ERROR COUNTER «, t00=0x000a, t01=0x0154}
0x1112…113c              Head {h00=0x0026, h01=0x0050, text=»LINHUR EQU /14 TIME OF LAST TRANS «, t00=0x000a, t01=0x0178}
0x113c…1152              Head {h00=0x0012, h01=0x0050, text=»LINMIN EQU /15«, t00=0x000b, t01=0x0012}
0x1152…1168              Head {h00=0x0012, h01=0x0050, text=»LINSEC EQU /16«, t00=0x000b, t01=0x0028}
0x1168…1172              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x003e}
0x1172…1192              Head {h00=0x001c, h01=0x0050, text=»*   TC WORKBLOCK EQUATES«, t00=0x000b, t01=0x0048}
0x1192…119c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0068}
0x119c…11ae              Head {h00=0x000e, h01=0x0050, text=»TC EQU /20«, t00=0x000b, t01=0x0072}
0x11ae…11c2              Head {h00=0x0010, h01=0x0050, text=»TCBC EQU /21«, t00=0x000b, t01=0x0084}
0x11c2…11d6              Head {h00=0x0010, h01=0x0050, text=»TCTC EQU /22«, t00=0x000b, t01=0x0098}
0x11d6…11ea              Head {h00=0x0010, h01=0x0050, text=»TCEC EQU /23«, t00=0x000b, t01=0x00ac}
0x11ea…1200              Head {h00=0x0012, h01=0x0050, text=»TCHUR EQU /24 «, t00=0x000b, t01=0x00c0}
0x1200…1216              Head {h00=0x0012, h01=0x0050, text=»TCMIN EQU /25 «, t00=0x000b, t01=0x00d6}
0x1216…122c              Head {h00=0x0012, h01=0x0050, text=»TCSEC EQU /26 «, t00=0x000b, t01=0x00ec}
0x122c…1248              Head {h00=0x0018, h01=0x0050, text=» EJECT  IDENT C:EQU «, t00=0x000b, t01=0x0102}
0x1248…1252              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x011e}
0x1252…1280              Head {h00=0x002a, h01=0x0050, text=»*   CC WORKBLOCK RESPONSETIME EQUATES «, t00=0x000b, t01=0x0128}
0x1280…128a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0156}
0x128a…129e              Head {h00=0x0010, h01=0x0050, text=»CC1 EQU /30 «, t00=0x000b, t01=0x0160}
0x129e…12b2              Head {h00=0x0010, h01=0x0050, text=»CC2 EQU /31 «, t00=0x000b, t01=0x0174}
0x12b2…12c6              Head {h00=0x0010, h01=0x0050, text=»CC3 EQU /32 «, t00=0x000b, t01=0x0188}
0x12c6…12da              Head {h00=0x0010, h01=0x0050, text=»CC4 EQU /33 «, t00=0x000c, t01=0x000c}
0x12da…12ee              Head {h00=0x0010, h01=0x0050, text=»CC5 EQU /34 «, t00=0x000c, t01=0x0020}
0x12ee…1302              Head {h00=0x0010, h01=0x0050, text=»CC6 EQU /35 «, t00=0x000c, t01=0x0034}
0x1302…1316              Head {h00=0x0010, h01=0x0050, text=»CC7 EQU /36 «, t00=0x000c, t01=0x0048}
0x1316…132a              Head {h00=0x0010, h01=0x0050, text=»CC8 EQU /37 «, t00=0x000c, t01=0x005c}
0x132a…133e              Head {h00=0x0010, h01=0x0050, text=»CC9 EQU /38 «, t00=0x000c, t01=0x0070}
0x133e…1352              Head {h00=0x0010, h01=0x0050, text=»CC10 EQU /39«, t00=0x000c, t01=0x0084}
0x1352…1366              Head {h00=0x0010, h01=0x0050, text=»CC11 EQU /3A«, t00=0x000c, t01=0x0098}
0x1366…137a              Head {h00=0x0010, h01=0x0050, text=»CC12 EQU /3B«, t00=0x000c, t01=0x00ac}
0x137a…1384              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00c0}
0x1384…13a4              Head {h00=0x001c, h01=0x0050, text=»*   CC WORKBLOCK EQUATES«, t00=0x000c, t01=0x00ca}
0x13a4…13ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ea}
0x13ae…13d4              Head {h00=0x0022, h01=0x0050, text=»CCTO EQU /40 TIME OUT COUNTER «, t00=0x000c, t01=0x00f4}
0x13d4…13e8              Head {h00=0x0010, h01=0x0050, text=»CCTC EQU /41«, t00=0x000c, t01=0x011a}
0x13e8…13fc              Head {h00=0x0010, h01=0x0050, text=»CCEC EQU /42«, t00=0x000c, t01=0x012e}
0x13fc…1426              Head {h00=0x0026, h01=0x0050, text=»CCSUP EQU /43 SUPERV MSGS COUNTER «, t00=0x000c, t01=0x0142}
0x1426…144e              Head {h00=0x0024, h01=0x0050, text=»CCHUR EQU /44 TIME OF LAST REPLY«, t00=0x000c, t01=0x016c}
0x144e…1464 (13, 0, 400) Head {h00=0x0012, h01=0x0050, text=»CCMIN EQU /45 «, t00=0x000d, t01=0x0004}
0x1464…147a              Head {h00=0x0012, h01=0x0050, text=»CCSEC EQU /46 «, t00=0x000d, t01=0x001a}
0x147a…1496              Head {h00=0x0018, h01=0x0050, text=» EJECT  IDENT C:EQU «, t00=0x000d, t01=0x0030}
0x1496…14a0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x004c}
0x14a0…14c6              Head {h00=0x0022, h01=0x0050, text=»*    NETWORK WORKBLOCK EQUATES«, t00=0x000d, t01=0x0056}
0x14c6…14d0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x007c}
0x14d0…14fe              Head {h00=0x002a, h01=0x0050, text=»NWTC EQU /5D ACCUMULATED TRANS COUNTER«, t00=0x000d, t01=0x0086}
0x14fe…1522              Head {h00=0x0020, h01=0x0050, text=»NWEC EQU /5E ACC ERROR COUNT«, t00=0x000d, t01=0x00b4}
0x1522…152c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d8}
0x152c…154e              Head {h00=0x001e, h01=0x0050, text=»PCNT1 EQU /50 % INTERVALS «, t00=0x000d, t01=0x00e2}
0x154e…1564              Head {h00=0x0012, h01=0x0050, text=»PCNT2 EQU /51 «, t00=0x000d, t01=0x0104}
0x1564…157a              Head {h00=0x0012, h01=0x0050, text=»PCNT3 EQU /52 «, t00=0x000d, t01=0x011a}
0x157a…1590              Head {h00=0x0012, h01=0x0050, text=»PCNT4 EQU /53 «, t00=0x000d, t01=0x0130}
0x1590…15a6              Head {h00=0x0012, h01=0x0050, text=»PCNT5 EQU /54 «, t00=0x000d, t01=0x0146}
0x15a6…15bc              Head {h00=0x0012, h01=0x0050, text=»PCNT6 EQU /55 «, t00=0x000d, t01=0x015c}
0x15bc…15d2              Head {h00=0x0012, h01=0x0050, text=»PCNT7 EQU /56 «, t00=0x000d, t01=0x0172}
0x15d2…15e8              Head {h00=0x0012, h01=0x0050, text=»PCNT8 EQU /57 «, t00=0x000d, t01=0x0188}
0x15e8…15fe              Head {h00=0x0012, h01=0x0050, text=»PCNT9 EQU /58 «, t00=0x000e, t01=0x000e}
0x15fe…1614              Head {h00=0x0012, h01=0x0050, text=»PCNT10 EQU /59«, t00=0x000e, t01=0x0024}
0x1614…162a              Head {h00=0x0012, h01=0x0050, text=»PCNT11 EQU /5A«, t00=0x000e, t01=0x003a}
0x162a…1640              Head {h00=0x0012, h01=0x0050, text=»PCNT12 EQU /5B«, t00=0x000e, t01=0x0050}
0x1640…164a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0066}
0x164a…166e              Head {h00=0x0020, h01=0x0050, text=»RSPTIM EQU /5C RESPONSE TIME«, t00=0x000e, t01=0x0070}
0x166e…1692              Head {h00=0x0020, h01=0x0050, text=»PCNTW EQU /5F % WORK AREA 1 «, t00=0x000e, t01=0x0094}
0x1692…16b6              Head {h00=0x0020, h01=0x0050, text=»PCNTW2 EQU /6C %WORK AREA 2 «, t00=0x000e, t01=0x00b8}
0x16b6…16c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00dc}
0x16c0…16e4              Head {h00=0x0020, h01=0x0050, text=»*  CC TEXT-INTERVAL EQUATES «, t00=0x000e, t01=0x00e6}
0x16e4…16ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x010a}
0x16ee…1702              Head {h00=0x0010, h01=0x0050, text=»IN1 EQU /60 «, t00=0x000e, t01=0x0114}
0x1702…1716              Head {h00=0x0010, h01=0x0050, text=»IN2 EQU /61 «, t00=0x000e, t01=0x0128}
0x1716…172a              Head {h00=0x0010, h01=0x0050, text=»IN3 EQU /62 «, t00=0x000e, t01=0x013c}
0x172a…173e              Head {h00=0x0010, h01=0x0050, text=»IN4 EQU /63 «, t00=0x000e, t01=0x0150}
0x173e…1752              Head {h00=0x0010, h01=0x0050, text=»IN5 EQU /64 «, t00=0x000e, t01=0x0164}
0x1752…1766              Head {h00=0x0010, h01=0x0050, text=»IN6 EQU /65 «, t00=0x000e, t01=0x0178}
0x1766…177a              Head {h00=0x0010, h01=0x0050, text=»IN7 EQU /66 «, t00=0x000e, t01=0x018c}
0x177a…178e              Head {h00=0x0010, h01=0x0050, text=»IN8 EQU /67 «, t00=0x000f, t01=0x0010}
0x178e…17a2              Head {h00=0x0010, h01=0x0050, text=»IN9 EQU /68 «, t00=0x000f, t01=0x0024}
0x17a2…17b6              Head {h00=0x0010, h01=0x0050, text=»IN10 EQU /69«, t00=0x000f, t01=0x0038}
0x17b6…17ca              Head {h00=0x0010, h01=0x0050, text=»IN11 EQU /6A«, t00=0x000f, t01=0x004c}
0x17ca…17de              Head {h00=0x0010, h01=0x0050, text=»IN12 EQU /6B«, t00=0x000f, t01=0x0060}
0x17de…17fa              Head {h00=0x0018, h01=0x0050, text=» EJECT  IDENT C:EQU «, t00=0x000f, t01=0x0074}
0x17fa…1804              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0090}
0x1804…1834              Head {h00=0x002c, h01=0x0050, text=»CVTCLK EQU /98 ADDRESS TO MONITOR CLOCK «, t00=0x000f, t01=0x009a}
0x1834…183e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ca}
0x183e…1870              Head {h00=0x002e, h01=0x0050, text=»IDXBL EQU -4 INDEX IN CC-BUFFER TO LENGTH «, t00=0x000f, t01=0x00d4}
0x1870…18ae              Head {h00=0x003a, h01=0x0050, text=»ORIGIN EQU -4 INDEX TO COMMAND ORIGIN INDICATOR IN TCA«, t00=0x000f, t01=0x0106}
0x18ae…18e0              Head {h00=0x002e, h01=0x0050, text=»INPBL EQU -4 INDEX TO INPUT BUFFER LENGTH «, t00=0x000f, t01=0x0144}
0x18e0…18ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0176}
0x18ea…190a              Head {h00=0x001c, h01=0x0050, text=»K:EBA EQU 2 ECB EQUATES «, t00=0x000f, t01=0x0180}
0x190a…191e              Head {h00=0x0010, h01=0x0050, text=»K:ERL EQU 4 «, t00=0x0010, t01=0x0010}
0x191e…1932              Head {h00=0x0010, h01=0x0050, text=»K:EEL EQU 6 «, t00=0x0010, t01=0x0024}
0x1932…1946              Head {h00=0x0010, h01=0x0050, text=»K:ERC EQU 8 «, t00=0x0010, t01=0x0038}
0x1946…195a              Head {h00=0x0010, h01=0x0050, text=»K:ECW EQU 10«, t00=0x0010, t01=0x004c}
0x195a…1964              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0060}
0x1964…196e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x006a}
0x196e…199a              Head {h00=0x0028, h01=0x0050, text=»TCAWBL EQU 6 INDEX IN TCA TO LINE WB«, t00=0x0010, t01=0x0074}
0x199a…19c6              Head {h00=0x0028, h01=0x0050, text=»TCAWBT EQU 10 INDEX IN TCA TO TC WB «, t00=0x0010, t01=0x00a0}
0x19c6…19e2              Head {h00=0x0018, h01=0x0050, text=» EJECT  IDENT C:EQU «, t00=0x0010, t01=0x00cc}
0x19e2…1a22              Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0010, t01=0x00e8}
0x1a22…1a2c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0128}
0x1a2c…1a52              Head {h00=0x0022, h01=0x0050, text=»*   SYSTEM ADAPTION PARAMETERS«, t00=0x0010, t01=0x0132}
0x1a52…1a5c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0158}
0x1a5c…1a7c              Head {h00=0x001c, h01=0x0050, text=»* KEYBOARD KONTROL KEYS «, t00=0x0010, t01=0x0162}
0x1a7c…1a9e              Head {h00=0x001e, h01=0x0050, text=»K:KKEY EQU /2F ENTRY K KEY«, t00=0x0010, t01=0x0182}
0x1a9e…1ac0              Head {h00=0x001e, h01=0x0050, text=»K:UKEY EQU /28 ENTER U KEY«, t00=0x0011, t01=0x0014}
0x1ac0…1ae8              Head {h00=0x0024, h01=0x0050, text=»K:EOR EQU /2A END OF RECORD KEY «, t00=0x0011, t01=0x0036}
0x1ae8…1b0a              Head {h00=0x001e, h01=0x0050, text=»CANCEL EQU /23 CANCEL KEY «, t00=0x0011, t01=0x005e}
0x1b0a…1b32              Head {h00=0x0024, h01=0x0050, text=»* TIME OUT VALUES OF TRUNK LINE «, t00=0x0011, t01=0x0080}
0x1b32…1b6c              Head {h00=0x0036, h01=0x0050, text=»K:WTIM EQU 40 CC WRITE REQUEST TIME OUT (X100 MS) «, t00=0x0011, t01=0x00a8}
0x1b6c…1baa              Head {h00=0x003a, h01=0x0050, text=»K:QTIM EQU 3000 CC EXCHANGE REQUEST TIME OUT (X100 MS)«, t00=0x0011, t01=0x00e2}
0x1baa…1bc2              Head {h00=0x0014, h01=0x0050, text=»* BUFFER LENGTHS«, t00=0x0011, t01=0x0120}
0x1bc2…1bf8              Head {h00=0x0032, h01=0x0050, text=»K:CCBL EQU 1100 CCWRITE BUFFER LENGTH (WORDS) «, t00=0x0011, t01=0x0138}
0x1bf8…1c38              Head {h00=0x003c, h01=0x0050, text=»K:EDBL EQU 50 EDIT BUFFER LENGTH OF POOL K:OPED (WORDS) «, t00=0x0011, t01=0x016e}
0x1c38…1c70              Head {h00=0x0034, h01=0x0050, text=»K:BLTC EQU 128 LENGTH OF CASSETTE BUFFER (WORDS)«, t00=0x0012, t01=0x001e}
0x1c70…1c9c              Head {h00=0x0028, h01=0x0050, text=»K:KBL EQU 60 KB BUF LENGTH IN WORDS «, t00=0x0012, t01=0x0056}
0x1c9c…1cc4              Head {h00=0x0024, h01=0x0050, text=»K:KBBL EQU K:KBL+K:KBL IN CHARS «, t00=0x0012, t01=0x0082}
0x1cc4…1cf0              Head {h00=0x0028, h01=0x0050, text=»K:GPBL EQU 60 GP BUF LENGTH IN WORDS«, t00=0x0012, t01=0x00aa}
0x1cf0…1d26              Head {h00=0x0032, h01=0x0050, text=»K:S0BL EQU 60 SIMULATED TERMINAL 0 BUF (WORDS)«, t00=0x0012, t01=0x00d6}
0x1d26…1d64              Head {h00=0x003a, h01=0x0050, text=»K:INBL EQU 1100 TERMINAL LINE INPUT BUF LENGTH (WORDS)«, t00=0x0012, t01=0x010c}
0x1d64…1d72              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x014a}
0x1d72…1dc6              Head {h00=0x0050, h01=0x0050, text=»* COMMUNICATION ADDRESSES FOR TRUNK LINE. IF SPECIFIED AT SYSTEM GENERATION «, t00=0x0012, t01=0x0158}
0x1dc6…1df0              Head {h00=0x0026, h01=0x0050, text=»K:CCAD EQU 0 CONCENTRATOR ADDRESS «, t00=0x0013, t01=0x001c}
0x1df0…1e14              Head {h00=0x0020, h01=0x0050, text=»   LEFT BYTE = SELECT ADDR. «, t00=0x0013, t01=0x0046}
0x1e14…1e36              Head {h00=0x001e, h01=0x0050, text=»   RIGHT BYTE = POLL ADDR.«, t00=0x0013, t01=0x006a}
0x1e36…1e72              Head {h00=0x0038, h01=0x0050, text=»K:SIMZ EQU 0 SIM. TERM. FOR COMMANDS/SYSTEM MESSAGES«, t00=0x0013, t01=0x008c}
0x1e72…1e90              Head {h00=0x001a, h01=0x0050, text=»   AND SYSTEM MESSAGES«, t00=0x0013, t01=0x00c8}
0x1e90…1ec8              Head {h00=0x0034, h01=0x0050, text=»K:SIMS EQU 0 SIM. TERM. FOR SUPERVISORY MESSAGES«, t00=0x0013, t01=0x00e6}
0x1ec8…1efe              Head {h00=0x0032, h01=0x0050, text=»K:FCS EQU 0 DEVICE FILE CODE OF K:SIMS IF USED«, t00=0x0013, t01=0x011e}
0x1efe…1f02              Head {h00=0x0054, h01=0x0050}
0x1f02…1f06              Head {h00=0x2a20, h01=0x5349}
0x1f06…1f3e              4d 55 4c 41 54 45 44 20 54 45 52 4d 49 4e 41 4c 20 41 44 44 52 45 53 53 45 53 20 46 4f 52 20 49 4e 51 55 49 52 59 2e 20 52 49 47 48 54 20 42 59 54 45 2e 20 49 46 20 53                                                                           ┆MULATED TERMINAL ADDRESSES FOR INQUIRY. RIGHT BYTE. IF S┆
0x1f3e…1f8e (20, 0, 400) 50 45 43 49 46 49 45 44 20 41 54 20 53 59 53 54 45 4d 20 47 00 13 01 54 00 20 00 50 4b 3a 53 41 31 5c 45 51 55 5c 30 5c 53 49 4d 2e 20 54 45 52 4d 2e 20 4e 42 52 20 31 00 14 00 1c 00 16 00 50 4b 3a 53 41 32 5c 45 51 55 5c 30 5c 4e 42 52 20   ┆PECIFIED AT SYSTEM G   T   PK:SA1 EQU 0 SIM. TERM. NBR 1       PK:SA2 EQU 0 NBR ┆
0x1f8e…1fde              32 20 00 14 00 40 00 16 00 50 4b 3a 53 41 33 5c 45 51 55 5c 30 5c 4e 42 52 20 33 20 00 14 00 5a 00 16 00 50 4b 3a 53 41 34 5c 45 51 55 5c 30 5c 4e 42 52 20 34 20 00 14 00 74 00 16 00 50 4b 3a 53 41 35 5c 45 51 55 5c 30 5c 4e 42 52 20 35 20   ┆2    @   PK:SA3 EQU 0 NBR 3    Z   PK:SA4 EQU 0 NBR 4    t   PK:SA5 EQU 0 NBR 5 ┆
0x1fde…202e              00 14 00 8e 00 16 00 50 4b 3a 53 41 36 5c 45 51 55 5c 30 5c 4e 42 52 20 36 20 00 14 00 a8 00 16 00 50 4b 3a 53 41 37 5c 45 51 55 5c 30 5c 4e 42 52 20 37 20 00 14 00 c2 00 16 00 50 4b 3a 53 41 38 5c 45 51 55 5c 30 5c 4e 42 52 20 38 20 00 14   ┆       PK:SA6 EQU 0 NBR 6        PK:SA7 EQU 0 NBR 7        PK:SA8 EQU 0 NBR 8   ┆
0x202e…207e              00 dc 00 16 00 50 4b 3a 53 41 39 5c 45 51 55 5c 30 5c 4e 42 52 20 39 20 00 14 00 f6 00 18 00 50 4b 3a 53 41 31 30 5c 45 51 55 5c 30 5c 4e 42 52 20 31 30 20 00 14 01 10 00 18 00 50 4b 3a 53 41 31 31 5c 45 51 55 5c 30 5c 4e 42 52 20 31 31 20   ┆     PK:SA9 EQU 0 NBR 9        PK:SA10 EQU 0 NBR 10        PK:SA11 EQU 0 NBR 11 ┆
0x207e…20ce              00 14 01 2c 00 18 00 50 4b 3a 53 41 31 32 5c 45 51 55 5c 30 5c 4e 42 52 20 31 32 20 00 14 01 48 00 18 00 50 4b 3a 53 41 31 33 5c 45 51 55 5c 30 5c 4e 42 52 20 31 33 20 00 14 01 64 00 18 00 50 4b 3a 53 41 31 34 5c 45 51 55 5c 30 5c 4e 42 52   ┆   ,   PK:SA12 EQU 0 NBR 12    H   PK:SA13 EQU 0 NBR 13    d   PK:SA14 EQU 0 NBR┆
0x20ce…211e (21, 0, 400) 20 31 34 20 00 14 01 80 00 18 00 50 4b 3a 53 41 31 35 5c 45 51 55 5c 30 5c 4e 42 52 20 31 35 20 00 15 00 0c 00 18 00 50 4b 3a 53 41 31 36 5c 45 51 55 5c 30 5c 4e 42 52 20 31 36 20 00 15 00 28 00 18 00 50 4b 3a 53 41 31 37 5c 45 51 55 5c 30   ┆ 14        PK:SA15 EQU 0 NBR 15        PK:SA16 EQU 0 NBR 16    (   PK:SA17 EQU 0┆
0x211e…216e              5c 4e 42 52 20 31 37 20 00 15 00 44 00 18 00 50 4b 3a 53 41 31 38 5c 45 51 55 5c 30 5c 4e 42 52 20 31 38 20 00 15 00 60 00 18 00 50 4b 3a 53 41 31 39 5c 45 51 55 5c 30 5c 4e 42 52 20 31 39 20 00 15 00 7c 00 18 00 50 4b 3a 53 41 32 30 5c 45   ┆ NBR 17    D   PK:SA18 EQU 0 NBR 18    `   PK:SA19 EQU 0 NBR 19    |   PK:SA20 E┆
0x216e…21be              51 55 5c 30 5c 4e 42 52 20 32 30 20 00 15 00 98 00 18 00 50 4b 3a 53 41 32 31 5c 45 51 55 5c 30 5c 4e 42 52 20 32 31 20 00 15 00 b4 00 18 00 50 4b 3a 53 41 32 32 5c 45 51 55 5c 30 5c 4e 42 52 20 32 32 20 00 15 00 d0 00 18 00 50 4b 3a 53 41   ┆QU 0 NBR 20        PK:SA21 EQU 0 NBR 21        PK:SA22 EQU 0 NBR 22        PK:SA┆
0x21be…220e              32 33 5c 45 51 55 5c 30 5c 4e 42 52 20 32 33 20 00 15 00 ec 00 18 00 50 4b 3a 53 41 32 34 5c 45 51 55 5c 30 5c 4e 42 52 20 32 34 20 00 15 01 08 00 18 00 50 4b 3a 53 41 32 35 5c 45 51 55 5c 30 5c 4e 42 52 20 32 35 20 00 15 01 24 00 18 00 50   ┆23 EQU 0 NBR 23        PK:SA24 EQU 0 NBR 24        PK:SA25 EQU 0 NBR 25    $   P┆
0x220e…225e              4b 3a 53 41 32 36 5c 45 51 55 5c 30 5c 4e 42 52 20 32 36 20 00 15 01 40 00 0a 00 50 5c 45 4a 45 43 54 00 15 01 5c 00 3c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆K:SA26 EQU 0 NBR 26    @   P EJECT     < P**************************************┆
0x225e…22ae (22, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 15 01 6a 00 06 00 50 2a 20 00 16 00 1a 00 2c 00 50 2a 20 20 20 50 41 52 41 4d 45 54 45 52 53 20 46 4f 52 20 43 4f 4e 44 49 54 49 4f 4e 41 4c 20 41 53 53 45 4d 42 4c 59 20 00 16 00 24   ┆*****************    j   P*      , P*   PARAMETERS FOR CONDITIONAL ASSEMBLY    $┆
0x22ae…22fe              00 28 00 50 2a 20 20 20 4f 46 20 43 4f 4e 43 45 4e 54 52 41 54 4f 52 20 50 41 43 4b 41 47 45 20 4d 4f 44 55 4c 45 53 20 00 16 00 54 00 06 00 50 2a 20 00 16 00 80 00 3c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆ ( P*   OF CONCENTRATOR PACKAGE MODULES    T   P*      < P**********************┆
0x22fe…234e              2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 16 00 8a 00 1c 00 50 58 3a 41 5c 45 51 55 5c 32 5c 2a 20 20 4e 4c 49 4e 45 20 3c 3d 31 30 20 00 16 00 ca 00 20 00 50 5c 5c 5c 4e 55 4d   ┆*********************************        PX:A EQU 2 *  NLINE <=10        P   NUM┆
0x234e…239e              42 45 52 20 4f 46 20 54 45 52 4d 49 4e 41 4c 20 4c 49 4e 45 53 20 00 16 00 ea 00 1a 00 50 58 3a 42 5c 45 51 55 5c 38 30 5c 2a 20 20 4e 54 43 20 3c 3d 38 30 00 16 01 0e 00 2e 00 50 5c 5c 5c 54 4f 54 41 4c 20 4e 55 4d 42 45 52 20 4f 46 20 54   ┆BER OF TERMINAL LINES        PX:B EQU 80 *  NTC <=80     . P   TOTAL NUMBER OF T┆
0x239e…23ee              43 3a 53 20 4f 4e 20 54 45 52 4d 49 4e 41 4c 20 4c 49 4e 45 53 20 00 16 01 2c 00 1c 00 50 58 3a 43 5c 45 51 55 5c 32 36 5c 2a 20 20 4e 53 49 4d 20 3c 3d 32 36 20 00 16 01 5e 00 24 00 50 5c 5c 5c 4e 55 4d 42 45 52 20 4f 46 20 53 49 4d 55 4c   ┆C:S ON TERMINAL LINES    ,   PX:C EQU 26 *  NSIM <=26    ^ $ P   NUMBER OF SIMUL┆
0x23ee…243e (23, 0, 400) 41 54 45 44 20 54 45 52 4d 49 4e 41 4c 53 00 16 01 7e 00 14 00 50 5c 5c 5c 46 4f 52 20 49 4e 51 55 49 52 49 45 53 00 17 00 16 00 16 00 50 58 3a 44 5c 45 51 55 5c 30 5c 2a 20 20 4c 4f 4f 50 20 00 17 00 2e 00 2e 00 50 5c 5c 5c 49 46 20 3d 20   ┆ATED TERMINALS   ~   P   FOR INQUIRIES       PX:D EQU 0 *  LOOP    . . P   IF = ┆
0x243e…248e              30 2e 20 4d 55 4c 54 49 50 4f 49 4e 54 20 43 4f 4e 46 49 47 2e 20 44 4f 57 4e 53 54 52 45 41 4d 53 20 00 17 00 48 00 2e 00 50 5c 5c 5c 49 46 20 3d 20 31 2e 20 4c 4f 4f 50 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 44 4f 57 4e 53 54 52 45   ┆0. MULTIPOINT CONFIG. DOWNSTREAMS    H . P   IF = 1. LOOP CONFIGURATION DOWNSTRE┆
0x248e…24de              41 4d 53 20 00 17 00 7a 00 1c 00 50 58 3a 45 5c 45 51 55 5c 34 5c 2a 20 20 4e 53 50 4f 4f 4c 20 3c 3d 34 20 00 17 00 ac 00 28 00 50 5c 5c 5c 4e 55 4d 42 45 52 20 4f 46 20 45 44 49 54 20 42 55 46 46 45 52 53 20 46 4f 52 20 53 50 4f 4f 4c 20   ┆AMS    z   PX:E EQU 4 *  NSPOOL <=4      ( P   NUMBER OF EDIT BUFFERS FOR SPOOL ┆
0x24de…252e              00 17 00 cc 00 22 00 50 5c 5c 5c 46 55 4e 43 54 49 4f 4e 20 54 4f 20 4f 50 45 52 41 54 4f 52 53 20 54 45 52 4d 2e 00 17 00 f8 00 20 00 50 58 3a 46 5c 45 51 55 5c 33 5c 2a 20 20 30 3c 20 4e 54 50 4c 49 4e 20 3c 3d 33 30 20 00 17 01 1e 00 28   ┆     " P   FUNCTION TO OPERATORS TERM.       PX:F EQU 3 *  0< NTPLIN <=30      (┆
0x252e…257e              00 50 5c 5c 5c 4e 55 4d 42 45 52 20 4f 46 20 54 52 41 53 4b 53 20 49 4e 20 50 4f 4f 4c 20 27 54 50 4c 49 4e 27 20 00 17 01 42 00 26 00 50 5c 5c 5c 48 41 4e 44 4c 49 4e 47 20 54 52 41 4e 53 41 43 54 49 4f 4e 53 20 46 52 4f 4d 20 54 43 3a 53   ┆ P   NUMBER OF TRASKS IN POOL 'TPLIN'    B & P   HANDLING TRANSACTIONS FROM TC:S┆
0x257e…25ce (24, 0, 400) 00 17 01 6e 00 1e 00 50 58 3a 47 5c 45 51 55 5c 34 5c 2a 20 20 30 3c 20 4e 54 50 53 55 50 20 3c 3d 35 00 18 00 08 00 28 00 50 5c 5c 5c 4e 55 4d 42 45 52 20 4f 46 20 54 52 41 53 4b 53 20 49 4e 20 50 4f 4f 4c 20 27 54 50 53 55 50 27 20 00 18   ┆   n   PX:G EQU 4 *  0< NTPSUP <=5     ( P   NUMBER OF TRASKS IN POOL 'TPSUP'   ┆
0x25ce…261e              00 2a 00 2c 00 50 5c 5c 5c 48 41 4e 44 4c 49 4e 47 20 54 52 41 4e 53 41 43 54 49 4f 4e 53 20 46 52 4f 4d 20 4d 41 49 4e 20 46 52 41 4d 45 00 18 00 56 00 1c 00 50 5c 5c 5c 4f 52 20 4f 50 45 52 41 54 4f 52 53 20 54 45 52 4d 49 4e 41 4c 00 18   ┆ * , P   HANDLING TRANSACTIONS FROM MAIN FRAME   V   P   OR OPERATORS TERMINAL  ┆
0x261e…266e              00 86 00 18 00 50 58 3a 48 5c 45 51 55 5c 31 5c 2a 20 20 4c 49 4e 54 53 54 20 00 18 00 a6 00 24 00 50 5c 5c 5c 49 46 20 3d 20 30 2e 20 4e 4f 20 4c 49 4e 45 20 54 45 53 54 20 43 4f 4d 4d 41 4e 44 20 00 18 00 c2 00 30 00 50 5c 5c 5c 49 46 20   ┆     PX:H EQU 1 *  LINTST      $ P   IF = 0. NO LINE TEST COMMAND      0 P   IF ┆
0x266e…26be              3d 20 31 2e 20 4c 49 4e 45 20 54 45 53 54 20 46 41 43 49 4c 49 54 59 20 28 34 2d 57 49 52 45 20 4f 4e 4c 59 29 20 00 18 00 ea 00 18 00 50 58 3a 49 5c 45 51 55 5c 32 5c 2a 20 20 4f 4e 4c 49 4e 45 20 00 18 01 1e 00 24 00 50 5c 5c 5c 49 46 20   ┆= 1. LINE TEST FACILITY (4-WIRE ONLY)        PX:I EQU 2 *  ONLINE      $ P   IF ┆
0x26be…270e              3d 20 30 2e 20 4f 46 46 20 4c 49 4e 45 20 43 4f 4e 43 45 4e 54 52 41 54 4f 52 00 18 01 3a 00 28 00 50 5c 5c 5c 49 46 20 3d 20 31 2e 20 4f 4e 2f 4f 46 46 20 4c 49 4e 45 20 43 4f 4e 43 45 4e 54 52 41 54 4f 52 20 00 18 01 62 00 24 00 50 5c 5c   ┆= 0. OFF LINE CONCENTRATOR   : ( P   IF = 1. ON/OFF LINE CONCENTRATOR    b $ P  ┆
0x270e…275e (25, 0, 398) 5c 49 46 20 3d 20 32 2e 20 4f 4e 20 4c 49 4e 45 20 43 4f 4e 43 45 4e 54 52 41 54 4f 52 20 00 18 01 8e 00 18 00 50 58 3a 4b 5c 45 51 55 5c 31 5c 2a 20 20 53 45 54 41 44 52 20 00 19 00 26 00 06 00 50 2a 20 00 19 00 42 00 06 00 50 2a 20 00 19   ┆ IF = 2. ON LINE CONCENTRATOR        PX:K EQU 1 *  SETADR    &   P*    B   P*   ┆
0x275e…27ae              00 4c 00 06 00 50 2a 20 00 19 00 56 00 06 00 50 2a 20 00 19 00 60 00 06 00 50 2a 20 00 19 00 6a 00 06 00 50 2a 20 00 19 00 74 00 06 00 50 2a 20 00 19 00 7e 00 06 00 50 2a 20 00 19 00 88 00 06 00 50 2a 20 00 19 00 92 00 0a 00 50 5c 4c 49 53   ┆ L   P*    V   P*    `   P*    j   P*    t   P*    ~   P*        P*        P LIS┆
0x27ae…27fe              54 20 00 19 00 9c 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 43 43 48 20 00 19 00 aa 00 48 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 4b 20 3a 20 43 20 43 20 57 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆T        P EJECT  IDENT C:CCH      H P******************* K : C C W ************┆
0x27fe…284e              2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 19 00 c6 00 06 00 50 2a 20 00 19 01 12 00 06 00 50 2a 20 00 19 01 1c 00 06 00 50 2a 20 00 19 01 26 00 1c 00 50 2a 53 55 42 52 4f 55 54 49 4e 45 20 20 20 4b 20   ┆*************************        P*        P*        P*    &   P*SUBROUTINE   K ┆
0x284e…289c              3a 20 43 20 43 20 57 20 00 19 01 30 00 24 00 50 2a 57 52 49 54 45 53 20 41 20 4d 45 53 53 41 47 45 20 4f 4e 20 54 52 55 4e 4b 20 4c 49 4e 45 20 00 19 01 50 00 06 00 50 2a 20 00 19 01 78 00 06 00 50 2a 20 00 19 01 82 00 06 00 50 2a 20         ┆: C C W    0 $ P*WRITES A MESSAGE ON TRUNK LINE    P   P*    x   P*        P* ┆
0x289c…28ec (26, 0, 398) 00 19 01 8c 00 22 00 50 2a 20 43 41 4c 4c 20 53 45 51 55 45 4e 43 45 3a 5c 43 46 20 41 31 34 2c 4b 3a 43 43 57 20 00 1a 00 08 00 06 00 50 2a 20 00 1a 00 2e 00 36 00 50 2a 20 20 20 45 4e 54 52 59 20 50 41 52 41 4d 3a 5c 41 33 20 3d 20 41 44   ┆     " P* CALL SEQUENCE: CF A14,K:CCW        P*    . 6 P*   ENTRY PARAM: A3 = AD┆
0x28ec…293c              44 52 45 53 53 20 54 4f 20 42 55 46 46 45 52 20 54 4f 20 42 45 20 53 45 4e 54 00 1a 00 38 00 20 00 50 2a 5c 5c 41 33 2b 49 44 58 42 4c 20 3d 20 42 55 46 46 45 52 20 4c 45 4e 47 54 48 20 00 1a 00 72 00 06 00 50 2a 20 00 1a 00 96 00 30 00 50   ┆DRESS TO BUFFER TO BE SENT   8   P*  A3+IDXBL = BUFFER LENGTH    r   P*      0 P┆
0x293c…298c              2a 20 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 4b 3a 53 54 38 2c 4b 3a 4c 44 38 2c 4b 3a 43 4e 54 20 49 4e 20 43 3a 53 55 42 00 1a 00 a0 00 06 00 50 2a 20 00 1a 00 d4 00 26 00 50 2a 20 20 52 45 54 55 52 4e 20 50 41 52 41 4d 3a 5c 41   ┆*   SUBROUTINES:  K:ST8,K:LD8,K:CNT IN C:SUB       P*      & P*  RETURN PARAM: A┆
0x298c…29dc              34 20 3d 20 52 45 54 55 52 4e 20 43 4f 44 45 20 00 1a 00 de 00 1a 00 50 2a 5c 5c 20 20 20 2f 30 30 30 30 20 20 54 52 41 4e 53 4d 20 4f 4b 00 1a 01 08 00 1c 00 50 2a 5c 5c 20 20 20 2f 30 30 30 31 20 20 43 43 20 4f 46 46 20 4c 49 4e 45 00 1a   ┆4 = RETURN CODE        P*     /0000  TRANSM OK       P*     /0001  CC OFF LINE  ┆
0x29dc…2a2a              01 26 00 1e 00 50 2a 5c 5c 20 20 20 2f 30 30 30 32 20 20 54 52 41 4e 53 4d 20 45 52 52 4f 52 20 00 1a 01 46 00 1c 00 50 2a 5c 5c 43 4f 4e 44 49 54 49 4f 4e 20 52 45 47 20 49 53 20 53 45 54 20 00 1a 01 68 00 06 00 50 2a 20 00 1a 01 88         ┆ &   P*     /0002  TRANSM ERROR    F   P*  CONDITION REG IS SET    h   P*     ┆
0x2a2a…2a7a (27, 0, 400) 00 1c 00 50 2a 20 20 52 45 54 55 52 4e 20 4d 45 54 4f 44 3a 5c 44 49 52 45 43 54 20 00 1b 00 04 00 06 00 50 2a 20 00 1b 00 24 00 18 00 50 2a 20 20 43 48 41 4e 47 45 44 20 52 45 47 53 3a 5c 41 34 20 00 1b 00 2e 00 06 00 50 2a 20 00 1b 00 4a   ┆   P*  RETURN METOD: DIRECT        P*    $   P*  CHANGED REGS: A4    .   P*    J┆
0x2a7a…2aca              00 16 00 50 2a 20 20 53 54 41 43 4b 45 52 20 4e 45 45 44 3a 5c 20 00 1b 00 54 00 06 00 50 2a 20 00 1b 00 6e 00 16 00 50 2a 20 20 20 4c 49 4d 49 54 41 54 49 4f 4e 53 3a 5c 20 00 1b 00 78 00 06 00 50 2a 20 00 1b 00 92 00 22 00 50 2a 20 20 43   ┆   P*  STACKER NEED:     T   P*    n   P*   LIMITATIONS:     x   P*      " P*  C┆
0x2aca…2b1a              41 4c 4c 49 4e 47 20 54 41 53 4b 3a 5c 41 4e 59 20 42 55 54 20 44 43 43 43 20 00 1b 00 9c 00 06 00 50 2a 20 00 1b 00 c2 00 06 00 50 2a 20 00 1b 00 cc 00 44 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆ALLING TASK: ANY BUT DCCC        P*        P*      D P**************************┆
0x2b1a…2b6a              2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 1b 00 d6 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 43 43 48 20 00 1b 01 1e 00 06 00 50 2a 20 00 1b 01 3a   ┆*************************************        P EJECT  IDENT C:CCH        P*    :┆
0x2b6a…2bba              00 10 00 50 2a 5c 5c 4b 20 3a 20 43 20 43 20 57 00 1b 01 44 00 06 00 50 2a 20 00 1b 01 58 00 14 00 50 2a 20 20 20 43 43 20 4f 4e 20 4c 49 4e 45 3f 20 00 1b 01 62 00 06 00 50 2a 20 00 1b 01 7a 00 10 00 50 4b 3a 43 43 57 5c 45 51 55 5c 2a 20   ┆   P*  K : C C W   D   P*    X   P*   CC ON LINE?    b   P*    z   PK:CCW EQU * ┆
0x2bba…2c0a (28, 0, 400) 00 1b 01 84 00 12 00 50 5c 4c 44 5c 41 34 2c 4b 3a 43 43 53 54 20 00 1c 00 08 00 1a 00 50 5c 52 46 28 4e 29 5c 43 43 57 31 30 30 5c 4f 4e 20 4c 49 4e 45 20 00 1c 00 1e 00 0e 00 50 5c 4c 44 4b 5c 41 34 2c 31 20 00 1c 00 3c 00 0e 00 50 5c 52   ┆       P LD A4,K:CCST        P RF(N) CCW100 ON LINE        P LDK A4,1    <   P R┆
0x2c0a…2c5a              46 5c 43 43 57 45 4e 44 00 1c 00 4e 00 10 00 50 43 43 57 31 30 30 5c 45 51 55 5c 2a 00 1c 00 60 00 1e 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 53 54 38 5c 53 41 56 45 20 38 20 52 45 47 53 20 00 1c 00 74 00 06 00 50 2a 20 00 1c 00 96 00 22 00 50   ┆F CCWEND   N   PCCW100 EQU *   `   P CF A14,K:ST8 SAVE 8 REGS    t   P*      " P┆
0x2c5a…2caa              2a 20 41 4c 4c 4f 43 41 54 45 20 53 49 4d 55 4c 41 54 45 44 20 54 45 52 4d 49 4e 41 4c 20 00 1c 00 a0 00 06 00 50 2a 20 00 1c 00 c6 00 10 00 50 57 52 54 43 43 5c 45 51 55 5c 2a 20 00 1c 00 d0 00 0e 00 50 5c 4c 44 4b 5c 41 37 2c 31 20 00 1c   ┆* ALLOCATE SIMULATED TERMINAL        P*        PWRTCC EQU *        P LDK A7,1   ┆
0x2caa…2cfa              00 e4 00 08 00 50 5c 4c 4b 4d 00 1c 00 f6 00 14 00 50 5c 44 41 54 41 5c 2d 37 2c 4b 3a 53 49 4d 50 20 00 1c 01 02 00 06 00 50 2a 20 00 1c 01 1a 00 1a 00 50 2a 20 20 20 4d 41 4b 45 20 57 52 49 54 45 20 52 45 51 55 45 53 54 00 1c 01 24 00 06   ┆     P LKM       P DATA -7,K:SIMP        P*        P*   MAKE WRITE REQUEST   $  ┆
0x2cfa…2d4a              00 50 2a 20 00 1c 01 42 00 22 00 50 5c 53 54 5c 41 33 2c 4b 3a 45 42 41 2c 41 38 5c 42 55 46 46 45 52 20 54 4f 20 45 43 42 20 00 1c 01 4c 00 14 00 50 5c 4c 44 5c 41 37 2c 49 44 58 42 4c 2c 41 33 20 00 1c 01 72 00 14 00 50 5c 53 54 5c 41 37   ┆ P*    B " P ST A3,K:EBA,A8 BUFFER TO ECB    L   P LD A7,IDXBL,A3    r   P ST A7┆
0x2d4a…2d9a (29, 0, 398) 2c 4b 3a 45 52 4c 2c 41 38 20 00 1c 01 8a 00 2e 00 50 5c 4c 44 4b 4c 5c 41 37 2c 4b 3a 57 54 49 4d 5c 53 45 54 20 52 45 51 55 45 53 54 20 54 49 4d 45 20 4f 55 54 20 56 41 4c 55 45 00 1d 00 12 00 14 00 50 5c 53 54 5c 41 37 2c 4b 3a 45 43 57   ┆,K:ERL,A8      . P LDKL A7,K:WTIM SET REQUEST TIME OUT VALUE       P ST A7,K:ECW┆
0x2d9a…2dea              2c 41 38 20 00 1d 00 44 00 10 00 50 5c 4c 44 4b 5c 41 37 2c 2f 38 36 20 00 1d 00 5c 00 08 00 50 5c 4c 4b 4d 00 1d 00 70 00 0c 00 50 5c 44 41 54 41 5c 31 20 00 1d 00 7c 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 43 43 48 20   ┆,A8    D   P LDK A7,/86        P LKM   p   P DATA 1    |   P EJECT  IDENT C:CCH ┆
0x2dea…2e3a              00 1d 00 8c 00 04 00 50 00 1d 00 a8 00 14 00 50 5c 4c 44 5c 41 34 2c 4b 3a 45 52 43 2c 41 38 20 00 1d 00 b0 00 1c 00 50 5c 52 46 28 5a 29 5c 43 43 57 31 32 30 5c 54 52 41 4e 53 4d 20 4f 4b 20 00 1d 00 c8 00 06 00 50 2a 20 00 1d 00 e8 00 1a   ┆       P       P LD A4,K:ERC,A8        P RF(Z) CCW120 TRANSM OK        P*       ┆
0x2e3a…2e8a              00 50 2a 20 20 20 43 4f 55 4e 54 20 54 52 41 4e 53 4d 20 45 52 52 4f 52 00 1d 00 f2 00 06 00 50 2a 20 00 1d 01 10 00 10 00 50 5c 4c 44 4b 5c 41 37 2c 43 43 45 43 00 1d 01 1a 00 12 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 43 4e 54 20 00 1d 01 2e   ┆ P*   COUNT TRANSM ERROR       P*        P LDK A7,CCEC       P CF A14,K:CNT    .┆
0x2e8a…2ed8              00 16 00 50 5c 4c 44 4b 5c 41 34 2c 2f 32 5c 53 45 54 20 52 43 20 00 1d 01 44 00 06 00 50 2a 20 00 1d 01 5e 00 26 00 50 2a 20 20 20 44 45 41 4c 4c 4f 43 41 54 45 20 53 49 4d 55 4c 41 54 45 44 20 54 45 52 4d 49 4e 41 4c 20 00 1d 01 68         ┆   P LDK A4,/2 SET RC    D   P*    ^ & P*   DEALLOCATE SIMULATED TERMINAL    h┆
0x2ed8…2ee0 (30, 0, 400) 00 06 00 50 2a 20 00 1e                                                                                                                                                                                                                           ┆   P*   ┆
0x2ee0…2f06              00 04 00 10 00 50 43 43 57 31 32 30 5c 45 51 55 5c 2a 00 1e 00 0e 00 08 00 50 5c 4c 4b 4d 00 1e 00 22 00 14 00 50                                                                                                                                 ┆     PCCW120 EQU *       P LKM   "   P┆
0x2f06…4b52              […elided…]
0x4b52…4ba0              45 53 50 4f 4e 53 45 20 54 49 4d 45 00 30 00 58 00 06 00 50 2a 20 00 30 00 76 00 10 00 50 43 43 51 31 31 30 5c 45 51 55 5c 2a 00 30 00 80 00 0e 00 50 5c 4c 44 52 5c 41 34 2c 41 31 00 30 00 94 00 12 00 50 5c 41 44 53 5c 41 34 2c 4b 3a         ┆ESPONSE TIME 0 X   P*  0 v   PCCQ110 EQU * 0     P LDR A4,A1 0     P ADS A4,K:┆
0x4ba0…4bf0              43 43 41 43 00 30 00 a6 00 20 00 50 5c 52 46 28 4e 4e 29 5c 43 43 51 31 31 35 5c 4e 4f 54 20 4f 56 45 52 46 4c 4f 57 20 00 30 00 bc 00 12 00 50 5c 4c 44 4b 4c 5c 41 34 2c 2f 37 46 46 46 00 30 00 e0 00 12 00 50 5c 41 4e 53 5c 41 34 2c 4b 3a   ┆CCAC 0     P RF(NN) CCQ115 NOT OVERFLOW  0     P LDKL A4,/7FFF 0     P ANS A4,K:┆
0x4bf0…4c40              43 43 41 43 00 30 00 f6 00 10 00 50 5c 49 4d 5c 4b 3a 43 43 41 43 2d 32 00 30 01 0c 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 43 43 48 20 00 30 01 20 00 06 00 50 2a 20 00 30 01 3c 00 26 00 50 2a 20 43 41 4c 43 55 4c 41 54   ┆CCAC 0     P IM K:CCAC-2 0     P EJECT  IDENT C:CCH  0     P*  0 < & P* CALCULAT┆
0x4c40…4c7e              45 20 52 45 53 50 4f 4e 53 45 20 54 49 4d 45 20 49 4e 54 45 52 56 41 4c 00 30 01 46 00 18 00 50 2a 20 41 31 20 3d 20 52 45 53 50 4f 4e 53 45 20 54 49 4d 45 00 30 01 70 00 06 00 50 2a 20                                                         ┆E RESPONSE TIME INTERVAL 0 F   P* A1 = RESPONSE TIME 0 p   P* ┆
0x4c7e…4cce (49, 0, 398) 00 30 01 8c 00 10 00 50 43 43 51 31 31 35 5c 45 51 55 5c 2a 00 31 00 08 00 26 00 50 5c 4c 44 5c 41 34 2c 4b 3a 52 45 50 49 5c 47 45 54 20 49 4e 54 45 52 56 41 4c 20 4c 45 4e 47 54 48 20 00 31 00 1c 00 14 00 50 5c 4c 44 4b 5c 41 37 2c 30 5c   ┆ 0     PCCQ115 EQU * 1   & P LD A4,K:REPI GET INTERVAL LENGTH  1     P LDK A7,0 ┆
0x4cce…4d1e              49 4e 44 45 58 20 00 31 00 46 00 10 00 50 43 43 51 31 32 30 5c 45 51 55 5c 2a 00 31 00 5e 00 0e 00 50 5c 53 55 52 5c 41 31 2c 41 34 00 31 00 72 00 20 00 50 5c 52 46 28 4e 29 5c 43 43 51 31 33 30 5c 49 4e 54 45 52 56 41 4c 20 46 4f 55 4e 44   ┆INDEX  1 F   PCCQ120 EQU * 1 ^   P SUR A1,A4 1 r   P RF(N) CCQ130 INTERVAL FOUND┆
0x4d1e…4d6e              00 31 00 84 00 18 00 50 5c 41 44 4b 5c 41 37 2c 31 5c 49 4e 43 52 20 49 4e 44 45 58 00 31 00 a8 00 0e 00 50 5c 43 57 4b 5c 41 37 2c 31 31 00 31 00 c4 00 22 00 50 5c 52 42 28 4c 29 5c 43 43 51 31 32 30 5c 4d 4f 52 45 20 54 49 4e 54 45 52 56   ┆ 1     P ADK A7,1 INCR INDEX 1     P CWK A7,11 1   " P RB(L) CCQ120 MORE TINTERV┆
0x4d6e…4dbe              41 4c 53 20 00 31 00 d6 00 06 00 50 2a 20 00 31 00 fc 00 10 00 50 43 43 51 31 33 30 5c 45 51 55 5c 2a 00 31 01 06 00 10 00 50 5c 41 44 4b 5c 41 37 2c 43 43 31 20 00 31 01 1a 00 12 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 43 4e 54 20 00 31 01 2e   ┆ALS  1     P*  1     PCCQ130 EQU * 1     P ADK A7,CC1  1     P CF A14,K:CNT  1 .┆
0x4dbe…4e0c              00 06 00 50 2a 20 00 31 01 44 00 26 00 50 2a 20 20 20 44 45 41 4c 4c 4f 43 41 54 45 20 53 49 4d 55 4c 41 54 45 44 20 54 45 52 4d 49 4e 41 4c 20 00 31 01 4e 00 06 00 50 2a 20 00 31 01 78 00 10 00 50 52 42 43 38 30 30 5c 45 51 55 5c 2a         ┆   P*  1 D & P*   DEALLOCATE SIMULATED TERMINAL  1 N   P*  1 x   PRBC800 EQU *┆
0x4e0c…4e5c (50, 0, 398) 00 31 01 82 00 0a 00 50 5c 4c 4b 4d 5c 20 00 32 00 08 00 14 00 50 5c 44 41 54 41 5c 2d 38 2c 4b 3a 53 49 4d 50 20 00 32 00 16 00 10 00 50 52 42 43 39 30 30 5c 45 51 55 5c 2a 00 32 00 2e 00 20 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 4c 44 38 5c   ┆ 1     P LKM   2     P DATA -8,K:SIMP  2     PRBC900 EQU * 2 .   P CF A14,K:LD8 ┆
0x4e5c…4eac              52 45 53 54 4f 52 45 20 41 31 2d 41 38 20 00 32 00 42 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 32 00 66 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 43 43 48 20 00 32 00 76 00 44 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆RESTORE A1-A8  2 B   P RTN A14 2 f   P EJECT  IDENT C:CCH  2 v D P**************┆
0x4eac…4efc              2a 2a 2a 2a 2a 2a 20 4b 20 3a 20 52 20 43 20 43 20 42 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 32 00 92 00 06 00 50 2a 20 00 32 00 da 00 06 00 50 2a 20 00 32 00 e4 00 06 00 50 2a 20   ┆****** K : R C C B ******************************* 2     P*  2     P*  2     P* ┆
0x4efc…4f4c              00 32 00 ee 00 1c 00 50 2a 53 55 42 52 4f 55 54 49 4e 45 20 20 4b 20 3a 20 52 20 43 20 43 20 42 00 32 00 f8 00 36 00 50 2a 52 45 54 55 52 4e 53 20 41 20 52 45 41 44 20 43 43 20 42 55 46 46 45 52 20 54 4f 20 54 48 45 20 43 43 20 44 52 49 56   ┆ 2     P*SUBROUTINE  K : R C C B 2   6 P*RETURNS A READ CC BUFFER TO THE CC DRIV┆
0x4f4c…4f9a              45 52 20 57 49 54 48 4f 55 54 00 32 01 18 00 2c 00 50 2a 44 45 41 4c 4c 4f 43 41 54 49 4f 4e 20 4f 46 20 53 49 4d 55 4c 41 54 45 44 20 54 45 52 4d 49 4e 41 4c 20 45 43 42 20 00 32 01 52 00 06 00 50 2a 20 00 32 01 82 00 06 00 50 2a 20         ┆ER WITHOUT 2   , P*DEALLOCATION OF SIMULATED TERMINAL ECB  2 R   P*  2     P* ┆
0x4f9a…4fea (51, 0, 400) 00 32 01 8c 00 06 00 50 2a 20 00 33 00 08 00 24 00 50 2a 20 43 41 4c 4c 20 53 45 51 55 45 4e 43 45 3a 20 20 43 46 20 20 41 31 34 2c 4b 3a 52 43 43 42 00 33 00 12 00 06 00 50 2a 20 00 33 00 3a 00 2a 00 50 2a 20 20 20 45 4e 54 52 59 20 50 41   ┆ 2     P*  3   $ P* CALL SEQUENCE:  CF  A14,K:RCCB 3     P*  3 : * P*   ENTRY PA┆
0x4fea…503a              52 41 4d 3a 20 20 41 31 20 3d 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 00 33 00 44 00 06 00 50 2a 20 00 33 00 72 00 14 00 50 2a 20 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 00 33 00 7c 00 06 00 50 2a 20 00 33 00 94 00 1a 00 50 2a 20   ┆RAM:  A1 = BUFFER ADDRESS  3 D   P*  3 r   P*   SUBROUTINES: 3 |   P*  3     P* ┆
0x503a…508a              20 52 45 54 55 52 4e 20 50 41 52 41 4d 3a 20 20 4e 4f 4e 45 00 33 00 9e 00 06 00 50 2a 20 00 33 00 bc 00 1e 00 50 2a 20 20 52 45 54 55 52 4e 20 4d 45 54 48 44 3a 20 20 56 49 41 20 41 31 34 20 00 33 00 c6 00 06 00 50 2a 20 00 33 00 e8 00 18   ┆ RETURN PARAM:  NONE 3     P*  3     P*  RETURN METHD:  VIA A14  3     P*  3    ┆
0x508a…50da              00 50 2a 20 20 43 48 41 4e 47 45 44 20 52 45 47 53 3a 20 20 41 38 00 33 00 f2 00 06 00 50 2a 20 00 33 01 0e 00 18 00 50 2a 20 20 53 54 41 43 4b 45 52 20 4e 45 45 44 3a 20 20 31 20 00 33 01 18 00 06 00 50 2a 20 00 33 01 34 00 14 00 50 2a 20   ┆ P*  CHANGED REGS:  A8 3     P*  3     P*  STACKER NEED:  1  3     P*  3 4   P* ┆
0x50da…512a              20 20 4c 49 4d 49 54 41 54 49 4f 4e 53 3a 00 33 01 3e 00 06 00 50 2a 20 00 33 01 56 00 1c 00 50 2a 20 20 43 41 4c 4c 49 4e 47 20 54 41 53 4b 3a 20 20 54 52 41 53 4b 20 00 33 01 60 00 06 00 50 2a 20 00 33 01 80 00 06 00 50 2a 20 00 33 01 8a   ┆  LIMITATIONS: 3 >   P*  3 V   P*  CALLING TASK:  TRASK  3 `   P*  3     P*  3  ┆
0x512a…517a (52, 0, 400) 00 42 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 34 00 04 00 18 00 50 5c 45 4a 45 43 54   ┆ B P************************************************************** 4     P EJECT┆
0x517a…51ca              5c 5c 49 44 45 4e 54 20 43 3a 43 43 48 20 00 34 00 4a 00 06 00 50 2a 20 00 34 00 66 00 1c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 4b 20 3a 20 52 20 43 20 43 20 42 00 34 00 70 00 06 00 50 2a 20 00 34 00 90 00 04 00 50 00 34 00 9a 00 06   ┆  IDENT C:CCH  4 J   P*  4 f   P*            K : R C C B 4 p   P*  4     P 4    ┆
0x51ca…521a              00 50 2a 20 00 34 00 a2 00 10 00 50 4b 3a 52 43 43 42 5c 45 51 55 5c 2a 00 34 00 ac 00 18 00 50 5c 53 54 52 5c 41 37 2c 41 31 34 5c 53 41 56 45 20 41 37 20 00 34 00 c0 00 06 00 50 2a 20 00 34 00 dc 00 30 00 50 2a 20 20 20 47 45 54 20 41 4e   ┆ P*  4     PK:RCCB EQU * 4     P STR A7,A14 SAVE A7  4     P*  4   0 P*   GET AN┆
0x521a…526a              44 20 4d 4f 44 49 46 59 20 54 45 52 4d 49 4e 41 4c 20 4c 49 4e 45 20 4f 55 54 50 55 54 20 45 43 42 20 00 34 00 e6 00 10 00 50 2a 20 20 20 4f 46 20 54 52 41 53 4b 00 34 01 1a 00 06 00 50 2a 20 00 34 01 2e 00 1e 00 50 5c 4c 44 5c 41 38 2c 4b   ┆D MODIFY TERMINAL LINE OUTPUT ECB  4     P*   OF TRASK 4     P*  4 .   P LD A8,K┆
0x526a…52ba              3a 4c 55 54 45 2c 41 31 33 5c 47 45 54 20 45 43 42 20 00 34 01 38 00 2e 00 50 5c 4c 44 4b 5c 41 37 2c 2f 36 31 5c 4d 4f 44 49 46 59 20 46 43 20 54 4f 20 42 45 20 53 49 4d 20 54 45 52 4d 20 30 20 45 43 42 00 34 01 5a 00 10 00 50 5c 53 43 5c   ┆:LUTE,A13 GET ECB  4 8 . P LDK A7,/61 MODIFY FC TO BE SIM TERM 0 ECB 4 Z   P SC ┆
0x52ba…530a (53, 2, 274) 41 37 2c 31 2c 41 38 20 00 34 01 8c 00 28 00 50 5c 53 54 5c 41 31 2c 4b 3a 45 42 41 2c 41 38 5c 53 54 4f 52 45 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 00 35 00 10 00 04 00 50 00 35 00 3c 00 06 00 50 2a 20 00 35 00 44 00 1e 00 50 2a 20   ┆A7,1,A8  4   ( P ST A1,K:EBA,A8 STORE BUFFER ADDRESS 5     P 5 <   P*  5 D   P* ┆
0x530a…535a              20 20 52 45 4c 45 41 53 45 20 43 43 20 52 45 41 44 20 42 55 46 46 45 52 00 35 00 4e 00 06 00 50 2a 20 00 35 00 70 00 10 00 50 5c 4c 44 4b 5c 41 37 2c 2f 41 32 20 00 35 00 7a 00 08 00 50 5c 4c 4b 4d 00 35 00 8e 00 0c 00 50 5c 44 41 54 41 5c   ┆  RELEASE CC READ BUFFER 5 N   P*  5 p   P LDK A7,/A2  5 z   P LKM 5     P DATA ┆
0x535a…53aa              31 20 00 35 00 9a 00 10 00 50 52 42 46 52 54 4e 5c 45 51 55 5c 2a 00 35 00 aa 00 1c 00 50 5c 4c 44 52 2a 5c 41 37 2c 41 31 34 5c 52 45 53 54 4f 52 45 20 41 37 20 00 35 00 be 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 35 00 de 00 06 00 50 2a 20   ┆1  5     PRBFRTN EQU * 5     P LDR* A7,A14 RESTORE A7  5     P RTN A14 5     P* ┆
0x53aa…53cc              00 35 00 ee 00 06 00 50 2a 20 00 35 00 f8 00 08 00 50 5c 45 4e 44 00 35 01 02 40 04 00 00 00 35 01 0e                                                                                                                                             ┆ 5     P*  5     P END 5  @    5  ┆
0x53cc…53d4 (54, 1, 8)   20 04 00 00 00 36 00 04                                                                                                                                                                                                                           ┆     6  ┆
0x53d4…5424 (55, 0, 398) 00 36 01 8e 00 10 00 50 52 42 43 38 30 30 5c 45 51 55 5c 2a 00 37 00 08 00 0a 00 50 5c 4c 4b 4d 5c 20 00 37 00 1c 00 14 00 50 5c 44 41 54 41 5c 2d 38 2c 4b 3a 53 49 4d 50 20 00 37 00 2a 00 10 00 50 52 42 43 39 30 30 5c 45 51 55 5c 2a 00 37   ┆ 6     PRBC800 EQU * 7     P LKM   7     P DATA -8,K:SIMP  7 *   PRBC900 EQU * 7┆
0x5424…5474              00 42 00 20 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 4c 44 38 5c 52 45 53 54 4f 52 45 20 41 31 2d 41 38 20 00 37 00 56 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 37 00 7a 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 43 43 48 20 00 37   ┆ B   P CF A14,K:LD8 RESTORE A1-A8  7 V   P RTN A14 7 z   P EJECT  IDENT C:CCH  7┆
0x5474…54c4              00 8a 00 44 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 4b 20 3a 20 52 20 43 20 43 20 42 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 37 00 a6 00 06 00 50 2a 20   ┆   D P******************** K : R C C B ******************************* 7     P* ┆
0x54c4…5514              00 37 00 ee 00 06 00 50 2a 20 00 37 00 f8 00 06 00 50 2a 20 00 37 01 02 00 1c 00 50 2a 53 55 42 52 4f 55 54 49 4e 45 20 20 4b 20 3a 20 52 20 43 20 43 20 42 00 37 01 0c 00 36 00 50 2a 52 45 54 55 52 4e 53 20 41 20 52 45 41 44 20 43 43 20 42   ┆ 7     P*  7     P*  7     P*SUBROUTINE  K : R C C B 7   6 P*RETURNS A READ CC B┆
0x5514…5562              55 46 46 45 52 20 54 4f 20 54 48 45 20 43 43 20 44 52 49 56 45 52 20 57 49 54 48 4f 55 54 00 37 01 2c 00 2c 00 50 2a 44 45 41 4c 4c 4f 43 41 54 49 4f 4e 20 4f 46 20 53 49 4d 55 4c 41 54 45 44 20 54 45 52 4d 49 4e 41 4c 20 45 43 42 20         ┆UFFER TO THE CC DRIVER WITHOUT 7 , , P*DEALLOCATION OF SIMULATED TERMINAL ECB ┆
0x5562…55b2 (56, 0, 400) 00 37 01 66 00 06 00 50 2a 20 00 38 00 08 00 06 00 50 2a 20 00 38 00 12 00 06 00 50 2a 20 00 38 00 1c 00 24 00 50 2a 20 43 41 4c 4c 20 53 45 51 55 45 4e 43 45 3a 20 20 43 46 20 20 41 31 34 2c 4b 3a 52 43 43 42 00 38 00 26 00 06 00 50 2a 20   ┆ 7 f   P*  8     P*  8     P*  8   $ P* CALL SEQUENCE:  CF  A14,K:RCCB 8 &   P* ┆
0x55b2…5602              00 38 00 4e 00 2a 00 50 2a 20 20 20 45 4e 54 52 59 20 50 41 52 41 4d 3a 20 20 41 31 20 3d 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 00 38 00 58 00 06 00 50 2a 20 00 38 00 86 00 14 00 50 2a 20 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a   ┆ 8 N * P*   ENTRY PARAM:  A1 = BUFFER ADDRESS  8 X   P*  8     P*   SUBROUTINES:┆
0x5602…5652              00 38 00 90 00 06 00 50 2a 20 00 38 00 a8 00 1a 00 50 2a 20 20 52 45 54 55 52 4e 20 50 41 52 41 4d 3a 20 20 4e 4f 4e 45 00 38 00 b2 00 06 00 50 2a 20 00 38 00 d0 00 1e 00 50 2a 20 20 52 45 54 55 52 4e 20 4d 45 54 48 44 3a 20 20 56 49 41 20   ┆ 8     P*  8     P*  RETURN PARAM:  NONE 8     P*  8     P*  RETURN METHD:  VIA ┆
0x5652…56a2              41 31 34 20 00 38 00 da 00 06 00 50 2a 20 00 38 00 fc 00 18 00 50 2a 20 20 43 48 41 4e 47 45 44 20 52 45 47 53 3a 20 20 41 38 00 38 01 06 00 06 00 50 2a 20 00 38 01 22 00 18 00 50 2a 20 20 53 54 41 43 4b 45 52 20 4e 45 45 44 3a 20 20 31 20   ┆A14  8     P*  8     P*  CHANGED REGS:  A8 8     P*  8 "   P*  STACKER NEED:  1 ┆
0x56a2…56f2              00 38 01 2c 00 06 00 50 2a 20 00 38 01 48 00 14 00 50 2a 20 20 20 4c 49 4d 49 54 41 54 49 4f 4e 53 3a 00 38 01 52 00 06 00 50 2a 20 00 38 01 6a 00 1c 00 50 2a 20 20 43 41 4c 4c 49 4e 47 20 54 41 53 4b 3a 20 20 54 52 41 53 4b 20 00 38 01 74   ┆ 8 ,   P*  8 H   P*   LIMITATIONS: 8 R   P*  8 j   P*  CALLING TASK:  TRASK  8 t┆
0x56f2…5742 (57, 0, 400) 00 06 00 50 2a 20 00 39 00 04 00 06 00 50 2a 20 00 39 00 0e 00 42 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆   P*  9     P*  9   B P********************************************************┆
0x5742…5792              2a 2a 2a 2a 2a 2a 00 39 00 18 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 43 43 48 20 00 39 00 5e 00 06 00 50 2a 20 00 39 00 7a 00 1c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 4b 20 3a 20 52 20 43 20 43 20 42 00 39 00 84   ┆****** 9     P EJECT  IDENT C:CCH  9 ^   P*  9 z   P*            K : R C C B 9  ┆
0x5792…57e2              00 06 00 50 2a 20 00 39 00 a4 00 04 00 50 00 39 00 ae 00 06 00 50 2a 20 00 39 00 b6 00 10 00 50 4b 3a 52 43 43 42 5c 45 51 55 5c 2a 00 39 00 c0 00 18 00 50 5c 53 54 52 5c 41 37 2c 41 31 34 5c 53 41 56 45 20 41 37 20 00 39 00 d4 00 06 00 50   ┆   P*  9     P 9     P*  9     PK:RCCB EQU * 9     P STR A7,A14 SAVE A7  9     P┆
0x57e2…5832              2a 20 00 39 00 f0 00 30 00 50 2a 20 20 20 47 45 54 20 41 4e 44 20 4d 4f 44 49 46 59 20 54 45 52 4d 49 4e 41 4c 20 4c 49 4e 45 20 4f 55 54 50 55 54 20 45 43 42 20 00 39 00 fa 00 10 00 50 2a 20 20 20 4f 46 20 54 52 41 53 4b 00 39 01 2e 00 06   ┆*  9   0 P*   GET AND MODIFY TERMINAL LINE OUTPUT ECB  9     P*   OF TRASK 9 .  ┆
0x5832…5882              00 50 2a 20 00 39 01 42 00 10 00 50 5c 4c 44 52 5c 41 38 2c 41 31 33 20 00 39 01 4c 00 1c 00 50 5c 41 44 4b 4c 5c 41 38 2c 4b 3a 4c 55 54 45 5c 47 45 54 20 45 43 42 20 00 39 01 60 00 2e 00 50 5c 4c 44 4b 5c 41 37 2c 2f 36 31 5c 4d 4f 44 49   ┆ P*  9 B   P LDR A8,A13  9 L   P ADKL A8,K:LUTE GET ECB  9 ` . P LDK A7,/61 MODI┆
0x5882…58d2 (58, 2, 312) 46 59 20 46 43 20 54 4f 20 42 45 20 53 49 4d 20 54 45 52 4d 20 30 20 45 43 42 00 39 01 80 00 10 00 50 5c 53 43 5c 41 37 2c 31 2c 41 38 20 00 3a 00 22 00 28 00 50 5c 53 54 5c 41 31 2c 4b 3a 45 42 41 2c 41 38 5c 53 54 4f 52 45 20 42 55 46 46   ┆FY FC TO BE SIM TERM 0 ECB 9     P SC A7,1,A8  : " ( P ST A1,K:EBA,A8 STORE BUFF┆
0x58d2…5922              45 52 20 41 44 44 52 45 53 53 00 3a 00 36 00 04 00 50 00 3a 00 62 00 06 00 50 2a 20 00 3a 00 6a 00 1e 00 50 2a 20 20 20 52 45 4c 45 41 53 45 20 43 43 20 52 45 41 44 20 42 55 46 46 45 52 00 3a 00 74 00 06 00 50 2a 20 00 3a 00 96 00 10 00 50   ┆ER ADDRESS : 6   P : b   P*  : j   P*   RELEASE CC READ BUFFER : t   P*  :     P┆
0x5922…5972              5c 4c 44 4b 5c 41 37 2c 2f 41 32 20 00 3a 00 a0 00 08 00 50 5c 4c 4b 4d 00 3a 00 b4 00 0c 00 50 5c 44 41 54 41 5c 31 20 00 3a 00 c0 00 10 00 50 52 42 46 52 54 4e 5c 45 51 55 5c 2a 00 3a 00 d0 00 1c 00 50 5c 4c 44 52 2a 5c 41 37 2c 41 31 34   ┆ LDK A7,/A2  :     P LKM :     P DATA 1  :     PRBFRTN EQU * :     P LDR* A7,A14┆
0x5972…59ba              5c 52 45 53 54 4f 52 45 20 41 37 20 00 3a 00 e4 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 3a 01 04 00 06 00 50 2a 20 00 3a 01 14 00 06 00 50 2a 20 00 3a 01 1e 00 08 00 50 5c 45 4e 44 00 3a 01 28 40 04 00 00 00 3a 01 34                           ┆ RESTORE A7  :     P RTN A14 :     P*  :     P*  :     P END : (@    : 4┆
0x59ba…59c2 (59, 1, 8)   20 04 00 00 00 3b 00 04                                                                                                                                                                                                                           ┆     ;  ┆
0x59c2…5a12 (60, 0, 400) 00 23 01 84 00 0a 00 50 5c 45 4a 45 43 54 00 24 00 08 00 06 00 50 2a 20 00 24 00 16 00 06 00 50 2a 20 00 24 00 20 00 38 00 50 2a 5c 5c 45 43 42 54 42 31 20 41 4e 44 20 45 43 42 54 42 32 20 46 4f 52 20 54 43 41 2c 44 45 56 2e 43 4f 4e 56 2e   ┆ #     P EJECT $     P*  $     P*  $   8 P*  ECBTB1 AND ECBTB2 FOR TCA,DEV.CONV.┆
0x5a12…5a62              54 4f 20 46 49 4c 52 45 20 43 4f 44 45 20 00 24 00 2a 00 06 00 50 2a 20 00 24 00 66 00 06 00 50 2a 20 00 24 00 70 00 18 00 50 45 43 42 54 42 31 5c 45 51 55 5c 2a 2d 45 43 42 45 4e 31 20 00 24 00 7a 00 10 00 50 5c 44 41 54 41 5c 2f 34 31 34   ┆TO FILRE CODE  $ *   P*  $ f   P*  $ p   PECBTB1 EQU *-ECBEN1  $ z   P DATA /414┆
0x5a62…5ab2              31 20 00 24 00 96 00 0e 00 50 5c 44 41 54 41 5c 2f 36 31 20 00 24 00 aa 00 10 00 50 5c 44 41 54 41 5c 2f 34 31 34 32 20 00 24 00 bc 00 0e 00 50 5c 44 41 54 41 5c 2f 36 32 20 00 24 00 d0 00 10 00 50 5c 44 41 54 41 5c 2f 34 32 34 31 20 00 24   ┆1  $     P DATA /61  $     P DATA /4142  $     P DATA /62  $     P DATA /4241  $┆
0x5ab2…5b02              00 e2 00 0e 00 50 5c 44 41 54 41 5c 2f 36 33 20 00 24 00 f6 00 10 00 50 5c 44 41 54 41 5c 2f 34 32 34 32 20 00 24 01 08 00 0e 00 50 5c 44 41 54 41 5c 2f 36 34 20 00 24 01 1c 00 10 00 50 5c 44 41 54 41 5c 2f 34 33 34 31 20 00 24 01 2e 00 0e   ┆     P DATA /63  $     P DATA /4242  $     P DATA /64  $     P DATA /4341  $ .  ┆
0x5b02…5b52              00 50 5c 44 41 54 41 5c 2f 36 35 20 00 24 01 42 00 10 00 50 5c 44 41 54 41 5c 2f 34 33 34 32 20 00 24 01 54 00 20 00 50 5c 4c 44 5c 41 36 2c 2d 32 2c 41 33 5c 47 45 54 20 54 43 41 20 4c 49 4e 45 20 4e 4f 00 24 01 68 00 18 00 50 5c 41 4e 4b   ┆ P DATA /65  $ B   P DATA /4342  $ T   P LD A6,-2,A3 GET TCA LINE NO $ h   P ANK┆

Reduced view