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

⟦1bfa99e1b⟧ 

    Length: 4410 (0x113a)
    Notes: pts_type(SC)
    Names: »CCAPP.SC«

Derivation

└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
    └─⟦this⟧ »BDKAPP/CCAPP.SC«

PTS(SC)

	IDENT CCAPP 	CONPAC REL=1.0 DATE= 80.04.29 
*************************************************************** 
* 
*	U S E R  MODULE OF CONCENTRATOR APPLICATION  PEAB-T 
* 
*	PROGRAMMER:  JES
* 
* 
*	C C A P P 
* 
* 
*   * 
*   THIS MODULE HANDLES UNIDENTIFIED MESSAGES RECEIVED
*   FROM TRUNK LINE BY DCCC.
*   THE CC READ BUFFER SHOULD BE RELEASED AS SOON AS
*   POSSIBLE BY CALLING K:RCCB
*   * 
* 
*	THE MODULE RUNS UNDER TASK: TRASK  (FROM POOL TPSUP)
* 
*	ACTIVATED BY: DCCC
* 
* 
* 
* 
* 
*	THE MODULE CONTAINS THE SUBROUTINES:
* 
*	NAME	REVDAT	VERSION 
* 
* 
* 
* 
* 
*************************************************************** 
	EJECT
* 
* 
*	ENTRY ADDRESSES 
* 
*************************************************************** 
* 
*		ENTRY	DESCRIPTION
* 
	ENTRY	CCAPP
	EJECT
* 
* 
*	EXTERNAL REFERENSES 
* 
*************************************************************** 
* 
*		ADDRESS	IN MODULE
* 
* 
	EXTRN	K:RCCB	K:CCH 
	EXTRN	K:RETA	C:FUB 
	EXTRN	TPSUP	C:TPL
	EXTRN	ECBTB1,ECBTB2
	EXTRN	K:LINB,CCBUF 
	EXTRN	K:LW 
	EXTRN	TASCII	C:ASCI
* 
* 
*	EQUATES 
* 
* 
INPBL	EQU	-4	INDEX TO INPUT BUFFER LENGTH 
* 
	EJECT
************************************************************
* 
*   C C A P P 
* 
************************************************************
CCAPP	EQU	*	ACTIVATION POINT
* 
* 
*   TAKE CARE OF UNIDENTIFIED MESSAGE 
* 
* 
*   A1 = BUFFER POINTER 
* 
* 
* 
* 
	LDKL	A2,K:LINB	GET TC WRITE BUFFER 
	ADR	A2,A13 
	LD	A3,-4,A1	GET LENGTH 
	ADK	A3,1 
	ST	A3,-4,A2	AND STORE
	LDR	A4,A2
	ADK	A4,1	ADJUST FOR STA
	LDR	A6,A1

SAP20	LCR	A5,A6	MOVE REPLY
	SCR	A5,A4
	ADK	A6,1 
	ADK	A4,1 
	SUK	A3,1 
	RB(NZ)	SAP20 
	EJECT
	LDKL	A5,ECBTB1	GET LINE 1 TABEL
	ST	A5,ECBTST 
	AD	A5,ECBTB1 
	LDK	A6,1	IND.LINE 1
	RF	SUP100
SUP000	EQU	*
	CWK	A6,2	LINE 1 AND 2 CHECKED ?
	RF(E)	SUP400 
	LDKL	A5,ECBTB2 
	ST	A5,ECBTST 
	AD	A5,ECBTB2 
	LDK	A6,2	IND.LINE 2
SUP100	EQU	*
	ADK	A5,2 
	LD	A7,-2,A1	GET SIM.DEV. 
	LC	A7,TASCII,A7	CONVERT TO ASCII	DK1 
	SLL	A7,8 
	ANKL	A7,/FF00
SUP200	EQU	*
	SUK	A5,4 
	CWK	A5,ECBTST	END OF TABEL 
