*
*      PRTMSG
*      PRINTS A MESSAGE BY NUMBER.  WHEN CALLED,
*      X SHOULD CONTAIN THE LOCATION OF THE
*      MESSAGE TABLE, AND B SHOULD CONTAIN THE
*      MESSAGE NUMBER, A NON-NEGATIVE INTERGER.
*      IN THE MESSAGE TABLE, A MESSAGE IS
*      TERMINATED BY THE # SYMBOL.  
*      THE TABLE MUST BE TERMINATED BY ##.
*      IF THE MESSAGE IS OUTPUT, B RETURNS
*      WITH O; OTHERWISE -1.
*
       SPC 2
PRTMSG CLC
TSTNR  TSTB IS THIS THE MESSAGE?
       BNE SKIP1
MSGCHR LDAA X
       CMPA #$23 # IS END OF MESSAGE.
       BNE OUTIT
       RTS RETURN O IN B.
OUTIT  JSR OUTPRC
       INX
       BRA MSGCHR
SKIP2  INX
SKIP1  LDAA #$23
       CMPA X
       BNE SKIP2
       SBCB #1 DECREMENT MESSAGE NUMBER.
       INX
       CMPA X ## IS STOPPER.
       BNE TSTNR
       LDAB #-1 RETURN -1 IN B.
       RTS
*
OUTPRC EQU $E1D1
       END