XTK `„ 7Ç :b¾ȲÙ¾ÈÚ³@ UNL#@************************************************************ @* '6*  EXTENSION FOR A TERMINAL  (XTK) 02/12/82 6* WITH A KEYBOARD * '@************************************************************ @ DORG XTKBGN2XTKXUF WORD 0 EXTENDED USER FLAGS FROM BRB 2&XTKFLG FLAGS 8 XTK GENERAL FLAGS&* FLAG KSFHNG HANG UP CONDITION ON 745 ** FLAG KSFTMS TIME OUT SWITCH FOR 745 *, FLAG KSFSCI SCI ACTIVE DURING HANG UP ,, FLAG KSFDCD DATA CARRIER DROP DETECTED ,, FLAG KSFSIO SHIFT IN/SHIFT OUT JISCII ,. FLAG KSFDIFDIRECT CHAR INPUT REQUESTED .4XTKSCH BYTE 0  SAVED CHAR FOR JISCII TERMINAL 4(XTKFIL EQUXTKFLG FILL CHARACTER(*XTKEVT EQUXTKFLG+1 EVENT CHARACTER*0XTKCRD WORD 0  CARRIAGE RETURN DELAY COUNT0XTÀ6KPOS EQUXTKCRD WITHIN  FIELD CURSOR POSITION 60XTKICD WORD 0  INTER-CHARACTER DELAY COUNT08XTKDEF EQUXTKICD START OF FIELD CURSOR POSITION 82XTKVTA EQUKSBVTA VALIDATION TABLE ADDRESS 22XTKABT WORD 0  CODE ADDRESS TO PERFORM ABORT 2$XTKSC1 EQUXTKABT SCRATCH # 1$4XTKTMO WORD 0  TIMEOUT COUNT FOR HANG CONDTION 4$XTKSC2 EQUXTKTMO SCRATCH # 2$ XTKSC3 WORD 0  SCRATCH # 3 .XTKSSC WORD 0  SAVED STATUS OF CASSETTES.4XTKJIN EQUXTKSSC ASCII/JISCII INTENSITY MASK4* ' *-----% ,* EDIT FLAG WORD 0 AT END OF XTK *CM* , *-----% 6EDTFL0 WORD 0  EXTENDED EDIT FLAG WORD 0  *CM* 6"*  NOTE: BITS 0-7 ARE USED ! "6MDTCHK EQU8  POST DATA MODIFIED ON READ *CM* 6.EXVAL EQU9  EXTENDED CHAR VAL  *CM* . NULFLG EQU €10NULL CHARACTER *CM* 2CNBFLG EQU11 CONVERT NULL TO BLANK  *CM* 2*  NOTE: BIT 12 IS USED !"*  NOTE: BITS 13-15 RESERVED " *-----% ,* EDIT FLAG WORD 1 AT END OF XTK *CM* , *-----% 6EDTFL1 WORD 0  EXTENDED EDIT FLAG WORD 1  *CM* 6"*  NOTE: BITS 0-1 ARE USED ! "8LEFARO EQU2 1=TERMINATE RD ON LEFT ARROW *CM* 8"*  NOTE: BITS 3-11 ARE USED ! "8RITARO EQU121=TERMINATE RD ON RIGHT ARROW *CM* 8$* NOTE: BITS 13-15 ARE USED ! $* 'XTKSIZ EQU$ !  RORG "  PAGE "  LIST " *************************** <*  0-1ACU CRU ADDRESS *  2ISR TYPE*  3LCD TYPE *  4-5 READ ASCII TIMEOUT *  6-7WRITE TIMEOUT $*  8-9 READ DIRECT TIMEOUT 1 $ æ lÔOUNT NO .