MOVC A,@A+DPTR

MOV 50H,A ;存數

SETB 06H

AJMP J2_RET

J2_NOTEQH:

INC DPTR

J2_NOTEQL:

INC DPTR

INC DPTR

INC DPTR

INC DPTR

CJNE R6,#SPZS,J2_LP0 ;不等于雙拼總數,則繼續循環

CLR 06H

J2_RET:

POP PSW

RET

J_X2: DB 18 26 100 101 102 103 ;zi

DB 19 26 104 105 106 107 ;ci

DB 20 26 108 109 110 111 ;si

.
.
.

三、說明

使用本程序前，必須確切地知道表中共有多少個數據，并將定義一個常量：SPZS，即在程序的頭部作如下定義（設表中共有100個數據）：

SPZS EQU 100

根據這個程序，不難得到三拼的查表程序。以上程序已通過驗證，證明運行無誤。

這是我很早以前作的工作，請各位莫要見笑。