TITLE HEXTRIAL ver. <87/04/15>
*
************************************************************
*        FILE HEADER BLOCK
*
        NIBASC   \HEXTRIAL\
        NIBHEX   802E      LEX type
        CON(2)   0         flags=0
        NIBHEX   0000      Mn/Hr
        NIBHEX   000078    Dy/Mo/Yr
        REL(5)   =FILEND
*
************************************************************
*        LEX  HEADER BLOCK
*
        CON(2)   #5E      LEX ID, see MMTOKENS for assignment
        CON(2)   #B9      Low Token
        CON(2)   #D3      High Token
        CON(5)   0        No link
*
*       Speed Table
*
        NIBHEX   0        Speed table exists
        CON(3) (TxEn01)-(TxTbSt) A
        CON(3) (TxEn02)-(TxTbSt) B
        CON(3) (TxEn05)-(TxTbSt) C
        CON(3) (TxEn09)-(TxTbSt) D
        CON(3) (TxEn0B)-(TxTbSt) E
        CON(3) (TxEn0C)-(TxTbSt) F
        CON(3) (TxEn0E)-(TxTbSt) G
        CON(3) (TxEn0F)-(TxTbSt) H
        CON(3) (TxEn11)-(TxTbSt) I
        CON(3) (TxTbEn)-(TxTbSt) J
        CON(3) (TxTbEn)-(TxTbSt) K
        CON(3) (TxTbEn)-(TxTbSt) L
        CON(3) (TxEn13)-(TxTbSt) M
        CON(3) (TxEn17)-(TxTbSt) N
        CON(3) (TxTbEn)-(TxTbSt) O
        CON(3) (TxTbEn)-(TxTbSt) P
        CON(3) (TxTbEn)-(TxTbSt) Q
        CON(3) (TxTbEn)-(TxTbSt) R
        CON(3) (TxEn19)-(TxTbSt) S
        CON(3) (TxEn1A)-(TxTbSt) T
        CON(3) (TxTbEn)-(TxTbSt) U
        CON(3) (TxEn1B)-(TxTbSt) V
        CON(3) (TxTbEn)-(TxTbSt) W
        CON(3) (TxTbEn)-(TxTbSt) X
        CON(3) (TxTbEn)-(TxTbSt) Y
        CON(3) (TxTbEn)-(TxTbSt) Z
        NIBHEX   0        Speed table exists
*
*
        CON(4)   (TxTbSt)+1-(*)  Offset to TEXT Table
        REL(4)   MSGTBL          Offset to message table
        REL(5)   POLHND          Offset to poll handler
*
************************************************************
*
*       STITLE  Main Table
*
        CON(3) (TxEn01)-(TxTbSt)
        REL(5)  ATBIN$
        NIBHEX  F
*
        CON(3) (TxEn03)-(TxTbSt)
        REL(5)  BTA$  
        NIBHEX  F
*
        CON(3) (TxEn04)-(TxTbSt)
        REL(5)  BTD   
        NIBHEX  F
*
        CON(3) (TxEn06)-(TxTbSt)
        REL(5)  CHR2$ 
        NIBHEX  F
*
        CON(3) (TxEn0A)-(TxTbSt)
        REL(5)  DTBIN$
        NIBHEX  F
*
        CON(3) (TxEn12)-(TxTbSt)
        REL(5)  INT$  
        NIBHEX  F
*
        CON(3) (TxEn17)-(TxTbSt)
        REL(5)  NUMR  
        NIBHEX  F
*
        CON(3) (TxEn18)-(TxTbSt)
        REL(5)  NUMX  
        NIBHEX  F
*
        CON(3) (TxEn02)-(TxTbSt)
        REL(5)  BINCMP
        NIBHEX  F
*
        CON(3) (TxEn05)-(TxTbSt)
        REL(5)  chirp 
        NIBHEX  D
*
        CON(3) (TxEn07)-(TxTbSt)
        REL(5)  COUNT 
        NIBHEX  F
*
        CON(3) (TxEn08)-(TxTbSt)
        REL(5)  cursor
        NIBHEX  F
*
        CON(3) (TxEn09)-(TxTbSt)
        REL(5)  Start 
        NIBHEX  F
*
        CON(3) (TxEn0B)-(TxTbSt)
        REL(5)  ESC   
        NIBHEX  F
*
        CON(3) (TxEn0F)-(TxTbSt)
        REL(5)  HXTA  
        NIBHEX  F
*
        CON(3) (TxEn10)-(TxTbSt)
        REL(5)  HEX   
        NIBHEX  F
*
        CON(3) (TxEn11)-(TxTbSt)
        REL(5)  INH   
        NIBHEX  F
*
        CON(3) (TxEn16)-(TxTbSt)
        REL(5)  TYPE  
        NIBHEX  F
*
        CON(3) (TxEn0C)-(TxTbSt)
        REL(5)  FSTe  
        NIBHEX  D
*
        CON(3) (TxEn0D)-(TxTbSt)
        REL(5)  RND1  
        NIBHEX  F
*
        CON(3) (TxEn0E)-(TxTbSt)
        REL(5)  GETNIB
        NIBHEX  F
*
        CON(3) (TxEn13)-(TxTbSt)
        REL(5)  mapkey
        NIBHEX  F
*
        CON(3) (TxEn14)-(TxTbSt)
        REL(5)  MAP$  
        NIBHEX  F
*
        CON(3) (TxEn15)-(TxTbSt)
        REL(5)  MAP   
        NIBHEX  D
*
        CON(3) (TxEn19)-(TxTbSt)
        REL(5)  STRSUM
        NIBHEX  F
*
        CON(3) (TxEn1A)-(TxTbSt)
        REL(5)  TXT$  
        NIBHEX  F
*
        CON(3) (TxEn1B)-(TxTbSt)
        REL(5)  velist
        NIBHEX  D
*
************************************************************
*       STITLE TEXT TABLE
*
TxTbSt
TxEn01
        CON(1) (TxEn02)-(*)-4
        NIBASC \ATBIN$\
        CON(2) #B9
*
TxEn02
        CON(1) (TxEn03)-(*)-4
        NIBASC \BINCOMP$\
        CON(2) #C1
*
TxEn03
        CON(1) (TxEn04)-(*)-4
        NIBASC \BTA$\
        CON(2) #BA
*
TxEn04
        CON(1) (TxEn05)-(*)-4
        NIBASC \BTD\
        CON(2) #BB
*
TxEn05
        CON(1) (TxEn06)-(*)-4
        NIBASC \CHIRP\
        CON(2) #C2
*
TxEn06
        CON(1) (TxEn07)-(*)-4
        NIBASC \CHR2$\
        CON(2) #BC
*
TxEn07
        CON(1) (TxEn08)-(*)-4
        NIBASC \COUNT\
        CON(2) #C3
*
TxEn08
        CON(1) (TxEn09)-(*)-4
        NIBASC \CURS$\
        CON(2) #C4
*
TxEn09
        CON(1) (TxEn0A)-(*)-4
        NIBASC \DT2DOT$\
        CON(2) #C5
*
TxEn0A
        CON(1) (TxEn0B)-(*)-4
        NIBASC \DTBIN$\
        CON(2) #BD
*
TxEn0B
        CON(1) (TxEn0C)-(*)-4
        NIBASC \ESCP$\
        CON(2) #C6
*
TxEn0C
        CON(1) (TxEn0D)-(*)-4
        NIBASC \FKEY\
        CON(2) #CB
*
TxEn0D
        CON(1) (TxEn0E)-(*)-4
        NIBASC \FROUND\
        CON(2) #CC
*
TxEn0E
        CON(1) (TxEn0F)-(*)-4
        NIBASC \GETNIB\
        CON(2) #CD
*
TxEn0F
        CON(1) (TxEn10)-(*)-4
        NIBASC \HEXTOA$\
        CON(2) #C7
*
TxEn10
        CON(1) (TxEn11)-(*)-4
        NIBASC \HEX$\
        CON(2) #C8
*
TxEn11
        CON(1) (TxEn12)-(*)-4
        NIBASC \INHEX$\
        CON(2) #C9
*
TxEn12
        CON(1) (TxEn13)-(*)-4
        NIBASC \INT$\
        CON(2) #BE
*
TxEn13
        CON(1) (TxEn14)-(*)-4
        NIBASC \MAPKEY$\
        CON(2) #CE
*
TxEn14
        CON(1) (TxEn15)-(*)-4
        NIBASC \MAP$\
        CON(2) #CF
*
TxEn15
        CON(1) (TxEn16)-(*)-4
        NIBASC \MAP\
        CON(2) #D0
*
TxEn16
        CON(1) (TxEn17)-(*)-4
        NIBASC \MMTYPE$\
        CON(2) #CA
*
TxEn17
        CON(1) (TxEn18)-(*)-4
        NIBASC \NUMR\
        CON(2) #BF
*
TxEn18
        CON(1) (TxEn19)-(*)-4
        NIBASC \NUMX\
        CON(2) #C0
*
TxEn19
        CON(1) (TxEn1A)-(*)-4
        NIBASC \STRSUM\
        CON(2) #D1
*
TxEn1A
        CON(1) (TxEn1B)-(*)-4
        NIBASC \TXT$\
        CON(2) #D2
*
TxEn1B
        CON(1) (TxTbEn)-(*)-4
        NIBASC \VELIST\
        CON(2) #D3
*
TxTbEn
        NIBHEX 1FF        Text table terminator
************************************************************
*       STITLE POLL HANDLER
*
POLHND
        ?B=0   B        VER poll?
        GOYES  VER$P    Yes
        RTNSXM          No, exit XM=1, Cy=0
VER$P   A=R2            Fetch AVMEMS
        C=R3            Fetch stack pointer
        D1=C
        D1=D1- (VER$en)-(VER$st)-2  allow for our reply
        CD1EX
        ?A>C   A        not enough memory?
        GOYES  VER$Pe   exit not handled Cy=1
        D1=C            restore stack pointer
        R3=C            and save for next file
VER$st
        LCASC   \ TRY:h\
VER$en
        DAT1=C (VER$en)-(VER$st)-2  Write our reply
VER$Pe
        RTNSXM          exit
*
************************************************************
*