*PDP-11 PC instructions
$MACRO BR
&P0    JMP  &P1
$END
$MACRO BNE
&P0    JNE  &P1
$END
$MACRO BEQ
&P0    JEQ  &P1
$END
$MACRO BMI
&P0    JLT  &P1
$END
$MACRO BPL
$REM JMP if >=0
&P0    JGT  &P1
       JEQ  &P1
$END
$MACRO BCS
&P0    JOC  &P1
$END
$MACRO BCC
&P0    JNC  &P1
$END
$MACRO BVS
$REM jump if OVerflow
&P0    JNO  BVSLAB
       JMP  &P1
$LABEL BVSLAB
$END
$MACRO BVC
&P0    JNO  &P1
$END
* BLT
*REM jmp if Neg XOR OVerflow
$MACRO BLT
&P0    JL   &P1
$ERROR "Check usage of BLT"
$END
* BGE
*REM jmp if Neg=OVerflow
$MACRO BGE
&P0    JHE  &P1
$END
*BLE BLT and if 0
$MACRO BLE
&P0    JLE  &P1
$END
*BGT jmp if BGT except on 0
$MACRO BGT
&P0    JH   &P1
$ERROR "Check usage of BGT"
$END
$MACRO BHI
&P0    JH   &P1
$END
$MACRO BLOS
&P0    JL   &P1
$END
$MACRO BLO
&P0    JOC  &P1
$END
$MACRO BHIS
&P0    JNC  &P1
$END
$MACRO JSR
$REM jsr reg,pc
$REM -(SP)=reg, reg=PC
$REM jmp to pc
$REM R6 is stack?
&P0    DECT R6
       MOV  &P1,*R6
       LI   &P1,L&S1
       BLWP &P2
L&S2   EQU  $
$END
$MACRO RTS
&P0    IF,&S2,EQ,"00001",RTSREG
       RTWP
$EXIT
$LABEL RTSREG
&P0    MOV  *R6+,&P1
       RTWP
$END
*$MACRO JMP
* can't define, dups 9900 JMP
*      B    &P1
*$END
*SOB