Advertisement
Guest User

Untitled

a guest
Mar 24th, 2017
106
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pic 16 1.56 KB | None | 0 0
  1. init: pause 500
  2. MAIN:
  3.  
  4.     READADC 1,B1                ;READ TEMPERATURE DEBUG VALUE
  5.     DEBUG B1
  6.    
  7.    
  8.     ;CALCULATE TEMPERATURE FROM DEBUG VALUE
  9.     let b2 = B1 * 100/420  
  10.     let b3 = b2 + 1
  11.     let b4 = b3 * 2
  12.     IF b1 >= 74 AND B1 <= 76 THEN GOSUB IDEAL       ;IF IT IS THE RIGHT TEMPERATURE GOTO IDEAL
  13.     IF b1 > 76 THEN GOSUB HOT           ; IF IT IS TOO HOT GOT TO HOT
  14.     IF b1 < 74 THEN GOSUB COLD          ; IF IT IT TOO COLD GOTO COLD
  15.     GOSUB RADIO
  16.     GOTO MAIN
  17.    
  18. IDEAL:
  19.     SEROUT 7,N2400,(254,1)      ;RESET THE LCD
  20.     PAUSE 30            ; PAUSE FOR 0.03 SECOND
  21.     SEROUT 7,N2400,(254,128)
  22.     SEROUT 7,N2400,("IT IS IDEAL")  ; DISLAY ON THE FIRST LINE
  23.     SEROUT 7,N2400,(254,192)
  24.     SEROUT 7,N2400,("TEMP: ",#b4,"'C")  ; DISPLAY THE CURRENT TEMPERATURE ON THE SECOND LINE
  25.     PAUSE 500                   ;PAUSE .5 OF A SECOND
  26.     RETURN
  27.    
  28. HOT:
  29.     SEROUT 7,N2400,(254,1)
  30.     PAUSE 30
  31.     SEROUT 7,N2400,(254,128)
  32.     SEROUT 7,N2400,("IT IS TOO HOT!")
  33.     SEROUT 7,N2400,(254,192)
  34.     SEROUT 7,N2400,("TEMP: ",#b4,"'C")
  35.     PAUSE 500
  36.     RETURN
  37. COLD:
  38.     SEROUT 7,N2400,(254,1)
  39.     PAUSE 30
  40.     SEROUT 7,N2400,(254,128)
  41.     SEROUT 7,N2400,("IT IS TOO COLD!")
  42.     SEROUT 7,N2400,(254,192)
  43.     SEROUT 7,N2400,("TEMP: ",#b4,"'C")
  44.     PAUSE 500
  45.     RETURN
  46.    
  47.    
  48.  
  49.  
  50. RADIO:
  51.     readadc 0,b0
  52.     debug B0
  53.     serout 2, t2400, ( "UUUUUUUUUUUUUUUUUUUUUUUUUUUU" ) ; SEND A PREAMBLE
  54.     pause 10                        ; Allow receiver to synchronise
  55.     serout 2, t2400, ( "BRENDAN" )              ; Send a data qualifier
  56.     serout 2, t2400, ( B0 ) ; Send the data packet
  57.     pause 1000                      ; Wait 1 second
  58.     high 6          ; TURN LED ON TO SHOW THAT IT IS SENDING A SIGNAL
  59.     pause 1000          ;PAUSE FOR 1 SECOND
  60.     low 6           ; TURN LED OFF
  61.     RETURN
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement