MOV     20H,#00H   ;取碼指針暫存地址20H初值為00H

D4:           MOV     R4,#00H    ;74154掃描指針初值

              MOV     R1,#0FFH   ;每幕停留的時間

D5:           MOV     R6,#32     ;每幕2個字，32個數據

              MOV     R0,20H     ;取碼指針存入R0

D2:           ACALL   READ1      ;調用取碼子程序

              INC     R4         ;掃描下一列

              DJNZ    R6,D2      ;顯示1幕？

              MOV     R4,#00     ;清除74154掃描指針為00

              DJNZ    R1,D5      ;每幕停留時間到了？

              MOV     20H,R0     ;保留取碼指針存入20H地址

              DJNZ    R2,D4      ;2幕顯示完畢了？

              RET

;********************************************************

READ1:        MOV     A,R4       ;掃描指針載入A        

              MOV     P1,A       ;輸出至P1掃描列

              MOV     A,R0       ;取碼指針載入A

              MOV     DPTR,#TAB  ;數據指針指到TAB

              MOVC    A,@A+DPTR  ;到TAB取上半部的數據碼

              MOV     P0,A       ;輸出至P0顯示