ECBTST	EQU	*-2
	RB(NP)	SUP000
	LDR*	A8,A5 
	ANKL	A8,/FF00
	CWR	A8,A7	OK?
	RB(NE)	SUP200
	SUK	A5,2	GET TCA AND DEV.
	LDR*	A3,A5	GET TCA AND DEV.
	ANKL	A3,/FF00	TCA
	ORR	A3,A6	TCA AND LINE NO
	ST	A3,-2,A2	IN BUFFER
	LDR*	A3,A5 
	ANK	A3,/FF	GET DEV.
	SCR	A3,A2	IN BUFFER
* 
* 
* 
*   RELEASE BUFFER
*   A1 = BUFFER POINTER 
* 
* 
SUP400	EQU	*
	CF	A14,K:RCCB
* 
* 
*	WRITE MESS. TO TC 
* 
* 
	CF	A14,K:LW
* 
*   EXIT
* 
	CF	A14,K:RETA
	DATA	TPSUP 
* 
	END

HexDump

0x0000…0034 (0, 0, 400)  Head {h00=0x0030, h01=0x0050, text=» IDENT CCAPP  CONPAC REL=1.0 DATE= 80.04.29 «, t00=0x0000, t01=0x0004}
0x0034…007c              Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0000, t01=0x0038}
0x007c…0086              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0080}
0x0086…00c4              Head {h00=0x003a, h01=0x0050, text=»* U S E R  MODULE OF CONCENTRATOR APPLICATION  PEAB-T «, t00=0x0000, t01=0x008a}
0x00c4…00ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c8}
0x00ce…00e8              Head {h00=0x0016, h01=0x0050, text=»* PROGRAMMER:  JES«, t00=0x0000, t01=0x00d2}
0x00e8…00f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ec}
0x00f2…00fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f6}
0x00fc…0110              Head {h00=0x0010, h01=0x0050, text=»* C C A P P «, t00=0x0000, t01=0x0100}
0x0110…011a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0114}
0x011a…0124              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011e}
0x0124…0132              Head {h00=0x000a, h01=0x0050, text=»*   * «, t00=0x0000, t01=0x0128}
0x0132…0170              Head {h00=0x003a, h01=0x0050, text=»*   THIS MODULE HANDLES UNIDENTIFIED MESSAGES RECEIVED«, t00=0x0000, t01=0x0136}
0x0170…0194              Head {h00=0x0020, h01=0x0050, text=»*   FROM TRUNK LINE BY DCCC.«, t00=0x0000, t01=0x0174}
0x0194…01d0              Head {h00=0x0038, h01=0x0050, text=»*   THE CC READ BUFFER SHOULD BE RELEASED AS SOON AS«, t00=0x0001, t01=0x0008}
0x01d0…01f6              Head {h00=0x0022, h01=0x0050, text=»*   POSSIBLE BY CALLING K:RCCB«, t00=0x0001, t01=0x0044}
0x01f6…0204              Head {h00=0x000a, h01=0x0050, text=»*   * «, t00=0x0001, t01=0x006a}
0x0204…020e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0078}
0x020e…024c              Head {h00=0x003a, h01=0x0050, text=»* THE MODULE RUNS UNDER TASK: TRASK  (FROM POOL TPSUP)«, t00=0x0001, t01=0x0082}
0x024c…0256              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c0}
0x0256…0272              Head {h00=0x0018, h01=0x0050, text=»* ACTIVATED BY: DCCC«, t00=0x0001, t01=0x00ca}
0x0272…027c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e6}
0x027c…0286              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f0}
0x0286…0290              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fa}
0x0290…029a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0104}
0x029a…02a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010e}
0x02a4…02d2              Head {h00=0x002a, h01=0x0050, text=»* THE MODULE CONTAINS THE SUBROUTINES:«, t00=0x0001, t01=0x0118}
0x02d2…02dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0146}
0x02dc…02fa              Head {h00=0x001a, h01=0x0050, text=»* NAME REVDAT VERSION «, t00=0x0001, t01=0x0150}
0x02fa…0304              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x016e}
0x0304…030e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0178}
0x030e…0318              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0182}
0x0318…0322              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x018c}
0x0322…032c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0008}
0x032c…0374              Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0002, t01=0x0012}
0x0374…0382              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x005a}
0x0382…038c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0068}
0x038c…0396              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0072}
0x0396…03b0              Head {h00=0x0016, h01=0x0050, text=»* ENTRY ADDRESSES «, t00=0x0002, t01=0x007c}
0x03b0…03ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0096}
0x03ba…0402              Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0002, t01=0x00a0}
0x0402…040c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e8}
0x040c…0428              Head {h00=0x0018, h01=0x0050, text=»*  ENTRY DESCRIPTION«, t00=0x0002, t01=0x00f2}
0x0428…0432              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x010e}
0x0432…0446              Head {h00=0x0010, h01=0x0050, text=» ENTRY CCAPP«, t00=0x0002, t01=0x0118}
0x0446…0454              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x012c}
0x0454…045e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x013a}
0x045e…0468              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0144}
0x0468…0486              Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL REFERENSES «, t00=0x0002, t01=0x014e}
0x0486…0490              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016c}
0x0490…04d8              Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0002, t01=0x0176}
0x04d8…04e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x002e}
0x04e2…04fe              Head {h00=0x0018, h01=0x0050, text=»*  ADDRESS IN MODULE«, t00=0x0003, t01=0x0038}
0x04fe…0508              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0054}
0x0508…0512              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x005e}
0x0512…052e              Head {h00=0x0018, h01=0x0050, text=» EXTRN K:RCCB K:CCH «, t00=0x0003, t01=0x0068}
0x052e…054a              Head {h00=0x0018, h01=0x0050, text=» EXTRN K:RETA C:FUB «, t00=0x0003, t01=0x0084}
0x054a…0564              Head {h00=0x0016, h01=0x0050, text=» EXTRN TPSUP C:TPL«, t00=0x0003, t01=0x00a0}
0x0564…0580              Head {h00=0x0018, h01=0x0050, text=» EXTRN ECBTB1,ECBTB2«, t00=0x0003, t01=0x00ba}
0x0580…059c              Head {h00=0x0018, h01=0x0050, text=» EXTRN K:LINB,CCBUF «, t00=0x0003, t01=0x00d6}
0x059c…05b0              Head {h00=0x0010, h01=0x0050, text=» EXTRN K:LW «, t00=0x0003, t01=0x00f2}
0x05b0…05cc              Head {h00=0x0018, h01=0x0050, text=» EXTRN TASCII C:ASCI«, t00=0x0003, t01=0x0106}
0x05cc…05d6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0122}
0x05d6…05e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x012c}
0x05e0…05f2              Head {h00=0x000e, h01=0x0050, text=»* EQUATES «, t00=0x0003, t01=0x0136}
0x05f2…05fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0148}
0x05fc…0606              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0152}
0x0606…0638              Head {h00=0x002e, h01=0x0050, text=»INPBL EQU -4 INDEX TO INPUT BUFFER LENGTH «, t00=0x0003, t01=0x015c}
0x0638…0642              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x018e}
0x0642…0650              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0008}
0x0650…0694              Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0004, t01=0x0016}
0x0694…069e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x005a}
0x069e…06b4              Head {h00=0x0012, h01=0x0050, text=»*   C C A P P «, t00=0x0004, t01=0x0064}
0x06b4…06be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x007a}
0x06be…0702              Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0004, t01=0x0084}
0x0702…0726              Head {h00=0x0020, h01=0x0050, text=»CCAPP EQU * ACTIVATION POINT«, t00=0x0004, t01=0x00c8}
0x0726…0730              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ec}
0x0730…073a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00f6}
0x073a…0768              Head {h00=0x002a, h01=0x0050, text=»*   TAKE CARE OF UNIDENTIFIED MESSAGE «, t00=0x0004, t01=0x0100}
0x0768…0772              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x012e}
0x0772…077c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0138}
0x077c…079c              Head {h00=0x001c, h01=0x0050, text=»*   A1 = BUFFER POINTER «, t00=0x0004, t01=0x0142}
0x079c…07a6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0162}
0x07a6…07b0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x016c}
0x07b0…07ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0176}
0x07ba…07c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0180}
0x07c4…07f0              Head {h00=0x0028, h01=0x0050, text=» LDKL A2,K:LINB GET TC WRITE BUFFER «, t00=0x0004, t01=0x018a}
0x07f0…0804              Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x0005, t01=0x0026}
0x0804…0824              Head {h00=0x001c, h01=0x0050, text=» LD A3,-4,A1 GET LENGTH «, t00=0x0005, t01=0x003a}
0x0824…0836              Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0005, t01=0x005a}
0x0836…0854              Head {h00=0x001a, h01=0x0050, text=» ST A3,-4,A2 AND STORE«, t00=0x0005, t01=0x006c}
0x0854…0866              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0005, t01=0x008a}
0x0866…0886              Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 ADJUST FOR STA«, t00=0x0005, t01=0x009c}
0x0886…0898              Head {h00=0x000e, h01=0x0050, text=» LDR A6,A1«, t00=0x0005, t01=0x00bc}
0x0898…08a0              Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00ce}
0x08a0…08c2              Head {h00=0x001e, h01=0x0050, text=»SAP20 LCR A5,A6 MOVE REPLY«, t00=0x0005, t01=0x00d6}
0x08c2…08d4              Head {h00=0x000e, h01=0x0050, text=» SCR A5,A4«, t00=0x0005, t01=0x00f8}
0x08d4…08e6              Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0005, t01=0x010a}
0x08e6…08f8              Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0005, t01=0x011c}
0x08f8…090a              Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0005, t01=0x012e}
0x090a…0920              Head {h00=0x0012, h01=0x0050, text=» RB(NZ) SAP20 «, t00=0x0005, t01=0x0140}
0x0920…092e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0156}
0x092e…0956              Head {h00=0x0024, h01=0x0050, text=» LDKL A5,ECBTB1 GET LINE 1 TABEL«, t00=0x0005, t01=0x0164}
0x0956…096c              Head {h00=0x0012, h01=0x0050, text=» ST A5,ECBTST «, t00=0x0005, t01=0x018c}
0x096c…0982              Head {h00=0x0012, h01=0x0050, text=» AD A5,ECBTB1 «, t00=0x0006, t01=0x0012}
0x0982…099e              Head {h00=0x0018, h01=0x0050, text=» LDK A6,1 IND.LINE 1«, t00=0x0006, t01=0x0028}
0x099e…09b0              Head {h00=0x000e, h01=0x0050, text=» RF SUP100«, t00=0x0006, t01=0x0044}
0x09b0…09c4              Head {h00=0x0010, h01=0x0050, text=»SUP000 EQU *«, t00=0x0006, t01=0x0056}
0x09c4…09ec              Head {h00=0x0024, h01=0x0050, text=» CWK A6,2 LINE 1 AND 2 CHECKED ?«, t00=0x0006, t01=0x006a}
0x09ec…0a02              Head {h00=0x0012, h01=0x0050, text=» RF(E) SUP400 «, t00=0x0006, t01=0x0092}
0x0a02…0a1a              Head {h00=0x0014, h01=0x0050, text=» LDKL A5,ECBTB2 «, t00=0x0006, t01=0x00a8}
0x0a1a…0a30              Head {h00=0x0012, h01=0x0050, text=» ST A5,ECBTST «, t00=0x0006, t01=0x00c0}
0x0a30…0a46              Head {h00=0x0012, h01=0x0050, text=» AD A5,ECBTB2 «, t00=0x0006, t01=0x00d6}
0x0a46…0a62              Head {h00=0x0018, h01=0x0050, text=» LDK A6,2 IND.LINE 2«, t00=0x0006, t01=0x00ec}
0x0a62…0a76              Head {h00=0x0010, h01=0x0050, text=»SUP100 EQU *«, t00=0x0006, t01=0x0108}
0x0a76…0a88              Head {h00=0x000e, h01=0x0050, text=» ADK A5,2 «, t00=0x0006, t01=0x011c}
0x0a88…0aaa              Head {h00=0x001e, h01=0x0050, text=» LD A7,-2,A1 GET SIM.DEV. «, t00=0x0006, t01=0x012e}
0x0aaa…0ad8              Head {h00=0x002a, h01=0x0050, text=» LC A7,TASCII,A7 CONVERT TO ASCII DK1 «, t00=0x0006, t01=0x0150}
0x0ad8…0aea              Head {h00=0x000e, h01=0x0050, text=» SLL A7,8 «, t00=0x0006, t01=0x017e}
0x0aea…0b00              Head {h00=0x0012, h01=0x0050, text=» ANKL A7,/FF00«, t00=0x0006, t01=0x0190}
0x0b00…0b14              Head {h00=0x0010, h01=0x0050, text=»SUP200 EQU *«, t00=0x0007, t01=0x0016}
0x0b14…0b26              Head {h00=0x000e, h01=0x0050, text=» SUK A5,4 «, t00=0x0007, t01=0x002a}
0x0b26…0b4a              Head {h00=0x0020, h01=0x0050, text=» CWK A5,ECBTST END OF TABEL «, t00=0x0007, t01=0x003c}
0x0b4a…0b60              Head {h00=0x0012, h01=0x0050, text=»ECBTST EQU *-2«, t00=0x0007, t01=0x0060}
0x0b60…0b76              Head {h00=0x0012, h01=0x0050, text=» RB(NP) SUP000«, t00=0x0007, t01=0x0076}
0x0b76…0b8a              Head {h00=0x0010, h01=0x0050, text=» LDR* A8,A5 «, t00=0x0007, t01=0x008c}
0x0b8a…0ba0              Head {h00=0x0012, h01=0x0050, text=» ANKL A8,/FF00«, t00=0x0007, t01=0x00a0}
0x0ba0…0bb6              Head {h00=0x0012, h01=0x0050, text=» CWR A8,A7 OK?«, t00=0x0007, t01=0x00b6}
0x0bb6…0bcc              Head {h00=0x0012, h01=0x0050, text=» RB(NE) SUP200«, t00=0x0007, t01=0x00cc}
0x0bcc…0bee              Head {h00=0x001e, h01=0x0050, text=» SUK A5,2 GET TCA AND DEV.«, t00=0x0007, t01=0x00e2}
0x0bee…0c12              Head {h00=0x0020, h01=0x0050, text=» LDR* A3,A5 GET TCA AND DEV.«, t00=0x0007, t01=0x0104}
0x0c12…0c2c              Head {h00=0x0016, h01=0x0050, text=» ANKL A3,/FF00 TCA«, t00=0x0007, t01=0x0128}
0x0c2c…0c4e              Head {h00=0x001e, h01=0x0050, text=» ORR A3,A6 TCA AND LINE NO«, t00=0x0007, t01=0x0142}
0x0c4e…0c6c              Head {h00=0x001a, h01=0x0050, text=» ST A3,-2,A2 IN BUFFER«, t00=0x0007, t01=0x0164}
0x0c6c…0c80              Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A5 «, t00=0x0007, t01=0x0182}
0x0c80…0c9c              Head {h00=0x0018, h01=0x0050, text=» ANK A3,/FF GET DEV.«, t00=0x0008, t01=0x0008}
0x0c9c…0cb8              Head {h00=0x0018, h01=0x0050, text=» SCR A3,A2 IN BUFFER«, t00=0x0008, t01=0x0024}
0x0cb8…0cc2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0040}
0x0cc2…0ccc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x004a}
0x0ccc…0cd6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0054}
0x0cd6…0cf0              Head {h00=0x0016, h01=0x0050, text=»*   RELEASE BUFFER«, t00=0x0008, t01=0x005e}
0x0cf0…0d10              Head {h00=0x001c, h01=0x0050, text=»*   A1 = BUFFER POINTER «, t00=0x0008, t01=0x0078}
0x0d10…0d1a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0098}
0x0d1a…0d24              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a2}
0x0d24…0d38              Head {h00=0x0010, h01=0x0050, text=»SUP400 EQU *«, t00=0x0008, t01=0x00ac}
0x0d38…0d4e              Head {h00=0x0012, h01=0x0050, text=» CF A14,K:RCCB«, t00=0x0008, t01=0x00c0}
0x0d4e…0d58              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00d6}
0x0d58…0d62              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e0}
0x0d62…0d7e              Head {h00=0x0018, h01=0x0050, text=»* WRITE MESS. TO TC «, t00=0x0008, t01=0x00ea}
0x0d7e…0d88              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0106}
0x0d88…0d92              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0110}
0x0d92…0da6              Head {h00=0x0010, h01=0x0050, text=» CF A14,K:LW«, t00=0x0008, t01=0x011a}
0x0da6…0db0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x012e}
0x0db0…0dc0              Head {h00=0x000c, h01=0x0050, text=»*   EXIT«, t00=0x0008, t01=0x0138}
0x0dc0…0dca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0148}
0x0dca…0de0              Head {h00=0x0012, h01=0x0050, text=» CF A14,K:RETA«, t00=0x0008, t01=0x0152}
0x0de0…0df4              Head {h00=0x0010, h01=0x0050, text=» DATA TPSUP «, t00=0x0008, t01=0x0168}
0x0df4…0dfe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x017c}
0x0dfe…0e0a              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0008, t01=0x0186}
0x0e0a…0e0e (9, 2, 8)    Head {h00=0x4004, h01=0x0000}
0x0e0e…0e10              00 09                                                                                                                                                                                                                                             ┆  ┆
0x0e10…0e12              00 04                                                                                                                                                                                                                                             ┆  ┆
0x0e12…0e1a (10, 1, 8)   20 04 00 00 00 0a 00 04                                                                                                                                                                                                                           ┆        ┆
0x0e1a…0e6a (11, 0, 400) 00 6a 01 70 00 08 00 50 5c 58 49 46 00 6b 00 08 00 0e 00 50 5c 52 42 5c 52 44 4d 31 30 30 00 6b 00 14 00 0a 00 50 5c 45 4a 45 43 54 00 6b 00 26 00 06 00 50 2a 20 00 6b 00 34 00 1a 00 50 2a 5c 54 52 41 4e 53 4d 49 54 20 41 43 4b 20 30 20 4f   ┆ j p   P XIF k     P RB RDM100 k     P EJECT k &   P*  k 4   P* TRANSMIT ACK 0 O┆
0x0e6a…0eba              52 20 31 20 00 6b 00 3e 00 06 00 50 2a 20 00 6b 00 5c 00 12 00 50 54 52 41 43 4b 5c 4c 44 4b 5c 41 32 2c 31 00 6b 00 66 00 1e 00 50 5c 4c 44 4b 5c 41 33 2c 41 43 4b 31 5c 50 52 45 4c 4f 41 44 20 41 43 4b 31 20 00 6b 00 7c 00 26 00 50 5c 58   ┆R 1  k >   P*  k     PTRACK LDK A2,1 k f   P LDK A3,ACK1 PRELOAD ACK1  k | & P X┆
0x0eba…0f0a              52 53 5c 41 32 2c 43 41 43 4b 5c 49 4e 43 52 45 4d 45 4e 54 20 41 43 4b 20 43 4f 55 4e 54 45 52 00 6b 00 9e 00 12 00 50 5c 52 46 28 4e 5a 29 5c 54 52 44 4c 45 20 00 6b 00 c8 00 1a 00 50 5c 4c 44 4b 5c 41 33 2c 41 43 4b 30 5c 4c 4f 41 44 20   ┆RS A2,CACK INCREMENT ACK COUNTER k     P RF(NZ) TRDLE  k     P LDK A3,ACK0 LOAD ┆
0x0f0a…0f5a              41 43 4b 30 00 6b 00 de 00 0e 00 50 5c 52 46 5c 54 52 44 4c 45 20 00 6b 00 fc 00 06 00 50 2a 20 00 6b 01 0e 00 14 00 50 2a 5c 54 52 41 4e 53 4d 49 54 20 57 41 43 4b 20 00 6b 01 18 00 06 00 50 2a 20 00 6b 01 30 00 20 00 50 54 52 57 41 43 4b   ┆ACK0 k     P RF TRDLE  k     P*  k     P* TRANSMIT WACK  k     P*  k 0   PTRWACK┆
0x0f5a…0faa              5c 4c 44 4b 5c 41 33 2c 57 41 43 4b 5c 4c 4f 41 44 20 57 41 43 4b 00 6b 01 3a 00 0e 00 50 5c 52 46 5c 54 52 44 4c 45 20 00 6b 01 5e 00 06 00 50 2a 20 00 6b 01 70 00 12 00 50 2a 5c 54 52 41 4e 53 4d 49 54 20 52 56 49 00 6b 01 7a 00 06 00 50   ┆ LDK A3,WACK LOAD WACK k :   P RF TRDLE  k ^   P*  k p   P* TRANSMIT RVI k z   P┆
0x0faa…0ffa (12, 0, 400) 2a 20 00 6b 01 90 00 10 00 50 5c 49 46 46 5c 53 54 41 54 3d 30 20 00 6c 00 0a 00 1e 00 50 54 52 52 56 49 5c 4c 44 4b 5c 41 33 2c 52 56 49 5c 4c 4f 41 44 20 52 56 49 20 00 6c 00 1e 00 08 00 50 5c 58 49 46 00 6c 00 40 00 06 00 50 2a 20 00 6c   ┆*  k     P IFF STAT=0  l     PTRRVI LDK A3,RVI LOAD RVI  l     P XIF l @   P*  l┆
0x0ffa…104a              00 4c 00 12 00 50 2a 5c 54 52 41 4e 53 4d 49 54 20 44 4c 45 00 6c 00 56 00 06 00 50 2a 20 00 6c 00 6c 00 1e 00 50 54 52 44 4c 45 5c 4c 44 4b 5c 41 32 2c 44 4c 45 5c 4c 4f 41 44 20 44 4c 45 20 00 6c 00 76 00 22 00 50 5c 53 43 5c 41 32 2c 52   ┆ L   P* TRANSMIT DLE l V   P*  l l   PTRDLE LDK A2,DLE LOAD DLE  l v " P SC A2,R┆
0x104a…109a              45 53 45 4e 44 5c 50 55 54 20 49 4e 53 41 56 45 20 41 52 45 41 20 00 6c 00 98 00 14 00 50 5c 53 43 5c 41 33 2c 52 45 53 45 4e 44 2b 31 5c 00 6c 00 be 00 0e 00 50 5c 52 46 5c 54 52 52 45 50 20 00 6c 00 d6 00 0a 00 50 5c 45 4a 45 43 54 00 6c   ┆ESEND PUT INSAVE AREA  l     P SC A3,RESEND+1  l     P RF TRREP  l     P EJECT l┆
0x109a…10ea              00 e8 00 06 00 50 2a 20 00 6c 00 f6 00 12 00 50 2a 5c 54 52 41 4e 53 4d 49 54 20 4e 41 4b 00 6c 01 00 00 06 00 50 2a 20 00 6c 01 16 00 1e 00 50 54 52 4e 41 4b 5c 4c 44 4b 5c 41 33 2c 4e 41 4b 5c 4c 4f 41 44 20 4e 41 4b 20 00 6c 01 20 00 0e   ┆     P*  l     P* TRANSMIT NAK l     P*  l     PTRNAK LDK A3,NAK LOAD NAK  l    ┆
0x10ea…113a              00 50 5c 52 46 5c 54 52 45 4e 31 30 00 6c 01 42 00 06 00 50 2a 20 00 6c 01 54 00 12 00 50 2a 5c 54 52 41 4e 53 4d 49 54 20 45 4f 54 00 6c 01 5e 00 06 00 50 2a 20 00 6c 01 74 00 1e 00 50 54 52 45 4f 54 5c 4c 44 4b 5c 41 33 2c 45 4f 54 5c 4c   ┆ P RF TREN10 l B   P*  l T   P* TRANSMIT EOT l ^   P*  l t   PTREOT LDK A3,EOT L┆

Reduced view