hp.asm

Library for the 8051 microcontroller. such as math routine, hexBCD, LCD, Keyboard, I2C, Remote, Ke

;Program komunikasi HP buat ngirim sms
;rencananya buat aksesoris PI biar agak keren
;Originally created by : Herlambang A. J0D005037 D3INSEL UNDIP
;CP: 081328828042 email: [e-mail]
;FS: http://www.friendster.com/bowox
;NB: kalo mo njiplak program ini, harap disertakan namaku yah... hehehe biar terkenal:)

mulai_boss: acall       herlambang
routine:    acall       analisa
            sjmp        routine

herlambang: mov	        tmod,#20h	; timer 1 mode 2 8-bit
	    mov	        87h,#80h	; SMOD 1 - Bila pake baudrate 19200
            mov	        TH1,#0FDh	; 19200 baud rate
            mov	        scon,#50h	; Mode serial: 8-bit
            setb        tr1		    ; Jalankan Timer 1
            ret

;Pengiriman kabar bahwa PLN mati dan inverter telah dihidupkan
analisa:    ;jb          p1.0,mlumpat ;ga penting
            jb          p1.1,terus
            mov         dptr,#PLNmati
            acall       perintahATCMD
looping:    clr         a
            movc        a,@a+dptr
            mov         sbuf,a
            jnb         ti,$
            inc         dptr
            cjne        a,#00h,looping
            clr         ti
            acall       delay
            acall       Ctrl_Z
            ret
;Pengiriman kabar bahwa PLN hidup dan inverter telah dimatikan
terus:      jb          p1.2,mlumpat
            mov         dptr,#PLNhidup
            acall       perintahATCMD
loopingx:   clr         a
            movc        a,@a+dptr
            mov         sbuf,a
            jnb         ti,$
            inc         dptr
            cjne        a,#00h,loopingx
            clr         ti
            acall       delay
            acall       Ctrl_Z
mlumpat:    ret
;------------------------------------>> AT+CMGS=1
;Pengiriman ATcommand tuk merintahin HP supaya ngirimin SMS
perintahATCMD: mov         dptr,#ATCMD
loopingy:      clr         a
               movc        a,@a+dptr
               mov         sbuf,a
               jnb         ti,$
               inc         dptr
               cjne        a,#00h,loopingy
               clr         ti
               acall       delay
               ret
Ctrl_Z:;---------->ngirim karakter control_Z (ctrl Z) untuk merintahin HP ngirimin SMS bila da kesulitan
	           mov         dptr,#CtrlZ
loopings:      clr         a
               movc        a,@a+dptr
               mov         sbuf,a
               jnb         ti,$
               inc         dptr
               cjne        a,#00h,loopings
               clr         ti
               acall       delay
               ret
;----------------------------------->> lookUP character
ATCMD    : db "AT+CMGS=1",0Dh,0;"Enter"
;Fungsi perintah ATcommand untuk memerintah HP mengirimkan SMS
PLNmati  : db "0001000C91803182280824000051CCF49C2E4FAF4150A613D40ED3D32C1039EC06CDEB6D71590E62A7E774797A0D2287E57579980EA297D96134889C46A7C975F83AEC7681D065393BDC1687DDE748D23D2FB36135",13,10,00
;Listrik PLN mati, dan sumber listrik darurat telah dihidupkan. herlambang_Insel05 (format PDU)
PLNhidup : db "0001000C91803182280824000051CCF49C2E4FAF4150A613844E93EB7016881C7683E6F5B6B82C07B1D373BA3CBD0691C3F2BA3C4C07D1CBEC301A444EB7C3F4F43AEC7681D065393BDC1687DDE748D23D2FB36135",13,10,00
;Listrik PLN hidup, dan sumber listrik darurat telah dimatikan. herlambang_Insel05 (format PDU)
CtrlZ    : db 1Ah ,13,10,00 ;"Ctrl_Z"

delay:        mov          r5,#00h
loopc:        mov          r6,#00h
loopb:        mov          r7,#00h
loopa:        inc          r7
              cjne         r7,#100,loopa
              inc          r6
              cjne         r6,#100,loopb
              inc          r5
              cjne         r5,#100,loopc
              ret
end