1
2
3
4
5
6
7
8
9
10
|
package alu_types is
type alu_op is (ADDWF, ANDWF, ADDLW, ANDLW, BCF, BTFSC,
BSF, BTFSS, CLRF, CLRW, COMF, DECF,
DECFSZ, INCF, INCFSZ, IORLW, MOVF, MOVWF, CALL,
GOTO, MOVLW, RETLW, RETUR, IORWF, NOP,
RLF, RRF, SUBLW, SUBWF, SWAPF, XORLW, XORWF);
-- Status register bits: Z=2, DC=1, C=0
type alu_flag is (FLAG_Z, FLAG_DC, FLAG_C);
end package;
|