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

⟦75ef3c956⟧

    Length: 4474 (0x117a)
    Notes: pts_type(SC)
    Names: »DSUMOD.SC«

Derivation

└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
    └─⟦this⟧ »TOSSWORK/DSUMOD.SC« 
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
    └─⟦this⟧ »M:TU10/DSUMOD.SC« 
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
    └─⟦this⟧ »M:TU10/DSUMOD.SC« 

PTS(SC)

	IDENT DSUMOD 	REL 10.0 80-03-14 870105041000 

* 
****************************************************
* 
*   PHILIPS TERMINAL SYSTEM  PTS
* 
*   TOSS DATA MANAGEMENT
* 
* 
* 
****************************************************
* THIS ROUTINE EXECUTES THE DOUBLE SUBSTRACTION INSTRUCTION ON THE ALPHA
*COMPUTER 
*CALLING SEQUENCE 
*                 A1-A2  = ARG1 
*                 A6-A7  = ARG2 
*        CF       A14,DSUMOD
*RETURN:          RESULT IN A1-A2 
* CAUTION  REGISTERS  A3,A4,A6,A7  ARE  CRUSHED.
         ENTRY    DSUMOD
* 
* 
***************************************** 
* 
*	CONDITIONAL ASSEMBLY
* 
***************************************** 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	1
* 
	EJECT
DSUMOD	EQU	*
	LDK	A3,0 
	IFF	CPU852=1 
	DSR	A6 
	XIF
	IFT	CPU852=1 
         C1R      A6,A6 
         C1R      A7,A7 
         ANK.L    A7,X'7FFF'
         ANK.L    A2,/7FFF
         ADK      A7,1
         RF(1)    NOVER1
         ADK      A6,1
         RF(3)    OVER4 
         RF(7)    NOVER 
NOVER1   ADR      A2,A7 
         RF(3)    OVER1 
NOVER    ADR      A1,A6 
NOVER2   RF(1)    END1
         RF(2)    END2
         RF(3)    END3
         ADK      A2,0
         RF(0)    END0
         RF(7)    END1
OVER1    ANK.L    A2,X'7FFF'
         ADK      A1,1
         RF(3)    OVER4 
         RB(7)    NOVER 
OVER4    ADR      A1,A6 
         RF(2)    END3
         ADK      A1,0
         RB(7)    NOVER2
	XIF
	IFF	CPU852=1 
	RF(0)	END0 
	RF(1)	END1 
	RF(2)	END2 
	XIF
END3     ADK       A3,/80 
END2      ADK      A3,/80 
END1      ADK      A3,/80 
END0     SLL      A3,1      ************************************* 
         ANK.L    A3,/0300
         LDK.L    A4,/FCFF
         AN.S     A4,2,A14
         OR.S     A3,2,A14    UPDATE CR IN PSW CALLING PROGRAM
         RTN      A14 
         END

