; vhodno-izhodni izvodi

      #define      CH1      PORTB,7      ; CLEAN
      #define      CH2      PORTB,6      ; CRUNCH
      #define      CH3      PORTB,5      ; DRIVE
      #define      CH4      PORTB,4      ; SOLO
      #define      CH5      PORTB,3      ; HI_GAIN
      #define      CH6      PORTB,2      ; HI_GAIN_SOLO
      #define      REVERB      PORTB,1      ; REVERB - ON/OFF
      #define      MUTE      PORTB,0      ; izhod za MUTE

      #define      RDRVCLN      PORTA,4
      #define      RLOHIGN      PORTA,3
      #define      RMIDSFT      PORTA,2
      #define      RREVERB      PORTA,1
      #define      FX         PORTA,0

; programa

      ORG      H'0000'
      goto      start

; na4alo na programata

start           bsf      STATUS,RP0
      movlw      B'00010100'
      movwf      OPTION_REG
      bcf      STATUS,RP0
      clrf      PORTB
      bsf      STATUS,RP0
      movlw      B'11111110'      ; portowete B -> vhodove, B0-> izhod za mute
      movwf      TRISB
      bcf      STATUS,RP0
      clrf      PORTA
      bsf      STATUS,RP0
      clrf      TRISA         ; nulirane portove A -> izhodi
      bcf      STATUS,RP0
      call      clean
      goto      main

check4          btfsc      CH4         ; solo
      goto      check5
      call      wait
      btfsc      CH4
      goto      check5
      call      solo

solo    bsf         MUTE
      movlw      H'03'
      call      read_ee
      call      wait
      bcf         MUTE
      return

read_ee   movwf      EEADR      ; 4etene na eeprom
      bsf         STATUS,RP0
      bsf         EECON1,RD
      bcf         STATUS,RP0
      movf      EEDATA,w
      movwf      PORTA
      return