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

⟦8db78edc7⟧ 

    Length: 4752 (0x1290)
    Notes: pts_type(SC)
    Names: »EBCDIC.SC«

Derivation

└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
    └─⟦this⟧ »M:TU10/EBCDIC.SC« 
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
    └─⟦this⟧ »M:TU10/EBCDIC.SC«

PTS(SC)

	IDENT EBCDIC 	REL 10.0 80-03-14 870105041000 

* 
************************************************
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   EBCDIC = EBCDIC/ASCII TABLE 
* 
* 
* 
* 
* 
* 
************************************************* 
* 
	ENTRY	TASCII 
	ENTRY	TEBCDIC
* 
* 
*  CONDITIONAL ASSEMBLY  (SEE ALSO DRDC15)
* 
X:A	EQU	1	CODE , 0=ASCII , 1=EBCDIC   (DRDC15)
CODE	EQU	X:A
X:B	EQU	1	READ COMMAND HANDLING IF = 1  (DRDC15)
RCOM	EQU	X:B
	EJECT
* 
* 
*	TABLE FOR CONVERSION OF EBCDIC CODE TO ASCII
* 
* 
TASCII	EQU	*
	IFT	CODE=1 
	DATA	/0001,/0203,/0009,/0000	00-07 
	DATA	/0000,/0000,/0C00,/0000	08-0F 
	DATA	/1011,/1213,/000A,/0000	10-17 
	DATA	/0019,/0000,/1C1D,/1E1F	18-1F 
	DATA	/0000,/0000,/0000,/171B	20-27 
	DATA	/0000,/0000,/0005,/0000	28-2F 
	DATA	/0000,/1600,/0000,/0004	30-37 
	DATA	/0000,/0000,/1415,/001A	38-3F 
	DATA	/2041,/4243,/4445,/4647	40-47 
	DATA	/4849,/5B2E,/3C28,/2B21	48-4F 
	DATA	/264A,/4B4C,/4D4E,/4F50	50-57 
	DATA	/5152,/5D24,/2A29,/3B5E	58-5F 
	DATA	/2D2F,/5354,/5556,/5758	60-67 
	DATA	/595A,/7C2C,/255F,/3E3F	68-6F 
	DATA	/1831,/3233,/3435,/3637	70-77 
	DATA	/3839,/3A23,/4027,/3D22	78-7F 
	DATA	/2061,/6263,/6465,/6667	80-87 
	DATA	/6869,/5B2E,/3C28,/2B21	88-8F 
	DATA	/266A,/6B6C,/6D6E,/6F70	90-97 
	DATA	/7172,/5D24,/2A29,/3B5E	98-9F 
	DATA	/2D2F,/7374,/7576,/7778	A0-A7 
	DATA	/797A,/7C2C,/255F,/3E3F	A8-AF 
	DATA	/3031,/3233,/3435,/3637	B0-B7 
	DATA	/3839,/3A23,/4027,/3D22	B8-BF 
	DATA	/2041,/4243,/4445,/4647	C0-C7 
	DATA	/4849,/5B2E,/3C28,/2B21	C8-CF 
	DATA	/264A,/4B4C,/4D4E,/4F50	D0-D7 
	DATA	/5152,/5D24,/2A29,/3B5E	D8-DF 
	DATA	/2D2F,/5354,/5556,/5758	E0-E7 
	DATA	/595A,/7C2C,/255F,/3E3F	E8-EF 
	DATA	/3031,/3233,/3435,/3637	F0-F7 
	DATA	/3839,/3A23,/4027,/3DFF	F8-FF 
	XIF
	EJECT
* 
* 
*	TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC
* 
* 
TEBCDIC	EQU	* 
	IFF	CODE+RCOM=0
	DATA	/0001,/0203,/372D,/0000	00-07 
	DATA	/0005,/1500,/0C00,/0000	08-0F 
	DATA	/1011,/1213,/3C3D,/3226	10-17 
	DATA	/7019,/3F27,/1C1D,/1E1F	18-1F 
	DATA	/404F,/7F7B,/5B6C,/507D	20-27 
	DATA	/4D5D,/5C4E,/6B60,/4B61	28-2F 
	DATA	/F0F1,/F2F3,/F4F5,/F6F7	30-37 
	DATA	/F8F9,/7A5E,/4C7E,/6E6F	38-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,/8283,/8485,/8687	60-67 
	DATA	/8889,/9192,/9394,/9596	68-6F 
	DATA	/9798,/99A2,/A3A4,/A5A6	70-77 
	DATA	/A7A8,/A91C,/6A00,/0000	78-7F 
	DATA	/544F,/5353	SPEC. FLEX CHAR. 'TOSS'  80-84
	XIF
	END