HexDump

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT DSUMOD  REL 10.0 80-03-14 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…003e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0084              Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x004c}
0x0084…008e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0088}
0x008e…00b6              Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM  PTS«, t00=0x0000, t01=0x0092}
0x00b6…00c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ba}
0x00c0…00e0              Head {h00=0x001c, h01=0x0050, text=»*   TOSS DATA MANAGEMENT«, t00=0x0000, t01=0x00c4}
0x00e0…00ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e4}
0x00ea…00f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ee}
0x00f4…00fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f8}
0x00fe…013a              Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0102}
0x013a…018a              Head {h00=0x004c, h01=0x0050, text=»* THIS ROUTINE EXECUTES THE DOUBLE SUBSTRACTION INSTRUCTION ON THE ALPHA«, t00=0x0000, t01=0x013e}
0x018a…019c              Head {h00=0x000e, h01=0x0050, text=»*COMPUTER «, t00=0x0000, t01=0x018e}
0x019c…01b6              Head {h00=0x0016, h01=0x0050, text=»*CALLING SEQUENCE «, t00=0x0001, t01=0x0010}
0x01b6…01de              Head {h00=0x0024, h01=0x0050, text=»*                 A1-A2  = ARG1 «, t00=0x0001, t01=0x002a}
0x01de…0206              Head {h00=0x0024, h01=0x0050, text=»*                 A6-A7  = ARG2 «, t00=0x0001, t01=0x0052}
0x0206…022a              Head {h00=0x0020, h01=0x0050, text=»*        CF       A14,DSUMOD«, t00=0x0001, t01=0x007a}
0x022a…0254              Head {h00=0x0026, h01=0x0050, text=»*RETURN:          RESULT IN A1-A2 «, t00=0x0001, t01=0x009e}
0x0254…028c              Head {h00=0x0034, h01=0x0050, text=»* CAUTION  REGISTERS  A3,A4,A6,A7  ARE  CRUSHED.«, t00=0x0001, t01=0x00c8}
0x028c…02ac              Head {h00=0x001c, h01=0x0050, text=»         ENTRY    DSUMOD«, t00=0x0001, t01=0x0100}
0x02ac…02b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0120}
0x02b6…02c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012a}
0x02c0…02f2              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0001, t01=0x0134}
0x02f2…02fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0166}
0x02fc…031a              Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0001, t01=0x0170}
0x031a…0324              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x018e}
0x0324…0356              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0002, t01=0x0008}
0x0356…0360              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x003a}
0x0360…039a              Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0002, t01=0x0044}
0x039a…03cc              Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0002, t01=0x007e}
0x03cc…03d6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b0}
0x03d6…03ea              Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0002, t01=0x00ba}
0x03ea…03f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ce}
0x03f4…0402              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00d8}
0x0402…0416              Head {h00=0x0010, h01=0x0050, text=»DSUMOD EQU *«, t00=0x0002, t01=0x00e6}
0x0416…0428              Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0002, t01=0x00fa}
0x0428…043e              Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0002, t01=0x010c}
0x043e…044e              Head {h00=0x000c, h01=0x0050, text=» DSR A6 «, t00=0x0002, t01=0x0122}
0x044e…045a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0002, t01=0x0132}
0x045a…0470              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0002, t01=0x013e}
0x0470…0490              Head {h00=0x001c, h01=0x0050, text=»         C1R      A6,A6 «, t00=0x0002, t01=0x0154}
0x0490…04b0              Head {h00=0x001c, h01=0x0050, text=»         C1R      A7,A7 «, t00=0x0002, t01=0x0174}
0x04b0…04d4 (3, 0, 400)  Head {h00=0x0020, h01=0x0050, text=»         ANK.L    A7,X'7FFF'«, t00=0x0003, t01=0x0004}
0x04d4…04f6              Head {h00=0x001e, h01=0x0050, text=»         ANK.L    A2,/7FFF«, t00=0x0003, t01=0x0028}
0x04f6…0514              Head {h00=0x001a, h01=0x0050, text=»         ADK      A7,1«, t00=0x0003, t01=0x004a}
0x0514…0534              Head {h00=0x001c, h01=0x0050, text=»         RF(1)    NOVER1«, t00=0x0003, t01=0x0068}
0x0534…0552              Head {h00=0x001a, h01=0x0050, text=»         ADK      A6,1«, t00=0x0003, t01=0x0088}
0x0552…0572              Head {h00=0x001c, h01=0x0050, text=»         RF(3)    OVER4 «, t00=0x0003, t01=0x00a6}
0x0572…0592              Head {h00=0x001c, h01=0x0050, text=»         RF(7)    NOVER «, t00=0x0003, t01=0x00c6}
0x0592…05b2              Head {h00=0x001c, h01=0x0050, text=»NOVER1   ADR      A2,A7 «, t00=0x0003, t01=0x00e6}
0x05b2…05d2              Head {h00=0x001c, h01=0x0050, text=»         RF(3)    OVER1 «, t00=0x0003, t01=0x0106}
0x05d2…05f2              Head {h00=0x001c, h01=0x0050, text=»NOVER    ADR      A1,A6 «, t00=0x0003, t01=0x0126}
0x05f2…0610              Head {h00=0x001a, h01=0x0050, text=»NOVER2   RF(1)    END1«, t00=0x0003, t01=0x0146}
0x0610…062e              Head {h00=0x001a, h01=0x0050, text=»         RF(2)    END2«, t00=0x0003, t01=0x0164}
0x062e…064c              Head {h00=0x001a, h01=0x0050, text=»         RF(3)    END3«, t00=0x0003, t01=0x0182}
0x064c…066a              Head {h00=0x001a, h01=0x0050, text=»         ADK      A2,0«, t00=0x0004, t01=0x0010}
0x066a…0688              Head {h00=0x001a, h01=0x0050, text=»         RF(0)    END0«, t00=0x0004, t01=0x002e}
0x0688…06a6              Head {h00=0x001a, h01=0x0050, text=»         RF(7)    END1«, t00=0x0004, t01=0x004c}
0x06a6…06ca              Head {h00=0x0020, h01=0x0050, text=»OVER1    ANK.L    A2,X'7FFF'«, t00=0x0004, t01=0x006a}
0x06ca…06e8              Head {h00=0x001a, h01=0x0050, text=»         ADK      A1,1«, t00=0x0004, t01=0x008e}
0x06e8…0708              Head {h00=0x001c, h01=0x0050, text=»         RF(3)    OVER4 «, t00=0x0004, t01=0x00ac}
0x0708…0728              Head {h00=0x001c, h01=0x0050, text=»         RB(7)    NOVER «, t00=0x0004, t01=0x00cc}
0x0728…0748              Head {h00=0x001c, h01=0x0050, text=»OVER4    ADR      A1,A6 «, t00=0x0004, t01=0x00ec}
0x0748…0766              Head {h00=0x001a, h01=0x0050, text=»         RF(2)    END3«, t00=0x0004, t01=0x010c}
0x0766…0784              Head {h00=0x001a, h01=0x0050, text=»         ADK      A1,0«, t00=0x0004, t01=0x012a}
0x0784…07a4              Head {h00=0x001c, h01=0x0050, text=»         RB(7)    NOVER2«, t00=0x0004, t01=0x0148}
0x07a4…07b0              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0004, t01=0x0168}
0x07b0…07c6              Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0004, t01=0x0174}
0x07c6…07da              Head {h00=0x0010, h01=0x0050, text=» RF(0) END0 «, t00=0x0004, t01=0x018a}
0x07da…07ee              Head {h00=0x0010, h01=0x0050, text=» RF(1) END1 «, t00=0x0005, t01=0x000e}
0x07ee…0802              Head {h00=0x0010, h01=0x0050, text=» RF(2) END2 «, t00=0x0005, t01=0x0022}
0x0802…080e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0005, t01=0x0036}
0x080e…0830              Head {h00=0x001e, h01=0x0050, text=»END3     ADK       A3,/80 «, t00=0x0005, t01=0x0042}
0x0830…0852              Head {h00=0x001e, h01=0x0050, text=»END2      ADK      A3,/80 «, t00=0x0005, t01=0x0064}
0x0852…0874              Head {h00=0x001e, h01=0x0050, text=»END1      ADK      A3,/80 «, t00=0x0005, t01=0x0086}
0x0874…08be              Head {h00=0x0046, h01=0x0050, text=»END0     SLL      A3,1      ************************************* «, t00=0x0005, t01=0x00a8}
0x08be…08e0              Head {h00=0x001e, h01=0x0050, text=»         ANK.L    A3,/0300«, t00=0x0005, t01=0x00f2}
0x08e0…0902              Head {h00=0x001e, h01=0x0050, text=»         LDK.L    A4,/FCFF«, t00=0x0005, t01=0x0114}
0x0902…0924              Head {h00=0x001e, h01=0x0050, text=»         AN.S     A4,2,A14«, t00=0x0005, t01=0x0136}
0x0924…096a              Head {h00=0x0042, h01=0x0050, text=»         OR.S     A3,2,A14    UPDATE CR IN PSW CALLING PROGRAM«, t00=0x0005, t01=0x0158}
0x096a…0988              Head {h00=0x001a, h01=0x0050, text=»         RTN      A14 «, t00=0x0006, t01=0x000e}
0x0988…099c              Head {h00=0x0010, h01=0x0050, text=»         END«, t00=0x0006, t01=0x002c}
0x099c…09a0              Head {h00=0x4004, h01=0x0000}
0x09a0…09a4              00 06 00 40                                                                                                                                                                                                                                       ┆   @┆
0x09a4…09ac (7, 1, 8)    20 04 00 00 00 07 00 04                                                                                                                                                                                                                           ┆        ┆
0x09ac…09fc (8, 0, 400)  41 54 41 5c 30 5c 4e 41 4b 2d 41 43 4b 55 4d 55 4c 41 54 4f 52 20 00 17 01 8e 00 24 00 50 5c 44 41 54 41 5c 30 5c 52 45 54 52 2e 20 46 41 55 4c 54 2d 41 43 4b 55 4d 55 4c 41 54 4f 52 20 00 18 00 1e 00 2c 00 50 5c 44 41 54 41 5c 30 5c 55 4e   ┆ATA 0 NAK-ACKUMULATOR      $ P DATA 0 RETR. FAULT-ACKUMULATOR      , P DATA 0 UN┆
0x09fc…0a4c              44 45 46 49 4e 45 44 2d 20 49 4e 54 45 52 52 55 50 54 2d 41 43 4b 55 4d 55 4c 41 54 4f 52 00 18 00 46 00 28 00 50 5c 44 41 54 41 5c 30 5c 50 52 49 4e 54 45 52 20 54 49 4d 45 4f 55 54 20 41 43 4b 55 4d 55 4c 41 54 4f 52 20 00 18 00 76 00 06   ┆DEFINED- INTERRUPT-ACKUMULATOR   F ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR    v  ┆
0x0a4c…0a9c              00 50 2a 20 00 18 00 a2 00 08 00 50 5c 58 49 46 00 18 00 ac 00 06 00 50 2a 20 00 18 00 b8 00 0a 00 50 5c 45 4a 45 43 54 00 18 00 c2 00 06 00 50 2a 20 00 18 00 d0 00 06 00 50 2a 20 00 18 00 da 00 3a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆ P*        P XIF       P*        P EJECT       P*        P*      : P************┆
0x0a9c…0aec              2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 18 00 e4 00 3a 00 50 2a 20 20 20 20 43 20 57 20 54 20 4c 20 54 20 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆*****************************************      : P*    C W T L T 3              ┆
0x0aec…0b3c              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 18 01 22 00 3a 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   ┆                      *    " : P************************************************┆
0x0b3c…0b8c (9, 0, 398)  2a 2a 2a 2a 2a 20 00 18 01 60 00 06 00 50 2a 20 00 19 00 0e 00 34 00 50 2a 20 20 20 20 43 4f 4e 54 52 4f 4c 20 57 4f 52 4b 20 54 41 42 4c 45 20 46 4f 52 20 4c 4f 43 41 4c 20 43 48 41 4e 4e 45 4c 20 4e 4f 2e 20 33 20 00 19 00 18 00 06 00 50   ┆*****    `   P*      4 P*    CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 3        P┆
0x0b8c…0bdc              2a 20 00 19 00 50 00 10 00 50 43 57 54 4c 54 33 5c 45 51 55 5c 2a 00 19 00 5a 00 06 00 50 2a 20 00 19 00 6e 00 12 00 50 5c 49 46 54 5c 4c 4f 43 48 41 4e 3d 33 20 00 19 00 78 00 06 00 50 2a 20 00 19 00 8e 00 06 00 50 2a 20 00 19 00 98 00 06   ┆*    P   PCWTLT3 EQU *   Z   P*    n   P IFT LOCHAN=3    x   P*        P*       ┆
0x0bdc…0c2c              00 50 2a 20 00 19 00 a2 00 20 00 50 44 57 41 33 5c 45 51 55 5c 2f 32 33 5c 44 45 56 49 43 45 20 41 44 44 52 45 53 53 20 00 19 00 ac 00 06 00 50 2a 20 00 19 00 d0 00 1c 00 50 5c 44 41 54 41 5c 30 5c 4c 41 53 54 20 4f 55 54 50 55 54 20 44 57   ┆ P*        PDWA3 EQU /23 DEVICE ADDRESS        P*        P DATA 0 LAST OUTPUT DW┆
0x0c2c…0c7c              54 20 00 19 00 da 00 1c 00 50 5c 44 41 54 41 5c 30 5c 4c 41 53 54 20 4f 55 54 50 55 54 20 57 4f 52 44 00 19 00 fa 00 20 00 50 5c 44 41 54 41 5c 49 4e 54 4c 54 33 5c 49 4e 54 45 52 52 55 50 54 20 54 41 42 4c 45 00 19 01 1a 00 16 00 50 5c 49   ┆T        P DATA 0 LAST OUTPUT WORD       P DATA INTLT3 INTERRUPT TABLE       P I┆
0x0c7c…0cca              4e 52 5c 41 32 2c 30 2c 44 57 41 33 5c 49 4e 52 00 19 01 3e 00 16 00 50 5c 4f 54 52 5c 41 32 2c 30 2c 44 57 41 33 5c 4f 54 52 00 19 01 58 00 1c 00 50 5c 43 49 4f 5c 41 32 2c 31 2c 44 57 41 33 5c 43 49 4f 2d 53 54 41 52 54 00 19 01 72         ┆NR A2,0,DWA3 INR   >   P OTR A2,0,DWA3 OTR   X   P CIO A2,1,DWA3 CIO-START   r┆
0x0cca…0d1a (10, 0, 400) 00 22 00 50 5c 44 41 54 41 5c 30 5c 52 45 54 52 41 4e 53 4d 49 53 53 49 4f 4e 20 43 4f 55 4e 54 45 52 00 1a 00 04 00 12 00 50 5c 44 41 54 41 5c 30 5c 51 55 45 55 45 20 00 1a 00 2a 00 18 00 50 5c 44 41 54 41 5c 30 5c 53 45 43 4f 4e 44 20 51   ┆ " P DATA 0 RETRANSMISSION COUNTER       P DATA 0 QUEUE    *   P DATA 0 SECOND Q┆
0x0d1a…0d6a              55 45 55 45 00 1a 00 40 00 06 00 50 2a 20 00 1a 00 5c 00 12 00 50 5c 49 46 54 5c 41 43 4b 4d 55 4c 3d 31 20 00 1a 00 66 00 06 00 50 2a 20 00 1a 00 7c 00 1c 00 50 5c 44 41 54 41 5c 30 5c 4e 41 4b 2d 41 43 4b 55 4d 55 4c 41 54 4f 52 20 00 1a   ┆UEUE   @   P*        P IFT ACKMUL=1    f   P*    |   P DATA 0 NAK-ACKUMULATOR   ┆
0x0d6a…0dba              00 86 00 24 00 50 5c 44 41 54 41 5c 30 5c 52 45 54 52 2e 20 46 41 55 4c 54 2d 41 43 4b 55 4d 55 4c 41 54 4f 52 20 00 1a 00 a6 00 2c 00 50 5c 44 41 54 41 5c 30 5c 55 4e 44 45 46 49 4e 45 44 2d 20 49 4e 54 45 52 52 55 50 54 2d 41 43 4b 55 4d   ┆   $ P DATA 0 RETR. FAULT-ACKUMULATOR      , P DATA 0 UNDEFINED- INTERRUPT-ACKUM┆
0x0dba…0e0a              55 4c 41 54 4f 52 00 1a 00 ce 00 28 00 50 5c 44 41 54 41 5c 30 5c 50 52 49 4e 54 45 52 20 54 49 4d 45 4f 55 54 20 41 43 4b 55 4d 55 4c 41 54 4f 52 20 00 1a 00 fe 00 06 00 50 2a 20 00 1a 01 2a 00 08 00 50 5c 58 49 46 00 1a 01 34 00 06 00 50   ┆ULATOR     ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR        P*    *   P XIF   4   P┆
0x0e0a…0e5a              2a 20 00 1a 01 40 00 12 00 50 5c 49 46 54 5c 4c 4f 43 48 41 4e 3d 34 20 00 1a 01 4a 00 06 00 50 2a 20 00 1a 01 60 00 06 00 50 2a 20 00 1a 01 6a 00 06 00 50 2a 20 00 1a 01 74 00 20 00 50 44 57 41 33 5c 45 51 55 5c 2f 32 33 5c 44 45 56 49 43   ┆*    @   P IFT LOCHAN=4    J   P*    `   P*    j   P*    t   PDWA3 EQU /23 DEVIC┆
0x0e5a…0eaa (11, 0, 400) 45 20 41 44 44 52 45 53 53 20 00 1a 01 7e 00 06 00 50 2a 20 00 1b 00 12 00 1c 00 50 5c 44 41 54 41 5c 30 5c 4c 41 53 54 20 4f 55 54 50 55 54 20 44 57 54 20 00 1b 00 1c 00 1c 00 50 5c 44 41 54 41 5c 30 5c 4c 41 53 54 20 4f 55 54 50 55 54 20   ┆E ADDRESS    ~   P*        P DATA 0 LAST OUTPUT DWT        P DATA 0 LAST OUTPUT ┆
0x0eaa…0efa              57 4f 52 44 00 1b 00 3c 00 20 00 50 5c 44 41 54 41 5c 49 4e 54 4c 54 33 5c 49 4e 54 45 52 52 55 50 54 20 54 41 42 4c 45 00 1b 00 5c 00 16 00 50 5c 49 4e 52 5c 41 32 2c 30 2c 44 57 41 33 5c 49 4e 52 00 1b 00 80 00 16 00 50 5c 4f 54 52 5c 41   ┆WORD   <   P DATA INTLT3 INTERRUPT TABLE       P INR A2,0,DWA3 INR       P OTR A┆
0x0efa…0f4a              32 2c 30 2c 44 57 41 33 5c 4f 54 52 00 1b 00 9a 00 1c 00 50 5c 43 49 4f 5c 41 32 2c 31 2c 44 57 41 33 5c 43 49 4f 2d 53 54 41 52 54 00 1b 00 b4 00 22 00 50 5c 44 41 54 41 5c 30 5c 52 45 54 52 41 4e 53 4d 49 53 53 49 4f 4e 20 43 4f 55 4e 54   ┆2,0,DWA3 OTR       P CIO A2,1,DWA3 CIO-START     " P DATA 0 RETRANSMISSION COUNT┆
0x0f4a…0f9a              45 52 00 1b 00 d4 00 12 00 50 5c 44 41 54 41 5c 30 5c 51 55 45 55 45 20 00 1b 00 fa 00 18 00 50 5c 44 41 54 41 5c 30 5c 53 45 43 4f 4e 44 20 51 55 45 55 45 00 1b 01 10 00 06 00 50 2a 20 00 1b 01 2c 00 12 00 50 5c 49 46 54 5c 41 43 4b 4d 55   ┆ER       P DATA 0 QUEUE        P DATA 0 SECOND QUEUE       P*    ,   P IFT ACKMU┆
0x0f9a…0fea              4c 3d 31 20 00 1b 01 36 00 06 00 50 2a 20 00 1b 01 4c 00 1c 00 50 5c 44 41 54 41 5c 30 5c 4e 41 4b 2d 41 43 4b 55 4d 55 4c 41 54 4f 52 20 00 1b 01 56 00 24 00 50 5c 44 41 54 41 5c 30 5c 52 45 54 52 2e 20 46 41 55 4c 54 2d 41 43 4b 55 4d 55   ┆L=1    6   P*    L   P DATA 0 NAK-ACKUMULATOR    V $ P DATA 0 RETR. FAULT-ACKUMU┆
0x0fea…103a (12, 0, 400) 4c 41 54 4f 52 20 00 1b 01 76 00 2c 00 50 5c 44 41 54 41 5c 30 5c 55 4e 44 45 46 49 4e 45 44 2d 20 49 4e 54 45 52 52 55 50 54 2d 41 43 4b 55 4d 55 4c 41 54 4f 52 00 1c 00 0e 00 28 00 50 5c 44 41 54 41 5c 30 5c 50 52 49 4e 54 45 52 20 54 49   ┆LATOR    v , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR     ( P DATA 0 PRINTER TI┆
0x103a…108a              4d 45 4f 55 54 20 41 43 4b 55 4d 55 4c 41 54 4f 52 20 00 1c 00 3e 00 06 00 50 2a 20 00 1c 00 6a 00 08 00 50 5c 58 49 46 00 1c 00 74 00 06 00 50 2a 20 00 1c 00 80 00 0a 00 50 5c 45 4a 45 43 54 00 1c 00 8a 00 06 00 50 2a 20 00 1c 00 98 00 06   ┆MEOUT ACKUMULATOR    >   P*    j   P XIF   t   P*        P EJECT       P*       ┆
0x108a…10da              00 50 2a 20 00 1c 00 a2 00 3a 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 20 00 1c 00 ac 00 3a 00 50 2a 20 20 20 20 43   ┆ P*      : P*****************************************************      : P*    C┆
0x10da…112a              20 57 20 54 20 4c 20 54 20 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 1c 00 ea 00 3a 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   ┆ W T L T 4                                    *      : P************************┆
0x112a…117a              2a 2a 2a 2a 2a 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 1c 01 28 00 06 00 50 2a 20 00 1c 01 66 00 34 00 50 2a 20 20 20 20 43 4f 4e 54 52 4f 4c 20 57 4f 52 4b 20 54 41 42 4c 45 20 46 4f 52 20 4c 4f 43 41   ┆*****************************    (   P*    f 4 P*    CONTROL WORK TABLE FOR LOCA┆

Reduced view