Program Assembly Mematikan Tungku / Kompor
;- BAB6_01.ASM -------------------------------------------------------------------
;
; Aplikasi interupsi untuk mematikan dan menghidupkan tungku
; sensor /PANAS dipasang pada /INT0, sensor /DINGIN dipasang pada /INT1
; Relay kompor/oven dipasang pada P1.7
; Sensor /PANAS=0 jika suhu terdeteksi > 21 derajat
; Sensor /DINGIN=0 jika suhu terdeteksi < 19 derajat
;
;---------------------------------------------------------------------------------
ORG 0H
;
LJMP MAIN
;
EX0RLI: CLR P1.5 ; posisi layanan interupsi INT0
RETI ; untuk mematikan kompor
ORG 0013H
EX1RLI: SETB P1.5 ; posisi layanan interupsi INT1
RETI ; untuk menyalakan kompor
;
ORG 30H ; awal dari program utama
MAIN: MOV IE,#85H ; aktifkan interupsi eksternal 0 dan 1
SETB IT0 ; interupsi eksternal sisi negatif untuk INT0
SETB IT1 ; dan INT1
SETB P1.5 ; hidupkan tungku
JB P3.2,SKIP ; jika suhu > 21 derajat
clr P1.5 ; matikan dulu tungkunya
SKIP: SJMP $ ; kalang forever...
END
Semoga bermanfaat & selamat belajar!
