fly.asm

本程序是一个传输控制器的硬件测试程序

	mov	jsss5h,#2
	jnb	jp1.3,b190
	;;;;;;;mov	jssa,#20
	setb	gp5;;;;;;;;;;;;;;;;;;
	setb	ou2.7
	lcall	out2
	jmp	b190;;;;;;;;;;;;;;;;

kb19:	djnz	jsss5,b190
	mov	jsss5,#250
	djnz	jsss5h,b190
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jp1.3,b190
	mov	jssa,#20
	clr	gp5;;;;;;;

b190:	jmp	e0

b20:	mov	a,jssa;x20
	cjne	a,#20,b21

	jb	gp5,kb20;;;;;;;;;;;;;;;
	
	clr	ou0.6
	lcall	out0
	
	djnz	jsss5,b200
	mov	jsss5,#250
	djnz	jsss5h,b200
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jp1.4,b200
	;;;;;;mov	jssa,#21
	setb	gp5;;;;;;;;;;;;;;;;;
	setb	ou0.6
	lcall	out0
	jmp	b200;;;;;;;;;;;;
	
kb20:	djnz	jsss5,b200
	mov	jsss5,#250
	djnz	jsss5h,b200
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jp1.4,b200
	mov	jssa,#21	
	clr	gp5
	
b200:	jmp	e0

b21:	mov	a,jssa;x21
	cjne	a,#21,b22

	jb	gp5,kb21;;;;;;;;;;;;;

	clr	ou0.7
	lcall	out0
	
	djnz	jsss5,b210
	mov	jsss5,#250
	djnz	jsss5h,b210
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jp1.5,b210
	;;;;;;;mov	jssa,#22
	setb	gp5;;;;;;;;;;;;;;;;;;
	setb	ou0.7
	lcall	out0
	jmp	b210;;;;;;;;

kb21:	djnz	jsss5,b210
	mov	jsss5,#250
	djnz	jsss5h,b210
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jp1.5,b210
	mov	jssa,#22
	clr	gp5;;;;;;;;;;;;;;;;;;

b210:	jmp	e0

b22:	mov	a,jssa;x22
	cjne	a,#22,b23

	jb	gp5,kb22;;;;;;;;;;;;;;;
	
	clr	ou2.0
	lcall	out2
	
	djnz	jsss5,b220
	mov	jsss5,#250
	djnz	jsss5h,b220
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jp1.6,b220
	;;;;;;mov	jssa,#23
	setb	gp5;;;;;;;;;;;;;;;;;;;
	setb	ou2.0
	lcall	out2
	jmp	b220;;;;;;;;;;;;;;;;;;;

 kb22:	djnz	jsss5,b220
	mov	jsss5,#250
	djnz	jsss5h,b220
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jp1.6,b220
	mov	jssa,#23
	clr	gp5;;;;;;;;;;;;;;;;;;;

b220:	jmp	e0

b23:	mov	a,jssa;x23
	cjne	a,#23,b24

	jb	gp5,kb23;;;;;;;;;;;;;;;;

	clr	ou2.1
	lcall	out2
	
	djnz	jsss5,b230
	mov	jsss5,#250
	djnz	jsss5h,b230
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jp1.7,b230
	;;;;;;mov	jssa,#24
	setb	gp5;;;;;;;;;;;;;;;
	setb	ou2.1
	lcall	out2
	jmp	b230;;;;;;;;

kb23:	djnz	jsss5,b230
	mov	jsss5,#250
	djnz	jsss5h,b230
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jp1.7,b230
	mov	jssa,#24
	clr	gp5;;;;;;;;;;;;;;;
b230:	jmp	e0


b24:	mov	a,jssa;x24
	cjne	a,#24,b25

	jb	gp5,kb24;;;;;;;;;;;;

	clr	ou2.2
	lcall	out2
	
	djnz	jsss5,b240
	mov	jsss5,#250
	djnz	jsss5h,b240
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jpp1.3,b240
	;;;;;mov	jssa,#25
	setb	gp5;;;;;;;;;;;;;;;;;;;;
	setb	ou2.2
	lcall	out2
	jmp	b240;;;;;;;;;;;;

kb24:	djnz	jsss5,b240
	mov	jsss5,#250
	djnz	jsss5h,b240
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jpp1.3,b240
	mov	jssa,#25
	clr	gp5;;;;;;;;;;;;;;;;;;;;

b240:	jmp	e0

b25:	mov	a,jssa;x25
	cjne	a,#25,b26

	jb	gp5,kb25;;;;;;;;;;;;;;;;

	clr	ou2.3
	lcall	out2
	
	djnz	jsss5,b250
	mov	jsss5,#250
	djnz	jsss5h,b250
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jpp1.4,b250
	;;;;;;;;;;;mov	jssa,#26
	setb	gp5;;;;;;;;;;;;;;;;;
	setb	ou2.3
	lcall	out2
	jmp	b250;;;;;;;;;;;;;
kb25:	djnz	jsss5,b250
	mov	jsss5,#250
	djnz	jsss5h,b250
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jpp1.4,b250
	mov	jssa,#26
	clr	gp5;;;;;;;;;;;;;;;;;

b250:	jmp	e0

b26:	mov	a,jssa;x26
	cjne	a,#26,b27

	jb	gp5,kb26;;;;;;;;;;;;;;;;;;;
	
	clr	ou2.4
	lcall	out2
	
	djnz	jsss5,b260
	mov	jsss5,#250
	djnz	jsss5h,b260
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jpp1.5,b260
	;;;;;;;mov	jssa,#27
	setb	gp5;;;;;;;;;;;;;;;;
	setb	ou2.4
	lcall	out2
	jmp	b260;;;;;;;;;;;;;;;

kb26:	djnz	jsss5,b260
	mov	jsss5,#250
	djnz	jsss5h,b260
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jpp1.5,b260
	mov	jssa,#27
	clr	gp5;;;;;;;;;;;;;;;;

b260:	jmp	e0

b27:	mov	a,jssa;x27
	cjne	a,#27,b28

	jb	gp5,kb27;;;;;;;;;;;;;;;;

	clr	ou2.5
	lcall	out2
	
	djnz	jsss5,b270
	mov	jsss5,#250
	djnz	jsss5h,b270
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jpp1.6,b270
	;;;;;;mov	jssa,#28
	setb	gp5;;;;;;;;;;;
	setb	ou2.5
	lcall	out2
	jmp	b270;;;;;;;;;;;;

kb27:	djnz	jsss5,b270
	mov	jsss5,#250
	djnz	jsss5h,b270
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jpp1.6,b270
	mov	jssa,#28
	clr	gp5;;;;;;;;;;;

b270:	jmp	e0

b28:	mov	a,jssa;x28
	cjne	a,#28,b29

	jb	gp5,kb28;;;;;;;;;;;;;;;;

	clr	ou2.6
	lcall	out2
	
	djnz	jsss5,b280
	mov	jsss5,#250
	djnz	jsss5h,b280
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jpp1.7,b280
	;;;;;;;;;;mov	jssa,#29
	setb	gp5;;;;;;;;;;;;;;;;
	setb	ou2.6
	lcall	out2
	jmp	b280;;;;;;

kb28:	djnz	jsss5,b280
	mov	jsss5,#250
	djnz	jsss5h,b280
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jpp1.7,b280
	mov	jssa,#29
	clr	gp5;;;;;;;;;;;;;;;;
	
b280:	jmp	e0

b29:	mov	a,jssa;x29
	cjne	a,#29,b30

	jb	gp5,kb29;;;;;;;;;;;;;

	clr	ou2.7
	lcall	out2
	
	djnz	jsss5,b290
	mov	jsss5,#250
	djnz	jsss5h,b290
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jpp2.0,b290
	;;;;;;mov	jssa,#30
	setb	gp5;;;;;;;;;;;;;;
	setb	ou2.7
	lcall	out2
	jmp	b290;;;;;;;;;;;;;;;

