.SBTTL ADD,SUB
.MACRO ADDSS
$B1 ADD
.ENDM


.MACRO ADDIS N
$S0 ADD,#N
.ENDM


.MACRO ADDMS D,L
$BR L,D
$S0 ADD,$D($B)
.ENDM


.MACRO ADDSM D,L
$BR L,D
$D1 ADD,$D($B)
.ENDM


.MACRO ADDIM N,D,L
$M1 ADD,#'N,D,L
.ENDM


.MACRO SUBSS
$B1 SUB
.ENDM


.MACRO SUBIS N
$S0 SUB,#N
.ENDM


.MACRO SUBMS D,L
$BR L,D
$S0 SUB,$D($B)
.ENDM


.MACRO SUBSM D,L
$BR L,D
$D1 SUB,$D($B)
.ENDM


.MACRO SUBIM N,D,L
$M1 SUB,#'N,D,L
.ENDM