ORG 0030H
MOV 30H，#34H
MOV 31H，#56H
MOV 32H，#23H
MOV 33H，#90H
MOV 34H，#32H
MOV 35H，#68H
MOV 36H，#09H
MOV 37H，#75H
呼叫排序
SJMP元
；-
排序:；最短最有效的分類程序。
MOV B，# 7；第壹輪排序，比較7次。
S1: MOV R0，# 30H數據區的起始地址。
MOV R7，B
CLR PSW.5清除“交換”標誌。
S2: MOV A，@ R0取前壹個號碼。
INC R0
CLR C
SUBB A，@ R0減去壹個數字，之前
S3:JC S4；有貸款的時候，不需要兌換，也不需要過戶。
MOV A，@ R0拿最後壹個號，準備兌換。
十二月零日
XCH A，@ R0切換到上壹個。
INC R0
XCH A，@ R0切換到最後壹個。
SETB PSW . 5；設置“交換”標誌。
S4: DJNZ R7，S2；繼續這壹輪對比。
JNB PSW.5，結尾；如果當前回合沒有交換，可以提前結束。
DJNZ B，s 1；下壹輪比較的次數會少於壹次。
結束:
浸水使柔軟
；-
結束