kb29:	djnz	jsss5,b290
	mov	jsss5,#250
	djnz	jsss5h,b290
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jpp2.0,b290
	mov	jssa,#30
	clr	gp5;;;;;;;;;;;;;;
b290:	jmp	e0

b30:	mov	a,jssa;x30
	cjne	a,#30,b31

	jb	gp5,kb30;;;;;;;;;;;;;;;;;
	
	clr	ou0.6
	lcall	out0
	
	djnz	jsss5,b300
	mov	jsss5,#250
	djnz	jsss5h,b300
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jpp2.1,b300
	;;;;;;mov	jssa,#31
	setb	gp5;;;;;;;;;;;;;;;
	setb	ou0.6
	lcall	out0
	jmp	b300;;;;;;;;;;;;;

kb30:	djnz	jsss5,b300
	mov	jsss5,#250
	djnz	jsss5h,b300
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jpp2.1,b300
	mov	jssa,#31
	clr	gp5;;;;;;;;;;;;;;;

b300:	jmp	e0

b31:	mov	a,jssa;x31
	cjne	a,#31,b32

	jb	gp5,kb31;;;;;;;;;;;;;;;

	clr	ou0.7
	lcall	out0
	
	djnz	jsss5,b310
	mov	jsss5,#250
	djnz	jsss5h,b310
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jpp2.2,b310
	;;;;;;mov	jssa,#32
	setb	gp5;;;;;;;;;;;;
	setb	ou0.7
	lcall	out0
	jmp	b310;;;;;;;;;;;;;

kb31:	djnz	jsss5,b310
	mov	jsss5,#250
	djnz	jsss5h,b310
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jpp2.2,b310
	mov	jssa,#32
	clr	gp5;;;;;;;;;;;;
	
b310:	jmp	e0

b32:	mov	a,jssa;x32
	cjne	a,#32,b33

	jb	gp5,kb32;;;;;;;;;;;;;;;;;;;;;

	clr	ou2.0
	lcall	out2
	
	djnz	jsss5,b320
	mov	jsss5,#250
	djnz	jsss5h,b320
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jpp2.3,b320
	;;;;;;;mov	jssa,#33
	setb	gp5;;;;;;;;
	setb	ou2.0
	lcall	out2
	jmp	b320;;;;;;;;;;;;;;;
kb32:	djnz	jsss5,b320
	mov	jsss5,#250
	djnz	jsss5h,b320
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jpp2.3,b320
	mov	jssa,#33
	clr	gp5;;;;;;;;
b320:	jmp	e0

b33:	mov	a,jssa;x33
	cjne	a,#33,b34

	jb	gp5,kb33;;;;;;;;;;;;;;;;;

	clr	ou2.1
	lcall	out2
	
	djnz	jsss5,b330
	mov	jsss5,#250
	djnz	jsss5h,b330
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jpp2.4,b330
	;;;;;;;;;;mov	jssa,#34
	setb	gp5;;;;;;;;;;;;;;;
	setb	ou2.1
	lcall	out2
	jmp	b330;;;;;;;;;;;

kb33:	djnz	jsss5,b330
	mov	jsss5,#250
	djnz	jsss5h,b330
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jpp2.4,b330
	mov	jssa,#34
	clr	gp5;;;;;;;;;;;;;;;

b330:	jmp	e0

b34:	mov	a,jssa;x34
	cjne	a,#34,b35

	jb	gp5,kb34;;;;;;;;;;;;;;;;;;

	clr	ou2.2
	lcall	out2
	
	djnz	jsss5,b340
	mov	jsss5,#250
	djnz	jsss5h,b340
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jpp2.5,b340
	;;;;;;mov	jssa,#35
	setb	gp5;;;;;;;;;;
	setb	ou2.2
	lcall	out2
	jmp	b340;;;;;;;;;;;;;;;;;

kb34:	djnz	jsss5,b340
	mov	jsss5,#250
	djnz	jsss5h,b340
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jpp2.5,b340
	mov	jssa,#35
	clr	gp5;;;;;;;;;;