HexDump

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT EBCDIC  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…0080              Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0000, t01=0x004c}
0x0080…008a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0084}
0x008a…00b2              Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x008e}
0x00b2…00bc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b6}
0x00bc…00e4              Head {h00=0x0024, h01=0x0050, text=»*   EBCDIC = EBCDIC/ASCII TABLE «, t00=0x0000, t01=0x00c0}
0x00e4…00ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e8}
0x00ee…00f8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f2}
0x00f8…0102              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fc}
0x0102…010c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0106}
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…015a              Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0000, t01=0x0124}
0x015a…0164              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015e}
0x0164…017a              Head {h00=0x0012, h01=0x0050, text=» ENTRY TASCII «, t00=0x0000, t01=0x0168}
0x017a…0190              Head {h00=0x0012, h01=0x0050, text=» ENTRY TEBCDIC«, t00=0x0000, t01=0x017e}
0x0190…019a (1, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0004}
0x019a…01a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000e}
0x01a4…01d6              Head {h00=0x002e, h01=0x0050, text=»*  CONDITIONAL ASSEMBLY  (SEE ALSO DRDC15)«, t00=0x0001, t01=0x0018}
0x01d6…01e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x004a}
0x01e0…0216              Head {h00=0x0032, h01=0x0050, text=»X:A EQU 1 CODE , 0=ASCII , 1=EBCDIC   (DRDC15)«, t00=0x0001, t01=0x0054}
0x0216…022a              Head {h00=0x0010, h01=0x0050, text=»CODE EQU X:A«, t00=0x0001, t01=0x008a}
0x022a…0262              Head {h00=0x0034, h01=0x0050, text=»X:B EQU 1 READ COMMAND HANDLING IF = 1  (DRDC15)«, t00=0x0001, t01=0x009e}
0x0262…0276              Head {h00=0x0010, h01=0x0050, text=»RCOM EQU X:B«, t00=0x0001, t01=0x00d6}
0x0276…0284              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00ea}
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…02ce              Head {h00=0x0032, h01=0x0050, text=»* TABLE FOR CONVERSION OF EBCDIC CODE TO ASCII«, t00=0x0001, t01=0x010c}
0x02ce…02d8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0142}
0x02d8…02e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014c}
0x02e2…02f6              Head {h00=0x0010, h01=0x0050, text=»TASCII EQU *«, t00=0x0001, t01=0x0156}
0x02f6…030a              Head {h00=0x0010, h01=0x0050, text=» IFT CODE=1 «, t00=0x0001, t01=0x016a}
0x030a…0336              Head {h00=0x0028, h01=0x0050, text=» DATA /0001,/0203,/0009,/0000 00-07 «, t00=0x0001, t01=0x017e}
0x0336…0362              Head {h00=0x0028, h01=0x0050, text=» DATA /0000,/0000,/0C00,/0000 08-0F «, t00=0x0002, t01=0x001a}
0x0362…038e              Head {h00=0x0028, h01=0x0050, text=» DATA /1011,/1213,/000A,/0000 10-17 «, t00=0x0002, t01=0x0046}
0x038e…03ba              Head {h00=0x0028, h01=0x0050, text=» DATA /0019,/0000,/1C1D,/1E1F 18-1F «, t00=0x0002, t01=0x0072}
0x03ba…03e6              Head {h00=0x0028, h01=0x0050, text=» DATA /0000,/0000,/0000,/171B 20-27 «, t00=0x0002, t01=0x009e}
0x03e6…0412              Head {h00=0x0028, h01=0x0050, text=» DATA /0000,/0000,/0005,/0000 28-2F «, t00=0x0002, t01=0x00ca}
0x0412…043e              Head {h00=0x0028, h01=0x0050, text=» DATA /0000,/1600,/0000,/0004 30-37 «, t00=0x0002, t01=0x00f6}
0x043e…046a              Head {h00=0x0028, h01=0x0050, text=» DATA /0000,/0000,/1415,/001A 38-3F «, t00=0x0002, t01=0x0122}
0x046a…0496              Head {h00=0x0028, h01=0x0050, text=» DATA /2041,/4243,/4445,/4647 40-47 «, t00=0x0002, t01=0x014e}
0x0496…04c2              Head {h00=0x0028, h01=0x0050, text=» DATA /4849,/5B2E,/3C28,/2B21 48-4F «, t00=0x0002, t01=0x017a}
0x04c2…04ee              Head {h00=0x0028, h01=0x0050, text=» DATA /264A,/4B4C,/4D4E,/4F50 50-57 «, t00=0x0003, t01=0x0016}
0x04ee…051a              Head {h00=0x0028, h01=0x0050, text=» DATA /5152,/5D24,/2A29,/3B5E 58-5F «, t00=0x0003, t01=0x0042}
0x051a…0546              Head {h00=0x0028, h01=0x0050, text=» DATA /2D2F,/5354,/5556,/5758 60-67 «, t00=0x0003, t01=0x006e}
0x0546…0572              Head {h00=0x0028, h01=0x0050, text=» DATA /595A,/7C2C,/255F,/3E3F 68-6F «, t00=0x0003, t01=0x009a}
0x0572…059e              Head {h00=0x0028, h01=0x0050, text=» DATA /1831,/3233,/3435,/3637 70-77 «, t00=0x0003, t01=0x00c6}
0x059e…05ca              Head {h00=0x0028, h01=0x0050, text=» DATA /3839,/3A23,/4027,/3D22 78-7F «, t00=0x0003, t01=0x00f2}
0x05ca…05f6              Head {h00=0x0028, h01=0x0050, text=» DATA /2061,/6263,/6465,/6667 80-87 «, t00=0x0003, t01=0x011e}
0x05f6…0622              Head {h00=0x0028, h01=0x0050, text=» DATA /6869,/5B2E,/3C28,/2B21 88-8F «, t00=0x0003, t01=0x014a}
0x0622…064e              Head {h00=0x0028, h01=0x0050, text=» DATA /266A,/6B6C,/6D6E,/6F70 90-97 «, t00=0x0003, t01=0x0176}
0x064e…067a              Head {h00=0x0028, h01=0x0050, text=» DATA /7172,/5D24,/2A29,/3B5E 98-9F «, t00=0x0004, t01=0x0012}
0x067a…06a6              Head {h00=0x0028, h01=0x0050, text=» DATA /2D2F,/7374,/7576,/7778 A0-A7 «, t00=0x0004, t01=0x003e}
0x06a6…06d2              Head {h00=0x0028, h01=0x0050, text=» DATA /797A,/7C2C,/255F,/3E3F A8-AF «, t00=0x0004, t01=0x006a}
0x06d2…06fe              Head {h00=0x0028, h01=0x0050, text=» DATA /3031,/3233,/3435,/3637 B0-B7 «, t00=0x0004, t01=0x0096}
0x06fe…072a              Head {h00=0x0028, h01=0x0050, text=» DATA /3839,/3A23,/4027,/3D22 B8-BF «, t00=0x0004, t01=0x00c2}
0x072a…0756              Head {h00=0x0028, h01=0x0050, text=» DATA /2041,/4243,/4445,/4647 C0-C7 «, t00=0x0004, t01=0x00ee}
0x0756…0782              Head {h00=0x0028, h01=0x0050, text=» DATA /4849,/5B2E,/3C28,/2B21 C8-CF «, t00=0x0004, t01=0x011a}
0x0782…07ae              Head {h00=0x0028, h01=0x0050, text=» DATA /264A,/4B4C,/4D4E,/4F50 D0-D7 «, t00=0x0004, t01=0x0146}
0x07ae…07da              Head {h00=0x0028, h01=0x0050, text=» DATA /5152,/5D24,/2A29,/3B5E D8-DF «, t00=0x0004, t01=0x0172}
0x07da…0806              Head {h00=0x0028, h01=0x0050, text=» DATA /2D2F,/5354,/5556,/5758 E0-E7 «, t00=0x0005, t01=0x000e}
0x0806…0832              Head {h00=0x0028, h01=0x0050, text=» DATA /595A,/7C2C,/255F,/3E3F E8-EF «, t00=0x0005, t01=0x003a}
0x0832…085e              Head {h00=0x0028, h01=0x0050, text=» DATA /3031,/3233,/3435,/3637 F0-F7 «, t00=0x0005, t01=0x0066}
0x085e…088a              Head {h00=0x0028, h01=0x0050, text=» DATA /3839,/3A23,/4027,/3DFF F8-FF «, t00=0x0005, t01=0x0092}
0x088a…0896              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0005, t01=0x00be}
0x0896…08a4              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x00ca}
0x08a4…08ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d8}
0x08ae…08b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e2}
0x08b8…08ee              Head {h00=0x0032, h01=0x0050, text=»* TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC«, t00=0x0005, t01=0x00ec}
0x08ee…08f8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0122}
0x08f8…0902              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x012c}
0x0902…0918              Head {h00=0x0012, h01=0x0050, text=»TEBCDIC EQU * «, t00=0x0005, t01=0x0136}
0x0918…0930              Head {h00=0x0014, h01=0x0050, text=» IFF CODE+RCOM=0«, t00=0x0005, t01=0x014c}
0x0930…095c              Head {h00=0x0028, h01=0x0050, text=» DATA /0001,/0203,/372D,/0000 00-07 «, t00=0x0005, t01=0x0164}
0x095c…0988              Head {h00=0x0028, h01=0x0050, text=» DATA /0005,/1500,/0C00,/0000 08-0F «, t00=0x0005, t01=0x0190}
0x0988…09b4              Head {h00=0x0028, h01=0x0050, text=» DATA /1011,/1213,/3C3D,/3226 10-17 «, t00=0x0006, t01=0x002c}
0x09b4…09e0              Head {h00=0x0028, h01=0x0050, text=» DATA /7019,/3F27,/1C1D,/1E1F 18-1F «, t00=0x0006, t01=0x0058}
0x09e0…0a0c              Head {h00=0x0028, h01=0x0050, text=» DATA /404F,/7F7B,/5B6C,/507D 20-27 «, t00=0x0006, t01=0x0084}
0x0a0c…0a38              Head {h00=0x0028, h01=0x0050, text=» DATA /4D5D,/5C4E,/6B60,/4B61 28-2F «, t00=0x0006, t01=0x00b0}
0x0a38…0a64              Head {h00=0x0028, h01=0x0050, text=» DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 «, t00=0x0006, t01=0x00dc}
0x0a64…0a90              Head {h00=0x0028, h01=0x0050, text=» DATA /F8F9,/7A5E,/4C7E,/6E6F 38-3F «, t00=0x0006, t01=0x0108}
0x0a90…0abc              Head {h00=0x0028, h01=0x0050, text=» DATA /7CC1,/C2C3,/C4C5,/C6C7 40-47 «, t00=0x0006, t01=0x0134}
0x0abc…0ae8              Head {h00=0x0028, h01=0x0050, text=» DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F «, t00=0x0006, t01=0x0160}
0x0ae8…0b14              Head {h00=0x0028, h01=0x0050, text=» DATA /D7D8,/D9E2,/E3E4,/E5E6 50-57 «, t00=0x0006, t01=0x018c}
0x0b14…0b40              Head {h00=0x0028, h01=0x0050, text=» DATA /E7E8,/E94A,/005A,/5F6D 58-5F «, t00=0x0007, t01=0x0028}
0x0b40…0b6c              Head {h00=0x0028, h01=0x0050, text=» DATA /0081,/8283,/8485,/8687 60-67 «, t00=0x0007, t01=0x0054}
0x0b6c…0b98              Head {h00=0x0028, h01=0x0050, text=» DATA /8889,/9192,/9394,/9596 68-6F «, t00=0x0007, t01=0x0080}
0x0b98…0bc4              Head {h00=0x0028, h01=0x0050, text=» DATA /9798,/99A2,/A3A4,/A5A6 70-77 «, t00=0x0007, t01=0x00ac}
0x0bc4…0bf0              Head {h00=0x0028, h01=0x0050, text=» DATA /A7A8,/A91C,/6A00,/0000 78-7F «, t00=0x0007, t01=0x00d8}
0x0bf0…0c28              Head {h00=0x0034, h01=0x0050, text=» DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS'  80-84«, t00=0x0007, t01=0x0104}
0x0c28…0c34              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x013c}
0x0c34…0c40              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0007, t01=0x0148}
0x0c40…0c44              Head {h00=0x4004, h01=0x0000}
0x0c44…0c48              00 07 01 54                                                                                                                                                                                                                                       ┆   T┆
0x0c48…0c50 (8, 1, 8)    20 04 00 00 00 08 00 04                                                                                                                                                                                                                           ┆        ┆
0x0c50…0ca0 (9, 0, 400)  00 06 00 50 2a 20 00 21 00 04 00 26 00 50 5c 4c 44 4b 5c 41 34 2c 31 5c 57 52 49 54 45 20 44 45 4c 45 54 45 44 20 44 41 54 41 20 4f 52 44 45 52 00 21 00 0e 00 26 00 50 46 44 3a 30 31 33 5c 45 51 55 5c 2a 5c 50 48 59 53 49 43 41 4c 20 57 52   ┆   P*  !   & P LDK A4,1 WRITE DELETED DATA ORDER !   & PFD:013 EQU * PHYSICAL WR┆
0x0ca0…0cf0              49 54 45 20 4f 52 44 45 52 20 00 21 00 38 00 0e 00 50 5c 41 44 4b 5c 41 34 2c 34 20 00 21 00 62 00 22 00 50 46 44 3a 30 31 35 5c 45 51 55 5c 2a 5c 42 41 53 49 43 20 57 52 49 54 45 20 4f 52 44 45 52 00 21 00 74 00 0e 00 50 5c 41 44 4b 5c 41   ┆ITE ORDER  ! 8   P ADK A4,4  ! b " PFD:015 EQU * BASIC WRITE ORDER ! t   P ADK A┆
0x0cf0…0d40              34 2c 31 20 00 21 00 9a 00 22 00 50 5c 43 46 5c 41 35 2c 42 49 4f 5c 50 52 45 50 41 52 41 54 49 4f 4e 20 46 4f 52 20 43 49 4f 00 21 00 ac 00 06 00 50 2a 20 00 21 00 d2 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 21 00 dc 00 10   ┆4,1  !   " P CF A5,BIO PREPARATION FOR CIO !     P*  !     P IFT MMUPAG=1  !    ┆
0x0d40…0d90              00 50 5c 49 46 54 5c 43 48 41 4e 3d 30 20 00 21 00 f2 00 14 00 50 5c 49 46 54 5c 54 4f 53 53 2b 49 42 4d 3d 32 20 00 21 01 06 00 14 00 50 5c 4c 44 5c 41 31 2c 44 57 54 46 49 42 2c 41 36 00 21 01 1e 00 1a 00 50 5c 52 46 28 5a 29 5c 46 44 3a   ┆ P IFT CHAN=0  !     P IFT TOSS+IBM=2  !     P LD A1,DWTFIB,A6 !     P RF(Z) FD:┆
0x0d90…0de0              30 31 38 5c 4e 4f 54 20 49 42 4d 20 00 21 01 36 00 08 00 50 5c 58 49 46 00 21 01 54 00 06 00 50 2a 20 00 21 01 60 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 21 01 6a 00 14 00 50 5c 49 46 46 5c 43 48 41 4e 2b 49 42 4d 3d 30 20   ┆018 NOT IBM  ! 6   P XIF ! T   P*  ! `   P IFT MMUPAG=1  ! j   P IFF CHAN+IBM=0 ┆
0x0de0…0e30 (10, 0, 400) 00 21 01 80 00 34 00 50 5c 4c 44 5c 41 31 2c 44 57 54 3a 4c 41 2c 41 36 5c 47 45 54 20 46 4c 41 47 2f 4c 4f 47 49 43 41 4c 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 00 22 00 08 00 28 00 50 5c 52 46 28 5a 29 5c 46 44 3a 30 31 39 5c 42 55   ┆ !   4 P LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS "   ( P RF(Z) FD:019 BU┆
0x0e30…0e80              46 46 45 52 20 49 4e 20 53 59 53 54 45 4d 20 41 52 45 41 20 00 22 00 40 00 20 00 50 5c 4c 44 52 5c 41 37 2c 41 33 5c 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 20 00 22 00 6c 00 16 00 50 5c 4c 44 52 5c 41 38 2c 41 32 5c 53 41 56 45 20   ┆FFER IN SYSTEM AREA  " @   P LDR A7,A3 REQUESTED LENGTH  " l   P LDR A8,A2 SAVE ┆
0x0e80…0ed0              41 32 00 22 00 90 00 26 00 50 5c 4c 44 4b 4c 5c 41 34 2c 42 55 46 5c 44 52 49 56 45 52 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 00 22 00 aa 00 0e 00 50 5c 4c 44 52 5c 41 32 2c 41 34 00 22 00 d4 00 26 00 50 5c 54 53 5c 2d 33 30 2c 41 31   ┆A2 "   & P LDKL A4,BUF DRIVER BUFFER ADDRESS "     P LDR A2,A4 "   & P TS -30,A1┆
0x0ed0…0f20              35 5c 53 41 56 45 20 52 55 4e 4e 49 4e 47 20 54 41 53 4b 20 4d 4d 55 20 00 22 00 e6 00 28 00 50 5c 54 4c 5c 44 57 54 3a 50 41 2c 41 36 5c 4c 4f 41 44 20 50 53 45 55 44 4f 20 4d 4d 55 20 54 41 42 4c 45 20 00 22 01 10 00 32 00 50 5c 4d 56 55   ┆5 SAVE RUNNING TASK MMU  "   ( P TL DWT:PA,A6 LOAD PSEUDO MMU TABLE  "   2 P MVU┆
0x0f20…0f70              53 5c 41 37 5c 4d 4f 56 45 20 42 55 46 46 45 52 20 46 52 4f 4d 20 55 53 45 52 20 54 4f 20 53 59 53 54 45 4d 20 41 52 45 41 20 00 22 01 3c 00 26 00 50 5c 54 4c 5c 2d 33 30 2c 41 31 35 5c 52 45 53 54 4f 52 45 20 4d 4d 55 20 46 52 4f 4d 20 53   ┆S A7 MOVE BUFFER FROM USER TO SYSTEM AREA  " < & P TL -30,A15 RESTORE MMU FROM S┆
0x0f70…0fc0 (11, 0, 400) 54 41 43 4b 00 22 01 72 00 1a 00 50 5c 4c 44 52 5c 41 32 2c 41 38 5c 52 45 53 54 4f 52 45 20 41 32 20 00 23 00 0c 00 30 00 50 5c 43 4d 5c 42 55 46 46 4c 47 2c 41 36 5c 49 4e 44 49 43 41 54 45 20 42 55 46 46 45 52 20 49 4e 20 53 59 53 54 45   ┆TACK " r   P LDR A2,A8 RESTORE A2  #   0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTE┆
0x0fc0…1010              4d 20 41 52 45 41 00 23 00 2a 00 10 00 50 46 44 3a 30 31 39 5c 45 51 55 5c 2a 00 23 00 5e 00 08 00 50 5c 58 49 46 00 23 00 72 00 06 00 50 2a 20 00 23 00 7e 00 14 00 50 5c 49 46 54 5c 54 4f 53 53 2b 49 42 4d 3d 32 20 00 23 00 88 00 14 00 50   ┆M AREA # *   PFD:019 EQU * # ^   P XIF # r   P*  # ~   P IFT TOSS+IBM=2  #     P┆
0x1010…1060              5c 4c 44 5c 41 31 2c 44 57 54 46 49 42 2c 41 36 00 23 00 a0 00 1a 00 50 5c 52 46 28 5a 29 5c 46 44 3a 30 31 38 5c 4e 4f 54 20 49 42 4d 20 00 23 00 b8 00 08 00 50 5c 58 49 46 00 23 00 d6 00 06 00 50 2a 20 00 23 00 e2 00 0e 00 50 5c 49 46 54   ┆ LD A1,DWTFIB,A6 #     P RF(Z) FD:018 NOT IBM  #     P XIF #     P*  #     P IFT┆
0x1060…10b0              5c 49 42 4d 3d 31 00 23 00 ec 00 2c 00 50 5c 4c 44 52 5c 41 37 2c 41 33 5c 4e 4f 20 4f 46 20 43 48 41 52 2e 20 54 4f 20 42 45 20 54 52 41 4e 53 46 4f 52 4d 45 44 00 23 00 fe 00 12 00 50 5c 43 46 5c 41 35 2c 45 42 43 44 49 43 20 00 23 01 2e   ┆ IBM=1 #   , P LDR A7,A3 NO OF CHAR. TO BE TRANSFORMED #     P CF A5,EBCDIC  # .┆
0x10b0…1100              00 10 00 50 46 44 3a 30 31 38 5c 45 51 55 5c 2a 00 23 01 44 00 08 00 50 5c 58 49 46 00 23 01 58 00 06 00 50 2a 20 00 23 01 64 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 46 44 30 31 20 00 23 01 6e 00 06 00 50 2a 20 00 23 01 86 00 06 00 50   ┆   PFD:018 EQU * # D   P XIF # X   P*  # d   P EJECT   DRFD01  # n   P*  #     P┆
0x1100…1150 (12, 0, 400) 2a 20 00 23 01 90 00 22 00 50 5c 43 46 5c 41 35 2c 46 44 3a 57 52 49 54 45 5c 50 45 52 46 4f 52 4d 45 20 57 52 49 54 45 00 24 00 0a 00 2a 00 50 5c 41 4e 4b 4c 5c 41 33 2c 2f 32 30 30 5c 43 48 45 43 4b 20 49 46 20 57 52 49 54 45 20 50 52 4f   ┆*  #   " P CF A5,FD:WRITE PERFORME WRITE $   * P ANKL A3,/200 CHECK IF WRITE PRO┆
0x1150…11a0              54 45 43 54 45 44 00 24 00 30 00 12 00 50 5c 52 46 28 5a 29 5c 46 44 3a 30 32 30 20 00 24 00 5e 00 1e 00 50 5c 4c 44 4b 5c 41 33 2c 2f 34 30 5c 49 4e 44 49 43 41 54 45 20 45 52 52 4f 52 00 24 00 74 00 2c 00 50 5c 4f 52 52 53 5c 41 33 2c 41   ┆TECTED $ 0   P RF(Z) FD:020  $ ^   P LDK A3,/40 INDICATE ERROR $ t , P ORRS A3,A┆
0x11a0…11f0              36 5c 55 50 44 41 54 45 20 54 45 4d 50 4f 52 41 52 59 20 52 45 54 55 52 4e 20 43 4f 44 45 00 24 00 96 00 10 00 50 46 44 3a 30 32 30 5c 45 51 55 5c 2a 00 24 00 c6 00 1a 00 50 5c 52 46 5c 46 44 3a 31 30 30 5c 47 4f 54 4f 20 46 44 4d 53 49 4f   ┆6 UPDATE TEMPORARY RETURN CODE $     PFD:020 EQU * $     P RF FD:100 GOTO FDMSIO┆
0x11f0…1240              00 24 00 da 00 06 00 50 2a 20 00 24 00 f8 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 46 44 30 31 20 00 24 01 02 00 06 00 50 2a 20 00 24 01 1a 00 16 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 24 01 24 00 16 00 50 2a 20   ┆ $     P*  $     P EJECT   DRFD01  $     P*  $     P*****************  $ $   P* ┆
0x1240…1290              20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 24 01 3e 00 16 00 50 2a 20 50 48 59 53 49 43 41 4c 20 52 45 41 44 20 2a 20 00 24 01 58 00 16 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 24 01 72 00 16 00 50 2a 2a 2a 2a   ┆              *  $ >   P* PHYSICAL READ *  $ X   P*               *  $ r   P****┆

Reduced view