12F675 - How to configure the INTCON command to activate the various interrupts?

[richard]

REGISTER 3-4: IOC: INTERRUPT-ON-CHANGE GPIO REGISTER (ADDRESS: 96h)

[zorgloub]

Hi,
In fact, I'm more of a PICAXE user and I transform my "simple" codes with PBP to program small PICs.
I was trying to use interrupts...
The subtleties of the PICs are therefore quite nebulous for me and my English is not flexible and subtle enough to understand the mysteries of the data sheets.
In fact what I wanted to do initially seemed easy to me... but it doesn't seem to be the case

I just want to vary a variable named MODE from 0 to 3, 0 to 3, ..., when port GP0 (which has a pull-up resistor to Vcc) goes to zero state.

If someone could help me out with just this little routine, that would be great.
Thanks in advance.

[richard]

'****************************************************************
'*  Name    : ioc-demo-12f675.BAS                               *
'*  Author  : richard                                           *
'*  Notice  : Copyright (c) 2023 caveat emptor                  *
'*          : All Rights Reserved                               *
'*  Date    : 22/04/2023                                        *
'*  Version : 1.0                                               *
'*  Notes   : 12f675 ioc gpio.0                                 *
'*          :                                                   *
'****************************************************************
#CONFIG
cfg = _INTRC_OSC_NOCLKOUT
cfg&= _WDT_ON
cfg&= _PWRTE_OFF
cfg&= _MCLRE_ON
cfg&= _BODEN_ON
cfg&= _CP_OFF
cfg&= _CPD_OFF
  __CONFIG cfg
#ENDCONFIG
DEFINE INTHAND    poll
wsave VAR BYTE    $20     SYSTEM      
ssave VAR BYTE    BANK0   SYSTEM     


mode  var byte
DUMMY VAR BYTE


INPT  VAR GPIO.0
LED   VAR GPIO.1


cmcon = 7
ANSEL = 0
TRISIO.0 = 1
TRISIO.1 = 0
IOC.0 = 1




MODE = 3      
DUMMY = GPIO
INTCON = 001000
LED = 1


MAIN:
    IF  ! MODE THEN
        LED = 0
        pause 1000
        LED = 1
        mode = 3
        DUMMY = GPIO
        INTCON = 001000
    endif 
    PAUSE 10
GOTO MAIN




asm
poll
    MOVWF wsave 
    SWAPF STATUS,W 
    BCF STATUS,RP0 
    MOVWF ssave 
    
    BANKSEL _mode
    clrf _mode    
    
    SWAPF ssave,W
    MOVWF STATUS 
    SWAPF wsave,F 
    SWAPF wsave,W 
ENDASM

[richard]

wasn't really happy with previous attempt

these are better one with dt ints one without

[zorgloub]

Hi, Richard,
I will carefully read your .txt files.
But I really only master Basic... not really ASM

[richard]

I will carefully read your .txt files.

not sure if I have to point out the obvious but
what sort of file would "ZORB.pbp.txt" if you took the ".txt" off the end ?
[the pbp forum will not allow a pbp file to be uploaded , you need to mask its type with a .txt extension]

But I really only master Basic... not really ASM

such a limited outlook

good luck employing interrupts in any other way with such limited chips as 12f675

[amgen]

" not sure if I have to point out the obvious" but you often have some degrading, demeaning cutting comment to people seeking help. Basically a reflection of yourself......

please delete this