FB 99                                C:BLINKTST.S5D                    LEN=18   
                                                                        Page   1
Segment  1                   DLAY CALLED BY COLD START (OB20
Name :CLDELAY
 
DOG  :L   KT 900.0
     :SD  T    3
     :A   T    3
     :=   F    0.0
     :AN  F    0.0
     :JC  =DOG
     :BE



FB 100                               C:BLINKTST.S5D                    LEN=25   
                                                                        Page   1
Segment  1
Name :BLINK
 
     :AN  F    0.0
     :L   KT 010.0
     :SD  T    0
     :A   T    0
     :=   F    0.0
     :AN  F    0.0
     :BEC
     :A   Q    0.0
     :=   F    1.0
     :A   F    1.0
     :R   Q    0.0
     :AN  F    1.0
     :S   Q    0.0
     :BE



FB 101                               C:BLINKTST.S5D                    LEN=18   
                                                                        Page   1
Segment  1                   DLY CALLED BY WARM START
Name :DELAY
 
CAT  :L   KT 900.0
     :SD  T    2
     :A   T    2
     :=   F    0.0
     :AN  F    0.0
     :JC  =CAT
     :BE



OB 1                                 C:BLINKTST.S5D                    LEN=9    
                                                                        Page   1
Segment  1
     :JU  FB 100
Name :BLINK
     :A   Q    0.0
     :BE




OB 16                                C:BLINKTST.S5D                    LEN=15   
                                                                        Page   1
Segment  1                   1-SECOND INTERRUPT ROUTINE
     :C   DB  11                                SELECT DATA BLOCK 11
     :L   DD   7                               LOAD DATA WORD 7
     :L   KB 1                                 UNITY
     :+D                                       ADD ONE TO WORD 7
     :T   DD   7                               STORE SUM AS WORD 7
     :A   Q    0.0                             IF Q0.0 IS HI
     :S   Q    0.1                             SET Q 0.1 HIGH
     :AN  Q    0.0                             IF Q0.0 IS LOW
     :R   Q    0.1                             SET Q0.1 LOW
     :BE                                       BLOCK END




OB 20                                C:BLINKTST.S5D                    LEN=11   
                                                                        Page   1
Segment  1                   COLD RESTART
     :JU  FB  99                               JUMP TO 20 SEC DELAY
Name :CLDELAY
     :A   Q    0.1
     :S   Q    0.2
     :JU  OB   1
     :BE





OB 21                                C:BLINKTST.S5D                    LEN=11   
                                                                        Page   1
Segment  1
     :JU  FB 101
Name :DELAY
     :AN  Q    0.0
     :S   Q    0.2
     :JU  OB   1
     :BE