Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- init: pause 500
- MAIN:
- READADC 1,B1 ;READ TEMPERATURE DEBUG VALUE
- DEBUG B1
- ;CALCULATE TEMPERATURE FROM DEBUG VALUE
- let b2 = B1 * 100/420
- let b3 = b2 + 1
- let b4 = b3 * 2
- IF b1 >= 74 AND B1 <= 76 THEN GOSUB IDEAL ;IF IT IS THE RIGHT TEMPERATURE GOTO IDEAL
- IF b1 > 76 THEN GOSUB HOT ; IF IT IS TOO HOT GOT TO HOT
- IF b1 < 74 THEN GOSUB COLD ; IF IT IT TOO COLD GOTO COLD
- GOSUB RADIO
- GOTO MAIN
- IDEAL:
- SEROUT 7,N2400,(254,1) ;RESET THE LCD
- PAUSE 30 ; PAUSE FOR 0.03 SECOND
- SEROUT 7,N2400,(254,128)
- SEROUT 7,N2400,("IT IS IDEAL") ; DISLAY ON THE FIRST LINE
- SEROUT 7,N2400,(254,192)
- SEROUT 7,N2400,("TEMP: ",#b4,"'C") ; DISPLAY THE CURRENT TEMPERATURE ON THE SECOND LINE
- PAUSE 500 ;PAUSE .5 OF A SECOND
- RETURN
- HOT:
- SEROUT 7,N2400,(254,1)
- PAUSE 30
- SEROUT 7,N2400,(254,128)
- SEROUT 7,N2400,("IT IS TOO HOT!")
- SEROUT 7,N2400,(254,192)
- SEROUT 7,N2400,("TEMP: ",#b4,"'C")
- PAUSE 500
- RETURN
- COLD:
- SEROUT 7,N2400,(254,1)
- PAUSE 30
- SEROUT 7,N2400,(254,128)
- SEROUT 7,N2400,("IT IS TOO COLD!")
- SEROUT 7,N2400,(254,192)
- SEROUT 7,N2400,("TEMP: ",#b4,"'C")
- PAUSE 500
- RETURN
- RADIO:
- readadc 0,b0
- debug B0
- serout 2, t2400, ( "UUUUUUUUUUUUUUUUUUUUUUUUUUUU" ) ; SEND A PREAMBLE
- pause 10 ; Allow receiver to synchronise
- serout 2, t2400, ( "BRENDAN" ) ; Send a data qualifier
- serout 2, t2400, ( B0 ) ; Send the data packet
- pause 1000 ; Wait 1 second
- high 6 ; TURN LED ON TO SHOW THAT IT IS SENDING A SIGNAL
- pause 1000 ;PAUSE FOR 1 SECOND
- low 6 ; TURN LED OFF
- RETURN
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement