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;