Lines Matching full:bitno
3760 (define-pmacro (get-register-bit reg bitno)
3761 (and (srl reg bitno) 1)
3764 (define-pmacro (set-register-bit reg bitno value)
3765 (set reg (or (and reg (inv (sll 1 bitno)))
3766 (sll (and QI value 1) bitno)))
3769 (define-pmacro (get-memory-bit mach base bitno)
3770 (and (srl (mem-mach mach QI (add base (div bitno 8)))
3771 (mod bitno 8))
3775 (define-pmacro (set-memory-bit mach base bitno value)
3777 (set addr (add base (div bitno 8)))
3780 (inv (sll 1 (mod bitno 8))))
3781 (sll (and QI value 1) (mod bitno 8)))))
