################################################################################ # # # Micro Series 8051 Assembler V2.02/DOS 22/Jun/05 22:57:11 # # # # Source = p3_3.s03 # # List = p3_3.lst # # Object = p3_3.r03 # # Options = f # # # # (c) Copyright IAR Systems 1990 # ################################################################################ 1 ;Sven Eisenhauer 2 ;MPS1 Versuch 3 Aufgabe 3 3 ;16.06.2005 4 102 103 0000 ORG 0000h 104 105 0000 90F803 MOV DPTR,#0F803h 106 0003 7492 MOV A,#92h 107 0005 F0 MOVX @DPTR,A 108 0006 75F8FF MOV P5,#0FFh 109 0009 75E8FF MOV P4,#0FFh 110 000C 7590FF MOV P1,#0FFh 111 000F 90F800 MOV DPTR,#0F800h 112 0012 7400 MOV A,#00h 113 0014 F0 MOVX @DPTR,A 114 0015 A3 INC DPTR 115 0016 F0 MOVX @DPTR,A 116 0017 A3 INC DPTR 117 0018 F0 MOVX @DPTR,A 118 0019 7800 MOV R0,#0 119 001B 7900 MOV R1,#0 120 001D 7A00 MOV R2,#0 121 001F 7B00 MOV R3,#0 122 123 0021 20B303 BEGIN: JB P3.3,START 124 0024 028000 LJMP 8000h 125 0027 12008B START: LCALL EINLES 126 127 002A 30B203 JNB P3.2,SUBJMP 128 002D 120046 LCALL ADDIT 129 0030 120035 SUBJMP: LCALL SUBST 130 0033 80EC SJMP BEGIN 131 132 0035 C3 SUBST: CLR C 133 0036 C2D2 CLR OV 134 0038 C2B4 CLR P3.4 135 003A C2B5 CLR P3.5 136 003C E8 MOV A,R0 137 003D 9A SUBB A,R2 138 003E FC MOV R4,A ;LOWBYTE 139 003F E9 MOV A,R1 140 0040 9B SUBB A,R3 141 0041 FD MOV R5,A ;HIGHBYTE 142 0042 120057 LCALL AUSG 143 0045 22 RET 144 145 0046 C3 ADDIT: CLR C 146 0047 C2D2 CLR OV 147 0049 C2B4 CLR P3.4 148 004B C2B5 CLR P3.5 149 004D E8 MOV A,R0 150 004E 2A ADD A,R2 151 004F FC MOV R4,A ;LOWBYTE 152 0050 EB MOV A,R3 153 0051 39 ADDC A,R1 154 0052 FD MOV R5,A ;HIGHBYTE 155 0053 120057 LCALL AUSG 156 0056 22 RET 157 158 0057 8C90 AUSG: MOV P1,R4 ;LOWBYTE 159 0059 ED MOV A,R5 160 005A 90F802 MOV DPTR,#0F802h 161 005D F0 MOVX @DPTR,A ;HIGHBYTE 162 005E 92B4 MOV P3.4,C 163 0060 30D21B JNB OV,NOOV 164 0063 D2B5 SETB P3.5 165 0065 20E70B JB ACC.7,POS 166 0068 7408 MOV A,#08h ;Backspace 167 006A 12009A LCALL SENDSE 168 006D 742B MOV A,#2Bh ;+ 169 006F 12009A LCALL SENDSE 170 0072 22 RET 171 0073 7408 POS: MOV A,#08h ;Backspace 172 0075 12009A LCALL SENDSE 173 0078 742D MOV A,#2Dh ;- 174 007A 12009A LCALL SENDSE 175 007D 22 RET 176 007E C2B5 NOOV: CLR P3.5 177 0080 7408 MOV A,#08h ;Backspace 178 0082 12009A LCALL SENDSE 179 0085 7420 MOV A,#20h ;space 180 0087 12009A LCALL SENDSE 181 008A 22 RET 182 183 184 008B 90F800 EINLES: MOV DPTR,#0F800h ;Port A 185 008E E0 MOVX A,@DPTR 186 008F F9 MOV R1,A 187 0090 A890 MOV R0,P1 188 0092 90F801 MOV DPTR,#0F801h ;Port B 189 0095 E0 MOVX A,@DPTR 190 0096 FB MOV R3,A 191 0097 AAE8 MOV R2,P4 192 0099 22 RET 193 194 009A F599 SENDSE: MOV SBUF,A 195 009C C299 CLR TI 196 009E 3099FD WARTE: JNB TI, WARTE 197 00A1 22 RET 198 199 00A2 END Errors: None ######## Bytes: 162 # p3_3 # CRC: 9563 ########