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

⟦e7c51f641⟧

    Length: 4422 (0x1146)
    Notes: pts_type(SC)
    Names: »TB3270.SC«

Derivation

└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
    └─⟦this⟧ »IBM3270/TB3270.SC« 
└─⟦781e933ac⟧ Bits:30009686 Philips computer tape "600310"
    └─⟦this⟧ »IBM3270/TB3270.SC« 

PTS(SC)

	IDENT TB3270 	REL 10.0 80-03-14 870150541000 

******************************************************************
* 
*    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

HexDump

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT TB3270  REL 10.0 80-03-14 870150541000 «, 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)  2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 30 01 90 00 06 00 50 2a 20 00 31 00 3e 00 0a 00 50 2a 5c 43 52 4e 4c 00 31   ┆*****************************************************  0     P*  1 >   P* CRNL 1┆
0x0b56…0ba6              00 48 00 06 00 50 2a 20 00 31 00 56 00 32 00 50 2a 5c 43 55 52 53 4f 52 20 49 4e 20 46 49 52 53 54 20 55 4e 50 52 4f 54 45 43 54 45 44 20 50 4f 53 20 4f 4e 20 4e 45 57 20 4c 49 4e 45 20 00 31 00 60 00 06 00 50 2a 20 00 31 00 96 00 3a 00 50   ┆ H   P*  1 V 2 P* CURSOR IN FIRST UNPROTECTED POS ON NEW LINE  1 `   P*  1   : P┆
0x0ba6…0bf6              2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 31 00 a0 00 06 00 50 2a 20 00 31 00 de 00 0e 00 50 43 52 4e 4c 5c 45 51 55   ┆*****************************************************  1     P*  1     PCRNL EQU┆
0x0bf6…0c46              5c 2a 00 31 00 e8 00 26 00 50 5c 4c 44 5c 41 32 2c 50 43 55 52 53 2c 54 43 41 42 41 53 5c 47 45 54 20 43 55 52 53 4f 52 20 50 4f 53 00 31 00 fa 00 1c 00 50 5c 41 44 4b 4c 5c 41 32 2c 4c 4c 49 4e 45 5c 4e 45 58 54 20 4c 49 4e 45 00 31 01 24   ┆ * 1   & P LD A2,PCURS,TCABAS GET CURSOR POS 1     P ADKL A2,LLINE NEXT LINE 1 $┆
0x0c46…0c96              00 12 00 50 5c 43 57 4b 5c 41 32 2c 4c 42 56 44 55 20 00 31 01 44 00 12 00 50 5c 52 46 28 4c 29 5c 43 52 4e 30 35 30 20 00 31 01 5a 00 1a 00 50 5c 4c 44 4b 5c 41 32 2c 30 5c 57 52 41 50 20 41 52 4f 55 4e 44 20 00 31 01 70 00 06 00 50 2a 20   ┆   P CWK A2,LBVDU  1 D   P RF(L) CRN050  1 Z   P LDK A2,0 WRAP AROUND  1 p   P* ┆
0x0c96…0ce6 (10, 0, 400) 00 31 01 8e 00 1a 00 50 2a 5c 43 4f 4d 50 55 54 45 20 4c 45 46 54 4d 4f 53 54 20 50 4f 53 00 32 00 08 00 06 00 50 2a 20 00 32 00 26 00 14 00 50 43 52 4e 30 35 30 5c 4c 44 4b 5c 41 31 2c 30 20 00 32 00 30 00 18 00 50 43 52 4e 31 30 30 5c 53   ┆ 1     P* COMPUTE LEFTMOST POS 2     P*  2 &   PCRN050 LDK A1,0  2 0   PCRN100 S┆
0x0ce6…0d36              55 4b 4c 5c 41 32 2c 4c 4c 49 4e 45 00 32 00 48 00 12 00 50 5c 52 46 28 4e 29 5c 43 52 4e 31 32 30 20 00 32 00 64 00 12 00 50 5c 41 44 4b 4c 5c 41 31 2c 4c 4c 49 4e 45 00 32 00 7a 00 0e 00 50 5c 52 42 5c 43 52 4e 31 30 30 00 32 00 90 00 32   ┆UKL A2,LLINE 2 H   P RF(N) CRN120  2 d   P ADKL A1,LLINE 2 z   P RB CRN100 2   2┆
0x0d36…0d86              00 50 43 52 4e 31 32 30 5c 53 54 5c 41 31 2c 50 43 55 52 53 2c 54 43 41 42 41 53 5c 53 54 4f 52 45 20 43 55 52 53 4f 52 20 41 44 44 52 45 53 53 00 32 00 a2 00 0a 00 50 5c 45 4a 45 43 54 00 32 00 d8 00 04 00 50 00 32 00 e6 00 46 00 50 2a 2a   ┆ PCRN120 ST A1,PCURS,TCABAS STORE CURSOR ADDRESS 2     P EJECT 2     P 2   F P**┆
0x0d86…0dd6              2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 32 00 ee 00 0e 00 50 5c 4c 44 52 5c 41 32 2c   ┆**************************************************************** 2     P LDR A2,┆
0x0dd6…0e26              41 31 00 32 01 38 00 2e 00 50 5c 43 46 5c 41 31 34 2c 41 54 4d 41 53 42 5c 53 45 41 52 43 48 20 41 54 54 52 49 42 55 54 45 20 42 41 43 4b 57 41 52 44 53 20 00 32 01 4a 00 0e 00 50 5c 53 55 4b 5c 41 31 2c 31 20 00 32 01 7c 00 24 00 50 5c 52   ┆A1 2 8 . P CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS  2 J   P SUK A1,1  2 | $ P R┆
0x0e26…0e76 (11, 0, 400) 46 28 5a 29 5c 43 52 4e 31 33 30 5c 4e 4f 20 41 54 54 52 49 42 55 54 45 20 46 4f 55 4e 44 00 32 01 8e 00 10 00 50 5c 41 4e 4b 5c 41 33 2c 2f 31 30 20 00 33 00 26 00 20 00 50 5c 52 46 28 4e 5a 29 5c 54 41 42 5c 50 52 4f 54 45 43 54 45 44 20   ┆F(Z) CRN130 NO ATTRIBUTE FOUND 2     P ANK A3,/10  3 &   P RF(NZ) TAB PROTECTED ┆
0x0e76…0ec6              46 49 45 4c 44 20 00 33 00 3a 00 2e 00 50 5c 43 57 5c 41 32 2c 50 43 55 52 53 2c 54 43 41 42 41 53 5c 43 55 52 53 4f 52 20 4f 4e 20 41 54 54 52 49 42 55 54 45 20 3f 3f 00 33 00 5e 00 18 00 50 5c 52 46 28 4e 45 29 5c 43 52 4e 31 35 30 5c 4e   ┆FIELD  3 : . P CW A2,PCURS,TCABAS CURSOR ON ATTRIBUTE ?? 3 ^   P RF(NE) CRN150 N┆
0x0ec6…0f16              4f 21 21 20 00 33 00 90 00 28 00 50 5c 43 57 4b 5c 41 32 2c 31 39 31 39 5c 4c 41 53 54 20 53 43 52 45 45 4e 20 50 4f 53 49 54 49 4f 4e 3f 3f 20 00 33 00 ac 00 18 00 50 5c 52 46 28 4e 45 29 5c 43 52 4e 31 34 30 5c 4e 4f 21 21 20 00 33 00 d8   ┆O!!  3   ( P CWK A2,1919 LAST SCREEN POSITION??  3     P RF(NE) CRN140 NO!!  3  ┆
0x0f16…0f66              00 16 00 50 43 52 4e 31 33 30 5c 4c 44 4b 4c 5c 41 32 2c 2d 31 20 00 33 00 f4 00 14 00 50 43 52 4e 31 34 30 5c 41 44 4b 5c 41 32 2c 31 20 00 33 01 0e 00 18 00 50 5c 53 54 5c 41 32 2c 50 43 55 52 53 2c 54 43 41 42 41 53 5c 00 33 01 26 00 28   ┆   PCRN130 LDKL A2,-1  3     PCRN140 ADK A2,1  3     P ST A2,PCURS,TCABAS  3 & (┆
0x0f66…0fb6              00 50 43 52 4e 31 35 30 5c 43 46 5c 41 31 34 2c 53 45 54 43 55 52 5c 50 4f 53 49 54 49 4f 4e 20 43 55 52 53 4f 52 00 33 01 42 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 33 01 6e 00 48 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆ PCRN150 CF A14,SETCUR POSITION CURSOR 3 B   P RTN A14 3 n H P******************┆
0x0fb6…1006 (12, 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 20 00 33 01 7e 00 0a 00 50 5c 45 4a 45 43 54 00 34 00 3a 00 06 00 50 2a 20 00 34 00 48 00 38   ┆*************************************************  3 ~   P EJECT 4 :   P*  4 H 8┆
0x1006…1056              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 00 34 00 52 00 06 00 50 2a 20 00 34 00 8e 00 0a 00 50 2a 5c 54 41 42 20 00 34   ┆ P**************************************************** 4 R   P*  4     P* TAB  4┆
0x1056…10a6              00 98 00 06 00 50 2a 20 00 34 00 a6 00 32 00 50 2a 5c 4d 4f 56 45 20 54 48 45 20 43 55 52 53 4f 52 20 54 4f 20 54 48 45 20 46 49 52 53 54 20 43 48 41 52 2e 20 4c 4f 43 41 54 49 4f 4e 20 00 34 00 b0 00 28 00 50 2a 5c 4f 46 20 54 48 45 20 4e   ┆     P*  4   2 P* MOVE THE CURSOR TO THE FIRST CHAR. LOCATION  4   ( P* OF THE N┆
0x10a6…10f6              45 58 54 20 55 4e 50 52 4f 54 45 43 54 45 44 20 44 41 54 41 20 46 49 45 4c 44 00 34 00 e6 00 06 00 50 2a 20 00 34 01 12 00 38 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   ┆EXT UNPROTECTED DATA FIELD 4     P*  4   8 P************************************┆
0x10f6…1146              2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 34 01 1c 00 06 00 50 2a 20 00 34 01 58 00 32 00 50 2a 5c 41 31 3d 45 4e 44 20 4f 46 20 42 55 46 46 45 52 20 50 41 52 45 4d 2e 20 20 20 5c 30 3d 45 4f 42 20 4e 4f 54 20 52 45 41 43 48 45 44   ┆**************** 4     P*  4 X 2 P* A1=END OF BUFFER PAREM.    0=EOB NOT REACHED┆

Reduced view