51单片机 显示学号

数码管显示学号 ，直接上代码了，把学号改了就可以了

ORG 0000H
AJMP START
ORG 30H
START: 
MOV 60H,#1
MOV 61H,#7
MOV 62H,#8          //在这里自己该学号，其他地方应该不用动
MOV 63H,#2
MOV 64H,#8
MOV 65H,#6
MOV 66H,#2
MOV 67H,#9
MAIN:
MOV A,60H 
LCALL LOOP
MOV P0,#0FEH
LCALL DLY
MOV A,61H 
LCALL LOOP
MOV P0,#0FDH
LCALL DLY
MOV A,62H 
LCALL LOOP
MOV P0,#0FBH
LCALL DLY
MOV A,63H 
LCALL LOOP
MOV P0,#0F7H
LCALL DLY
MOV A,64H 
LCALL LOOP
MOV P0,#0EFH
LCALL DLY
MOV A,65H 
LCALL LOOP
MOV P0,#0DFH
LCALL DLY
MOV A,66H 
LCALL LOOP
MOV P0,#0BFH
LCALL DLY
MOV A,67H 
LCALL LOOP
MOV P0,#07FH
LCALL DLY
LJMP MAIN
LOOP:
    LCALL SEG 
    SETB P2.6
    CLR  P2.7
    MOV P0,A
    CLR P2.6
    SETB  P2.7
    RET
DLY:   MOV R7,#10 
D1:    MOV R6,#50
       DJNZ R6,$
       DJNZ R7,D1
RET
SEG:   INC A
       MOVC A,@A+PC
RET								   
TAB:
     DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,40H,6FH
END