MOV 20H,#00H ;取碼指針暫存地址20H初值為00H
D4: MOV R4,#00H ;74154掃描指針初值
MOV R1,#0FFH ;每幕停留的時(shí)間
D5: MOV R6,#32 ;每幕2個(gè)字,32個(gè)數(shù)據(jù)
MOV R0,20H ;取碼指針存入R0
D2: ACALL READ1 ;調(diào)用取碼子程序
INC R4 ;掃描下一列
DJNZ R6,D2 ;顯示1幕?
MOV R4,#00 ;清除74154掃描指針為00
DJNZ R1,D5 ;每幕停留時(shí)間到了?
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 ;數(shù)據(jù)指針指到TAB
MOVC A,@A+DPTR ;到TAB取上半部的數(shù)據(jù)碼
MOV P0,A ;輸出至P0顯示





