下面列舉其中的幾個子程序。

（1）IP置換子程序

；入口寄存器：(MSB)2726252423222120(LSB)，出口寄存器：(MSB)2F2E2D2C2B2A2928(LSB)

；功能：將入口寄存器的數(shù)據(jù)按置換表換位。

IP: MOV C，06H ；將m58送到進位標志中

MOV 7FH，C ；將進位標志送m1中

MOV C，0EH ；將m50送到進位標志中

MOV 7EH，C ；將進位標志送m2中

；重復(fù)，按表編寫

……

MOV C，31H ；將m15送到進位標志中

MOV 41H，C ；將進位標志送m63中

MOV C，39H ；將m7送到進位標志中

MOV 40H，C ；將進位標志送m64中

RET

（2）逆置換子程序

;入口寄存器：(MSB)2726252423222120(LSB)，出口寄存器：(MSB)2F2E2D2C2B2A2928(LSB)

;功能：將入口寄存器的數(shù)據(jù)按逆置換表換位。

IPRVS：MOV C，18H ；將m40送到進位標志中

MOV 7FH，C ；將進位標志送m1中

MOV C，38H

……

RET

（3）異或子程序

；入口寄存器：272625243F3E3D3C，出口寄存器：2B2A2928

；功能：將寄存器27262524的內(nèi)容和寄存器3F3E3D3C的內(nèi)容異或。結(jié)果保存在2B2A2928寄存器中。

XORLF: MOV A，3FH ；將高8位異或

XRL A，27H

MOV 2BH，A ；放入出口處

MOV A，3EH

XRL A，26H

MOV 2AH，A

MOV A，3DH

XRL A，25H

MOV 29H，A

MOV A，3CH

XRL A，24H

MOV 28H，A

RET

（4）S盒子程序

；入口寄存器：(MSB)2F2E2D2C2B2A2928，出口寄存器：(MSB)27262524

；功能：48位→32位

S6TO4: MOV 20h，2FH ；取出高位數(shù)據(jù)

LCALL S162345 ；調(diào)用實現(xiàn)Si(b1b6，b2b3b4b5)

；的功能子程序

MOV DPTR，#S1TAB；S盒表的首址

MOV A，21H ；取出第幾個S盒

LCALL DPTRADD

CLR A

MOVC A，@A+DPTR；求出S盒的表地址及S 結(jié)果

SWAP A

MOV 27H，A ；保存高位結(jié)果

MOV 20H，2EH

LCALL S162345

；重復(fù)

RET

利用這些子程序，我們成功地開發(fā)了以89C52為核心單片機的密鑰鍵盤，可用于金融系統(tǒng)的用戶遠程密碼修改，也可用于其它商用密文的傳輸。