📄 hp.lst
字号:
ASEM-51 V1.3 Copyright (c) 2002 by W.W. Heinz PAGE 1
MCS-51 Family Macro Assembler A S E M - 5 1 V 1.3
=====================================================
Source File: E:\Electronics\MiCrOConTroller\Micro Programming\M-IDE\PI\HP.asm
Object File: E:\Electronics\MiCrOConTroller\Micro Programming\M-IDE\PI\HP.hex
List File: E:\Electronics\MiCrOConTroller\Micro Programming\M-IDE\PI\HP.lst
Line I Addr Code Source
1:
2: ;Program komunikasi HP buat ngirim sms
3: ;rencananya buat aksesoris PI biar agak keren
4: ;Originally created by : Herlambang A. J0D005037 D3INSEL UNDIP
5: ;CP: 081328828042 email: inselinside@yahoo.com
6: ;FS: http://www.friendster.com/bowox
7: ;NB: kalo mo njiplak program ini, harap disertakan namaku yah... hehehe biar terkenal:)
8:
9: 0000 11 06 mulai_boss: acall herlambang
10: 0002 11 15 routine: acall analisa
11: 0004 80 FC sjmp routine
12:
13: 0006 75 89 20 herlambang: mov tmod,#20h ; timer 1 mode 2 8-bit
14: 0009 75 87 80 mov 87h,#80h ; SMOD 1 - Bila pake baudrate 19200
15: 000C 75 8D FD mov TH1,#0FDh ; 19200 baud rate
16: 000F 75 98 50 mov scon,#50h ; Mode serial: 8-bit
17: 0012 D2 8E setb tr1 ; Jalankan Timer 1
18: 0014 22 ret
19:
20: ;Pengiriman kabar bahwa PLN mati dan inverter telah dihidupkan
21: 0015 analisa: ;jb p1.0,mlumpat ;ga penting
22: 0015 20 91 17 jb p1.1,terus
23: 0018 90 00 7A mov dptr,#PLNmati
24: 001B 11 49 acall perintahATCMD
25: 001D E4 looping: clr a
26: 001E 93 movc a,@a+dptr
27: 001F F5 99 mov sbuf,a
28: 0021 30 99 FD jnb ti,$
29: 0024 A3 inc dptr
30: 0025 B4 00 F5 cjne a,#00h,looping
31: 0028 C2 99 clr ti
32: 002A 31 D8 acall delay
33: 002C 11 5C acall Ctrl_Z
34: 002E 22 ret
35: ;Pengiriman kabar bahwa PLN hidup dan inverter telah dimatikan
36: 002F 20 92 16 terus: jb p1.2,mlumpat
37: 0032 90 01 27 mov dptr,#PLNhidup
38: 0035 11 49 acall perintahATCMD
39: 0037 E4 loopingx: clr a
40: 0038 93 movc a,@a+dptr
41: 0039 F5 99 mov sbuf,a
42: 003B 30 99 FD jnb ti,$
43: 003E A3 inc dptr
ASEM-51 V1.3 Copyright (c) 2002 by W.W. Heinz PAGE 2
Line I Addr Code Source
44: 003F B4 00 F5 cjne a,#00h,loopingx
45: 0042 C2 99 clr ti
46: 0044 31 D8 acall delay
47: 0046 11 5C acall Ctrl_Z
48: 0048 22 mlumpat: ret
49: ;------------------------------------>> AT+CMGS=1
50: ;Pengiriman ATcommand tuk merintahin HP supaya ngirimin SMS
51: 0049 90 00 6F perintahATCMD: mov dptr,#ATCMD
52: 004C E4 loopingy: clr a
53: 004D 93 movc a,@a+dptr
54: 004E F5 99 mov sbuf,a
55: 0050 30 99 FD jnb ti,$
56: 0053 A3 inc dptr
57: 0054 B4 00 F5 cjne a,#00h,loopingy
58: 0057 C2 99 clr ti
59: 0059 31 D8 acall delay
60: 005B 22 ret
61: 005C Ctrl_Z:;---------->ngirim karakter control_Z (ctrl Z) untuk merintahin HP ngirimin SMS bila da kesul
itan
62: 005C 90 01 D4 mov dptr,#CtrlZ
63: 005F E4 loopings: clr a
64: 0060 93 movc a,@a+dptr
65: 0061 F5 99 mov sbuf,a
66: 0063 30 99 FD jnb ti,$
67: 0066 A3 inc dptr
68: 0067 B4 00 F5 cjne a,#00h,loopings
69: 006A C2 99 clr ti
70: 006C 31 D8 acall delay
71: 006E 22 ret
72: ;----------------------------------->> lookUP character
73: 006F 41 54 2B 43 ATCMD : db "AT+CMGS=1",0Dh,0;"Enter"
0073 4D 47 53 3D
0077 31 0D 00
74: ;Fungsi perintah ATcommand untuk memerintah HP mengirimkan SMS
75: 007A 30 30 30 31 PLNmati : db "0001000C91803182280824000051CCF49C2E4FAF4150A613D40ED3D32C1039EC06CDEB6D71590E62A7E77
007E 30 30 30 43 4797A0D2287E57579980EA297D96134889C46A7C975F83AEC7681D065393BDC1687DDE748D23D2FB36135",13,10,00
0082 39 31 38 30
0086 33 31 38 32
008A 32 38 30 38
008E 32 34 30 30
0092 30 30 35 31
0096 43 43 46 34
009A 39 43 32 45
009E 34 46 41 46
00A2 34 31 35 30
00A6 41 36 31 33
00AA 44 34 30 45
00AE 44 33 44 33
00B2 32 43 31 30
00B6 33 39 45 43
00BA 30 36 43 44
00BE 45 42 36 44
00C2 37 31 35 39
00C6 30 45 36 32
00CA 41 37 45 37
00CE 37 34 37 39
ASEM-51 V1.3 Copyright (c) 2002 by W.W. Heinz PAGE 3
Line I Addr Code Source
00D2 37 41 30 44
00D6 32 32 38 37
00DA 45 35 37 35
00DE 37 39 39 38
00E2 30 45 41 32
00E6 39 37 44 39
00EA 36 31 33 34
00EE 38 38 39 43
00F2 34 36 41 37
00F6 43 39 37 35
00FA 46 38 33 41
00FE 45 43 37 36
0102 38 31 44 30
0106 36 35 33 39
010A 33 42 44 43
010E 31 36 38 37
0112 44 44 45 37
0116 34 38 44 32
011A 33 44 32 46
011E 42 33 36 31
0122 33 35 0D 0A
0126 00
76: ;Listrik PLN mati, dan sumber listrik darurat telah dihidupkan. herlambang_Insel05 (format PDU)
77: 0127 30 30 30 31 PLNhidup : db "0001000C91803182280824000051CCF49C2E4FAF4150A613844E93EB7016881C7683E6F5B6B82C07B1D37
012B 30 30 30 43 3BA3CBD0691C3F2BA3C4C07D1CBEC301A444EB7C3F4F43AEC7681D065393BDC1687DDE748D23D2FB36135",13,10,00
012F 39 31 38 30
0133 33 31 38 32
0137 32 38 30 38
013B 32 34 30 30
013F 30 30 35 31
0143 43 43 46 34
0147 39 43 32 45
014B 34 46 41 46
014F 34 31 35 30
0153 41 36 31 33
0157 38 34 34 45
015B 39 33 45 42
015F 37 30 31 36
0163 38 38 31 43
0167 37 36 38 33
016B 45 36 46 35
016F 42 36 42 38
0173 32 43 30 37
0177 42 31 44 33
017B 37 33 42 41
017F 33 43 42 44
0183 30 36 39 31
0187 43 33 46 32
018B 42 41 33 43
018F 34 43 30 37
0193 44 31 43 42
0197 45 43 33 30
019B 31 41 34 34
019F 34 45 42 37
01A3 43 33 46 34
01A7 46 34 33 41
ASEM-51 V1.3 Copyright (c) 2002 by W.W. Heinz PAGE 4
Line I Addr Code Source
01AB 45 43 37 36
01AF 38 31 44 30
01B3 36 35 33 39
01B7 33 42 44 43
01BB 31 36 38 37
01BF 44 44 45 37
01C3 34 38 44 32
01C7 33 44 32 46
01CB 42 33 36 31
01CF 33 35 0D 0A
01D3 00
78: ;Listrik PLN hidup, dan sumber listrik darurat telah dimatikan. herlambang_Insel05 (format PDU)
79: 01D4 1A 0D 0A 00 CtrlZ : db 1Ah ,13,10,00 ;"Ctrl_Z"
80:
81: 01D8 7D 00 delay: mov r5,#00h
82: 01DA 7E 00 loopc: mov r6,#00h
83: 01DC 7F 00 loopb: mov r7,#00h
84: 01DE 0F loopa: inc r7
85: 01DF BF 64 FC cjne r7,#100,loopa
86: 01E2 0E inc r6
87: 01E3 BE 64 F6 cjne r6,#100,loopb
88: 01E6 0D inc r5
89: 01E7 BD 64 F0 cjne r5,#100,loopc
90: 01EA 22 ret
91: end
register banks used: ---
no errors
ASEM-51 V1.3 Copyright (c) 2002 by W.W. Heinz PAGE 5
L I S T O F S Y M B O L S
=============================
SYMBOL TYPE VALUE LINE
------------------------------------------------------------
??ASEM_51 NUMBER 8051
??VERSION NUMBER 0130
AC BIT D6
ACC DATA E0
ANALISA CODE 0015 21
ATCMD CODE 006F 73
B DATA F0
CTRLZ CODE 01D4 79
CTRL_Z CODE 005C 61
CY BIT D7
DELAY CODE 01D8 81
DPH DATA 83
DPL DATA 82
EA BIT AF
ES BIT AC
ET0 BIT A9
ET1 BIT AB
EX0 BIT A8
EX1 BIT AA
EXTI0 CODE 0003
EXTI1 CODE 0013
F0 BIT D5
HERLAMBANG CODE 0006 13
IE DATA A8
IE0 BIT 89
IE1 BIT 8B
INT0 BIT B2
INT1 BIT B3
IP DATA B8
IT0 BIT 88
IT1 BIT 8A
LOOPA CODE 01DE 84
LOOPB CODE 01DC 83
LOOPC CODE 01DA 82
LOOPING CODE 001D 25
LOOPINGS CODE 005F 63
LOOPINGX CODE 0037 39
LOOPINGY CODE 004C 52
MLUMPAT CODE 0048 48
MULAI_BOSS CODE 0000 9
OV BIT D2
P BIT D0
P0 DATA 80
P1 DATA 90
P2 DATA A0
P3 DATA B0
PCON DATA 87
PERINTAHATCMD CODE 0049 51
PLNHIDUP CODE 0127 77
PLNMATI CODE 007A 75
ASEM-51 V1.3 Copyright (c) 2002 by W.W. Heinz PAGE 6
SYMBOL TYPE VALUE LINE
------------------------------------------------------------
PS BIT BC
PSW DATA D0
PT0 BIT B9
PT1 BIT BB
PX0 BIT B8
PX1 BIT BA
RB8 BIT 9A
RD BIT B7
REN BIT 9C
RESET CODE 0000
RI BIT 98
ROUTINE CODE 0002 10
RS0 BIT D3
RS1 BIT D4
RXD BIT B0
SBUF DATA 99
SCON DATA 98
SINT CODE 0023
SM0 BIT 9F
SM1 BIT 9E
SM2 BIT 9D
SP DATA 81
T0 BIT B4
T1 BIT B5
TB8 BIT 9B
TCON DATA 88
TERUS CODE 002F 36
TF0 BIT 8D
TF1 BIT 8F
TH0 DATA 8C
TH1 DATA 8D
TI BIT 99
TIMER0 CODE 000B
TIMER1 CODE 001B
TL0 DATA 8A
TL1 DATA 8B
TMOD DATA 89
TR0 BIT 8C
TR1 BIT 8E
TXD BIT B1
WR BIT B6
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -