p; DX ; 同上
17: MOV SI,AX ; AX不能间接定址
18: AND CL,07H ; 有效值
19: CALL CCODTB[SI] ; 假设CS=DS
20: POP DX
21: POP BX
22: JMP CCODIN ; 本程式主流程
23: CCOD00: ; CODe为码
24: ADD SP,6 ; 本程式为子
程序 25: RET ; 码为0执行完毕
26: CCOD06: ; 06为 E,F
27: SHL CL,1 ; E,F 粗细值加倍
28: CLFT02: ; LeFT指左横
29: ADD BH,BL ; 02为输入码 A,B
30: SHR BH,1 ; 左起BH中点值
31: JMP CHOR00 ; HORizon 画横
32: CCOD08: ; 08为G,H
33: SHL CL,1
34: CLEF04: ; 04为C,D
35: ADD DH,DL
36: SHR DH,1 ; 上起DH为中点值
37: JMP CVER00 ; VERtical画直
38: CCOD0E:
39: SHL CL,1
40: CRGT0A: