Retro1.org codex

*DECK     SSBSBW
          IDENT  SSBSBW 
          ENTRY  SSBSBW 
          TITLE  SSBSBW - SET BIT IN WORD.
*COMMENT  SET BIT IN WORD.
 SSBSBW   SPACE  4,10 
***       SSBFBW - SET BIT IN WORD. 
* 
*         S. H. FISCHER.     81/07/15.
          SPACE  4,10 
***       SSBSBW IS A ROUTINE TO EFFICIENTLY SET A BIT IN A WORD TO 
*         THE RIGHT OF BIT 48. THE BIT NUMBER IS 1 FOR BIT 47, 2 FOR
*         BIT 46, ETC.
          SPACE  4,10 
***       SYMPL CALLING SEQUENCE. 
* 
*         SSBSBW( WORD, BITN) 
* 
*                WORD = WORD TO SET BIT IN. 
* 
*                BITN = BIT NUMBER TO SET.
 SBW      SPACE  4,10 
 SSBSBW   EQ     *+1S17D
 SBWX     EQU    *
          SA3    A1+1        BIT NUMBER ADDRESS 
          SA2    X1          WORD 
          MX4    1
          SA3    X3          BIT NUMBER 
          SB7    X3-49        B7 = N - 49 = -( 49 - N ) 
          LX4    -B7         POSITION BIT 
          BX6    X2+X4       SET BIT
          SA6    X1          STORE WORD 
          EQ     SBWX        RETURN 
          END