|
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: 3880 (0xf28)
Notes: pts_type(SC)
Names: »BDEINP.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »BARCLAY/BDEINP.SC«
└─⟦this⟧ »BARCLAY/BDEINP.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »BARCLAY/BDEINP.SC«
IDENT BDEINP 80.11.06 NJ DDUM NJDDIV PDIV ENTRY BDEINP EXPROC CRHOME EXPROC FINDLN,PSTRG,PBIN,PBIN EXPROC KBREAD,PBIN,PKTAB,PBIN,PBIN EXPROC CRFTAB EXPROC ERASUP EXPROC ATTUNP,PSTRG,PBIN EXPROC ATTPCK,PSTRG,PBIN EXPROC PUSH,PBIN EXPROC PULL,PBIN * * INCLUDE EQUATE * * INCLUDE KTABBE EJECT BDEINP PROC * THE PROCEDURE TAKES CARE OF THE INPUTFUNCTION IN BDE * THIS MEANS: * 1. SCANNING THE BUFFER FOR A MODIFYABLE FIELD * 2. POSITION THE CURSOR ACCORDINGLY * 3. PERFORM A KEYBOARDINPUT OPERATION * 4. SAVE THE KEYED-IN DATA IN THE BUFFER * PERF PUSH,CBIN5 BDEI000 PERF ERASUP ERASE UNPROTECTED FIELDS PERF CRHOME PUT CURSOR ON FIRST INPUTFIELD BERR BDEI095 NO INPUTFIELDS AT ALL MOVE TBIN4,CBIN0 BDEI010 MOVE TBIN2,TPOINTER PERF ATTUNP,TSCRBUF,TPOINTER SET ALL ATTRIBUTE BOOLEANS MOVE TBIN4,TPOINTER SAVE POINTER TO ATTRIBUTE ADD TPOINTER,CBIN1 POINT AT DATA (IF ANY) TBT TARITJUS,BDEI020 BRANCH IF NUMERIC FIELD MOVE TP3,CBIN2 NON-NUMERIC INPUT B BDEI030 BDEI020 MOVE TP3,CBIN1 NUMERIC INPUT BDEI030 MOVE TP1,CBIN0 FIND FIELD LENGTH PERF FINDLN,TSCRBUF,TPOINTER,CBIN80 LENGTH RETURNED IN TBIN2 PERF KBREAD,TP1,KTABBE,TP2,TP3 BNERR BDEI035 DSC1 DSDY,POS,TCURPOS REPOSITION CURSOR B BDEI030 AND REREAD BDEI035 IB TP2, C BDEI040, ENT C BDEI000, CU C BDEI040, TAB C BDEI030, FDE C BDEI030, BDE C BDEI030, ENQ C BDEI090, FR C BDEI030, TL C BDEI030 PTR BDEI040 XCOPY TSCRBUF,TPOINTER,TBIN5,TKBBUF,CBIN0 PERF ATTUNP,TSCRBUF,TBIN4 SET MODIFIED BIT SET TAMODIF IN BUFFER PERF ATTPCK,TSCRBUF,TBIN4 - BDEI042 PERF CRFTAB FIND NEXT FIELD BNOK BDEI090 NOTHING LEFT, INPUT FINISHED B BDEI010 ONE MORE TIME BDEI090 PERF PULL,CBIN5 CMP CBIN0,CBIN0 B BDEI099 BDEI095 PERF PULL,CBIN5 CMP CBIN0,CBIN1 BDEI099 RET PEND END
0x000…022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT BDEINP 80.11.06 NJ «, t00=0x0000, t01=0x0004}
0x022…036 Head {h00=0x0010, h01=0x0050, text=» DDUM NJDDIV«, t00=0x0000, t01=0x0026}
0x036…03e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x03e…046 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0042}
0x046…04e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x004a}
0x04e…056 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0052}
0x056…05e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x005a}
0x05e…066 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0062}
0x066…074 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x006a}
0x074…08a Head {h00=0x0012, h01=0x0050, text=» ENTRY BDEINP «, t00=0x0000, t01=0x0078}
0x08a…0a0 Head {h00=0x0012, h01=0x0050, text=» EXPROC CRHOME«, t00=0x0000, t01=0x008e}
0x0a0…0c6 Head {h00=0x0022, h01=0x0050, text=» EXPROC FINDLN,PSTRG,PBIN,PBIN«, t00=0x0000, t01=0x00a4}
0x0c6…0f2 Head {h00=0x0028, h01=0x0050, text=» EXPROC KBREAD,PBIN,PKTAB,PBIN,PBIN «, t00=0x0000, t01=0x00ca}
0x0f2…108 Head {h00=0x0012, h01=0x0050, text=» EXPROC CRFTAB«, t00=0x0000, t01=0x00f6}
0x108…11e Head {h00=0x0012, h01=0x0050, text=» EXPROC ERASUP«, t00=0x0000, t01=0x010c}
0x11e…140 Head {h00=0x001e, h01=0x0050, text=» EXPROC ATTUNP,PSTRG,PBIN «, t00=0x0000, t01=0x0122}
0x140…162 Head {h00=0x001e, h01=0x0050, text=» EXPROC ATTPCK,PSTRG,PBIN «, t00=0x0000, t01=0x0144}
0x162…17c Head {h00=0x0016, h01=0x0050, text=» EXPROC PUSH,PBIN «, t00=0x0000, t01=0x0166}
0x17c…196 Head {h00=0x0016, h01=0x0050, text=» EXPROC PULL,PBIN «, t00=0x0000, t01=0x0180}
0x196…1a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000a}
0x1a0…1aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0014}
0x1aa…1c2 Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x001e}
0x1c2…1cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0036}
0x1cc…1d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0040}
0x1d6…1ee Head {h00=0x0014, h01=0x0050, text=» INCLUDE KTABBE «, t00=0x0001, t01=0x004a}
0x1ee…1fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0062}
0x1fc…210 Head {h00=0x0010, h01=0x0050, text=»BDEINP PROC «, t00=0x0001, t01=0x0070}
0x210…24e Head {h00=0x003a, h01=0x0050, text=»* THE PROCEDURE TAKES CARE OF THE INPUTFUNCTION IN BDE«, t00=0x0001, t01=0x0084}
0x24e…264 Head {h00=0x0012, h01=0x0050, text=»* THIS MEANS: «, t00=0x0001, t01=0x00c2}
0x264…2a0 Head {h00=0x0038, h01=0x0050, text=»* 1. SCANNING THE BUFFER FOR A MODIFYABLE FIELD «, t00=0x0001, t01=0x00d8}
0x2a0…2d0 Head {h00=0x002c, h01=0x0050, text=»* 2. POSITION THE CURSOR ACCORDINGLY«, t00=0x0001, t01=0x0114}
0x2d0…302 Head {h00=0x002e, h01=0x0050, text=»* 3. PERFORM A KEYBOARDINPUT OPERATION«, t00=0x0001, t01=0x0144}
0x302…338 Head {h00=0x0032, h01=0x0050, text=»* 4. SAVE THE KEYED-IN DATA IN THE BUFFER «, t00=0x0001, t01=0x0176}
0x338…342 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001c}
0x342…35a Head {h00=0x0014, h01=0x0050, text=» PERF PUSH,CBIN5«, t00=0x0002, t01=0x0026}
0x35a…36a Head {h00=0x000c, h01=0x0050, text=»BDEI000 «, t00=0x0002, t01=0x003e}
0x36a…398 Head {h00=0x002a, h01=0x0050, text=» PERF ERASUP ERASE UNPROTECTED FIELDS «, t00=0x0002, t01=0x004e}
0x398…3cc Head {h00=0x0030, h01=0x0050, text=» PERF CRHOME PUT CURSOR ON FIRST INPUTFIELD «, t00=0x0002, t01=0x007c}
0x3cc…3f8 Head {h00=0x0028, h01=0x0050, text=» BERR BDEI095 NO INPUTFIELDS AT ALL «, t00=0x0002, t01=0x00b0}
0x3f8…412 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN4,CBIN0 «, t00=0x0002, t01=0x00dc}
0x412…422 Head {h00=0x000c, h01=0x0050, text=»BDEI010 «, t00=0x0002, t01=0x00f6}
0x422…43e Head {h00=0x0018, h01=0x0050, text=» MOVE TBIN2,TPOINTER«, t00=0x0002, t01=0x0106}
0x43e…47e Head {h00=0x003c, h01=0x0050, text=» PERF ATTUNP,TSCRBUF,TPOINTER SET ALL ATTRIBUTE BOOLEANS«, t00=0x0002, t01=0x0122}
0x47e…4b4 Head {h00=0x0032, h01=0x0050, text=» MOVE TBIN4,TPOINTER SAVE POINTER TO ATTRIBUTE«, t00=0x0002, t01=0x0162}
0x4b4…4e6 Head {h00=0x002e, h01=0x0050, text=» ADD TPOINTER,CBIN1 POINT AT DATA (IF ANY)«, t00=0x0003, t01=0x0008}
0x4e6…51c Head {h00=0x0032, h01=0x0050, text=» TBT TARITJUS,BDEI020 BRANCH IF NUMERIC FIELD «, t00=0x0003, t01=0x003a}
0x51c…546 Head {h00=0x0026, h01=0x0050, text=» MOVE TP3,CBIN2 NON-NUMERIC INPUT «, t00=0x0003, t01=0x0070}
0x546…558 Head {h00=0x000e, h01=0x0050, text=» B BDEI030«, t00=0x0003, t01=0x009a}
0x558…568 Head {h00=0x000c, h01=0x0050, text=»BDEI020 «, t00=0x0003, t01=0x00ac}
0x568…58e Head {h00=0x0022, h01=0x0050, text=» MOVE TP3,CBIN1 NUMERIC INPUT «, t00=0x0003, t01=0x00bc}
0x58e…59e Head {h00=0x000c, h01=0x0050, text=»BDEI030 «, t00=0x0003, t01=0x00e2}
0x59e…5c8 Head {h00=0x0026, h01=0x0050, text=» MOVE TP1,CBIN0 FIND FIELD LENGTH «, t00=0x0003, t01=0x00f2}
0x5c8…60e Head {h00=0x0042, h01=0x0050, text=» PERF FINDLN,TSCRBUF,TPOINTER,CBIN80 LENGTH RETURNED IN TBIN2 «, t00=0x0003, t01=0x011c}
0x60e…636 Head {h00=0x0024, h01=0x0050, text=» PERF KBREAD,TP1,KTABBE,TP2,TP3 «, t00=0x0003, t01=0x0162}
0x636…64c Head {h00=0x0012, h01=0x0050, text=» BNERR BDEI035«, t00=0x0003, t01=0x018a}
0x64c…67c Head {h00=0x002c, h01=0x0050, text=» DSC1 DSDY,POS,TCURPOS REPOSITION CURSOR«, t00=0x0004, t01=0x0010}
0x67c…69a Head {h00=0x001a, h01=0x0050, text=» B BDEI030 AND REREAD «, t00=0x0004, t01=0x0040}
0x69a…6aa Head {h00=0x000c, h01=0x0050, text=»BDEI035 «, t00=0x0004, t01=0x005e}
0x6aa…6be Head {h00=0x0010, h01=0x0050, text=» IB TP2, C «, t00=0x0004, t01=0x006e}
0x6be…6d6 Head {h00=0x0014, h01=0x0050, text=» BDEI040, ENT C«, t00=0x0004, t01=0x0082}
0x6d6…6ee Head {h00=0x0014, h01=0x0050, text=» BDEI000, CU C «, t00=0x0004, t01=0x009a}
0x6ee…706 Head {h00=0x0014, h01=0x0050, text=» BDEI040, TAB C«, t00=0x0004, t01=0x00b2}
0x706…71e Head {h00=0x0014, h01=0x0050, text=» BDEI030, FDE C«, t00=0x0004, t01=0x00ca}
0x71e…736 Head {h00=0x0014, h01=0x0050, text=» BDEI030, BDE C«, t00=0x0004, t01=0x00e2}
0x736…74e Head {h00=0x0014, h01=0x0050, text=» BDEI030, ENQ C«, t00=0x0004, t01=0x00fa}
0x74e…766 Head {h00=0x0014, h01=0x0050, text=» BDEI090, FR C «, t00=0x0004, t01=0x0112}
0x766…77e Head {h00=0x0014, h01=0x0050, text=» BDEI030, TL C «, t00=0x0004, t01=0x012a}
0x77e…794 Head {h00=0x0012, h01=0x0050, text=» BDEI030 PTR «, t00=0x0004, t01=0x0142}
0x794…7a4 Head {h00=0x000c, h01=0x0050, text=»BDEI040 «, t00=0x0004, t01=0x0158}
0x7a4…7d6 Head {h00=0x002e, h01=0x0050, text=» XCOPY TSCRBUF,TPOINTER,TBIN5,TKBBUF,CBIN0«, t00=0x0004, t01=0x0168}
0x7d6…80a Head {h00=0x0030, h01=0x0050, text=» PERF ATTUNP,TSCRBUF,TBIN4 SET MODIFIED BIT «, t00=0x0005, t01=0x000a}
0x80a…828 Head {h00=0x001a, h01=0x0050, text=» SET TAMODIF IN BUFFER«, t00=0x0005, t01=0x003e}
0x828…84c Head {h00=0x0020, h01=0x0050, text=» PERF ATTPCK,TSCRBUF,TBIN4 -«, t00=0x0005, t01=0x005c}
0x84c…85c Head {h00=0x000c, h01=0x0050, text=»BDEI042 «, t00=0x0005, t01=0x0080}
0x85c…880 Head {h00=0x0020, h01=0x0050, text=» PERF CRFTAB FIND NEXT FIELD«, t00=0x0005, t01=0x0090}
0x880…8b2 Head {h00=0x002e, h01=0x0050, text=» BNOK BDEI090 NOTHING LEFT, INPUT FINISHED«, t00=0x0005, t01=0x00b4}
0x8b2…8d2 Head {h00=0x001c, h01=0x0050, text=» B BDEI010 ONE MORE TIME«, t00=0x0005, t01=0x00e6}
0x8d2…8e2 Head {h00=0x000c, h01=0x0050, text=»BDEI090 «, t00=0x0005, t01=0x0106}
0x8e2…8fa Head {h00=0x0014, h01=0x0050, text=» PERF PULL,CBIN5«, t00=0x0005, t01=0x0116}
0x8fa…912 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0005, t01=0x012e}
0x912…924 Head {h00=0x000e, h01=0x0050, text=» B BDEI099«, t00=0x0005, t01=0x0146}
0x924…934 Head {h00=0x000c, h01=0x0050, text=»BDEI095 «, t00=0x0005, t01=0x0158}
0x934…94c Head {h00=0x0014, h01=0x0050, text=» PERF PULL,CBIN5«, t00=0x0005, t01=0x0168}
0x94c…964 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0005, t01=0x0180}
0x964…974 Head {h00=0x000c, h01=0x0050, text=»BDEI099 «, t00=0x0006, t01=0x0008}
0x974…980 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0018}
0x980…98e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x0024}
0x98e…99a Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0006, t01=0x0032}
0x99a…99e Head {h00=0x4004, h01=0x0000}
0x99e…9a2 00 06 00 3e ┆ >┆
0x9a2…9aa (7, 1, 8) 20 04 00 00 00 07 00 04 ┆ ┆
0x9aa…9fa (8, 0, 400) 00 36 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 00 00 00 04 00 06 00 50 2a 20 00 00 00 3e 00 20 00 50 2a 20 4b 45 59 54 41 42 ┆ 6 P************************************************** P* > P* KEYTAB┆
0x9fa…a4a 4c 45 20 55 53 45 44 20 46 4f 52 20 42 44 45 2f 45 4e 51 20 00 00 00 48 00 06 00 50 2a 20 00 00 00 6c 00 2a 00 50 2a 20 54 48 45 20 46 49 52 53 54 20 38 20 4b 45 59 53 20 41 52 45 20 50 52 45 44 45 46 49 4e 45 44 20 41 4e 44 20 00 00 00 76 ┆LE USED FOR BDE/ENQ H P* l * P* THE FIRST 8 KEYS ARE PREDEFINED AND v┆
0xa4a…a9a 00 2e 00 50 2a 20 4d 55 53 54 20 41 4c 57 41 59 53 20 42 45 20 50 52 45 53 45 4e 54 20 49 4e 20 41 4e 59 20 4b 45 59 54 41 42 4c 45 2e 20 00 00 00 a4 00 06 00 50 2a 20 00 00 00 d6 00 36 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ . P* MUST ALWAYS BE PRESENT IN ANY KEYTABLE. P* 6 P****************┆
0xa9a…aea 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 00 00 e0 00 04 00 50 00 00 01 1a 00 04 00 50 00 00 01 22 00 04 00 50 00 00 01 2a 00 1a 00 50 4b 54 41 42 42 45 20 4b 54 41 42 20 4b 59 ┆********************************** P P " P * PKTABBE KTAB KY┆
0xaea…b3a 4c 45 46 54 2c 5c 5c 43 00 00 01 32 00 10 00 50 5c 5c 4b 59 52 49 47 54 2c 5c 5c 43 00 00 01 50 00 10 00 50 5c 5c 4b 59 49 4e 53 2c 5c 5c 43 20 00 00 01 64 00 10 00 50 5c 5c 4b 59 44 45 4c 2c 5c 5c 43 20 00 00 01 78 00 10 00 50 5c 5c 4b 59 ┆LEFT, C 2 P KYRIGT, C P P KYINS, C d P KYDEL, C x P KY┆
0xb3a…b8a (9, 2, 198) 43 41 4e 43 2c 5c 5c 43 00 00 01 8c 00 10 00 50 5c 5c 4b 59 45 4e 54 2c 5c 5c 43 20 00 01 00 10 00 0e 00 50 5c 5c 4b 59 43 55 2c 5c 5c 43 00 01 00 24 00 10 00 50 5c 5c 4b 59 54 41 42 2c 5c 5c 43 20 00 01 00 36 00 10 00 50 5c 5c 4b 59 46 44 ┆CANC, C P KYENT, C P KYCU, C $ P KYTAB, C 6 P KYFD┆
0xb8a…bda 45 2c 5c 5c 43 20 00 01 00 4a 00 10 00 50 5c 5c 4b 59 42 44 45 2c 5c 5c 43 20 00 01 00 5e 00 10 00 50 5c 5c 4b 59 45 4e 51 2c 5c 5c 43 20 00 01 00 72 00 0e 00 50 5c 5c 4b 59 46 52 2c 5c 5c 43 00 01 00 86 00 0e 00 50 5c 5c 4b 59 54 4c 2c 5c ┆E, C J P KYBDE, C ^ P KYENQ, C r P KYFR, C P KYTL, ┆
0xbda…c00 5c 43 00 01 00 98 00 0c 00 50 5c 5c 4b 59 50 54 52 20 00 01 00 aa 00 04 00 50 00 01 00 ba 40 04 00 00 00 01 00 c2 ┆ C P KYPTR P @ ┆
0xc00…c08 (10, 1, 8) 20 04 00 00 00 02 00 04 ┆ ┆
0xc08…c58 (11, 0, 400) 50 4f 53 20 00 02 01 5a 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 ┆POS Z F P* CANC- CANCEL - CLEAR INPUTFIELD AND REINITIATE READCOMMAND ┆
0xc58…ca8 00 0c 00 06 00 50 2a 20 00 03 00 56 00 24 00 50 2a 20 54 42 49 4e 31 20 2d 20 4c 45 4e 47 54 48 20 4f 46 20 43 55 52 52 45 4e 54 20 27 4b 49 27 00 03 00 60 00 46 00 50 2a 20 54 42 49 4e 32 20 2d 20 4f 52 49 47 2e 20 4c 45 4e 47 54 48 2c 20 ┆ P* V $ P* TBIN1 - LENGTH OF CURRENT 'KI' ` F P* TBIN2 - ORIG. LENGTH, ┆
0xca8…cf8 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 88 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 54 53 54 52 ┆DECREMENTS TO ZERO WHEN ALL POS ARE INPUT $ P* TBIN3 - DISPLACEMENT IN TSTR┆
0xcf8…d48 38 30 00 03 00 d2 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 fa 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 18 00 14 00 50 20 50 45 52 ┆80 P* TBIN4 - ORIG. LENGTH P* TBIN5 - INDEX TO KEYTABLE P PER┆
0xd48…d98 46 20 50 55 53 48 2c 43 42 49 4e 38 00 03 01 3c 00 0a 00 50 4b 42 52 30 31 30 00 03 01 54 00 24 00 50 20 4d 4f 56 45 20 54 42 49 4e 34 2c 4c 45 4e 20 53 41 56 45 20 4f 52 49 47 2e 4c 45 4e 47 54 48 00 03 01 62 00 14 00 50 20 4d 4f 56 45 20 ┆F PUSH,CBIN8 < PKBR010 T $ P MOVE TBIN4,LEN SAVE ORIG.LENGTH b P MOVE ┆
0xd98…de8 (12, 0, 400) 54 42 49 4e 32 2c 4c 45 4e 20 00 03 01 8a 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 12 00 14 00 50 20 4d 4f 56 45 20 42 55 46 2c 3d 58 27 30 30 27 00 04 00 2e 00 16 00 50 20 4d 4f 56 45 20 54 42 49 4e ┆TBIN2,LEN P MOVE TSTR80,=X'00' P MOVE BUF,=X'00' . P MOVE TBIN┆
0xde8…e38 33 2c 43 42 49 4e 30 20 00 04 00 46 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 60 00 0a 00 50 4b 42 52 30 31 35 00 04 00 8e 00 1e 00 50 20 4b 49 20 ┆3,CBIN0 F * P CLEAR TCURMOV NO CURSORMOVEMENTS YET ` PKBR015 P KI ┆
0xe38…e88 44 53 4b 42 2c 42 55 46 2c 54 41 42 2c 54 42 49 4e 31 2c 49 4e 58 00 04 00 9c 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 00 be 00 2c 00 50 2a 20 41 20 43 48 41 52 ┆DSKB,BUF,TAB,TBIN1,INX & P BOK KBR040 KEYLOCK OR TERM. CHAR. , P* A CHAR┆
0xe88…ed8 20 4e 45 49 54 48 45 52 20 41 4c 50 48 41 4e 55 4d 20 4e 4f 52 20 4c 49 53 54 45 44 20 49 4e 20 00 04 00 e8 00 1c 00 50 2a 20 20 20 20 20 20 4b 45 59 54 41 42 4c 45 20 49 53 20 49 4e 50 55 54 00 04 01 18 00 20 00 50 2a 20 53 49 5a 45 20 4f ┆ NEITHER ALPHANUM NOR LISTED IN P* KEYTABLE IS INPUT P* SIZE O┆
0xed8…f28 46 20 42 55 46 46 45 52 20 49 53 20 52 45 41 43 48 45 44 20 00 04 01 38 00 14 00 50 2a 20 50 4f 57 45 52 20 46 41 49 4c 55 52 45 20 00 04 01 5c 00 22 00 50 2a 20 52 45 51 2e 20 4e 42 52 20 4f 46 20 43 48 41 52 53 20 49 53 20 52 45 41 43 48 ┆F BUFFER IS REACHED 8 P* POWER FAILURE " P* REQ. NBR OF CHARS IS REACH┆