*REM PDP-11 TO 9900 MACROS
*REM SINGLE OPERAND
*
$MACRO CLRB
&P0    SB  &P1,&P1
$END
*
$MACRO DECB
&P0    AI   &P1,->0100
$END
*
$MACRO INCB
&P0    AI   &P1,>0100
$END
*
*REM * NEGB
*
$MACRO TST
&P0    MOV  &P1,&P1
$END
*
$MACRO TSTB
&P0    MOVB &P1,&P1
$END
*
$MACRO COM
&P0    INV &P1
$END
*
$MACRO ASR
&P0    SRA  &P1,1
$END
*
*REM * ASRB
*
$MACRO ASL
&P0    SLA  &P1,1
$END
*
*REM * ASLB
*
*REM SHIFT LEFT CIRCULAR BY ONE BIT
$MACRO ROL
&P0    SRC &P1,15
$END
*
*REM ROLB
*
$MACRO ROR
&P0    SRC  &P1,1
$END
*
*REM RORB
*
$MACRO SWAB
&P0    SWPB &P1
$END
*
$MACRO ADC
&P0    JNC ADCEND
       INC &P1
$LABEL ADCEND
$END
*
$MACRO ADCB
&P0    JNC ADCBED
       AI  &P1,>0100
$LABEL ADCBED
$END
*
$MACRO SBC
&P0    JNC SBCEND
       DEC &P1
$LABEL SBCEND
$END
*
$MACRO SBCB
&P0    JNC SBCBED
       AI  &P1,->0100
$LABEL SBCBED
$END
*
$MACRO SXT
&P0    IF  &P1,LT,=0,SXTNEG
       CLR &P1
$EXIT
$LABEL SXTNEG
&P0    SETO @P1
$END
*