led.asm

上课老师给的8086仿真器

        ORG 1000H
	XPA	EQU	8000H
	XPB	EQU	8001H
;----------------------------------------------------------------------------------------------

 ;H-CODE-1
        x273    equ     0a000h
        XPC	EQU	8002H
	XPCTL	EQU	8003H	

 START:	MOV DPTR,#XPCTL
	MOV A,#80H
	MOVX @DPTR,A	        ;写控制字
     	LCALL OFFLED		;关显示
	CLR 00H			
	MOV R6,#01H
	MOV R7,#80H
;----------------------------------------
X0:	MOV R0,#00H             ;取TAB数
X1:	LCALL DEL1
	INC R0
	INC R0
	CJNE R0,#0E0H,X1
X2:     MOV R0,#00H
X3:	LCALL DEL5		;取TAB1数
	INC R0
	INC R0
	CJNE R0,#80H,X3
	SJMP X0
;---------------------------------------------------------------------------------

DISPW:   PUSH 00H		;显示一个字
	MOV R1,#80H		;L-NUM
	CLR C
DISP1:	MOV A,R0		;BH1
	MOV DPTR,#TAB
	MOVC A,@A+DPTR
         mov dptr,#XPC
         MOVX @DPTR,A
      ;-------------------------------------------
	INC R0			;BH2
	MOV A,R0
	MOV DPTR,#TAB
	MOVC A,@A+DPTR
	MOV DPTR,#XPA
        MOVX @DPTR,A
;-------------------------------------------
	MOV DPL,R6		;X273/XPB
	MOV DPH,R7
        MOV A,R1		;L0----L7
	CPL A
	MOVX @DPTR,A
        mov r3,#80h
	djnz r3,$
	LCALL OFFLED
	INC R0
	MOV A,R1
	RRC A
	MOV R1,A
	JNC DISP1
	JB 00H,EXIT
;----------------------------------
	SETB 00H
	CLR C
	MOV R1,#80H
	MOV R6,#00H
	MOV R7,#0A0H
	AJMP DISP1
EXIT:	MOV R6,#01H
	MOV R7,#80H
	CLR 00H
	POP 00H
	RET
DISPW1:   PUSH 00H		;
	MOV R1,#80H		;
	CLR C
DISP2:	MOV A,R0		;
	MOV DPTR,#TAB1
	MOVC A,@A+DPTR
         mov dptr,#XPC
         MOVX @DPTR,A
      ;-------------------------------------------
	INC R0			;
	MOV A,R0
	MOV DPTR,#TAB1
	MOVC A,@A+DPTR
	MOV DPTR,#XPA
        MOVX @DPTR,A
;-------------------------------------------
	MOV DPL,R6
	MOV DPH,R7
        MOV A,R1
	CPL A
	MOVX @DPTR,A
        mov r3,#80h
	djnz r3,$
	LCALL OFFLED
	INC R0
	MOV A,R1
	RRC A
	MOV R1,A
	JNC DISP2
	JB 00H,EXIT1
;----------------------------------
	SETB 00H
	CLR C
	MOV R1,#80H
	MOV R6,#00H
	MOV R7,#0A0H
	AJMP DISP2
EXIT1:	MOV R6,#01H
	MOV R7,#80H
	CLR 00H
	POP 00H
	RET
;----------------------------------------------------------------------------------
TAB: DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
     DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
     DB 00H,00H,00H,80H,01H,00H,3FH,0F8H,20H,08H,20H,08H,20H,08H,3FH,0F8H ; 启
     DB 00H,08H,3FH,0E8H,20H,28H,20H,2CH,20H,24H,3FH,0E6H,20H,22H,00H,00H
     DB 00H,00H,01H,80H,00H,0C0H,00H,40H,7FH,0FEH,00H,20H,01H,30H,01H,10H;  东
     DB 03FH,0F8H,01H,00H,01H,00H,19H,30H,31H,18H,61H,0CH,01H,40H,00H,80H
     DB 00H,00H,00H,00H,04H,0CH,04H,18H,04H,10H,24H,00H,7FH,0CEH,04H,08H  ; 计
     DB 04H,08H,04H,08H,04H,08H,04H,28H,04H,28H,04H,18H,04H,08H,04H,00h
     DB 02H,02H,7EH,7EH,09H,12H,1FH,0FDH,08H,04H,0FH,0FCH,08H,04H,0FH,0FCH ;算
     DB 08H,04H,0FH,0FCH,02H,10H,7FH,0FFH,02H,10H,02H,08H,02H,08H,02H,04H
     DB 00H,00H,00H,08H,0FH,08H,09H,28H,09H,7FH,09H,08H,09H,0CH,09H,3CH    ;机
     DB 09H,2CH,09H,0AH,49H,0AH,49H,09H,48H,88H,48H,48H,78H,28H,00H,00H
     DB 00H,00H,20H,00H,7FH,0F0H,00H,10H,00H,10H,00H,10H,00H,10H,00H,10H   ;厂
     DB 00H,10H,00H,10H,00H,10H,00H,08H,00H,08H,00H,08H,00H,04H,00H,00H
     DB 00H,00H,00H,80H,00H,80H,20H,0C0H,7FH,0FEH,00H,40H,1FH,0E0H,10H,20H ;有
     DB 1FH,0F0H,10H,28H,1FH,0E6H,10H,20H,10H,20H,10H,20H,1CH,20H,08H,00H

TAB1:DB 00H,00H,00H,80H,00H,80H,20H,0C0H,7FH,0FEH,00H,40H,1FH,0E0H,10H,20H ;有
     DB 1FH,0F0H,10H,28H,1FH,0E6H,10H,20H,10H,20H,10H,20H,1CH,20H,08H,00H
     DB 00H,00H,00H,42H,3FH,0DEH,10H,52H,10H,4AH,1FH,0CAH,10H,46H,1FH,0CAH ;限
     DB 01H,52H,32H,52H,1AH,52H,04H,5EH,1EH,42H,79H,0C2H,20H,42H,00H,00H
     DB 00H,00H,02H,20H,02H,60H,02H,20H,04H,10H,08H,10H,18H,08H,70H,44H    ;公
     DB 20H,0C2H,00H,40H,04H,20H,08H,10H,1FH,88H,18H,0FCH,08H,08H,00H,00H
     DB 00H,00H,20H,00H,7FH,0F0H,20H,00H,24H,00H,2FH,0FCH,20H,00H,20H,08H  ;司
     DB 27H,0F8H,22H,08H,22H,08H,23H,0F8H,22H,08H,20H,00H,38H,00H,10H,00h
     DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
     DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H

;--------------------------------------------------------------------------------------
DEL1:	MOV R2,#04H
DELY:	PUSH 02H
DEL2:	PUSH 02H
DEL3:	PUSH 02H
DEL4:	DJNZ R2,DEL4
	CALL DISPW
	POP 02H
	DJNZ R2,DEL3
	POP 02H
	DJNZ R2,DEL2
	POP 02H
	DJNZ R2,DELY
	RET
 DEL5:	MOV R2,#04H
DELY1:	PUSH 02H
DEL6:	PUSH 02H
DEL7:	PUSH 02H
DEL8:	DJNZ R2,DEL8
	CALL DISPW1
	POP 02H
	DJNZ R2,DEL7
	POP 02H
	DJNZ R2,DEL6
	POP 02H
	DJNZ R2,DELY1
	RET
;---------------------------------------------------------	
OFFLED: MOV DPTR,#XPB
	MOV A,#0FFH
        MOVX @DPTR,A
	MOV DPTR,#X273
 	MOVX @DPTR,A
	RET
END