LEX    'MSGLEX'
       TITLE  'MSG$ FUNCTION'
 *
 *
 * Modified version of MSG$.
 * Extended error check
 * Argument>255255 = Error
 *
 * Graham Fraser  86/12/15
 *
       ID     #52
       MSG    0
       POLL   0
 *
       ENTRY  msg$
       CHAR   #F
 *
       KEY    'MSG$'
       TOKEN  3
 *
       ENDTXT
 *
 *
POP1R  EQU    #0E8FD
FLTDH  EQU    #1B223
R3=D10 EQU    #03526
FPOLL  EQU    #1250A
D0=AVS EQU    #09B2C
TBMSG$ EQU    #099AB
ERRM$f EQU    #09806
HEXDEC EQU    #0ECAF
A-MULT EQU    #1B349
DECHEX EQU    #1B2D2
FIXP   EQU    #02A6E
MFERR  EQU    #09393
 *
eIVARG EQU    #0B
 *
pTRANS EQU    #EF
 *
 *
       NIBHEX 811
msg$   GOSBVL POP1R
       GOSUB  msg20
       LCHEX  3E517
       ?C<A   A
       GOYES  msg30
 *
msg10  GOSBVL HEXDEC
       LCHEX  00256
       ?C<=A  X
       GOYES  msg30
       R0=A
       ASR    W
       ASR    A
       ASR    A
       ?C<=A  A
       GOYES  msg30
       GOSBVL A-MULT
       C=R0
       C=0    M
       A=C+A  A
       GOSBVL DECHEX
       GOC    msg40
       GOVLNG FIXP
 *
msg20  GOSBVL FLTDH
       RTNC
msg30  LC(4)  eIVARG
       GOVLNG MFERR
       RTNSXM
 *
 *
msg40  R0=A
       SETHEX
       D1=D1+ 16
       GOSBVL R3=D10
       GOSBVL FPOLL
       CON(2) pTRANS
       GOSBVL D0=AVS
       C=R0
       GOSBVL TBMSG$
       GOVLNG ERRM$f
 *
       END