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

⟦13c9f2815⟧

    Length: 7932 (0x1efc)
    Notes: pts_type(SC)
    Names: »KBREAD.SC«

Derivation

└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
    └─⟦this⟧ »BARCLAY/KBREAD.SC« 
    └─⟦this⟧ »BARCLAY/KBREAD.SC« 
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
    └─⟦this⟧ »BARCLAY/KBREAD.SC« 

PTS(SC)

 IDENT KBREAD 80.11.07 NJ 
 DDUM NJDDIV
 PDIV 
 ENTRY KBREAD 
 ENTRY FIND00 
 EXPROC SCRWR,PSTRG,PBIN
 EXPROC PUSH,PBIN 
 EXPROC PULL,PBIN 
* 
* 
 INCLUDE EQUATE 
* 
* 
 EJECT
KBREAD PROC LEN,TAB,INX,TYP 
 PBIN LEN,INX,TYP 
 PKTAB TAB
* 
* THE PROCEDURE READS FROM THE KB6272.
* PARAMETERS: 
*   LEN - HOW MANY CHARACTERS TO READ (MAX), ON RETURN THIS ITEM
*         WILL CONTAIN THE ACTUAL NBR OF CHARS READ 
*   TAB - KEYTABLE, WHERE THE VALID END-OF-ITEM KEYS ARE DEFINED
*   INX - ON COMPLETION THIS ITEM WILL POINT AT THE END-OF-ITEM KEY USED
*   TYP - CBIN1 FOR NUMERIC, CBIN2 FOR ALPHANUMERIC INPUT 
* 
* SPECIAL FEATURES: 
*   BSP - BACKSPACE - NON-DESTRUCTIVE CURSOR MOVE TO LEFT 
*   FSP - FWDSPACE  - NON-DESTRUCTIVE CURSORMOVE TO RIGHT 
*   INS - INSERT    - INSERT ONE CHARTACTER AT CURSORPOS
*   DEL - DELETE    - DELETE ONE CHARACTER FROM CURSORPOS 
*   CANC- CANCEL    - CLEAR INPUTFIELD AND REINITIATE READCOMMAND 
* 
* TBIN1 - LENGTH OF JUST COMPLETE 'KI'
* TBIN2 - ORIG. LENGTH, DECREMENTS TO ZERO WHEN ALL POS ARE INPUT 
* TBIN3 - DISPLACEMENT IN TSTR80
* TBIN4 - ORIG. LENGTH
* TBIN5 - INDEX TO KEYTABLE 
* TBIN6 - SCRATCH 
* TBIN7 - SCRATCH 
* TBIN8 - NOT USED P.T. 
* 
 EJECT
 PERF PUSH,CBIN8
KBR010
 CLEAR TBOOL
 MOVE TBIN4,LEN SAVE ORIG.LENGTH
 MOVE TBIN2,LEN 
 MOVE TSTR80,=X'00' 
 MOVE TBIN7,TCURPOS TCURPOS MIGHT BE MODIFIED 
 MOVE TBIN3,CBIN0 
 DSC1 DSDY,POS,TBIN7
* 
 CLEAR TCURMOV NO CURSORMOVEMENTS YET 
KBR015
 MOVE TBIN6,TBIN2 
KBR017
 MOVE TKBBUF,='++.' 
 ADD TBIN6,CBIN2
 WRITE DSDY,TKBBUF,TBIN6 CLEAR INPUTFIELD WITH .. 
KBR016
 DSC1 DSDY,POS,TBIN7
 MOVE TBIN1,TBIN2 RESTLENGTH
 CBNG TBIN1,CBIN0,KBR030 FTAB IF FILLED UP
 KI DSKB,TKBBUF,TAB,TBIN1,INX 
 BOK KBR040 KEYLOCK OR TERM. CHAR.
* A CHAR NEITHER ALPHANUM NOR LISTED IN 
*      KEYTABLE IS INPUT
* SIZE OF BUFFER IS REACHED 
* POWER FAILURE 
* REQ. NBR OF CHARS IS REACHED
 SUB TBIN1,CBIN1 EXCL. EOI-KEY FROM LENGTH
 CBE INX,CBIN0,KBR020 POWER FAILURE ? 
 CBE TBIN4,TBIN2,KBR030 OVERFLOW: PROCESS AS FTAB 
KBR020
 PERF PULL,CBIN8
 CMP CBIN0,CBIN1 UNDEF. ERROR OR PWR FAILURE
 B KBR099 RETURN
KBR030
 MOVE INX,CBIN3 SIMULATE FTABKEY
 ADD TBIN1,CBIN1
 B KBR094 RETURN
KBR040
 CBG TBIN1,CBIN1,KBR045 IF MORE THEN 1 INPUTCHAR
 CLEAR TBOOL WE CAN RESET TBOOL 
KBR045
 CBNG INX,CBIN0,KBR020 POWER FAILURE ?
 SUB TBIN1,CBIN1
 MOVE TBIN5,INX SAVE INDEX TO KEYTABLE
 SUB INX,CBIN5 ADJUST INDEX 
 BP KBR094 WAS IT ANY OF THE 5 SPEC KEYS? 
 TBT TBOOL,KBR020 INPUT WAS EXPECTED
 SET TCURMOV CURSORMOVE HAS TAKEN PLACE 
 IB TBIN5, YES,	C 
		KBR050,	BSP,	C
		KBR060,	FSP,	C
		KBR070,	INS	C 
		KBR080,	DEL	C 
		KBR090	CANCEL 
 B KBR094 SHOULD BE IMPOSSIBLE
**********
KBR050			BACKSPACE KEY PRESSED
 SUB TBIN2,TBIN1 HOW MANY CHARS LEFT
 ADD TBIN2,CBIN1
 CBNL TBIN2,LEN,KBR010 BACKSPACED WE TO START?
 XCOPY TSTR80,TBIN3,TBIN1,TKBBUF,CBIN0
 ADD TBIN3,TBIN1 FIELD LENGTH 
 SUB TBIN3,CBIN1 MINUS 1
 MOVE TBIN7,TCURPOS MOVE CURSOR ONE POS 
 ADD TBIN7,TBIN3 -//- 
 B KBR016 
**********
KBR060			FORWARDSPACE KEY 
 SUB TBIN2,TBIN1 HOW MANY CHARS MAY WE READ 
 SUB TBIN2,CBIN1
 XCOPY TSTR80,TBIN3,TBIN1,TKBBUF,CBIN0
 ADD TBIN3,TBIN1 FIELD LENGTH 
 ADD TBIN3,CBIN1 PLUS ONE 
 MOVE TBIN7,TCURPOS MOVE CURSOR ONE POS 
 ADD TBIN7,TBIN3 -//- 
 B KBR016 
**********
KBR070			INSERT 
 XCOPY TSTR80,TBIN3,TBIN1,TKBBUF,CBIN0
 MOVE TSTR2,=' '
 INSRT TSTR80,TBIN3,CBIN1,TSTR2,CBIN0 
 MOVE TSCBUF,TSTR80 
 MOVE TSTR2,='+'
 INSRT TSCBUF,CBIN0,CBIN2,TSTR2,CBIN0 
 PERF FIND00,TSCBUF 
 ADD TBIN6,CBIN3 ALLOW FOR CNTRL CHAR + SPACE 
 DSC1 DSDY,POS,TCURPOS
 WRITE DSDY,TSCBUF,TBIN6
 MOVE TBIN7,TCURPOS 
 ADD TBIN7,TBIN3
 SUB TBIN2,TBIN1 REDUCE RESTLENGTH
 SUB TBIN2,CBIN1
 CBE TBIN2,CBIN0,KBR030 FILLED, SIMULATE FTAB 
 SET TBOOL NEXT MUST BE DATA
 B KBR016 
**********
KBR080			DELETE ONE CHAR
 XCOPY TSTR80,TBIN3,TBIN1,TKBBUF,CBIN0
 DLETE TSTR80,TBIN3,CBIN1 
 MOVE TSCBUF,TSTR80 
 MOVE TSTR2,='+'
 INSRT TSCBUF,CBIN0,CBIN2,TSTR2,CBIN0 
 PERF FIND00,TSCBUF 
 SUB TBIN6,TBIN3
 ADD TBIN6,CBIN2
 DLETE TSCBUF,CBIN2,TBIN3 
 MOVE TBIN7,CBIN0 ONE CHARACTER MUST BE 
 MOVE TSTR1,=X'00' REPLACE BY PERIOD
 MATCH TSCBUF,TBIN7,CBIN80,TSTR1,CBIN0,CBIN1
 MOVE TSTR1,='.'
 XCOPY TSCBUF,TBIN7,CBIN1,TSTR1,CBIN0 
 WRITE DSDY,TSCBUF,TBIN6
 MOVE TBIN7,TCURPOS 
 ADD TBIN7,TBIN3
 SUB TBIN2,TBIN1
 ADD TBIN2,CBIN1
 ADD TBIN3,TBIN1
 B KBR016 
**********
KBR090			CANCEL THIS 'KI' 
 DSC1 DSDY,POS,TCURPOS REPOS. CURSOR
 DSC1 DSDY,ERASE,TBIN4 ERASE FIELD
 DSC1 DSDY,POS,TCURPOS REPOS. AGAIN 
 B KBR010 
*********** 
KBR094
 MOVE TBIN6,TCURPOS 
 DSC1 DSDY,POS,TBIN6
 TBF TCURMOV,KBR095 ANY EXPL. CURSORMOVEMENTS?
 XCOPY TSTR80,TBIN3,TBIN1,TKBBUF,CBIN0 COMPLETE BUFFER
 MOVE TKBBUF,TSTR80 MOVE COMPLETED BUFFER TO APPL 
KBR095
 CBE CBIN2,TYP,KBR098 ALPHANUMERIC? 
 PERF FIND00,TKBBUF 
 MOVE TBIN2,TBIN4 
 SUB TBIN2,TBIN6 HOW MANY ZEROES TO INSERT? 
 MOVE TSTR80,='0' 
 INSRT TKBBUF,CBIN0,TBIN2,TSTR80,CBIN0 MODIFY BUFFER
 DSC1 DSDY,POS,TCURPOS
 PERF SCRWR,TKBBUF,TBIN4 AND REWRITE ON SCREEN
 B KBR098A
KBR098
 PERF FIND00,TKBBUF 
KBR098A 
 SUB TBIN4,LEN ERASE REST OF INPUTFIELD 
 DSC1 DSDY,ERASE,TBIN4
 MOVE LEN,TBIN6 
 PERF PULL,CBIN8
 CMP CBIN0,CBIN0
KBR099
 RET
 PEND 
 EJECT
FIND00 PROC BUF 
* 
* FIND THE LENGTH OF THE DATAFIELD IN THE 
* BUFFER SPECIFIED. 
* IF THE LAST NON-ZERO CHAR IS BELOW X'20'
* (EOI-KEY) THE COUNT WILL BE DECREASED BY 1. 
* 
 PSTRG BUF
 MOVE TSTR1,=X'00'
 MOVE TBIN6,CBIN0 
 MOVE TBIN7,=W'32' OBS OBS LENGTH OF TKBBUF 
 MATCH BUF,TBIN6,TBIN7,TSTR1,CBIN0,CBIN1
 MOVE TBIN7,TBIN6 
 SUB TBIN7,CBIN1
 XCOPY TSTR1,CBIN0,CBIN1,TKBBUF,TBIN7 
 CBNL TSTR1,=' ',FIN010 < X'20' IS EOI KEY
 SUB TBIN6,CBIN1
FIN010
 RET
 PEND 
 END

HexDump

0x0000…0022 (0, 0, 400)  Head {h00=0x001e, h01=0x0050, text=» IDENT KBREAD 80.11.07 NJ «, t00=0x0000, t01=0x0004}
0x0022…0036              Head {h00=0x0010, h01=0x0050, text=» DDUM NJDDIV«, t00=0x0000, t01=0x0026}
0x0036…0044              Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x003a}
0x0044…005a              Head {h00=0x0012, h01=0x0050, text=» ENTRY KBREAD «, t00=0x0000, t01=0x0048}
0x005a…0070              Head {h00=0x0012, h01=0x0050, text=» ENTRY FIND00 «, t00=0x0000, t01=0x005e}
0x0070…0090              Head {h00=0x001c, h01=0x0050, text=» EXPROC SCRWR,PSTRG,PBIN«, t00=0x0000, t01=0x0074}
0x0090…00aa              Head {h00=0x0016, h01=0x0050, text=» EXPROC PUSH,PBIN «, t00=0x0000, t01=0x0094}
0x00aa…00c4              Head {h00=0x0016, h01=0x0050, text=» EXPROC PULL,PBIN «, t00=0x0000, t01=0x00ae}
0x00c4…00ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c8}
0x00ce…00d8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00d2}
0x00d8…00f0              Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0000, t01=0x00dc}
0x00f0…00fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f4}
0x00fa…0104              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fe}
0x0104…0112              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x0108}
0x0112…0136              Head {h00=0x0020, h01=0x0050, text=»KBREAD PROC LEN,TAB,INX,TYP «, t00=0x0000, t01=0x0116}
0x0136…0150              Head {h00=0x0016, h01=0x0050, text=» PBIN LEN,INX,TYP «, t00=0x0000, t01=0x013a}
0x0150…0162              Head {h00=0x000e, h01=0x0050, text=» PKTAB TAB«, t00=0x0000, t01=0x0154}
0x0162…016c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0166}
0x016c…019a              Head {h00=0x002a, h01=0x0050, text=»* THE PROCEDURE READS FROM THE KB6272.«, t00=0x0000, t01=0x0170}
0x019a…01b0              Head {h00=0x0012, h01=0x0050, text=»* PARAMETERS: «, t00=0x0001, t01=0x000e}
0x01b0…01f8              Head {h00=0x0044, h01=0x0050, text=»*   LEN - HOW MANY CHARACTERS TO READ (MAX), ON RETURN THIS ITEM«, t00=0x0001, t01=0x0024}
0x01f8…0234              Head {h00=0x0038, h01=0x0050, text=»*         WILL CONTAIN THE ACTUAL NBR OF CHARS READ «, t00=0x0001, t01=0x006c}
0x0234…027c              Head {h00=0x0044, h01=0x0050, text=»*   TAB - KEYTABLE, WHERE THE VALID END-OF-ITEM KEYS ARE DEFINED«, t00=0x0001, t01=0x00a8}
0x027c…02cc              Head {h00=0x004c, h01=0x0050, text=»*   INX - ON COMPLETION THIS ITEM WILL POINT AT THE END-OF-ITEM KEY USED«, t00=0x0001, t01=0x00f0}
0x02cc…030e              Head {h00=0x003e, h01=0x0050, text=»*   TYP - CBIN1 FOR NUMERIC, CBIN2 FOR ALPHANUMERIC INPUT «, t00=0x0001, t01=0x0140}
0x030e…0318              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0182}
0x0318…0334              Head {h00=0x0018, h01=0x0050, text=»* SPECIAL FEATURES: «, t00=0x0001, t01=0x018c}
0x0334…0376              Head {h00=0x003e, h01=0x0050, text=»*   BSP - BACKSPACE - NON-DESTRUCTIVE CURSOR MOVE TO LEFT «, t00=0x0002, t01=0x0018}
0x0376…03b8              Head {h00=0x003e, h01=0x0050, text=»*   FSP - FWDSPACE  - NON-DESTRUCTIVE CURSORMOVE TO RIGHT «, t00=0x0002, t01=0x005a}
0x03b8…03f8              Head {h00=0x003c, h01=0x0050, text=»*   INS - INSERT    - INSERT ONE CHARTACTER AT CURSORPOS«, t00=0x0002, t01=0x009c}
0x03f8…043a              Head {h00=0x003e, h01=0x0050, text=»*   DEL - DELETE    - DELETE ONE CHARACTER FROM CURSORPOS «, t00=0x0002, t01=0x00dc}
0x043a…0484              Head {h00=0x0046, h01=0x0050, text=»*   CANC- CANCEL    - CLEAR INPUTFIELD AND REINITIATE READCOMMAND «, t00=0x0002, t01=0x011e}
0x0484…048e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0168}
0x048e…04bc              Head {h00=0x002a, h01=0x0050, text=»* TBIN1 - LENGTH OF JUST COMPLETE 'KI'«, t00=0x0002, t01=0x0172}
0x04bc…0506              Head {h00=0x0046, h01=0x0050, text=»* TBIN2 - ORIG. LENGTH, DECREMENTS TO ZERO WHEN ALL POS ARE INPUT «, t00=0x0003, t01=0x0010}
0x0506…052e              Head {h00=0x0024, h01=0x0050, text=»* TBIN3 - DISPLACEMENT IN TSTR80«, t00=0x0003, t01=0x005a}
0x052e…054c              Head {h00=0x001a, h01=0x0050, text=»* TBIN4 - ORIG. LENGTH«, t00=0x0003, t01=0x0082}
0x054c…0570              Head {h00=0x0020, h01=0x0050, text=»* TBIN5 - INDEX TO KEYTABLE «, t00=0x0003, t01=0x00a0}
0x0570…058a              Head {h00=0x0016, h01=0x0050, text=»* TBIN6 - SCRATCH «, t00=0x0003, t01=0x00c4}
0x058a…05a4              Head {h00=0x0016, h01=0x0050, text=»* TBIN7 - SCRATCH «, t00=0x0003, t01=0x00de}
0x05a4…05c4              Head {h00=0x001c, h01=0x0050, text=»* TBIN8 - NOT USED P.T. «, t00=0x0003, t01=0x00f8}
0x05c4…05ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0118}
0x05ce…05dc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0122}
0x05dc…05f4              Head {h00=0x0014, h01=0x0050, text=» PERF PUSH,CBIN8«, t00=0x0003, t01=0x0130}
0x05f4…0602              Head {h00=0x000a, h01=0x0050, text=»KBR010«, t00=0x0003, t01=0x0148}
0x0602…0616              Head {h00=0x0010, h01=0x0050, text=» CLEAR TBOOL«, t00=0x0003, t01=0x0156}
0x0616…063e              Head {h00=0x0024, h01=0x0050, text=» MOVE TBIN4,LEN SAVE ORIG.LENGTH«, t00=0x0003, t01=0x016a}
0x063e…0656 (4, 0, 400)  Head {h00=0x0014, h01=0x0050, text=» MOVE TBIN2,LEN «, t00=0x0004, t01=0x0004}
0x0656…0672              Head {h00=0x0018, h01=0x0050, text=» MOVE TSTR80,=X'00' «, t00=0x0004, t01=0x001c}
0x0672…06a8              Head {h00=0x0032, h01=0x0050, text=» MOVE TBIN7,TCURPOS TCURPOS MIGHT BE MODIFIED «, t00=0x0004, t01=0x0038}
0x06a8…06c2              Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN3,CBIN0 «, t00=0x0004, t01=0x006e}
0x06c2…06de              Head {h00=0x0018, h01=0x0050, text=» DSC1 DSDY,POS,TBIN7«, t00=0x0004, t01=0x0088}
0x06de…06e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a4}
0x06e8…0716              Head {h00=0x002a, h01=0x0050, text=» CLEAR TCURMOV NO CURSORMOVEMENTS YET «, t00=0x0004, t01=0x00ae}
0x0716…0724              Head {h00=0x000a, h01=0x0050, text=»KBR015«, t00=0x0004, t01=0x00dc}
0x0724…073e              Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN6,TBIN2 «, t00=0x0004, t01=0x00ea}
0x073e…074c              Head {h00=0x000a, h01=0x0050, text=»KBR017«, t00=0x0004, t01=0x0104}
0x074c…0768              Head {h00=0x0018, h01=0x0050, text=» MOVE TKBBUF,='++.' «, t00=0x0004, t01=0x0112}
0x0768…0780              Head {h00=0x0014, h01=0x0050, text=» ADD TBIN6,CBIN2«, t00=0x0004, t01=0x012e}
0x0780…07ba              Head {h00=0x0036, h01=0x0050, text=» WRITE DSDY,TKBBUF,TBIN6 CLEAR INPUTFIELD WITH .. «, t00=0x0004, t01=0x0146}
0x07ba…07c8              Head {h00=0x000a, h01=0x0050, text=»KBR016«, t00=0x0004, t01=0x0180}
0x07c8…07e4              Head {h00=0x0018, h01=0x0050, text=» DSC1 DSDY,POS,TBIN7«, t00=0x0004, t01=0x018e}
0x07e4…0808              Head {h00=0x0020, h01=0x0050, text=» MOVE TBIN1,TBIN2 RESTLENGTH«, t00=0x0005, t01=0x001a}
0x0808…083a              Head {h00=0x002e, h01=0x0050, text=» CBNG TBIN1,CBIN0,KBR030 FTAB IF FILLED UP«, t00=0x0005, t01=0x003e}
0x083a…0860              Head {h00=0x0022, h01=0x0050, text=» KI DSKB,TKBBUF,TAB,TBIN1,INX «, t00=0x0005, t01=0x0070}
0x0860…088a              Head {h00=0x0026, h01=0x0050, text=» BOK KBR040 KEYLOCK OR TERM. CHAR.«, t00=0x0005, t01=0x0096}
0x088a…08ba              Head {h00=0x002c, h01=0x0050, text=»* A CHAR NEITHER ALPHANUM NOR LISTED IN «, t00=0x0005, t01=0x00c0}
0x08ba…08da              Head {h00=0x001c, h01=0x0050, text=»*      KEYTABLE IS INPUT«, t00=0x0005, t01=0x00f0}
0x08da…08fe              Head {h00=0x0020, h01=0x0050, text=»* SIZE OF BUFFER IS REACHED «, t00=0x0005, t01=0x0110}
0x08fe…0916              Head {h00=0x0014, h01=0x0050, text=»* POWER FAILURE «, t00=0x0005, t01=0x0134}
0x0916…093c              Head {h00=0x0022, h01=0x0050, text=»* REQ. NBR OF CHARS IS REACHED«, t00=0x0005, t01=0x014c}
0x093c…096e              Head {h00=0x002e, h01=0x0050, text=» SUB TBIN1,CBIN1 EXCL. EOI-KEY FROM LENGTH«, t00=0x0005, t01=0x0172}
0x096e…099c              Head {h00=0x002a, h01=0x0050, text=» CBE INX,CBIN0,KBR020 POWER FAILURE ? «, t00=0x0006, t01=0x0014}
0x099c…09d6              Head {h00=0x0036, h01=0x0050, text=» CBE TBIN4,TBIN2,KBR030 OVERFLOW: PROCESS AS FTAB «, t00=0x0006, t01=0x0042}
0x09d6…09e4              Head {h00=0x000a, h01=0x0050, text=»KBR020«, t00=0x0006, t01=0x007c}
0x09e4…09fc              Head {h00=0x0014, h01=0x0050, text=» PERF PULL,CBIN8«, t00=0x0006, t01=0x008a}
0x09fc…0a30              Head {h00=0x0030, h01=0x0050, text=» CMP CBIN0,CBIN1 UNDEF. ERROR OR PWR FAILURE«, t00=0x0006, t01=0x00a2}
0x0a30…0a48              Head {h00=0x0014, h01=0x0050, text=» B KBR099 RETURN«, t00=0x0006, t01=0x00d6}
0x0a48…0a56              Head {h00=0x000a, h01=0x0050, text=»KBR030«, t00=0x0006, t01=0x00ee}
0x0a56…0a7e              Head {h00=0x0024, h01=0x0050, text=» MOVE INX,CBIN3 SIMULATE FTABKEY«, t00=0x0006, t01=0x00fc}
0x0a7e…0a96              Head {h00=0x0014, h01=0x0050, text=» ADD TBIN1,CBIN1«, t00=0x0006, t01=0x0124}
0x0a96…0aae              Head {h00=0x0014, h01=0x0050, text=» B KBR094 RETURN«, t00=0x0006, t01=0x013c}
0x0aae…0abc              Head {h00=0x000a, h01=0x0050, text=»KBR040«, t00=0x0006, t01=0x0154}
0x0abc…0af4              Head {h00=0x0034, h01=0x0050, text=» CBG TBIN1,CBIN1,KBR045 IF MORE THEN 1 INPUTCHAR«, t00=0x0006, t01=0x0162}
0x0af4…0b1c              Head {h00=0x0024, h01=0x0050, text=» CLEAR TBOOL WE CAN RESET TBOOL «, t00=0x0007, t01=0x000a}
0x0b1c…0b2a              Head {h00=0x000a, h01=0x0050, text=»KBR045«, t00=0x0007, t01=0x0032}
0x0b2a…0b58              Head {h00=0x002a, h01=0x0050, text=» CBNG INX,CBIN0,KBR020 POWER FAILURE ?«, t00=0x0007, t01=0x0040}
0x0b58…0b70              Head {h00=0x0014, h01=0x0050, text=» SUB TBIN1,CBIN1«, t00=0x0007, t01=0x006e}
0x0b70…0b9e              Head {h00=0x002a, h01=0x0050, text=» MOVE TBIN5,INX SAVE INDEX TO KEYTABLE«, t00=0x0007, t01=0x0086}
0x0b9e…0bc2              Head {h00=0x0020, h01=0x0050, text=» SUB INX,CBIN5 ADJUST INDEX «, t00=0x0007, t01=0x00b4}
0x0bc2…0bf4              Head {h00=0x002e, h01=0x0050, text=» BP KBR094 WAS IT ANY OF THE 5 SPEC KEYS? «, t00=0x0007, t01=0x00d8}
0x0bf4…0c20              Head {h00=0x0028, h01=0x0050, text=» TBT TBOOL,KBR020 INPUT WAS EXPECTED«, t00=0x0007, t01=0x010a}
0x0c20…0c50              Head {h00=0x002c, h01=0x0050, text=» SET TCURMOV CURSORMOVE HAS TAKEN PLACE «, t00=0x0007, t01=0x0136}
0x0c50…0c6a              Head {h00=0x0016, h01=0x0050, text=» IB TBIN5, YES, C «, t00=0x0007, t01=0x0166}
0x0c6a…0c82              Head {h00=0x0014, h01=0x0050, text=»  KBR050, BSP, C«, t00=0x0007, t01=0x0180}
0x0c82…0c9a              Head {h00=0x0014, h01=0x0050, text=»  KBR060, FSP, C«, t00=0x0008, t01=0x0008}
0x0c9a…0cb2              Head {h00=0x0014, h01=0x0050, text=»  KBR070, INS C «, t00=0x0008, t01=0x0020}
0x0cb2…0cca              Head {h00=0x0014, h01=0x0050, text=»  KBR080, DEL C «, t00=0x0008, t01=0x0038}
0x0cca…0ce2              Head {h00=0x0014, h01=0x0050, text=»  KBR090 CANCEL «, t00=0x0008, t01=0x0050}
0x0ce2…0d08              Head {h00=0x0022, h01=0x0050, text=» B KBR094 SHOULD BE IMPOSSIBLE«, t00=0x0008, t01=0x0068}
0x0d08…0d1a              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0008, t01=0x008e}
0x0d1a…0d40              Head {h00=0x0022, h01=0x0050, text=»KBR050   BACKSPACE KEY PRESSED«, t00=0x0008, t01=0x00a0}
0x0d40…0d6c              Head {h00=0x0028, h01=0x0050, text=» SUB TBIN2,TBIN1 HOW MANY CHARS LEFT«, t00=0x0008, t01=0x00c6}
0x0d6c…0d84              Head {h00=0x0014, h01=0x0050, text=» ADD TBIN2,CBIN1«, t00=0x0008, t01=0x00f2}
0x0d84…0dba              Head {h00=0x0032, h01=0x0050, text=» CBNL TBIN2,LEN,KBR010 BACKSPACED WE TO START?«, t00=0x0008, t01=0x010a}
0x0dba…0de8              Head {h00=0x002a, h01=0x0050, text=» XCOPY TSTR80,TBIN3,TBIN1,TKBBUF,CBIN0«, t00=0x0008, t01=0x0140}
0x0de8…0e0e              Head {h00=0x0022, h01=0x0050, text=» ADD TBIN3,TBIN1 FIELD LENGTH «, t00=0x0008, t01=0x016e}
0x0e0e…0e2e (9, 0, 400)  Head {h00=0x001c, h01=0x0050, text=» SUB TBIN3,CBIN1 MINUS 1«, t00=0x0009, t01=0x0004}
0x0e2e…0e5e              Head {h00=0x002c, h01=0x0050, text=» MOVE TBIN7,TCURPOS MOVE CURSOR ONE POS «, t00=0x0009, t01=0x0024}
0x0e5e…0e7c              Head {h00=0x001a, h01=0x0050, text=» ADD TBIN7,TBIN3 -//- «, t00=0x0009, t01=0x0054}
0x0e7c…0e8e              Head {h00=0x000e, h01=0x0050, text=» B KBR016 «, t00=0x0009, t01=0x0072}
0x0e8e…0ea0              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0009, t01=0x0084}
0x0ea0…0ec2              Head {h00=0x001e, h01=0x0050, text=»KBR060   FORWARDSPACE KEY «, t00=0x0009, t01=0x0096}
0x0ec2…0ef6              Head {h00=0x0030, h01=0x0050, text=» SUB TBIN2,TBIN1 HOW MANY CHARS MAY WE READ «, t00=0x0009, t01=0x00b8}
0x0ef6…0f0e              Head {h00=0x0014, h01=0x0050, text=» SUB TBIN2,CBIN1«, t00=0x0009, t01=0x00ec}
0x0f0e…0f3c              Head {h00=0x002a, h01=0x0050, text=» XCOPY TSTR80,TBIN3,TBIN1,TKBBUF,CBIN0«, t00=0x0009, t01=0x0104}
0x0f3c…0f62              Head {h00=0x0022, h01=0x0050, text=» ADD TBIN3,TBIN1 FIELD LENGTH «, t00=0x0009, t01=0x0132}
0x0f62…0f84              Head {h00=0x001e, h01=0x0050, text=» ADD TBIN3,CBIN1 PLUS ONE «, t00=0x0009, t01=0x0158}
0x0f84…0fb4              Head {h00=0x002c, h01=0x0050, text=» MOVE TBIN7,TCURPOS MOVE CURSOR ONE POS «, t00=0x0009, t01=0x017a}
0x0fb4…0fd2              Head {h00=0x001a, h01=0x0050, text=» ADD TBIN7,TBIN3 -//- «, t00=0x000a, t01=0x001a}
0x0fd2…0fe4              Head {h00=0x000e, h01=0x0050, text=» B KBR016 «, t00=0x000a, t01=0x0038}
0x0fe4…0ff6              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000a, t01=0x004a}
0x0ff6…100e              Head {h00=0x0014, h01=0x0050, text=»KBR070   INSERT «, t00=0x000a, t01=0x005c}
0x100e…103c              Head {h00=0x002a, h01=0x0050, text=» XCOPY TSTR80,TBIN3,TBIN1,TKBBUF,CBIN0«, t00=0x000a, t01=0x0074}
0x103c…1054              Head {h00=0x0014, h01=0x0050, text=» MOVE TSTR2,=' '«, t00=0x000a, t01=0x00a2}
0x1054…1082              Head {h00=0x002a, h01=0x0050, text=» INSRT TSTR80,TBIN3,CBIN1,TSTR2,CBIN0 «, t00=0x000a, t01=0x00ba}
0x1082…109e              Head {h00=0x0018, h01=0x0050, text=» MOVE TSCBUF,TSTR80 «, t00=0x000a, t01=0x00e8}
0x109e…10b6              Head {h00=0x0014, h01=0x0050, text=» MOVE TSTR2,='+'«, t00=0x000a, t01=0x0104}
0x10b6…10e4              Head {h00=0x002a, h01=0x0050, text=» INSRT TSCBUF,CBIN0,CBIN2,TSTR2,CBIN0 «, t00=0x000a, t01=0x011c}
0x10e4…1100              Head {h00=0x0018, h01=0x0050, text=» PERF FIND00,TSCBUF «, t00=0x000a, t01=0x014a}
0x1100…1136              Head {h00=0x0032, h01=0x0050, text=» ADD TBIN6,CBIN3 ALLOW FOR CNTRL CHAR + SPACE «, t00=0x000a, t01=0x0166}
0x1136…1154              Head {h00=0x001a, h01=0x0050, text=» DSC1 DSDY,POS,TCURPOS«, t00=0x000b, t01=0x000c}
0x1154…1174              Head {h00=0x001c, h01=0x0050, text=» WRITE DSDY,TSCBUF,TBIN6«, t00=0x000b, t01=0x002a}
0x1174…1190              Head {h00=0x0018, h01=0x0050, text=» MOVE TBIN7,TCURPOS «, t00=0x000b, t01=0x004a}
0x1190…11a8              Head {h00=0x0014, h01=0x0050, text=» ADD TBIN7,TBIN3«, t00=0x000b, t01=0x0066}
0x11a8…11d2              Head {h00=0x0026, h01=0x0050, text=» SUB TBIN2,TBIN1 REDUCE RESTLENGTH«, t00=0x000b, t01=0x007e}
0x11d2…11ea              Head {h00=0x0014, h01=0x0050, text=» SUB TBIN2,CBIN1«, t00=0x000b, t01=0x00a8}
0x11ea…1220              Head {h00=0x0032, h01=0x0050, text=» CBE TBIN2,CBIN0,KBR030 FILLED, SIMULATE FTAB «, t00=0x000b, t01=0x00c0}
0x1220…1244              Head {h00=0x0020, h01=0x0050, text=» SET TBOOL NEXT MUST BE DATA«, t00=0x000b, t01=0x00f6}
0x1244…1256              Head {h00=0x000e, h01=0x0050, text=» B KBR016 «, t00=0x000b, t01=0x011a}
0x1256…1268              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000b, t01=0x012c}
0x1268…1288              Head {h00=0x001c, h01=0x0050, text=»KBR080   DELETE ONE CHAR«, t00=0x000b, t01=0x013e}
0x1288…12b6              Head {h00=0x002a, h01=0x0050, text=» XCOPY TSTR80,TBIN3,TBIN1,TKBBUF,CBIN0«, t00=0x000b, t01=0x015e}
0x12b6…12d8              Head {h00=0x001e, h01=0x0050, text=» DLETE TSTR80,TBIN3,CBIN1 «, t00=0x000b, t01=0x018c}
0x12d8…12f4              Head {h00=0x0018, h01=0x0050, text=» MOVE TSCBUF,TSTR80 «, t00=0x000c, t01=0x001e}
0x12f4…130c              Head {h00=0x0014, h01=0x0050, text=» MOVE TSTR2,='+'«, t00=0x000c, t01=0x003a}
0x130c…133a              Head {h00=0x002a, h01=0x0050, text=» INSRT TSCBUF,CBIN0,CBIN2,TSTR2,CBIN0 «, t00=0x000c, t01=0x0052}
0x133a…1356              Head {h00=0x0018, h01=0x0050, text=» PERF FIND00,TSCBUF «, t00=0x000c, t01=0x0080}
0x1356…136e              Head {h00=0x0014, h01=0x0050, text=» SUB TBIN6,TBIN3«, t00=0x000c, t01=0x009c}
0x136e…1386              Head {h00=0x0014, h01=0x0050, text=» ADD TBIN6,CBIN2«, t00=0x000c, t01=0x00b4}
0x1386…13a8              Head {h00=0x001e, h01=0x0050, text=» DLETE TSCBUF,CBIN2,TBIN3 «, t00=0x000c, t01=0x00cc}
0x13a8…13d8              Head {h00=0x002c, h01=0x0050, text=» MOVE TBIN7,CBIN0 ONE CHARACTER MUST BE «, t00=0x000c, t01=0x00ee}
0x13d8…1404              Head {h00=0x0028, h01=0x0050, text=» MOVE TSTR1,=X'00' REPLACE BY PERIOD«, t00=0x000c, t01=0x011e}
0x1404…1438              Head {h00=0x0030, h01=0x0050, text=» MATCH TSCBUF,TBIN7,CBIN80,TSTR1,CBIN0,CBIN1«, t00=0x000c, t01=0x014a}
0x1438…1450              Head {h00=0x0014, h01=0x0050, text=» MOVE TSTR1,='.'«, t00=0x000c, t01=0x017e}
0x1450…147e              Head {h00=0x002a, h01=0x0050, text=» XCOPY TSCBUF,TBIN7,CBIN1,TSTR1,CBIN0 «, t00=0x000d, t01=0x0008}
0x147e…149e              Head {h00=0x001c, h01=0x0050, text=» WRITE DSDY,TSCBUF,TBIN6«, t00=0x000d, t01=0x0036}
0x149e…14ba              Head {h00=0x0018, h01=0x0050, text=» MOVE TBIN7,TCURPOS «, t00=0x000d, t01=0x0056}
0x14ba…14d2              Head {h00=0x0014, h01=0x0050, text=» ADD TBIN7,TBIN3«, t00=0x000d, t01=0x0072}
0x14d2…14ea              Head {h00=0x0014, h01=0x0050, text=» SUB TBIN2,TBIN1«, t00=0x000d, t01=0x008a}
0x14ea…1502              Head {h00=0x0014, h01=0x0050, text=» ADD TBIN2,CBIN1«, t00=0x000d, t01=0x00a2}
0x1502…151a              Head {h00=0x0014, h01=0x0050, text=» ADD TBIN3,TBIN1«, t00=0x000d, t01=0x00ba}
0x151a…152c              Head {h00=0x000e, h01=0x0050, text=» B KBR016 «, t00=0x000d, t01=0x00d2}
0x152c…153e              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x00e4}
0x153e…1560              Head {h00=0x001e, h01=0x0050, text=»KBR090   CANCEL THIS 'KI' «, t00=0x000d, t01=0x00f6}
0x1560…158c              Head {h00=0x0028, h01=0x0050, text=» DSC1 DSDY,POS,TCURPOS REPOS. CURSOR«, t00=0x000d, t01=0x0118}
0x158c…15b6              Head {h00=0x0026, h01=0x0050, text=» DSC1 DSDY,ERASE,TBIN4 ERASE FIELD«, t00=0x000d, t01=0x0144}
0x15b6…15e2              Head {h00=0x0028, h01=0x0050, text=» DSC1 DSDY,POS,TCURPOS REPOS. AGAIN «, t00=0x000d, t01=0x016e}
0x15e2…15f4              Head {h00=0x000e, h01=0x0050, text=» B KBR010 «, t00=0x000e, t01=0x000a}
0x15f4…1608              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x000e, t01=0x001c}
0x1608…1616              Head {h00=0x000a, h01=0x0050, text=»KBR094«, t00=0x000e, t01=0x0030}
0x1616…1632              Head {h00=0x0018, h01=0x0050, text=» MOVE TBIN6,TCURPOS «, t00=0x000e, t01=0x003e}
0x1632…164e              Head {h00=0x0018, h01=0x0050, text=» DSC1 DSDY,POS,TBIN6«, t00=0x000e, t01=0x005a}
0x164e…1684              Head {h00=0x0032, h01=0x0050, text=» TBF TCURMOV,KBR095 ANY EXPL. CURSORMOVEMENTS?«, t00=0x000e, t01=0x0076}
0x1684…16c2              Head {h00=0x003a, h01=0x0050, text=» XCOPY TSTR80,TBIN3,TBIN1,TKBBUF,CBIN0 COMPLETE BUFFER«, t00=0x000e, t01=0x00ac}
0x16c2…16fc              Head {h00=0x0036, h01=0x0050, text=» MOVE TKBBUF,TSTR80 MOVE COMPLETED BUFFER TO APPL «, t00=0x000e, t01=0x00ea}
0x16fc…170a              Head {h00=0x000a, h01=0x0050, text=»KBR095«, t00=0x000e, t01=0x0124}
0x170a…1736              Head {h00=0x0028, h01=0x0050, text=» CBE CBIN2,TYP,KBR098 ALPHANUMERIC? «, t00=0x000e, t01=0x0132}
0x1736…1752              Head {h00=0x0018, h01=0x0050, text=» PERF FIND00,TKBBUF «, t00=0x000e, t01=0x015e}
0x1752…176c              Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN2,TBIN4 «, t00=0x000e, t01=0x017a}
0x176c…17a0 (15, 0, 400) Head {h00=0x0030, h01=0x0050, text=» SUB TBIN2,TBIN6 HOW MANY ZEROES TO INSERT? «, t00=0x000f, t01=0x0004}
0x17a0…17ba              Head {h00=0x0016, h01=0x0050, text=» MOVE TSTR80,='0' «, t00=0x000f, t01=0x0038}
0x17ba…17f6              Head {h00=0x0038, h01=0x0050, text=» INSRT TKBBUF,CBIN0,TBIN2,TSTR80,CBIN0 MODIFY BUFFER«, t00=0x000f, t01=0x0052}
0x17f6…1814              Head {h00=0x001a, h01=0x0050, text=» DSC1 DSDY,POS,TCURPOS«, t00=0x000f, t01=0x008e}
0x1814…184a              Head {h00=0x0032, h01=0x0050, text=» PERF SCRWR,TKBBUF,TBIN4 AND REWRITE ON SCREEN«, t00=0x000f, t01=0x00ac}
0x184a…185c              Head {h00=0x000e, h01=0x0050, text=» B KBR098A«, t00=0x000f, t01=0x00e2}
0x185c…186a              Head {h00=0x000a, h01=0x0050, text=»KBR098«, t00=0x000f, t01=0x00f4}
0x186a…1886              Head {h00=0x0018, h01=0x0050, text=» PERF FIND00,TKBBUF «, t00=0x000f, t01=0x0102}
0x1886…1896              Head {h00=0x000c, h01=0x0050, text=»KBR098A «, t00=0x000f, t01=0x011e}
0x1896…18c6              Head {h00=0x002c, h01=0x0050, text=» SUB TBIN4,LEN ERASE REST OF INPUTFIELD «, t00=0x000f, t01=0x012e}
0x18c6…18e4              Head {h00=0x001a, h01=0x0050, text=» DSC1 DSDY,ERASE,TBIN4«, t00=0x000f, t01=0x015e}
0x18e4…18fc              Head {h00=0x0014, h01=0x0050, text=» MOVE LEN,TBIN6 «, t00=0x000f, t01=0x017c}
0x18fc…1914 (16, 0, 398) Head {h00=0x0014, h01=0x0050, text=» PERF PULL,CBIN8«, t00=0x0010, t01=0x0004}
0x1914…192c              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0010, t01=0x001c}
0x192c…193a              Head {h00=0x000a, h01=0x0050, text=»KBR099«, t00=0x0010, t01=0x0034}
0x193a…1946              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0042}
0x1946…1954              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x004e}
0x1954…1962              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x005c}
0x1962…197a              Head {h00=0x0014, h01=0x0050, text=»FIND00 PROC BUF «, t00=0x0010, t01=0x006a}
0x197a…1984              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0082}
0x1984…19b6              Head {h00=0x002e, h01=0x0050, text=»* FIND THE LENGTH OF THE DATAFIELD IN THE «, t00=0x0010, t01=0x008c}
0x19b6…19d2              Head {h00=0x0018, h01=0x0050, text=»* BUFFER SPECIFIED. «, t00=0x0010, t01=0x00be}
0x19d2…1a04              Head {h00=0x002e, h01=0x0050, text=»* IF THE LAST NON-ZERO CHAR IS BELOW X'20'«, t00=0x0010, t01=0x00da}
0x1a04…1a3a              Head {h00=0x0032, h01=0x0050, text=»* (EOI-KEY) THE COUNT WILL BE DECREASED BY 1. «, t00=0x0010, t01=0x010c}
0x1a3a…1a44              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0142}
0x1a44…1a56              Head {h00=0x000e, h01=0x0050, text=» PSTRG BUF«, t00=0x0010, t01=0x014c}
0x1a56…1a70              Head {h00=0x0016, h01=0x0050, text=» MOVE TSTR1,=X'00'«, t00=0x0010, t01=0x015e}
0x1a70…1a8a              Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN6,CBIN0 «, t00=0x0010, t01=0x0178}
0x1a8a…1abe (17, 2, 330) Head {h00=0x0030, h01=0x0050, text=» MOVE TBIN7,=W'32' OBS OBS LENGTH OF TKBBUF «, t00=0x0011, t01=0x0004}
0x1abe…1aee              Head {h00=0x002c, h01=0x0050, text=» MATCH BUF,TBIN6,TBIN7,TSTR1,CBIN0,CBIN1«, t00=0x0011, t01=0x0038}
0x1aee…1b08              Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN7,TBIN6 «, t00=0x0011, t01=0x0068}
0x1b08…1b20              Head {h00=0x0014, h01=0x0050, text=» SUB TBIN7,CBIN1«, t00=0x0011, t01=0x0082}
0x1b20…1b4e              Head {h00=0x002a, h01=0x0050, text=» XCOPY TSTR1,CBIN0,CBIN1,TKBBUF,TBIN7 «, t00=0x0011, t01=0x009a}
0x1b4e…1b80              Head {h00=0x002e, h01=0x0050, text=» CBNL TSTR1,=' ',FIN010 < X'20' IS EOI KEY«, t00=0x0011, t01=0x00c8}
0x1b80…1b98              Head {h00=0x0014, h01=0x0050, text=» SUB TBIN6,CBIN1«, t00=0x0011, t01=0x00fa}
0x1b98…1ba6              Head {h00=0x000a, h01=0x0050, text=»FIN010«, t00=0x0011, t01=0x0112}
0x1ba6…1bb2              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x0120}
0x1bb2…1bc0              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0011, t01=0x012c}
0x1bc0…1bcc              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0011, t01=0x013a}
0x1bcc…1bd0              Head {h00=0x4004, h01=0x0000}
0x1bd0…1bd4              00 11 01 46                                                                                                                                                                                                                                       ┆   F┆
0x1bd4…1bdc (18, 1, 8)   20 04 00 00 00 12 00 04                                                                                                                                                                                                                           ┆        ┆
0x1bdc…1c2c (19, 0, 400) 24 20 62 44 45 46 1b 05 01 60 20 1b 0a 01 60 20 1b 0f 0f 60 20 1b 49 4e 54 45 52 49 4d 20 53 54 41 54 45 4d 45 4e 54 20 45 52 52 4f 52 4c 49 4e 45 20 49 53 20 4c 49 4e 45 20 32 33 20 41 4e 44 20 4c 41 53 54 20 46 49 56 45 20 45 4e 54 52 49   ┆$ bDEF   `    `    `  INTERIM STATEMENT ERRORLINE IS LINE 23 AND LAST FIVE ENTRI┆
0x1c2c…1c7c              45 53 20 20 51 45 52 52 32 20 2d 20 45 4e 51 55 49 52 59 20 4e 4f 54 20 41 56 41 49 4c 41 42 4c 45 20 51 45 52 52 31 20 2d 20 49 4e 56 41 4c 49 44 20 46 55 4e 43 54 49 4f 4e 20 53 45 4c 45 43 54 49 4f 4e 20 39 39 39 0e 04 06 01 10 17 12 13   ┆ES  QERR2 - ENQUIRY NOT AVAILABLE QERR1 - INVALID FUNCTION SELECTION 999        ┆
0x1c7c…1ccc              2f 1e 0a 03 14 1d 0b e1 e1 c0 4e 82 20 10 40 a8 20 81 2e 82 31 9e 20 c3 13 45 4e 51 20 2d 20 45 4e 51 55 49 52 59 20 49 4e 50 55 54 e1 e1 9e 20 c3 13 45 4e 51 55 49 52 49 45 53 20 41 56 41 49 4c 41 42 4c 45 e1 e1 8f 20 c1 4c c1 48 c1 49 97   ┆/         N   @   . 1    ENQ - ENQUIRY INPUT      ENQUIRIES AVAILABLE     L H I ┆
0x1ccc…1d1c              20 c1 34 e1 8f 20 c1 4c c1 48 c1 49 c1 59 c1 35 e1 8f 20 c1 4a c1 48 c1 49 97 20 c1 36 e1 8f 20 c1 4a c1 48 c1 49 c1 59 c1 37 e1 8f 20 c1 4a c1 48 c1 4b 97 20 c1 38 e1 8f 20 c1 4a c1 48 c1 4d 96 20 c1 39 e1 8f 20 c1 48 c1 57 95 20 c1 3a e1   ┆  4    L H I Y 5    J H I   6    J H I Y 7    J H K   8    J H M   9    H W   : ┆
0x1d1c…1d6c              e1 e1 e1 e1 e1 e1 e1 e1 e1 e1 c1 45 87 20 c1 44 8d 20 c1 41 86 20 c1 46 86 20 c1 47 e1 e1 20 02 00 00 20 02 00 02 20 02 00 04 20 02 00 06 20 02 00 08 20 02 00 0a 20 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 09   ┆           E   D   A   F   G                                                    ┆
0x1d6c…1dbc (20, 0, 400) 00 0c 20 02 00 0e 20 02 00 10 20 02 00 12 20 02 00 14 20 02 00 16 20 02 00 18 20 02 00 1a 20 02 00 1c 20 02 00 1e 20 02 00 20 20 02 00 22 20 02 00 24 20 02 00 26 20 02 00 28 20 02 00 2a 20 02 00 2c 20 02 00 2e 00 01 00 30 00 01 00 31 00 01   ┆                                             "   $   &   (   *   ,   .   0   1  ┆
0x1dbc…1e0c              00 32 00 01 00 33 00 01 00 34 00 01 00 35 00 01 00 36 00 01 00 37 00 01 00 38 00 01 00 39 00 02 00 3a 00 02 00 3c 00 02 00 3e 00 02 00 40 00 02 00 42 00 02 00 44 00 02 00 46 00 02 00 48 00 02 00 4a 00 02 00 4c 00 03 00 4e 00 03 00 51 00 03   ┆ 2   3   4   5   6   7   8   9   :   <   >   @   B   D   F   H   J   L   N   Q  ┆
0x1e0c…1e5c              00 54 00 04 00 57 00 04 00 5b 00 04 00 5f 00 05 00 63 00 06 00 68 00 06 00 6e 00 07 00 74 00 07 00 7b 00 07 00 82 00 08 00 89 00 08 00 91 00 08 00 99 00 08 00 a1 00 08 00 a9 00 09 00 b1 00 0b 00 ba 00 0b 00 c5 00 0b 00 d0 00 0c 00 db 00 0c   ┆ T   W   [   _   c   h   n   t   {                                              ┆
0x1e5c…1eac              00 e7 00 0c 00 f3 00 0d 00 ff 00 0e 01 0c 00 10 01 1a 00 12 01 2a 00 15 01 3c 00 17 01 51 00 1e 01 68 00 23 01 86 10 03 00 00 00 0f 00 00 00 0c 00 00 00 aa 00 0c 1d 46 1a d4 1e 76 1c 7d 1e 7a 1c 80 1e 7e 1c 8f f6 a1 27 cc 23 30 1b 20 54 18   ┆                     *   <   Q   h #                   F   v } z   ~    ' #0  T ┆
0x1eac…1efc              82 a6 f6 a1 27 cc 23 30 1b 20 54 0c 82 56 00 02 a2 a6 f2 01 8f 20 25 36 01 02 8f 20 3c 56 06 02 57 02 06 03 f6 a1 21 0a 8f 20 20 02 04 00 9e 18 f6 a1 1e e0 2f 06 8f 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1f e8 20 12 14 40   ┆    ' #0  T  V        %6    <V  W     !             /                          @┆

Reduced view