*
SUBT16
*
         PLA
         STA   RETADR
         PLA
         STA   RETADR+1
         PLA
         STA   :SUBT
         PLA
         STA   :SUBT+1
         PLA
         STA   :MINU
         PLA
         STA   :MINU+1
         LDA   :MINU
         SEC
         SBC   :SUBT
         TAY
         STY   RETURN
         LDA   :MINU+1
         SBC   :SUBT+1
         TAX
         STX   RETURN+1
         LDA   #2
         STA   RETLEN
         LDA   RETADR+1
         PHA
         LDA   RETADR
         PHA
         RTS
:MINU    DS    2
:SUBT    DS    2