bsr delayf
rts
delayf: ldhx #$0005
mov #$36,tsc
sthx tmodh
bclr 5,tsc
;wait 5x20us
;stop TIM & / 64
;count H:X x 20us
;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
bra delmain
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;1 second delay=$C350=50000 x 20us
;
;
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
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
AN1950
Sensors
Freescale Semiconductor
19
FREESCALE [ Freescale ]