b340:	jmp	e0

b35:	mov	a,jssa;x35
	cjne	a,#35,b36
	
	jb	gp5,kb35;;;;;;;;;;;;;;;;;
	
	clr	ou2.3
	lcall	out2
	
	djnz	jsss5,b350
	mov	jsss5,#250
	djnz	jsss5h,b350
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jpp2.6,b350
	;;;;;;;mov	jssa,#36
	setb	gp5;;;;;;;;;
	setb	ou2.3
	lcall	out2
	jmp	b350
kb35:	djnz	jsss5,b350
	mov	jsss5,#250
	djnz	jsss5h,b350
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jpp2.6,b350
	mov	jssa,#36
	clr	gp5;;;;;;;;;
b350:	jmp	e0

b36:	mov	a,jssa;x36
	cjne	a,#36,b37

	jb	gp5,kb36;;;;;;;;;;;;;;;

	clr	ou2.4
	lcall	out2
	
	djnz	jsss5,b360
	mov	jsss5,#250
	djnz	jsss5h,b360
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jpp2.7,b360
	;;;;;;;;;;mov	jssa,#37
	setb	gp5
	setb	ou2.4
	lcall	out2
	jmp	b360;;;;;;;;;;

kb36:	djnz	jsss5,b360
	mov	jsss5,#250
	djnz	jsss5h,b360
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jpp2.7,b360
	mov	jssa,#37
	clr	gp5
	
b360:	jmp	e0

b37:	mov	a,jss6
	cjne	a,#0,b370
	mov	jss6,#01
	sjmp	b372
b370:	mov	a,jss6
	cjne	a,#1,b371
	mov	jss6,#02
	sjmp	b372
b371:	mov	a,jss6
	cjne	a,#2,b372
	mov	jss6,#00
b372:	mov	jssa,#00
	
;============================================================================
E0:	mov	a,jss6
	cjne	a,#0,shang
	mov	gzp1,jssa
	mov 	a,gzp1
	mov	b,#10
	div	ab
	mov	d11,a
	mov	d10,b
	jmp	x0	
shang:	mov	a,jss6
	cjne	a,#1,hai
	mov	gzp1,#00
	setb	yxp1.0
	setb	yxp1.3;;;;;shang
	clr	yxp1.4
	jmp	x0
hai:	mov	a,jss6
	cjne	a,#2,fly
	mov	gzp1,#00
	setb	yxp1.0
	clr	yxp1.3
	setb	yxp1.4;;;;;xia
	jmp	x0
fly:	mov	jss6,#0
;============================================================================数码管显示程序

X0:	JNB	GP3,X1	
	MOV	A,D0;;;;;;;;;;;;;;;;;;;;;;;参数设置状态
	LCALL	CB2
	MOV	R0,#D4
	MOV	@R0,A
	
	MOV	A,D1
	LCALL	CB2
	MOV	R0,#D5
	MOV	@R0,A

	MOV	A,D2
	LCALL	CB2
	MOV	R0,#D6
	MOV	@R0,A

	MOV	A,D3
	LCALL	CB2
	MOV	R0,#D7
	MOV	@R0,A
	
	LJMP	X3

X1:	MOV	A,GZP1
	CJNE	A,#00,X1A
	MOV	A,GZP2
	CJNE	A,#00,X1A	
	MOV	A,GZP3
	CJNE	A,#00,X1A
	JMP	X2

X1A:	MOV	A,D10;;;;;;;;;;;;;;;;;;;;;;;故障状态
	LCALL	CB2
	MOV	R0,#D4
	MOV	@R0,A
	
	MOV	A,D11
	LCALL	CB2
	MOV	R0,#D5
	MOV	@R0,A

;	MOV	A,#0AH;;;;;;;;;;;;;;;EEEEEEEEEEE
;	LCALL	CB2
;	MOV	R0,#D6
;	MOV	@R0,A

;	MOV	A,#0AH;;;;;;;;;;;;;;;EEEEEEEEEEE
;	LCALL	CB2
;	MOV	R0,#D7
;	MOV	@R0,A
;--------------------------------------------------------------
	mov	a,jss5
	LCALL	CB2
	MOV	R0,#D7
	MOV	@R0,A

	mov	a,jss5h
	LCALL	CB2
	MOV	R0,#D6
	MOV	@R0,A
;-------------------------------------------------------------
	LJMP	X3


X2:     JNB	YXP1.3,X21
	MOV	A,#01
	LCALL	CB2
	MOV	R0,#D4
	MOV	@R0,A;;;;;;;;;;;;;1
	SJMP	X23

X21:	JNB	YXP1.4,X22
	MOV	A,#02
	LCALL	CB2
	MOV	R0,#D4
	MOV	@R0,A;;;;;;;;;;;;2
	SJMP	X23

X22:	MOV	A,#00
	LCALL	CB2
	MOV	R0,#D4
	MOV	@R0,A;;;;;;;;;;;;;0
	
X23:    JB	JP0.6,X24
	MOV	A,#01
	LCALL	CB2
	MOV	R0,#D5
	MOV	@R0,A
	SJMP	X25

X24:	MOV	A,#02
	LCALL	CB2
	MOV	R0,#D5
	MOV	@R0,A

X25:	MOV	A,YG1
	LCALL	CB2
	MOV	R0,#D6
 	MOV	@R0,A

X26:	MOV	A,#0EH;;;;;;;;;;;HHHHHHHHHHHH
	LCALL	CB2
	MOV	R0,#D7
	MOV	@R0,A

;--------------------------------------------------------低2位
;	mov	r0,#xwc;;
;	movx	a,@r0;;;;;;;;;;;;;;;;;;;;;;;;检撤
	mov	a,jssa
	mov	b,#10;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	DIV	AB;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	lcall	cb2
	MOV	R0,#D5
	MOV	@R0,A
	mov	a,b
	lcall	cb2
	MOV	R0,#D4
	MOV	@R0,A
;-------------------------------------------------------高2位
;	mov	r0,#ksjc
;	mov	a,@r0
;	mov	b,#10
;	DIV	AB

;	lcall	cb2
;	MOV	R0,#D7
;	MOV	@R0,A
;	mov	a,b
;	lcall	cb2
;	MOV	R0,#D6
;	MOV	@R0,A
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	mov	a,jss5
	LCALL	CB2
	MOV	R0,#D7
	MOV	@R0,A

	mov	a,jss5h
	LCALL	CB2
	MOV	R0,#D6
	MOV	@R0,A
;------------------------------------------------------------------------------
X3:	INC     XSJS
        MOV	A,XSJS
        CJNE    A,#125,X4;
	SJMP	X5
X4:     JC      X5
        MOV     XSJS,#00H
        CPL	XSDP
X5:     JNB     XSDP,X6
	MOV	R0,#D6
	MOV	A,@R0
	ORL	A,#10000000B
	MOV	@R0,A

X6:     
	DJNZ    JSJS0,X7
        MOV     JSJS0,#04

X7:     MOV	A,JSJS0
	CJNE    A,#01,X8
       	LJMP    XA3
        
X8:     MOV	A,JSJS0
	CJNE    A,#02,X9
        LJMP    XA4
        
X9:     MOV	A,JSJS0
	
	CJNE    A,#03,XA
        LJMP    XA1
        
XA:     MOV	A,JSJS0
	CJNE    A,#04H,XA0
        LJMP    XA2

XA0:    JMP     XA3
XA1:    JMP     XA5
XA2:    JMP     XA6
	
XA3:    MOV	P1,#11111110B;;;;;;;;;;;;;;;;;;;;
	MOV	KK,#20
XA31:	MOV	P2,#00H
	DJNZ	KK,XA31

	MOV	P1,#11111111B;;;;;;;;;;;;;;;
	MOV	KK,#20
XA32:	MOV	P2,#0