【正文】 MOV A,XH5 SWAP A ORL A,XH6 MOV R4,ASDWG:MOV XHDH,0 ；序號單元初始化 MOV XHDL,0 MOV ZLJSH,JGCXH ；指令指針初始化 MOV ZLJSL,JGCXLSDW4: MOV A,R5 CJNE A,XHDH,SDW1 ；當(dāng)前序號不為0，轉(zhuǎn)SDW1 MOV A,R4 CJNE A,XHDL,SDW1 SETB XGB ；修改標(biāo)志置1 RETSDW1: MOV A,XHDL ；序號減1 ADD A,1 DA A ；十進(jìn)制調(diào)整 MOV XHDL,A JNC SDW2 INC XHDHSDW2: MOV DPH,ZLJSH ；取指令 MOV DPL,ZLJSL MOVX A,@DPTR ；取功能碼 SWAP A ANL A,0FH MOV DPTR,CDB ；查長度表 MOVC A,@A+DPTR ADD A,ZLJSL MOV ZLJSL,A ；指向下一條指令 JNC SDW3 INC ZLJSHSDW3: SJMP SDW4 RETCDB: DB 1,5,3,5DB 3,1,3,5DB 3,5,1,1DB 1,1,8,1RCL: MOV A,XH5 ；兩位處理 SWAP A ORL A,XH6RCL1: MOV DPH,ZLJSH ；取指令 MOV DPL,ZLJSL MOVX @DPTR,A INC DPTR ；指針加1 MOV ZLJSH,DPH MOV ZLJSL,DPL RETQY: LCALL SDDW ；調(diào)用搜“D”定位 JB SC,QY3 ；刪除標(biāo)志為1，轉(zhuǎn)QY3 CPL A ；差值求反加1 INC A MOV CZD, AQY3: MOV A,R7 ；目的地址初始化 DEC A ADD A,ZLJSL MOV R0,A MOV A,ZLJSH ADDC A,0 MOV P2,A MOV A,YCD ；原地址初始化 DEC A ADD A,ZLJSL MOV DPL,A MOV A,ZLJSH ADDC A,0 MOV DPH,AQY2: MOVX A,@DPTR ；原地址數(shù)據(jù)保存到目的地址 MOVX @R0,A INC DPTR ；原地址指針加1 INC R0 MOV A,R0 ；目的地址指針加1 JNZ QY1 INC P2QY1: MOV A,R5 ；判斷前移是否結(jié)束 CJNE A,DPL,QY2 MOV A,R6 CJNE A,DPH,QY2 MOVX A,@DPTR ；原地址數(shù)據(jù)保存到目的地址 MOVX @R0, A LCALL QL ；清零QY4: RETHY: LCALL SDDW ；搜“D”定位 MOV P2,R6 ；目的地址初始化 MOV R0,05H MOV A,R5 CLR C SUBB A,CZD MOV DPL,A ；原地址初始化 MOV A,R6 SUBB A,0 MOV DPH,AHY3: MOVX A,@DPTR ；取指令 MOVX @R0,A MOV A,DPL ；原地址減1 DEC DPL JNZ HY1 DEC DPHHY1: MOV A,R0 ；目的地址減1 DEC R0 JNZ HY2 DEC P2HY2: MOV A,ZLJSL ；原地址數(shù)據(jù)保存到目的地址 CJNE A,DPL,HY3 MOV A,ZLJSH CJNE A,DPH,HY3 MOVX A,@DPTR ；取指令 MOVX @R0, A LCALL QL ；清零 RETQL: MOV DPH,ZLJSH MOV DPL,ZLJSL DEC R7 ；現(xiàn)長減1 MOV A,R7 JZ QL1QL2: CLR A ；數(shù)據(jù)清零 MOVX @DPTR,A INC DPTR ；指針加1 DJNZ R7,QL2 ；判斷清0是否結(jié)束QL1: RETSDDW: MOV DPH,JGCXH ；取指令 MOV DPL,JGCXLSDDW3:MOVX A,@DPTR ANL A,0FH ；保留高四位 CJNE A,0DH,SDDW1 ； 不是“D”，轉(zhuǎn)SDDW4:MOV R6,DPH ；保存 MOV R5,DPL RETXXH: MOV XH2,20H ；顯示指令序號 MOV XH3,20H MOV XH4,XHDH MOV A,XHDL SWAP A ANL A,0FH ；保留高四位 MOV XH5,A MOV A,XHDL ANL A,0FH ；保留低四位 MOV XH6,A RETTXCSH:MOV TMOD,21H ；設(shè)置定時(shí)器T1工作方式3 MOV TH1,0E8H MOV TL1,0E8H MOV SCON,0D0H SETB TR1 ；啟動定時(shí)器T1 MOV R4,4 MOV DPH,JGCXH MOV DPL,JGCXL MOV IE,82H ；禁止中斷 MOV TH0,0 RETCCD: PUSH DPH ；保護(hù)原狀 PUSH DPL SWAP A ANL A,0FH ；保留高四位 MOV DPTR,CDB ；查長度表 MOVC A,@A+DPTR MOV R3,A POP DPL ；恢復(fù)原狀 POP DPH RETSDDW1:PUSH DPH ；保護(hù)現(xiàn)狀 PUSH DPL MOV DPTR,CDB ；查長度表 MOVC A,@A+DPTR POP DPL ；恢復(fù)原狀 POP DPH ADD A,DPL MOV DPL,A JNC SDDW2 INC DPHSDDW2:MOV A,DPH CJNE A,50H,SDDW3 ；可查找50次 SJMP SDDW4JGJ: JBC ,STA8 ；急停標(biāo)志為1，轉(zhuǎn)STA8 JBC ,STA7 ； MOV XJYH,0 ；記憶單元初始化 MOV XJYM,0 MOV XJYL,0 MOV YJYH,0 MOV YJYM,0 MOV YJYL,0 MOV ZLJSH, JGCXH ；指令指針初始化 MOV ZLJSL, JGCXL MOV XHDH,0FFH ；序號單元初始化 MOV XHDL,99HSTA: JB ,STA5 ；暫停標(biāo)志為1，轉(zhuǎn)STA5STA7: LCALL XHGX MOV DPH, ZLJSH MOV DPL, ZLJSL MOV R0, ZLC1 MOV R2, 8STA1: MOVX A, @DPTR MOV @R0, A INC DPTR INC R0 DJNZ R2, STA1 MOV A, ZLC1 ANL A, 0FH MOV GDS, A MOV A, ZLC1 SWAP A ANL A, 0FH MOV R2, A MOV DPTR, CDB ；查長度表 MOVC A, @A+DPTR ADD A, ZLJSL MOV ZLJSL, A JNC STA2 INC ZLJSHSTA2: MOV A, R2 RL A ADD A,R2 MOV DPTR, ZYBG1 JMP @A+DPTRSTA8: LCALL GCS1 CLR ；暫停標(biāo)志清零 RETSTA5: MOV XH1,2BH LCALL XXH LJMP JSAZYBG1:LJMP ZL0 ；空操作 LJMP ZL1 ；第三象限直線 LJMP ZL2 ；負(fù)Y軸快速 LJMP ZL3 ；第四象限直線 LJMP ZL4 ；負(fù)X軸快速 LJMP ZL5 ；回零 LJMP ZL6 ；正X軸快速 LJMP ZL7 ；第二象限直線 LJMP ZL8 ；正Y軸快速 LJMP ZL9 ；第一象限直線 LJMP ZLA ；延時(shí) LJMP ZLB ；選刀 LJMP ZLC ；收發(fā)信 LJMP ZLD ；結(jié)束 LJMP ZLE ；圓弧 LJMP ZLF ；暫停ZL0: LJMP STA ZL1: LCALL GCS LCALL LCS LCALL L3 LJMP STAZL2: LCALL GCS LCALL KSC LCALL KS4 LJMP STAZL3: LCALL GCS LCALL LCS LCALL L4 LJMP STAZL4: LCALL GCS LCALL KSC LCALL KS2 LJMP STAZL5: MOV A,GDS MOV GDS,0DH CJNE A,1,ZL51 LCALL XHL SJMP STA9ZL51: CJNE A,2,ZL52 LCALL YHL SJMP STA9ZL52: CJNE A,3,ZL53 LCALL XHL LCALL YHLZL54: SJMP STA9ZL53: CJNE A,4,ZL54 LCALL YHL LCALL XHLSTA9: JNB HLB,ZL55 LJMP GNJ6ZL55: LJMP STAZL6: LCALL GCS LCALL KSC LCALL KS1 LJMP STAZL7: LCALL GCS LCALL LCS LCALL L2 LJMP STAZL8: LCALL GCS LCALL KSC LCALL KS3 LJMP STAZL9: LCALL GCS LCALL LCS LCALL L1 LJMP STAZLA: MOV A, GDS JZ ZLA1YS3: MOV R3, 100YS2: MOV R2, 20YS1: DJNZ R2, YS1 DJNZ R3, YS2 DJNZ ACC, YS3ZLA1: LJMP STAZLB: LJMP STAZLC: MOV A,GDS ANL A,7 MOV DPTR,XZMB MOVC A,@A+DPTR MOV R2,A MOV A,GDS JNB ,ZLC01ZLC02: MOV DPTR,8000H MOVX A,@DPTR ANL A,R2 JNZ ZLC02 LJMP STAZLC01: MOV A,YXD XRL A,R2 MOV YXD,A MOV DPTR,9000H MOVX @DPTR,A LJMP STAXZMB: DB 1,2,4,8,10H,20H,40H,80HZLD: LJMP GNJ6ZLE: LCALL GCS LCALL RCS MOV A, ZLC2 DEC A RL A RL A MOV DPTR, RZYB JMP @A+DPTRZLF: LJMP STAXHL: LCALL GCS MOV JSH,XJYM MOV JSL,XJYL MOV A,XJYM JNB ,XHL1 XRL JSL,0FFH XRL JSH,0FFH INC JSL MOV A,JSL JNZ XHL2 INC JSHXHL2: LCALL KS1 RETXHL1: LCALL KS2 RETYHL: LCALL GCS MOV JSH,YJYM MOV JSL,YJYL MOV A,YJYM JNB ,YHL1 XRL JSL,0FFH XRL JSH,0FFH INC JSL MOV A,JSL JNZ YHL2 INC JSHYHL2: LCALL KS3 RETYHL1: LCALL KS4 RETGCS: MOV JFH, 0 ；公共初始化 MOV JFL, 0GCS1: MOV DQS,0