[DECSUB
[DECIMAL SUBTRACTION
[USES DECADD AND DECBASE
[JMP 1S
[ADDR MINUEND
[ADDR SUBTRAHEND
[ADDR DIFFERENCE
[#1B-ADDR BUFFER AREA
[1L=#DIGITS 
[1B,1L SETUP IN DECBASE
#1S CLR
ADD 0
JMP 1N [INIT
BCOi
 4000  [INVERT SIGN
JMP 1A+3
[END DECSUB
[JAN 8|15|69