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

⟦94b1054a8⟧

    Length: 4420 (0x1144)
    Notes: pts_type(SC)
    Names: »TB3270.SC«

Derivation

└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
    └─⟦this⟧ »IBM3270/TB3270.SC« 
└─⟦bdcaa0fa2⟧ Bits:30009700 Philips computer tape "600999"
    └─⟦this⟧ »IBM3270/TB3270.SC« 

	IDENT TB3270 	REL 2.2 79-11-16  870150540220 

******************************************************************
* 
*    CONVERSION TABLES FOR IBM 3270 EMULATION PACKKAGE
* 
******************************************************************* 
* 
* 
*    ENTRIES
* 
	ENTRY	TASCII 
	ENTRY	TEBCDI 
	ENTRY	KEYCNV 
* 

*   CONDITIONAL ASSEMBLIES
* 
KB6272	EQU	1
* 
	EJECT
* 
* 
*	TABLE FOR CONVERSION OF EBCDIC 6 BIT INTERNAL 
* 
*	CODE TO ASCII 
* 
TASCII	EQU	*
	DATA	/2041,/4243,/4445,/4647	/00-/07 
	DATA	/4849,/5B2E,/3C28,/2B21	/08-/0F 
	DATA	/264A,/4B4C,/4D4E,/4F50	/10-/17 
	DATA	/5152,/5D24,/2A29,/3B5E	/18-/1F 
	DATA	/2D2F,/5354,/5556,/5758	/20-/27 
	DATA	/595A,/7C2C,/255F,/3E3F	/28-/2F 
	DATA	/3031,/3233,/3435,/3637	/30-37
	DATA	/3839,/3A23,/4027,/3D22	/38-3F
	EJECT
* 
* 
*	TABLE FOR CODE CONVERSION FROM ASCII TO EBCDIC
* 
*	USED TO GET BINARY VALUES FROM THE EBCDIC CODE
* 
*	INVALID CODES ARE CONVERTED TO ZEROS
* 
* 
TEBCDIC	EQU	* 
	DATA	0,0,0,0	/00-/07 
	DATA	0,0,0,0	/08-/0F 
	DATA	0,0,0,0	/10-/17 
	DATA	0,0,0,0	/18-1F
	DATA	/404F,/7F7B,/5B6C,/507D	/20-/27 
	DATA	/4D5D,/5C4E,/6B60,/4B61	/28-/2F 
	DATA	/F0F1,/F2F3,/F4F5,/F6F7	/30-/38 
	DATA	/F8F9,/7A5E,/4C7E,/6E6F	/39-/3F 
	DATA	/7CC1,/C2C3,/C4C5,/C6C7	/40-/47 
	DATA	/C8C9,/D1D2,/D3D4,/D5D6	/48-/4F 
	DATA	/D7D8,/D9E2,/E3E4,/E5E6	/50-57
	DATA	/E7E8,/E94A,/005A,/5F6D	/58-/5F 
	DATA	/0081,/8282,/8485,/8687	/60-/67 
	DATA	/8889,/9192,/9394,/9596	/68-/6F 
	DATA	/9798,/99A2,/A3A4,/A5A6	/70-/77 
	DATA	/A7A8,/A900,/6A00,/0000	/78-/7F 
	EJECT
* 
*	TRANSLATION OF FUNCTON KEYS & LOWER CASE P - W
* 
KEYCNV	EQU	*
	IFF	KB6272=1 
	CWK	A2,/70 
	RF(L)	KEYC99 
	CWK	A2,/77 
	RF(G)	KEYC10 
	ADK	A2,/50	LOWER CASE P - W
	RF	KEYC99
KEYC10	EQU	*
	CWK	A2,/80 
	RF(L)	KEYC99 
	SUK	A2,/80 
	LC	A2,KBCVTB,A2
	XIF
KEYC99	RTN	A14
* 
	IFF	KB6272=1 
KBCVTB	EQU	*
* 
	DATA	/93A6,/A8AA,/A7AC,/83AB	/80-/87 
	DATA	/A98D,/8E8F,/7F7F,/7F7F	/88-/8F 
	DATA	/8BAE,/A594,/9596,/AF82	/90-/97 
	DATA	/8192,/7F7F,/7F7F,/7F7F	/98-/9F 
	DATA	/9190,/B5B3,/7F7F,/7F7F	/A0-/A7 
	DATA	/7F7F,/7F7F,/7F7F,/7F7F	/A8-/AF 
	DATA	/3031,/3233,/3435,/3637	/B0-/B7 
	DATA	/3839,/B27F,/7F7F,/7F7F	/B8-/BF 
	XIF
	END

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT TB3270  REL 2.2 79-11-16  870150540220 «, t00=0x0000, t01=0x0004}
0x0036…003e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0088              Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0000, t01=0x0042}
0x0088…0092              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008c}
0x0092…00d0              Head {h00=0x003a, h01=0x0050, text=»*    CONVERSION TABLES FOR IBM 3270 EMULATION PACKKAGE«, t00=0x0000, t01=0x0096}
0x00d0…00da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00d4}
0x00da…0126              Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0000, t01=0x00de}
0x0126…0130              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012a}
0x0130…013a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0134}
0x013a…014e              Head {h00=0x0010, h01=0x0050, text=»*    ENTRIES«, t00=0x0000, t01=0x013e}
0x014e…0158              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0152}
0x0158…016e              Head {h00=0x0012, h01=0x0050, text=» ENTRY TASCII «, t00=0x0000, t01=0x015c}
0x016e…0184              Head {h00=0x0012, h01=0x0050, text=» ENTRY TEBCDI «, t00=0x0000, t01=0x0172}
0x0184…019a              Head {h00=0x0012, h01=0x0050, text=» ENTRY KEYCNV «, t00=0x0000, t01=0x0188}
0x019a…01a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000e}
0x01a4…01ac              Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0018}
0x01ac…01ce              Head {h00=0x001e, h01=0x0050, text=»*   CONDITIONAL ASSEMBLIES«, t00=0x0001, t01=0x0020}
0x01ce…01d8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0042}
0x01d8…01ec              Head {h00=0x0010, h01=0x0050, text=»KB6272 EQU 1«, t00=0x0001, t01=0x004c}
0x01ec…01f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0060}
0x01f6…0204              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x006a}
0x0204…020e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0078}
0x020e…0218              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0082}
0x0218…0250              Head {h00=0x0034, h01=0x0050, text=»* TABLE FOR CONVERSION OF EBCDIC 6 BIT INTERNAL «, t00=0x0001, t01=0x008c}
0x0250…025a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c4}
0x025a…0272              Head {h00=0x0014, h01=0x0050, text=»* CODE TO ASCII «, t00=0x0001, t01=0x00ce}
0x0272…027c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e6}
0x027c…0290              Head {h00=0x0010, h01=0x0050, text=»TASCII EQU *«, t00=0x0001, t01=0x00f0}
0x0290…02be              Head {h00=0x002a, h01=0x0050, text=» DATA /2041,/4243,/4445,/4647 /00-/07 «, t00=0x0001, t01=0x0104}
0x02be…02ec              Head {h00=0x002a, h01=0x0050, text=» DATA /4849,/5B2E,/3C28,/2B21 /08-/0F «, t00=0x0001, t01=0x0132}
0x02ec…031a              Head {h00=0x002a, h01=0x0050, text=» DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 «, t00=0x0001, t01=0x0160}
0x031a…0348              Head {h00=0x002a, h01=0x0050, text=» DATA /5152,/5D24,/2A29,/3B5E /18-/1F «, t00=0x0001, t01=0x018e}
0x0348…0376              Head {h00=0x002a, h01=0x0050, text=» DATA /2D2F,/5354,/5556,/5758 /20-/27 «, t00=0x0002, t01=0x002c}
0x0376…03a4              Head {h00=0x002a, h01=0x0050, text=» DATA /595A,/7C2C,/255F,/3E3F /28-/2F «, t00=0x0002, t01=0x005a}
0x03a4…03d0              Head {h00=0x0028, h01=0x0050, text=» DATA /3031,/3233,/3435,/3637 /30-37«, t00=0x0002, t01=0x0088}
0x03d0…03fc              Head {h00=0x0028, h01=0x0050, text=» DATA /3839,/3A23,/4027,/3D22 /38-3F«, t00=0x0002, t01=0x00b4}
0x03fc…040a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00e0}
0x040a…0414              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ee}
0x0414…041e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f8}
0x041e…0456              Head {h00=0x0034, h01=0x0050, text=»* TABLE FOR CODE CONVERSION FROM ASCII TO EBCDIC«, t00=0x0002, t01=0x0102}
0x0456…0460              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x013a}
0x0460…0498              Head {h00=0x0034, h01=0x0050, text=»* USED TO GET BINARY VALUES FROM THE EBCDIC CODE«, t00=0x0002, t01=0x0144}
0x0498…04a2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x017c}
0x04a2…04d0              Head {h00=0x002a, h01=0x0050, text=»* INVALID CODES ARE CONVERTED TO ZEROS«, t00=0x0002, t01=0x0186}
0x04d0…04da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0024}
0x04da…04e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x002e}
0x04e4…04fa              Head {h00=0x0012, h01=0x0050, text=»TEBCDIC EQU * «, t00=0x0003, t01=0x0038}
0x04fa…0518              Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0 /00-/07 «, t00=0x0003, t01=0x004e}
0x0518…0536              Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0 /08-/0F «, t00=0x0003, t01=0x006c}
0x0536…0554              Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0 /10-/17 «, t00=0x0003, t01=0x008a}
0x0554…0570              Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0 /18-1F«, t00=0x0003, t01=0x00a8}
0x0570…059e              Head {h00=0x002a, h01=0x0050, text=» DATA /404F,/7F7B,/5B6C,/507D /20-/27 «, t00=0x0003, t01=0x00c4}
0x059e…05cc              Head {h00=0x002a, h01=0x0050, text=» DATA /4D5D,/5C4E,/6B60,/4B61 /28-/2F «, t00=0x0003, t01=0x00f2}
0x05cc…05fa              Head {h00=0x002a, h01=0x0050, text=» DATA /F0F1,/F2F3,/F4F5,/F6F7 /30-/38 «, t00=0x0003, t01=0x0120}
0x05fa…0628              Head {h00=0x002a, h01=0x0050, text=» DATA /F8F9,/7A5E,/4C7E,/6E6F /39-/3F «, t00=0x0003, t01=0x014e}
0x0628…0656              Head {h00=0x002a, h01=0x0050, text=» DATA /7CC1,/C2C3,/C4C5,/C6C7 /40-/47 «, t00=0x0003, t01=0x017c}
0x0656…0684              Head {h00=0x002a, h01=0x0050, text=» DATA /C8C9,/D1D2,/D3D4,/D5D6 /48-/4F «, t00=0x0004, t01=0x001a}
0x0684…06b0              Head {h00=0x0028, h01=0x0050, text=» DATA /D7D8,/D9E2,/E3E4,/E5E6 /50-57«, t00=0x0004, t01=0x0048}
0x06b0…06de              Head {h00=0x002a, h01=0x0050, text=» DATA /E7E8,/E94A,/005A,/5F6D /58-/5F «, t00=0x0004, t01=0x0074}
0x06de…070c              Head {h00=0x002a, h01=0x0050, text=» DATA /0081,/8282,/8485,/8687 /60-/67 «, t00=0x0004, t01=0x00a2}
0x070c…073a              Head {h00=0x002a, h01=0x0050, text=» DATA /8889,/9192,/9394,/9596 /68-/6F «, t00=0x0004, t01=0x00d0}
0x073a…0768              Head {h00=0x002a, h01=0x0050, text=» DATA /9798,/99A2,/A3A4,/A5A6 /70-/77 «, t00=0x0004, t01=0x00fe}
0x0768…0796              Head {h00=0x002a, h01=0x0050, text=» DATA /A7A8,/A900,/6A00,/0000 /78-/7F «, t00=0x0004, t01=0x012c}
0x0796…07a4              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x015a}
0x07a4…07ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0168}
0x07ae…07e6              Head {h00=0x0034, h01=0x0050, text=»* TRANSLATION OF FUNCTON KEYS & LOWER CASE P - W«, t00=0x0004, t01=0x0172}
0x07e6…07f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x001a}
0x07f0…0804              Head {h00=0x0010, h01=0x0050, text=»KEYCNV EQU *«, t00=0x0005, t01=0x0024}
0x0804…081a              Head {h00=0x0012, h01=0x0050, text=» IFF KB6272=1 «, t00=0x0005, t01=0x0038}
0x081a…082e              Head {h00=0x0010, h01=0x0050, text=» CWK A2,/70 «, t00=0x0005, t01=0x004e}
0x082e…0844              Head {h00=0x0012, h01=0x0050, text=» RF(L) KEYC99 «, t00=0x0005, t01=0x0062}
0x0844…0858              Head {h00=0x0010, h01=0x0050, text=» CWK A2,/77 «, t00=0x0005, t01=0x0078}
0x0858…086e              Head {h00=0x0012, h01=0x0050, text=» RF(G) KEYC10 «, t00=0x0005, t01=0x008c}
0x086e…0892              Head {h00=0x0020, h01=0x0050, text=» ADK A2,/50 LOWER CASE P - W«, t00=0x0005, t01=0x00a2}
0x0892…08a4              Head {h00=0x000e, h01=0x0050, text=» RF KEYC99«, t00=0x0005, t01=0x00c6}
0x08a4…08b8              Head {h00=0x0010, h01=0x0050, text=»KEYC10 EQU *«, t00=0x0005, t01=0x00d8}
0x08b8…08cc              Head {h00=0x0010, h01=0x0050, text=» CWK A2,/80 «, t00=0x0005, t01=0x00ec}
0x08cc…08e2              Head {h00=0x0012, h01=0x0050, text=» RF(L) KEYC99 «, t00=0x0005, t01=0x0100}
0x08e2…08f6              Head {h00=0x0010, h01=0x0050, text=» SUK A2,/80 «, t00=0x0005, t01=0x0116}
0x08f6…090e              Head {h00=0x0014, h01=0x0050, text=» LC A2,KBCVTB,A2«, t00=0x0005, t01=0x012a}
0x090e…091a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0005, t01=0x0142}
0x091a…0930              Head {h00=0x0012, h01=0x0050, text=»KEYC99 RTN A14«, t00=0x0005, t01=0x014e}
0x0930…093a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0164}
0x093a…0950              Head {h00=0x0012, h01=0x0050, text=» IFF KB6272=1 «, t00=0x0005, t01=0x016e}
0x0950…0964              Head {h00=0x0010, h01=0x0050, text=»KBCVTB EQU *«, t00=0x0005, t01=0x0184}
0x0964…096e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0008}
0x096e…099c              Head {h00=0x002a, h01=0x0050, text=» DATA /93A6,/A8AA,/A7AC,/83AB /80-/87 «, t00=0x0006, t01=0x0012}
0x099c…09ca              Head {h00=0x002a, h01=0x0050, text=» DATA /A98D,/8E8F,/7F7F,/7F7F /88-/8F «, t00=0x0006, t01=0x0040}
0x09ca…09f8              Head {h00=0x002a, h01=0x0050, text=» DATA /8BAE,/A594,/9596,/AF82 /90-/97 «, t00=0x0006, t01=0x006e}
0x09f8…0a26              Head {h00=0x002a, h01=0x0050, text=» DATA /8192,/7F7F,/7F7F,/7F7F /98-/9F «, t00=0x0006, t01=0x009c}
0x0a26…0a54              Head {h00=0x002a, h01=0x0050, text=» DATA /9190,/B5B3,/7F7F,/7F7F /A0-/A7 «, t00=0x0006, t01=0x00ca}
0x0a54…0a82              Head {h00=0x002a, h01=0x0050, text=» DATA /7F7F,/7F7F,/7F7F,/7F7F /A8-/AF «, t00=0x0006, t01=0x00f8}
0x0a82…0ab0              Head {h00=0x002a, h01=0x0050, text=» DATA /3031,/3233,/3435,/3637 /B0-/B7 «, t00=0x0006, t01=0x0126}
0x0ab0…0ade              Head {h00=0x002a, h01=0x0050, text=» DATA /3839,/B27F,/7F7F,/7F7F /B8-/BF «, t00=0x0006, t01=0x0154}
0x0ade…0aea              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x0182}
0x0aea…0af6              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0006, t01=0x018e}
0x0af6…0afa              Head {h00=0x4004, h01=0x0000}
0x0afa…0afe              00 07 00 0a                                                                                                                                                                                                                                       ┆    ┆
0x0afe…0b06 (8, 1, 8)    20 04 00 00 00 08 00 04                                                                                                                                                                                                                           ┆        ┆
0x0b06…0b56 (9, 0, 400)  44 57 38 32 31 33 5c 45 51 55 5c 2a 00 48 01 90 00 10 00 50 44 57 38 32 31 34 5c 45 51 55 5c 2a 00 49 00 14 00 10 00 50 49 48 38 32 31 33 5c 45 51 55 5c 2a 00 49 00 28 00 10 00 50 49 48 38 32 31 34 5c 45 51 55 5c 2a 00 49 00 3c 00 12 00 50   ┆DW8213 EQU * H     PDW8214 EQU * I     PIH8213 EQU * I (   PIH8214 EQU * I <   P┆
0x0b56…0ba6              5c 49 46 46 5c 48 49 4c 49 4e 4f 3d 36 20 00 49 00 50 00 10 00 50 44 57 38 32 31 31 5c 45 51 55 5c 2a 00 49 00 66 00 10 00 50 44 57 38 32 31 32 5c 45 51 55 5c 2a 00 49 00 7a 00 10 00 50 49 48 38 32 31 31 5c 45 51 55 5c 2a 00 49 00 8e 00 10   ┆ IFF HILINO=6  I P   PDW8211 EQU * I f   PDW8212 EQU * I z   PIH8211 EQU * I    ┆
0x0ba6…0bf6              00 50 49 48 38 32 31 32 5c 45 51 55 5c 2a 00 49 00 a2 00 12 00 50 5c 49 46 46 5c 48 49 4c 49 4e 4f 3d 35 20 00 49 00 b6 00 10 00 50 44 57 38 32 30 39 5c 45 51 55 5c 2a 00 49 00 cc 00 10 00 50 44 57 38 32 31 30 5c 45 51 55 5c 2a 00 49 00 e0   ┆ PIH8212 EQU * I     P IFF HILINO=5  I     PDW8209 EQU * I     PDW8210 EQU * I  ┆
0x0bf6…0c46              00 10 00 50 49 48 38 32 30 39 5c 45 51 55 5c 2a 00 49 00 f4 00 10 00 50 49 48 38 32 31 30 5c 45 51 55 5c 2a 00 49 01 08 00 12 00 50 5c 49 46 46 5c 48 49 4c 49 4e 4f 3d 34 20 00 49 01 1c 00 10 00 50 44 57 38 32 30 37 5c 45 51 55 5c 2a 00 49   ┆   PIH8209 EQU * I     PIH8210 EQU * I     P IFF HILINO=4  I     PDW8207 EQU * I┆
0x0c46…0c96              01 32 00 10 00 50 44 57 38 32 30 38 5c 45 51 55 5c 2a 00 49 01 46 00 10 00 50 49 48 38 32 30 37 5c 45 51 55 5c 2a 00 49 01 5a 00 10 00 50 49 48 38 32 30 38 5c 45 51 55 5c 2a 00 49 01 6e 00 12 00 50 5c 49 46 46 5c 48 49 4c 49 4e 4f 3d 33 20   ┆ 2   PDW8208 EQU * I F   PIH8207 EQU * I Z   PIH8208 EQU * I n   P IFF HILINO=3 ┆
0x0c96…0ce6 (10, 0, 400) 00 49 01 82 00 10 00 50 44 57 38 32 30 35 5c 45 51 55 5c 2a 00 4a 00 08 00 10 00 50 44 57 38 32 30 36 5c 45 51 55 5c 2a 00 4a 00 1c 00 10 00 50 49 48 38 32 30 35 5c 45 51 55 5c 2a 00 4a 00 30 00 10 00 50 49 48 38 32 30 36 5c 45 51 55 5c 2a   ┆ I     PDW8205 EQU * J     PDW8206 EQU * J     PIH8205 EQU * J 0   PIH8206 EQU *┆
0x0ce6…0d36              00 4a 00 44 00 12 00 50 5c 49 46 46 5c 48 49 4c 49 4e 4f 3d 32 20 00 4a 00 58 00 10 00 50 44 57 38 32 30 33 5c 45 51 55 5c 2a 00 4a 00 6e 00 10 00 50 44 57 38 32 30 34 5c 45 51 55 5c 2a 00 4a 00 82 00 10 00 50 49 48 38 32 30 33 5c 45 51 55   ┆ J D   P IFF HILINO=2  J X   PDW8203 EQU * J n   PDW8204 EQU * J     PIH8203 EQU┆
0x0d36…0d86              5c 2a 00 4a 00 96 00 10 00 50 49 48 38 32 30 34 5c 45 51 55 5c 2a 00 4a 00 aa 00 10 00 50 5c 53 54 5c 50 2c 49 4e 54 53 41 56 00 4a 00 be 00 10 00 50 5c 41 42 4c 5c 49 4c 4c 49 4e 54 20 00 4a 00 d2 00 08 00 50 5c 58 49 46 00 4a 00 e6 00 0a   ┆ * J     PIH8204 EQU * J     P ST P,INTSAV J     P ABL ILLINT  J     P XIF J    ┆
0x0d86…0dd6              00 50 5c 45 4a 45 43 54 00 4a 00 f2 00 06 00 50 2a 20 00 4a 01 00 00 18 00 50 2a 20 20 41 43 54 49 56 41 54 49 4f 4e 20 50 41 52 54 3a 20 00 4a 01 0a 00 16 00 50 2a 20 20 49 4e 50 55 54 20 52 45 51 55 45 53 54 53 20 00 4a 01 26 00 06 00 50   ┆ P EJECT J     P*  J     P*  ACTIVATION PART:  J     P*  INPUT REQUESTS  J &   P┆
0x0dd6…0e26              2a 20 00 4a 01 40 00 06 00 50 2a 20 00 4a 01 4a 00 16 00 50 2a 5c 41 43 54 49 56 41 54 49 4f 4e 20 42 4c 4f 43 4b 00 4a 01 54 00 06 00 50 2a 20 00 4a 01 6e 00 10 00 50 5c 44 41 54 41 5c 42 55 46 4c 45 4e 00 4a 01 78 00 10 00 50 5c 44 41 54   ┆*  J @   P*  J J   P* ACTIVATION BLOCK J T   P*  J n   P DATA BUFLEN J x   P DAT┆
0x0e26…0e76 (11, 0, 400) 41 5c 44 45 56 49 4e 44 00 4a 01 8c 00 24 00 50 44 52 4d 49 41 44 5c 44 41 54 41 5c 4d 49 41 43 54 5c 44 57 54 20 52 45 46 45 52 45 4e 43 45 20 00 4b 00 10 00 06 00 50 2a 20 00 4b 00 38 00 28 00 50 5c 44 41 54 41 5c 41 42 4f 52 54 5c 41 44   ┆A DEVIND J   $ PDRMIAD DATA MIACT DWT REFERENCE  K     P*  K 8 ( P DATA ABORT AD┆
0x0e76…0ec6              44 52 45 53 53 20 4f 46 20 41 42 4f 52 54 20 52 4f 55 54 49 4e 45 00 4b 00 42 00 10 00 50 4d 49 41 43 54 5c 45 51 55 5c 2a 20 00 4b 00 6e 00 0e 00 50 5c 53 55 4b 5c 41 37 2c 32 20 00 4b 00 82 00 1c 00 50 5c 52 46 28 5a 29 5c 52 44 5c 4f 52   ┆DRESS OF ABORT ROUTINE K B   PMIACT EQU *  K n   P SUK A7,2  K     P RF(Z) RD OR┆
0x0ec6…0f16              44 45 52 20 30 31 3a 52 45 41 44 20 00 4b 00 94 00 24 00 50 4d 49 41 31 30 30 5c 41 42 4c 5c 44 49 53 49 4f 45 5c 49 4c 4c 45 47 41 4c 20 4f 52 44 45 52 20 00 4b 00 b4 00 06 00 50 2a 20 00 4b 00 dc 00 14 00 50 2a 20 4f 52 44 45 52 20 30 32   ┆DER 01:READ  K   $ PMIA100 ABL DISIOE ILLEGAL ORDER  K     P*  K     P* ORDER 02┆
0x0f16…0f66              20 52 45 41 44 20 00 4b 00 e6 00 06 00 50 2a 20 00 4b 00 fe 00 0c 00 50 52 44 5c 45 51 55 5c 2a 00 4b 01 08 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 4b 01 18 00 24 00 50 5c 4c 44 5c 41 32 2c 45 43 42 52 4c 2c 41 38 5c 52 45   ┆ READ  K     P*  K     PRD EQU * K     P IFT MMUPAG=1  K   $ P LD A2,ECBRL,A8 RE┆
0x0f66…0fb6              51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 00 4b 01 2e 00 1c 00 50 5c 43 57 4b 5c 41 32 2c 42 55 46 4c 45 4e 5c 53 49 5a 45 20 4f 4b 3f 20 00 4b 01 56 00 22 00 50 5c 41 42 4c 28 47 29 5c 49 4c 3a 4c 45 4e 5c 49 4c 4c 45 47 41 4c 20 4c 45 4e   ┆QUESTED LENGTH K .   P CWK A2,BUFLEN SIZE OK?  K V " P ABL(G) IL:LEN ILLEGAL LEN┆
0x0fb6…1006 (12, 0, 398) 47 54 48 20 00 4b 01 76 00 08 00 50 5c 58 49 46 00 4c 00 0c 00 1e 00 50 5c 4c 44 5c 41 31 2c 44 57 54 53 54 2c 41 36 5c 47 45 54 20 53 54 41 54 55 53 00 4c 00 18 00 0e 00 50 5c 4c 44 52 5c 41 32 2c 41 31 00 4c 00 3a 00 0e 00 50 5c 41 4e 4b   ┆GTH  K v   P XIF L     P LD A1,DWTST,A6 GET STATUS L     P LDR A2,A1 L :   P ANK┆
0x1006…1056              5c 41 31 2c 31 20 00 4c 00 4c 00 1e 00 50 5c 52 46 28 4e 5a 29 5c 52 44 33 30 30 5c 4c 49 4e 45 20 4f 50 45 4e 45 44 20 00 4c 00 5e 00 10 00 50 52 44 31 30 30 5c 45 51 55 5c 2a 20 00 4c 00 80 00 28 00 50 5c 4c 44 4b 4c 5c 41 31 2c 4c 49 4e   ┆ A1,1  L L   P RF(NZ) RD300 LINE OPENED  L ^   PRD100 EQU *  L   ( P LDKL A1,LIN┆
0x1056…10a6              53 54 45 5c 52 43 3a 57 52 4f 4e 47 20 53 54 41 54 55 53 20 4c 49 4e 45 00 4c 00 94 00 28 00 50 52 44 32 30 30 5c 43 46 5c 41 31 35 2c 54 45 4e 44 49 4f 5c 43 4f 4d 50 4c 45 54 45 20 52 45 51 55 45 53 54 00 4c 00 c0 00 10 00 50 52 44 33 30   ┆STE RC:WRONG STATUS LINE L   ( PRD200 CF A15,TENDIO COMPLETE REQUEST L     PRD30┆
0x10a6…10f6              30 5c 45 51 55 5c 2a 20 00 4c 00 ec 00 20 00 50 5c 41 42 4c 5c 54 44 49 53 50 5c 47 4f 20 54 4f 20 44 49 53 50 41 54 43 48 45 52 20 00 4c 01 00 00 0a 00 50 5c 45 4a 45 43 54 00 4c 01 24 00 06 00 50 2a 20 00 4c 01 32 00 18 00 50 2a 20 20 41   ┆0 EQU *  L     P ABL TDISP GO TO DISPATCHER  L     P EJECT L $   P*  L 2   P*  A┆
0x10f6…1144              43 54 49 56 41 54 49 4f 4e 20 50 41 52 54 3a 20 00 4c 01 3c 00 22 00 50 2a 20 20 4f 55 54 50 55 54 20 41 4e 44 20 43 4f 4e 54 52 4f 4c 20 52 45 51 55 45 53 54 53 00 4c 01 58 00 06 00 50 2a 20 00 4c 01 7e 00 06 00 50 2a 20 00 4c 01 88         ┆CTIVATION PART:  L < " P*  OUTPUT AND CONTROL REQUESTS L X   P*  L ~   P*  L  ┆

Reduced view