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

⟦996b6795f⟧

    Length: 4750 (0x128e)
    Notes: pts_type(SC)
    Names: »EBCDIC.SC«

Derivation

└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
    └─⟦this⟧ »TOSSWORK/EBCDIC.SC« 
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
    └─⟦this⟧ »TOSSWORK/EBCDIC.SC« 

	IDENT EBCDIC 	REL 11.0 81-01-26 870105041100 

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

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT EBCDIC  REL 11.0 81-01-26 870105041100 «, 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)  45 4e 20 4e 4f 20 52 55 42 4f 55 54 20 21 00 90 01 7a 00 1e 00 50 5c 41 4e 4b 5c 41 32 2c 4c 43 57 42 49 54 5c 42 49 54 20 39 20 53 45 54 20 3f 00 91 00 16 00 3c 00 50 5c 52 46 28 4e 5a 29 5c 45 43 56 31 34 30 5c 59 45 53 2e 4c 41 53 54 20   ┆EN NO RUBOUT !   z   P ANK A2,LCWBIT BIT 9 SET ?     < P RF(NZ) ECV140 YES.LAST ┆
0x0ca0…0cf0              43 4f 4c 55 4d 4e 20 57 52 49 54 54 45 4e 20 28 44 55 52 49 4e 47 20 52 45 51 55 45 53 54 29 20 00 91 00 38 00 3e 00 50 5c 4c 44 5c 41 34 2c 44 57 54 53 4e 2b 44 57 54 44 45 56 2c 41 36 5c 47 45 54 20 4e 45 58 54 20 57 52 49 54 45 20 50 4f   ┆COLUMN WRITTEN (DURING REQUEST)    8 > P LD A4,DWTSN+DWTDEV,A6 GET NEXT WRITE PO┆
0x0cf0…0d40              53 49 54 49 4f 4e 20 53 41 56 45 44 20 41 46 54 45 52 00 91 00 78 00 18 00 50 2a 5c 5c 5c 50 52 45 56 49 4f 55 53 20 52 45 51 55 45 53 54 00 91 00 ba 00 3a 00 50 5c 43 57 5c 41 34 2c 44 57 54 43 4e 2b 44 57 54 44 45 56 2c 41 36 5c 3d 20 43   ┆SITION SAVED AFTER   x   P*   PREVIOUS REQUEST     : P CW A4,DWTCN+DWTDEV,A6 = C┆
0x0d40…0d90              55 52 52 45 4e 54 20 4e 45 58 54 20 57 52 49 54 45 20 50 4f 53 49 54 49 4f 4e 20 3f 00 91 00 d6 00 28 00 50 5c 52 42 28 45 29 5c 45 43 56 31 32 30 5c 59 45 53 2e 20 54 48 45 4e 20 4e 4f 20 52 55 42 2d 4f 55 54 20 21 00 91 01 14 00 10 00 50   ┆URRENT NEXT WRITE POSITION ?     ( P RB(E) ECV120 YES. THEN NO RUB-OUT !       P┆
0x0d90…0de0              5c 4c 44 4b 4c 5c 41 34 2c 2d 31 5c 00 91 01 40 00 3c 00 50 5c 41 44 53 5c 41 34 2c 44 57 54 43 4e 2b 44 57 54 44 45 56 2c 41 36 5c 44 45 43 52 20 43 55 52 52 45 4e 54 20 4e 45 58 54 20 57 52 49 54 45 20 50 4f 53 49 54 49 4f 4e 00 91 01 54   ┆ LDKL A4,-1    @ < P ADS A4,DWTCN+DWTDEV,A6 DECR CURRENT NEXT WRITE POSITION   T┆
0x0de0…0e30 (10, 0, 400) 00 0e 00 50 5c 52 46 5c 45 43 56 31 35 30 00 92 00 04 00 10 00 50 45 43 56 31 34 30 5c 45 51 55 5c 2a 00 92 00 16 00 42 00 50 5c 58 52 53 5c 41 32 2c 44 57 54 44 45 56 2c 41 36 5c 52 45 53 45 54 20 42 49 54 20 39 20 28 4c 41 53 54 20 43 4f   ┆   P RF ECV150       PECV140 EQU *     B P XRS A2,DWTDEV,A6 RESET BIT 9 (LAST CO┆
0x0e30…0e80              4c 55 4d 4e 20 4e 4f 20 4c 4f 4e 47 45 52 20 57 52 49 54 54 45 4e 29 20 00 92 00 2a 00 10 00 50 45 43 56 31 35 30 5c 45 51 55 5c 2a 00 92 00 70 00 32 00 50 5c 4c 44 4b 5c 41 32 2c 53 50 41 43 45 5c 52 55 42 4f 55 54 20 50 52 45 56 49 4f 55   ┆LUMN NO LONGER WRITTEN)    *   PECV150 EQU *   p 2 P LDK A2,SPACE RUBOUT PREVIOU┆
0x0e80…0ed0              53 20 28 4f 52 20 4c 41 53 54 29 20 43 4f 4c 55 4d 4e 00 92 00 84 00 2c 00 50 5c 43 46 5c 41 35 2c 45 43 48 4f 55 54 5c 4f 55 54 50 55 54 20 4f 4e 45 20 53 50 41 43 45 20 54 4f 20 52 55 42 4f 55 54 00 92 00 ba 00 1c 00 50 5c 52 42 5c 45 43   ┆S (OR LAST) COLUMN     , P CF A5,ECHOUT OUTPUT ONE SPACE TO RUBOUT       P RB EC┆
0x0ed0…0f20              56 31 30 30 5c 47 4f 20 53 45 54 20 43 55 52 53 4f 52 00 92 00 ea 00 0a 00 50 5c 45 4a 45 43 54 00 92 01 0a 00 06 00 50 2a 20 00 92 01 18 00 24 00 50 2a 5c 48 41 4e 44 4c 49 4e 47 20 4f 46 20 41 20 43 4c 45 41 52 2d 43 48 41 52 41 43 54 45   ┆V100 GO SET CURSOR       P EJECT       P*      $ P* HANDLING OF A CLEAR-CHARACTE┆
0x0f20…0f70              52 20 00 92 01 22 00 06 00 50 2a 20 00 92 01 4a 00 10 00 50 45 43 56 31 36 30 5c 45 51 55 5c 2a 00 92 01 54 00 16 00 50 5c 4c 44 5c 41 34 2c 44 57 54 44 45 56 2c 41 36 5c 20 00 92 01 68 00 1c 00 50 5c 4c 44 52 5c 41 32 2c 41 34 5c 41 4c 53   ┆R    "   P*    J   PECV160 EQU *   T   P LD A4,DWTDEV,A6     h   P LDR A2,A4 ALS┆
0x0f70…0fc0 (11, 0, 400) 4f 20 49 4e 54 4f 20 41 32 20 00 92 01 82 00 36 00 50 5c 41 4e 4b 5c 41 34 2c 4c 43 50 42 49 54 5c 42 49 54 20 31 30 20 53 45 54 20 3f 20 28 3d 4c 41 53 54 20 43 4f 4c 55 4d 4e 20 57 52 49 54 54 45 4e 20 00 93 00 12 00 24 00 50 2a 5c 5c 5c   ┆O INTO A2      6 P ANK A4,LCPBIT BIT 10 SET ? (=LAST COLUMN WRITTEN      $ P*   ┆
0x0fc0…1010              41 4c 52 45 41 44 59 20 42 59 20 50 52 45 56 49 4f 55 53 20 52 45 51 55 45 53 54 29 00 93 00 4c 00 28 00 50 5c 52 42 28 4e 5a 29 5c 45 43 56 31 32 30 5c 59 45 53 2e 20 54 48 45 4e 20 4e 4f 20 52 55 42 4f 55 54 20 21 00 93 00 74 00 06 00 50   ┆ALREADY BY PREVIOUS REQUEST)   L ( P RB(NZ) ECV120 YES. THEN NO RUBOUT !   t   P┆
0x1010…1060              2a 20 00 93 00 a0 00 18 00 50 2a 5c 50 52 45 50 41 52 45 20 54 48 45 20 52 55 42 4f 55 54 00 93 00 aa 00 06 00 50 2a 20 00 93 00 c6 00 3a 00 50 5c 4c 44 5c 41 33 2c 44 57 54 43 4e 2b 44 57 54 44 45 56 2c 41 36 5c 47 45 54 20 43 55 52 52 45   ┆*        P* PREPARE THE RUBOUT       P*      : P LD A3,DWTCN+DWTDEV,A6 GET CURRE┆
0x1060…10b0              4e 54 20 4e 45 58 54 20 57 52 49 54 45 20 50 4f 53 49 54 49 4f 4e 00 93 00 d0 00 3c 00 50 5c 53 55 5c 41 33 2c 44 57 54 53 4e 2b 44 57 54 44 45 56 2c 41 36 5c 53 55 42 54 52 41 43 54 20 57 49 54 48 20 4e 45 58 54 20 57 52 49 54 45 20 50 4f   ┆NT NEXT WRITE POSITION     < P SU A3,DWTSN+DWTDEV,A6 SUBTRACT WITH NEXT WRITE PO┆
0x10b0…1100              53 49 54 49 4f 4e 00 93 01 0e 00 24 00 50 2a 5c 5c 5c 53 41 56 45 44 20 41 46 54 45 52 20 50 52 45 56 49 4f 55 53 20 52 45 51 55 45 53 54 00 93 01 4e 00 36 00 50 5c 41 4e 4b 5c 41 32 2c 4c 43 57 42 49 54 5c 42 49 54 20 39 20 53 45 54 20 3f   ┆SITION     $ P*   SAVED AFTER PREVIOUS REQUEST   N 6 P ANK A2,LCWBIT BIT 9 SET ?┆
0x1100…1150 (12, 0, 398) 20 28 3d 4c 41 53 54 20 43 4f 4c 55 4d 4e 20 57 52 49 54 54 45 4e 2c 20 00 93 01 76 00 1a 00 50 2a 5c 5c 5c 44 55 52 49 4e 47 20 52 45 51 55 45 53 54 20 21 29 20 00 94 00 20 00 14 00 50 5c 52 46 28 5a 29 5c 45 43 56 31 37 30 5c 4e 4f 00 94   ┆ (=LAST COLUMN WRITTEN,    v   P*   DURING REQUEST !)        P RF(Z) ECV170 NO  ┆
0x1150…11a0              00 3e 00 34 00 50 5c 41 44 4b 5c 41 33 2c 31 5c 59 45 53 2e 20 4d 4f 44 49 46 59 20 54 4f 20 52 55 42 4f 55 54 20 41 4c 53 4f 20 4c 41 53 54 20 43 4f 4c 55 4d 4e 00 94 00 56 00 10 00 50 45 43 56 31 37 30 5c 45 51 55 5c 2a 00 94 00 8e 00 30   ┆ > 4 P ADK A3,1 YES. MODIFY TO RUBOUT ALSO LAST COLUMN   V   PECV170 EQU *     0┆
0x11a0…11f0              00 50 5c 41 44 4b 5c 41 33 2c 30 5c 41 4e 59 20 45 43 48 4f 45 44 20 43 48 41 52 41 43 54 45 52 53 20 54 4f 20 52 55 42 4f 55 54 20 3f 20 00 94 00 a2 00 14 00 50 5c 52 42 28 5a 29 5c 45 43 56 31 32 30 5c 4e 4f 00 94 00 d6 00 06 00 50 2a 20   ┆ P ADK A3,0 ANY ECHOED CHARACTERS TO RUBOUT ?        P RB(Z) ECV120 NO       P* ┆
0x11f0…1240              00 94 00 ee 00 14 00 50 2a 5c 44 4f 20 54 48 45 20 52 55 42 4f 55 54 20 00 94 00 f8 00 06 00 50 2a 20 00 94 01 10 00 3a 00 50 5c 43 46 5c 41 31 35 2c 52 45 53 43 4e 5c 52 45 53 54 4f 52 45 20 53 41 56 45 44 20 57 52 49 54 45 20 50 4f 53 2e   ┆       P* DO THE RUBOUT        P*      : P CF A15,RESCN RESTORE SAVED WRITE POS.┆
0x1240…128e              20 41 53 20 43 55 52 52 45 4e 54 20 4e 45 58 54 00 94 01 1a 00 36 00 50 5c 43 46 5c 41 35 2c 53 54 41 57 52 49 5c 53 54 41 52 54 20 4e 45 57 20 57 52 49 54 45 20 52 45 51 55 45 53 54 20 54 4f 20 44 4f 20 52 55 42 4f 55 54 00 94 01 58         ┆ AS CURRENT NEXT     6 P CF A5,STAWRI START NEW WRITE REQUEST TO DO RUBOUT   X┆

Reduced view