                 result = @readByte address
                 @carryFlag = @isSetBit result, 0
                 result = result >> 1
-                result |= (1 << 7) if oldCarryFlag is on
+                result |= Bit7 if oldCarryFlag is on
                 @zeroFlag = @isZero result
                 @negativeFlag = @isNegative result
                 @writeByte address, result
             else
                 @carryFlag = @isSetBit @accumulator, 0
                 @accumulator = @accumulator >> 1
-                @accumulator |= (1 << 7) if oldCarryFlag is on
+                @accumulator |= Bit7 if oldCarryFlag is on
                 @zeroFlag = @isZero result
                 @negativeFlag = @isNegative result
 

                result = @readByte address
                @carryFlag = @isSetBit result, 7
                result = (result << 1) & 0xFF
                result |= 1 if oldCarryFlag is on
                @zeroFlag = @isZero result
                @negativeFlag = @isNegative result
                @writeByte address, result
            else
                @carryFlag = @isSetBit @accumulator, 7
                @accumulator = (@accumulator << 1) & 0xFF
                @accumulator |= 1 if oldCarryFlag is on
                @zeroFlag = @isZero result
                @negativeFlag = @isNegative result



    getStatus: ->
        status = 0
        status |= Bit0 if @carryFlag
        status |= Bit1 if @zeroFlag
        status |= Bit2 if @interruptDisable
        status |= Bit3 if @decimalMode
        status |= Bit4 if @breakCommand
        status |= Bit6 if @overflowFlag
        status |= Bit7 if @negativeFlag
        status

    setStatus: (status) ->
