Setup port pins into an array

[longpole001]

Hi guys ,

well the internal osc is 32Mhz ,

The code that works is here but after this point it jumps a bit cos of other routines that follow , i have manged to get around it in that instead of pausing 350us at the end of each scan it goes and goes do other things so its not as bad .

I guess what i am looking for is Either

A. ASM code example to replace the working code so that it may allow for less time issues for the cpu when doing other things
B. As the CPU has inbuilt PWM , can this be used in place of the ASM , existing code , knowing the a single PWM output is to be sent to all available output pins sequentially


Cheers

Sheldon

Working Code

For  T =  0 to 9                                                               ' Select IR LED for Pulses 
         LOOKUP T, [1,2,4,5,16,17,18,19,20,21],PortOffset        ' Offsets from Port A to point to port A and port C I/O ports ( number of offset relates to bits offset in mem map of chip)
                 Cycles = 0                                                     ' Set to 0
             for Cycles = 1 to Pulse_cnt                                   ' Each IR led increments the amount of pulses by 2 for IR LED ID use 
                  PORTA.0[PortOffset] = 1                                 ' Set IR LED High
                  pauseus 2                                                     ' Remain on for 2uS 
                  PORTA.0[PortOffset] = 0                                 ' Set IR LED Low
                  pauseus 9                                                     ' remain off for 9uS
             next Cycles 
          
          
          Pulse_cnt = Pulse_cnt +2               ' increment pulse count by offset of 2 for each IR LED
          pauseus 320                               ' Wait 350us( adj) between pulse bursts and selecting next IR LED 
         Next T

[longpole001]

the ASM example i have is one where a set pin is used to output , but i required pins to be multi as per my other code , my asm sucks , another area to get better at

Pulse:              ' Generate "Cycles" number of 40kHz pulses
ASM                 ; Keep this routine in code page 1, and jump over to Main
   	BSF	IRTX,PIN		      ; 1 MAKE IR HIGH 35% Duty cycle = 9 uS
	GOTO	$+1
	GOTO	$+1
	GOTO	$+1
	GOTO	$+1
	BCF	IRTX,PIN		      ; 1 MAKE IR LOW 17 uS
	GOTO	$+1
	GOTO	$+1
	GOTO	$+1
	GOTO	$+1
	GOTO	$+1
	GOTO	$+1
	DECFSZ	Cycles,F	
	GOTO	_Pulse	      ; 2    26 uS
ENDASM
   return           ' Return to caller

[prstein]

I know effectively nothing about assembly. I don't think HPWM can be used like that on sequential pins. I would try something interrupt based, like this:

'16F1825 
Define OSC 32
'32 MHz
'= 8 MHz instruction time
'= 0.000000125 s/instruction
'= 0.000125 ms/instruction
'= 0.125 us/instruction
'So, 320 us = 2560 clocks

'Set up Timer1
T1CON = %00000001
'        |||||||1 - TMR1ON
'        ||||||0  - Unimplemented
'        |||||0   - T1SYNC: 1 = Do not synchronize external clock input
'        ||||0    - T1OSCEN: 0 = Dedicated Timer1 oscillator circuit disabled
'        ||00     - T1CKPS: 00 = 1:1 Prescale value
'        00       - TMR1CS: 00 = Timer1 clock source is instruction clock (FOSC/4)

PortOffset var byte
Cycles var byte
Pulse_cnt var byte
Pulse_cnt = 0
T var byte
bGo var bit
bGo = 0
T = 0

INCLUDE "DT_INTS-14.bas"     ; Base Interrupt System
INCLUDE "ReEnterPBP.bas"  ; Include if using PBP interrupts
ASM
INT_LIST  macro    ; IntSource,        Label,  Type, ResetFlag?
        INT_Handler    TMR1_INT,  _TMR1_Handler,   PBP,  yes
    endm
    INT_CREATE               ; Creates the interrupt processor
ENDASM

@   INT_ENABLE   TMR1_INT     ; enable the interrupt

'Load Timer 1 with value to make it interrupt after 320 us
'for 320 us delay, want 2560 clocks
' 65534 - 2560 =  62974
' subtract ~7 more to account for the time to load the timer = 62967
' in hex, = $F5F7
TMR1H = $F5 	
TMR1L = $F7 	

'Main Loop
Main:
  if bGo = 1 then
    LOOKUP T, [1,2,4,5,16,17,18,19,20,21],PortOffset        ' Offsets from Port A to point to port A and port C I/O ports ( number of offset relates to bits offset in mem map of chip)
    Cycles = 0                                                     ' Set to 0
    for Cycles = 1 to Pulse_cnt                                   ' Each IR led increments the amount of pulses by 2 for IR LED ID use 
      PORTA.0[PortOffset] = 1                                 ' Set IR LED High
      pauseus 2                                                     ' Remain on for 2uS 
      PORTA.0[PortOffset] = 0                                 ' Set IR LED Low
      pauseus 9                                                     ' remain off for 9uS
    next Cycles 
          
    Pulse_cnt = Pulse_cnt + 2               ' increment pulse count by offset of 2 for each IR LED
    T = T + 1
    if T = 10 then
      T = 0
    endif
    bGo = 0
  endif
goto main



TMR1_Handler:
  'Re-load Timer1
  TMR1H = $F5 	
  TMR1L = $F7
  bGo = 1 	
@ INT_RETURN

Untested but it compiles...

Best Regards,
Paul