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

⟦cbd5e0f91⟧

    Length: 27020 (0x698c)
    Notes: pts_type(SC)
    Names: »C:SIC.SC«

Derivation

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

PTS(SC)

	IDENT C:SIC 	CONPAC REL=0.0 DATE= 77.10.12 
			UPDATE #1 77.08.12 JES 
*************************************************************** 
* 
*	CONCENTRATOR APPLICATION PACKAGE  PEAB-T
* 
*	PROGRAMMER:  BORJE MARTINSSON 
* 
* 
*	C : S I C 
* 
* 
*   * 
*   THIS MODULE CONTAINES THE PROGRAMS THE OPERATOR CAN 
*   CALL TO GET STATISTICS PRINTED
*   * 
* 
* 
*	THIS MODULE RUNS UNDER TASK:  OPCOM 
* 
* 
*	THE MODULE CONTAINS THE SUBROUTINES:
* 
*	NAME	REVDAT	VERSION 
* 
*	
* 
****************************************************************
	EJECT		IDENT C:SIC 
* 
* 
*	ENTRY ADDRESSES 
* 
*************************************************************** 
* 
*		ENTRY	DESCRIPTION
* 
	ENTRY	K:SS	PRINT SYSTEM STATISTICS 
	ENTRY	K:SC	  "     "       "      AND CLEAR COUNTERS 
	ENTRY	K:SCS	RESET SYSTEM PARAMETERS
	ENTRY	K:SCT	RESET TC PARAMETERS
	ENTRY	K:CS	  "   CC        " 
	ENTRY	K:LS	  "   LINE      " 
	ENTRY	K:TS	  "   TC        " 
	ENTRY	K:TS10 
	ENTRY	K:NS	  "   NETWORK   " 

	EJECT		IDENT C:SIC 
* 
* 
*	EXTERNAL REFERENSES 
* 
*************************************************************** 
* 
*		ADDRESS	IN MODULE
* 
* 
	EXTRN	K:CKL	C:NSU
	EXTRN	K:GTC
* 
	EXTRN	K:GPE	C:TCA
	EXTRN	K:CCAC 
* 
	EXTRN	T:WRTZ	TOSSFUNC
	EXTRN	T:OPA
* 

	EXTRN	K:F343	C:TXT 
	EXTRN	K:F460 
	EXTRN	K:F461 
	EXTRN	K:F462 
	EXTRN	K:F463 
	EXTRN	K:F464 
	EXTRN	K:F465 
	EXTRN	K:F466 
	EXTRN	K:F467 
	EXTRN	K:F468 
	EXTRN	K:F469 
	EXTRN	K:F561 
	EXTRN	K:F800 
	EXTRN	K:F801 
	EXTRN	K:F803 
	EXTRN	K:F804 
	EXTRN	K:F805 
* 
	EXTRN	K:WBCR	C:WBS 
	EXTRN	K:WBCC 
	EXTRN	K:WBNW 
	EXTRN	K:DUM
* 
	EXTRN	K:PRTN	C:FUA 
	EXTRN	K:PRTT 
* 
	EXTRN	K:LTC	C:FIG
	EXTRN	K:LEND 
	EXTRN	K:CONF 
	EXTRN	K:CONE 
	EXTRN	K:TCP
	EXTRN	K:TCPE 
	EXTRN	K:TCE
* 
	EXTRN	K:NOCL	C:ONW 
* 
	EXTRN	K:ST4	C:SUB
	EXTRN	K:LD4
