📄 victory3.lst
字号:
页 1
09-21-03
17:28:33
伟福汇编器 V5.00 Copyright (c) 1989, 2001 by CHY
地址 机器码 源程序
ORG 0000H
0000 02010C LJMP MAIN
ORG 0003H
0003 020030 LJMP MINE_BOMB
ORG 000BH
000B 020049 LJMP TIMER
ORG 0013H
0013 0200A6 LJMP HUOER
ORG 001BH
001B 0200D8 LJMP SPEED
;**************************************************
ORG 0030H
;**************************************************
MINE_BOMB:
0030 C0E0 PUSH A
0032 C0D0 PUSH PSW
0034 053A INC 3AH
0036 E540 MOV A,40H
0038 F53B MOV 3BH,A
003A E541 MOV A,41H
003C F53C MOV 3CH,A
003E C203 CLR 20H.3
0040 D2B4 SETB P3.4
0042 D2B5 SETB P3.5
0044 D0D0 POP PSW
0046 D0E0 POP A
0048 32 RETI
;**************************************************
TIMER:
0049 C0E0 PUSH A
004B C0D0 PUSH PSW
004D 758AF0 MOV TL0,#0F0H
0050 758CD8 MOV TH0,#0D8H
0053 0537 INC 37H
0055 E537 MOV A,37H
D:\YC\SONY_CUP\FINALLY\VICTORY3.ASM
页 2
09-21-03
17:28:33
伟福汇编器 V5.00 Copyright (c) 1989, 2001 by CHY
地址 机器码 源程序
0057 B46447 CJNE A,#100,TIMEREND
;is 1second
IS_HUN:
005A 753700 MOV 37H,#0
; IS C_MINE,STOP AND THAN XUAN
005D 20000C JB 20H.0,QI_LAI ;THIS TIME,THE CAR IS WAITTING IN THE END,
0060 1539 DEC 39H
0062 E539 MOV A,39H
0064 B4003A CJNE A,#0H,TIMEREND
0067 D200 SETB 20H.0
0069 0200A1 LJMP TIMEREND
QI_LAI:
006C 200112 JB 20H.1,WAKE_UP
006F 1538 DEC 38H
0071 B2B4 CPL P3.4
0073 E538 MOV A,38H
0075 B40009 CJNE A,#0H,WAKE_UP
0078 D201 SETB 20H.1
007A C2B4 CLR P3.4
007C D28E SETB TR1
007E 755A17 MOV 5AH,#23
WAKE_UP:
0081 0543 INC 43H
0083 E543 MOV A,43H
0085 B41E07 CJNE A,#30,GOGOGO_DOWN
0088 E542 MOV A,42H
008A 6003 JZ GOGOGO_DOWN
008C 020309 LJMP HOME
GOGOGO_DOWN:
008F E543 MOV A,43H
0091 B43C0D CJNE A,#60,TIMEREND
0094 754300 MOV 43H,#0
0097 0542 INC 42H
0099 E542 MOV A,42H
009B B43C03 CJNE A,#60,TIMEREND
009E 754200 MOV 42H,#0
TIMEREND:
00A1 D0D0 POP PSW
00A3 D0E0 POP A
00A5 32 RETI
D:\YC\SONY_CUP\FINALLY\VICTORY3.ASM
页 3
09-21-03
17:28:33
伟福汇编器 V5.00 Copyright (c) 1989, 2001 by CHY
地址 机器码 源程序
;**************************************************
HUOER:
00A6 C0E0 PUSH A
00A8 C0D0 PUSH PSW
00AA E53F MOV A,3FH
00AC C3 CLR C
00AD 2440 ADD A,#64 ;加上6.3毫米
00AF B46400 CJNE A,#100,CHECK_CM
CHECK_CM:
00B2 4006 JC ADD_CM
00B4 9464 SUBB A,#100 ;大于10个毫米了，要作调整
00B6 F53F MOV 3FH,A
00B8 0541 INC 41H
ADD_CM: ;厘米上要加2
00BA 0541 INC 41H
00BC 0541 INC 41H
00BE E541 MOV A,41H
00C0 B46400 CJNE A,#100,CHECK_M
CHECK_M:
00C3 400E JC HUOER_END
00C5 9464 SUBB A,#100 ;大于一米了，要调整一下
00C7 F541 MOV 41H,A
00C9 0540 INC 40H
;查看是否是两米了，是的话就算到了B区
00CB E540 MOV A,40H
00CD B40203 CJNE A,#2,HUOER_END
00D0 75360B MOV 36H,#0BH
HUOER_END:
00D3 D0D0 POP PSW
00D5 D0E0 POP A
00D7 32 RETI
;**************************************************
SPEED:
00D8 C0E0 PUSH A
00DA C0D0 PUSH PSW
00DC 758BB0 MOV TL1,#0B0H
00DF 758D3C MOV TH1,#03CH
00E2 055B INC 5BH
00E4 E55B MOV A,5BH
D:\YC\SONY_CUP\FINALLY\VICTORY3.ASM
页 4
09-21-03
17:28:33
伟福汇编器 V5.00 Copyright (c) 1989, 2001 by CHY
地址 机器码 源程序
00E6 B55A05 CJNE A,5AH,SPEED_NO_EQUAL ; 5A中放了速度值，比5A大，刚置为停，小则行
00E9 C2B0 CLR P3.0 ; 等于5A了，置为停
00EB 020107 LJMP SP_END
SPEED_NO_EQUAL: ; 不是5A
00EE 400B JC IS_GOGOGO ; 小于5A，则向前走
00F0 B4280D CJNE A,#40,SP_BIG_TOTAL ; 是不是比总脉冲值大
00F3 D2B0 SETB P3.0
00F5 755B00 MOV 5BH,#0H
00F8 020107 LJMP SP_END
IS_GOGOGO: ;是行，就置行
00FB D2B0 SETB P3.0
00FD 020107 LJMP SP_END
SP_BIG_TOTAL: ; 大于5A，不是40
0100 C2B0 CLR P3.0
0102 4003 JC SP_END ;比40小则是停，就不管
0104 755A00 MOV 5AH,#0H
SP_END:
0107 D0D0 POP PSW
0109 D0E0 POP A
010B 32 RETI
;**************************************************
;**************************************************
MAIN:
010C 75815F MOV SP,#5FH
010F 120126 LCALL INIT
; LJMP HOME;\\\\\\\\\
SIX_SECOND:
0112 20000B JB 20H.0,GO_MINE_ZEON
0115 7939 MOV R1,#39H
0117 12016E LCALL SETCODEALL
011A 120367 LCALL OUT
011D 020112 LJMP SIX_SECOND
GO_MINE_ZEON:
0120 D28E SETB TR1
0122 02017C LJMP MINE_WAY
0125 22 RET
;**************************************************
D:\YC\SONY_CUP\FINALLY\VICTORY3.ASM
页 5
09-21-03
17:28:33
伟福汇编器 V5.00 Copyright (c) 1989, 2001 by CHY
地址 机器码 源程序
;**************************************************
INIT:
0126 7936 MOV R1,#36H
0128 7A22 MOV R2,#34
INIT_LOOP:
012A 7700 MOV @R1,#0
012C 09 INC R1
012D DAFB DJNZ R2,INIT_LOOP
012F 752000 MOV 20H,#0H
0132 D201 SETB 20H.1
0134 D203 SETB 20H.3
0136 753906 MOV 39H,#6H ;倒计时654321
0139 753805 MOV 38H,#5H ;倒计时54321
013C 755A18 MOV 5AH,#24 ;用于车速控制
013F 75360A MOV 36H,#0AH
0142 75B00C MOV P3,#0CH
0145 75A000 MOV P2,#0H
INT_ZONE:
0148 12014C LCALL SET_INT
014B 22 RET
;**************************************************
SET_INT:
014C 758901 MOV TMOD,#01H
014F 758AF0 MOV TL0,#0F0H
0152 758CD8 MOV TH0,#0D8H
0155 758BB0 MOV TL1,#0B0H
0158 758D3C MOV TH1,#03CH
015B D28C SETB TR0
015D C28E CLR TR1
015F D2AF SETB EA
0161 D2A9 SETB ET0
0163 D2AB SETB ET1
0165 D2A8 SETB EX0
0167 D288 SETB IT0
0169 D2AA SETB EX1
016B D28A SETB IT1
D:\YC\SONY_CUP\FINALLY\VICTORY3.ASM
页 6
09-21-03
17:28:33
伟福汇编器 V5.00 Copyright (c) 1989, 2001 by CHY
地址 机器码 源程序
016D 22 RET
;**************************************************
SETCODEALL:;6543210
016E 7830 MOV R0,#30H
0170 7A06 MOV R2,#6
SETCODEALL_LOOP:
0172 E7 MOV A,@R1
0173 9003AF MOV DPTR,#TAB
0176 93 MOVC A,@A+DPTR
0177 F6 MOV @R0,A
0178 08 INC R0
0179 DAF7 DJNZ R2,SETCODEALL_LOOP
017B 22 RET
;**************************************************
;**************************************************
MINE_WAY:
017C 1201AA LCALL TRACK
017F 2003FA JB 20H.3,MINE_WAY
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -