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

⟦b2a02f41c⟧ 

    Length: 4022 (0xfb6)
    Notes: pts_type(SC)
    Names: »DVTKB.SC«

Derivation

└─⟦7b35573c9⟧ Bits:30009690 Philips computer tape "600402"
    └─⟦this⟧ »M:AF/DVTKB.SC«

PTS(SC)

	IDENT DVTKB 	REL 11.0 81-01-26 870105041100

* 
*   KEYBOARD DEVICE WORK TABLE
* 
	ENTRY	DVTKB	TABLE ENTRY
	EXTRN	COD
	EXTRN	ECH
	EXTRN	KBAD4
MMUPAG	EQU	0
* 
* 
* 
DVTKB	EQU	* 
	DATA	/1111	CHANNEL PARAMETER 
	DATA	/8040	DEVICE STATUS./8040 MEANS READY 
	DATA	0	ECB-ADDRESS 
	DATA	DWTEND-DVTKB	ORDER
	DATA	KBAD4	POINTER TO ADDRESS BLOCK
	DATA	'KB'	TTAB ADDRESS 
	DATA	0	WAIT/ACTIVE INDICATOR 
	DATA	0	TERMINAL QUEUE
	IFT	MMUPAG=1 
	DATA	0	SAVE AREA USER ECB ADDRESS
	DATA	DEVECB	MMU ECB ADDRESS
	XIF
	DATA	0	OUTPUT QUEUE LINK 
	DATA	0	SAVE AREA FOR A3
	DATA	0	SAVE AREA FOR A4
	DATA	0	SAVE AREA FOR A5
	RES	4	DWT STACK
	DATA	0	SAVE AREA FOR A7
	DATA	0	SAVE AREA FOR A8
	DATA	/2222	CHANNEL PARAMETER-2 
	DATA	0	LINE DRIVER DEPENDENT 
	DATA	0	LINE DRIVER DEPENDENT 
	DATA	/3333	DEVICE STATUS 
	DATA	ECH	ECHO DEVICE 
	DATA	0	KEYLOCK MEMORY
	DATA	0	CTRL/SHIFT MEMORY 
	DATA	COD	CODE ADDRESS TO CONVERSION POINTERS 
	DATA	0	TIMER 
	DATA	DWTSQ+DVTKB	POINTER TO FIRST PLACE
	DATA	DWTSQ+DVTKB	POINTER TO LAST PLACE 
DWTSQ	EQU	*-DVTKB 
	DATA	0,0,0,0,0,0,0,0 
	DATA	0,0,0,0,0,0,0,0 
	DATA	0,0,0,0 
	IFT	MMUPAG=1 
DEVECB	EQU	*
	DATA	0,0,0,0,0,0 
	DATA	0,0,0,0,0,0,0,0 
	DATA	0,0,0,0,0,0,0,0 
	DATA	0,0,0,0,0,0,0,0 
	DATA	0,0,0,0,0,0,0,0 
	XIF
DWTEND	EQU	*
	END

HexDump

0x000…034 (0, 0, 400)  Head {h00=0x0030, h01=0x0050, text=» IDENT DVTKB  REL 11.0 81-01-26 870105041100«, t00=0x0000, t01=0x0004}
0x034…03c              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x03c…046              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0040}
0x046…06c              Head {h00=0x0022, h01=0x0050, text=»*   KEYBOARD DEVICE WORK TABLE«, t00=0x0000, t01=0x004a}
0x06c…076              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0070}
0x076…096              Head {h00=0x001c, h01=0x0050, text=» ENTRY DVTKB TABLE ENTRY«, t00=0x0000, t01=0x007a}
0x096…0a8              Head {h00=0x000e, h01=0x0050, text=» EXTRN COD«, t00=0x0000, t01=0x009a}
0x0a8…0ba              Head {h00=0x000e, h01=0x0050, text=» EXTRN ECH«, t00=0x0000, t01=0x00ac}
0x0ba…0ce              Head {h00=0x0010, h01=0x0050, text=» EXTRN KBAD4«, t00=0x0000, t01=0x00be}
0x0ce…0e2              Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0000, t01=0x00d2}
0x0e2…0ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e6}
0x0ec…0f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f0}
0x0f6…100              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fa}
0x100…114              Head {h00=0x0010, h01=0x0050, text=»DVTKB EQU * «, t00=0x0000, t01=0x0104}
0x114…13a              Head {h00=0x0022, h01=0x0050, text=» DATA /1111 CHANNEL PARAMETER «, t00=0x0000, t01=0x0118}
0x13a…16e              Head {h00=0x0030, h01=0x0050, text=» DATA /8040 DEVICE STATUS./8040 MEANS READY «, t00=0x0000, t01=0x013e}
0x16e…18a              Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB-ADDRESS «, t00=0x0000, t01=0x0172}
0x18a…1aa              Head {h00=0x001c, h01=0x0050, text=» DATA DWTEND-DVTKB ORDER«, t00=0x0000, t01=0x018e}
0x1aa…1d6              Head {h00=0x0028, h01=0x0050, text=» DATA KBAD4 POINTER TO ADDRESS BLOCK«, t00=0x0001, t01=0x001e}
0x1d6…1f6              Head {h00=0x001c, h01=0x0050, text=» DATA 'KB' TTAB ADDRESS «, t00=0x0001, t01=0x004a}
0x1f6…21c              Head {h00=0x0022, h01=0x0050, text=» DATA 0 WAIT/ACTIVE INDICATOR «, t00=0x0001, t01=0x006a}
0x21c…23a              Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0001, t01=0x0090}
0x23a…250              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0001, t01=0x00ae}
0x250…27a              Head {h00=0x0026, h01=0x0050, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0001, t01=0x00c4}
0x27a…29e              Head {h00=0x0020, h01=0x0050, text=» DATA DEVECB MMU ECB ADDRESS«, t00=0x0001, t01=0x00ee}
0x29e…2aa              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0001, t01=0x0112}
0x2aa…2cc              Head {h00=0x001e, h01=0x0050, text=» DATA 0 OUTPUT QUEUE LINK «, t00=0x0001, t01=0x011e}
0x2cc…2ec              Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVE AREA FOR A3«, t00=0x0001, t01=0x0140}
0x2ec…30c              Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVE AREA FOR A4«, t00=0x0001, t01=0x0160}
0x30c…32c              Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVE AREA FOR A5«, t00=0x0001, t01=0x0180}
0x32c…344              Head {h00=0x0014, h01=0x0050, text=» RES 4 DWT STACK«, t00=0x0002, t01=0x0010}
0x344…364              Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVE AREA FOR A7«, t00=0x0002, t01=0x0028}
0x364…384              Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVE AREA FOR A8«, t00=0x0002, t01=0x0048}
0x384…3ac              Head {h00=0x0024, h01=0x0050, text=» DATA /2222 CHANNEL PARAMETER-2 «, t00=0x0002, t01=0x0068}
0x3ac…3d2              Head {h00=0x0022, h01=0x0050, text=» DATA 0 LINE DRIVER DEPENDENT «, t00=0x0002, t01=0x0090}
0x3d2…3f8              Head {h00=0x0022, h01=0x0050, text=» DATA 0 LINE DRIVER DEPENDENT «, t00=0x0002, t01=0x00b6}
0x3f8…41a              Head {h00=0x001e, h01=0x0050, text=» DATA /3333 DEVICE STATUS «, t00=0x0002, t01=0x00dc}
0x41a…438              Head {h00=0x001a, h01=0x0050, text=» DATA ECH ECHO DEVICE «, t00=0x0002, t01=0x00fe}
0x438…456              Head {h00=0x001a, h01=0x0050, text=» DATA 0 KEYLOCK MEMORY«, t00=0x0002, t01=0x011c}
0x456…478              Head {h00=0x001e, h01=0x0050, text=» DATA 0 CTRL/SHIFT MEMORY «, t00=0x0002, t01=0x013a}
0x478…4ae              Head {h00=0x0032, h01=0x0050, text=» DATA COD CODE ADDRESS TO CONVERSION POINTERS «, t00=0x0002, t01=0x015c}
0x4ae…4c4 (3, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» DATA 0 TIMER «, t00=0x0003, t01=0x0004}
0x4c4…4f4              Head {h00=0x002c, h01=0x0050, text=» DATA DWTSQ+DVTKB POINTER TO FIRST PLACE«, t00=0x0003, t01=0x001a}
0x4f4…524              Head {h00=0x002c, h01=0x0050, text=» DATA DWTSQ+DVTKB POINTER TO LAST PLACE «, t00=0x0003, t01=0x004a}
0x524…53e              Head {h00=0x0016, h01=0x0050, text=»DWTSQ EQU *-DVTKB «, t00=0x0003, t01=0x007a}
0x53e…55c              Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0003, t01=0x0094}
0x55c…57a              Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0003, t01=0x00b2}
0x57a…590              Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0003, t01=0x00d0}
0x590…5a6              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0003, t01=0x00e6}
0x5a6…5ba              Head {h00=0x0010, h01=0x0050, text=»DEVECB EQU *«, t00=0x0003, t01=0x00fc}
0x5ba…5d4              Head {h00=0x0016, h01=0x0050, text=» DATA 0,0,0,0,0,0 «, t00=0x0003, t01=0x0110}
0x5d4…5f2              Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0003, t01=0x012a}
0x5f2…610              Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0003, t01=0x0148}
0x610…62e              Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0003, t01=0x0166}
0x62e…64c              Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0003, t01=0x0184}
0x64c…658              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0004, t01=0x0012}
0x658…66c              Head {h00=0x0010, h01=0x0050, text=»DWTEND EQU *«, t00=0x0004, t01=0x001e}
0x66c…678              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0004, t01=0x0032}
0x678…67c              Head {h00=0x4004, h01=0x0000}
0x67c…680              00 04 00 3e                                                                                                                                                                                                                                       ┆   >┆
0x680…688 (5, 1, 8)    20 04 00 00 00 05 00 04                                                                                                                                                                                                                           ┆        ┆
0x688…6d8 (6, 0, 400)  5c 44 41 54 41 5c 2f 30 30 30 35 2c 2f 31 35 30 30 2c 2f 30 43 30 30 2c 2f 30 30 30 30 5c 30 38 2d 30 46 20 00 05 01 90 00 28 00 50 5c 44 41 54 41 5c 2f 31 30 31 31 2c 2f 31 32 31 33 2c 2f 33 43 33 44 2c 2f 33 32 32 36 5c 31 30 2d 31 37 20   ┆ DATA /0005,/1500,/0C00,/0000 08-0F      ( P DATA /1011,/1213,/3C3D,/3226 10-17 ┆
0x6d8…728              00 06 00 2c 00 28 00 50 5c 44 41 54 41 5c 2f 37 30 31 39 2c 2f 33 46 32 37 2c 2f 31 43 31 44 2c 2f 31 45 31 46 5c 31 38 2d 31 46 20 00 06 00 58 00 28 00 50 5c 44 41 54 41 5c 2f 34 30 34 46 2c 2f 37 46 37 42 2c 2f 35 42 36 43 2c 2f 35 30 37   ┆   , ( P DATA /7019,/3F27,/1C1D,/1E1F 18-1F    X ( P DATA /404F,/7F7B,/5B6C,/507┆
0x728…778              44 5c 32 30 2d 32 37 20 00 06 00 84 00 28 00 50 5c 44 41 54 41 5c 2f 34 44 35 44 2c 2f 35 43 34 45 2c 2f 36 42 36 30 2c 2f 34 42 36 31 5c 32 38 2d 32 46 20 00 06 00 b0 00 28 00 50 5c 44 41 54 41 5c 2f 46 30 46 31 2c 2f 46 32 46 33 2c 2f 46   ┆D 20-27      ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F      ( P DATA /F0F1,/F2F3,/F┆
0x778…7c8              34 46 35 2c 2f 46 36 46 37 5c 33 30 2d 33 37 20 00 06 00 dc 00 28 00 50 5c 44 41 54 41 5c 2f 46 38 46 39 2c 2f 37 41 35 45 2c 2f 34 43 37 45 2c 2f 36 45 36 46 5c 33 38 2d 33 46 20 00 06 01 08 00 28 00 50 5c 44 41 54 41 5c 2f 37 43 43 31 2c   ┆4F5,/F6F7 30-37      ( P DATA /F8F9,/7A5E,/4C7E,/6E6F 38-3F      ( P DATA /7CC1,┆
0x7c8…818              2f 43 32 43 33 2c 2f 43 34 43 35 2c 2f 43 36 43 37 5c 34 30 2d 34 37 20 00 06 01 34 00 28 00 50 5c 44 41 54 41 5c 2f 43 38 43 39 2c 2f 44 31 44 32 2c 2f 44 33 44 34 2c 2f 44 35 44 36 5c 34 38 2d 34 46 20 00 06 01 60 00 28 00 50 5c 44 41 54   ┆/C2C3,/C4C5,/C6C7 40-47    4 ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F    ` ( P DAT┆
0x818…868 (7, 2, 344)  41 5c 2f 44 37 44 38 2c 2f 44 39 45 32 2c 2f 45 33 45 34 2c 2f 45 35 45 36 5c 35 30 2d 35 37 20 00 06 01 8c 00 28 00 50 5c 44 41 54 41 5c 2f 45 37 45 38 2c 2f 45 39 34 41 2c 2f 30 30 35 41 2c 2f 35 46 36 44 5c 35 38 2d 35 46 20 00 07 00 28   ┆A /D7D8,/D9E2,/E3E4,/E5E6 50-57      ( P DATA /E7E8,/E94A,/005A,/5F6D 58-5F    (┆
0x868…8b8              00 28 00 50 5c 44 41 54 41 5c 2f 30 30 38 31 2c 2f 38 32 38 33 2c 2f 38 34 38 35 2c 2f 38 36 38 37 5c 36 30 2d 36 37 20 00 07 00 54 00 28 00 50 5c 44 41 54 41 5c 2f 38 38 38 39 2c 2f 39 31 39 32 2c 2f 39 33 39 34 2c 2f 39 35 39 36 5c 36 38   ┆ ( P DATA /0081,/8283,/8485,/8687 60-67    T ( P DATA /8889,/9192,/9394,/9596 68┆
0x8b8…908              2d 36 46 20 00 07 00 80 00 28 00 50 5c 44 41 54 41 5c 2f 39 37 39 38 2c 2f 39 39 41 32 2c 2f 41 33 41 34 2c 2f 41 35 41 36 5c 37 30 2d 37 37 20 00 07 00 ac 00 28 00 50 5c 44 41 54 41 5c 2f 41 37 41 38 2c 2f 41 39 31 43 2c 2f 36 41 30 30 2c   ┆-6F      ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77      ( P DATA /A7A8,/A91C,/6A00,┆
0x908…958              2f 30 30 30 30 5c 37 38 2d 37 46 20 00 07 00 d8 00 34 00 50 5c 44 41 54 41 5c 2f 35 34 34 46 2c 2f 35 33 35 33 5c 53 50 45 43 2e 20 46 4c 45 58 20 43 48 41 52 2e 20 27 54 4f 53 53 27 20 20 38 30 2d 38 34 00 07 01 04 00 08 00 50 5c 58 49 46   ┆/0000 78-7F      4 P DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS'  80-84       P XIF┆
0x958…970              00 07 01 3c 00 08 00 50 5c 45 4e 44 00 07 01 48 40 04 00 00 00 07 01 54                                                                                                                                                                           ┆   <   P END   H@      T┆
0x970…978 (8, 1, 8)    20 04 00 00 00 08 00 04                                                                                                                                                                                                                           ┆        ┆
0x978…9c8 (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 ┆
0x9c8…a18              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┆
0xa18…a68              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┆
0xa68…ab8              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┆
0xab8…b08              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┆
0xb08…b58 (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┆
0xb58…ba8              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┆
0xba8…bf8              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┆
0xbf8…c48              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┆
0xc48…c98              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┆
0xc98…ce8 (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*   ┆
0xce8…d38              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┆
0xd38…d88              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┆
0xd88…dd8              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┆
0xdd8…e28              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 ?┆
0xe28…e78 (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  ┆
0xe78…ec8              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┆
0xec8…f18              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* ┆
0xf18…f68              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.┆
0xf68…fb6              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