|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4256 (0x10a0)
Notes: pts_type(SC)
Names: »SCWRIT.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »BARCLAY/SCWRIT.SC«
└─⟦this⟧ »BARCLAY/SCWRIT.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »BARCLAY/SCWRIT.SC«
IDENT SCWRIT 80.10.28 NJ DDUM NJDDIV * THIS MODULE CONTAINS THE ROUTINES NECESSARY * FOR WRITING ON THE VDU: * * SCWRIT - CAN BE USED FOR WRITING ANYWHERE ON THE SCREEN * * SCRWR - WRITES WHERE THE CURSOR IS NOW * * ERWRIT - WRITES A SPECIFIED BUFFER ON LINE 23 PDIV ENTRY SCWRIT ENTRY SCRWR ENTRY ERWRIT EXPROC POSCUR,PBIN,PBIN EXPROC PUSH,PBIN EXPROC PULL,PBIN * * INCLUDE EQUATE * EJECT SCWRIT PROC BUF,LEN,ROW,COL PSTRG BUF PBIN LEN PBIN ROW,COL * * THE PROCEDURE WRITES ANY BUFFER ON A SCREEN * BUF - WHERE TO WRITE FROM * LEN - THE NBR OF BYTES TO WRITE * THE RETURNCODE IS SET BY THE WRITE STATEMENT * * IF LENGTH EXCEEDS 80, THE BUFFER IS TRUNCATED * * ALTERED FIELDS: * TSCBUF - FORM CTRL CHAR + TEXT TO BE WRITTEN * PERF PUSH,CBIN1 MOVE TBIN1,LEN CBNG TBIN1,CBIN80,SCWR010 LENGTH TO BIG? MOVE TBIN1,CBIN80 IF SO, TRUNCATE SCWR010 PERF POSCUR,ROW,COL PERF SCRWR,BUF,TBIN1 PERF PULL,CBIN1 RET PEND EJECT SCRWR PROC BUF,LEN PSTRG BUF PBIN LEN * * THE PROCEDURE WRITES ANY BUFFER ON A SCREEN * WHEREVER THE CURSOR IS POSITIONED * PERF PUSH,CBIN1 MOVE TSTR2,=X'2B2B' MOVE TSCBUF,BUF INSRT TSCBUF,CBIN0,CBIN2,TSTR2,CBIN0 MOVE TBIN1,LEN ADD TBIN1,CBIN2 ADJUST LENGTH WRITE DSDY,TSCBUF,TBIN1 WRITE BUFFER TO SCREEN PERF PULL,CBIN1 RET PEND EJECT ERWRIT PROC BUF PSTRG BUF * * THE PROCEDURE WRITES ANY MESSAGE ON LINE 23 * MOVE TP1,=W'23' MOVE TP2,CBIN1 PERF POSCUR,TP1,TP2 DSC1 DSDY,ERASE,CBIN80 ERASE LINE MOVE TSCBUF,BUF MOVE TSTR2,=X'2B2B' INSRT TSCBUF,CBIN0,CBIN2,TSTR2,CBIN0 WRITE DSDY,TSCBUF,CBIN80 RET PEND END
0x0000…0022 (0, 0, 398) Head {h00=0x001e, h01=0x0050, text=» IDENT SCWRIT 80.10.28 NJ «, t00=0x0000, t01=0x0004}
0x0022…0036 Head {h00=0x0010, h01=0x0050, text=» DDUM NJDDIV«, t00=0x0000, t01=0x0026}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0046 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0042}
0x0046…004e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x004a}
0x004e…0084 Head {h00=0x0032, h01=0x0050, text=»* THIS MODULE CONTAINS THE ROUTINES NECESSARY «, t00=0x0000, t01=0x0052}
0x0084…00a6 Head {h00=0x001e, h01=0x0050, text=»* FOR WRITING ON THE VDU: «, t00=0x0000, t01=0x0088}
0x00a6…00b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00aa}
0x00b0…00f2 Head {h00=0x003e, h01=0x0050, text=»* SCWRIT - CAN BE USED FOR WRITING ANYWHERE ON THE SCREEN «, t00=0x0000, t01=0x00b4}
0x00f2…00fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f6}
0x00fc…012c Head {h00=0x002c, h01=0x0050, text=»* SCRWR - WRITES WHERE THE CURSOR IS NOW«, t00=0x0000, t01=0x0100}
0x012c…0136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0130}
0x0136…016e Head {h00=0x0034, h01=0x0050, text=»* ERWRIT - WRITES A SPECIFIED BUFFER ON LINE 23 «, t00=0x0000, t01=0x013a}
0x016e…017c Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0172}
0x017c…0192 Head {h00=0x0012, h01=0x0050, text=» ENTRY SCWRIT «, t00=0x0000, t01=0x0180}
0x0192…01a6 Head {h00=0x0010, h01=0x0050, text=» ENTRY SCRWR«, t00=0x0001, t01=0x0008}
0x01a6…01bc Head {h00=0x0012, h01=0x0050, text=» ENTRY ERWRIT «, t00=0x0001, t01=0x001c}
0x01bc…01dc Head {h00=0x001c, h01=0x0050, text=» EXPROC POSCUR,PBIN,PBIN«, t00=0x0001, t01=0x0032}
0x01dc…01f6 Head {h00=0x0016, h01=0x0050, text=» EXPROC PUSH,PBIN «, t00=0x0001, t01=0x0052}
0x01f6…0210 Head {h00=0x0016, h01=0x0050, text=» EXPROC PULL,PBIN «, t00=0x0001, t01=0x006c}
0x0210…021a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0086}
0x021a…0224 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0090}
0x0224…023c Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x009a}
0x023c…0246 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b2}
0x0246…0254 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00bc}
0x0254…0278 Head {h00=0x0020, h01=0x0050, text=»SCWRIT PROC BUF,LEN,ROW,COL «, t00=0x0001, t01=0x00ca}
0x0278…028a Head {h00=0x000e, h01=0x0050, text=» PSTRG BUF«, t00=0x0001, t01=0x00ee}
0x028a…029c Head {h00=0x000e, h01=0x0050, text=» PBIN LEN «, t00=0x0001, t01=0x0100}
0x029c…02b2 Head {h00=0x0012, h01=0x0050, text=» PBIN ROW,COL «, t00=0x0001, t01=0x0112}
0x02b2…02bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0128}
0x02bc…02f2 Head {h00=0x0032, h01=0x0050, text=»* THE PROCEDURE WRITES ANY BUFFER ON A SCREEN «, t00=0x0001, t01=0x0132}
0x02f2…0318 Head {h00=0x0022, h01=0x0050, text=»* BUF - WHERE TO WRITE FROM «, t00=0x0001, t01=0x0168}
0x0318…0344 Head {h00=0x0028, h01=0x0050, text=»* LEN - THE NBR OF BYTES TO WRITE «, t00=0x0001, t01=0x018e}
0x0344…037a Head {h00=0x0032, h01=0x0050, text=»* THE RETURNCODE IS SET BY THE WRITE STATEMENT«, t00=0x0002, t01=0x002a}
0x037a…0384 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0060}
0x0384…03bc Head {h00=0x0034, h01=0x0050, text=»* IF LENGTH EXCEEDS 80, THE BUFFER IS TRUNCATED «, t00=0x0002, t01=0x006a}
0x03bc…03c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a2}
0x03c6…03e0 Head {h00=0x0016, h01=0x0050, text=»* ALTERED FIELDS: «, t00=0x0002, t01=0x00ac}
0x03e0…041a Head {h00=0x0036, h01=0x0050, text=»* TSCBUF - FORM CTRL CHAR + TEXT TO BE WRITTEN«, t00=0x0002, t01=0x00c6}
0x041a…0424 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0100}
0x0424…042c Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x010a}
0x042c…0444 Head {h00=0x0014, h01=0x0050, text=» PERF PUSH,CBIN1«, t00=0x0002, t01=0x0112}
0x0444…045c Head {h00=0x0014, h01=0x0050, text=» MOVE TBIN1,LEN «, t00=0x0002, t01=0x012a}
0x045c…048e Head {h00=0x002e, h01=0x0050, text=» CBNG TBIN1,CBIN80,SCWR010 LENGTH TO BIG? «, t00=0x0002, t01=0x0142}
0x048e…04b8 Head {h00=0x0026, h01=0x0050, text=» MOVE TBIN1,CBIN80 IF SO, TRUNCATE«, t00=0x0002, t01=0x0174}
0x04b8…04c8 Head {h00=0x000c, h01=0x0050, text=»SCWR010 «, t00=0x0003, t01=0x000e}
0x04c8…04e4 Head {h00=0x0018, h01=0x0050, text=» PERF POSCUR,ROW,COL«, t00=0x0003, t01=0x001e}
0x04e4…0502 Head {h00=0x001a, h01=0x0050, text=» PERF SCRWR,BUF,TBIN1 «, t00=0x0003, t01=0x003a}
0x0502…051a Head {h00=0x0014, h01=0x0050, text=» PERF PULL,CBIN1«, t00=0x0003, t01=0x0058}
0x051a…0526 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0003, t01=0x0070}
0x0526…0534 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0003, t01=0x007c}
0x0534…0542 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x008a}
0x0542…055c Head {h00=0x0016, h01=0x0050, text=»SCRWR PROC BUF,LEN«, t00=0x0003, t01=0x0098}
0x055c…056e Head {h00=0x000e, h01=0x0050, text=» PSTRG BUF«, t00=0x0003, t01=0x00b2}
0x056e…0580 Head {h00=0x000e, h01=0x0050, text=» PBIN LEN «, t00=0x0003, t01=0x00c4}
0x0580…058a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d6}
0x058a…05c0 Head {h00=0x0032, h01=0x0050, text=»* THE PROCEDURE WRITES ANY BUFFER ON A SCREEN «, t00=0x0003, t01=0x00e0}
0x05c0…05ec Head {h00=0x0028, h01=0x0050, text=»* WHEREVER THE CURSOR IS POSITIONED «, t00=0x0003, t01=0x0116}
0x05ec…05f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0142}
0x05f6…060e Head {h00=0x0014, h01=0x0050, text=» PERF PUSH,CBIN1«, t00=0x0003, t01=0x014c}
0x060e…062a Head {h00=0x0018, h01=0x0050, text=» MOVE TSTR2,=X'2B2B'«, t00=0x0003, t01=0x0164}
0x062a…0642 Head {h00=0x0014, h01=0x0050, text=» MOVE TSCBUF,BUF«, t00=0x0003, t01=0x0180}
0x0642…0670 Head {h00=0x002a, h01=0x0050, text=» INSRT TSCBUF,CBIN0,CBIN2,TSTR2,CBIN0 «, t00=0x0004, t01=0x0008}
0x0670…0688 Head {h00=0x0014, h01=0x0050, text=» MOVE TBIN1,LEN «, t00=0x0004, t01=0x0036}
0x0688…06ae Head {h00=0x0022, h01=0x0050, text=» ADD TBIN1,CBIN2 ADJUST LENGTH«, t00=0x0004, t01=0x004e}
0x06ae…06e6 Head {h00=0x0034, h01=0x0050, text=» WRITE DSDY,TSCBUF,TBIN1 WRITE BUFFER TO SCREEN «, t00=0x0004, t01=0x0074}
0x06e6…06fe Head {h00=0x0014, h01=0x0050, text=» PERF PULL,CBIN1«, t00=0x0004, t01=0x00ac}
0x06fe…070a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x00c4}
0x070a…0718 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x00d0}
0x0718…0726 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x00de}
0x0726…073e Head {h00=0x0014, h01=0x0050, text=»ERWRIT PROC BUF «, t00=0x0004, t01=0x00ec}
0x073e…0750 Head {h00=0x000e, h01=0x0050, text=» PSTRG BUF«, t00=0x0004, t01=0x0104}
0x0750…075a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0116}
0x075a…0790 Head {h00=0x0032, h01=0x0050, text=»* THE PROCEDURE WRITES ANY MESSAGE ON LINE 23 «, t00=0x0004, t01=0x0120}
0x0790…079a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0156}
0x079a…07b2 Head {h00=0x0014, h01=0x0050, text=» MOVE TP1,=W'23'«, t00=0x0004, t01=0x0160}
0x07b2…07ca Head {h00=0x0014, h01=0x0050, text=» MOVE TP2,CBIN1 «, t00=0x0004, t01=0x0178}
0x07ca…07e6 Head {h00=0x0018, h01=0x0050, text=» PERF POSCUR,TP1,TP2«, t00=0x0004, t01=0x0190}
0x07e6…0810 Head {h00=0x0026, h01=0x0050, text=» DSC1 DSDY,ERASE,CBIN80 ERASE LINE«, t00=0x0005, t01=0x001c}
0x0810…0828 Head {h00=0x0014, h01=0x0050, text=» MOVE TSCBUF,BUF«, t00=0x0005, t01=0x0046}
0x0828…0844 Head {h00=0x0018, h01=0x0050, text=» MOVE TSTR2,=X'2B2B'«, t00=0x0005, t01=0x005e}
0x0844…0872 Head {h00=0x002a, h01=0x0050, text=» INSRT TSCBUF,CBIN0,CBIN2,TSTR2,CBIN0 «, t00=0x0005, t01=0x007a}
0x0872…0894 Head {h00=0x001e, h01=0x0050, text=» WRITE DSDY,TSCBUF,CBIN80 «, t00=0x0005, t01=0x00a8}
0x0894…08a0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x00ca}
0x08a0…08ae Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x00d6}
0x08ae…08ba Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0005, t01=0x00e4}
0x08ba…08be Head {h00=0x4004, h01=0x0000}
0x08be…08c0 00 05 ┆ ┆
0x08c0…08c2 00 f0 ┆ ┆
0x08c2…08ca (6, 1, 8) 20 04 00 00 00 06 00 04 ┆ ┆
0x08ca…08d0 (7, 0, 6) 01 10 01 18 01 20 ┆ ┆
0x08d0…0920 (8, 0, 400) 00 1e 00 50 20 49 44 45 4e 54 20 4b 42 52 45 41 44 20 38 30 2e 31 30 2e 33 31 20 4e 4a 20 00 00 00 04 00 10 00 50 20 44 44 55 4d 20 4e 4a 44 44 49 56 00 00 00 26 00 0a 00 50 20 50 44 49 56 20 00 00 00 3a 00 12 00 50 20 45 4e 54 52 59 20 4b ┆ P IDENT KBREAD 80.10.31 NJ P DDUM NJDDIV & P PDIV : P ENTRY K┆
0x0920…0970 42 52 45 41 44 20 00 00 00 48 00 1c 00 50 20 45 58 50 52 4f 43 20 53 43 52 57 52 2c 50 53 54 52 47 2c 50 42 49 4e 00 00 00 5e 00 16 00 50 20 45 58 50 52 4f 43 20 50 55 53 48 2c 50 42 49 4e 20 00 00 00 7e 00 16 00 50 20 45 58 50 52 4f 43 20 ┆BREAD H P EXPROC SCRWR,PSTRG,PBIN ^ P EXPROC PUSH,PBIN ~ P EXPROC ┆
0x0970…09c0 50 55 4c 4c 2c 50 42 49 4e 20 00 00 00 98 00 06 00 50 2a 20 00 00 00 b2 00 06 00 50 2a 20 00 00 00 bc 00 14 00 50 20 49 4e 43 4c 55 44 45 20 45 51 55 41 54 45 20 00 00 00 c6 00 06 00 50 2a 20 00 00 00 de 00 06 00 50 2a 20 00 00 00 e8 00 0a ┆PULL,PBIN P* P* P INCLUDE EQUATE P* P* ┆
0x09c0…0a10 00 50 20 45 4a 45 43 54 00 00 00 f2 00 24 00 50 4b 42 52 45 41 44 20 50 52 4f 43 20 42 55 46 2c 4c 45 4e 2c 54 41 42 2c 49 4e 58 2c 54 59 50 20 00 00 01 00 00 16 00 50 20 50 42 49 4e 20 4c 45 4e 2c 49 4e 58 2c 54 59 50 20 00 00 01 28 00 0e ┆ P EJECT $ PKBREAD PROC BUF,LEN,TAB,INX,TYP P PBIN LEN,INX,TYP ( ┆
0x0a10…0a60 00 50 20 50 53 54 52 47 20 42 55 46 00 00 01 42 00 0e 00 50 20 50 4b 54 41 42 20 54 41 42 00 00 01 54 00 06 00 50 2a 20 00 00 01 66 00 2a 00 50 2a 20 54 48 45 20 50 52 4f 43 45 44 55 52 45 20 52 45 41 44 53 20 46 52 4f 4d 20 54 48 45 20 4b ┆ P PSTRG BUF B P PKTAB TAB T P* f * P* THE PROCEDURE READS FROM THE K┆
0x0a60…0ab0 (9, 0, 400) 42 36 32 37 32 2e 00 00 01 70 00 12 00 50 2a 20 50 41 52 41 4d 45 54 45 52 53 3a 20 00 01 00 0e 00 44 00 50 2a 20 20 20 4c 45 4e 20 2d 20 48 4f 57 20 4d 41 4e 59 20 43 48 41 52 41 43 54 45 52 53 20 54 4f 20 52 45 41 44 20 28 4d 41 58 29 2c ┆B6272. p P* PARAMETERS: D P* LEN - HOW MANY CHARACTERS TO READ (MAX),┆
0x0ab0…0b00 20 4f 4e 20 52 45 54 55 52 4e 20 54 48 49 53 20 49 54 45 4d 00 01 00 24 00 38 00 50 2a 20 20 20 20 20 20 20 20 20 57 49 4c 4c 20 43 4f 4e 54 41 49 4e 20 54 48 45 20 41 43 54 55 41 4c 20 4e 42 52 20 4f 46 20 43 48 41 52 53 20 52 45 41 44 20 ┆ ON RETURN THIS ITEM $ 8 P* WILL CONTAIN THE ACTUAL NBR OF CHARS READ ┆
0x0b00…0b50 00 01 00 6c 00 3c 00 50 2a 20 20 20 42 55 46 20 2d 20 57 48 45 52 45 20 54 4f 20 50 55 54 20 49 54 2e 20 49 46 20 54 48 49 53 20 57 41 53 20 41 20 4e 55 4d 45 52 49 43 41 4c 20 52 45 41 44 2c 00 01 00 a8 00 38 00 50 2a 20 20 20 20 20 20 20 ┆ l < P* BUF - WHERE TO PUT IT. IF THIS WAS A NUMERICAL READ, 8 P* ┆
0x0b50…0ba0 20 20 54 48 45 20 46 49 47 55 52 45 53 20 57 49 4c 4c 20 48 41 56 45 20 42 45 45 4e 20 52 49 47 48 54 20 4a 55 53 54 49 46 49 45 44 00 01 00 e8 00 44 00 50 2a 20 20 20 54 41 42 20 2d 20 4b 45 59 54 41 42 4c 45 2c 20 57 48 45 52 45 20 54 48 ┆ THE FIGURES WILL HAVE BEEN RIGHT JUSTIFIED D P* TAB - KEYTABLE, WHERE TH┆
0x0ba0…0bf0 45 20 56 41 4c 49 44 20 45 4e 44 2d 4f 46 2d 49 54 45 4d 20 4b 45 59 53 20 41 52 45 20 44 45 46 49 4e 45 44 00 01 01 24 00 4c 00 50 2a 20 20 20 49 4e 58 20 2d 20 4f 4e 20 43 4f 4d 50 4c 45 54 49 4f 4e 20 54 48 49 53 20 49 54 45 4d 20 57 49 ┆E VALID END-OF-ITEM KEYS ARE DEFINED $ L P* INX - ON COMPLETION THIS ITEM WI┆
0x0bf0…0c40 (10, 0, 400) 4c 4c 20 50 4f 49 4e 54 20 41 54 20 54 48 45 20 45 4e 44 2d 4f 46 2d 49 54 45 4d 20 4b 45 59 20 55 53 45 44 00 01 01 6c 00 3e 00 50 2a 20 20 20 54 59 50 20 2d 20 43 42 49 4e 31 20 46 4f 52 20 4e 55 4d 45 52 49 43 2c 20 43 42 49 4e 32 20 46 ┆LL POINT AT THE END-OF-ITEM KEY USED l > P* TYP - CBIN1 FOR NUMERIC, CBIN2 F┆
0x0c40…0c90 4f 52 20 41 4c 50 48 41 4e 55 4d 45 52 49 43 20 49 4e 50 55 54 20 00 02 00 2c 00 06 00 50 2a 20 00 02 00 6e 00 18 00 50 2a 20 53 50 45 43 49 41 4c 20 46 45 41 54 55 52 45 53 3a 20 00 02 00 78 00 3e 00 50 2a 20 20 20 42 53 50 20 2d 20 42 41 ┆OR ALPHANUMERIC INPUT , P* n P* SPECIAL FEATURES: x > P* BSP - BA┆
0x0c90…0ce0 43 4b 53 50 41 43 45 20 2d 20 4e 4f 4e 2d 44 45 53 54 52 55 43 54 49 56 45 20 43 55 52 53 4f 52 20 4d 4f 56 45 20 54 4f 20 4c 45 46 54 20 00 02 00 94 00 3e 00 50 2a 20 20 20 46 53 50 20 2d 20 46 57 44 53 50 41 43 45 20 20 2d 20 4e 4f 4e 2d ┆CKSPACE - NON-DESTRUCTIVE CURSOR MOVE TO LEFT > P* FSP - FWDSPACE - NON-┆
0x0ce0…0d30 44 45 53 54 52 55 43 54 49 56 45 20 43 55 52 53 4f 52 4d 4f 56 45 20 54 4f 20 52 49 47 48 54 20 00 02 00 d6 00 3c 00 50 2a 20 20 20 49 4e 53 20 2d 20 49 4e 53 45 52 54 20 20 20 20 2d 20 49 4e 53 45 52 54 20 4f 4e 45 20 43 48 41 52 54 41 43 ┆DESTRUCTIVE CURSORMOVE TO RIGHT < P* INS - INSERT - INSERT ONE CHARTAC┆
0x0d30…0d80 54 45 52 20 41 54 20 43 55 52 53 4f 52 50 4f 53 00 02 01 18 00 3e 00 50 2a 20 20 20 44 45 4c 20 2d 20 44 45 4c 45 54 45 20 20 20 20 2d 20 44 45 4c 45 54 45 20 4f 4e 45 20 43 48 41 52 41 43 54 45 52 20 46 52 4f 4d 20 43 55 52 53 4f 52 50 4f ┆TER AT CURSORPOS > P* DEL - DELETE - DELETE ONE CHARACTER FROM CURSORPO┆
0x0d80…0dd0 (11, 0, 400) 53 20 00 02 01 58 00 46 00 50 2a 20 20 20 43 41 4e 43 2d 20 43 41 4e 43 45 4c 20 20 20 20 2d 20 43 4c 45 41 52 20 49 4e 50 55 54 46 49 45 4c 44 20 41 4e 44 20 52 45 49 4e 49 54 49 41 54 45 20 52 45 41 44 43 4f 4d 4d 41 4e 44 20 00 03 00 0a ┆S X F P* CANC- CANCEL - CLEAR INPUTFIELD AND REINITIATE READCOMMAND ┆
0x0dd0…0e20 00 06 00 50 2a 20 00 03 00 54 00 2a 00 50 2a 20 54 42 49 4e 31 20 2d 20 4c 45 4e 47 54 48 20 4f 46 20 4a 55 53 54 20 43 4f 4d 50 4c 45 54 45 20 27 4b 49 27 00 03 00 5e 00 46 00 50 2a 20 54 42 49 4e 32 20 2d 20 4f 52 49 47 2e 20 4c 45 4e 47 ┆ P* T * P* TBIN1 - LENGTH OF JUST COMPLETE 'KI' ^ F P* TBIN2 - ORIG. LENG┆
0x0e20…0e70 54 48 2c 20 44 45 43 52 45 4d 45 4e 54 53 20 54 4f 20 5a 45 52 4f 20 57 48 45 4e 20 41 4c 4c 20 50 4f 53 20 41 52 45 20 49 4e 50 55 54 20 00 03 00 8c 00 24 00 50 2a 20 54 42 49 4e 33 20 2d 20 44 49 53 50 4c 41 43 45 4d 45 4e 54 20 49 4e 20 ┆TH, DECREMENTS TO ZERO WHEN ALL POS ARE INPUT $ P* TBIN3 - DISPLACEMENT IN ┆
0x0e70…0ec0 54 53 54 52 38 30 00 03 00 d6 00 1a 00 50 2a 20 54 42 49 4e 34 20 2d 20 4f 52 49 47 2e 20 4c 45 4e 47 54 48 00 03 00 fe 00 20 00 50 2a 20 54 42 49 4e 35 20 2d 20 49 4e 44 45 58 20 54 4f 20 4b 45 59 54 41 42 4c 45 20 00 03 01 1c 00 16 00 50 ┆TSTR80 P* TBIN4 - ORIG. LENGTH P* TBIN5 - INDEX TO KEYTABLE P┆
0x0ec0…0f10 2a 20 54 42 49 4e 36 20 2d 20 53 43 52 41 54 43 48 20 00 03 01 40 00 16 00 50 2a 20 54 42 49 4e 37 20 2d 20 53 43 52 41 54 43 48 20 00 03 01 5a 00 24 00 50 2a 20 54 42 49 4e 38 20 2d 20 54 4f 54 41 4c 20 4c 45 4e 47 54 48 20 4f 46 20 49 4e ┆* TBIN6 - SCRATCH @ P* TBIN7 - SCRATCH Z $ P* TBIN8 - TOTAL LENGTH OF IN┆
0x0f10…0f60 (12, 0, 400) 50 55 54 20 00 03 01 74 00 06 00 50 2a 20 00 04 00 0c 00 14 00 50 20 50 45 52 46 20 50 55 53 48 2c 43 42 49 4e 38 00 04 00 16 00 0a 00 50 4b 42 52 30 31 30 00 04 00 2e 00 24 00 50 20 4d 4f 56 45 20 54 42 49 4e 34 2c 4c 45 4e 20 53 41 56 45 ┆PUT t P* P PERF PUSH,CBIN8 PKBR010 . $ P MOVE TBIN4,LEN SAVE┆
0x0f60…0fb0 20 4f 52 49 47 2e 4c 45 4e 47 54 48 00 04 00 3c 00 14 00 50 20 4d 4f 56 45 20 54 42 49 4e 32 2c 4c 45 4e 20 00 04 00 64 00 18 00 50 20 4d 4f 56 45 20 54 53 54 52 38 30 2c 3d 58 27 30 30 27 20 00 04 00 7c 00 16 00 50 20 4d 4f 56 45 20 54 53 ┆ ORIG.LENGTH < P MOVE TBIN2,LEN d P MOVE TSTR80,=X'00' | P MOVE TS┆
0x0fb0…1000 54 52 31 2c 3d 58 27 30 30 27 00 04 00 98 00 14 00 50 20 4d 4f 56 45 20 42 55 46 2c 54 53 54 52 31 20 00 04 00 b2 00 16 00 50 20 4d 4f 56 45 20 54 42 49 4e 33 2c 43 42 49 4e 30 20 00 04 00 ca 00 16 00 50 20 4d 4f 56 45 20 54 42 49 4e 38 2c ┆TR1,=X'00' P MOVE BUF,TSTR1 P MOVE TBIN3,CBIN0 P MOVE TBIN8,┆
0x1000…1050 43 42 49 4e 30 20 00 04 00 e4 00 2a 00 50 20 43 4c 45 41 52 20 54 43 55 52 4d 4f 56 20 4e 4f 20 43 55 52 53 4f 52 4d 4f 56 45 4d 45 4e 54 53 20 59 45 54 20 00 04 00 fe 00 0a 00 50 4b 42 52 30 31 35 00 04 01 2c 00 1e 00 50 20 4b 49 20 44 53 ┆CBIN0 * P CLEAR TCURMOV NO CURSORMOVEMENTS YET PKBR015 , P KI DS┆
0x1050…10a0 4b 42 2c 42 55 46 2c 54 41 42 2c 54 42 49 4e 31 2c 49 4e 58 00 04 01 3a 00 26 00 50 20 42 4f 4b 20 4b 42 52 30 34 30 20 4b 45 59 4c 4f 43 4b 20 4f 52 20 54 45 52 4d 2e 20 43 48 41 52 2e 00 04 01 5c 00 2c 00 50 2a 20 41 20 43 48 41 52 20 4e ┆KB,BUF,TAB,TBIN1,INX : & P BOK KBR040 KEYLOCK OR TERM. CHAR. , P* A CHAR N┆