以下为利用ASSEMBLY,BASIC,PASCAL,C,FORTRAN 等程式语言，将一个24x 24之点阵字形，放大成为48x 48，并分别比较其处理速度、占用空间以及制作时间。
为了正确计算执行时间，特意作 10,000 次处理，至于指定的24x 24字形，则假设为一空格。
一、ASSEMBLY
组合语言变化无穷，先以一般的作法，用点阵位移来处理。
1: PAGE 60, 132
2: CG SEGMENT
3: BUFIN DB 72 DUP(0)
4: BUFOT DB 72*4 DUP(0)
5: ASSUME CS:CG,DS:CG,ES:CG
6: START:
7: MOV AX,CG
8: MOV DS,AX
9: MOV ES,AX
10: CLD
11: MOV BP,10000 ; 处理10,000次
12: S3:
13: SUB CX,CX
14: MOV BX,CX
15: MOV DX,1803H ; 计数用
16: MOV SI,OFFSET BUFIN ; 24*24 点阵起始位址
17: MOV DI,OFFSET BUFOT ; 预定48*48储存位址
18: MVBYTE:
19: MOV BH,DL ; 做三列
20: MVDB:
21: LODSB ; 取原点阵
22: MOV BL,AL
23: MOV CL,8 ; 做八位元
24: MVDB1:
25: RCL BL,1 ; 左移一次
26: PUSHF ; 保存状态
27: RCL AX,1 ; 两字同时左移一次
28: POPF ; 取出原移位状态
29: RCL AX,1 ; 再一次，得双位点值
30: LOOP MVDB1 ; 八次回路
31: STOSW ; 存入
32: MOV [DI+4],AX ; 上下放大一行
33: DEC BH ; 共 3列
34: JNZ MVDB
35: ADD DI,6 ; 移向次行
36: DEC DH
37: JNZ MVBYTE ; 共24行
38: DEC BP ; 执行10,000次
39: JNZ S3 ; 完成
40: MOV AX,4C00H
41: INT 21H
42: CG ENDS
43: END START
本程式制作时间，为十五分钟。
经汇编后，得934 字元的执行程式，执行耗时14.5秒。
若将上段程式加以分析，可以发现到此段程式执行时间全部浪费在23至30这一段「回路」中。为了增加速度，可以将空间加大，避开回路，连续执行八次「移位」动作如次：
23: RCL BL,1
24: RCL AX,1
25: SHL AX,1
26: 同上共八次
…
[1] [2] [3] [4] 下一页 |
