Laserfiche WebLink
REM store updated log register pointer <br />12450 REGWRITE 4499, LPTR <br />REM clear log flag <br />12460 LFLAG =O <br />12490 RETURN <br />REM circular buffer increment and limit check <br />REM Increment buffer pointer once <br />12500 LPTR = LPTR +1 <br />REM now check for over limit <br />REM if = or >, reset pointer to start of buffer <br />12510 IF LPTR >= REGREAD(4498) THEN LPTR= REGREAD(4497) <br />12530 RETURN <br />REM --------------- -- <br />REM tx alarms routine <br />REM --------------- -- <br />REM check for original alarm tx <br />13000 IF REGREAD(4112) =0 THEN GOSUB 13500 <br />REM check ack reg to set timer and level 2 alarm <br />13010 IF REGREAD(4112) =1 THEN CLEAR TICK(1) : REGWRITE 4112,2 <br />REM check for alarm level 2 status <br />REM go to to 5 minute tx alarms <br />13020 IF REGREAD(4112)= 2.AND.TICK(1) >300 THEN CLEAR TICK(1) : GOSUB <br />13500 <br />REM check for alarm level 3 status- remote ack <br />REM go to 30 minute tx alarms <br />13030 IF REGREAD (4112)= 3.AND.TICK(1) >1800 THEN CLEAR TICK(1) : GOSUB <br />13500 <br />REM clear internal alarm status <br />13080 REGWRITE 4111,0 <br />13090 RETURN <br />REM send alarms <br />13500 PRINT #2,CHR(12), <br />13510 PRINT #2, "! Alarm Active !" <br />13515 PRINT #2, "Sending Alarm Msg" <br />REM get this units id and alarm number to tx <br />13520 A= REGREAD(4110) : B= REGREAD(4111) <br />REM tx unit id and alarm number to unit x <br />13530 PRINT #1,3,16,4110,2,A,B <br />13535 GOSUB 13900 <br />13540 PRINT #1,4,16,4110,2,A,B <br />13545 GOSUB 13900 <br />13550 PRINT #1,5,16,4110,2,A,B <br />13555 GOSUB 13900 <br />13560 PRINT #1,3,16,4110,2,A,B <br />13565 GOSUB 13900 <br />13570 PRINT #1,4,16,4110,2,A,B <br />42 <br />