Time Module Clear Alarm

[Hiwi]

i removed 3 lines, which ar not needed. They were added, so that register c could be updated to the original value before special functions like ATOX will be excecuted. In case they will fail and the programm stops there will not be a Memory Lost.

Code:


01*LBL "CLALMS"
 02 CLKEYS    // to be sure, no key assignments
 03 "
iu**"      // bytes: 245, 1, 105, 12, 0, 0
 04 X<> [           // exchange x with M
 05 X<> c           // exchange x with c (set c to 192) save c on stack
 06 RCL 00       // RCL dataregister 192
 07 X<> [        // exchange M
 10 ATOX          // get first byte of dataregister,  alarm identifier, should be 170 normalised 26 
 11 ATOX          // get number of alarm regs, optional 
 12 RCL T          // RCL c from stack, see line 05
 14 11          // 11 or 0 for new identifier, use a value for buffer identifier for a modul that is not present 
 15 STO 00      // store it
 16 RDN          // trough away identifier from stack
 17 STO c          // original c msut be here, store it in c (this is very important, or a MEMORY LOST will appear)
 18 CLST          // clear stack
 19 END         // end
[/php]