{ ------- // ------------- . ------------------------------------ //////////////////////// . //////////////////////////////////// ------- // ------------- . ------------------------------------ ÚÄÄ¿ . *CASE7 07³ . :CASE 7 - MESSAGES & ALARMS ff³ #nxt . ff³ *cas7-1 . ÃÄÄÙ . ------- // ------------- . ------------------------------------ // . :CASE 7 // . ÚÄÄ¿ . :MAIN Message Selection *cas7 04³memh . B6³ meml . =>$Rseq FF³ mask . 00³ bits . ?No Activ ÃÄÄ´ . 01³ AND . =THEN, next, FF³ DUM . ELSE, to ckRGN,,> ÀÄÄÙ . ------- // ------------- . ------------------------------------ ÚÄÄ¿ . :IN SERVICE *inSRV 02³memh . A6³ meml . =>Msg# FF³ mask . 0D³ bits . ?as called ÃÄÄ´ . ff³*ckMsRn . =THEN, to ckMsRn,,> 01³ AND . ELSE, next, ÀÄÄÙ . ÚÄÄ¿ . C0³ . Ä´ . 02³memh . A6³ meml . 0D³ byt . SET Msg# ÀÄÄÙ . ÚÄÄ¿ . 87³ . 0D³ id . IDMSG #D - **IN SER..... ÀÄÄÙ . // ------------- . ------------------------------------ ÚÄÄ¿ . *ckMsRn 01³memh . CF³ meml . =>Idler 02³ mask . 02³ bits . ?Missed Rgn ÃÄÄ´ . 01³ AND . =THEN, next, ff³*rsMsRn . FF³ DUM . >ELSE, none ÀÄÄÙ . // . ÚÄÄ¿ . :Missed REGEN 01³memh . 06³ meml . =>cpy 08³ mask . 00³ bits . ?Msg ÃÄÄ´ . 01³ AND . =THEN, next, FF³ DUM . ELSE, to FMSGs,,> ÀÄÄÙ . ÚÄÄ¿ . 87³ . 8C³ id . FMSG #C - MISSED REG..... ÀÄÄÙ . 81 . ff> *tgMsRn . to ,,> // ------------- . ------------------------------------ ÚÄÄ¿ . :CLR Missed REGEN *rsMsRn 01³memh . 06³ meml . =>cpy 08³ mask . 08³ bits . ?Msg ÃÄÄ´ . 01³ AND . =THEN, next, ff³*FMSGs . FF³ DUM . >ELSE, none ÀÄÄÙ . ÚÄÄ¿ . 86³ . 0C³ id . RMVMSG #C - MISSED REG..... ÀÄÄÙ . ÚÄÄ¿ . *tgMsRn 80³ . Ä´ . 01³memh . =>cpy 06³ meml . 08³ ON . TOG  08³ OFF . ÀÄÄÙ . 81 . ff> *FMSGs . to ,,> ------- // ------------- . ------------------------------------ ------- // ------------- . ------------------------------------ ÚÄÄ¿ . :Always CLEAR Warn [Missed Regen] *ckRGN 80³ . Ä´ . 01³memh . CF³ meml . 00³ ON . 02³ OFF . CLR Warn ÀÄÄÙ . ÚÄÄ¿ . :Select OP Mode 01³memh . 07³ meml . =>s 02³ mask . 02³ bits . ?ManOp ÃÄÄ´ . 01³ AND . =THEN, next, ff³*slRGN . FF³ DUM . >ELSE, none ÀÄÄÙ . // . ÚÄÄ¿ . :MANUAL REGEN 02³memh . A6³ meml . =>Msg# FF³ mask . 0F³ bits . ?as called ÃÄÄ´ . ff³*FMSGs . =THEN, to FMSGs,,> 01³ AND . ELSE, next, ÀÄÄÙ . ÚÄÄ¿ . C0³ . Ä´ . 02³memh . A6³ meml . 0F³ byt . SET Msg# ÀÄÄÙ . ÚÄÄ¿ . 87³ . 0F³ id . IDMSG #F - **MANUAL R..... ÀÄÄÙ . 81 . ff> *FMSGs . to ,,> // ------------- . ------------------------------------ ÚÄÄ¿ . :REGENERATION *slRGN 02³memh . A6³ meml . =>Msg# FF³ mask . 0E³ bits . ?as called ÃÄÄ´ . ff³*FMSGs . =THEN, to FMSGs,,> 01³ AND . ELSE, next, ÀÄÄÙ . ÚÄÄ¿ . C0³ . Ä´ . 02³memh . A6³ meml . 0E³ byt . SET Msg# ÀÄÄÙ . ÚÄÄ¿ . 87³ . 0E³ id . IDMSG #E - **REGENE..... ÀÄÄÙ . ------- // ------------- . ------------------------------------ ------- // ------------- . ------------------------------------ // . :FLASH Messages ÚÄÄ¿ . *FMSGs 01³memh . 07³ meml . =>s 01³ mask . 01³ bits . ?Clock ÃÄÄ´ . ff³*clkOK . =THEN, to clkOK,,> 01³ AND . ELSE, none ÀÄÄÙ . // . :Check Clock ÚÄÄ¿ . 01³memh . 06³ meml . =>cpy 01³ mask . 00³ bits . ?/Msg ÃÄÄ´ . 01³ AND . =THEN, next, FF³ DUM . ELSE, to ckSCD,,> ÀÄÄÙ . ÚÄÄ¿ . :Check Clock Msg 87³ . 93³ id . IDMSG #13 "Check CLO... ÀÄÄÙ . 81 . ff> *tgCLK . to ,,> ------- // ------------- . ------------------------------------ ÚÄÄ¿ . 07³ dumskp . :CASE 7 - MESSAGES & ALARMS ff³ #nxt . // ------------- . ------------------------------------ ÚÄÄ¿ . :CLOCK OK *clkOK 01³memh . 06³ meml . =>cpy 01³ mask . 01³ bits . ?Msg ÃÄÄ´ . 01³ AND . =THEN, next, ff³*ckSCD . FF³ DUM . >ELSE, none ÀÄÄÙ . // . ÚÄÄ¿ . :REMOV Msg 86³ . 13³ id . RMVMSG #13 ÀÄÄÙ . ÚÄÄ¿ . *tgCLK 80³ . Ä´ . 01³memh . 06³ meml . =>cpys 01³ ON . 01³ OFF . TOG Msg ÀÄÄÙ . ------- // ------------- . ------------------------------------ ------- // ------------- . ------------------------------------ // . :Check SChedule ÚÄÄ¿ . *ckSCD 02³memh . F7³ meml . =>Month FF³ mask . 24³ bits . ?>23 ÃÄÄ´ . 01³ AND . =THEN, next, ff³*scdOK . 01³ AND . >ELSE, next, ÀÄÄÙ . ÚÄÄ¿ . :No Schedule 01³memh . 06³ meml . =>cpy 04³ mask . 00³ bits . ?Msg ÃÄÄ´ . 01³ AND . =THEN, next, FF³ DUM . ELSE, to ckLRM,,> ÀÄÄÙ . ÚÄÄ¿ . 87³ . 92³ id . IDMSG #12 "No Schedule ÀÄÄÙ . 81 . ff> *tgSCD . to ,,> ------- // ------------- . ------------------------------------ ÚÄÄ¿ . :Shedule OK *scdOK 01³memh . 06³ meml . =>cpy 04³ mask . 04³ bits . ?Msg ÃÄÄ´ . 01³ AND . =THEN, next, ff³*ckLRM . FF³ DUM . >ELSE, none ÀÄÄÙ . // . ÚÄÄ¿ . :REMOV Msg 86³ . 12³ id . RMVMSG #12 ÀÄÄÙ . ÚÄÄ¿ . *tgSCD 80³ . Ä´ . 01³memh . 06³ meml . =>cpys 04³ ON . 04³ OFF . TOG Msg ÀÄÄÙ . // . ------- // ------------- . ------------------------------------ ------- // ------------- . ------------------------------------ // . :ALARMS // . ÚÄÄ¿ . :CHECK Paused Regen *ckLRM 04³memh . B6³ meml . =>$Rseq 18³ mask . 00³ bits . ?none ÃÄÄ´ . 01³ AND . =THEN, next, FF³ DUM . ELSE, to doLRM,,> ÀÄÄÙ . // . ÚÄÄ¿ . :CLR Steady Leds 80³ . Ä´ . 01³memh . 11³ meml . 00³ ON . 03³ OFF . CLR Steady Leds ÀÄÄÙ . ÚÄÄ¿ . 01³memh . 06³ meml . =>FMsg's 0D³ mask . 00³ bits . ?none ÃÄÄ´ . 01³ AND . =THEN, next, FF³ DUM . ELSE, to flLRM,,> ÀÄÄÙ . // ------------- . ------------------------------------ // . :CLEAR ALARM ÚÄÄ¿ . 80³word . Ä´ . 01³memh . 10³ meml . =>LEDs Ä´ . 00³ ON . 04³ OFF . OFF LRMld ÀÄÄÙ . FF FIN . FIN,,, // ------------- . ------------------------------------ ÚÄÄ¿ . :FORCE Steady Leds *doLRM A2³ . Ä´ . CopyBytPair 01³memh . 10³ meml . =>FLASH Leds Ä´ . 03³ mask . ÀÄÄÙ . ÚÄÄ¿ . :SET LRM Led *flLRM 80³byt . Ä´ . 01³memh . 10³ meml . Ä´ . 04³ ON . FLASH LRMld 00³ OFF . ÀÄÄÙ . FF FIN . FIN,,, ------- // ------------- . ------------------------------------ //////////////////////// . //////////////////////////////////// ------- // ------------- . ------------------------------------ ÚÄÄ¿ . *CASE8 08³ . :CASE 8 - Return to Main Screen ff³ #nxt . ff³ *cas8-1 . ÃÄÄÙ . ÚÄÄ¿ . *K8clr C0³ . Ä´ . 01³memh . 0B³ meml . 00³ byt . CLR DlyK8 ÀÄÄÙ . FF FIN . FIN,,, ------- // ------------- . ------------------------------------ // . :CASE 8 ÚÄÄ¿ . *cas8 01³memh . 23³ meml . =>rawKeys F0³ mask . 00³ bits . ?none ÃÄÄ´ . 01³ AND . =THEN, next, FF³ DUM . ELSE, to K8clr,,< ÀÄÄÙ . ÚÄÄ¿ . D1³ . Pattern GoTo Ä´ . 02³memh Pattern . => 04³ meml byt . Ä´ . 1F³ mask . ?no data ff³*K8clr . =then, to Ä´ . 01³ . ?Scr#1 [Main] ff³*K8clr . =then, to K8clr,,< Ä´ . . 13³ . ?Scr#13 [Regen] . ff³*K8clr . =then, to K8clr,,< Ä´ . 00³ bits . ?no match 01³ AND . =then, next, ÀÄÄÙ . // . ÚÄÄ¿ . :Tymscale 01³memh . 96³ meml . =>STym FF³ mask . 30³ bits . ?Sec ÃÄÄ´ . 01³ AND . =THEN, next, FF³ FIN . ELSE, FIN,,, ÀÄÄÙ . ÚÄÄ¿ . :Count Sec. Tym B8³ . Ä´ . IncrKntrToVarLimit 01³memh . 0B³ meml Data . =>DlyK Ä´ . 04³ memh . ?LIM:Kntr 9B³ meml Limit . [ScTymr] ÃÄÄ´ . 01³ AND . =THEN, next, FF³ FIN . ELSE, next, ÀÄÄÙ . ------- // ------------- . ------------------------------------ // . :Tymr Exp'd - Rtn to MainScr ÚÄÄ¿ . AC³ . BlockXferConstant Ä´ . 02³memh toRAM . => 02³ meml . Ä´ . 02³ byk . Ä´ . :Data String 01 . Menu#1 00 . 1st Scr ÀÄÄÙ . FF FIN . FIN,,, ------- // ------------- . ------------------------------------ ------- // ------------- . ------------------------------------ //////////////////////// . //////////////////////////////////// ------- // ------------- . ------------------------------------ ÚÄÄ¿ . *CASE16 10³ . :CASE 16 - STARTUP ff³ #nxt . ff³ *start-1 . ÃÄÄÙ . ------- // ------------- . ------------------------------------ // . :EVENT 1 - MISC' RESETS ÚÄÄ¿ . *EVENT1 8E³ . EXECUTE USED IF JOBS NOT RESTORED Ä´ . ...JOB AREA IS '00 AFTER RESET 00³ . 7F³ $JCntrl . DO $JCntrl ÃÄÄ´ . ff³*bytsz . Ä´ . 00 job1 . 08 pass-1 . *bytsz F0 FIN . ÀÄÄÙ . // . ------- // ------------- . ------------------------------------ // . :EVENT - WAIT ÚÄÄ¿ . *WAIT 80³ . Ä´ . 01³memh . =>Csav 8C³ meml . 0F³ ON . FORCE/HOLD STARTUP CASEX F0³ OFF . ÀÄÄÙ . // . ÚÄÄ¿ . 8E³ . EXECUTE Ä´ . 00³ . 7E³ $WAIT . DO WAIT/FIN ÃÄÄ´ . 00 no params . ÀÄÄÙ . .FF . [not required] ------- // ------------- . ------------------------------------ ------- // ------------- . ------------------------------------ // . :EVENT 2 ÚÄÄ¿ . 8E³ . EXECUTE [SKIPPED!] Ä´ . 00³ . 7A³ $OXfer . DO Offset Xfer. :TO BE ADAPTED ÃÄÄ´ . 00 no params . ÀÄÄÙ . ------- // ------------- . ------------------------------------ ÚÄÄ¿ . *EVENT2 80³ . Ä´ . 01³memh . 4D³ meml . 01³ ON . ON NOYS 00³ OFF . ÀÄÄÙ . ÚÄÄ¿ . 04³memh . B0³ meml . =>Calib FF³ mask . 3C³ bits . ?>60 [was 50] ÃÄÄ´ . 01³ AND . =THEN, next, ff³*WAIT . ELSE, next, ÀÄÄÙ . ÚÄÄ¿ . AC³ . BlockXferConstant Ä´ . 04³memh toRAM . => B0³ meml . Ä´ . ff³*byk4 Kountr . Ä´ . :Data String 00 . Grp1 [4B0] 00 . 00 . 00 . 00 . 00 . 00 . 00 . // . 00 . Grp2 [4B8] 00 . 00 count . 01 . 00 . 00 . 00 . 00 . // . 00 Cnfg1 . Grp3 [4C0] 00 Cnfg2 . 00 b-wash . 0A . 00 draw . 28 . 00 rinse . 07 . // . 0F Calib . Grp4 [4C8] 00 secs . 00 min . 12 hr . 01 day . 28 date . 08 mo . *byk4 15 yr . ÀÄÄÙ . ÚÄÄ¿ . C0³ . Ä´ . 01³memh . =>EEprom Wryts 0F³ meml . 0F³ SETbyt . SET '07 ÀÄÄÙ . 81 . ff> *WAIT . to WAIT,,, ------- // ------------- . ------------------------------------ ÚÄÄ¿ . 10³ . CASE - dumskp ff³ #nxt . ÃÄÄÙ . ------- // ------------- . ------------------------------------ ÚÄÄ¿ . :CASE 16 *start 82³ . Ä´ . 01³memh . 97³ meml . 01³ ADDbyt . INCR Cclk [every 0.01s] ÀÄÄÙ . [Cclk not auto-incr during Start] ÚÄÄ¿ . 01³memh . 97³ meml . 0F³ mask . 08³ bits . ?8th click ÃÄÄ´ . 01³ AND . =THEN, next, ff³*WAIT . ELSE, to WAIT,,, ÀÄÄÙ . ÚÄÄ¿ . [Loc F80-107F Clr'd at RESET] 82³ . Ä´ . 01³memh . =>StartK 3A³ meml . [TEMP USE OF PKy5] 01³ ADDbyt . INCR [every 0.08sec] ÀÄÄÙ . ÚÄÄ¿ . 01³memh . =>StartK 3A³ meml . [TEMP USE OF PKy5] FF³ mask . ?StartK 03³ bits . ÃÄÄ´ . ff³*WAIT .*EVENT1 . =THEN, to EVENT1,,,[NA for AVR165] ff³*WAIT . ELSE, next, ÀÄÄÙ . ÚÄÄ¿ . 01³memh . =>StartK 3A³ meml . [TEMP USE OF PKy5] FF³ mask . 05³ bits . ÃÄÄ´ . ff³*EVENT2 . =THEN, to EVENT2,,, ff³*WAIT . ELSE, next, ÀÄÄÙ . ÚÄÄ¿ . 01³memh . =>StartK 3A³ meml . [TEMP USE OF PKy5] FF³ mask . 10³ bits . 25x8 = 2.00sec ÃÄÄ´ . 01³ AND . =THEN, next, ff³*WAIT . ELSE, next, ÀÄÄÙ . ÚÄÄ¿ . C0³ . Ä´ . 04³memh . 28³ meml . 01³ Konstbyt . CALL SnxRGN@ ÀÄÄÙ . [once] ÚÄÄ¿ . C0³ . Ä´ . 04³memh . 08³ meml . 01³ Konstbyt . CALL STTYM@ ÀÄÄÙ . [contiuous] // . FF FIN . FIN,,, ------- // ------------- . ------------------------------------ //////////////////////////.///////////////////////////////////// ------- // ------------- . ------------------------------------ ÚÄÄ¿ . FF³ . CASE - END ff³ #nxt . ff³ . ÃÄÄÙ . // . ------- // ------------- . ------------------------------------ ------- // ------------- . ------------------------------------ }