_asm
clrf STKPTR, ACCESS // Clear the hardware stack
movlw 0x1F // 31 of H/W stack entries
clrHWStack:
incf STKPTR, 1, ACCESS //fill all H/W stack with 0x0000
clrf TOSU, ACCESS // I am using >64KB programm memmory
clrf TOSH, ACCESS
clrf TOSL, ACCESS
cpfseq STKPTR, ACCESS // Compare with WREG, Skip =
bra clrHWStack
clrf STKPTR, ACCESS // reset STKPTR
incf STKPTR, 1, ACCESS // increment STKPTR to 1, so it can return to my destination
// and after reading TOSU, TOSH and TOSL on STACK level "1"
// auto decrement STKPTR to 0, as a RESTART would have been isued
// i pazi svaka promjena koda iznad doticne adrese, mjenja nju samu
clrf TOSU, ACCESS // * wanted destination, LED speed two
movlw 0x01 // *
movwf TOSH, ACCESS // *
movlw 0x18 // *
movwf TOSL, ACCESS // *
_endasm