* 
* 
*  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	/06	ENTRY K KEY
K:UKEY	EQU	/05	ENTER U KEY
K:EOR	EQU	/12	END OF RECORD KEY 
CANCEL	EQU	/17	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:SIC  CONPAC REL=0.0 DATE= 77.10.12 «, t00=0x0000, t01=0x0004}
0x0034…0056              Head {h00=0x001e, h01=0x0050, text=»   UPDATE #1 77.08.12 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…010c              Head {h00=0x0024, h01=0x0050, text=»* PROGRAMMER:  BORJE MARTINSSON «, t00=0x0000, t01=0x00e8}
0x010c…0116              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0110}
0x0116…0120              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011a}
0x0120…0134              Head {h00=0x0010, h01=0x0050, text=»* C : S I C «, t00=0x0000, t01=0x0124}
0x0134…013e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0138}
0x013e…0148              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0142}
0x0148…0156              Head {h00=0x000a, h01=0x0050, text=»*   * «, t00=0x0000, t01=0x014c}
0x0156…0196              Head {h00=0x003c, h01=0x0050, text=»*   THIS MODULE CONTAINES THE PROGRAMS THE OPERATOR CAN «, t00=0x0000, t01=0x015a}
0x0196…01c0              Head {h00=0x0026, h01=0x0050, text=»*   CALL TO GET STATISTICS PRINTED«, t00=0x0001, t01=0x000a}
0x01c0…01ce              Head {h00=0x000a, h01=0x0050, text=»*   * «, t00=0x0001, t01=0x0034}
0x01ce…01d8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0042}
0x01d8…01e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x004c}
0x01e2…0210              Head {h00=0x002a, h01=0x0050, text=»* THIS MODULE RUNS UNDER TASK:  OPCOM «, t00=0x0001, t01=0x0056}
0x0210…021a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0084}
0x021a…0224              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x008e}
0x0224…0252              Head {h00=0x002a, h01=0x0050, text=»* THE MODULE CONTAINS THE SUBROUTINES:«, t00=0x0001, t01=0x0098}
0x0252…025c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c6}
0x025c…027a              Head {h00=0x001a, h01=0x0050, text=»* NAME REVDAT VERSION «, t00=0x0001, t01=0x00d0}
0x027a…0284              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ee}
0x0284…028e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f8}
0x028e…0298              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0102}
0x0298…02e0              Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0001, t01=0x010c}
0x02e0…02fc              Head {h00=0x0018, h01=0x0050, text=» EJECT  IDENT C:SIC «, t00=0x0001, t01=0x0154}
0x02fc…0306              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0170}
0x0306…0310              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x017a}
0x0310…032a              Head {h00=0x0016, h01=0x0050, text=»* ENTRY ADDRESSES «, t00=0x0001, t01=0x0184}
0x032a…0334              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x000e}
0x0334…037c              Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0002, t01=0x0018}
0x037c…0386              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0060}
0x0386…03a2              Head {h00=0x0018, h01=0x0050, text=»*  ENTRY DESCRIPTION«, t00=0x0002, t01=0x006a}
0x03a2…03ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0086}
0x03ac…03d8              Head {h00=0x0028, h01=0x0050, text=» ENTRY K:SS PRINT SYSTEM STATISTICS «, t00=0x0002, t01=0x0090}
0x03d8…0416              Head {h00=0x003a, h01=0x0050, text=» ENTRY K:SC   "     "       "      AND CLEAR COUNTERS «, t00=0x0002, t01=0x00bc}
0x0416…0442              Head {h00=0x0028, h01=0x0050, text=» ENTRY K:SCS RESET SYSTEM PARAMETERS«, t00=0x0002, t01=0x00fa}
0x0442…046a              Head {h00=0x0024, h01=0x0050, text=» ENTRY K:SCT RESET TC PARAMETERS«, t00=0x0002, t01=0x0126}
0x046a…0490              Head {h00=0x0022, h01=0x0050, text=» ENTRY K:CS   "   CC        " «, t00=0x0002, t01=0x014e}
0x0490…04b6              Head {h00=0x0022, h01=0x0050, text=» ENTRY K:LS   "   LINE      " «, t00=0x0002, t01=0x0174}
0x04b6…04dc              Head {h00=0x0022, h01=0x0050, text=» ENTRY K:TS   "   TC        " «, t00=0x0003, t01=0x000a}
0x04dc…04f2              Head {h00=0x0012, h01=0x0050, text=» ENTRY K:TS10 «, t00=0x0003, t01=0x0030}
0x04f2…0518              Head {h00=0x0022, h01=0x0050, text=» ENTRY K:NS   "   NETWORK   " «, t00=0x0003, t01=0x0046}
0x0518…0520              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x006c}
0x0520…053c              Head {h00=0x0018, h01=0x0050, text=» EJECT  IDENT C:SIC «, t00=0x0003, t01=0x0074}
0x053c…0546              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0090}
0x0546…0550              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x009a}
0x0550…056e              Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL REFERENSES «, t00=0x0003, t01=0x00a4}
0x056e…0578              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c2}
0x0578…05c0              Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0003, t01=0x00cc}
0x05c0…05ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0114}
0x05ca…05e6              Head {h00=0x0018, h01=0x0050, text=»*  ADDRESS IN MODULE«, t00=0x0003, t01=0x011e}
0x05e6…05f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x013a}
0x05f0…05fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0144}
0x05fa…0614              Head {h00=0x0016, h01=0x0050, text=» EXTRN K:CKL C:NSU«, t00=0x0003, t01=0x014e}
0x0614…0628              Head {h00=0x0010, h01=0x0050, text=» EXTRN K:GTC«, t00=0x0003, t01=0x0168}
0x0628…0632              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x017c}
0x0632…064c              Head {h00=0x0016, h01=0x0050, text=» EXTRN K:GPE C:TCA«, t00=0x0003, t01=0x0186}
0x064c…0662              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:CCAC «, t00=0x0004, t01=0x0010}
0x0662…066c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0026}
0x066c…068a              Head {h00=0x001a, h01=0x0050, text=» EXTRN T:WRTZ TOSSFUNC«, t00=0x0004, t01=0x0030}
0x068a…069e              Head {h00=0x0010, h01=0x0050, text=» EXTRN T:OPA«, t00=0x0004, t01=0x004e}
0x069e…06a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0062}
0x06a8…06b0              Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x006c}
0x06b0…06cc              Head {h00=0x0018, h01=0x0050, text=» EXTRN K:F343 C:TXT «, t00=0x0004, t01=0x0074}
0x06cc…06e2              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F460 «, t00=0x0004, t01=0x0090}
0x06e2…06f8              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F461 «, t00=0x0004, t01=0x00a6}
0x06f8…070e              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F462 «, t00=0x0004, t01=0x00bc}
0x070e…0724              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F463 «, t00=0x0004, t01=0x00d2}
0x0724…073a              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F464 «, t00=0x0004, t01=0x00e8}
0x073a…0750              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F465 «, t00=0x0004, t01=0x00fe}
0x0750…0766              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F466 «, t00=0x0004, t01=0x0114}
0x0766…077c              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F467 «, t00=0x0004, t01=0x012a}
0x077c…0792              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F468 «, t00=0x0004, t01=0x0140}
0x0792…07a8              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F469 «, t00=0x0004, t01=0x0156}
0x07a8…07be              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F561 «, t00=0x0004, t01=0x016c}
0x07be…07d4              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F800 «, t00=0x0004, t01=0x0182}
0x07d4…07ea              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F801 «, t00=0x0005, t01=0x0008}
0x07ea…0800              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F803 «, t00=0x0005, t01=0x001e}
0x0800…0816              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F804 «, t00=0x0005, t01=0x0034}
0x0816…082c              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F805 «, t00=0x0005, t01=0x004a}
0x082c…0836              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0060}
0x0836…0852              Head {h00=0x0018, h01=0x0050, text=» EXTRN K:WBCR C:WBS «, t00=0x0005, t01=0x006a}
0x0852…0868              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:WBCC «, t00=0x0005, t01=0x0086}
0x0868…087e              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:WBNW «, t00=0x0005, t01=0x009c}
0x087e…0892              Head {h00=0x0010, h01=0x0050, text=» EXTRN K:DUM«, t00=0x0005, t01=0x00b2}
0x0892…089c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c6}
0x089c…08b8              Head {h00=0x0018, h01=0x0050, text=» EXTRN K:PRTN C:FUA «, t00=0x0005, t01=0x00d0}
0x08b8…08ce              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:PRTT «, t00=0x0005, t01=0x00ec}
0x08ce…08d8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0102}
0x08d8…08f2              Head {h00=0x0016, h01=0x0050, text=» EXTRN K:LTC C:FIG«, t00=0x0005, t01=0x010c}
0x08f2…0908              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:LEND «, t00=0x0005, t01=0x0126}
0x0908…091e              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:CONF «, t00=0x0005, t01=0x013c}
0x091e…0934              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:CONE «, t00=0x0005, t01=0x0152}
0x0934…0948              Head {h00=0x0010, h01=0x0050, text=» EXTRN K:TCP«, t00=0x0005, t01=0x0168}
0x0948…095e              Head {h00=0x0012, h01=0x0050, text=» EXTRN K:TCPE «, t00=0x0005, t01=0x017c}
0x095e…0972 (6, 0, 398)  Head {h00=0x0010, h01=0x0050, text=» EXTRN K:TCE«, t00=0x0006, t01=0x0004}
0x0972…097c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0018}
0x097c…0998              Head {h00=0x0018, h01=0x0050, text=» EXTRN K:NOCL C:ONW «, t00=0x0006, t01=0x0022}
0x0998…09a2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x003e}
0x09a2…09bc              Head {h00=0x0016, h01=0x0050, text=» EXTRN K:ST4 C:SUB«, t00=0x0006, t01=0x0048}
0x09bc…09d0              Head {h00=0x0010, h01=0x0050, text=» EXTRN K:LD4«, t00=0x0006, t01=0x0062}
0x09d0…09da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0076}
0x09da…09e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0080}
0x09e4…0a34              Head {h00=0x004c, h01=0x0050, text=»*  HERE IS THE MODULE 'C:EQU' WITH COMMON EQUATES INCLUDED WITHOUT LIST «, t00=0x0006, t01=0x008a}
0x0a34…0a3e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00da}
0x0a3e…0a4c              Head {h00=0x000a, h01=0x0050, text=» NLIST«, t00=0x0006, t01=0x00e4}
0x0a4c…0a56              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00f2}
0x0a56…0a60              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00fc}
0x0a60…0a6a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0106}
0x0a6a…0a74              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0110}
0x0a74…0a7e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x011a}
0x0a7e…0a88              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0124}
0x0a88…0a92              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x012e}
0x0a92…0a9c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0138}
0x0a9c…0aa6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0142}
0x0aa6…0ab0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x014c}
0x0ab0…0aba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0156}
0x0aba…0ac4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0160}
0x0ac4…0ace              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x016a}
0x0ace…0ad8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0174}
0x0ad8…0ae2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x017e}
0x0ae2…0aec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0188}
0x0aec…0af6 (7, 0, 398)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0004}
0x0af6…0b00              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x000e}
0x0b00…0b0a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0018}
0x0b0a…0b14              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0022}
0x0b14…0b1e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x002c}
0x0b1e…0b28              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0036}
0x0b28…0b32              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0040}
0x0b32…0b3c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x004a}
0x0b3c…0b46              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0054}
0x0b46…0b50              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x005e}
0x0b50…0b5a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0068}
0x0b5a…0b64              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0072}
0x0b64…0b6e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007c}
0x0b6e…0b78              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0086}
0x0b78…0b82              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0090}
0x0b82…0b8c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x009a}
0x0b8c…0b96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a4}
0x0b96…0ba0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ae}
0x0ba0…0baa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b8}
0x0baa…0bb4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c2}
0x0bb4…0bbe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00cc}
0x0bbe…0bc8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00d6}
0x0bc8…0bd2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e0}
0x0bd2…0bdc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ea}
0x0bdc…0c0e              Head {h00=0x002e, h01=0x0050, text=» EJECT  IDENT C:EQU **COMMON AREA FRAME** «, t00=0x0007, t01=0x00f4}
0x0c0e…0c40              Head {h00=0x002e, h01=0x0050, text=» EJECT  IDENT C:EQU **COMMON AREA FRAME** «, t00=0x0007, t01=0x0126}
0x0c40…0c4a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0158}
0x0c4a…0c60              Head {h00=0x0012, h01=0x0050, text=»*   EXTERNALS «, t00=0x0007, t01=0x0162}
0x0c60…0c6a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0178}
0x0c6a…0c7e              Head {h00=0x0010, h01=0x0050, text=» EXTRN T:ADD«, t00=0x0007, t01=0x0182}
0x0c7e…0c94              Head {h00=0x0012, h01=0x0050, text=» EXTRN T:ADDC «, t00=0x0008, t01=0x0008}
0x0c94…0ca8              Head {h00=0x0010, h01=0x0050, text=» EXTRN T:SUB«, t00=0x0008, t01=0x001e}
0x0ca8…0cbe              Head {h00=0x0012, h01=0x0050, text=» EXTRN T:SUBC «, t00=0x0008, t01=0x0032}
0x0cbe…0cc8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0048}
0x0cc8…0ce8              Head {h00=0x001c, h01=0x0050, text=» EXTRN T:MUL TOSS-MULDIV«, t00=0x0008, t01=0x0052}
0x0ce8…0cfe              Head {h00=0x0012, h01=0x0050, text=» EXTRN T:MULC «, t00=0x0008, t01=0x0072}
0x0cfe…0d12              Head {h00=0x0010, h01=0x0050, text=» EXTRN T:DIV«, t00=0x0008, t01=0x0088}
0x0d12…0d28              Head {h00=0x0012, h01=0x0050, text=» EXTRN T:DIVC «, t00=0x0008, t01=0x009c}
0x0d28…0d44              Head {h00=0x0018, h01=0x0050, text=» EJECT  IDENT C:EQU «, t00=0x0008, t01=0x00b2}
0x0d44…0d4e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ce}
0x0d4e…0d70              Head {h00=0x001e, h01=0x0050, text=»*   FORMS FOR FORMAT CODES«, t00=0x0008, t01=0x00d8}
0x0d70…0d7a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00fa}
0x0d7a…0da4              Head {h00=0x0026, h01=0x0050, text=»EOL FORM 8=1,8 END OF FORMAT LIST «, t00=0x0008, t01=0x0104}
0x0da4…0dc8              Head {h00=0x0020, h01=0x0050, text=»EOR FORM 8=9,8 END OF RECORD«, t00=0x0008, t01=0x012e}
0x0dc8…0dee              Head {h00=0x0022, h01=0x0050, text=»TXT FORM 8=/10,8 TEXT ELEMENT «, t00=0x0008, t01=0x0152}
0x0dee…0e20              Head {h00=0x002e, h01=0x0050, text=»CONTXT FORM 8=/12,8 TEXT CONSTANT ELEMENT «, t00=0x0008, t01=0x0178}
0x0e20…0e52              Head {h00=0x002e, h01=0x0050, text=»IMTXT FORM 8=/11,8 IMIDEATE TEXT CONSTANT «, t00=0x0009, t01=0x001a}
0x0e52…0e80              Head {h00=0x002a, h01=0x0050, text=»ENDSUB FORM 16=/1700 END OF SUBFORMAT «, t00=0x0009, t01=0x004c}
0x0e80…0eac              Head {h00=0x0028, h01=0x0050, text=»COND FORM 8=/1F,8 CONDITIONAL FORMAT«, t00=0x0009, t01=0x007a}
0x0eac…0eca              Head {h00=0x001a, h01=0x0050, text=»FILLER FORM 8,8 FILLER«, t00=0x0009, t01=0x00a6}
0x0eca…0eea              Head {h00=0x001c, h01=0x0050, text=»SPACE FORM 8=/20,8 SPACE«, t00=0x0009, t01=0x00c4}
0x0eea…0f0c              Head {h00=0x001e, h01=0x0050, text=»PICT FORM 1=1,7,8 PICTURE «, t00=0x0009, t01=0x00e4}
0x0f0c…0f36              Head {h00=0x0026, h01=0x0050, text=»PICREF FORM 8,8,16 GENERATE FORMS «, t00=0x0009, t01=0x0106}
0x0f36…0f4c              Head {h00=0x0012, h01=0x0050, text=»BYTE FORM 8,8 «, t00=0x0009, t01=0x0130}
0x0f4c…0f64              Head {h00=0x0014, h01=0x0050, text=»BCD FORM 4=0,12 «, t00=0x0009, t01=0x0146}
0x0f64…0f7e              Head {h00=0x0016, h01=0x0050, text=»ASCII FORM 4=8,12 «, t00=0x0009, t01=0x015e}
0x0f7e…0fa4              Head {h00=0x0022, h01=0x0050, text=»ADD FORM 16=/F6A1,16=T:ADD,8,8«, t00=0x0009, t01=0x0178}
0x0fa4…0fcc              Head {h00=0x0024, h01=0x0050, text=»ADDC FORM 16=/F6A1,16=T:ADDC,8,8«, t00=0x000a, t01=0x000e}
0x0fcc…0ff2              Head {h00=0x0022, h01=0x0050, text=»SUB FORM 16=/F6A1,16=T:SUB,8,8«, t00=0x000a, t01=0x0036}
0x0ff2…101a              Head {h00=0x0024, h01=0x0050, text=»SUBC FORM 16=/F6A1,16=T:SUBC,8,8«, t00=0x000a, t01=0x005c}
0x101a…1044              Head {h00=0x0026, h01=0x0050, text=»MUL FORM 16=/F6A1,16=T:MUL,8,8,8,8«, t00=0x000a, t01=0x0084}
0x1044…1070              Head {h00=0x0028, h01=0x0050, text=»MULC FORM 16=/F6A1,16=T:MULC,8,8,8,8«, t00=0x000a, t01=0x00ae}
0x1070…109a              Head {h00=0x0026, h01=0x0050, text=»DIV FORM 16=/F6A1,16=T:DIV,8,8,8,8«, t00=0x000a, t01=0x00da}
0x109a…10c6              Head {h00=0x0028, h01=0x0050, text=»DIVC FORM 16=/F6A1,16=T:DIVC,8,8,8,8«, t00=0x000a, t01=0x0104}
0x10c6…10e2              Head {h00=0x0018, h01=0x0050, text=» EJECT  IDENT C:EQU «, t00=0x000a, t01=0x0130}
0x10e2…10ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x014c}
0x10ec…110c              Head {h00=0x001c, h01=0x0050, text=»*   CONSTANT TCA EQUATES«, t00=0x000a, t01=0x0156}
0x110c…1116              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0176}
0x1116…112a              Head {h00=0x0010, h01=0x0050, text=»CA1 EQU /10 «, t00=0x000a, t01=0x0180}
0x112a…113e (11, 0, 400) Head {h00=0x0010, h01=0x0050, text=»CB1 EQU /20 «, t00=0x000b, t01=0x0004}
0x113e…1152              Head {h00=0x0010, h01=0x0050, text=»CB10 EQU /21«, t00=0x000b, t01=0x0018}
0x1152…1168              Head {h00=0x0012, h01=0x0050, text=»CB100 EQU /22 «, t00=0x000b, t01=0x002c}
0x1168…117e              Head {h00=0x0012, h01=0x0050, text=»CB1000 EQU /23«, t00=0x000b, t01=0x0042}
0x117e…1194              Head {h00=0x0012, h01=0x0050, text=»CB32K EQU /24 «, t00=0x000b, t01=0x0058}
0x1194…11a8              Head {h00=0x0010, h01=0x0050, text=»YEAR EQU /30«, t00=0x000b, t01=0x006e}
0x11a8…11be              Head {h00=0x0012, h01=0x0050, text=»MONTH EQU /31 «, t00=0x000b, t01=0x0082}
0x11be…11d2              Head {h00=0x0010, h01=0x0050, text=»DAY EQU /32 «, t00=0x000b, t01=0x0098}
0x11d2…11e6              Head {h00=0x0010, h01=0x0050, text=»HOUR EQU /40«, t00=0x000b, t01=0x00ac}
0x11e6…11fa              Head {h00=0x0010, h01=0x0050, text=»MIN EQU /41 «, t00=0x000b, t01=0x00c0}
0x11fa…120e              Head {h00=0x0010, h01=0x0050, text=»SEC EQU /42 «, t00=0x000b, t01=0x00d4}
0x120e…1218              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e8}
0x1218…123c              Head {h00=0x0020, h01=0x0050, text=»*   LINE WORKBLOCKS EQUATES «, t00=0x000b, t01=0x00f2}
0x123c…1246              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0116}
0x1246…1262              Head {h00=0x0018, h01=0x0050, text=»LIN EQU /10 LINE NBR«, t00=0x000b, t01=0x0120}
0x1262…1284              Head {h00=0x001e, h01=0x0050, text=»LINBC EQU /11 BUSY COUNTER«, t00=0x000b, t01=0x013c}
0x1284…12a8              Head {h00=0x0020, h01=0x0050, text=»LINTC EQU /12 TRANS COUNTER «, t00=0x000b, t01=0x015e}
0x12a8…12cc              Head {h00=0x0020, h01=0x0050, text=»LINEC EQU /13 ERROR COUNTER «, t00=0x000b, t01=0x0182}
0x12cc…12f6              Head {h00=0x0026, h01=0x0050, text=»LINHUR EQU /14 TIME OF LAST TRANS «, t00=0x000c, t01=0x0016}
0x12f6…130c              Head {h00=0x0012, h01=0x0050, text=»LINMIN EQU /15«, t00=0x000c, t01=0x0040}
0x130c…1322              Head {h00=0x0012, h01=0x0050, text=»LINSEC EQU /16«, t00=0x000c, t01=0x0056}
0x1322…132c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x006c}
0x132c…134c              Head {h00=0x001c, h01=0x0050, text=»*   TC WORKBLOCK EQUATES«, t00=0x000c, t01=0x0076}
0x134c…1356              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0096}
0x1356…1368              Head {h00=0x000e, h01=0x0050, text=»TC EQU /20«, t00=0x000c, t01=0x00a0}
0x1368…137c              Head {h00=0x0010, h01=0x0050, text=»TCBC EQU /21«, t00=0x000c, t01=0x00b2}
0x137c…1390              Head {h00=0x0010, h01=0x0050, text=»TCTC EQU /22«, t00=0x000c, t01=0x00c6}
0x1390…13a4              Head {h00=0x0010, h01=0x0050, text=»TCEC EQU /23«, t00=0x000c, t01=0x00da}
0x13a4…13ba              Head {h00=0x0012, h01=0x0050, text=»TCHUR EQU /24 «, t00=0x000c, t01=0x00ee}
0x13ba…13d0              Head {h00=0x0012, h01=0x0050, text=»TCMIN EQU /25 «, t00=0x000c, t01=0x0104}
0x13d0…13e6              Head {h00=0x0012, h01=0x0050, text=»TCSEC EQU /26 «, t00=0x000c, t01=0x011a}
0x13e6…1402              Head {h00=0x0018, h01=0x0050, text=» EJECT  IDENT C:EQU «, t00=0x000c, t01=0x0130}
0x1402…140c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x014c}
0x140c…143a              Head {h00=0x002a, h01=0x0050, text=»*   CC WORKBLOCK RESPONSETIME EQUATES «, t00=0x000c, t01=0x0156}
0x143a…1444              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0184}
0x1444…1458              Head {h00=0x0010, h01=0x0050, text=»CC1 EQU /30 «, t00=0x000c, t01=0x018e}
0x1458…146c              Head {h00=0x0010, h01=0x0050, text=»CC2 EQU /31 «, t00=0x000d, t01=0x0012}
0x146c…1480              Head {h00=0x0010, h01=0x0050, text=»CC3 EQU /32 «, t00=0x000d, t01=0x0026}
0x1480…1494              Head {h00=0x0010, h01=0x0050, text=»CC4 EQU /33 «, t00=0x000d, t01=0x003a}
0x1494…14a8              Head {h00=0x0010, h01=0x0050, text=»CC5 EQU /34 «, t00=0x000d, t01=0x004e}
0x14a8…14bc              Head {h00=0x0010, h01=0x0050, text=»CC6 EQU /35 «, t00=0x000d, t01=0x0062}
0x14bc…14d0              Head {h00=0x0010, h01=0x0050, text=»CC7 EQU /36 «, t00=0x000d, t01=0x0076}
0x14d0…14e4              Head {h00=0x0010, h01=0x0050, text=»CC8 EQU /37 «, t00=0x000d, t01=0x008a}
0x14e4…14f8              Head {h00=0x0010, h01=0x0050, text=»CC9 EQU /38 «, t00=0x000d, t01=0x009e}
0x14f8…150c              Head {h00=0x0010, h01=0x0050, text=»CC10 EQU /39«, t00=0x000d, t01=0x00b2}
0x150c…1520              Head {h00=0x0010, h01=0x0050, text=»CC11 EQU /3A«, t00=0x000d, t01=0x00c6}
0x1520…1534              Head {h00=0x0010, h01=0x0050, text=»CC12 EQU /3B«, t00=0x000d, t01=0x00da}
0x1534…153e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ee}
0x153e…155e              Head {h00=0x001c, h01=0x0050, text=»*   CC WORKBLOCK EQUATES«, t00=0x000d, t01=0x00f8}
0x155e…1568              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0118}
0x1568…158e              Head {h00=0x0022, h01=0x0050, text=»CCTO EQU /40 TIME OUT COUNTER «, t00=0x000d, t01=0x0122}
0x158e…15a2              Head {h00=0x0010, h01=0x0050, text=»CCTC EQU /41«, t00=0x000d, t01=0x0148}
0x15a2…15b6              Head {h00=0x0010, h01=0x0050, text=»CCEC EQU /42«, t00=0x000d, t01=0x015c}
0x15b6…15e0              Head {h00=0x0026, h01=0x0050, text=»CCSUP EQU /43 SUPERV MSGS COUNTER «, t00=0x000d, t01=0x0170}
0x15e0…1608              Head {h00=0x0024, h01=0x0050, text=»CCHUR EQU /44 TIME OF LAST REPLY«, t00=0x000e, t01=0x000a}
0x1608…161e              Head {h00=0x0012, h01=0x0050, text=»CCMIN EQU /45 «, t00=0x000e, t01=0x0032}
0x161e…1634              Head {h00=0x0012, h01=0x0050, text=»CCSEC EQU /46 «, t00=0x000e, t01=0x0048}
0x1634…1650              Head {h00=0x0018, h01=0x0050, text=» EJECT  IDENT C:EQU «, t00=0x000e, t01=0x005e}
0x1650…165a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x007a}
0x165a…1680              Head {h00=0x0022, h01=0x0050, text=»*    NETWORK WORKBLOCK EQUATES«, t00=0x000e, t01=0x0084}
0x1680…168a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00aa}
0x168a…16b8              Head {h00=0x002a, h01=0x0050, text=»NWTC EQU /5D ACCUMULATED TRANS COUNTER«, t00=0x000e, t01=0x00b4}
0x16b8…16dc              Head {h00=0x0020, h01=0x0050, text=»NWEC EQU /5E ACC ERROR COUNT«, t00=0x000e, t01=0x00e2}
0x16dc…16e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0106}
0x16e6…1708              Head {h00=0x001e, h01=0x0050, text=»PCNT1 EQU /50 % INTERVALS «, t00=0x000e, t01=0x0110}
0x1708…171e              Head {h00=0x0012, h01=0x0050, text=»PCNT2 EQU /51 «, t00=0x000e, t01=0x0132}
0x171e…1734              Head {h00=0x0012, h01=0x0050, text=»PCNT3 EQU /52 «, t00=0x000e, t01=0x0148}
0x1734…174a              Head {h00=0x0012, h01=0x0050, text=»PCNT4 EQU /53 «, t00=0x000e, t01=0x015e}
0x174a…1760              Head {h00=0x0012, h01=0x0050, text=»PCNT5 EQU /54 «, t00=0x000e, t01=0x0174}
0x1760…1776              Head {h00=0x0012, h01=0x0050, text=»PCNT6 EQU /55 «, t00=0x000e, t01=0x018a}
0x1776…178c              Head {h00=0x0012, h01=0x0050, text=»PCNT7 EQU /56 «, t00=0x000f, t01=0x0010}
0x178c…17a2              Head {h00=0x0012, h01=0x0050, text=»PCNT8 EQU /57 «, t00=0x000f, t01=0x0026}
0x17a2…17b8              Head {h00=0x0012, h01=0x0050, text=»PCNT9 EQU /58 «, t00=0x000f, t01=0x003c}
0x17b8…17ce              Head {h00=0x0012, h01=0x0050, text=»PCNT10 EQU /59«, t00=0x000f, t01=0x0052}
0x17ce…17e4              Head {h00=0x0012, h01=0x0050, text=»PCNT11 EQU /5A«, t00=0x000f, t01=0x0068}
0x17e4…17fa              Head {h00=0x0012, h01=0x0050, text=»PCNT12 EQU /5B«, t00=0x000f, t01=0x007e}
0x17fa…1804              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0094}
0x1804…1828              Head {h00=0x0020, h01=0x0050, text=»RSPTIM EQU /5C RESPONSE TIME«, t00=0x000f, t01=0x009e}
0x1828…184c              Head {h00=0x0020, h01=0x0050, text=»PCNTW EQU /5F % WORK AREA 1 «, t00=0x000f, t01=0x00c2}
0x184c…1870              Head {h00=0x0020, h01=0x0050, text=»PCNTW2 EQU /6C %WORK AREA 2 «, t00=0x000f, t01=0x00e6}
0x1870…187a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x010a}
0x187a…189e              Head {h00=0x0020, h01=0x0050, text=»*  CC TEXT-INTERVAL EQUATES «, t00=0x000f, t01=0x0114}
0x189e…18a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0138}
0x18a8…18bc              Head {h00=0x0010, h01=0x0050, text=»IN1 EQU /60 «, t00=0x000f, t01=0x0142}
0x18bc…18d0              Head {h00=0x0010, h01=0x0050, text=»IN2 EQU /61 «, t00=0x000f, t01=0x0156}
0x18d0…18e4              Head {h00=0x0010, h01=0x0050, text=»IN3 EQU /62 «, t00=0x000f, t01=0x016a}
0x18e4…18f8              Head {h00=0x0010, h01=0x0050, text=»IN4 EQU /63 «, t00=0x000f, t01=0x017e}
0x18f8…190c (16, 0, 400) Head {h00=0x0010, h01=0x0050, text=»IN5 EQU /64 «, t00=0x0010, t01=0x0004}
0x190c…1920              Head {h00=0x0010, h01=0x0050, text=»IN6 EQU /65 «, t00=0x0010, t01=0x0018}
0x1920…1934              Head {h00=0x0010, h01=0x0050, text=»IN7 EQU /66 «, t00=0x0010, t01=0x002c}
0x1934…1948              Head {h00=0x0010, h01=0x0050, text=»IN8 EQU /67 «, t00=0x0010, t01=0x0040}
0x1948…195c              Head {h00=0x0010, h01=0x0050, text=»IN9 EQU /68 «, t00=0x0010, t01=0x0054}
0x195c…1970              Head {h00=0x0010, h01=0x0050, text=»IN10 EQU /69«, t00=0x0010, t01=0x0068}
0x1970…1984              Head {h00=0x0010, h01=0x0050, text=»IN11 EQU /6A«, t00=0x0010, t01=0x007c}
0x1984…1998              Head {h00=0x0010, h01=0x0050, text=»IN12 EQU /6B«, t00=0x0010, t01=0x0090}
0x1998…19b4              Head {h00=0x0018, h01=0x0050, text=» EJECT  IDENT C:EQU «, t00=0x0010, t01=0x00a4}
0x19b4…19be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00c0}
0x19be…19ee              Head {h00=0x002c, h01=0x0050, text=»CVTCLK EQU /98 ADDRESS TO MONITOR CLOCK «, t00=0x0010, t01=0x00ca}
0x19ee…19f8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00fa}
0x19f8…1a2a              Head {h00=0x002e, h01=0x0050, text=»IDXBL EQU -4 INDEX IN CC-BUFFER TO LENGTH «, t00=0x0010, t01=0x0104}
0x1a2a…1a68              Head {h00=0x003a, h01=0x0050, text=»ORIGIN EQU -4 INDEX TO COMMAND ORIGIN INDICATOR IN TCA«, t00=0x0010, t01=0x0136}
0x1a68…1a9a              Head {h00=0x002e, h01=0x0050, text=»INPBL EQU -4 INDEX TO INPUT BUFFER LENGTH «, t00=0x0010, t01=0x0174}
0x1a9a…1aa4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0016}
0x1aa4…1ac4              Head {h00=0x001c, h01=0x0050, text=»K:EBA EQU 2 ECB EQUATES «, t00=0x0011, t01=0x0020}
0x1ac4…1ad8              Head {h00=0x0010, h01=0x0050, text=»K:ERL EQU 4 «, t00=0x0011, t01=0x0040}
0x1ad8…1aec              Head {h00=0x0010, h01=0x0050, text=»K:EEL EQU 6 «, t00=0x0011, t01=0x0054}
0x1aec…1b00              Head {h00=0x0010, h01=0x0050, text=»K:ERC EQU 8 «, t00=0x0011, t01=0x0068}
0x1b00…1b14              Head {h00=0x0010, h01=0x0050, text=»K:ECW EQU 10«, t00=0x0011, t01=0x007c}
0x1b14…1b1e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0090}
0x1b1e…1b28              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x009a}
0x1b28…1b54              Head {h00=0x0028, h01=0x0050, text=»TCAWBL EQU 6 INDEX IN TCA TO LINE WB«, t00=0x0011, t01=0x00a4}
0x1b54…1b80              Head {h00=0x0028, h01=0x0050, text=»TCAWBT EQU 10 INDEX IN TCA TO TC WB «, t00=0x0011, t01=0x00d0}
0x1b80…1b9c              Head {h00=0x0018, h01=0x0050, text=» EJECT  IDENT C:EQU «, t00=0x0011, t01=0x00fc}
0x1b9c…1bdc              Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0011, t01=0x0118}
0x1bdc…1be6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0158}
0x1be6…1c0c              Head {h00=0x0022, h01=0x0050, text=»*   SYSTEM ADAPTION PARAMETERS«, t00=0x0011, t01=0x0162}
0x1c0c…1c16              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0188}
0x1c16…1c36 (18, 0, 400) Head {h00=0x001c, h01=0x0050, text=»* KEYBOARD KONTROL KEYS «, t00=0x0012, t01=0x0004}
0x1c36…1c58              Head {h00=0x001e, h01=0x0050, text=»K:KKEY EQU /06 ENTRY K KEY«, t00=0x0012, t01=0x0024}
0x1c58…1c7a              Head {h00=0x001e, h01=0x0050, text=»K:UKEY EQU /05 ENTER U KEY«, t00=0x0012, t01=0x0046}
0x1c7a…1ca2              Head {h00=0x0024, h01=0x0050, text=»K:EOR EQU /12 END OF RECORD KEY «, t00=0x0012, t01=0x0068}
0x1ca2…1cc4              Head {h00=0x001e, h01=0x0050, text=»CANCEL EQU /17 CANCEL KEY «, t00=0x0012, t01=0x0090}
0x1cc4…1cec              Head {h00=0x0024, h01=0x0050, text=»* TIME OUT VALUES OF TRUNK LINE «, t00=0x0012, t01=0x00b2}
0x1cec…1d26              Head {h00=0x0036, h01=0x0050, text=»K:WTIM EQU 40 CC WRITE REQUEST TIME OUT (X100 MS) «, t00=0x0012, t01=0x00da}
0x1d26…1d64              Head {h00=0x003a, h01=0x0050, text=»K:QTIM EQU 3000 CC EXCHANGE REQUEST TIME OUT (X100 MS)«, t00=0x0012, t01=0x0114}
0x1d64…1d7c              Head {h00=0x0014, h01=0x0050, text=»* BUFFER LENGTHS«, t00=0x0012, t01=0x0152}
0x1d7c…1db2              Head {h00=0x0032, h01=0x0050, text=»K:CCBL EQU 1100 CCWRITE BUFFER LENGTH (WORDS) «, t00=0x0012, t01=0x016a}
0x1db2…1df2              Head {h00=0x003c, h01=0x0050, text=»K:EDBL EQU 50 EDIT BUFFER LENGTH OF POOL K:OPED (WORDS) «, t00=0x0013, t01=0x0010}
0x1df2…1e2a              Head {h00=0x0034, h01=0x0050, text=»K:BLTC EQU 128 LENGTH OF CASSETTE BUFFER (WORDS)«, t00=0x0013, t01=0x0050}
0x1e2a…1e56              Head {h00=0x0028, h01=0x0050, text=»K:KBL EQU 60 KB BUF LENGTH IN WORDS «, t00=0x0013, t01=0x0088}
0x1e56…1e7e              Head {h00=0x0024, h01=0x0050, text=»K:KBBL EQU K:KBL+K:KBL IN CHARS «, t00=0x0013, t01=0x00b4}
0x1e7e…1eaa              Head {h00=0x0028, h01=0x0050, text=»K:GPBL EQU 60 GP BUF LENGTH IN WORDS«, t00=0x0013, t01=0x00dc}
0x1eaa…1ee0              Head {h00=0x0032, h01=0x0050, text=»K:S0BL EQU 60 SIMULATED TERMINAL 0 BUF (WORDS)«, t00=0x0013, t01=0x0108}
0x1ee0…1f1e              Head {h00=0x003a, h01=0x0050, text=»K:INBL EQU 1100 TERMINAL LINE INPUT BUF LENGTH (WORDS)«, t00=0x0013, t01=0x013e}
0x1f1e…1f2c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x017c}
0x1f2c…1f80              Head {h00=0x0050, h01=0x0050, text=»* COMMUNICATION ADDRESSES FOR TRUNK LINE. IF SPECIFIED AT SYSTEM GENERATION «, t00=0x0013, t01=0x018a}
0x1f80…1faa              Head {h00=0x0026, h01=0x0050, text=»K:CCAD EQU 0 CONCENTRATOR ADDRESS «, t00=0x0014, t01=0x004e}
0x1faa…1fce              Head {h00=0x0020, h01=0x0050, text=»   LEFT BYTE = SELECT ADDR. «, t00=0x0014, t01=0x0078}
0x1fce…1ff0              Head {h00=0x001e, h01=0x0050, text=»   RIGHT BYTE = POLL ADDR.«, t00=0x0014, t01=0x009c}
0x1ff0…202c              Head {h00=0x0038, h01=0x0050, text=»K:SIMZ EQU 0 SIM. TERM. FOR COMMANDS/SYSTEM MESSAGES«, t00=0x0014, t01=0x00be}
0x202c…204a              Head {h00=0x001a, h01=0x0050, text=»   AND SYSTEM MESSAGES«, t00=0x0014, t01=0x00fa}
0x204a…2082              Head {h00=0x0034, h01=0x0050, text=»K:SIMS EQU 0 SIM. TERM. FOR SUPERVISORY MESSAGES«, t00=0x0014, t01=0x0118}
0x2082…20b8              Head {h00=0x0032, h01=0x0050, text=»K:FCS EQU 0 DEVICE FILE CODE OF K:SIMS IF USED«, t00=0x0014, t01=0x0150}
0x20b8…20bc              Head {h00=0x0054, h01=0x0050}
0x20bc…20c0              Head {h00=0x2a20, h01=0x5349}
0x20c0…20c6              4d 55 4c 41 54 45                                                                                                                                                                                                                                 ┆MULATE┆
0x20c6…2116 (21, 0, 398) 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 50 45 43 49 46 49 45 44 20 41 54 20 53 59 53 54 45 4d 20 47 00 14 01 86 00 20 00 50 4b 3a   ┆D TERMINAL ADDRESSES FOR INQUIRY. RIGHT BYTE. IF SPECIFIED AT SYSTEM G       PK:┆
0x2116…2166              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 15 00 4e 00 16 00 50 4b 3a 53 41 32 5c 45 51 55 5c 30 5c 4e 42 52 20 32 20 00 15 00 72 00 16 00 50 4b 3a 53 41 33 5c 45 51 55 5c 30 5c 4e 42 52 20 33 20 00 15   ┆SA1 EQU 0 SIM. TERM. NBR 1   N   PK:SA2 EQU 0 NBR 2    r   PK:SA3 EQU 0 NBR 3   ┆
0x2166…21b6              00 8c 00 16 00 50 4b 3a 53 41 34 5c 45 51 55 5c 30 5c 4e 42 52 20 34 20 00 15 00 a6 00 16 00 50 4b 3a 53 41 35 5c 45 51 55 5c 30 5c 4e 42 52 20 35 20 00 15 00 c0 00 16 00 50 4b 3a 53 41 36 5c 45 51 55 5c 30 5c 4e 42 52 20 36 20 00 15 00 da   ┆     PK:SA4 EQU 0 NBR 4        PK:SA5 EQU 0 NBR 5        PK:SA6 EQU 0 NBR 6     ┆
0x21b6…2206              00 16 00 50 4b 3a 53 41 37 5c 45 51 55 5c 30 5c 4e 42 52 20 37 20 00 15 00 f4 00 16 00 50 4b 3a 53 41 38 5c 45 51 55 5c 30 5c 4e 42 52 20 38 20 00 15 01 0e 00 16 00 50 4b 3a 53 41 39 5c 45 51 55 5c 30 5c 4e 42 52 20 39 20 00 15 01 28 00 18   ┆   PK:SA7 EQU 0 NBR 7        PK:SA8 EQU 0 NBR 8        PK:SA9 EQU 0 NBR 9    (  ┆
0x2206…2254              00 50 4b 3a 53 41 31 30 5c 45 51 55 5c 30 5c 4e 42 52 20 31 30 20 00 15 01 42 00 18 00 50 4b 3a 53 41 31 31 5c 45 51 55 5c 30 5c 4e 42 52 20 31 31 20 00 15 01 5e 00 18 00 50 4b 3a 53 41 31 32 5c 45 51 55 5c 30 5c 4e 42 52 20 31 32 20         ┆ PK:SA10 EQU 0 NBR 10    B   PK:SA11 EQU 0 NBR 11    ^   PK:SA12 EQU 0 NBR 12 ┆
0x2254…22a4 (22, 0, 400) 00 15 01 7a 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 16 00 08 00 18 00 50 4b 3a 53 41 31 34 5c 45 51 55 5c 30 5c 4e 42 52 20 31 34 20 00 16 00 24 00 18 00 50 4b 3a 53 41 31 35 5c 45 51 55 5c 30 5c 4e 42 52   ┆   z   PK:SA13 EQU 0 NBR 13        PK:SA14 EQU 0 NBR 14    $   PK:SA15 EQU 0 NBR┆
0x22a4…22f4              20 31 35 20 00 16 00 40 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 16 00 5c 00 18 00 50 4b 3a 53 41 31 37 5c 45 51 55 5c 30 5c 4e 42 52 20 31 37 20 00 16 00 78 00 18 00 50 4b 3a 53 41 31 38 5c 45 51 55 5c 30   ┆ 15    @   PK:SA16 EQU 0 NBR 16        PK:SA17 EQU 0 NBR 17    x   PK:SA18 EQU 0┆
0x22f4…2344              5c 4e 42 52 20 31 38 20 00 16 00 94 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 16 00 b0 00 18 00 50 4b 3a 53 41 32 30 5c 45 51 55 5c 30 5c 4e 42 52 20 32 30 20 00 16 00 cc 00 18 00 50 4b 3a 53 41 32 31 5c 45   ┆ NBR 18        PK:SA19 EQU 0 NBR 19        PK:SA20 EQU 0 NBR 20        PK:SA21 E┆
0x2344…2394              51 55 5c 30 5c 4e 42 52 20 32 31 20 00 16 00 e8 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 16 01 04 00 18 00 50 4b 3a 53 41 32 33 5c 45 51 55 5c 30 5c 4e 42 52 20 32 33 20 00 16 01 20 00 18 00 50 4b 3a 53 41   ┆QU 0 NBR 21        PK:SA22 EQU 0 NBR 22        PK:SA23 EQU 0 NBR 23        PK:SA┆
0x2394…23e4              32 34 5c 45 51 55 5c 30 5c 4e 42 52 20 32 34 20 00 16 01 3c 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 16 01 58 00 06 00 50 2a 20 00 16 01 74 00 0a 00 50 5c 45 4a 45 43 54 00 16 01 7e 00 3c 00 50 2a 2a 2a 2a   ┆24 EQU 0 NBR 24    <   PK:SA25 EQU 0 NBR 25    X   P*    t   P EJECT   ~ < P****┆
0x23e4…2434 (23, 0, 400) 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 20 00 16 01 8c 00 06 00 50 2a 20 00 17 00 3c 00 2c 00 50 2a 20 20 20 50 41 52 41 4d 45   ┆***************************************************        P*    < , P*   PARAME┆
0x2434…2484              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 17 00 46 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 17 00 76 00 06   ┆TERS FOR CONDITIONAL ASSEMBLY    F ( P*   OF CONCENTRATOR PACKAGE MODULES    v  ┆
0x2484…24d4              00 50 2a 20 00 17 00 a2 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 17 00 ac 00 1c 00 50 58 3a 41 5c   ┆ P*      < P*******************************************************        PX:A ┆
0x24d4…2524              45 51 55 5c 32 5c 2a 20 20 4e 4c 49 4e 45 20 3c 3d 31 30 20 00 17 00 ec 00 20 00 50 5c 5c 5c 4e 55 4d 42 45 52 20 4f 46 20 54 45 52 4d 49 4e 41 4c 20 4c 49 4e 45 53 20 00 17 01 0c 00 1a 00 50 58 3a 42 5c 45 51 55 5c 38 30 5c 2a 20 20 4e 54   ┆EQU 2 *  NLINE <=10        P   NUMBER OF TERMINAL LINES        PX:B EQU 80 *  NT┆
0x2524…2574              43 20 3c 3d 38 30 00 17 01 30 00 2e 00 50 5c 5c 5c 54 4f 54 41 4c 20 4e 55 4d 42 45 52 20 4f 46 20 54 43 3a 53 20 4f 4e 20 54 45 52 4d 49 4e 41 4c 20 4c 49 4e 45 53 20 00 17 01 4e 00 1c 00 50 58 3a 43 5c 45 51 55 5c 32 35 5c 2a 20 20 4e 53   ┆C <=80   0 . P   TOTAL NUMBER OF TC:S ON TERMINAL LINES    N   PX:C EQU 25 *  NS┆
0x2574…25c4 (24, 0, 400) 49 4d 20 3c 3d 32 35 20 00 17 01 80 00 24 00 50 5c 5c 5c 4e 55 4d 42 45 52 20 4f 46 20 53 49 4d 55 4c 41 54 45 44 20 54 45 52 4d 49 4e 41 4c 53 00 18 00 10 00 14 00 50 5c 5c 5c 46 4f 52 20 49 4e 51 55 49 52 49 45 53 00 18 00 38 00 16 00 50   ┆IM <=25      $ P   NUMBER OF SIMULATED TERMINALS       P   FOR INQUIRIES   8   P┆
0x25c4…2614              58 3a 44 5c 45 51 55 5c 30 5c 2a 20 20 4c 4f 4f 50 20 00 18 00 50 00 2e 00 50 5c 5c 5c 49 46 20 3d 20 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 18 00 6a 00 2e 00 50 5c 5c 5c 49   ┆X:D EQU 0 *  LOOP    P . P   IF = 0. MULTIPOINT CONFIG. DOWNSTREAMS    j . P   I┆
0x2614…2664              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 41 4d 53 20 00 18 00 9c 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 18 00 ce 00 28 00 50 5c 5c   ┆F = 1. LOOP CONFIGURATION DOWNSTREAMS        PX:E EQU 4 *  NSPOOL <=4      ( P  ┆
0x2664…26b4              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 00 18 00 ee 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 18 01 1a 00 20 00 50   ┆ NUMBER OF EDIT BUFFERS FOR SPOOL      " P   FUNCTION TO OPERATORS TERM.       P┆
0x26b4…2704              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 18 01 40 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 4c 49 4e 27 20 00 18 01 64 00 26 00 50   ┆X:F EQU 3 *  0< NTPLIN <=30    @ ( P   NUMBER OF TRASKS IN POOL 'TPLIN'    d & P┆
0x2704…2754 (25, 0, 400) 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 00 18 01 90 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 19 00 2a 00 28 00 50 5c 5c 5c 4e   ┆   HANDLING TRANSACTIONS FROM TC:S       PX:G EQU 4 *  0< NTPSUP <=5   * ( P   N┆
0x2754…27a4              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 19 00 4c 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   ┆UMBER OF TRASKS IN POOL 'TPSUP'    L , P   HANDLING TRANSACTIONS FROM MAIN FRAME┆
0x27a4…27f4              00 19 00 78 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 19 00 a8 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 19 00 c8 00 24 00 50 5c 5c 5c 49 46 20 3d 20 30 2e 20 4e   ┆   x   P   OR OPERATORS TERMINAL       PX:H EQU 1 *  LINTST      $ P   IF = 0. N┆
0x27f4…2844              4f 20 4c 49 4e 45 20 54 45 53 54 20 43 4f 4d 4d 41 4e 44 20 00 19 00 e4 00 30 00 50 5c 5c 5c 49 46 20 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 19 01 0c 00 18 00 50   ┆O LINE TEST COMMAND      0 P   IF = 1. LINE TEST FACILITY (4-WIRE ONLY)        P┆
0x2844…2894              58 3a 49 5c 45 51 55 5c 32 5c 2a 20 20 4f 4e 4c 49 4e 45 20 00 19 01 40 00 24 00 50 5c 5c 5c 49 46 20 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 19 01 5c 00 28 00 50 5c 5c 5c 49 46 20 3d 20 31 2e 20 4f   ┆X:I EQU 2 *  ONLINE    @ $ P   IF = 0. OFF LINE CONCENTRATOR     ( P   IF = 1. O┆
0x2894…28e4 (26, 0, 400) 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 19 01 84 00 24 00 50 5c 5c 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 1a 00 20 00 18 00 50 58 3a 4b 5c 45 51 55 5c   ┆N/OFF LINE CONCENTRATOR      $ P   IF = 2. ON LINE CONCENTRATOR        PX:K EQU ┆
0x28e4…2934              31 5c 2a 20 20 53 45 54 41 44 52 20 00 1a 00 48 00 06 00 50 2a 20 00 1a 00 64 00 06 00 50 2a 20 00 1a 00 6e 00 06 00 50 2a 20 00 1a 00 78 00 06 00 50 2a 20 00 1a 00 82 00 06 00 50 2a 20 00 1a 00 8c 00 06 00 50 2a 20 00 1a 00 96 00 06 00 50   ┆1 *  SETADR    H   P*    d   P*    n   P*    x   P*        P*        P*        P┆
0x2934…2984              2a 20 00 1a 00 a0 00 06 00 50 2a 20 00 1a 00 aa 00 06 00 50 2a 20 00 1a 00 b4 00 0a 00 50 5c 4c 49 53 54 20 00 1a 00 be 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 53 49 43 20 00 1a 00 cc 00 06 00 50 2a 20 00 1a 00 e8 00 06   ┆*        P*        P*        P LIST        P EJECT  IDENT C:SIC        P*       ┆
0x2984…29d4              00 50 2a 20 00 1a 00 f2 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 1a 00 fc 00 22 00 50 2a 20 20 20 53 50 45 43 49 46 49 45 44 20 49 4e 20 4d 4f 44   ┆ P*      , P*   PARAMETERS FOR CONDITIONAL ASSEMBLY      " P*   SPECIFIED IN MOD┆
0x29d4…2a24              55 4c 45 20 43 3a 45 51 55 20 00 1a 01 2c 00 06 00 50 2a 20 00 1a 01 52 00 40 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   ┆ULE C:EQU    ,   P*    R @ P****************************************************┆
0x2a24…2a74 (27, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 00 1a 01 5c 00 38 00 50 4c 4f 4f 50 5c 45 51 55 5c 58 3a 44 5c 49 46 20 3d 20 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 1b 00 10 00 2e 00 50 5c 5c 5c 49   ┆********     8 PLOOP EQU X:D IF = 0. MULTIPOINT CONFIG. DOWNSTREAMS      . P   I┆
0x2a74…2ac4              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 41 4d 53 20 00 1b 00 4c 00 36 00 50 53 45 54 41 44 52 5c 45 51 55 5c 58 3a 4b 5c 49 46 20 3d 20 30 2e 43 4f 4e 43 45 4e 54 52 41 54 4f 52   ┆F = 1. LOOP CONFIGURATION DOWNSTREAMS    L 6 PSETADR EQU X:K IF = 0.CONCENTRATOR┆
0x2ac4…2b14              20 41 4e 44 20 53 49 4d 2e 20 54 45 52 4d 2e 20 00 1b 00 7e 00 2a 00 50 5c 5c 5c 41 44 44 52 45 53 53 45 53 20 53 50 45 43 49 46 49 45 44 20 41 54 20 53 59 53 54 45 4d 20 47 45 4e 2e 20 00 1b 00 b8 00 2c 00 50 5c 5c 5c 49 46 20 3d 20 31 2e   ┆ AND SIM. TERM.    ~ * P   ADDRESSES SPECIFIED AT SYSTEM GEN.      , P   IF = 1.┆
0x2b14…2b64              43 4f 4e 43 2e 20 41 4e 44 20 53 49 4d 2e 20 54 45 52 4d 2e 20 41 44 44 52 45 53 53 45 53 00 1b 00 e6 00 20 00 50 5c 5c 5c 53 50 45 43 49 46 49 45 44 20 42 59 20 4f 50 45 52 41 54 4f 52 20 4f 52 20 00 1b 01 16 00 22 00 50 5c 5c 5c 42 59 20   ┆CONC. AND SIM. TERM. ADDRESSES       P   SPECIFIED BY OPERATOR OR      " P   BY ┆
0x2b64…2bb4              4e 45 54 57 4f 52 4b 20 43 4f 4e 46 49 47 2e 20 43 41 53 53 45 54 54 45 00 1b 01 3a 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 53 49 43 20 00 1b 01 60 00 44 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆NETWORK CONFIG. CASSETTE   :   P EJECT  IDENT C:SIC    ` D P********************┆
0x2bb4…2c04 (28, 0, 400) 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 1b 01 7c 00 06 00 50 2a 20 00 1c 00 34 00 06 00 50 2a 20 00 1c 00 3e 00 18 00 50 2a 20 20 53 55 42 52 4f   ┆********************************************   |   P*    4   P*    >   P*  SUBRO┆
0x2c04…2c54              55 54 49 4e 45 20 20 4b 3a 53 53 20 00 1c 00 48 00 30 00 50 2a 20 20 44 49 53 50 4c 41 59 53 20 53 54 41 54 49 53 54 49 43 53 20 46 4f 52 20 54 48 45 20 57 48 4f 4c 45 20 53 59 53 54 45 4d 20 00 1c 00 64 00 06 00 50 2a 20 00 1c 00 98 00 06   ┆UTINE  K:SS    H 0 P*  DISPLAYS STATISTICS FOR THE WHOLE SYSTEM    d   P*       ┆
0x2c54…2ca4              00 50 2a 20 00 1c 00 a2 00 06 00 50 2a 20 00 1c 00 ac 00 22 00 50 2a 20 20 43 41 4c 4c 20 53 45 51 55 45 4e 43 45 3a 20 43 46 20 20 41 31 34 2c 4b 3a 53 53 00 1c 00 b6 00 06 00 50 2a 20 00 1c 00 dc 00 1a 00 50 2a 20 20 20 20 45 4e 54 52 59   ┆ P*        P*      " P*  CALL SEQUENCE: CF  A14,K:SS       P*        P*    ENTRY┆
0x2ca4…2cf4              20 50 41 52 41 4d 3a 20 4e 4f 4e 45 00 1c 00 e6 00 06 00 50 2a 20 00 1c 01 04 00 1c 00 50 2a 20 20 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 4b 3a 50 52 54 20 00 1c 01 0e 00 1c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ PARAM: NONE       P*        P*    SUBROUTINES: K:PRT        P*                 ┆
0x2cf4…2d44              4b 3a 50 52 54 54 00 1c 01 2e 00 1c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 3a 53 54 34 20 00 1c 01 4e 00 1c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 3a 4c 44 34 20 00 1c 01 6e 00 1c 00 50 2a 20   ┆K:PRTT   .   P*                 K:ST4    N   P*                 K:LD4    n   P* ┆
0x2d44…2d94 (29, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 3a 43 4b 4c 20 00 1c 01 8e 00 1c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 3a 47 54 43 20 00 1d 00 1e 00 06 00 50 2a 20 00 1d 00 3e 00 1a 00 50 2a 20 20 20 52 45 54 55   ┆                K:CKL        P*                 K:GTC        P*    >   P*   RETU┆
0x2d94…2de4              52 4e 20 50 41 52 41 4d 3a 20 4e 4f 4e 45 00 1d 00 48 00 06 00 50 2a 20 00 1d 00 66 00 1e 00 50 2a 20 20 52 45 54 55 52 4e 20 4d 45 54 48 4f 44 3a 20 56 49 41 20 41 31 34 20 00 1d 00 70 00 06 00 50 2a 20 00 1d 00 92 00 16 00 50 2a 20 20 20   ┆RN PARAM: NONE   H   P*    f   P*  RETURN METHOD: VIA A14    p   P*        P*   ┆
0x2de4…2e34              43 48 41 4e 47 45 44 20 52 45 47 53 3a 20 00 1d 00 9c 00 06 00 50 2a 20 00 1d 00 b6 00 16 00 50 2a 20 20 20 53 54 41 43 4b 45 52 20 4e 45 45 44 3a 20 00 1d 00 c0 00 06 00 50 2a 20 00 1d 00 da 00 16 00 50 2a 20 20 20 20 4c 49 4d 49 54 41 54   ┆CHANGED REGS:        P*        P*   STACKER NEED:        P*        P*    LIMITAT┆
0x2e34…2e84              49 4f 4e 53 3a 20 00 1d 00 e4 00 06 00 50 2a 20 00 1d 00 fe 00 1c 00 50 2a 20 20 20 43 41 4c 4c 49 4e 47 20 54 41 53 4b 3a 20 4f 50 43 4f 4d 20 00 1d 01 08 00 06 00 50 2a 20 00 1d 01 28 00 06 00 50 2a 20 00 1d 01 32 00 46 00 50 2a 2a 2a 2a   ┆IONS:        P*        P*   CALLING TASK: OPCOM        P*    (   P*    2 F P****┆
0x2e84…2ed4              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 20 00 1d 01 3c 00 0e 00 50 4b 3a 53 53 5c 45 51 55 5c 2a   ┆*************************************************************    <   PK:SS EQU *┆
0x2ed4…2f24 (30, 0, 400) 00 1d 01 86 00 14 00 50 5c 4c 44 5c 41 31 2c 4b 3a 43 4f 4e 46 2d 32 20 00 1e 00 08 00 12 00 50 5c 49 46 54 5c 53 45 54 41 44 52 3d 31 20 00 1e 00 20 00 30 00 50 5c 41 42 4c 28 5a 29 5c 4b 3a 4e 4f 43 4c 5c 4e 4f 20 43 4f 4e 46 49 47 55 52   ┆       P LD A1,K:CONF-2        P IFT SETADR=1      0 P ABL(Z) K:NOCL NO CONFIGUR┆
0x2f24…2f74              41 54 49 4f 4e 20 4c 49 53 54 28 50 52 49 4e 54 29 20 00 1e 00 36 00 08 00 50 5c 58 49 46 00 1e 00 6a 00 28 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 50 52 54 54 5c 50 52 49 4e 54 20 54 49 4d 45 2c 20 48 45 41 44 2c 20 45 4f 52 00 1e 00 76 00 10   ┆ATION LIST(PRINT)    6   P XIF   j ( P CF A14,K:PRTT PRINT TIME, HEAD, EOR   v  ┆
0x2f74…2fc4              00 50 5c 44 41 54 41 5c 4b 3a 46 38 30 35 00 1e 00 a2 00 2c 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 53 43 52 33 5c 52 45 53 45 54 20 4e 45 54 57 4f 52 4b 20 50 41 52 41 4d 45 54 45 52 53 20 00 1e 00 b6 00 14 00 50 5c 4c 44 4b 4c 5c 41 32 2c 4b   ┆ P DATA K:F805     , P CF A14,K:SCR3 RESET NETWORK PARAMETERS        P LDKL A2,K┆
0x2fc4…3014              3a 43 4f 4e 46 20 00 1e 00 e6 00 14 00 50 53 53 30 31 30 5c 4c 44 52 5c 41 33 2c 41 32 20 00 1e 00 fe 00 20 00 50 5c 43 57 4b 5c 41 32 2c 4b 3a 43 4f 4e 45 5c 45 4e 44 20 4f 46 20 4c 49 4e 45 53 3f 00 1e 01 16 00 16 00 50 5c 52 46 28 4e 4c   ┆:CONF        PSS010 LDR A3,A2        P CWK A2,K:CONE END OF LINES?       P RF(NL┆
0x3014…3064              29 5c 53 53 30 32 30 5c 59 45 53 20 00 1e 01 3a 00 24 00 50 5c 53 54 5c 41 32 2c 54 43 41 57 42 4c 2c 41 31 33 5c 4c 49 4e 45 20 57 42 20 54 4f 20 54 43 41 00 1e 01 54 00 32 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 4c 53 31 30 5c 50 52 49 4e 54   ┆) SS020 YES    : $ P ST A2,TCAWBL,A13 LINE WB TO TCA   T 2 P CF A14,K:LS10 PRINT┆
0x3064…3070 (31, 0, 400) 20 54 43 3a 53 20 41 4e 44 20 4c 49                                                                                                                                                                                                               ┆ TC:S AND LI┆
0x3070…30c0              4e 45 20 53 54 41 54 49 53 54 49 43 53 20 00 1e 01 7c 00 20 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 50 52 54 4e 5c 50 52 49 4e 54 20 41 53 54 45 52 49 58 00 1f 00 22 00 10 00 50 5c 44 41 54 41 5c 4b 3a 46 35 36 31 00 1f 00 46 00 1e 00 50 5c 43   ┆NE STATISTICS    |   P CF A14,K:PRTN PRINT ASTERIX   "   P DATA K:F561   F   P C┆
0x30c0…598c              […elided…]
0x598c…59b0              00 50 4c 53 30 33 30 5c 41 44 4b 5c 41 33 2c 32 5c 4e 45 58 54 20 49 4e 20 54 43 20 4c 49 53 54 00 39 00 8e                                                                                                                                       ┆ PLS030 ADK A3,2 NEXT IN TC LIST 9  ┆
0x59b0…5a00              00 0e 00 50 5c 52 42 5c 4c 53 30 32 30 20 00 39 00 b4 00 08 00 50 5c 58 49 46 00 39 00 c6 00 12 00 50 4c 53 52 54 4e 5c 52 54 4e 5c 41 31 34 20 00 39 00 d2 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 53 49 43 20 00 39 00 e8   ┆   P RB LS020  9     P XIF 9     PLSRTN RTN A14  9     P EJECT  IDENT C:SIC  9  ┆
0x5a00…5a50              00 42 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 4b 3a 4e 53 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 2a 2a 2a 2a 2a 2a 00 39 01 04 00 06 00 50 2a 20 00 39 01 4a   ┆ B P******************* K:NS ************************************* 9     P*  9 J┆
0x5a50…5a90              00 06 00 50 2a 20 00 39 01 54 00 06 00 50 2a 20 00 39 01 5e 00 14 00 50 2a 53 55 42 52 4f 55 54 49 4e 45 20 4b 3a 4e 53 00 39 01 68 00 22 00 50 2a 20 20 44 49 53 50 4c 41 59 20 4e 45 54 57 4f                                                   ┆   P*  9 T   P*  9 ^   P*SUBROUTINE K:NS 9 h " P*  DISPLAY NETWO┆
0x5a90…5ae0 (58, 0, 400) 52 4b 20 53 54 41 54 49 53 54 49 43 53 20 00 39 01 80 00 06 00 50 2a 20 00 3a 00 16 00 06 00 50 2a 20 00 3a 00 20 00 22 00 50 2a 20 43 41 4c 4c 20 53 45 51 55 45 4e 43 45 3a 5c 43 46 20 20 41 31 34 2c 4b 3a 4e 53 20 00 3a 00 2a 00 06 00 50   ┆RK STATISTICS  9     P*  :     P*  :   " P* CALL SEQUENCE: CF  A14,K:NS  : *   P┆
0x5ae0…5b30              2a 20 00 3a 00 50 00 1a 00 50 2a 20 20 20 45 4e 54 52 59 20 50 41 52 41 4d 3a 5c 4e 4f 4e 45 20 00 3a 00 5a 00 06 00 50 2a 20 00 3a 00 78 00 1c 00 50 2a 20 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 5c 4b 3a 50 52 54 54 20 00 3a 00 82 00 1a   ┆*  : P   P*   ENTRY PARAM: NONE  : Z   P*  : x   P*   SUBROUTINES: K:PRTT  :    ┆
0x5b30…5b80              00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 4b 3a 53 54 34 00 3a 00 a2 00 1a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 4b 3a 4c 44 34 00 3a 00 c0 00 06 00 50 2a 20 00 3a 00 de 00 1a 00 50 2a 20 20 52 45 54 55 52   ┆ P*                K:ST4 :     P*                K:LD4 :     P*  :     P*  RETUR┆
0x5b80…5bd0              4e 20 50 41 52 41 4d 3a 5c 4e 4f 4e 45 20 00 3a 00 e8 00 06 00 50 2a 20 00 3a 01 06 00 1c 00 50 2a 20 20 52 45 54 55 52 4e 20 4d 45 54 4f 44 3a 5c 56 49 41 20 41 31 34 00 3a 01 10 00 06 00 50 2a 20 00 3a 01 30 00 16 00 50 2a 20 20 43 48 41   ┆N PARAM: NONE  :     P*  :     P*  RETURN METOD: VIA A14 :     P*  : 0   P*  CHA┆
0x5bd0…5c20              4e 47 45 44 20 52 45 47 53 3a 5c 20 00 3a 01 3a 00 06 00 50 2a 20 00 3a 01 54 00 16 00 50 2a 20 20 53 54 41 43 4b 45 52 20 4e 45 45 44 3a 5c 20 00 3a 01 5e 00 06 00 50 2a 20 00 3a 01 78 00 16 00 50 2a 20 20 20 4c 49 4d 49 54 41 54 49 4f 4e   ┆NGED REGS:   : :   P*  : T   P*  STACKER NEED:   : ^   P*  : x   P*   LIMITATION┆
0x5c20…5c70 (59, 0, 400) 53 3a 5c 20 00 3a 01 82 00 06 00 50 2a 20 00 3b 00 0c 00 1a 00 50 2a 20 20 43 41 4c 4c 49 4e 47 20 54 41 53 4b 3a 5c 4f 50 43 4f 4d 00 3b 00 16 00 06 00 50 2a 20 00 3b 00 34 00 06 00 50 2a 20 00 3b 00 3e 00 44 00 50 2a 2a 2a 2a 2a 2a 2a 2a   ┆S:   :     P*  ;     P*  CALLING TASK: OPCOM ;     P*  ; 4   P*  ; > D P********┆
0x5c70…5cc0              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 3b 00 48 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a   ┆******************************************************** ; H   P EJECT  IDENT C:┆
0x5cc0…5d10              53 49 43 20 00 3b 00 90 00 0e 00 50 4b 3a 4e 53 5c 45 51 55 5c 2a 00 3b 00 ac 00 14 00 50 5c 4c 44 5c 41 31 2c 4b 3a 43 4f 4e 46 2d 32 20 00 3b 00 be 00 2a 00 50 5c 41 42 4c 28 5a 29 5c 4b 3a 4e 4f 43 4c 5c 4e 4f 20 43 4f 4e 46 49 47 20 4c   ┆SIC  ;     PK:NS EQU * ;     P LD A1,K:CONF-2  ;   * P ABL(Z) K:NOCL NO CONFIG L┆
0x5d10…5d60              49 53 54 20 28 50 52 49 4e 54 29 20 00 3b 00 d6 00 2c 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 50 52 54 54 5c 50 52 49 4e 54 20 54 49 4d 45 2c 20 48 45 41 44 2c 20 44 4f 20 45 4f 52 20 00 3b 01 04 00 10 00 50 5c 44 41 54 41 5c 4b 3a 46 38 30 31   ┆IST (PRINT)  ;   , P CF A14,K:PRTT PRINT TIME, HEAD, DO EOR  ;     P DATA K:F801┆
0x5d60…5db0              00 3b 01 34 00 2c 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 53 43 52 33 5c 52 45 53 45 54 20 4e 45 54 57 4f 52 4b 20 50 41 52 41 4d 45 54 45 52 53 20 00 3b 01 48 00 14 00 50 5c 4c 44 4b 4c 5c 41 31 31 2c 4b 3a 43 4f 4e 46 00 3b 01 78 00 26 00 50   ┆ ; 4 , P CF A14,K:SCR3 RESET NETWORK PARAMETERS  ; H   P LDKL A11,K:CONF ; x & P┆
0x5db0…5e00 (60, 0, 400) 4e 53 30 31 30 5c 43 57 4b 5c 41 31 31 2c 4b 3a 43 4f 4e 45 5c 45 4e 44 20 4f 46 20 4c 49 4e 45 53 3f 00 3b 01 90 00 16 00 50 5c 52 46 28 4e 4c 29 5c 4e 53 30 32 30 5c 59 45 53 20 00 3c 00 2a 00 26 00 50 5c 53 54 5c 41 31 31 2c 54 43 41 57   ┆NS010 CWK A11,K:CONE END OF LINES? ;     P RF(NL) NS020 YES  < * & P ST A11,TCAW┆
0x5e00…5e50              42 4c 2c 41 31 33 5c 4c 49 4e 45 20 57 42 20 54 4f 20 54 43 41 20 00 3c 00 44 00 14 00 50 5c 41 44 44 5c 4e 57 54 43 2c 4c 49 4e 54 43 20 00 3c 00 6e 00 14 00 50 5c 41 44 44 5c 4e 57 45 43 2c 4c 49 4e 45 43 20 00 3c 00 86 00 28 00 50 5c 43   ┆BL,A13 LINE WB TO TCA  < D   P ADD NWTC,LINTC  < n   P ADD NWEC,LINEC  <   ( P C┆
0x5e50…5ea0              46 5c 41 31 34 2c 4b 3a 50 52 54 4e 5c 50 52 49 4e 54 20 4c 49 4e 45 20 53 54 41 54 49 53 54 49 43 53 00 3c 00 9e 00 10 00 50 5c 44 41 54 41 5c 4b 3a 46 34 36 31 00 3c 00 ca 00 14 00 50 5c 41 44 4b 4c 5c 41 31 31 2c 4b 3a 4c 45 4e 44 00 3c   ┆F A14,K:PRTN PRINT LINE STATISTICS <     P DATA K:F461 <     P ADKL A11,K:LEND <┆
0x5ea0…5ef0              00 de 00 0e 00 50 5c 52 42 5c 4e 53 30 31 30 20 00 3c 00 f6 00 2e 00 50 4e 53 30 32 30 5c 43 46 5c 41 31 34 2c 4b 3a 50 52 54 4e 5c 50 52 49 4e 54 20 54 4f 54 41 4c 20 53 54 41 54 49 53 54 49 43 53 00 3c 01 08 00 10 00 50 5c 44 41 54 41 5c   ┆     P RB NS010  <   . PNS020 CF A14,K:PRTN PRINT TOTAL STATISTICS <     P DATA ┆
0x5ef0…5f40              4b 3a 46 34 36 32 00 3c 01 3a 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 3c 01 4e 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 53 49 43 20 00 3c 01 5e 00 42 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 4b 3a   ┆K:F462 < :   P RTN A14 < N   P EJECT  IDENT C:SIC  < ^ B P******************* K:┆
0x5f40…5f90 (61, 0, 400) 54 53 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 2a 2a 2a 2a 2a 2a 00 3c 01 7a 00 06 00 50 2a 20 00 3d 00 30 00 06 00 50 2a 20 00 3d 00 3a 00 06 00 50 2a 20 00 3d 00 44 00 14 00 50 2a 53   ┆TS ************************************* < z   P*  = 0   P*  = :   P*  = D   P*S┆
0x5f90…5fe0              55 42 52 4f 55 54 49 4e 45 20 4b 3a 54 53 00 3d 00 4e 00 22 00 50 2a 20 20 44 49 53 50 4c 41 59 20 54 45 52 4d 49 4e 41 4c 20 53 54 41 54 49 53 54 49 43 53 00 3d 00 66 00 06 00 50 2a 20 00 3d 00 8c 00 06 00 50 2a 20 00 3d 00 96 00 20 00 50   ┆UBROUTINE K:TS = N " P*  DISPLAY TERMINAL STATISTICS = f   P*  =     P*  =     P┆
0x5fe0…6030              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 54 53 00 3d 00 a0 00 06 00 50 2a 20 00 3d 00 c4 00 1a 00 50 2a 20 20 20 45 4e 54 52 59 20 50 41 52 41 4d 3a 5c 4e 4f 4e 45 20 00 3d 00 ce 00 06 00 50 2a 20 00 3d   ┆* CALL SEQUENCE: CF A14,K:TS =     P*  =     P*   ENTRY PARAM: NONE  =     P*  =┆
0x6030…6080              00 ec 00 1a 00 50 2a 20 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 5c 4b 3a 43 4b 4c 00 3d 00 f6 00 1a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 4b 3a 47 54 43 00 3d 01 14 00 1a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     P*   SUBROUTINES: K:CKL =     P*                K:GTC =     P*             ┆
0x6080…60d0              20 20 5c 4b 3a 50 52 54 00 3d 01 32 00 1c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 4b 3a 50 52 54 54 20 00 3d 01 50 00 06 00 50 2a 20 00 3d 01 70 00 1a 00 50 2a 20 20 52 45 54 55 52 4e 20 50 41 52 41 4d 3a 5c 4e 4f 4e 45 20   ┆   K:PRT = 2   P*                K:PRTT  = P   P*  = p   P*  RETURN PARAM: NONE ┆
0x60d0…6120 (62, 0, 398) 00 3d 01 7a 00 06 00 50 2a 20 00 3e 00 08 00 1c 00 50 2a 20 20 52 45 54 55 52 4e 20 4d 45 54 4f 44 3a 5c 56 49 41 20 41 31 34 00 3e 00 12 00 06 00 50 2a 20 00 3e 00 32 00 16 00 50 2a 20 20 43 48 41 4e 47 45 44 20 52 45 47 53 3a 5c 20 00 3e   ┆ = z   P*  >     P*  RETURN METOD: VIA A14 >     P*  > 2   P*  CHANGED REGS:   >┆
0x6120…6170              00 3c 00 06 00 50 2a 20 00 3e 00 56 00 16 00 50 2a 20 20 53 54 41 43 4b 45 52 20 4e 45 45 44 3a 5c 20 00 3e 00 60 00 06 00 50 2a 20 00 3e 00 7a 00 16 00 50 2a 20 20 20 4c 49 4d 49 54 41 54 49 4f 4e 53 3a 5c 20 00 3e 00 84 00 06 00 50 2a 20   ┆ <   P*  > V   P*  STACKER NEED:   > `   P*  > z   P*   LIMITATIONS:   >     P* ┆
0x6170…61c0              00 3e 00 9e 00 1a 00 50 2a 20 20 43 41 4c 4c 49 4e 47 20 54 41 53 4b 3a 5c 4f 50 43 4f 4d 00 3e 00 a8 00 06 00 50 2a 20 00 3e 00 c6 00 06 00 50 2a 20 00 3e 00 d0 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   ┆ >     P*  CALLING TASK: OPCOM >     P*  >     P*  >   D P**********************┆
0x61c0…6210              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 20 00 3e 00 da 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 53 49 43 20 00 3e 01 22 00 0e 00 50 4b 3a   ┆*****************************************  >     P EJECT  IDENT C:SIC  > "   PK:┆
0x6210…625e              54 53 5c 45 51 55 5c 2a 00 3e 01 3e 00 26 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 43 4b 4c 5c 4c 49 4e 45 20 4e 42 52 20 49 4e 20 53 59 53 54 45 4d 3f 20 00 3e 01 50 00 14 00 50 5c 52 46 28 4e 5a 29 5c 54 53 52 54 4e 5c 4e 4f 00 3e 01 7a         ┆TS EQU * > > & P CF A14,K:CKL LINE NBR IN SYSTEM?  > P   P RF(NZ) TSRTN NO > z┆
0x625e…62ae (63, 0, 400) 00 22 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 50 52 54 54 5c 50 52 49 4e 54 20 54 49 4d 45 20 48 45 41 44 00 3f 00 04 00 10 00 50 5c 44 41 54 41 5c 4b 3a 46 38 30 30 00 3f 00 2a 00 04 00 50 00 3f 00 3e 00 2a 00 50 54 53 30 31 30 5c 43 46 5c 41   ┆ " P CF A14,K:PRTT PRINT TIME HEAD ?     P DATA K:F800 ? *   P ? > * PTS010 CF A┆
0x62ae…62fe              31 34 2c 4b 3a 47 54 43 5c 54 43 20 49 4e 20 43 4f 4e 46 49 47 20 4c 49 53 54 3f 20 00 3f 00 46 00 14 00 50 5c 52 46 28 31 29 5c 54 53 30 32 30 5c 59 45 53 00 3f 00 74 00 28 00 50 5c 52 46 28 32 29 5c 54 53 52 54 4e 5c 45 4e 44 20 4f 46 20   ┆14,K:GTC TC IN CONFIG LIST?  ? F   P RF(1) TS020 YES ? t ( P RF(2) TSRTN END OF ┆
0x62fe…634e              4b 45 59 42 4f 41 52 44 20 42 55 46 46 45 52 20 00 3f 00 8c 00 20 00 50 5c 4c 44 4b 4c 5c 41 39 2c 4b 3a 44 55 4d 5c 47 45 54 20 44 55 4d 4d 59 20 57 42 20 00 3f 00 b8 00 16 00 50 5c 53 54 5c 41 39 2c 54 43 41 57 42 54 2c 41 31 33 20 00 3f   ┆KEYBOARD BUFFER  ?     P LDKL A9,K:DUM GET DUMMY WB  ?     P ST A9,TCAWBT,A13  ?┆
0x634e…639e              00 dc 00 26 00 50 5c 53 54 52 5c 41 31 2c 41 39 5c 54 43 20 41 44 44 52 45 53 53 20 54 4f 20 44 55 4d 4d 59 20 57 42 20 00 3f 00 f6 00 2e 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 50 52 54 54 5c 27 4c 49 4e 45 20 4c 4c 20 54 43 20 54 20 4e 4f 54   ┆   & P STR A1,A9 TC ADDRESS TO DUMMY WB  ?   . P CF A14,K:PRTT 'LINE LL TC T NOT┆
0x639e…63ee              20 49 4e 20 4c 49 53 54 27 20 00 3f 01 20 00 10 00 50 5c 44 41 54 41 5c 4b 3a 46 33 34 33 00 3f 01 52 00 0e 00 50 5c 52 42 5c 54 53 30 31 30 20 00 3f 01 66 00 2c 00 50 54 53 30 32 30 5c 43 46 5c 41 31 34 2c 4b 3a 54 53 32 30 5c 50 52 49 4e   ┆ IN LIST'  ?     P DATA K:F343 ? R   P RB TS010  ? f , PTS020 CF A14,K:TS20 PRIN┆
0x63ee…643e (64, 2, 230) 54 20 54 43 20 53 54 41 54 49 53 54 49 43 53 20 00 3f 01 78 00 0e 00 50 5c 52 42 5c 54 53 30 31 30 20 00 40 00 18 00 30 00 50 4b 3a 54 53 31 30 5c 43 46 5c 41 31 34 2c 4b 3a 50 52 54 54 5c 50 52 49 4e 54 20 54 49 4d 45 20 2c 20 48 45 41 44   ┆T TC STATISTICS  ? x   P RB TS010  @   0 PK:TS10 CF A14,K:PRTT PRINT TIME , HEAD┆
0x643e…648e              2c 20 45 4f 52 20 00 40 00 2a 00 10 00 50 5c 44 41 54 41 5c 4b 3a 46 38 30 30 00 40 00 5e 00 2c 00 50 4b 3a 54 53 32 30 5c 43 46 5c 41 31 34 2c 4b 3a 50 52 54 4e 5c 50 52 49 4e 54 20 54 43 20 53 54 41 54 49 53 54 49 43 53 00 40 00 72 00 10   ┆, EOR  @ *   P DATA K:F800 @ ^ , PK:TS20 CF A14,K:PRTN PRINT TC STATISTICS @ r  ┆
0x648e…64d4              00 50 5c 44 41 54 41 5c 4b 3a 46 34 36 30 00 40 00 a2 00 12 00 50 54 53 52 54 4e 5c 52 54 4e 5c 41 31 34 20 00 40 00 b6 00 06 00 50 2a 20 00 40 00 cc 00 08 00 50 5c 45 4e 44 00 40 00 d6 40 04 00 00 00 40 00 e2                                 ┆ P DATA K:F460 @     PTSRTN RTN A14  @     P*  @     P END @  @    @  ┆
0x64d4…64dc (65, 1, 8)   20 04 00 00 00 41 00 04                                                                                                                                                                                                                           ┆     A  ┆
0x64dc…652c (66, 0, 400) 00 16 00 50 5c 4c 44 4b 4c 5c 41 32 2c 2f 31 30 30 5c 45 4f 4c 20 00 42 00 04 00 28 00 50 5c 53 54 52 5c 41 32 2c 41 31 5c 53 54 4f 52 45 20 45 4f 4c 20 4c 41 53 54 20 49 4e 20 46 4f 52 4d 41 54 20 00 42 00 1e 00 14 00 50 5c 53 55 4b 4c 5c   ┆   P LDKL A2,/100 EOL  B   ( P STR A2,A1 STORE EOL LAST IN FORMAT  B     P SUKL ┆
0x652c…657c              41 31 2c 4b 3a 46 43 31 31 20 00 42 00 4a 00 2a 00 50 5c 53 43 5c 41 31 2c 4b 3a 46 43 31 31 2d 31 5c 53 54 4f 52 45 20 4c 45 4e 47 54 48 20 4f 46 20 46 4f 52 4d 41 54 00 42 00 62 00 1e 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 50 52 54 4e 5c 50   ┆A1,K:FC11  B J * P SC A1,K:FC11-1 STORE LENGTH OF FORMAT B b   P CF A14,K:PRTN P┆
0x657c…65cc              52 49 4e 54 20 46 4f 4d 41 54 00 42 00 90 00 10 00 50 5c 44 41 54 41 5c 4b 3a 46 43 31 30 00 42 00 b2 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 53 45 54 20 00 42 00 c6 00 06 00 50 2a 20 00 42 00 e2 00 34 00 50 2a 20 20 20   ┆RINT FOMAT B     P DATA K:FC10 B     P EJECT  IDENT C:SET  B     P*  B   4 P*   ┆
0x65cc…661c              45 44 49 54 20 41 4e 44 20 50 52 49 4e 54 20 41 44 44 52 45 53 53 45 53 20 4f 46 20 49 4e 51 55 49 52 59 20 54 45 4d 49 4e 41 4c 53 00 42 00 ec 00 06 00 50 2a 20 00 42 01 24 00 22 00 50 5c 4c 44 4b 5c 41 35 2c 30 5c 49 4e 44 45 58 20 46 4f   ┆EDIT AND PRINT ADDRESSES OF INQUIRY TEMINALS B     P*  B $ " P LDK A5,0 INDEX FO┆
0x661c…666c              52 20 54 45 52 4d 49 4e 41 4c 53 20 00 42 01 2e 00 30 00 50 5c 4c 44 4b 4c 5c 41 31 2c 4b 3a 46 43 31 33 5c 47 45 54 20 41 44 44 52 45 53 53 20 4f 46 20 4f 55 54 50 55 54 20 46 4f 52 4d 41 54 00 42 01 54 00 10 00 50 50 43 33 31 30 5c 45 51   ┆R TERMINALS  B . 0 P LDKL A1,K:FC13 GET ADDRESS OF OUTPUT FORMAT B T   PPC310 EQ┆
0x666c…66bc (67, 0, 400) 55 5c 2a 20 00 42 01 88 00 2a 00 50 5c 4c 44 5c 41 33 2c 4b 3a 43 43 53 41 2c 41 35 5c 47 45 54 20 54 45 52 4d 49 4e 41 4c 20 41 44 44 52 45 53 53 20 00 43 00 0c 00 22 00 50 5c 52 46 28 5a 29 5c 50 43 33 33 30 5c 45 4e 44 20 4f 46 20 54 45   ┆U *  B   * P LD A3,K:CCSA,A5 GET TERMINAL ADDRESS  C   " P RF(Z) PC330 END OF TE┆
0x66bc…670c              52 4d 49 4e 41 4c 53 20 00 43 00 3a 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 27 20 27 20 00 43 00 60 00 1a 00 50 5c 53 43 52 5c 41 32 2c 41 31 5c 53 54 4f 52 45 20 53 50 41 43 45 00 43 00 74 00 0e 00 50 5c 41 44 4b 5c 41 31 2c 31 20 00 43 00 92   ┆RMINALS  C :   P LDK A2,' '  C `   P SCR A2,A1 STORE SPACE C t   P ADK A1,1  C  ┆
0x670c…675c              00 26 00 50 5c 4c 44 4b 5c 41 34 2c 32 5c 4e 42 52 20 4f 46 20 43 48 41 52 2e 20 54 4f 20 43 4f 4e 56 45 52 54 20 00 43 00 a4 00 2c 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 58 41 5c 43 4f 4e 56 45 52 54 20 41 4e 44 20 53 54 4f 52 45 20 49 4e 20   ┆ & P LDK A4,2 NBR OF CHAR. TO CONVERT  C   , P CF A14,K:XA CONVERT AND STORE IN ┆
0x675c…67ac              46 4f 52 4d 41 54 00 43 00 ce 00 24 00 50 5c 41 44 4b 5c 41 35 2c 32 5c 55 50 44 41 54 45 20 54 45 52 4d 49 4e 41 4c 20 49 4e 44 45 58 20 00 43 00 fe 00 28 00 50 5c 43 57 4b 5c 41 35 2c 4e 53 49 4d 2b 4e 53 49 4d 5c 45 4e 44 20 4f 46 20 54   ┆FORMAT C   $ P ADK A5,2 UPDATE TERMINAL INDEX  C   ( P CWK A5,NSIM+NSIM END OF T┆
0x67ac…67fc              45 52 4d 49 4e 41 4c 53 3f 20 00 43 01 26 00 20 00 50 5c 52 42 28 4e 45 29 5c 50 43 33 31 30 5c 4e 45 58 54 20 54 45 52 4d 49 4e 41 4c 20 00 43 01 52 00 10 00 50 50 43 33 33 30 5c 45 51 55 5c 2a 20 00 43 01 76 00 0e 00 50 5c 4c 44 52 5c 41   ┆ERMINALS?  C &   P RB(NE) PC310 NEXT TERMINAL  C R   PPC330 EQU *  C v   P LDR A┆
0x67fc…684c (68, 0, 400) 32 2c 41 31 00 43 01 8a 00 10 00 50 5c 41 4e 4b 5c 41 32 2c 2f 30 31 20 00 44 00 0c 00 1c 00 50 5c 52 46 28 5a 29 5c 50 43 33 34 30 5c 45 56 45 4e 20 42 59 54 45 53 20 00 44 00 20 00 26 00 50 5c 4c 44 4b 5c 41 32 2c 27 20 27 5c 41 44 44 20   ┆2,A1 C     P ANK A2,/01  D     P RF(Z) PC340 EVEN BYTES  D   & P LDK A2,' ' ADD ┆
0x684c…689c              53 50 41 43 45 20 49 46 20 4f 44 44 20 42 59 54 45 53 00 44 00 40 00 1e 00 50 5c 53 43 52 5c 41 32 2c 41 31 5c 53 54 4f 52 45 20 49 4e 20 46 4f 52 4d 41 54 00 44 00 6a 00 0e 00 50 5c 41 44 4b 5c 41 31 2c 31 20 00 44 00 8c 00 10 00 50 50 43   ┆SPACE IF ODD BYTES D @   P SCR A2,A1 STORE IN FORMAT D j   P ADK A1,1  D     PPC┆
0x689c…68ec              33 34 30 5c 45 51 55 5c 2a 20 00 44 00 9e 00 16 00 50 5c 4c 44 4b 4c 5c 41 32 2c 2f 31 30 30 5c 45 4f 4c 20 00 44 00 b2 00 26 00 50 5c 53 54 52 5c 41 32 2c 41 31 5c 50 55 54 20 45 4f 4c 20 4c 41 53 54 20 49 4e 20 46 4f 52 4d 41 54 20 00 44   ┆340 EQU *  D     P LDKL A2,/100 EOL  D   & P STR A2,A1 PUT EOL LAST IN FORMAT  D┆
0x68ec…693c              00 cc 00 14 00 50 5c 53 55 4b 4c 5c 41 31 2c 4b 3a 46 43 31 33 20 00 44 00 f6 00 28 00 50 5c 53 43 5c 41 31 2c 4b 3a 46 43 31 33 2d 31 5c 50 55 54 20 4c 45 4e 47 54 48 20 49 4e 20 46 4f 52 4d 41 54 00 44 01 0e 00 20 00 50 5c 43 46 5c 41 31   ┆     P SUKL A1,K:FC13  D   ( P SC A1,K:FC13-1 PUT LENGTH IN FORMAT D     P CF A1┆
0x693c…698c              34 2c 4b 3a 50 52 54 4e 5c 50 52 49 4e 54 20 46 4f 52 4d 41 54 20 00 44 01 3a 00 10 00 50 5c 44 41 54 41 5c 4b 3a 46 43 31 32 00 44 01 5e 00 06 00 50 2a 20 00 44 01 72 00 0e 00 50 2a 20 20 20 52 45 54 55 52 4e 00 44 01 7c 00 06 00 50 2a 20   ┆4,K:PRTN PRINT FORMAT  D :   P DATA K:FC12 D ^   P*  D r   P*   RETURN D |   P* ┆

Reduced view