RosettaCodeData/Task/Enforced-immutability/68000-Assembly/enforced-immutability.68000
2023-07-01 13:44:08 -04:00

6 lines
102 B
Text

bit7 equ %10000000
bit6 equ %01000000
MOVE.B (A0),D0
AND.B #bit7,D0
;D0.B contains either $00 or $80