AN1950

Sensors

Freescale Semiconductor

19

bsr delayf

rts

delayf: ldhx #$0005

;wait 5x20us

mov #$36,tsc

;stop TIM & / 64

sthx tmodh

;count H:X x 20us

bclr 5,tsc

;start clock

delayfls: brclr 7,tsc,delayfls

rts

;this RTS will move from RAM back into EEPROM

lastbyt: nop

;*************** END OF CODE THAT WILL BE COPIED INTO AND WILL RUN FROM RAM ******

;-------- DELAY Routines --------------------------------------------

;

del1s: generates a 1s delay

;

-----

del1s: pshh

pshx

ldhx #$C350

;1 second delay=$C350=50000 x 20us

bra delmain

;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

;

del100ms: generates a 100ms delay

;

--------

del100ms: pshh

pshx

ldhx #$1388

bra delmain

;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

;

del50ms: generates a 50ms delay

;

-------

del50ms: pshh

pshx

ldhx #$09C4

bra delmain

;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

;

del25ms: generates a 25ms delay

;

-------

del25ms: pshh

pshx

ldhx #$04E2

bra delmain

;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

;

del5ms: generates a 5ms delay

;

------

del5ms: pshh

pshx

ldhx #$00FA

bra delmain

;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

;

del1ms: generates a 1ms delay

;

------

del1ms: pshh

pshx

ldhx #$0032

bra delmain

;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

;

del100us: generates a 100us delay

;

-----

del100us: pshh

pshx

ldhx #$0005

bra delmain

;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -