文件：MACRO.ASM 盛群编译器版本 2.86 页次1 1 0000 ;******************************************************************************* 2 0000 ;* 3 0000 ;* (c) Copyright 2004, Holtek Semiconductor Inc. 4 0000 ;* 5 0000 ;******************************************************************************/ 6 0000 ;******************************************************************************* 7 0000 ;MODULE: main.asm 8 0000 9 0000 ;INITIAL: 11/12/2004 10 0000 11 0000 ;AUTHOR: C351 Ansonku. 12 0000 13 0000 ;NOTE: HT48RB4 16 bit operation 14 0000 15 0000 ;REVISION: First issue 16 0000 ;******************************************************************************* 17 0000 ;******************************************************************************* 18 0000 ; 16 bit ADD with signed 19 0000 ; use ADD16 XH,XL,YH,YL,ZH,ZL 20 0000 ; operation 21 0000 ; XH XL 22 0000 ; +YH YL 23 0000 ; -------------- 24 0000 ; ZH ZL 25 0000 ;******************************************************************************* 26 0000 ADD16 MACRO XH,XL,YH,YL,ZH,ZL 27 0000 MOV A,XL 28 0000 ADD A,YL 29 0000 MOV ZL,A 30 0000 MOV A,XH 31 0000 ADC A,YH 32 0000 MOV ZH,A 33 0000 ENDM 34 0000 ;******************************************************************************* 35 0000 ; 16 bit ADD with unsigned 36 0000 ; use ADD16 XH,XL,YL,ZH,ZL 37 0000 ; operation 38 0000 ; XH XL 39 0000 ; + YL 40 0000 ; -------------- 41 0000 ; ZH ZL 42 0000 ;******************************************************************************* 43 0000 ADD16U MACRO XH,XL,YL,ZH,ZL 44 0000 mov a,xh 45 0000 mov zh,a 46 0000 MOV A,XL 47 0000 ADD A,YL 48 0000 SZ C 49 0000 INC ZH 50 0000 MOV ZL,A 51 0000 ENDM 52 0000 53 0000 54 0000 ;******************************************************************************* 55 0000 ; 16 bit sub with signed 56 0000 ; use SUB16 XH,XL,YH,YL,ZH,ZL 57 0000 ; operation 58 0000 ; XH XL 59 0000 ; -YH YL 文件：MACRO.ASM 盛群编译器版本 2.86 页次2 60 0000 ; -------------- 61 0000 ; ZH ZL 62 0000 ;******************************************************************************* 63 0000 SUB16 MACRO XH,XL,YH,YL,ZH,ZL 64 0000 MOV A,XL 65 0000 CLR C 66 0000 SUB A,YL 67 0000 MOV ZL,A 68 0000 MOV A,XH 69 0000 SBC A,YH 70 0000 MOV ZH,A 71 0000 72 0000 ENDM 73 0000 74 0000 75 0000 ;******************************************************************************* 76 0000 ; 16 bit shift right with signed 77 0000 ; use RR16 XH,XL,ZH,ZL 78 0000 ; operation 79 0000 ;******************************************************************************* 80 0000 RR16 MACRO XH,XL,ZH,ZL 81 0000 CLR C 82 0000 MOV A,XH 83 0000 AND A,80H 84 0000 SNZ Z 85 0000 SET C 86 0000 RRCA XH 87 0000 MOV ZH,A 88 0000 RRCA XL 89 0000 MOV ZL,A 90 0000 ENDM 91 0000 ;******************************************************************************* 92 0000 ; 16 bit shift left with signed 93 0000 ; use RL16 XH,XL,ZH,ZL 94 0000 ; operation 95 0000 ;******************************************************************************* 96 0000 RL16 MACRO XH,XL,ZH,ZL 97 0000 CLR C 98 0000 SZ XL.7 99 0000 SET C 100 0000 101 0000 RLCA XH 102 0000 MOV ZH,A 103 0000 CLR C 104 0000 RLCA XL 105 0000 MOV ZL,A 106 0000 ENDM 107 0000 ;******************************************************************************* 108 0000 ; 16 bit shift left with signed 109 0000 ; use RL16N XH,XL,ZH,ZL 110 0000 ; operation 111 0000 ;******************************************************************************* 112 0000 RL16N MACRO XH,XL,ZH,ZL,N 113 0000 ;MOV A,8 114 0000 ;SUB A,N 115 0000 ;mov a,Xl SHR A 116 0000 ;mov zh,a 117 0000 ;mov a,xh SHL N 118 0000 ;orm a,zh 119 0000 ENDM 文件：MACRO.ASM 盛群编译器版本 2.86 页次3 120 0000 ;******************************************************************************* 121 0000 ; 8 bit multiply with signed 122 0000 ; use mul8 X,Y,ZH,ZL 123 0000 ; operation 124 0000 ;******************************************************************************* 125 0000 Mul8 MACRO X,Y,ZH,ZL 126 0000 Local Mul8_End 127 0000 CLR operator1H ;sum 128 0000 CLR operator1L 129 0000 CLR operator2H ;multiply 130 0000 CLR operator3H ;operator 131 0000 CLR operator3L 132 0000 mov A,Y 133 0000 mov operator2L,A 134 0000 135 0000 SZ X.7 136 0000 SET operator2H 137 0000 Mul16_doloop: 138 0000 MOV A,6 139 0000 MOV Counter3,A 140 0000 SDZ Counter3 141 0000 JMP Mul8_End 142 0000 SNZ X.Counter3 143 0000 jmp Mul18_Next_Bit 144 0000 RL16 operator2H,operator2L,operator3H,operator3L 145 0000 ADD16 operator3H,operator3L,operator1H,operaotr1L,operator1H,operator1L 146 0000 147 0000 148 0000 Mul18_Next_Bit: 149 0000 JMP Mul16_doloop 150 0000 151 0000 152 0000 Mul8_End: 153 0000 154 0000 155 0000 ENDM 156 0000 157 0000 ;******************************************************************************* 158 0000 ; 8 bit macro 159 0000 ;******************************************************************************* 160 0000 ;******************************************************************************* 161 0000 ; 16 bit ADD with signed 162 0000 ; use ADD16 X,Y,Z 163 0000 ; operation 164 0000 ; X 165 0000 ; +Y 166 0000 ; -------------- 167 0000 ; Z 168 0000 ;******************************************************************************* 169 0000 ADD8 MACRO X1,Y1,Z1 170 0000 MOV A,X1 171 0000 ADD A,Y1 172 0000 MOV Z1,A 173 0000 ENDM 174 0000 175 0000 ;******************************************************************************* 176 0000 ; 16 bit sub with signed 177 0000 ; use SUB16 X,Y,Z 178 0000 ; operation 179 0000 ; X 文件：MACRO.ASM 盛群编译器版本 2.86 页次4 180 0000 ; -Y 181 0000 ; -------------- 182 0000 ; Z 183 0000 ;******************************************************************************* 184 0000 SUB8 MACRO X1,Y1,Z1 185 0000 MOV A,X1 186 0000 SUB A,Y1 187 0000 MOV Z1,A 188 0000 ENDM 189 0000 190 0000 ;******************************************************************************* 191 0000 ; 8 bit shift right with signed 192 0000 ; use RR8 X,Z 193 0000 ; operation 194 0000 ;******************************************************************************* 195 0000 RR8 MACRO X,Y 196 0000 Local RR8_End,RR8_Modify_FF,RR8_Modify_FF_End 197 0000 mov a,X 198 0000 inc acc 199 0000 SZ Z 200 0000 jmp RR8_Modify_FF 201 0000 jmp RR8_Modify_FF_End 202 0000 RR8_Modify_FF: 203 0000 clr Y 204 0000 jmp RR8_End 205 0000 206 0000 RR8_Modify_FF_End: 207 0000 CLR C 208 0000 MOV A,X 209 0000 AND A,80H 210 0000 SNZ Z 211 0000 SET C 212 0000 RRCA X 213 0000 MOV Y,A 214 0000 215 0000 216 0000 217 0000 RR8_End: 218 0000 ENDM 219 0000 ;******************************************************************************* 220 0000 ; 8 bit shift left with signed 221 0000 ; use RL16 X,Z 222 0000 ; operation 223 0000 ;******************************************************************************* 224 0000 RL8 MACRO X,Y 225 0000 CLR C 226 0000 RLCA X 227 0000 MOV Y,A 228 0000 ENDM 229 0000 230 0000 ;******************************************************************************* 231 0000 ; 8 bit abs 232 0000 ; use ABS8 X,Y 233 0000 ; operation 234 0000 ;******************************************************************************* 235 0000 ABS8 MACRO X,Y 236 0000 Local ABS8_End 237 0000 238 0000 kmov y,x 239 0000 mov a,x 文件：MACRO.ASM 盛群编译器版本 2.86 页次5 240 0000 and a,80H 241 0000 SZ Z 242 0000 jmp ABS8_End 243 0000 CPL y 244 0000 INC y 245 0000 246 0000 ABS8_End: 247 0000 248 0000 ENDM 249 0000 250 0000 251 0000 252 0000 253 0000 254 0000 255 0000 ;******************************************************************************* 256 0000 ; kmov 257 0000 ; use kmov destination,source 258 0000 ; operation 259 0000 ;******************************************************************************* 260 0000 KMOV MACRO mem1,mem2 261 0000 mov a,mem2 262 0000 mov mem1,a 263 0000 ENDM 264 0000 265 0000 KOR MACRO mem1,mem2 266 0000 mov a,mem2 267 0000 orm a,mem1 268 0000 ENDM 269 0000 270 0000 271 0000 272 0000 ;******************************************************************************* 273 0000 ; make oled column address 274 0000 ; use oled_make_col_add source,MSB,LSB 275 0000 ; 276 0000 ;******************************************************************************* 277 0000 oled_make_col_add macro mem1,mem2,mem3 278 0000 mov a,0FH 279 0000 AND a,mem1 280 0000 mov mem3,a 281 0000 mov a,70H 282 0000 and a,mem1 283 0000 mov mem2,a 284 0000 clr c 285 0000 rrc mem2 286 0000 clr c 287 0000 rrc mem2 288 0000 clr c 289 0000 rrc mem2 290 0000 clr c 291 0000 rrc mem2 292 0000 set mem2.4 293 0000 294 0000 endm 295 0000 296 0000 297 0000 298 0000 ;*************************************** 299 0000 文件：MACRO.ASM 盛群编译器版本 2.86 页次6 300 0000 XMOV MACRO mem2,mem1 301 0000 mov a,mem1 302 0000 mov mem2,a 303 0000 ENDM 304 0000 ;------------------------------------- 305 0000 ;;Move ARG2->ARG1(move by bit) 306 0000 xmov1 MACRO ARG1,ARG2 307 0000 LOCAL xmov1_1,xmov1_end 308 0000 sz ARG2 309 0000 jmp xmov1_1 310 0000 clr ARG1 311 0000 jmp xmov1_end 312 0000 xmov1_1: 313 0000 set ARG1 314 0000 xmov1_end: 315 0000 ENDM 316 0000 ;------------------------------------- 317 0000 ;;if MEM2=MEM1 =>Skip Next Instruction 318 0000 EQUJMP MACRO MEM2,MEM1 319 0000 MOV A,MEM1 320 0000 XOR A,MEM2 321 0000 SNZ Z 322 0000 ENDM 323 0000 ;;------------------------ 324 0000 325 0000 ;;if MEM2!=MEM1 =>Skip Next Instruction 326 0000 NEJMP MACRO MEM2,MEM1 327 0000 MOV A,MEM1 328 0000 XOR A,MEM2 329 0000 SZ Z 330 0000 ENDM 331 0000 ;;------------------------ 332 0000 ;;if (REG1==REG2) goto REG3 333 0000 JLER MACRO REG1,REG2,REG3 334 0000 mov a,REG1 335 0000 sub a,REG2 336 0000 sz z 337 0000 jmp REG3 338 0000 ENDM 339 0000 ;********************************************** 340 0000 ;MACRO: JLNR 341 0000 ;PURPOSE: REG1 != REG2 goto REG3 342 0000 ;********************************************** 343 0000 JLNR MACRO REG1,REG2,REG3 344 0000 mov a,REG1 345 0000 sub a,REG2 346 0000 snz z 347 0000 jmp REG3 348 0000 ENDM 349 0000 ;;------------------------ 350 0000 ;;if MEM2>MEM1 =>Skip Next Instruction 351 0000 LBRJ MACRO MEM2,MEM1 352 0000 MOV A,MEM1 353 0000 SUB A,MEM2 354 0000 SZ C 355 0000 ENDM 356 0000 ;;------------------------ 357 0000 358 0000 ;;if MEM2<=MEM1 =>Skip Next Instruction 359 0000 LSERJ MACRO MEM2,MEM1 文件：MACRO.ASM 盛群编译器版本 2.86 页次7 360 0000 MOV A,MEM1 361 0000 SUB A,MEM2 362 0000 SNZ C 363 0000 ENDM 364 0000 ;;------------------------ 365 0000 366 0000 ;;if MEM2Skip Next Instruction 367 0000 LSRJ MACRO MEM2,MEM1 368 0000 MOV A,MEM2 369 0000 SUB A,MEM1 370 0000 SZ C 371 0000 ENDM 372 0000 ;;------------------------ 373 0000 374 0000 ;;if MEM2>=MEM1 =>Skip Next Instruction 375 0000 LBERJ MACRO MEM2,MEM1 376 0000 MOV A,MEM2 377 0000 SUB A,MEM1 378 0000 SNZ C 379 0000 ENDM 380 0000 ;;------------------------ 381 0000 382 0000 SWAPWORD MACRO DA 383 0000 EQU (DA>>8)+(DA<<8) 384 0000 ENDM 385 0000 ;;------------------------ 386 0000 0 Errors