⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 fly.asm

📁 本程序是一个传输控制器的硬件测试程序
💻 ASM
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
	mov	a,@r0
	LJMP	A0S2
a0d1410:	cjne	a,#1,a0d1420
	mov	r0,#erro1
	mov	a,@r0
	LJMP	A0S2
a0d1420:	cjne	a,#2,a0d1430
	mov	r0,#erro2
	mov	a,@r0
	LJMP	A0S2
a0d1430:	cjne	a,#3,a0d1440
	mov	r0,#erro3
	mov	a,@r0
	LJMP	A0S2
a0d1440:	cjne	a,#4,a0d1450
	mov	r0,#erro4
	mov	a,@r0
	LJMP	A0S2
a0d1450:	cjne	a,#5,a0d1460
	mov	r0,#erro5
	mov	a,@r0
	LJMP	A0S2
a0d1460:	cjne	a,#6,a0d1470
	mov	r0,#erro6
	mov	a,@r0
	LJMP	A0S2
a0d1470:	cjne	a,#7,a0d1480
	mov	r0,#erro7
	mov	a,@r0
	LJMP	A0S2
a0d1480:	cjne	a,#8,a0d1490
	mov	r0,#erro8
	mov	a,@r0
	LJMP	A0S2
a0d1490:	cjne	a,#9,a0d1500
	mov	r0,#erro9
	mov	a,@r0
	LJMP	A0S2
a0d1500:	mov	r0,#erro9
	mov	a,@r0
	mov	r0,#count1
	mov	@r0,#09
	LJMP	A0S2

A0E15:	MOV	A,YGM
	INC	A
	CJNE	A,#99,A00E15   ;;;;;;;;;;;
	LJMP	A000E15
A00E15:	JC	A000E15
	MOV	A,#00
A000E15:MOV	YGM,A
	MOV	B,#10
	DIV	AB
	MOV	D1,A
	MOV	D0,B
	LJMP	A0G1	


A0F1:   MOV     JPJP0,#00             ;;; SAVE KEY
        JNB     GP3,A0F1A0
	SJMP    A0F1A1
A0F1A0: LJMP    A0G1

A0F1A1: MOV	A,GP2
	CJNE    A,#14,A0F1A5
        MOV     A,YGM
	CJNE	A,#99,A0FF13
	LJMP	A0FF14
A0FF13:	JC	A0FF14
	MOV	A,#99
A0FF14:	MOV	ZW,A	       
	LJMP	A0FF

A0F1A5: MOV	A,YGM
	CJNE	A,#86,A0FF1A5
	SJMP	A0F1A
A0FF1A5:LJMP    A0G1
	
A0F1A:	MOV	ZW,D0
	MOV	A,GP2

	
A0F1B:	CJNE	A,#01,A0F1C
        LJMP    A0F2
A0F1C:  CJNE	A,#02,A0F1D
        LJMP    A0F3
A0F1D:  CJNE	A,#03,A0F1E
        LJMP    A0F4
A0F1E:  CJNE	A,#04,A0F1F
        LJMP    A0F5
A0F1F:  CJNE	A,#05,A0F1G
        LJMP    A0F6
A0F1G:  CJNE	A,#06,A0F1H
        LJMP    A0F7
A0F1H:  CJNE	A,#07,A0F1I
        LJMP    A0F8
A0F1I:  CJNE	A,#08,A0F1J
        LJMP    A0F9
A0F1J:  CJNE	A,#09,A0F1K
        LJMP    A0FA
A0F1K:  CJNE	A,#10,A0F1L
        LJMP    A0FB

A0F1L:  CJNE	A,#11,A0F1M
        LJMP    A0FC
A0F1M:  CJNE	A,#12,A0F1N
        LJMP    A0FD
A0F1N:  CJNE	A,#13,A0F1O
        LJMP    A0FE

A0F1O:  CJNE	A,#14,A0F1P
        LJMP    A0FF
A0F1P:  LJMP    A0G1

A0F2:   LCALL   WRTRD
        MOV     YG1,ZR
        LJMP    A0S1A
A0F3:   LCALL   WRTRD
        MOV     YG2,ZR
        LJMP    A0S1B
A0F4:   LCALL   WRTRD
        MOV     YG3,ZR
        LJMP    A0S1C
A0F5:   LCALL   WRTRD
        MOV     YG4,ZR
        LJMP    A0S1D
A0F6:   LCALL   WRTRD
        MOV     YG5,ZR
        LJMP    A0S1E
A0F7:   LCALL   WRTRD
        MOV     YG6,ZR
        LJMP    A0S1F
A0F8:   LCALL   WRTRD
        MOV     YG7,ZR
        LJMP    A0S1G
A0F9:   LCALL   WRTRD
        MOV     YG8,ZR
        LJMP    A0S1H
A0FA:   ;LCALL   WRTRD
        MOV     YG9,D0;;;;;;;;;;;;ZR
        LJMP    A0S1I
A0FB:   ;;;;;;;;LCALL   WRTRD
        ;;;;;;;;;;MOV     YGA,ZR
        LJMP    A0S1J

A0FC:   LCALL   WRTRD
;       MOV     YGL,ZR
	MOV	R0,#YGL
	MOV	@R0,ZR
	LJMP    A0S1K
A0FD:   LCALL   WRTRD
;       MOV     YGH,ZR
	MOV	R0,#YGH
	MOV	@R0,ZR
	LJMP    A0S1L
A0FE:   ;LCALL   WRTRD
;       MOV     YGE,ZR
;	MOV	R0,#YGE
;	MOV	@R0,ZR
	LJMP    A0S1M

A0FF:   LCALL   WRTRD
        MOV     YGM,ZR
        MOV     GP2,#14
	CLR	GP3

A0G1:   JNB     GP3,C0
	mov	r0,#time1
	mov	@r0,yg5
	LJMP    E0
;============================================================================故障代码及显示处理程序

C0:	nop
;----------------------------------------------------------------------------
B00:	mov	a,jssa;x0
	cjne	a,#00,b01;测试程序
	
	jb	gp5,kb00;;;;;;;;;;;

	clr	ou0.6
	lcall	out0
	
	djnz	jsss5,b000
	mov	jsss5,#250
	djnz	jsss5h,b000
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jp2.7,b000
	setb	gp5;;;;;;;;;;;;;;;;;;;;
	;;;;;;;;;;;;;;;;;;;mov	jssa,#01
	setb	ou0.6
	lcall	out0
	jmp	b000;;;;;;;;;;;

kb00:	djnz	jsss5,b000
	mov	jsss5,#250
	djnz	jsss5h,b000
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jp2.7,b000
	clr	gp5;;;;;;;;;;;;;;;;;;;;
	mov	jssa,#01
	
b000:	jmp	e0

b01:	mov	a,jssa;x1
	cjne	a,#01,b02

	jb	gp5,kb01;;;;;;;;;;;;;;;;;;;;

	clr	ou0.7
	lcall	out0
	
	djnz	jsss5,b010
	mov	jsss5,#250
	djnz	jsss5h,b010
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jp0.0,b010
	;;;;;;;;;;mov	jssa,#02
	setb	gp5;;;;;;;;;;;;;;;;;;
	setb	ou0.7
	lcall	out0
	jmp	b010

kb01:	djnz	jsss5,b010
	mov	jsss5,#250
	djnz	jsss5h,b010
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jp0.0,b010
	mov	jssa,#02
	clr	gp5;;;;;;;;;;;;;;;;;;
	
b010:	jmp	e0

b02:	mov	a,jssa;x2
	cjne	a,#02,b03

	jb	gp5,kb02;;;;;;;;;;;;;;;;

	clr	ou2.0
	lcall	out2
	
	djnz	jsss5,b020
	mov	jsss5,#250
	djnz	jsss5h,b020
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jp2.1,b020
	;;;;;;;;mov	jssa,#03
	setb	gp5;;;;;;;;;;;;;;;;;;
	setb	ou2.0
	lcall	out2
	jmp	b020

kb02:	djnz	jsss5,b020
	mov	jsss5,#250
	djnz	jsss5h,b020
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jp2.1,b020
	mov	jssa,#03
	clr	gp5;;;;;;;;;;;;;;;;;;

b020:	jmp	e0

b03:	mov	a,jssa;x3
	cjne	a,#03,b04

	jb	gp5,kb03;;;;;;;;;;;;;;;;;

	clr	ou2.1
	lcall	out2
	
	djnz	jsss5,b030
	mov	jsss5,#250
	djnz	jsss5h,b030
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jp0.6,b030
	;;;;;;mov	jssa,#04
	setb	gp5;;;;;;;;;;;;;;;;;;;
	setb	ou2.1
	lcall	out2
	jmp	b030

kb03:	djnz	jsss5,b030
	mov	jsss5,#250
	djnz	jsss5h,b030
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jp0.6,b030
	mov	jssa,#04
	clr	gp5;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

b030:	jmp	e0

b04:	mov	a,jssa;x4
	cjne	a,#04,b05

	jb	gp5,kb04;;;;;;;;;;;;;;;;;;;;;;;;

	clr	ou2.2
	lcall	out2
	
	djnz	jsss5,b040
	mov	jsss5,#250
	djnz	jsss5h,b040
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jp0.1,b040
	;;;;;;;;;mov	jssa,#05
	setb	gp5;;;;;;;;;;
	setb	ou2.2
	lcall	out2
	jmp	b040;;;;;;;;;;;;;;;;

kb04:	djnz	jsss5,b040
	mov	jsss5,#250
	djnz	jsss5h,b040
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jp0.1,b040
	mov	jssa,#05
	clr	gp5;;;;;;;;;;

b040:	jmp	e0

b05:	mov	a,jssa;x5
	cjne	a,#05,b06

	jb	gp5,kb05;;;;;;;;;;;;;;;;;;;;;

	clr	ou2.3
	lcall	out2
	
	djnz	jsss5,b050
	mov	jsss5,#250
	djnz	jsss5h,b050
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jp0.2,b050
	;;;;;;;;;;;mov	jssa,#06
	setb	gp5;;;;;;;;;;;;;;;;;
	setb	ou2.3
	lcall	out2
	jmp	b050;;;;;;;;

kb05:	djnz	jsss5,b050
	mov	jsss5,#250
	djnz	jsss5h,b050
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jp0.2,b050
	mov	jssa,#06
	clr	gp5;;;;;;;;;;;;;;;;;
	
b050:	jmp	e0

b06:	mov	a,jssa;x6
	cjne	a,#06,b07
	
	jb	gp5,kb06;;;;;;;;;;;;;;;;;;;;
	
	clr	ou2.4
	lcall	out2
	
	djnz	jsss5,b060
	mov	jsss5,#250
	djnz	jsss5h,b060
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jp0.5,b060
	;;;;;;;;;;;;mov	jssa,#07
	setb	gp5;;;;;;;;;;;;;;;;;;
	setb	ou2.4
	lcall	out2
	jmp	b060;;;;;;;;;;;;;

kb06:	djnz	jsss5,b060
	mov	jsss5,#250
	djnz	jsss5h,b060
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jp0.5,b060
	mov	jssa,#07
	clr	gp5;;;;;;;;;;;;;;;;;;

b060:	jmp	e0

b07:	mov	a,jssa;x7
	cjne	a,#07,b08

	jb	gp5,kb07;;;;;;;;;;;;;

	clr	ou2.5
	lcall	out2
	
	djnz	jsss5,b070
	mov	jsss5,#250
	djnz	jsss5h,b070
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jp2.2,b070
	;;;;;;;;;;;;;;;mov	jssa,#8
	setb	gp5;;;;;;;;;;;;;;;;;
	setb	ou2.5
	lcall	out2
	jmp	b070;;;;;;;;;;;;;;;;;

kb07:	djnz	jsss5,b070
	mov	jsss5,#250
	djnz	jsss5h,b070
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jp2.2,b070
	mov	jssa,#8
	clr	gp5;;;;;;;;;;;;;;;;;
	
b070:	jmp	e0

b08:	mov	a,jssa;x8
	cjne	a,#08,b09

	jb	gp5,kb08;;;;;;;;;;;;;;;;;;;;

	clr	ou2.6
	lcall	out2
	
	djnz	jsss5,b080
	mov	jsss5,#250
	djnz	jsss5h,b080
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jp0.3,b080
	;;;;;;;;mov	jssa,#9
	setb	gp5;;;;;;;;
	setb	ou2.6
	lcall	out2
	jmp	b080;;;;;;;;;;

kb08:	djnz	jsss5,b080
	mov	jsss5,#250
	djnz	jsss5h,b080
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jp0.3,b080
	mov	jssa,#9
	clr	gp5;;;;;;;;

b080:	jmp	e0

b09:	mov	a,jssa;x9
	cjne	a,#09,b10

	jb	gp5,kb09;;;;;;;;;;;;;;

	clr	ou2.7
	lcall	out2
	
	djnz	jsss5,b090
	mov	jsss5,#250
	djnz	jsss5h,b090
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jp2.4,b090
	;;;;;;;mov	jssa,#10
	setb	gp5;;;;;;;;;;;;
	setb	ou2.7
	lcall	out2
	jmp	b090;;;;;;;;

kb09:	djnz	jsss5,b090
	mov	jsss5,#250
	djnz	jsss5h,b090
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jp2.4,b090
	mov	jssa,#10
	clr	gp5;;;;;;;;;;;;
b090:	jmp	e0

b10:	mov	a,jssa;x10
	cjne	a,#10,b11

	jb	gp5,kb10;;;;;;;;;;;;;;;

	clr	ou0.6
	lcall	out0
	
	djnz	jsss5,b100
	mov	jsss5,#250
	djnz	jsss5h,b100
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jp2.3,b100
	;;;;;;;;;;;mov	jssa,#11
	setb	gp5;;;;;;;;;;;;;;;;;;;;;
	setb	ou0.6
	lcall	out0
	jmp	b100;;;;;;;;;;;;;;;;;;;


kb10:	djnz	jsss5,b100
	mov	jsss5,#250
	djnz	jsss5h,b100
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jp2.3,b100
	mov	jssa,#11
	clr	gp5;;;;;;;;;
b100:	jmp	e0

b11:	mov	a,jssa;x11
	cjne	a,#11,b12

	jb	gp5,kb11;;;;;;;;;;;;;;;;
	
	clr	ou0.7
	lcall	out0
	
	djnz	jsss5,b110
	mov	jsss5,#250
	djnz	jsss5h,b110
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jp0.4,b110
	;;;;;;;mov	jssa,#12
	setb	gp5;;;;;;;;;
	setb	ou0.7
	lcall	out0
	jmp	b110;;;;;;;;;;;;;;;


kb11:	djnz	jsss5,b110
	mov	jsss5,#250
	djnz	jsss5h,b110
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jp0.4,b110
	mov	jssa,#12
	clr	gp5;;;;;;;;;
b110:	jmp	e0

b12:	mov	a,jssa;x12
	cjne	a,#12,b13

	jb	gp5,kb12;;;;;;;;

	clr	ou2.0
	lcall	out2
	
	djnz	jsss5,b120
	mov	jsss5,#250
	djnz	jsss5h,b120
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jp0.7,b120
	;;;;;;;mov	jssa,#13
	setb	gp5;;;;;;;;;;;;;;;
	setb	ou2.0
	lcall	out2
	jmp	b120;;;;;;;

kb12:	djnz	jsss5,b120
	mov	jsss5,#250
	djnz	jsss5h,b120
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jp0.7,b120
	mov	jssa,#13
	clr	gp5;;;;;;;;;;;;;;;
b120:	jmp	e0

b13:	mov	a,jssa;x13
	cjne	a,#13,b14

	jb	gp5,kb13;;;;;;;;;;;;;;
	
	clr	ou2.1
	lcall	out2
	
	djnz	jsss5,b130
	mov	jsss5,#250
	djnz	jsss5h,b130
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jp2.5,b130
	;;;;;;;mov	jssa,#14
	setb	gp5;;;;;;;;;;;;;;;;
	setb	ou2.1
	lcall	out2
	jmp	b130;;;;;;;;;;;

kb13:	djnz	jsss5,b130
	mov	jsss5,#250
	djnz	jsss5h,b130
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jp2.5,b130
	mov	jssa,#14
	clr	gp5;;;;;;;;;;;;;;;;
	
b130:	jmp	e0

b14:	mov	a,jssa;x14
	cjne	a,#14,b15

	jb	gp5,kb14;;;;;;;;;;;;
	
	clr	ou2.2
	lcall	out2
	
	djnz	jsss5,b140
	mov	jsss5,#250
	djnz	jsss5h,b140
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jp2.6,b140
	;;;;;;;;mov	jssa,#15
	setb	gp5;;;;;;
	setb	ou2.2
	lcall	out2
	jmp	b140;;;;;

kb14:	djnz	jsss5,b140
	mov	jsss5,#250
	djnz	jsss5h,b140
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jp2.6,b140
	mov	jssa,#15
	clr	gp5
b140:	jmp	e0

b15:	mov	a,jssa;x15
	cjne	a,#15,b16

	jb	gp5,kb15;;;;;;;;;;;;;;;

	clr	ou2.3
	lcall	out2
	
	djnz	jsss5,b150
	mov	jsss5,#250
	djnz	jsss5h,b150
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jp2.0,b150
	;;;;;;;mov	jssa,#16
	setb	gp5;;;;;;;;;;;;;;;;
	setb	ou2.3
	lcall	out2
	jmp	b150;;;;;;

kb15:	djnz	jsss5,b150
	mov	jsss5,#250
	djnz	jsss5h,b150
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jp2.0,b150
	mov	jssa,#16
	clr	gp5;;;;;;;;;;;;;;;;
b150:	jmp	e0

b16:	mov	a,jssa;x16
	cjne	a,#16,b17

	jb	gp5,kb16;;;;;;;;;;;;;;;;;
	
	clr	ou2.4
	lcall	out2
	
	djnz	jsss5,b160
	mov	jsss5,#250
	djnz	jsss5h,b160
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jp1.0,b160
	;;;;;;mov	jssa,#17
	setb	gp5
	setb	ou2.4
	lcall	out2
	jmp	b160;;;;;;;

kb16:	djnz	jsss5,b160
	mov	jsss5,#250
	djnz	jsss5h,b160
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jp1.0,b160
	mov	jssa,#17
	clr	gp5

b160:	jmp	e0

b17:	mov	a,jssa;x17
	cjne	a,#17,b18

	jb	gp5,kb17;;;;;;;;;;;;;;;

	clr	ou2.5
	lcall	out2
	
	djnz	jsss5,b170
	mov	jsss5,#250
	djnz	jsss5h,b170
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jp1.1,b170
	;;;;;;;;;;;;;;mov	jssa,#18
	setb	gp5;;;;;;;;;;;;;;;;
	setb	ou2.5
	lcall	out2
	jmp	b170

kb17:	djnz	jsss5,b170
	mov	jsss5,#250
	djnz	jsss5h,b170
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jp1.1,b170
	mov	jssa,#18
	clr	gp5;;;;;;;;;;;;;;;;
	
b170:	jmp	e0

b18:	mov	a,jssa;x18
	cjne	a,#18,b19

	jb	gp5,kb18;;;;;;;;;;;;;;;;;;

	clr	ou2.6
	lcall	out2
	
	djnz	jsss5,b180
	mov	jsss5,#250
	djnz	jsss5h,b180
	mov	jsss5,#250
	mov	jsss5h,#2
	jnb	jp1.2,b180
	;;;;;;;;mov	jssa,#19
	setb	gp5;;;;;;;;;;;;;;;;;
	setb	ou2.6
	lcall	out2
	jmp	b180;;;;;;;;;;;;;;

kb18:	djnz	jsss5,b180
	mov	jsss5,#250
	djnz	jsss5h,b180
	mov	jsss5,#250
	mov	jsss5h,#2
	jb	jp1.2,b180
	mov	jssa,#19
	clr	gp5;;;;;;;;;;;;;;;;;

b180:	jmp	e0

b19:	mov	a,jssa;x19
	cjne	a,#19,b20

	jb	gp5,kb19;;;;;;;;;;;;;;;
	
	clr	ou2.7
	lcall	out2
	
	djnz	jsss5,b190
	mov	jsss5,#250
	djnz	jsss5h,b190
	mov	jsss5,#250
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -