📄 servosmanual.lst
字号:
MACRO ASSEMBLER SERVOSMANUAL 12/18/107 20:33:44 PAGE 1
WIN32 MACRO ASSEMBLER A51 V6.03.08
OBJECT MODULE PLACED IN C:\USERS\PEPE\DOCUMENTS\TEC\6 SEMESTRE\MICROCONTROLADORES\PROYECTO\SERVOSMANUAL.OBJ
ASSEMBLER INVOKED BY: A51.EXE C:\USERS\PEPE\DOCUMENTS\TEC\6 SEMESTRE\MICROCONTROLADORES\PROYECTO\SERVOSMANUAL.ASM OJ(C:\USERS\PEPE\DOCUMENTS\TEC\6 SEMESTRE\MICROCONTROLADORES\PROYECTO\SERVOSMANUAL.OBJ) PIN(C:\FSI\INC) EP LINES PR(C:\USERS\PEPE\DOCUMENTS\TEC\6 SEMESTRE\MICROCONTROLADORES\PROYECTO\SERVOSMANUAL.LST) XR DB PW(80) RB(0)
LOC OBJ LINE SOURCE
00A0 1 FOTO1 EQU P2.0
00A1 2 FOTO2 EQU P2.1
00A2 3 FOTO3 EQU P2.2
00A3 4 FOTO4 EQU P2.3
00B0 5 PULSO EQU P3.0
00B1 6 PULSO1 EQU P3.1
00A0 7 DATOS EQU P2
00B4 8 RS EQU P3.4
00B5 9 E EQU P3.5
00B6 10 RW EQU P3.6
0018 11 CONT1 EQU 18H
0019 12 CONT2 EQU 19H
13
0000 14 ORG 0
0000 020016 15 JMP MAIN
16
0003 17 ORG 03H
0003 02027F 18 JMP SERVO1
19
000B 20 ORG 0BH
000B 020240 21 JMP PWM
22
0013 23 ORG 13H
0013 0202B3 24 JMP SERVO2
25
0016 758170 26 MAIN: MOV SP, #70H
0019 75A887 27 MOV IE, #10000111B
001C 758911 28 MOV TMOD, #00010001B
001F D288 29 SETB IT0
0021 D28A 30 SETB IT1
0023 758CFF 31 MOV TH0, #0FFH
0026 758A9C 32 MOV TL0, #9CH
33
0029 D2B5 34 SETB E
002B 758DC5 35 MOV TH1, #0C5H ;CONSTANTE PARA 15MS
002E 758B68 36 MOV TL1, #68H
0031 C2B6 37 CLR RW ;RW = 0
0033 C2B4 38 CLR RS ;RS = 0
0035 D28E 39 SETB TR1
0037 308FFD 40 JNB TF1, $ ;ESPERAR 15MS
003A C28E 41 CLR TR1
42
003C D2B5 43 SETB E
003E 759038 44 MOV P1, #00111000B ;PALABRA DE CONTROL 1
0041 C2B5 45 CLR E
0043 00 46 NOP
0044 00 47 NOP ;ESPERAR MAS DE 4.7U
0045 00 48 NOP
49
0046 D2B5 50 SETB E
0048 759030 51 MOV P1, #00110000B ;PALABRA DE CONTROL 2
004B C2B5 52 CLR E
004D D28E 53 SETB TR1
004F 308FFD 54 JNB TF1, $ ;ESPERAR 15MS
0052 C28E 55 CLR TR1
56
0054 D2B5 57 SETB E
0056 759030 58 MOV P1, #00110000B ;PALABRA DE CONTROL 3
0059 C2B5 59 CLR E
005B 00 60 NOP
005C 00 61 NOP
62
005D D2B5 63 SETB E
005F 759038 64 MOV P1, #00111000B ;PALABRA CON N Y F
0062 C2B5 65 CLR E
0064 00 66 NOP
0065 00 67 NOP
68
0066 D2B5 69 SETB E
0068 75900C 70 MOV P1, #00001100B ;ENCIENDE LCD
006B C2B5 71 CLR E
006D 00 72 NOP
006E 00 73 NOP
74
006F D2B5 75 SETB E
0071 759001 76 MOV P1, #00000001 ;LIMPIAR PANTALLA
0074 C2B5 77 CLR E
0076 00 78 NOP
0077 00 79 NOP
80
0078 D2B5 81 SETB E
007A 759006 82 MOV P1, #00000110B ;MODO DE ENTRADA
007D C2B5 83 CLR E
84
85
007F D2B4 86 TRABAJA: SETB RS ;RS = 1
0081 D2B5 87 SETB E
0083 759020 88 MOV P1,#' '
0086 120126 89 CALL ESC
90
0089 D2B4 91 SETB RS
008B 759041 92 MOV P1,#'A'
008E 120126 93 CALL ESC
94
0091 D2B4 95 SETB RS
0093 759055 96 MOV P1,#'U'
0096 120126 97 CALL ESC
98
0099 D2B4 99 SETB RS
009B 759054 100 MOV P1,#'T'
009E 120126 101 CALL ESC
102
00A1 D2B4 103 SETB RS
00A3 75904F 104 MOV P1,#'O'
00A6 120126 105 CALL ESC
106
00A9 D2B4 107 SETB RS
00AB 75904D 108 MOV P1,#'M'
00AE 120126 109 CALL ESC
110
00B1 D2B4 111 SETB RS
00B3 759041 112 MOV P1,#'A'
00B6 120126 113 CALL ESC
114
00B9 D2B4 115 SETB RS
00BB 759054 116 MOV P1,#'T'
00BE 120126 117 CALL ESC
118
00C1 D2B4 119 SETB RS
00C3 759049 120 MOV P1,#'I'
00C6 120126 121 CALL ESC
122
00C9 D2B4 123 SETB RS
00CB 759043 124 MOV P1,#'C'
00CE 120126 125 CALL ESC
126
00D1 D2B4 127 SETB RS
00D3 75904F 128 MOV P1,#'O'
00D6 120126 129 CALL ESC
130
00D9 D2B4 131 SETB RS
00DB 759020 132 MOV P1,#' '
00DE 120126 133 CALL ESC
134
00E1 D2B4 135 SETB RS
00E3 75904F 136 MOV P1,#'O'
00E6 120126 137 CALL ESC
138
00E9 D2B4 139 SETB RS
00EB 759020 140 MOV P1,#' '
00EE 120126 141 CALL ESC
142
00F1 D2B4 143 SETB RS
00F3 75904D 144 MOV P1,#'M'
00F6 120126 145 CALL ESC
146
00F9 D2B4 147 SETB RS
00FB 759041 148 MOV P1,#'A'
00FE 120126 149 CALL ESC
150
0101 D2B4 151 SETB RS
0103 75904E 152 MOV P1,#'N'
0106 120126 153 CALL ESC
154
0109 D2B4 155 SETB RS
010B 759055 156 MOV P1,#'U'
010E 120126 157 CALL ESC
158
0111 D2B4 159 SETB RS
0113 759041 160 MOV P1,#'A'
0116 120126 161 CALL ESC
162
0119 D2B4 163 SETB RS
011B 75904C 164 MOV P1,#'L'
011E 120126 165 CALL ESC
166
0121 00 167 NOP
0122 00 168 NOP
0123 020131 169 JMP ACA
170
0126 C2B5 171 ESC: CLR E
0128 00 172 NOP
0129 00 173 NOP
012A D2B5 174 SETB E
012C 7B1E 175 MOV R3,#30
012E DBFE 176 DJNZ R3,$
0130 22 177 RET
178
0131 7C32 179 ACA: MOV R4, #50
0133 7E17 180 MOV R6, #23
0135 752117 181 MOV 21H, #23
0138 752517 182 MOV 25H, #23
013B C206 183 CLR 20H.6
013D C200 184 CLR 20H.0
013F D28C 185 SETB TR0
0141 D2B0 186 SETB PULSO
0143 3000FD 187 JNB 20H.0, $
0146 D2B1 188 SETB PULSO1
0148 7E17 189 MOV R6, #23
014A 752317 190 MOV 23H, #23
014D D28C 191 SETB TR0
014F D206 192 SETB 20H.6
0151 2006FD 193 JB 20H.6, $
194
0154 1201FA 195 OTRA: CALL TECLADO
0157 BF0C03 196 CJNE R7, #12, ACA1
015A 020199 197 JMP VERTI
015D D201 198 ACA1: SETB 20H.1
015F C206 199 CLR 20H.6
0161 E5A0 200 MOV A, DATOS
0163 540F 201 ANL A, #0FH
0165 F522 202 MOV 22H, A
0167 B40F02 203 CJNE A, #15, VAS
016A 80E8 204 JMP OTRA
016C 5403 205 VAS: ANL A, #03H
016E B4030B 206 CJNE A, #3, MOVH
0171 E522 207 REV: MOV A, 22H
0173 540C 208 ANL A, #0CH
0175 F525 209 MOV 25H, A
0177 B40C0B 210 CJNE A, #12, MOVV
017A 80D8 211 JMP OTRA
017C D289 212 MOVH: SETB IE0
017E C201 213 CLR 20H.1
0180 3001FD 214 JNB 20H.1 , $
0183 80EC 215 JMP REV
0185 D28B 216 MOVV: SETB IE1
0187 D206 217 SETB 20H.6
0189 2006FD 218 JB 20H.6 , $
018C 80C6 219 JMP OTRA
220
018E 1201FA 221 AUTO: CALL TECLADO
0191 BF0B02 222 CJNE R7, #11, MANUAL
223 ; FALTA PONER EN EL DISPLAY AUTOMATICO
224
0194 80BE 225 JMP OTRA
226
0196 BF0CF5 227 MANUAL: CJNE R7, #12, AUTO
228 ;FALTA PONER EN EL DIPLAY MANUAL Y VERTICAL Y HORIZONTAL
229
0199 1201FA 230 VERTI: CALL TECLADO
019C BF0B02 231 CJNE R7, #11, VASACA
019F 80B3 232 YEAH: JMP OTRA
01A1 BF0D28 233 VASACA: CJNE R7, #13, HORIZON; PREGUNTAMO SI NOS MOVEMOS VERTICALMENTE PPRIMERO
01A4 1201FA 234 DIGV: CALL TECLADO
01A7 BF0B02 235 CJNE R7, #11, VASACA1
01AA 80A8 236 JMP OTRA
01AC BF0E03 237 VASACA1: CJNE R7, #14, VASACA2
01AF 0201D4 238 JMP DIGH
01B2 EF 239 VASACA2: MOV A, R7
01B3 C3 240 CLR C
01B4 940A 241 SUBB A, #0AH
01B6 50EC 242 JNC DIGV
243 ; PASAR A DISPLAY R7 Y VER QUE HACER CON R7 PARA MOVIMIENTO
01B8 1201FA 244 CALL TECLADO
01BB BF0B02 245 CJNE R7, #11, VASACA3
01BE 8094 246 JMP OTRA
01C0 BF0E03 247 VASACA3: CJNE R7, #14, VASACA4
01C3 0201D4 248 JMP DIGH
01C6 BF0FDB 249 VASACA4: CJNE R7, #15, DIGV
01C9 0201FA 250 JMP CORRECTOV
251
252
01CC BF0B02 253 HORIZON: CJNE R7, #11, VASACA5
01CF 80CE 254 JMP YEAH
01D1 BF0EC5 255 VASACA5: CJNE R7, #14, VERTI; PREGUNTAMOS SI NOS MOVEMOS HORIZONTALMETE PRIMERO
01D4 1201FA 256 DIGH: CALL TECLADO
01D7 BF0B02 257 CJNE R7, #11, VASACA6
01DA 80C3 258 JMP YEAH
01DC BF0D02 259 VASACA6: CJNE R7, #13, VASACA7
01DF 80C3 260 JMP DIGV
01E1 EF 261 VASACA7: MOV A, R7
01E2 C3 262 CLR C
01E3 940A 263 SUBB A, #0AH
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -