Category

Development Platform
Home > SourceCode/Document > Other systems > View Code
engine.ASM
Package: engine.rar　[view]
Upload User: lxyy1103
Upload Date: 2014-12-03
Package Size: 13k
Code Size: 105k
Category:

Other systems

Development Platform:

Others

engine.ASM：Code Content
  1. ;======================================================================================================================================
  2. ;edit by geyuanqing 20051119
  3. ;==========================================================程序流程图=============================================================
  4. ;INT_PROGRAM :UART
  5. ;     :TIMER0 :>] :JUDGE_PY0 :>TABLE
  6. ; :JUDGE_PY1 :>TABLE
  7. ; :JUDGE_PY2 :>TABLE
  8. ; :JUDGE_PY3 :>TABLE
  9. ; :>JUDGE_PZ_JC
  10. ;中断服务程序中调用3级子程序嵌套，主程序至多有5级嵌套
  11. ;=====================================================================
  12. ;MAINLOOP：
  13. ; :>AD_SAMPLE
  14. ; :>SEND_AD_VALUE :>SEND_STATUS :>UART_SEND
  15. ; :>JUDGE_JC12V_PZ12V
  16. ; :>PROCESS_UART :>UART_RD_EEP :RD_EEP
  17. ; :>UART_WR_EEP :WR_EEP
  18. ;主程序中最多嵌套3级，所有子程序和中断调用没有问题
  19. include "headfile.h"
  20. ORG   0x000
  21.         NOP
  22.         NOP               
  23.         NOP
  24.         GOTO   START
  25.         GOTO   INT_PROG
  26. ;===================================================================================================================================
  27. ;==========================================================中断服务程序===============================================================
  28. ;===================================================================================================================================
  29. INT_PROG:
  30. ;保存W STATUS PC
  31.      MOVWF   WSAVE
  32.         SWAPF   STATUS,W
  33.         CLRF    STATUS
  34.         MOVWF   STATUSSAVE
  35.         MOVF    PCLATH,W
  36.         MOVWF   PCLATHSAVE
  37.         CLRF    PCLATH   
  38. MOVF FSR,W
  39. MOVWF FSRSAVE
  40.           
  41. ;检测串口中断
  42. BTFSS PIR1,RCIF
  43. GOTO  TMR0_PROG
  44. BTFSC RCSTA,FERR
  45. GOTO UART_ERR
  46. BTFSC RCSTA,OERR
  47. GOTO UART_ERR
  48. ;缓存串口数据，串口收数缓存在PAGE1中
  49. MOVF RCREG,W
  50. MOVWF UART_DATAA
  52. JUDGE_UART_COMMAND:
  53. XORWF OLD_COMMAND,0x0 ;判断是否和旧数据相同
  54. BTFSS STATUS,Z
  55. GOTO CLEAR_COMMAND_CNT
  57. INCFSZ COMMAND_CNT,0x1
  58. GOTO NORMAL_RECIEVE
  59. ;累加次数溢出，判断命令
  60. JUDGE_RD_DISEN:
  61. MOVLW 0xA0
  62. XORWF OLD_COMMAND,0
  63. BTFSS STATUS,Z
  64. GOTO JUDGE_RD_EN
  65. BCF REC_FLAG,RD_EN
  66. GOTO CLEAR_COMMAND_CNT
  67. JUDGE_RD_EN:
  68. MOVLW   0xA1
  69. XORWF OLD_COMMAND,0
  70. BTFSS STATUS,Z
  71. GOTO JUDGE_WR_DISEN
  72. BSF REC_FLAG,RD_EN
  73. GOTO CLEAR_COMMAND_CNT
  74. JUDGE_WR_DISEN:
  75. MOVLW 0xA2
  76. XORWF OLD_COMMAND,0
  77. BTFSS STATUS,Z
  78. GOTO JUDGE_WR_EN
  79. BCF REC_FLAG,WR_EN
  80. GOTO CLEAR_COMMAND_CNT
  81. JUDGE_WR_EN:
  82. MOVLW   0xA3
  83. XORWF OLD_COMMAND,0
  84. BTFSS STATUS,Z
  85. GOTO JUDGE_STUDY_DISEN
  86. BSF REC_FLAG,WR_EN
  87. GOTO CLEAR_COMMAND_CNT
  88. JUDGE_STUDY_DISEN:
  89. MOVLW 0xA4
  90. XORWF OLD_COMMAND,0
  91. BTFSS STATUS,Z
  92. GOTO JUDGE_STUDY_EN
  93. BCF REC_FLAG,STUDY_ENABLE
  94. GOTO CLEAR_COMMAND_CNT
  95. JUDGE_STUDY_EN:
  96. MOVLW   0xA5
  97. XORWF OLD_COMMAND,0
  98. BTFSS STATUS,Z
  99. GOTO CLEAR_COMMAND_CNT
  100. BSF REC_FLAG,STUDY_ENABLE
  101. CLEAR_COMMAND_CNT:
  102. MOVLW 0xC0
  103. MOVWF COMMAND_CNT
  104. MOVF UART_DATAA,W
  105. MOVWF OLD_COMMAND
  107. NORMAL_RECIEVE:
  108. SWAPF UART_DATAA,0x0
  109. ANDLW 0xF
  110. ADDLW UART_DATA_ADDR
  111. MOVWF FSR
  112. MOVF UART_DATAA,W
  113. MOVWF INDF
  114. GOTO TMR0_PROG
  115. UART_ERR:
  116. CALL  PAGE0
  117. BCF RCSTA,FERR
  118. BCF RCSTA,OERR
  119. CALL INI_COM
  120. CALL  PAGE0
  122. TMR0_PROG:
  123. CLRWDT
  125.         BTFSS   INTCON,TMR0IF
  126. GOTO INT_RECOVER
  127. ;MOVLW   0x9C      ;定时器0中断，0.1mS,溢出中断，并赋初值(0xA5)
  128. ;MOVLW 0x38
  129. MOVLW 0x07
  130.         MOVWF   TMR0
  131.         CALL    PJ_TIMING ;检测喷嘴输入
  133.         DECFSZ  TMR0A,0x1 ;定时器A 25mS
  134.         GOTO  TMR0_OVER
  135.         MOVLW   0xFA
  136.         MOVWF   TMR0A
  137.         ;BSF     TIMER_IF,SMP_EN
  139.         DECFSZ  TMR0B,0x1  ;定时器B 100mS
  140.         GOTO  TMR0_OVER   
  141.         MOVLW   0x10;0x4         
  142.         MOVWF   TMR0B
  143.         BSF     TIMER_IF,SMP_EN 
  144.         BSF     TIMER_IF,STATUS_SEN
  146.         DECFSZ  TMR0C,0x1   ;定时器C 1S
  147.         GOTO  TMR0_OVER
  148.         MOVLW   0x10                       
  149.         MOVWF   TMR0C    
  150.         ;BSF     TIMER_IF,SMP_EN                        
  151.         ;BSF     TIMER_IF,STATUS_SEN
  152. TMR0_OVER:
  153.         BCF     INTCON,TMR0IF
  154. INT_RECOVER: 
  155. MOVF FSRSAVE,W ;恢复中断前状态
  156. MOVWF FSR
  157.         BCF     INTCON,RBIF
  158.         MOVF    PCLATHSAVE,W
  159.         MOVWF   PCLATH
  160.         SWAPF   STATUSSAVE,W            
  161.         MOVWF   STATUS           
  162.         SWAPF   WSAVE,0x1                    
  163.         SWAPF   WSAVE,W             
  164.         RETFIE  
  165. ;===================================================================================================================================
  166. ;===============================================================主程序===============================================================
  167. ;===================================================================================================================================
  168. START:           
  169.         CLRF    STATUS
  170.         CLRF    PCLATH
  171.         CALL    INI_DATA_REG 
  172. CALL INI_COM
  173.         CALL    INI_CNTL_REG
  174.         CALL    INI_LED                                
  175.         BSF     INTCON,GIE   
  176. ;主程序循环，完成传感器采集，状态发送，并检测控制输入，处理串口数据
  177. MAIN_LOOP:  
  178. CLRWDT 
  179. ;传感器采集
  180.         CALL    AD_SAMPLE
  181. CLRWDT
  182. ;发送状态          
  183. CALL PAGE0
  184.       CALL    SEND_AD_VALUE      
  185. ;检测输入控制
  186. CLRWDT
  187.         CALL    JUDGE_PZ12VBIT_JC12V               
  188. ;处理串口数据
  189. CALL PAGE0
  190. CLRWDT
  191. CALL SAVE_JYMK
  192. CLRWDT
  193. CALL PAGE0
  194.       CALL PROCESS_UART
  195. CALL PAGE0
  196.         GOTO    MAIN_LOOP
  197. ;===================================================================================================================================
  198. ;==================================================初始LED显示，加电 灭 亮===========================================================
  199. ;===================================================================================================================================
  200. INI_LED:
  201.         BCF     PORTC,LED                   
  202.         CALL    DELAY1
  203.         CLRWDT    
  204.         BSF     PORTC,LED                 
  205.         CALL    DELAY1                
  206.         CLRWDT                                              
  207.         BCF     PORTC,LED                      
  208. RETURN
  210. DELAY1: MOVLW   0xFE                  
  211.         CALL    DELAY2                 
  212.         MOVLW   0xFE                  
  213.         CALL    DELAY2                 
  214.         MOVLW   0xFE                  
  215.         CALL    DELAY2                 
  216.         RETURN               
  217. DELAY2:
  218. MOVWF   DELAY2_REGA                        
  219.         CLRF    DELAY2_REGB                        
  220. DELAY2_LOOP1:
  221.         CLRWDT                             
  222.         DECFSZ  DELAY2_REGB,0x1                   
  223.         GOTO    DELAY2_LOOP1                 
  224.         NOP                                
  225.         DECFSZ  DELAY2_REGA,0x1                 
  226.         GOTO    DELAY2_LOOP1              
  227. RETURN
  228. ;===================================================================================================================================
  229. ;================================================初始化数据寄存器=====================================================================
  230. ;===================================================================================================================================
  231. INI_DATA_REG:
  232.         CLRWDT
  233. CLRF    TIMER_IF       
  234.         CLRF    PZREG
  235.         MOVLW   0x1                
  236.         MOVWF   ZKYL                    
  237.         MOVWF   RQYL                   
  238.         MOVWF   QYCG                      
  239.         MOVWF   HYCG   
  240.         MOVWF   PQYC    
  241. MOVWF PYMK   
  242.         CLRF   JCREG      
  243. CLRF UART_DATA8
  244. CLRF UART_DATA9
  245. CLRF UART_DATAA
  246. CLRF UART_DATAB
  247. CLRF UART_DATAC
  248. CLRF UART_DATAD
  249. CLRF UART_DATAE
  250. CLRF UART_DATAF
  252. CLRF    PQREG        
  253.         CLRF   PORTB                                                           
  254.         CLRF    TIMER_IF   
  255. CLRF PY_PERIOD     
  256. CALL PAGE1
  257. MOVLW 0xB0
  258. MOVWF FSR
  259. MOVLW 0x40
  260. MOVWF JYMK_CNT
  261. CLEAR_FLAG_LOOP:
  262. CLRF INDF
  263. INCF FSR
  264. DECFSZ  JYMK_CNT,0x01
  265. GOTO CLEAR_FLAG_LOOP
  266. CALL PAGE0             
  267.         RETURN    
  268. ;====================================================================================================================================
  269. ;================================================初始化控制寄存器======================================================================
  270. ;====================================================================================================================================
  271. INI_CNTL_REG:            
  272. ;页面1
  273. CALL PAGE1
  274. ;定时器0：内部指令周期时钟Fosc/4，下降沿触发，有预分频 1/4，以Fosc/8=8MHz/8=1MHz计数
  275.         BCF    OPTION_REG,T0CS  ;inner instruction cycle     
  276.         BCF     OPTION_REG,INTEDG   ;falling edlge conversion
  277.         BCF     OPTION_REG,PSA      ;rescaler is assigned to the Timer0 module
  278.         BCF     OPTION_REG,PS2  ;Fcommandcycle/2
  279.         BCF     OPTION_REG,PS1   
  280.         BCF     OPTION_REG,PS0        
  281. ;BSF OPTION_REG,PS0        
  282.      ;初始PORTA[3：0]为输入引脚，为四路A/D输入
  283.         BSF     TRISA,0x0 ;真空压力输入
  284.         BSF     TRISA,0x1    ;燃气压力输入          
  285.         BSF     TRISA,0x2    ;前氧传感器输入                
  286.         BSF     TRISA,0x3    ;后氧传感器出入                         
  287.         BSF     TRISA,KEYIN ;钥匙12V电压输入
  288.         BSF     TRISA,PZ12VIN ;喷嘴12V电压输入
  289.         ;初始化PORTB
  290.         BCF     TRISB,PQ3
  291.         BCF     TRISB,PQ2  
  292.         BCF     TRISB,PQ1                           
  293.         BCF     TRISB,PQ0     
  294. BSF TRISB,PZ0IN
  295. BSF TRISB,PZ1IN
  296. BSF TRISB,PZ2IN
  297. BSF TRISB,PZ3IN
  299. ;初始化PORTC
  300.         BSF     TRISC,RXD                 
  301.         ;BSF     TRISC,TXD     
  302. BCF TRISC,TXD
  303. BSF TRISC,PZ4IN
  304. BSF TRISC,PZ5IN
  305. ; BCF TRISC,PQ4  
  306. BCF     TRISC,LED
  307. BSF TRISC,QF12VIN
  308. BSF TRISC,JC12VIN
  310. BSF PIE1,RCIE  
  312. CALL  PAGE0
  313.         CLRF    INTCON          ;禁止所有中断
  314.         CLRF    PIR1                       
  315.         CLRF    PIR1            ;清除外设中断标志两次
  316.         
  317.         MOVLW   0xA5           ;计数器初始值是0xA5              
  318.         MOVWF   TMR0            ;90个指令周期发生一次定时器中断
  319.     
  320.         MOVLW   0xFA           ;R[32]一级中断计数器，0xFA*90个指令周期中断一次
  321.         MOVWF   TMR0A           ;R[32]=0xFA  
  322.             
  323.         MOVLW   0x4           ;R[33]2级中断计数器，0x04*0xFA*90个指令周期中断一次              
  324.         MOVWF   TMR0B           ;R[33]=0x04 
  325.              
  326.         MOVLW   0x8            ;R[34]3级中断计数器，0x08*0x04*0xFA*90个指令周期中断一次              
  327.         MOVWF   TMR0C           ;R[34]=0x08
  328.  
  329. CLRF REC_FLAG
  330.         BSF     ADCON0,ADCS1                
  331.         BSF     ADCON0,ADCS0    ;AD采样时钟是内部RC振荡器  
  333.         BSF     INTCON,TMR0IE   ;使能TIMER0中断    
  334. BSF INTCON,PEIE 
  335.         BSF     INTCON,GIE      ;打开所有中断   
  337. CALL  PAGE0           
  338.         RETURN                    
  340. ;===================================================================================================================================
  341. ;================定时发送 真空压力,燃气压力,前氧传感,后氧传感,喷油脉宽,喷气延迟,喷油周期状态=====================================================
  342. ;===================================================================================================================================
  343. SEND_AD_VALUE:
  344. ;检测是否状态发送使能
  345. BTFSS  TIMER_IF,STATUS_SEN                 
  346. RETURN
  347. CLRWDT 
  348.         BCF    TIMER_IF,STATUS_SEN
  349.         
  350.         ;送当前状态
  351.         MOVLW 0x0F
  352.         ANDWF REC_FLAG,0
  353.         IORLW 0xA0
  354. CALL UART_SEND
  355.         
  356. BTFSS REC_FLAG,RD_EN
  357. RETURN
  361.     ;发送真空压力
  362. MOVLW AD_ADDR ;调入状态首地址
  363. MOVWF FSR ;到文件选择寄存器
  364. MOVLW 0x80 ;加载状态地址头
  365. MOVWF CNT ; 到计数器
  366. STATUS_LOOP:
  367. CLRWDT
  369. MOVF INDF,W ;真空压力
  370. ANDLW 0x0F
  371. IORLW 0x60
  372. CALL UART_SEND
  374. SWAPF INDF,0x0
  375. ANDLW 0x0F
  376. IORLW 0x70
  377. CALL UART_SEND
  379. MOVF CNT,W
  380. CALL UART_SEND
  382. INCF CNT,0x1
  383. INCF FSR,0x1
  384. MOVF CNT,W
  385. XORLW 0x8E
  386. BTFSS STATUS,Z
  387. GOTO STATUS_LOOP
  388. RETURN
  389. ;===================================================================================================================================
  390. ;=============================================================串口处理程序============================================================
  391. ;======表格读命令================================================================
  392. ; 0 0 AD7 AD6 x x x x
  393. ; 0 1 AD5 AD4 AD3 AD2 AD1 AD0
  394. ;======表格写命令================================================================
  395. ; 0 0 AD7 AD6 DATA7 DATA6 DATA5 DATA4
  396. ; 1 0 AD5 AD4 AD3 AD2 AD1 AD0
  397. ; 1 1 x x DATA3 DATA2 DATA1 DATA0
  398. ;======表格回送字================================================================
  399. ; 0 0 AD7 AD6 DATA7 DATA6 DATA5 DATA4
  400. ; 0 1 AD5 AD4 AD3 AD2 AD1 AD0
  401. ; 1 1 0 0 DATA3 DATA2 DATA1 DATA0
  402. ;===================================================================================================================================
  403. PROCESS_UART:
  404. ;计算标志位
  405. MOVF UART_DATA9,w
  406. XORLW 0x91
  407. BTFSS STATUS,Z
  408. GOTO JUDGE_UART_WRITE_EEP
  410. BTFSS REC_FLAG,RD_EN
  411. RETURN
  412. UART_READ_EEP:
  413. MOVLW 0xF0 ;写命令无效
  414. MOVWF UART_DATA9
  416. MOVF UART_DATA0,W ;EEP地址低四位
  417. ANDLW 0x0F
  418. CALL PAGE2
  419. MOVWF EEADR
  421. CALL PAGE0
  422. SWAPF UART_DATA1,0x0 ;EEP地址高四位
  423. ANDLW 0xF0
  424. CALL PAGE2
  425. IORWF EEADR,0x1
  427. CALL PAGE0
  428. MOVF UART_DATA2,W ;EEP地址最高四位
  429. ANDLW 0x0F
  430. CALL PAGE2
  431. MOVWF EEADRH
  433. ; BCF     INTCON,GIE  ;关中断
  435. BSF  STATUS, RP0  ;读取EEP数据
  436. BSF  EECON1, EEPGD 
  437. BSF  EECON1, RD
  438. NOP
  439. NOP 
  440. BCF  STATUS, RP0 ;
  441. ; BSF INTCON,GIE ;开中断
  443. MOVF EEDATA,W
  444. ANDLW 0x0F
  445. IORLW 0x30
  446. CALL PAGE0
  447. CALL  UART_SEND
  449. CALL PAGE2
  450. SWAPF EEDATA,0x0
  451. ANDLW 0x0F
  452. IORLW 0x40
  453. CALL PAGE0
  454. CALL UART_SEND
  456. MOVLW 0x91
  457. CALL UART_SEND
  459. RETURN
  460. ;=============================================================
  461. ;=============================写串口数据到EEP===================
  462. ;=============================================================
  463. JUDGE_UART_WRITE_EEP:
  464. MOVF UART_DATA9,w
  465. XORLW 0x92
  466. BTFSS STATUS,Z
  467. RETURN
  468. MOVLW 0x90
  469. MOVWF UART_DATA9
  470. UART_WR_EEP:
  471. CLRWDT
  472. BTFSS REC_FLAG,WR_EN ;判断写使能
  473. GOTO UART_WR_OVER
  475. CALL PAGE2
  476. MOVF UART_DATA0,W ;EEP地址低四位
  477. ANDLW 0x0F
  478. MOVWF EEP_ADDRL
  481. SWAPF UART_DATA1,0x0 ;EEP地址高四位
  482. ANDLW 0xF0
  483. IORWF EEP_ADDRL,0x1
  485. MOVF EEP_ADDRL,W
  486. ANDLW 0xFC
  487. MOVWF EEADR
  488. MOVF UART_DATA2,W ;EEP地址最高四位
  489. ANDLW 0x0F
  490. MOVWF EEP_ADDRH
  491. MOVWF EEADRH
  494. MOVF UART_DATA3,W
  495. ANDLW 0xF
  496. MOVWF EEP_DATAL
  498. SWAPF UART_DATA4,W
  499. ANDLW 0xF0
  500. IORWF EEP_DATAL,0x1
  503. MOVLW EEP_DATAH0 ;保存数据保存地址
  504. MOVWF FSR
  506. CLRF EEP_NUMBER
  507. ;读出8个数据到EEP_DATAH0---EEP_DATAL3
  508. READ_EEP_LOOP:
  509. ;读EEPROM
  510. BSF  STATUS, RP0  ;读EEPROM
  511. BSF  EECON1, EEPGD 
  512. BSF  EECON1, RD
  513. NOP
  514. NOP
  515. BCF  STATUS, RP0
  516. ;保存数据
  517. MOVF  EEDATH, W 
  518. MOVWF  INDF ;保存EEP高8位
  519. INCF FSR,0x1
  520. MOVF  EEDATA, W 
  521. MOVWF  INDF ;保存EEP低8位
  522. INCF FSR,0x1
  523. ;地址递增
  524. INCF EEADR,0x1 ;EEP地址+1
  525. INCF EEP_NUMBER,0x1 ;EEP读计数器+1
  526. ;循环判断
  527. BTFSS EEP_NUMBER,0x2 ;是否读了四个数据
  528. GOTO READ_EEP_LOOP
  529. FRESH_EEP_DATA:
  530. ;更新EEP_DATAL
  531. RLF EEP_ADDRL,0x0
  532. ANDLW 0x6
  533. ADDLW EEP_DATAL0
  535. MOVWF FSR ; =>FSR
  536. MOVF EEP_DATAL,W ;EEP_DATA
  537. MOVWF INDF ; =>[EEP_ADDR+EEP_ADDR[1:0]]
  539. ;写循环准备
  540. MOVLW EEP_DATAH0
  541. MOVWF FSR ;间接寻址EEP_DATA
  543. MOVF EEP_ADDRL,W ;ADDRH，ADDRL为首地址
  544. ANDLW 0xFC
  545. MOVWF EEADR ;调入低8位地址的4偶地址
  547. MOVF EEP_ADDRH,W
  548. MOVWF EEADRH ;调入高8位地址
  549. CLRF EEP_NUMBER ;写入数据计数清零
  550. BCF INTCON,GIE
  551. WRITE_EEP_LOOP:
  552. CLRWDT
  553. ;调入数据
  554. ;MOVLW 0x34
  555.   MOVF  INDF,W 
  556. MOVWF  EEDATH ;存入数据高字节
  557. INCF FSR,0x1  
  558. MOVF  INDF,W 
  559. MOVWF  EEDATA ;存入数据低字节
  560. INCF FSR,0x1
  561. ;保存数据到EEPROM
  562. BSF  STATUS,RP0 
  563. BSF  EECON1,EEPGD 
  564. BSF  EECON1,WREN
  566. MOVLW  0x55 
  567. MOVWF  EECON2 
  568. MOVLW  0xaa
  569. MOVWF  EECON2
  570. BSF  EECON1,WR
  571. NOP
  572. NOP 
  573. BCF  EECON1,WREN 
  574. BCF  STATUS,RP0
  576. ;地址递增
  577. INCF EEP_NUMBER,0x1
  578. INCF EEADR,0x1
  579. BTFSS EEP_NUMBER,0x2
  580. GOTO WRITE_EEP_LOOP
  581. BSF INTCON,GIE
  582. UART_WR_EXIT:
  583. CALL PAGE0
  584. MOVLW 0x92
  585. CALL UART_SEND
  586. UART_WR_OVER:
  587. RETURN
  588. ;===========================
  589. UART_SEND:
  590. BCF STATUS,RP0
  591. BCF STATUS,RP1
  592. UART_WAIT:
  593. CLRWDT
  594. BTFSS PIR1,TXIF
  595. GOTO  UART_WAIT
  596.   MOVWF TXREG
  597.   RETURN
  598. ;========================================================
  599. ;喷嘴处理
  600. ;========================================================
  601. PJ_TIMING:
  602. ;GOTO EXE_PZ1
  603. ;===================================处理喷嘴0===================================
  604. EXE_PZ0:
  605.   CLRWDT
  606. INCFSZ PZ0_PRIODA,0x1                 
  607. GOTO  JUDGE_PZ0
  609. INCFSZ PZ0_PRIODB,0x1
  610. GOTO JUDGE_PZ0
  611. MOVLW 0xFF
  612. MOVWF PZ0_PRIODB
  613. JUDGE_PZ0:
  614. BTFSC   PORTB,PZ0IN      ;判断喷嘴0输入是否有效
  615. GOTO PZ0_HIGH
  616. PZ0_LOW:
  618. BTFSS   PORTC,JC12VIN      
  619.         GOTO    PZ0_JC12V_OK                    
  620.         GOTO    PZ0_NO_JC12V
  621. PZ0_JC12V_OK:
  622. BSF PQREG,PQ0
  623. GOTO SET_PZ0             
  624. PZ0_NO_JC12V:
  625. BCF PQREG,PQ0
  626. SET_PZ0:
  627. MOVF PQREG,W
  628. MOVWF PORTB
  629. MEASURE_PZ0_PYMK:
  630.         BSF     PZ0_FLAG,PQYC_LOAD_EN ;喷气延迟加载使能
  631.         BCF     PZ0_FLAG,PQYC_DELAY_EN ;清除喷气延迟使能
  632.         INCFSZ  PZ0_PYMK,0x1  ;喷油脉宽计数器累加
  633.         GOTO  EXE_PZ0_OVER
  634.         MOVLW   0xFF                   ;喷油计数器累加为0，
  635.         MOVWF   PZ0_PYMK
  636. GOTO EXE_PZ0_OVER
  637. PZ0_HIGH:          
  638.         BTFSS   PZ0_FLAG,PQYC_LOAD_EN  ;判断喷气延迟加载使能
  639. GOTO EXE_PZ0_PQYC ;PQYC_LOAD_EN=0，已经读取喷气延迟,执行喷气延迟
  640.         BCF     PZ0_FLAG,PQYC_LOAD_EN
  642. JUDGE_PZ0_STUDY_EN:
  643. BTFSC REC_FLAG,STUDY_ENABLE ;判断是否学习使能
  644. GOTO CAL_PZ0_REC_PYMK
  645. MOVLW 0x08
  646. MOVWF REC_CNT
  647. CLRF REC_PYMKA
  648. CLRF REC_PYMKB
  649. CLRF REC_PYMKC
  650. BCF REC_FLAG,REC_BUSY
  651. GOTO GET_PZ0_PERIOD_ADDR
  653. CAL_PZ0_REC_PYMK:
  654. BTFSC REC_FLAG,REC_BUSY
  655. GOTO GET_PZ0_PERIOD_ADDR
  656. ACUMULATE_PZ0_REC_PYMK:
  657. CLRF STATUS
  658. MOVF PZ0_PYMK,W
  659. ADDWF REC_PYMKA,0x1
  660. BTFSC STATUS,C
  661. INCFSZ REC_PYMKB,0x1
  662. GOTO CAL_PZ0_CNT
  663. MOVLW 0xFF
  664. MOVWF REC_PYMKB
  665. CAL_PZ0_CNT:
  666. DECFSZ REC_CNT,0x01
  667. GOTO GET_PZ0_PERIOD_ADDR
  668. SET_PZ0_REC_PYMK_BUSY:
  669. BSF REC_FLAG,REC_BUSY ;设置忙标志，等待主程序写入EEPROM
  671. RRF REC_PYMKA,1
  672. RRF REC_PYMKA,1
  673. RRF REC_PYMKA,0
  674. ANDLW 0x1F
  675. MOVWF REC_PYMKC
  677. RLF REC_PYMKB,1
  678. SWAPF REC_PYMKB,0
  679. ANDLW 0xE0
  680. IORWF REC_PYMKC,1
  681. REC_PZ0_INI:
  682. CLRF REC_PYMKA
  683. CLRF REC_PYMKB
  684. REC_PZ0_PYMK_OVER:
  685. MOVLW 0x08
  686. MOVWF REC_CNT
  688. GET_PZ0_PERIOD_ADDR:
  689. MOVF PZ0_PRIODA,W
  690. MOVWF PY_PERIOD
  691. MOVF PZ0_PRIODB,W
  692. MOVWF PY_PERIOD1
  694. RRF PZ0_PRIODA,0x1
  695. RRF PZ0_PRIODA,0x1
  696. RRF PZ0_PRIODA,0x0 ;右移三位
  697. ANDLW 0x1F
  698. MOVWF PERIOD_ADDR ;得到周期低5位
  699. CLRF PZ0_PRIODA
  701. MOVF PZ0_PRIODB,W ;判断是否溢出
  702. SUBLW 0x07
  703. BTFSS STATUS,C
  704. GOTO PZ0_OVFL                       
  705.  
  706. RLF PZ0_PRIODB,0x1
  707. SWAPF PZ0_PRIODB,0x0
  708. ANDLW 0xE0
  709. IORWF PERIOD_ADDR,0x1 ;得到周期高3位
  711. MOVF PERIOD_ADDR,W ;判断是否>0xFD
  712. SUBLW 0xFD
  713. BTFSC STATUS,C
  714. GOTO GET_PZ0_SPEED_LEVEL
  715. PZ0_OVFL:
  716. MOVLW  0xFD
  717. MOVWF PERIOD_ADDR
  719. GET_PZ0_SPEED_LEVEL:
  720. CLRF PZ0_PRIODB
  721.         MOVLW   0xA
  722.         MOVWF   PCLATH
  723.         CALL    0xA00  ;取出喷气延迟
  724.         CLRF    PCLATH
  725. MOVWF SPEED_LEVEL
  727. LOAD_PZ0_PQYC:
  728. BSF PZ0_FLAG,PQYC_DELAY_EN ;使能喷气延迟
  729.         MOVF    PZ0_PYMK,W    ;取出喷油脉宽值
  730.         MOVWF   PYMK         ;存储喷油脉宽值到PZTIME，由串口送出
  731.         MOVWF OLD_PZ0_PYMK
  732. CLRF PZ0_PYMK
  734. JUDGE_PZ0_PYMK_OVFL:
  735. MOVF PYMK,W
  736. SUBLW 0xFD
  737. BTFSC STATUS,C
  738. GOTO GET_PZ0_PYMK_LEVEL
  739. MOVLW 0xFD
  740. MOVWF PYMK
  741. GET_PZ0_PYMK_LEVEL:
  742. MOVLW 0xB
  743. MOVWF PCLATH
  744. CALL 0xB00
  745. CLRF PCLATH
  746. MOVWF PYMK_LEVEL
  747. GET_PZ0_PQYC:
  748. CALL GET_PZ_PQYC
  749. CLRF PCLATH
  750.         MOVWF   PQYC      ;保存喷气延迟到PQYC，有串口送出
  751. MOVWF PZ0_PQYC ;喷气延迟保存到延迟寄存器
  752. EXE_PZ0_PQYC:
  753. BTFSS PZ0_FLAG,PQYC_DELAY_EN ;判断喷气延迟使能
  754. GOTO EXE_PZ0_OVER
  755. DECFSZ PZ0_PQYC,0x1
  756. GOTO EXE_PZ0_OVER
  757. BCF PZ0_FLAG,PQYC_DELAY_EN
  758. BCF PQREG,PQ0
  759. MOVF PQREG,W
  760. MOVWF PORTB
  761. EXE_PZ0_OVER:
  762. ;RETURN
  764. ;===================================处理喷嘴1===================================
  765. EXE_PZ1:
  766. CLRWDT
  767. INCFSZ PZ1_PRIODA,0x1                 
  768. GOTO  JUDGE_PZ1
  770. INCFSZ PZ1_PRIODB,0x1
  771. GOTO JUDGE_PZ1
  772. MOVLW 0xFF
  773. MOVWF PZ1_PRIODB
  774. JUDGE_PZ1:
  775. BTFSC   PORTB,PZ1IN      ;判断喷嘴0输入是否有效
  776. GOTO PZ1_HIGH
  777. PZ1_LOW:
  778. BTFSS   PORTC,JC12VIN      
  779.         GOTO    PZ1_JC12V_OK                    
  780.         GOTO    PZ1_NO_JC12V
  781. PZ1_JC12V_OK:
  782. BSF PQREG,PQ1
  783. GOTO SET_PZ1             
  784. PZ1_NO_JC12V:
  785. BCF PQREG,PQ1
  786. SET_PZ1:
  788. MOVF PQREG,W
  789. MOVWF PORTB
  790. MEASURE_PZ1_PYMK:
  791.         BSF     PZ1_FLAG,PQYC_LOAD_EN ;喷气延迟加载使能
  792.         BCF     PZ1_FLAG,PQYC_DELAY_EN ;清除喷气延迟使能
  793.         INCFSZ  PZ1_PYMK,0x1  ;喷油脉宽计数器累加
  794.         GOTO  EXE_PZ1_OVER
  795.         MOVLW   0xFF                   ;喷油计数器累加为0，
  796.         MOVWF   PZ1_PYMK
  797. GOTO EXE_PZ1_OVER
  799. PZ1_HIGH:           
  800.         BTFSS   PZ1_FLAG,PQYC_LOAD_EN  ;判断喷气延迟加载使能
  801. GOTO EXE_PZ1_PQYC ;PQYC_LOAD_EN=0，已经读取喷气延迟,执行喷气延迟
  802. GET_PZ1_PERIOD_ADDR:
  803.         BCF     PZ1_FLAG,PQYC_LOAD_EN
  804. MOVF PZ1_PRIODA,W
  805. MOVWF PY_PERIOD
  806. MOVF PZ1_PRIODB,W
  807. MOVWF PY_PERIOD1
  809. RRF PZ1_PRIODA,0x1
  810. RRF PZ1_PRIODA,0x1
  811. RRF PZ1_PRIODA,0x0 ;右移三位
  812. ANDLW 0x1F
  813. MOVWF PERIOD_ADDR ;得到周期低5位
  814. CLRF PZ1_PRIODA
  816. MOVF PZ1_PRIODB,W ;判断是否溢出
  817. SUBLW 0x07
  818. BTFSS STATUS,C
  819. GOTO PZ1_OVFL                       
  820.  
  821. RLF PZ1_PRIODB,0x1
  822. SWAPF PZ1_PRIODB,0x0
  823. ANDLW 0xE0
  824. IORWF PERIOD_ADDR,0x1 ;得到周期高3位
  826. MOVF PERIOD_ADDR,W ;判断是否>0xFD
  827. SUBLW 0xFD
  828. BTFSC STATUS,C
  829. GOTO GET_PZ1_SPEED_LEVEL
  830. PZ1_OVFL:
  831. MOVLW  0xFD
  832. MOVWF PERIOD_ADDR
  834. GET_PZ1_SPEED_LEVEL:
  835. CLRF PZ1_PRIODB
  836.         MOVLW   0xA
  837.         MOVWF   PCLATH
  838.         CALL    0xA00  ;取出喷气延迟
  839.         CLRF    PCLATH
  840. MOVWF SPEED_LEVEL
  841. JUDGE_PZ1_PQYC_LOAD:
  842. BSF PZ1_FLAG,PQYC_DELAY_EN ;使能喷气延迟
  843.         MOVF    PZ1_PYMK,W    ;取出喷油脉宽值
  844.         MOVWF   PYMK         ;存储喷油脉宽值到PZTIME，由串口送出
  845. CLRF PZ1_PYMK
  847. JUDGE_PZ1_PYMK_OVFL:
  848. MOVF PYMK,W
  849. SUBLW 0xFD
  850. BTFSC STATUS,C
  851. GOTO GET_PZ1_PYMK_LEVEL
  852. MOVLW 0xFD
  853. MOVWF PYMK
  854. GET_PZ1_PYMK_LEVEL:
  855. MOVLW 0xB
  856. MOVWF PCLATH
  857. CALL 0xB00
  858. CLRF PCLATH
  859. MOVWF PYMK_LEVEL
  860. GET_PZ1_PQYC:
  861. CALL GET_PZ_PQYC
  862. CLRF PCLATH
  863.         MOVWF   PQYC      ;保存喷气延迟到PQYC，有串口送出
  864. MOVWF PZ1_PQYC ;喷气延迟保存到延迟寄存器
  865. EXE_PZ1_PQYC:
  866. BTFSS PZ1_FLAG,PQYC_DELAY_EN ;判断喷气延迟使能
  867. GOTO EXE_PZ1_OVER
  868. DECFSZ PZ1_PQYC,0x1
  869. GOTO EXE_PZ1_OVER
  870. BCF PZ1_FLAG,PQYC_DELAY_EN
  871. BCF PQREG,PQ1
  872. MOVF PQREG,W
  873. MOVWF PORTB
  874. EXE_PZ1_OVER:
  875. ;RETURN
  877. ;===================================处理喷嘴2===================================
  878. EXE_PZ2:
  879.   CLRWDT
  880. INCFSZ PZ2_PRIODA,0x1                 
  881. GOTO  JUDGE_PZ2
  883. INCFSZ PZ2_PRIODB,0x1
  884. GOTO JUDGE_PZ2
  885. MOVLW 0xFF
  886. MOVWF PZ2_PRIODB
  887. JUDGE_PZ2:
  888. BTFSC   PORTB,PZ2IN      ;判断喷嘴0输入是否有效
  889. GOTO PZ2_HIGH
  890. PZ2_LOW:
  891. BTFSS   PORTC,JC12VIN      
  892.         GOTO    PZ2_JC12V_OK                    
  893.         GOTO    PZ2_NO_JC12V
  894. PZ2_JC12V_OK:
  895. BSF PQREG,PQ2
  896. GOTO SET_PZ2             
  897. PZ2_NO_JC12V:
  898. BCF PQREG,PQ2
  899. SET_PZ2:
  900. MOVF PQREG,W
  901. MOVWF PORTB
  902. MEASURE_PZ2_PYMK:
  903.         BSF     PZ2_FLAG,PQYC_LOAD_EN ;喷气延迟加载使能
  904.         BCF     PZ2_FLAG,PQYC_DELAY_EN ;清除喷气延迟使能
  905.         INCFSZ  PZ2_PYMK,0x1  ;喷油脉宽计数器累加
  906.         GOTO  EXE_PZ2_OVER
  907.         MOVLW   0xFF                   ;喷油计数器累加为0，
  908.         MOVWF   PZ2_PYMK
  909. GOTO EXE_PZ2_OVER
  911. PZ2_HIGH:          
  912.         BTFSS   PZ2_FLAG,PQYC_LOAD_EN  ;判断喷气延迟加载使能
  913. GOTO EXE_PZ2_PQYC ;PQYC_LOAD_EN=0，已经读取喷气延迟,执行喷气延迟
  915. GET_PZ2_PERIOD_ADDR:
  916.         BCF     PZ2_FLAG,PQYC_LOAD_EN
  917. MOVF PZ2_PRIODA,W
  918. MOVWF PY_PERIOD
  919. MOVF PZ2_PRIODB,W
  920. MOVWF PY_PERIOD1
  922. RRF PZ2_PRIODA,0x1
  923. RRF PZ2_PRIODA,0x1
  924. RRF PZ2_PRIODA,0x0 ;右移三位
  925. ANDLW 0x1F
  926. MOVWF PERIOD_ADDR ;得到周期低5位
  927. CLRF PZ2_PRIODA
  929. MOVF PZ2_PRIODB,W ;判断是否溢出
  930. SUBLW 0x07
  931. BTFSS STATUS,C
  932. GOTO PZ2_OVFL                       
  933.  
  934. RLF PZ2_PRIODB,0x1
  935. SWAPF PZ2_PRIODB,0x0
  936. ANDLW 0xE0
  937. IORWF PERIOD_ADDR,0x1 ;得到周期高3位
  939. MOVF PERIOD_ADDR,W ;判断是否>0xFD
  940. SUBLW 0xFD
  941. BTFSC STATUS,C
  942. GOTO GET_PZ2_SPEED_LEVEL
  943. PZ2_OVFL:
  944. MOVLW  0xFD
  945. MOVWF PERIOD_ADDR
  947. GET_PZ2_SPEED_LEVEL:
  948. CLRF PZ2_PRIODB
  949.         MOVLW   0xA
  950.         MOVWF   PCLATH
  951.         CALL    0xA00  ;取出喷气延迟
  952.         CLRF    PCLATH
  953. MOVWF SPEED_LEVEL
  955. LOAD_PZ2_PQYC:
  956. BSF PZ2_FLAG,PQYC_DELAY_EN ;使能喷气延迟
  957.         MOVF    PZ2_PYMK,W    ;取出喷油脉宽值
  958.         MOVWF   PYMK         ;存储喷油脉宽值到PZTIME，由串口送出
  959. CLRF PZ2_PYMK
  961. JUDGE_PZ2_PYMK_OVFL:
  962. MOVF PYMK,W
  963. SUBLW 0xFD
  964. BTFSC STATUS,C
  965. GOTO GET_PZ2_PYMK_LEVEL
  966. MOVLW 0xFD
  967. MOVWF PYMK
  969. GET_PZ2_PYMK_LEVEL:
  970. MOVLW 0xB
  971. MOVWF PCLATH
  972. CALL 0xB00
  973. CLRF PCLATH
  974. MOVWF PYMK_LEVEL
  975. GET_PZ2_PQYC:
  976. CALL GET_PZ_PQYC
  977. CLRF PCLATH
  978.         MOVWF   PQYC      ;保存喷气延迟到PQYC，有串口送出
  979. MOVWF PZ2_PQYC ;喷气延迟保存到延迟寄存器
  980. EXE_PZ2_PQYC:
  981. BTFSS PZ2_FLAG,PQYC_DELAY_EN ;判断喷气延迟使能
  982. GOTO EXE_PZ2_OVER
  983. DECFSZ PZ2_PQYC,0x1
  984. GOTO EXE_PZ2_OVER
  985. BCF PZ2_FLAG,PQYC_DELAY_EN
  986. BCF PQREG,PQ2
  987. MOVF PQREG,W
  988. MOVWF PORTB
  990. EXE_PZ2_OVER:
  991. ;RETURN
  992. ;===================================处理喷嘴3===================================
  993. EXE_PZ3:
  994.   CLRWDT
  995. INCFSZ PZ3_PRIODA,0x1                 
  996. GOTO  JUDGE_PZ3
  998. INCFSZ PZ3_PRIODB,0x1
  999. GOTO JUDGE_PZ3
  1000. MOVLW 0xFF
  1001. MOVWF PZ3_PRIODB
  1002. JUDGE_PZ3:
  1003. BTFSC   PORTB,PZ3IN      ;判断喷嘴0输入是否有效
  1004. GOTO PZ3_HIGH
  1005. PZ3_LOW:
  1006. BTFSS   PORTC,JC12VIN      
  1007.         GOTO    PZ3_JC12V_OK                    
  1008.         GOTO    PZ3_NO_JC12V
  1009. PZ3_JC12V_OK:
  1010. BSF PQREG,PQ3
  1011. GOTO SET_PZ3             
  1012. PZ3_NO_JC12V:
  1013. BCF PQREG,PQ3
  1014. SET_PZ3:
  1015. MOVF PQREG,W
  1016. MOVWF PORTB
  1017. MEASURE_PZ3_PYMK:
  1018.         BSF     PZ3_FLAG,PQYC_LOAD_EN ;喷气延迟加载使能
  1019.         BCF     PZ3_FLAG,PQYC_DELAY_EN ;清除喷气延迟使能
  1020.         INCFSZ  PZ3_PYMK,0x1  ;喷油脉宽计数器累加
  1021.         GOTO  EXE_PZ3_OVER
  1022.         MOVLW   0xFF                   ;喷油计数器累加为0，
  1023.         MOVWF   PZ3_PYMK
  1024. GOTO EXE_PZ3_OVER
  1026. PZ3_HIGH:          
  1028.         BTFSS   PZ3_FLAG,PQYC_LOAD_EN  ;判断喷气延迟加载使能
  1029. GOTO EXE_PZ3_PQYC ;PQYC_LOAD_EN=0，已经读取喷气延迟,执行喷气延迟
  1031. GET_PZ3_PERIOD_ADDR:
  1032.         BCF     PZ3_FLAG,PQYC_LOAD_EN
  1033. MOVF PZ3_PRIODA,W
  1034. MOVWF PY_PERIOD
  1035. MOVF PZ3_PRIODB,W
  1036. MOVWF PY_PERIOD1
  1038. RRF PZ3_PRIODA,0x1
  1039. RRF PZ3_PRIODA,0x1
  1040. RRF PZ3_PRIODA,0x0 ;右移三位
  1041. ANDLW 0x1F
  1042. MOVWF PERIOD_ADDR ;得到周期低5位
  1043. CLRF PZ3_PRIODA
  1045. MOVF PZ3_PRIODB,W ;判断是否溢出
  1046. SUBLW 0x07
  1047. BTFSS STATUS,C
  1048. GOTO PZ3_OVFL                       
  1049.  
  1050. RLF PZ3_PRIODB,0x1
  1051. SWAPF PZ3_PRIODB,0x0
  1052. ANDLW 0xE0
  1053. IORWF PERIOD_ADDR,0x1 ;得到周期高3位
  1055. MOVF PERIOD_ADDR,W ;判断是否>0xFD
  1056. SUBLW 0xFD
  1057. BTFSC STATUS,C
  1058. GOTO GET_PZ3_SPEED_LEVEL
  1059. PZ3_OVFL:
  1060. MOVLW  0xFD
  1061. MOVWF PERIOD_ADDR
  1063. GET_PZ3_SPEED_LEVEL:
  1064. CLRF PZ3_PRIODB
  1065.         MOVLW   0xA
  1066.         MOVWF   PCLATH
  1067.         CALL    0xA00  ;取出喷气延迟
  1068.         CLRF    PCLATH
  1069. MOVWF SPEED_LEVEL
  1071. LOAD_PZ3_PQYC:
  1072. BSF PZ3_FLAG,PQYC_DELAY_EN ;使能喷气延迟
  1073.         MOVF    PZ3_PYMK,W    ;取出喷油脉宽值
  1074.         MOVWF   PYMK         ;存储喷油脉宽值到PZTIME，由串口送出
  1075. CLRF PZ3_PYMK
  1077. JUDGE_PZ3_PYMK_OVFL:
  1078. MOVF PYMK,W
  1079. SUBLW 0xFD
  1080. BTFSC STATUS,C
  1081. GOTO GET_PZ3_PYMK_LEVEL
  1082. MOVLW 0xFD
  1083. MOVWF PYMK
  1085. GET_PZ3_PYMK_LEVEL:
  1086. MOVLW 0xB
  1087. MOVWF PCLATH
  1088. CALL 0xB00
  1089. CLRF PCLATH
  1090. MOVWF PYMK_LEVEL
  1091. GET_PZ3_PQYC:
  1092. CALL GET_PZ_PQYC
  1093. CLRF PCLATH
  1094.         MOVWF   PQYC      ;保存喷气延迟到PQYC，有串口送出
  1095. MOVWF PZ3_PQYC ;喷气延迟保存到延迟寄存器
  1096. EXE_PZ3_PQYC:
  1097. BTFSS PZ3_FLAG,PQYC_DELAY_EN ;判断喷气延迟使能
  1098. GOTO EXE_PZ3_OVER
  1099. DECFSZ PZ3_PQYC,0x1
  1100. GOTO EXE_PZ3_OVER
  1101. BCF PZ3_FLAG,PQYC_DELAY_EN
  1102. BCF PQREG,PQ3
  1103. MOVF PQREG,W
  1104. MOVWF PORTB
  1105. EXE_PZ3_OVER:
  1106. RETURN
  1114. ;===================================================================================
  1115. ;======================计算速度表地址=================================================
  1116. ;===================================================================================
  1118. ;600 2000 7d0 fa 00
  1119. ;700 1714 6b2 d6 01
  1120. ;800 1500 5dc bb  02
  1121. ;900 1333 535 a6 03
  1122. ;1000 1200 4b0 96 04
  1123. ;1200 1000 3e3 7c 05
  1124. ;1400 857 359 6b 06
  1125. ;1600 750 2ee 5d
  1126. ;1800 666 29a 53
  1127. ;2000 600 258 4b
  1128. ;2200 545 221 44
  1129. ;2400 500 1f4 3e
  1130. ;2600 461 1cd 39
  1131. ;2800 428 1ac 35
  1132. ;3000 400 190 32
  1133. ;3500 342 156 2a
  1134. ;4000 300 12c 25
  1135. ;4500 266 10a 21
  1136. ;5000 240 f0 1e
  1137. ;5500 218 da 1b
  1138. ;6000 200 c8 18
  1139. ;6500 184 b8 17
  1140. ;7000 171 ab 15
  1141. ;=====================================================================================
  1142. ;===========判断 检测12V 和 喷嘴12V，没有电压就不喷气，同时熄灭LED==========================
  1143. ;=====================================================================================
  1144. JUDGE_PZ12VBIT_JC12V:
  1145. CALL PAGE0
  1146. CLRWDT 
  1147.         BTFSC   PORTA,PZ12VIN       ;喷嘴12V电源有效， 应该低电平有效
  1148.         GOTO    NO_PZ12VBIT
  1149.         BSF     PZREG,PZ12VBIT   
  1150.         GOTO    JUDGE_JC12V   
  1151. NO_PZ12VBIT:
  1152. ;没有喷嘴电压，不输出喷气脉冲
  1153. BCF     PZREG,PZ12VBIT                  
  1154.         BCF     PZREG,PZ0BIT           
  1155.         BCF     PZREG,PZ1BIT            
  1156.         BCF     PZREG,PZ2BIT                    
  1157.         BCF     PZREG,PZ3BIT                       
  1158. JUDGE_JC12V:
  1159. BTFSS   PORTC,JC12VIN      
  1160.         GOTO    JC12V_OK                    
  1161.         GOTO    NO_JC12V
  1162. JC12V_OK:
  1163.         BSF     JCREG,JC12VBIT   
  1164.         BSF     PORTC,LED    
  1165. GOTO JUDGE_PZJC_OVER               
  1166. NO_JC12V:
  1167. ;没有检测电压，不输出喷气脉冲，喷气延迟
  1168. BCF     PORTC,LED     
  1169.         BCF     PQREG,PQ0
  1170.         BCF     PQREG,PQ1
  1171.         BCF     PQREG,PQ2
  1172.         BCF     PQREG,PQ3
  1173.         MOVLW   0x1     
  1174.         MOVWF   PQYC        
  1175. JUDGE_PZJC_OVER:
  1176.         MOVF    PQREG,W 
  1177.         MOVWF   PORTB   
  1178.         BCF     JCREG,JC12VBIT 
  1179.         RETURN 
  1180. ;=====================================================================================
  1181. ;===============================A/D采样================================================
  1182. AD_SAMPLE: 
  1183. ;判断是否采样
  1184. BTFSS   TIMER_IF,SMP_EN;           
  1185.         RETURN  
  1186.      BCF     TIMER_IF,SMP_EN
  1187. ;开始采样
  1188. CLRF CNT ;采样计数器清零
  1189. MOVLW AD_ADDR
  1190. MOVWF FSR ;间接寻址采样存储地址
  1191. MOVLW 0x0
  1192. MOVWF ADCON0 ;采样地址清零
  1193. SAMPLE_LOOP:
  1194. CALL  PAGE1
  1195.         MOVLW   0x0                      
  1196.         MOVWF   ADCON1       ;所有PORTA输入为模拟输入                   
  1197. CALL PAGE0    
  1198. BSF ADCON0,ADON                                
  1199. SAMPLE:
  1200. MOVLW 0x1
  1201. CALL DELAY2
  1202.     BSF     ADCON0,GO      
  1203. ;采样时间
  1204. MOVLW 0x1
  1205. CALL  DELAY2
  1206. SMP_OVER:
  1207.         BTFSC   ADCON0,GO 
  1208.         GOTO    SMP_OVER 
  1209.         MOVF    ADRESH,W         ;10位采样值高8位              
  1210.         MOVWF   INDF ;存储采样值
  1211. INCF FSR,0x1 ;存储指针递增
  1212. MOVLW 0x8
  1213. ADDWF ADCON0,0x1 ;采样通道递增
  1214. INCF CNT,0x1
  1215. BTFSS CNT,0x2
  1216. GOTO SAMPLE_LOOP 
  1217. CLOSE_AD:
  1218. CALL PAGE1
  1219.         MOVLW   0x6          
  1220.         MOVWF   ADCON1          ;所有输入都是数字输入，保护AD              
  1221. CALL PAGE0   
  1222. ;RETURN 
  1223. JUDGE_ZKYL_OVFL:
  1224. MOVF ZKYL,W
  1225. SUBLW 0xFD
  1226. BTFSC STATUS,C
  1227. GOTO GET_ZKYL_LEVEL
  1228. MOVLW 0xFD
  1229. MOVWF ZKYL
  1230. GET_ZKYL_LEVEL:
  1231. BCF INTCON,GIE
  1232. MOVLW 0xF
  1233. MOVWF PCLATH
  1234. ;MOVF ZKYL,W
  1235. CALL 0xF00
  1236. CLRF PCLATH
  1237. MOVWF ZKYL_LEVEL
  1238. BSF INTCON,GIE
  1239. RETURN               
  1240. ;===============记忆喷油脉宽==========================================
  1241. ;根据当前压力，速度读出表格中的记忆喷油脉宽值
  1242. ;新喷油脉宽稳定256*16=4096转之后，置忙标志
  1243. ;和表格中的喷油脉宽值比较，相差大于1.6ms,那么写入新值，否则不写
  1244. SAVE_JYMK:
  1245. BCF INTCON,GIE
  1246. CALL GET_REC_JYMK_VALUE ;根据当前压力，速度读出表格中的记忆喷油脉宽值
  1247. CLRF PCLATH
  1248. MOVWF REC_PYMK
  1249. BSF INTCON,GIE
  1252. BTFSS REC_FLAG,REC_BUSY ;检测忙标志
  1253. RETURN
  1254. GOTO  GET_JYMK_FLAG
  1255. GET_JYMK_FLAG_OVER:
  1256. BTFSC REC_FLAG,REC_EN
  1257. GOTO JYMK_WR_EXIT
  1259. MOVF REC_PYMK,W
  1260. ANDLW 0xF0 ;得到当前喷右脉宽的高四位，保存到REC_PYMK_HIGH4BIT
  1261. MOVWF REC_JYMK_HIGH4BIT
  1263. MOVF REC_PYMKC,W ;得到前一个喷油脉宽的高四位，存到W中
  1264. ;GOTO  JYMK_WR_EXIT
  1267. ANDLW 0xF0
  1268. XORWF REC_JYMK_HIGH4BIT,0x0 ;比较当前喷油脉宽和前一个喷油脉宽高四位是否相同
  1269. BTFSC STATUS,Z
  1270. GOTO SAVE_JYMK_OVER
  1272. BTFSS REC_FLAG,WR_EN ;判断写使能
  1273. GOTO SAVE_JYMK_OVER
  1274. ;得到记忆脉宽的EEP_ADDRH值
  1275. GET_JYMK_EEP_ADDRH:
  1276. BTFSS SPEED_LEVEL,0x4
  1277. GOTO GET_JYMK_EEP_ADDRH8;
  1278. MOVLW 0x9
  1279. MOVWF EEP_ADDRH
  1280. GOTO GET_JYMK_EEP_ADDRH_OVER
  1281. GET_JYMK_EEP_ADDRH8:
  1282. MOVLW 0x8
  1283. MOVWF EEP_ADDRH
  1284. GET_JYMK_EEP_ADDRH_OVER:
  1285. ;得到记忆脉宽的EEP_ADDRL值
  1286. SWAPF SPEED_LEVEL,0x0
  1287. ANDLW 0xF0
  1288. MOVWF EEP_ADDRL
  1289. MOVF ZKYL_LEVEL,W
  1290. ADDLW 0x2
  1291. ADDWF EEP_ADDRL,0x1
  1292. ;赋值给 EEP_DATAL
  1293. MOVF REC_PYMKC,W
  1294. MOVWF EEP_DATAL
  1297. CALL PAGE2
  1299. MOVF EEP_ADDRL,W ;得到4地址
  1300. ANDLW 0xFC
  1301. MOVWF EEADR
  1303. MOVF EEP_ADDRH,W ;
  1304. MOVWF EEADRH
  1307. MOVLW EEP_DATAH0 ;保存数据保存地址
  1308. MOVWF FSR
  1310. CLRF EEP_NUMBER
  1311. ;读出8个数据到EEP_DATAH0---EEP_DATAL3
  1312. JYMK_READ_EEP_LOOP:
  1313. ;读EEPROM
  1314. BSF  STATUS, RP0  ;读EEPROM
  1315. BSF  EECON1, EEPGD 
  1316. BSF  EECON1, RD
  1317. NOP
  1318. NOP
  1319. BCF  STATUS, RP0
  1320. ;保存数据
  1321. MOVF  EEDATH, W 
  1322. MOVWF  INDF ;保存EEP高8位
  1323. INCF FSR,0x1
  1324. MOVF  EEDATA, W 
  1325. MOVWF  INDF ;保存EEP低8位
  1326. INCF FSR,0x1
  1327. ;地址递增
  1328. INCF EEADR,0x1 ;EEP地址+1
  1329. INCF EEP_NUMBER,0x1 ;EEP读计数器+1
  1330. ;循环判断
  1331. BTFSS EEP_NUMBER,0x2 ;是否读了四个数据
  1332. GOTO JYMK_READ_EEP_LOOP
  1334. JYMK_FRESH_EEP_DATA:
  1335. ;更新EEP_DATAL
  1336. RLF EEP_ADDRL,0x0
  1337. ANDLW 0x6
  1338. ADDLW EEP_DATAL0
  1340. MOVWF FSR ; =>FSR
  1341. MOVF EEP_DATAL,W ;EEP_DATA
  1342. MOVWF INDF ; =>[EEP_ADDR+EEP_ADDR[1:0]]
  1344. ;写循环准备
  1345. MOVLW EEP_DATAH0
  1346. MOVWF FSR ;间接寻址EEP_DATA
  1348. MOVF EEP_ADDRL,W ;ADDRH，ADDRL为首地址
  1349. ANDLW 0xFC
  1350. MOVWF EEADR ;调入低8位地址的4偶地址
  1352. MOVF EEP_ADDRH,W
  1353. MOVWF EEADRH ;调入高8位地址
  1354. CLRF EEP_NUMBER ;写入数据计数清零
  1355. BCF INTCON,GIE
  1356. JYMK_WRITE_EEP_LOOP:
  1357. CLRWDT
  1358. ;调入数据
  1359. ;MOVLW 0x34
  1360.   MOVF  INDF,W 
  1361. MOVWF  EEDATH ;存入数据高字节
  1362. INCF FSR,0x1  
  1363. MOVF  INDF,W 
  1364. MOVWF  EEDATA ;存入数据低字节
  1365. INCF FSR,0x1
  1366. ;保存数据到EEPROM
  1367. BSF  STATUS,RP0 
  1368. BSF  EECON1,EEPGD 
  1369. BSF  EECON1,WREN
  1371. MOVLW  0x55 
  1372. MOVWF  EECON2 
  1373. MOVLW  0xaa
  1374. MOVWF  EECON2
  1375. BSF  EECON1,WR
  1376. NOP
  1377. NOP 
  1378. BCF  EECON1,WREN 
  1379. BCF  STATUS,RP0
  1381. ;地址递增
  1384. INCF EEP_NUMBER,0x1
  1386. INCF EEADR,0x1
  1388. BTFSS EEP_NUMBER,0x2
  1389. GOTO JYMK_WRITE_EEP_LOOP
  1390. BSF INTCON,GIE
  1391. CALL PAGE0
  1392. ;======================回送更改值========================
  1393. MOVF REC_PYMKC,W ;真空压力
  1394. ANDLW 0x0F
  1395. IORLW 0x30
  1396. CALL UART_SEND
  1398. SWAPF REC_PYMKC,0x0
  1399. ANDLW 0x0F
  1400. IORLW 0x40
  1401. CALL UART_SEND
  1403. MOVLW 0x93
  1404. CALL UART_SEND
  1406. JYMK_WR_EXIT:
  1407. SAVE_JYMK_OVER:
  1408. CALL PAGE0
  1409. BCF REC_FLAG,REC_BUSY
  1410. RETURN
  1411.                                                
  1413. PAGE0: BCF     STATUS,RP0
  1414. BCF  STATUS,RP1
  1415. RETURN
  1417. PAGE1: BSF     STATUS,RP0
  1418. BCF  STATUS,RP1
  1419. RETURN
  1421. PAGE2: BCF     STATUS,RP0
  1422. BSF  STATUS,RP1
  1423. RETURN
  1425. PAGE3: BSF     STATUS,RP0
  1426. BSF  STATUS,RP1
  1427. RETURN
  1428. INI_COM:
  1429. CALL PAGE1
  1430. MOVLW 0x20
  1431. MOVWF BRG
  1432. BSF TXSTA,BRGH ;HIGH SPEED
  1433. CALL   PAGE0
  1434. BSF RCSTA,SPEN ;SET SPEN
  1435. CALL PAGE1
  1436. BCF TXSTA,SYNC
  1437. BCF TXSTA,TX9 ;8BIT TRANSMISSION
  1438. BSF TXSTA,TXEN
  1439. CALL  PAGE0
  1440. BSF RCSTA,CREN ;DISABEL CONTINUOUS RECIEVE
  1441. RETURN
  1443. ;SET TRANSMISSION CONTROL,8BIT,AYSYN,HIGH SPEED
  1444. CALL PAGE1
  1445. BSF PORTC,0x6 ;TX
  1446. BSF PORTC,0x7 ;RX
  1450. CALL   PAGE0
  1451. BCF RCSTA,RX9 ;8BIT RECIEVE
  1452. BCF RCSTA,ADDEN ;DISABLE ADDRESS DETECT,ALL BYTES ARE RECIEVED
  1453. BCF RCSTA,FERR
  1454. BCF RCSTA,OERR
  1455. BSF RCSTA,SPEN ;SET SPEN
  1456. BSF RCSTA,CREN ;DISABEL CONTINUOUS RECIEVE
  1458. ;BSF RCSTA,CREN ;DISABEL CONTINUOUS RECIEVE
  1459. CALL PAGE1
  1460. ;MOVLW 0xC
  1461. ;MOVLW 0x33
  1462. ;MOVLW 0x81
  1463. MOVLW 0x20
  1464. MOVWF BRG ;SET BAUD RATE 9600BPS
  1465. BCF TXSTA,TX9 ;8BIT TRANSMISSION
  1466. BCF TXSTA,SYNC ;CLEAR SYNC ;ASYNCHRONOUS MODE
  1467. BSF TXSTA,BRGH ;HIGH SPEED
  1468. BSF TXSTA,TX9D ;ALWAYS ENABLE TX9D AND 9BIT TRANSMISION FOR POSSIBLE TIMING CONFLICT
  1469. BSF TXSTA,TXEN
  1470. CALL PAGE0
  1471. RETURN
  1472. ;==================================得到记忆标志==========================================
  1473. GET_JYMK_FLAG:
  1474. CLRWDT
  1475. CALL PAGE0
  1476. MOVF ZKYL_LEVEL,W
  1477. CALL PAGE1
  1478. MOVWF ZKYL_LEVEL1 ;保存压力分级
  1480. CALL PAGE0
  1481. MOVF SPEED_LEVEL,W
  1482. CALL PAGE1
  1483. MOVWF SPEED_LEVEL1 ;保存速度分级
  1485. RLF ZKYL_LEVEL1,1
  1486. RLF ZKYL_LEVEL1,0
  1487. ANDLW 0x3C
  1488. MOVWF JYMK_FLAG_ADDRA ;得到标志表的压力寻址值
  1490. MOVLW 0x07
  1491. ANDWF SPEED_LEVEL1,0
  1492. MOVWF JYMK_FLAG_ADDRB ;得到标志位的寻址
  1494. RRF SPEED_LEVEL1,1
  1495. RRF SPEED_LEVEL1,1
  1496. RRF SPEED_LEVEL1,0
  1497. ANDLW 0x03 ;得到转速字节寻址，选定一行四个字节中的一个标志字节
  1498. IORWF JYMK_FLAG_ADDRA,0x1 ;得到标志字节寻址
  1500. MOVLW 0xB0
  1501. ADDWF JYMK_FLAG_ADDRA,0x0
  1502. MOVWF FSR ;得到标志字节的绝对地址，给FSR
  1504. MOVLW 0x00
  1505. XORWF JYMK_FLAG_ADDRB,0
  1506. BTFSC STATUS,Z
  1507. GOTO JUDGE_FLAG0
  1509. MOVLW 0x01
  1510. XORWF JYMK_FLAG_ADDRB,0
  1511. BTFSC STATUS,Z
  1512. GOTO JUDGE_FLAG1
  1514. MOVLW 0x02
  1515. XORWF JYMK_FLAG_ADDRB,0
  1516. BTFSC STATUS,Z
  1517. GOTO JUDGE_FLAG2
  1519. MOVLW 0x03
  1520. XORWF JYMK_FLAG_ADDRB,0
  1521. BTFSC STATUS,Z
  1522. GOTO JUDGE_FLAG3
  1524. MOVLW 0x04
  1525. XORWF JYMK_FLAG_ADDRB,0
  1526. BTFSC STATUS,Z
  1527. GOTO JUDGE_FLAG4
  1529. MOVLW 0x05
  1530. XORWF JYMK_FLAG_ADDRB,0
  1531. BTFSC STATUS,Z
  1532. GOTO JUDGE_FLAG5
  1534. MOVLW 0x06
  1535. XORWF JYMK_FLAG_ADDRB,0
  1536. BTFSC STATUS,Z
  1537. GOTO JUDGE_FLAG6
  1539. MOVLW 0x07
  1540. XORWF JYMK_FLAG_ADDRB,0
  1541. BTFSC STATUS,Z
  1542. GOTO JUDGE_FLAG7
  1543. JUDGE_FLAG0:
  1544. BTFSC INDF,0x00
  1545. GOTO JYMK_FLAG_EXIT
  1546. BSF INDF,0x00
  1547. GOTO JYMK_FLAG_SET
  1548. JUDGE_FLAG1:
  1549. BTFSC INDF,0x01
  1550. GOTO JYMK_FLAG_EXIT
  1551. BSF INDF,0x01
  1552. GOTO JYMK_FLAG_SET
  1553. JUDGE_FLAG2:
  1554. BTFSC INDF,0x02
  1555. GOTO JYMK_FLAG_EXIT
  1556. BSF INDF,0x02
  1557. GOTO JYMK_FLAG_SET
  1558. JUDGE_FLAG3:
  1559. BTFSC INDF,0x03
  1560. GOTO JYMK_FLAG_EXIT
  1561. BSF INDF,0x03
  1562. GOTO JYMK_FLAG_SET
  1563. JUDGE_FLAG4:
  1564. BTFSC INDF,0x04
  1565. GOTO JYMK_FLAG_EXIT
  1566. BSF INDF,0x04
  1567. GOTO JYMK_FLAG_SET
  1568. JUDGE_FLAG5:
  1569. BTFSC INDF,0x05
  1570. GOTO JYMK_FLAG_EXIT
  1571. BSF INDF,0x05
  1572. GOTO JYMK_FLAG_SET
  1573. JUDGE_FLAG6:
  1574. BTFSC INDF,0x06
  1575. GOTO JYMK_FLAG_EXIT
  1576. BSF INDF,0x06
  1577. GOTO JYMK_FLAG_SET
  1578. JUDGE_FLAG7:
  1579. BTFSC INDF,0x07
  1580. GOTO JYMK_FLAG_EXIT
  1581. BSF INDF,0x07
  1582. GOTO JYMK_FLAG_SET
  1583. JYMK_FLAG_EXIT:
  1584. CALL PAGE0
  1585. BCF REC_FLAG,REC_EN
  1586. GOTO GET_JYMK_FLAG_OVER
  1587. JYMK_FLAG_SET:
  1588. CALL PAGE0
  1589. BSF REC_FLAG,REC_EN
  1590. GOTO GET_JYMK_FLAG_OVER
  1591. ;=========================================
  1592. GET_REC_JYMK_VALUE:
  1593. MOVLW 0x6
  1594. MOVWF PCLATH
  1595. MOVF SPEED_LEVEL,W
  1596. MOVWF TMP_LEVEL
  1598. RLF TMP_LEVEL,0x1
  1599. RLF TMP_LEVEL,0x0
  1600. ANDLW 0xFC
  1601. ;CLRF STATUS
  1602. ;RRF SPEED_LEVEL,0x1
  1603. GOTO  GET_REC_PYMK_VLAUE0
  1604. ORG H'680'
  1605. GET_REC_PYMK_VLAUE0:
  1606. ADDWF PCL,0x1
  1608. GET_REC_PYMK_SPEED0_JYMK:
  1609. MOVLW 0x8
  1610. MOVWF PCLATH
  1611. CALL 0x800
  1612. RETURN
  1613. GET_REC_PYMK_SPEED1_JYMK:
  1614. MOVLW 0x8
  1615. MOVWF PCLATH
  1616. CALL 0x810
  1617. RETURN
  1618. GET_REC_PYMK_SPEED2_JYMK:
  1619. MOVLW 0x8
  1620. MOVWF PCLATH
  1621. CALL 0x820
  1622. RETURN
  1623. GET_REC_PYMK_SPEED3_JYMK:
  1624. MOVLW 0x8
  1625. MOVWF PCLATH
  1626. CALL 0x830
  1627. RETURN
  1628. GET_REC_PYMK_SPEED4_JYMK:
  1629. MOVLW 0x8
  1630. MOVWF PCLATH
  1631. CALL 0x840
  1632. RETURN
  1633. GET_REC_PYMK_SPEED5_JYMK:
  1634. MOVLW 0x8
  1635. MOVWF PCLATH
  1636. CALL 0x850
  1637. RETURN
  1638. GET_REC_PYMK_SPEED6_JYMK:
  1639. MOVLW 0x8
  1640. MOVWF PCLATH
  1641. CALL 0x860
  1642. RETURN
  1643. GET_REC_PYMK_SPEED7_JYMK:
  1644. MOVLW 0x8
  1645. MOVWF PCLATH
  1646. CALL 0x870
  1647. RETURN
  1648. GET_REC_PYMK_SPEED8_JYMK:
  1649. MOVLW 0x8
  1650. MOVWF PCLATH
  1651. CALL 0x880
  1652. RETURN
  1653. GET_REC_PYMK_SPEED9_JYMK:
  1654. MOVLW 0x8
  1655. MOVWF PCLATH
  1656. CALL 0x890
  1657. RETURN
  1658. GET_REC_PYMK_SPEEDA_JYMK: MOVLW 0x8
  1659. MOVWF PCLATH
  1660. CALL 0x8A0
  1661. RETURN
  1662. GET_REC_PYMK_SPEEDB_JYMK:
  1663. MOVLW 0x8
  1664. MOVWF PCLATH
  1665. CALL 0x8B0
  1666. RETURN
  1667. GET_REC_PYMK_SPEEDC_JYMK:
  1668. MOVLW 0x8
  1669. MOVWF PCLATH
  1670. CALL 0x8C0
  1671. RETURN
  1672. GET_REC_PYMK_SPEEDD_JYMK:
  1673. MOVLW 0x8
  1674. MOVWF PCLATH
  1675. CALL 0x8D0
  1676. RETURN
  1677. GET_REC_PYMK_SPEEDE_JYMK:
  1678. MOVLW 0x8
  1679. MOVWF PCLATH
  1680. CALL 0x8E0
  1681. RETURN
  1682. GET_REC_PYMK_SPEEDF_JYMK:
  1683. MOVLW 0x8
  1684. MOVWF PCLATH
  1685. CALL 0x8F0
  1686. RETURN
  1687. GET_REC_PYMK_SPEED10_JYMK:
  1688. MOVLW 0x9
  1689. MOVWF PCLATH
  1690. CALL 0x900
  1691. RETURN
  1692. GET_REC_PYMK_SPEED11_JYMK:
  1693. MOVLW 0x9
  1694. MOVWF PCLATH
  1695. CALL 0x910
  1696. RETURN
  1697. GET_REC_PYMK_SPEED12_JYMK:
  1698. MOVLW 0x9
  1699. MOVWF PCLATH
  1700. CALL 0x920
  1701. RETURN
  1702. GET_REC_PYMK_SPEED13_JYMK:
  1703. MOVLW 0x9
  1704. MOVWF PCLATH
  1705. CALL 0x930
  1706. RETURN
  1707. GET_REC_PYMK_SPEED14_JYMK:
  1708. MOVLW 0x9
  1709. MOVWF PCLATH
  1710. CALL 0x940
  1711. RETURN
  1712. GET_REC_PYMK_SPEED15_JYMK:
  1713. MOVLW 0x9
  1714. MOVWF PCLATH
  1715. CALL 0x950
  1716. RETURN
  1717. GET_REC_PYMK_SPEED16_JYMK:
  1718. MOVLW 0x9
  1719. MOVWF PCLATH
  1720. CALL 0x960
  1721. RETURN
  1722. GET_REC_PYMK_SPEED17_JYMK:
  1723. MOVLW 0x9
  1724. MOVWF PCLATH
  1725. CALL 0x970
  1726. RETURN
  1727. GET_REC_PYMK_SPEED18_JYMK:
  1728. MOVLW 0x9
  1729. MOVWF PCLATH
  1730. CALL 0x970
  1731. RETURN
  1733. GET_REC_PYMK_VAL_OVER: CLRF PCLATH
  1734. RETURN
  1738. GET_PZ_PQYC:
  1739. MOVLW 0x7
  1740. MOVWF PCLATH
  1742. MOVF SPEED_LEVEL,W
  1743. MOVWF TMP_LEVEL
  1745. RLF TMP_LEVEL,0x1
  1746. RLF TMP_LEVEL,0x0
  1747. ANDLW 0xFC
  1749. GOTO  GET_PQYC0
  1750. ORG H'780'
  1751. GET_PQYC0:
  1752. ADDWF PCL,0x1
  1754. GET_PZ0_SPEED0_PQYC: MOVLW 0xC
  1755. MOVWF PCLATH
  1756. CALL 0xC00
  1757. RETURN
  1758. GET_PZ0_SPEED1_PQYC: MOVLW 0xC
  1759. MOVWF PCLATH
  1760. CALL 0xC20
  1761. RETURN
  1762. GET_PZ0_SPEED2_PQYC: MOVLW 0xC
  1763. MOVWF PCLATH
  1764. CALL 0xC40
  1765. RETURN
  1766. GET_PZ0_SPEED3_PQYC: MOVLW 0xC
  1767. MOVWF PCLATH
  1768. CALL 0xC60
  1769. RETURN
  1770. GET_PZ0_SPEED4_PQYC: MOVLW 0xC
  1771. MOVWF PCLATH
  1772. CALL 0xC80
  1773. RETURN
  1774. GET_PZ0_SPEED5_PQYC: MOVLW 0xC
  1775. MOVWF PCLATH
  1776. CALL 0xCA0
  1777. RETURN
  1778. GET_PZ0_SPEED6_PQYC: MOVLW 0xC
  1779. MOVWF PCLATH
  1780. CALL 0xCC0
  1781. RETURN
  1782. GET_PZ0_SPEED7_PQYC: MOVLW 0xC
  1783. MOVWF PCLATH
  1784. CALL 0xCE0
  1785. RETURN
  1786. GET_PZ0_SPEED8_PQYC: MOVLW 0xD
  1787. MOVWF PCLATH
  1788. CALL 0xD00
  1789. RETURN
  1790. GET_PZ0_SPEED9_PQYC: MOVLW 0xD
  1791. MOVWF PCLATH
  1792. CALL 0xD20
  1793. RETURN
  1794. GET_PZ0_SPEEDA_PQYC: MOVLW 0xD
  1795. MOVWF PCLATH
  1796. CALL 0xD40
  1797. RETURN
  1798. GET_PZ0_SPEEDB_PQYC: MOVLW 0xD
  1799. MOVWF PCLATH
  1800. CALL 0xD60
  1801. RETURN
  1802. GET_PZ0_SPEEDC_PQYC: MOVLW 0xD
  1803. MOVWF PCLATH
  1804. CALL 0xD80
  1805. RETURN
  1806. GET_PZ0_SPEEDD_PQYC: MOVLW 0xD
  1807. MOVWF PCLATH
  1808. CALL 0xDA0
  1809. RETURN
  1810. GET_PZ0_SPEEDE_PQYC: MOVLW 0xD
  1811. MOVWF PCLATH
  1812. CALL 0xDC0
  1813. RETURN
  1814. GET_PZ0_SPEEDF_PQYC: MOVLW 0xD
  1815. MOVWF PCLATH
  1816. CALL 0xDE0
  1817. RETURN
  1818. GET_PZ0_SPEED10_PQYC: MOVLW 0xE
  1819. MOVWF PCLATH
  1820. CALL 0xE00
  1821. RETURN
  1822. GET_PZ0_SPEED11_PQYC: MOVLW 0xE
  1823. MOVWF PCLATH
  1824. CALL 0xE20
  1825. RETURN
  1826. GET_PZ0_SPEED12_PQYC: MOVLW 0xE
  1827. MOVWF PCLATH
  1828. CALL 0xE40
  1829. RETURN
  1830. GET_PZ0_SPEED13_PQYC: MOVLW 0xE
  1831. MOVWF PCLATH
  1832. CALL 0xE60
  1833. RETURN
  1834. GET_PZ0_SPEED14_PQYC: MOVLW 0xE
  1835. MOVWF PCLATH
  1836. CALL 0xE80
  1837. RETURN
  1838. GET_PZ0_SPEED15_PQYC: MOVLW 0xE
  1839. MOVWF PCLATH
  1840. CALL 0xEA0
  1841. RETURN
  1842. GET_PZ0_SPEED16_PQYC: MOVLW 0xE
  1843. MOVWF PCLATH
  1844. CALL 0xEC0
  1845. RETURN
  1846. GET_PZ0_SPEED17PQYC: MOVLW 0xE
  1847. MOVWF PCLATH
  1848. CALL 0xEE0
  1849. RETURN
  1851. GET_PZ0_PQYC_OVER: CLRF PCLATH
  1852. MOVWF PQYC
  1853. MOVWF PZ0_PQYC
  1854. RETURN
  1855. ;=====================================================================================================
  1856. ;============================================压力-转速-喷油脉宽记忆表================================================
  1857. ;====================================================================================================
  1858. ZKYL_SPEED00:
  1859. ORG    H'0800'
  1860. MOVF ZKYL_LEVEL,W
  1861. ADDWF PCL,0x01
  1862.         RETLW   0x00 ;00
  1863.    RETLW   0x00   ;01 
  1864.         RETLW   0x00    ;02 
  1865.         RETLW   0x00    ;03 
  1866.         RETLW   0x00    ;04
  1867.         RETLW   0x00    ;05
  1868.         RETLW   0x00    ;06
  1869.         RETLW   0x00    ;07
  1870.         RETLW   0x00    ;08  
  1871.         RETLW   0x00    ;09  
  1872.         RETLW   0x00    ;0a  
  1873.         RETLW   0x00    ;0b  
  1874.         RETLW   0x00    ;0c  
  1875.         RETLW   0x00    ;0d  
  1876. ZKYL_SPEED01:
  1877. ORG    H'0810'
  1878. MOVF ZKYL_LEVEL,W
  1879. ADDWF PCL,0x01
  1880.         RETLW   0x01 ;00
  1881.    RETLW   0x01    ;01  
  1882.         RETLW   0x01    ;02
  1883.         RETLW   0x01    ;03
  1884.         RETLW   0x01    ;04
  1885.         RETLW   0x01    ;05
  1886.         RETLW   0x01    ;06
  1887.         RETLW   0x01    ;07
  1888.         RETLW   0x01    ;08   
  1889.         RETLW   0x01    ;09   
  1890.         RETLW   0x01    ;0a   
  1891.         RETLW   0x01    ;0b   
  1892.         RETLW   0x01    ;0c   
  1893.         RETLW   0x01    ;0d   
  1895. ZKYL_SPEED02:
  1896. ORG    H'0820'
  1897. MOVF ZKYL_LEVEL,W
  1898. ADDWF PCL,0x01
  1899.         RETLW   0x02 ;00
  1900.    RETLW   0x02    ;01   
  1901.         RETLW   0x02    ;02  
  1902.         RETLW   0x02    ;03  
  1903.         RETLW   0x02    ;04  
  1904.         RETLW   0x02    ;05  
  1905.         RETLW   0x02    ;06  
  1906.         RETLW   0x02    ;07  
  1907.         RETLW   0x02    ;08   
  1908.         RETLW   0x02    ;09   
  1909.         RETLW   0x02    ;0a   
  1910.         RETLW   0x02    ;0b   
  1911.         RETLW   0x02    ;0c   
  1912.         RETLW   0x02    ;0d   
  1913. ZKYL_SPEED03:
  1914. ORG    H'0830'
  1915. MOVF ZKYL_LEVEL,W
  1916. ADDWF PCL,0x01
  1917.         RETLW   0x03 ;00
  1918.    RETLW   0x03    ;01   
  1919.         RETLW   0x03    ;02  
  1920.         RETLW   0x03    ;03  
  1921.         RETLW   0x03    ;04  
  1922.         RETLW   0x03    ;05  
  1923.         RETLW   0x03    ;06  
  1924.         RETLW   0x03    ;07  
  1925.         RETLW   0x03    ;08   
  1926.         RETLW   0x03    ;09   
  1927.         RETLW   0x03    ;0a   
  1928.         RETLW   0x03    ;0b   
  1929.         RETLW   0x03    ;0c   
  1930.         RETLW   0x03    ;0d   
  1931. ZKYL_SPEED04:
  1932. ORG    H'0840'
  1933. MOVF ZKYL_LEVEL,W
  1934. ADDWF PCL,0x01
  1935.         RETLW   0x04 ;00
  1936.    RETLW   0x04    ;01   
  1937.         RETLW   0x04    ;02  
  1938.         RETLW   0x04    ;03  
  1939.         RETLW   0x04    ;04  
  1940.         RETLW   0x04    ;05  
  1941.         RETLW   0x04    ;06  
  1942.         RETLW   0x04    ;07  
  1943.         RETLW   0x04    ;08   
  1944.         RETLW   0x04    ;09   
  1945.         RETLW   0x04    ;0a   
  1946.         RETLW   0x04    ;0b   
  1947.         RETLW   0x04    ;0c   
  1948.         RETLW   0x04    ;0d   
  1950. ZKYL_SPEED05:
  1951. ORG    H'0850'
  1952. MOVF ZKYL_LEVEL,W
  1953. ADDWF PCL,0x01
  1954.         RETLW   0x05 ;00
  1955.    RETLW   0x05    ;01   
  1956.         RETLW   0x05    ;02  
  1957.         RETLW   0x05    ;03  
  1958.         RETLW   0x05    ;04  
  1959.         RETLW   0x05    ;05  
  1960.         RETLW   0x05    ;06  
  1961.         RETLW   0x05    ;07  
  1962.         RETLW   0x05    ;08   
  1963.         RETLW   0x05    ;09   
  1964.         RETLW   0x05    ;0a   
  1965.         RETLW   0x05    ;0b   
  1966.         RETLW   0x05    ;0c   
  1967.         RETLW   0x05    ;0d   
  1969. ZKYL_SPEED06:
  1970. ORG    H'0860'
  1971. MOVF ZKYL_LEVEL,W
  1972. ADDWF PCL,0x01
  1973.         RETLW   0x06 ;00
  1974.    RETLW   0x06    ;01   
  1975.         RETLW   0x06    ;02  
  1976.         RETLW   0x06    ;03  
  1977.         RETLW   0x06    ;04  
  1978.         RETLW   0x06    ;05  
  1979.         RETLW   0x06    ;06  
  1980.         RETLW   0x06    ;07  
  1981.         RETLW   0x06    ;08   
  1982.         RETLW   0x06    ;09   
  1983.         RETLW   0x06    ;0a   
  1984.         RETLW   0x06    ;0b   
  1985.         RETLW   0x06    ;0c   
  1986.         RETLW   0x06    ;0d   
  1987.  
  1988. ZKYL_SPEED07:
  1989. ORG    H'0870'
  1990. MOVF ZKYL_LEVEL,W
  1991. ADDWF PCL,0x01
  1992.         RETLW   0x07 ;00
  1993.    RETLW   0x07    ;01   
  1994.         RETLW   0x07    ;02  
  1995.         RETLW   0x07    ;03  
  1996.         RETLW   0x07    ;04  
  1997.         RETLW   0x07    ;05  
  1998.         RETLW   0x07    ;06  
  1999.         RETLW   0x07    ;07  
  2000.         RETLW   0x07    ;08   
  2001.         RETLW   0x07    ;09   
  2002.         RETLW   0x07    ;0a   
  2003.         RETLW   0x07    ;0b   
  2004.         RETLW   0x07    ;0c   
  2005.         RETLW   0x07    ;0d   
  2007. ZKYL_SPEED08:
  2008. ORG    H'0880'
  2009. MOVF ZKYL_LEVEL,W
  2010. ADDWF PCL,0x01
  2011.         RETLW   0x08 ;00
  2012.    RETLW   0x08    ;01   
  2013.         RETLW   0x08    ;02  
  2014.         RETLW   0x08    ;03  
  2015.         RETLW   0x08    ;04  
  2016.         RETLW   0x08    ;05  
  2017.         RETLW   0x08    ;06  
  2018.         RETLW   0x08    ;07  
  2019.         RETLW   0x08    ;08   
  2020.         RETLW   0x08    ;09   
  2021.         RETLW   0x08    ;0a   
  2022.         RETLW   0x08    ;0b   
  2023.         RETLW   0x08    ;0c   
  2024.         RETLW   0x08    ;0d   
  2025.      
  2026. ZKYL_SPEED09:
  2027. ORG    H'0890'
  2028. MOVF ZKYL_LEVEL,W
  2029. ADDWF PCL,0x01
  2030.         RETLW   0x09 ;00
  2031.    RETLW   0x09    ;01   
  2032.         RETLW   0x09    ;02  
  2033.         RETLW   0x09    ;03  
  2034.         RETLW   0x09    ;04  
  2035.         RETLW   0x09    ;05  
  2036.         RETLW   0x09    ;06  
  2037.         RETLW   0x09    ;07  
  2038.         RETLW   0x09    ;08   
  2039.         RETLW   0x09    ;09   
  2040.         RETLW   0x09    ;0a   
  2041.         RETLW   0x09    ;0b   
  2042.         RETLW   0x09    ;0c   
  2043.         RETLW   0x09    ;0d   
  2045. ZKYL_SPEED0A:
  2046. ORG    H'08A0'
  2047. MOVF ZKYL_LEVEL,W
  2048. ADDWF PCL,0x01
  2049.         RETLW   0x0A ;00
  2050.    RETLW   0x0A    ;01   
  2051.         RETLW   0x0A    ;02  
  2052.         RETLW   0x0A    ;03  
  2053.         RETLW   0x0A    ;04  
  2054.         RETLW   0x0A    ;05  
  2055.         RETLW   0x0A    ;06  
  2056.         RETLW   0x0A    ;07  
  2057.         RETLW   0x0A    ;08   
  2058.         RETLW   0x0A    ;09   
  2059.         RETLW   0x0A    ;0a   
  2060.         RETLW   0x0A    ;0b   
  2061.         RETLW   0x0A    ;0c   
  2062.         RETLW   0x0A    ;0d   
  2064. ZKYL_SPEED0B:
  2065. ORG    H'08B0'
  2066. MOVF ZKYL_LEVEL,W
  2067. ADDWF PCL,0x01
  2068.         RETLW   0x0B ;00
  2069.    RETLW   0x0B    ;01   
  2070.         RETLW   0x0B    ;02  
  2071.         RETLW   0x0B    ;03  
  2072.         RETLW   0x0B    ;04  
  2073.         RETLW   0x0B    ;05  
  2074.         RETLW   0x0B    ;06  
  2075.         RETLW   0x0B    ;07  
  2076.         RETLW   0x0B    ;08   
  2077.         RETLW   0x0B    ;09   
  2078.         RETLW   0x0B    ;0a   
  2079.         RETLW   0x0B    ;0b   
  2080.         RETLW   0x0B    ;0c   
  2081.         RETLW   0x0B    ;0d   
  2083. ZKYL_SPEED0C:
  2084. ORG    H'08C0'
  2085. MOVF ZKYL_LEVEL,W
  2086. ADDWF PCL,0x01
  2087.         RETLW   0x0C ;00
  2088.    RETLW   0x0C    ;01   
  2089.         RETLW   0x0C    ;02  
  2090.         RETLW   0x0C    ;03  
  2091.         RETLW   0x0C    ;04  
  2092.         RETLW   0x0C    ;05  
  2093.         RETLW   0x0C    ;06  
  2094.         RETLW   0x0C    ;07  
  2095.         RETLW   0x0C    ;08   
  2096.         RETLW   0x0C    ;09   
  2097.         RETLW   0x0C    ;0a   
  2098.         RETLW   0x0C    ;0b   
  2099.         RETLW   0x0C    ;0c   
  2100.         RETLW   0x0C    ;0d   
  2102. ZKYL_SPEED0D:
  2103. ORG    H'08D0'
  2104. MOVF ZKYL_LEVEL,W
  2105. ADDWF PCL,0x01
  2106.         RETLW   0x0D ;00
  2107.    RETLW   0x0D    ;01   
  2108.         RETLW   0x0D    ;02  
  2109.         RETLW   0x0D    ;03  
  2110.         RETLW   0x0D    ;04  
  2111.         RETLW   0x0D    ;05  
  2112.         RETLW   0x0D    ;06  
  2113.         RETLW   0x0D    ;07  
  2114.         RETLW   0x0D    ;08   
  2115.         RETLW   0x0D    ;09   
  2116.         RETLW   0x0D    ;0a   
  2117.         RETLW   0x0D    ;0b   
  2118.         RETLW   0x0D    ;0c   
  2119.         RETLW   0x0D    ;0d   
  2121. ZKYL_SPEEDOE:
  2122. ORG    H'08E0'
  2123. MOVF ZKYL_LEVEL,W
  2124. ADDWF PCL,0x01
  2125.         RETLW   0x6E ;00
  2126.    RETLW   0x6E    ;01   
  2127.         RETLW   0x6E    ;02  
  2128.         RETLW   0x6E    ;03  
  2129.         RETLW   0x6E    ;04  
  2130.         RETLW   0x6E    ;05  
  2131.         RETLW   0x6E    ;06  
  2132.         RETLW   0x6E    ;07  
  2133.         RETLW   0x6E    ;08   
  2134.         RETLW   0x6E    ;09   
  2135.         RETLW   0x6E    ;0a   
  2136.         RETLW   0x6E    ;0b   
  2137.         RETLW   0x6E    ;0c   
  2138.         RETLW   0x6E    ;0d   
  2140. ZKYL_SPEED0F:
  2141. ORG    H'08F0'
  2142. MOVF ZKYL_LEVEL,W
  2143. ADDWF PCL,0x01
  2144.         RETLW   0x0F ;00
  2145.    RETLW   0x0F    ;01   
  2146.         RETLW   0x0F    ;02  
  2147.         RETLW   0x0F    ;03  
  2148.         RETLW   0x0F    ;04  
  2149.         RETLW   0x0F    ;05  
  2150.         RETLW   0x0F    ;06  
  2151.         RETLW   0x0F    ;07  
  2152.         RETLW   0x0F    ;08   
  2153.         RETLW   0x0F    ;09   
  2154.         RETLW   0x0F    ;0a   
  2155.         RETLW   0x0F    ;0b   
  2156.         RETLW   0x0F    ;0c   
  2157.         RETLW   0x0F    ;0d   
  2158. ZKYL_SPEED10:
  2159. ORG    H'0900'
  2160. MOVF ZKYL_LEVEL,W
  2161. ADDWF PCL,0x01
  2162.         RETLW   0x00 ;00
  2163.    RETLW   0x00   ;01 
  2164.         RETLW   0x00    ;02 
  2165.         RETLW   0x00    ;03 
  2166.         RETLW   0x00    ;04
  2167.         RETLW   0x00    ;05
  2168.         RETLW   0x00    ;06
  2169.         RETLW   0x00    ;07
  2170.         RETLW   0x00    ;08  
  2171.         RETLW   0x00    ;09  
  2172.         RETLW   0x00    ;0a  
  2173.         RETLW   0x00    ;0b  
  2174.         RETLW   0x00    ;0c  
  2175.         RETLW   0x00    ;0d  
  2176. ZKYL_SPEED11:
  2177. ORG    H'0910'
  2178. MOVF ZKYL_LEVEL,W
  2179. ADDWF PCL,0x01
  2180.         RETLW   0x01 ;00
  2181.    RETLW   0x01    ;01  
  2182.         RETLW   0x01    ;02
  2183.         RETLW   0x01    ;03
  2184.         RETLW   0x01    ;04
  2185.         RETLW   0x01    ;05
  2186.         RETLW   0x01    ;06
  2187.         RETLW   0x01    ;07
  2188.         RETLW   0x01    ;08   
  2189.         RETLW   0x01    ;09   
  2190.         RETLW   0x01    ;0a   
  2191.         RETLW   0x01    ;0b   
  2192.         RETLW   0x01    ;0c   
  2193.         RETLW   0x01    ;0d   
  2195. ZKYL_SPEED12:
  2196. ORG    H'0920'
  2197. MOVF ZKYL_LEVEL,W
  2198. ADDWF PCL,0x01
  2199.         RETLW   0x02 ;00
  2200.    RETLW   0x02    ;01   
  2201.         RETLW   0x02    ;02  
  2202.         RETLW   0x02    ;03  
  2203.         RETLW   0x02    ;04  
  2204.         RETLW   0x02    ;05  
  2205.         RETLW   0x02    ;06  
  2206.         RETLW   0x02    ;07  
  2207.         RETLW   0x02    ;08   
  2208.         RETLW   0x02    ;09   
  2209.         RETLW   0x02    ;0a   
  2210.         RETLW   0x02    ;0b   
  2211.         RETLW   0x02    ;0c   
  2212.         RETLW   0x02    ;0d   
  2213. ZKYL_SPEED13:
  2214. ORG    H'0930'
  2215. MOVF ZKYL_LEVEL,W
  2216. ADDWF PCL,0x01
  2217.         RETLW   0x03 ;00
  2218.    RETLW   0x03    ;01   
  2219.         RETLW   0x03    ;02  
  2220.         RETLW   0x03    ;03  
  2221.         RETLW   0x03    ;04  
  2222.         RETLW   0x03    ;05  
  2223.         RETLW   0x03    ;06  
  2224.         RETLW   0x03    ;07  
  2225.         RETLW   0x03    ;08   
  2226.         RETLW   0x03    ;09   
  2227.         RETLW   0x03    ;0a   
  2228.         RETLW   0x03    ;0b   
  2229.         RETLW   0x03    ;0c   
  2230.         RETLW   0x03    ;0d   
  2231. ZKYL_SPEED14:
  2232. ORG    H'0940'
  2233. MOVF ZKYL_LEVEL,W
  2234. ADDWF PCL,0x01
  2235.         RETLW   0x04 ;00
  2236.    RETLW   0x04    ;01   
  2237.         RETLW   0x04    ;02  
  2238.         RETLW   0x04    ;03  
  2239.         RETLW   0x04    ;04  
  2240.         RETLW   0x04    ;05  
  2241.         RETLW   0x04    ;06  
  2242.         RETLW   0x04    ;07  
  2243.         RETLW   0x04    ;08   
  2244.         RETLW   0x04    ;09   
  2245.         RETLW   0x04    ;0a   
  2246.         RETLW   0x04    ;0b   
  2247.         RETLW   0x04    ;0c   
  2248.         RETLW   0x04    ;0d   
  2250. ZKYL_SPEED15:
  2251. ORG    H'0950'
  2252. MOVF ZKYL_LEVEL,W
  2253. ADDWF PCL,0x01
  2254.         RETLW   0x05 ;00
  2255.    RETLW   0x05    ;01   
  2256.         RETLW   0x05    ;02  
  2257.         RETLW   0x05    ;03  
  2258.         RETLW   0x05    ;04  
  2259.         RETLW   0x05    ;05  
  2260.         RETLW   0x05    ;06  
  2261.         RETLW   0x05    ;07  
  2262.         RETLW   0x05    ;08   
  2263.         RETLW   0x05    ;09   
  2264.         RETLW   0x05    ;0a   
  2265.         RETLW   0x05    ;0b   
  2266.         RETLW   0x05    ;0c   
  2267.         RETLW   0x05    ;0d   
  2269. ZKYL_SPEED16:
  2270. ORG    H'0960'
  2271. MOVF ZKYL_LEVEL,W
  2272. ADDWF PCL,0x01
  2273.         RETLW   0x06 ;00
  2274.    RETLW   0x06    ;01   
  2275.         RETLW   0x06    ;02  
  2276.         RETLW   0x06    ;03  
  2277.         RETLW   0x06    ;04  
  2278.         RETLW   0x06    ;05  
  2279.         RETLW   0x06    ;06  
  2280.         RETLW   0x06    ;07  
  2281.         RETLW   0x06    ;08   
  2282.         RETLW   0x06    ;09   
  2283.         RETLW   0x06    ;0a   
  2284.         RETLW   0x06    ;0b   
  2285.         RETLW   0x06    ;0c   
  2286.         RETLW   0x06    ;0d   
  2287.  
  2288. ZKYL_SPEED17:
  2289. ORG    H'0970'
  2290. MOVF ZKYL_LEVEL,W
  2291. ADDWF PCL,0x01
  2292.         RETLW   0x07 ;00
  2293.    RETLW   0x07    ;01   
  2294.         RETLW   0x07    ;02  
  2295.         RETLW   0x07    ;03  
  2296.         RETLW   0x07    ;04  
  2297.         RETLW   0x07    ;05  
  2298.         RETLW   0x07    ;06  
  2299.         RETLW   0x07    ;07  
  2300.         RETLW   0x07    ;08   
  2301.         RETLW   0x07    ;09   
  2302.         RETLW   0x07    ;0a   
  2303.         RETLW   0x07    ;0b   
  2304.         RETLW   0x07    ;0c   
  2305.         RETLW   0x07    ;0d   
  2307. ZKYL_SPEED18:
  2308. ORG    H'0980'
  2309. MOVF ZKYL_LEVEL,W
  2310. ADDWF PCL,0x01
  2311.         RETLW   0x08 ;00
  2312.    RETLW   0x08    ;01   
  2313.         RETLW   0x08    ;02  
  2314.         RETLW   0x08    ;03  
  2315.         RETLW   0x08    ;04  
  2316.         RETLW   0x08    ;05  
  2317.         RETLW   0x08    ;06  
  2318.         RETLW   0x08    ;07  
  2319.         RETLW   0x08    ;08   
  2320.         RETLW   0x08    ;09   
  2321.         RETLW   0x08    ;0a   
  2322.         RETLW   0x08    ;0b   
  2323.         RETLW   0x08    ;0c   
  2324.         RETLW   0x08    ;0d   
  2325.      
  2326. ZKYL_SPEED19:
  2327. ORG    H'0990'
  2328. MOVF ZKYL_LEVEL,W
  2329. ADDWF PCL,0x01
  2330.         RETLW   0x09 ;00
  2331.    RETLW   0x09    ;01   
  2332.         RETLW   0x09    ;02  
  2333.         RETLW   0x09    ;03  
  2334.         RETLW   0x09    ;04  
  2335.         RETLW   0x09    ;05  
  2336.         RETLW   0x09    ;06  
  2337.         RETLW   0x09    ;07  
  2338.         RETLW   0x09    ;08   
  2339.         RETLW   0x09    ;09   
  2340.         RETLW   0x09    ;0a   
  2341.         RETLW   0x09    ;0b   
  2342.         RETLW   0x09    ;0c   
  2343.         RETLW   0x09    ;0d   
  2345. ZKYL_SPEED1A:
  2346. ORG    H'09A0'
  2347. MOVF ZKYL_LEVEL,W
  2348. ADDWF PCL,0x01
  2349.         RETLW   0x0A ;00
  2350.    RETLW   0x0A    ;01   
  2351.         RETLW   0x0A    ;02  
  2352.         RETLW   0x0A    ;03  
  2353.         RETLW   0x0A    ;04  
  2354.         RETLW   0x0A    ;05  
  2355.         RETLW   0x0A    ;06  
  2356.         RETLW   0x0A    ;07  
  2357.         RETLW   0x0A    ;08   
  2358.         RETLW   0x0A    ;09   
  2359.         RETLW   0x0A    ;0a   
  2360.         RETLW   0x0A    ;0b   
  2361.         RETLW   0x0A    ;0c   
  2362.         RETLW   0x0A    ;0d   
  2364. ZKYL_SPEED1B:
  2365. ORG    H'09B0'
  2366. MOVF ZKYL_LEVEL,W
  2367. ADDWF PCL,0x01
  2368.         RETLW   0x0B ;00
  2369.    RETLW   0x0B    ;01   
  2370.         RETLW   0x0B    ;02  
  2371.         RETLW   0x0B    ;03  
  2372.         RETLW   0x0B    ;04  
  2373.         RETLW   0x0B    ;05  
  2374.         RETLW   0x0B    ;06  
  2375.         RETLW   0x0B    ;07  
  2376.         RETLW   0x0B    ;08   
  2377.         RETLW   0x0B    ;09   
  2378.         RETLW   0x0B    ;0a   
  2379.         RETLW   0x0B    ;0b   
  2380.         RETLW   0x0B    ;0c   
  2381.         RETLW   0x0B    ;0d   
  2383. ZKYL_SPEED1C:
  2384. ORG    H'09C0'
  2385. MOVF ZKYL_LEVEL,W
  2386. ADDWF PCL,0x01
  2387.         RETLW   0x0C ;00
  2388.    RETLW   0x0C    ;01   
  2389.         RETLW   0x0C    ;02  
  2390.         RETLW   0x0C    ;03  
  2391.         RETLW   0x0C    ;04  
  2392.         RETLW   0x0C    ;05  
  2393.         RETLW   0x0C    ;06  
  2394.         RETLW   0x0C    ;07  
  2395.         RETLW   0x0C    ;08   
  2396.         RETLW   0x0C    ;09   
  2397.         RETLW   0x0C    ;0a   
  2398.         RETLW   0x0C    ;0b   
  2399.         RETLW   0x0C    ;0c   
  2400.         RETLW   0x0C    ;0d   
  2402. ZKYL_SPEED1D:
  2403. ORG    H'09D0'
  2404. MOVF ZKYL_LEVEL,W
  2405. ADDWF PCL,0x01
  2406.         RETLW   0x0D ;00
  2407.    RETLW   0x0D    ;01   
  2408.         RETLW   0x0D    ;02  
  2409.         RETLW   0x0D    ;03  
  2410.         RETLW   0x0D    ;04  
  2411.         RETLW   0x0D    ;05  
  2412.         RETLW   0x0D    ;06  
  2413.         RETLW   0x0D    ;07  
  2414.         RETLW   0x0D    ;08   
  2415.         RETLW   0x0D    ;09   
  2416.         RETLW   0x0D    ;0a   
  2417.         RETLW   0x0D    ;0b   
  2418.         RETLW   0x0D    ;0c   
  2419.         RETLW   0x0D    ;0d   
  2421. ZKYL_SPEED1E:
  2422. ORG    H'09E0'
  2423. MOVF ZKYL_LEVEL,W
  2424. ADDWF PCL,0x01
  2425.         RETLW   0x0E ;00
  2426.    RETLW   0x0E    ;01   
  2427.         RETLW   0x0E    ;02  
  2428.         RETLW   0x0E    ;03  
  2429.         RETLW   0x0E    ;04  
  2430.         RETLW   0x0E    ;05  
  2431.         RETLW   0x0E    ;06  
  2432.         RETLW   0x0E    ;07  
  2433.         RETLW   0x0E    ;08   
  2434.         RETLW   0x0E    ;09   
  2435.         RETLW   0x0E    ;0a   
  2436.         RETLW   0x0E    ;0b   
  2437.         RETLW   0x0E    ;0c   
  2438.         RETLW   0x0E    ;0d   
  2440. ZKYL_SPEED1F:
  2441. ORG    H'09F0'
  2442. MOVF ZKYL_LEVEL,W
  2443. ADDWF PCL,0x01
  2444.         RETLW   0x0F ;00
  2445.    RETLW   0x0F    ;01   
  2446.         RETLW   0x0F    ;02  
  2447.         RETLW   0x0F    ;03  
  2448.         RETLW   0x0F    ;04  
  2449.         RETLW   0x0F    ;05  
  2450.         RETLW   0x0F    ;06  
  2451.         RETLW   0x0F    ;07  
  2452.         RETLW   0x0F    ;08   
  2453.         RETLW   0x0F    ;09   
  2454.         RETLW   0x0F    ;0a   
  2455.         RETLW   0x0F    ;0b   
  2456.         RETLW   0x0F    ;0c   
  2457.         RETLW   0x0F    ;0d   
  2460. ;=========================SPEED ADDRESS FIND TABLE===========================
  2461. ;========速度查找表，用来查找速度分隔，确定在转速==================================
  2462. ;============================================================================
  2463. ORG H'A00'
  2464. MOVF PERIOD_ADDR,W
  2465.         ADDWF   PCL, 0x01
  2466. RETLW   0x17  ;00  
  2467. RETLW   0x17  ;01  
  2468. RETLW   0x17  ;02  
  2469. RETLW   0x17  ;03  
  2470. RETLW   0x17  ;04  
  2471. RETLW   0x17  ;05  
  2472. RETLW   0x17  ;06  
  2473. RETLW   0x17  ;07  
  2474. RETLW   0x17  ;08  
  2475. RETLW   0x17  ;09  
  2476. RETLW   0x17  ;0a  
  2477. RETLW   0x17  ;0b  
  2478. RETLW   0x17  ;0c  
  2479. RETLW   0x17  ;0d  
  2480. RETLW   0x17  ;0e  
  2481. RETLW   0x17  ;0f  
  2482. RETLW   0x17  ;10  
  2483. RETLW   0x17  ;11  
  2484. RETLW   0x17  ;12  
  2485. RETLW   0x17  ;13  
  2486. RETLW   0x17  ;14
  2487. RETLW   0x17  ;15  ;7000 171 ab 15 ;16 
  2488. RETLW   0x17  ;16  
  2490. RETLW   0x16  ;17   ;6500 184 b8 17 ;15
  2492. RETLW   0x15 ;18   ;6000 200 c8 18 ;14
  2493. RETLW   0x15  ;19  
  2495. RETLW   0x14  ;1a  
  2496. RETLW   0x14  ;1b   ;5500 218 da 1b ;13
  2497. RETLW   0x14  ;1c  
  2499. RETLW   0x13  ;1d  
  2500. RETLW   0x13  ;1e   ;5000 240 f0 1e ;12
  2501. RETLW   0x13  ;1f  
  2503. RETLW   0x12  ;20  
  2504. RETLW   0x12  ;21   ;4500 266 10a 21 ;11
  2505. RETLW   0x12  ;22  
  2506. RETLW   0x12  ;23  
  2508. RETLW   0x11  ;24  
  2509. RETLW   0x11  ;25   ;4000 300 12c 25 ;10
  2510. RETLW   0x11  ;26  
  2511. RETLW   0x11  ;27  
  2513. RETLW   0x10  ;28  
  2514. RETLW   0x10  ;29  
  2515. RETLW   0x10  ;2a   ;3500 342 156 2a ;0f
  2516. RETLW   0x10  ;2b  
  2517. RETLW   0x10  ;2c  
  2518. RETLW   0x10  ;2d  
  2520. RETLW   0x0f  ;2e  
  2521. RETLW   0x0f  ;2f  
  2522. RETLW   0x0f  ;30  
  2523. RETLW   0x0f  ;31  
  2524. RETLW   0x0f  ;32   ;3000 400 190 32 ;0e
  2525. RETLW   0x0f  ;33  
  2527. RETLW   0x0e  ;34  
  2528. RETLW   0x0e  ;35 ;2800 428 1ac 35 ;0d
  2529. RETLW   0x0e  ;36  
  2530. RETLW   0x0e  ;37  
  2532. RETLW   0x0d  ;38  
  2533. RETLW   0x0d  ;39   ;2600 461 1cd 39 ;0c
  2534. RETLW   0x0d  ;3a  
  2535. RETLW   0x0d  ;3b  
  2537. RETLW   0x0c  ;3c  
  2538. RETLW   0x0c  ;3d  
  2539. RETLW   0xc  ;3e   ;2400 500 1f4 3e ;0b
  2540. RETLW   0xc  ;3f  
  2541. RETLW   0xc  ;40
  2543. RETLW   0xb  ;41   
  2544. RETLW   0xb  ;42  
  2545. RETLW   0xb  ;43  
  2546. RETLW   0x0b  ;44   ;2200 545 221 44 ;0a
  2547. RETLW   0x0b  ;45  
  2548. RETLW   0x0b  ;46  
  2549. RETLW   0x0b  ;47  
  2551. RETLW   0x0a  ;48  
  2552. RETLW   0x0a  ;49  
  2553. RETLW   0x0a  ;4a  
  2554. RETLW   0x0a  ;4b   ;2000 600 258 4b ;09
  2555. RETLW   0x0a  ;4c  
  2556. RETLW   0x0a  ;4d  
  2557. RETLW   0x0a  ;4e  
  2558. RETLW   0x0a  ;4f  
  2560. RETLW   0x09  ;50  
  2561. RETLW   0x09  ;51  
  2562. RETLW   0x09  ;52  
  2563. RETLW   0x09  ;53   ;1800 666 29a 53 ;08
  2564. RETLW   0x09  ;54  
  2565. RETLW   0x09  ;55
  2566. RETLW   0x09  ;56  
  2567. RETLW   0x09  ;57  
  2568. RETLW   0x09  ;58  
  2570. RETLW   0x08  ;59  
  2571. RETLW   0x08  ;5a  
  2572. RETLW   0x08  ;5b  
  2573. RETLW   0x08  ;5c  
  2574. RETLW   0x8   ;5d   ;1600 750 2ee 5d ;07
  2575. RETLW   0x8  ;5e  
  2576. RETLW   0x8  ;5f  
  2577. RETLW   0x08  ;60  
  2578. RETLW   0x08  ;61  
  2579. RETLW   0x08  ;62  
  2580. RETLW   0x08  ;63  
  2581. RETLW   0x08  ;64  
  2583. RETLW   0x07  ;65  
  2584. RETLW   0x07  ;66  
  2585. RETLW   0x07  ;67  
  2586. RETLW   0x07  ;68  
  2587. RETLW   0x07  ;69  
  2588. RETLW   0x07  ;6a  
  2589. RETLW   0x07  ;6b   ;1400 857 359 6b ;06
  2590. RETLW   0x07  ;6c  
  2591. RETLW   0x07  ;6d  
  2592. RETLW   0x07  ;6e  
  2593. RETLW   0x07  ;6f  
  2594. RETLW   0x07  ;70  
  2595. RETLW   0x07  ;71  
  2596. RETLW   0x07  ;72 
  2597. RETLW   0x07  ;73  
  2599. RETLW   0x06  ;74  
  2600. RETLW   0x06  ;75
  2601. RETLW   0x06  ;76  
  2602. RETLW   0x06  ;77  
  2603. RETLW   0x06  ;78  
  2604. RETLW   0x06  ;79  
  2605. RETLW   0x06  ;7a  
  2606. RETLW   0x06  ;7b  
  2607. RETLW   0x06  ;7c   ;1200 1000 3e3 7c ;05
  2608. RETLW   0x06  ;7d  
  2609. RETLW   0x06 ;7e  
  2610. RETLW   0x06  ;7f  
  2611. RETLW   0x06  ;80  
  2612. RETLW   0x06  ;81  
  2613. RETLW   0x06  ;82  
  2614. RETLW   0x06  ;83  
  2615. RETLW   0x06  ;84  
  2616. RETLW   0x06  ;85  
  2617. RETLW   0x06  ;86  
  2618. RETLW   0x06  ;87  
  2619. RETLW   0x06  ;88  
  2621. RETLW   0x05  ;89  
  2622. RETLW   0x05  ;8a  
  2623. RETLW   0x05  ;8b  
  2624. RETLW   0x05  ;8c  
  2625. RETLW   0x05  ;8d  
  2626. RETLW   0x05  ;8e  
  2627. RETLW   0x05  ;8f  
  2628. RETLW   0x05  ;90  
  2629. RETLW   0x05  ;91  
  2630. RETLW   0x05  ;92  
  2631. RETLW   0x05  ;93  
  2632. RETLW   0x05  ;94  
  2633. RETLW   0x05  ;95
  2634. RETLW   0x05  ;96   ;1000 1200 4b0 96 ;04
  2635. RETLW   0x05  ;97  
  2636. RETLW   0x05  ;98  
  2637. RETLW   0x05  ;99  
  2638. RETLW   0x05  ;9a  
  2639. RETLW   0x05  ;9b  
  2640. RETLW   0x05  ;9c  
  2641. RETLW   0x05  ;9d  
  2642. RETLW   0x05 ;9e  
  2644. RETLW   0x04  ;9f
  2645. RETLW   0x04  ;a0  
  2646. RETLW   0x04  ;a1  
  2647. RETLW   0x04  ;a2  
  2648. RETLW   0x04  ;a3  
  2649. RETLW   0x04  ;a4  
  2650. RETLW   0x04  ;a5  
  2651. RETLW   0x04  ;a6   ;900 1333 535 a6 ;03
  2652. RETLW   0x04  ;a7  
  2653. RETLW   0x04  ;a8  
  2654. RETLW   0x04  ;a9  
  2655. RETLW   0x04  ;aa  
  2656. RETLW   0x04  ;ab  
  2657. RETLW   0x04  ;ac  
  2658. RETLW   0x04  ;ad  
  2659. RETLW   0x04  ;ae  
  2660. RETLW   0x04  ;af  
  2661. RETLW   0x04  ;b0 
  2662.  
  2663. RETLW   0x03  ;b1  
  2664. RETLW   0x03  ;b2  
  2665. RETLW   0x03  ;b3  
  2666. RETLW   0x03  ;b4  
  2667. RETLW   0x03   ;b5
  2668. RETLW   0x03  ;b6  
  2669. RETLW   0x03  ;b7  
  2670. RETLW   0x03  ;b8  
  2671. RETLW   0x03  ;b9  
  2672. RETLW   0x03  ;ba  
  2673. RETLW   0x03  ;bb   ;800 1500 5dc bb ;02
  2674. RETLW   0x03  ;bc  
  2675. RETLW   0x03  ;bd  
  2676. RETLW   0x03 ;be  
  2677. RETLW   0x03  ;bf  
  2678. RETLW   0x03  ;c0  
  2679. RETLW   0x03  ;c1  
  2680. RETLW   0x03  ;c2  
  2681. RETLW   0x03  ;c3  
  2682. RETLW   0x03  ;c4  
  2683. RETLW   0x03  ;c5  
  2684. RETLW   0x03  ;c6  
  2685. RETLW   0x03  ;c7  
  2686. RETLW   0x03  ;c8  
  2688. RETLW   0x02  ;c9  
  2689. RETLW   0x02  ;ca  
  2690. RETLW   0x02  ;cb  
  2691. RETLW   0x02  ;cc  
  2692. RETLW   0x02  ;cd  
  2693. RETLW   0x02  ;ce  
  2694. RETLW   0x02  ;cf  
  2695. RETLW   0x02  ;d0  
  2696. RETLW   0x02  ;d1  
  2697. RETLW   0x02  ;d2  
  2698. RETLW   0x02  ;d3  
  2699. RETLW   0x02  ;d4  
  2700. RETLW   0x02  ;d5
  2701. RETLW   0x2  ;d6   ;700 1714 6b2 d6 ;01
  2702. RETLW   0x2  ;d7    
  2703. RETLW   0x2  ;d8  
  2704. RETLW   0x2  ;d9  
  2705. RETLW   0x2  ;da  
  2706. RETLW   0x2  ;db  
  2707. RETLW   0x2  ;dc  
  2708. RETLW   0x2  ;dd  
  2709. RETLW   0x2 ;de  
  2710. RETLW   0x2  ;df  
  2711. RETLW   0x2  ;e0  
  2712. RETLW   0x2  ;e1  
  2713. RETLW   0x2  ;e2  
  2714. RETLW   0x2  ;e3  
  2715. RETLW   0x2  ;e4  
  2716. RETLW   0x2  ;e5  
  2717. RETLW   0x2  ;e6  
  2718. RETLW   0x2  ;e7  
  2719. RETLW   0x2  ;e8  
  2721. RETLW   0x1  ;e9  
  2722. RETLW   0x1  ;ea  
  2723. RETLW   0x1  ;eb  
  2724. RETLW   0x1  ;ec  
  2725. RETLW   0x1  ;ed  
  2726. RETLW   0x1  ;ee  
  2727. RETLW   0x1  ;ef  
  2728. RETLW   0x1  ;f0  
  2729. RETLW   0x1  ;f1  
  2730. RETLW   0x1  ;f2  
  2731. RETLW   0x1  ;f3  
  2732. RETLW   0x1  ;f4
  2733. RETLW   0x1  ;f5  
  2734. RETLW   0x1  ;f6  
  2735. RETLW   0x1  ;f7  
  2736. RETLW   0x1  ;f8  
  2737. RETLW   0x1  ;f9  
  2738. RETLW   0x1  ;fa   ;600 2000 7d0 fa ;00
  2739. RETLW   0x0  ;fb  
  2740. RETLW   0x0  ;fc  
  2742. RETLW   0x0  ;fd                                            
  2743. ;==========================================================================
  2744. ;==========喷油脉款分级查找表=================================================
  2745. ;==========================================================================
  2746. ORG H'B00'
  2747. PYMK_LEVEL_TABLE:
  2748. MOVF PYMK,W ;
  2749.         ADDWF   PCL,0x01;
  2750. RETLW   0x00  ;00  
  2751. RETLW   0x00  ;01  
  2752. RETLW   0x00  ;02  
  2753. RETLW   0x00  ;03  
  2754. RETLW   0x00  ;04  
  2755. RETLW   0x00  ;05  
  2756. RETLW   0x00  ;06  
  2757. RETLW   0x00  ;07  
  2758. RETLW   0x00  ;08  
  2759. RETLW   0x00  ;09  
  2760. RETLW   0x00  ;0a  
  2761. RETLW   0x00  ;0b  
  2762. RETLW   0x00  ;0c  
  2763. RETLW   0x00  ;0d  
  2765. RETLW   0x01  ;0e  
  2766. RETLW   0x01  ;0f   ;1.5MS IS 0
  2767. RETLW   0x01  ;10  
  2769. RETLW   0x02  ;11  
  2770. RETLW   0x02  ;12   ;1.8   IS 1
  2771. RETLW   0x02  ;13
  2773. RETLW   0x3   ;14  
  2774. RETLW   0x3   ;15   ;2.1 IS 2
  2775. RETLW   0x3   ;16  
  2777. RETLW   0x4  ;17  
  2778. RETLW   0x4   ;18 ;2.4 IS 3   
  2779. RETLW   0x4   ;19  
  2781. RETLW   0x5   ;1a  
  2782. RETLW   0x5   ;1b  ;2.7 IS 4 
  2783. RETLW   0x5   ;1c  
  2785. RETLW   0x6   ;1d  
  2786. RETLW   0x6   ;1e   ;3.0 IS 5
  2787. RETLW   0x6   ;1f  
  2788. RETLW   0x6   ;20
  2789.   
  2790. RETLW   0x7   ;21  
  2791. RETLW   0x7   ;22  
  2792. RETLW   0x7   ;23   ;35 IS 6
  2793. RETLW   0x7   ;24  
  2794. RETLW   0x7   ;25
  2796. RETLW   0x8   ;26  
  2797. RETLW   0x8   ;27  
  2798. RETLW   0x8   ;28   ;40  IS 7
  2799. RETLW   0x8   ;29  
  2800. RETLW   0x8   ;2a  
  2802. RETLW   0x9   ;2b  
  2803. RETLW   0x09  ;2c  
  2804. RETLW   0x09  ;2d   ;45 IS 8
  2805. RETLW   0x09  ;2e  
  2806. RETLW   0x09  ;2f  
  2808. RETLW   0x0a  ;30  
  2809. RETLW   0x0a  ;31  
  2810. RETLW   0x0a  ;32   ;50    IS 9
  2811. RETLW   0x0a  ;33
  2812. RETLW   0x0a  ;34  
  2813. RETLW   0x0a  ;35  
  2814. RETLW   0x0a  ;36  
  2815. RETLW   0x0a  ;37  
  2817. RETLW   0x0b  ;38  
  2818. RETLW   0x0b  ;39  
  2819. RETLW   0x0b  ;3a  
  2820. RETLW   0x0b  ;3b  
  2821. RETLW   0x0b  ;3c   ;60  IS A
  2822. RETLW   0xb ;3d  
  2823. RETLW   0xb  ;3e 
  2824. RETLW   0xb  ;3f  
  2825. RETLW   0xb  ;40  
  2826. RETLW   0xb  ;41  
  2828. RETLW   0xc  ;42  
  2829. RETLW   0x0c  ;43  
  2830. RETLW   0x0c  ;44  
  2831. RETLW   0x0c  ;45  
  2832. RETLW   0x0c  ;46   ;70  IS B
  2833. RETLW   0x0c  ;47  
  2834. RETLW   0x0c  ;48  
  2835. RETLW   0x0c  ;49  
  2836. RETLW   0x0c  ;4a  
  2837. RETLW   0x0c  ;4b  
  2839. RETLW   0x0d  ;4c  
  2840. RETLW   0x0d  ;4d  
  2841. RETLW   0x0d  ;4e  
  2842. RETLW   0x0d  ;4f  
  2843. RETLW   0x0d  ;50   ;80  IS C
  2844. RETLW   0x0d  ;51  
  2845. RETLW   0x0d  ;52  
  2846. RETLW   0x0d  ;53
  2847. RETLW   0x0d  ;54  
  2848. RETLW   0x0d  ;55
  2849.   
  2850. RETLW   0x0e  ;56  
  2851. RETLW   0x0e  ;57  
  2852. RETLW   0x0e  ;58  
  2853. RETLW   0x0e  ;59  
  2854. RETLW   0x0e  ;5a   ;90 IS D
  2855. RETLW   0x0e  ;5b  
  2856. RETLW   0xe  ;5c  
  2857. RETLW   0xe  ;5d  
  2858. RETLW   0xe  ;5e  
  2859. RETLW   0x0e  ;5f  
  2861. RETLW   0x0f  ;60  
  2862. RETLW   0x0f  ;61  
  2863. RETLW   0x0f  ;62  
  2864. RETLW   0x0f  ;63  
  2865. RETLW   0x0f  ;64   ;100   IS E
  2866. RETLW   0x0f  ;65  
  2867. RETLW   0x0f  ;66  
  2868. RETLW   0x0f  ;67  
  2869. RETLW   0x0f  ;68  
  2870. RETLW   0x0f  ;69  
  2872. RETLW   0x10  ;6a  
  2873. RETLW   0x10  ;6b  
  2874. RETLW   0x10  ;6c  
  2875. RETLW   0x10  ;6d  
  2876. RETLW   0x10  ;6e   ;110 IS F
  2877. RETLW   0x10  ;6f  
  2878. RETLW   0x10  ;70  
  2879. RETLW   0x10  ;71  
  2880. RETLW   0x10  ;72  
  2881. RETLW   0x10  ;73
  2883. RETLW   0x11  ;74  
  2884. RETLW   0x11  ;75  
  2885. RETLW   0x11  ;76  
  2886. RETLW   0x11  ;77  
  2887. RETLW   0x11  ;78   ;120 IS 10
  2888. RETLW   0x11  ;79  
  2889. RETLW   0x11  ;7a  
  2890. RETLW   0x11  ;7b  
  2891. RETLW   0x11  ;7c  
  2892. RETLW   0x11 ;7d  
  2893. RETLW   0x11  ;7e  
  2894. RETLW   0x11  ;7f  
  2895. RETLW   0x11  ;80  
  2896. RETLW   0x11  ;81  
  2898. RETLW   0x12  ;82  
  2899. RETLW   0x12  ;83  
  2900. RETLW   0x12  ;84  
  2901. RETLW   0x12  ;85  
  2902. RETLW   0x12  ;86  
  2903. RETLW   0x12  ;87  
  2904. RETLW   0x12  ;88  
  2905. RETLW   0x12  ;89  
  2906. RETLW   0x12  ;8a  
  2907. RETLW   0x12  ;8b  
  2908. RETLW   0x12  ;8c   ;140 IS  11
  2909. RETLW   0x12  ;8d  
  2910. RETLW   0x12  ;8e  
  2911. RETLW   0x12  ;8f  
  2912. RETLW   0x12  ;90  
  2913. RETLW   0x12  ;91  
  2914. RETLW   0x12  ;92  
  2915. RETLW   0x12  ;93
  2916. RETLW   0x12  ;94  
  2917. RETLW   0x12  ;95  
  2918. RETLW   0x12  ;96  
  2920. RETLW   0x13  ;97  
  2921. RETLW   0x13  ;98  
  2922. RETLW   0x13  ;99  
  2923. RETLW   0x13  ;9a  
  2924. RETLW   0x13  ;9b  
  2925. RETLW   0x13  ;9c  
  2926. RETLW   0x13 ;9d
  2927. RETLW   0x13  ;9e  
  2928. RETLW   0x13  ;9f  
  2929. RETLW   0x13  ;a0   ;160 IS 12
  2930. RETLW   0x13  ;a1  
  2931. RETLW   0x13  ;a2  
  2932. RETLW   0x13  ;a3  
  2933. RETLW   0x13  ;a4  
  2934. RETLW   0x13  ;a5  
  2935. RETLW   0x13  ;a6  
  2936. RETLW   0x13  ;a7  
  2937. RETLW   0x13  ;a8  
  2938. RETLW   0x13  ;a9  
  2939. RETLW   0x13  ;aa  
  2941. RETLW   0x14  ;ab  
  2942. RETLW   0x14  ;ac  
  2943. RETLW   0x14  ;ad  
  2944. RETLW   0x14  ;ae  
  2945. RETLW   0x14  ;af  
  2946. RETLW   0x14  ;b0  
  2947. RETLW   0x14  ;b1  
  2948. RETLW   0x14  ;b2  
  2949. RETLW   0x14  ;b3
  2950. RETLW   0x14   ;b4   ;180   is 13
  2951. RETLW   0x14  ;b5  
  2952. RETLW   0x14  ;b6  
  2953. RETLW   0x14  ;b7  
  2954. RETLW   0x14  ;b8  
  2955. RETLW   0x14  ;b9  
  2956. RETLW   0x14  ;ba  
  2957. RETLW   0x14  ;bb  
  2958. RETLW   0x14  ;bc  
  2959. RETLW   0x14 ;bd  
  2960. RETLW   0x14  ;be  
  2961. RETLW   0x14  ;bf  
  2962. RETLW   0x14  ;c0  
  2963. RETLW   0x14  ;c1  
  2964. RETLW   0x14  ;c2  
  2965. RETLW   0x14  ;c3  
  2966. RETLW   0x14  ;c4  
  2967. RETLW   0x14  ;c5  
  2968. RETLW   0x14  ;c6  
  2969. RETLW   0x14  ;c7  
  2970. RETLW   0x14  ;c8  
  2971. RETLW   0x14  ;c9  
  2972. RETLW   0x14  ;ca  
  2973. RETLW   0x14  ;cb  
  2974. RETLW   0x14  ;cc  
  2975. RETLW   0x14  ;cd  
  2976. RETLW   0x14  ;ce  
  2977. RETLW   0x14  ;cf  
  2978. RETLW   0x14  ;d0  
  2979. RETLW   0x14  ;d1  
  2980. RETLW   0x14  ;d2  
  2981. RETLW   0x14  ;d3
  2982. RETLW   0x14  ;d4  
  2983. RETLW   0x14  ;d5  
  2984. RETLW   0x14  ;d6  
  2985. RETLW   0x14  ;d7  
  2986. RETLW   0x14  ;d8  
  2987. RETLW   0x14  ;d9  
  2988. RETLW   0x14  ;da  
  2989. RETLW   0x14  ;db  
  2990. RETLW   0x14  ;dc  
  2991. RETLW   0x14 ;dd  
  2992. RETLW   0x14  ;de  
  2993. RETLW   0x14  ;df  
  2994. RETLW   0x14  ;e0  
  2995. RETLW   0x14  ;e1  
  2996. RETLW   0x14  ;e2  
  2997. RETLW   0x14  ;e3  
  2998. RETLW   0x14  ;e4  
  2999. RETLW   0x14  ;e5  
  3000. RETLW   0x14  ;e6  
  3001. RETLW   0x14  ;e7  
  3002. RETLW   0x14  ;e8  
  3003. RETLW   0x14  ;e9  
  3004. RETLW   0x14  ;ea  
  3005. RETLW   0x14  ;eb  
  3006. RETLW   0x14  ;ec  
  3007. RETLW   0x14  ;ed  
  3008. RETLW   0x14  ;ee  
  3009. RETLW   0x14  ;ef  
  3010. RETLW   0x14  ;f0  
  3011. RETLW   0x14  ;f1  
  3012. RETLW   0x14  ;f2  
  3013. RETLW   0x14  ;f3
  3014. RETLW   0x14  ;f4  
  3015. RETLW   0x14  ;f5  
  3016. RETLW   0x14  ;f6  
  3017. RETLW   0x14  ;f7  
  3018. RETLW   0x14  ;f8  
  3019. RETLW   0x14  ;f9  
  3020. RETLW   0x14  ;fa  
  3021. RETLW   0x14  ;fb  
  3022. RETLW   0x14  ;fc  
  3023. RETLW   0x14 ;fd  
  3024. ;==========================================================================
  3025. ;===========转速-脉宽-延迟===================================================
  3026. ;==========================================================================
  3027. ORG    H'0C00'
  3028. SPEED00:MOVF PYMK_LEVEL,W
  3029.         ADDWF PCL ,0x1
  3030.         RETLW   0xaa    ;02        
  3031.         RETLW   0x13    ;03 
  3032.         RETLW   0x14    ;04
  3033.         RETLW   0x15    ;05
  3034.         RETLW   0x01    ;06
  3035.         RETLW   0x17    ;07
  3036.         RETLW   0x18    ;08  
  3037.         RETLW   0x19    ;09  
  3038.         RETLW   0x1a    ;0a  
  3039.         RETLW   0x1b    ;0b  
  3040.         RETLW   0x1c    ;0c  
  3041.         RETLW   0x1d    ;0d  
  3042.         RETLW   0x1e    ;0e  
  3043.         RETLW   0x1f    ;0f  
  3044.         RETLW   0x20    ;10  
  3045.         RETLW   0x21    ;11  
  3046.         RETLW   0x22    ;12  
  3047.         RETLW   0x23    ;13  
  3048.         RETLW   0x24    ;14  
  3049.         RETLW   0x25    ;15  
  3050.         RETLW   0x26    ;16  
  3051.         RETLW   0x27    ;17  
  3052.         RETLW   0x28    ;18  
  3053.         RETLW   0x29    ;19  
  3054.         RETLW   0x2a    ;1a  
  3055.         RETLW   0x2b    ;1b  
  3056.         RETLW   0x2c    ;1c  
  3057.         RETLW   0x2d    ;1d  
  3058.         RETLW   0x2e    ;1e  
  3059.         RETLW   0x2f ;1f
  3060. ORG H'0C20'
  3061. SPEED01:
  3062. MOVF PYMK_LEVEL,W
  3063.         ADDWF PCL ,0x1
  3064.         RETLW   0x01    ;02  
  3065.         RETLW   0x01    ;03  
  3066.         RETLW   0x01    ;04  
  3067.         RETLW   0x01    ;05  
  3068.         RETLW   0x01    ;06  
  3069.         RETLW   0x01    ;07  
  3070.         RETLW   0x01    ;08   
  3071.         RETLW   0x01    ;09   
  3072.         RETLW   0x01    ;0a   
  3073.         RETLW   0x01    ;0b   
  3074.         RETLW   0x01    ;0c   
  3075.         RETLW   0x01    ;0d   
  3076.         RETLW   0x01    ;0e   
  3077.         RETLW   0x01    ;0f   
  3078.         RETLW   0x01    ;10   
  3079.         RETLW   0x01    ;11   
  3080.         RETLW   0x01    ;12   
  3081.         RETLW   0x01    ;13   
  3082.         RETLW   0x01    ;14   
  3083.         RETLW   0x01    ;15   
  3084.         RETLW   0x01    ;16   
  3085.         RETLW   0x01    ;17   
  3086.         RETLW   0x01    ;18   
  3087.         RETLW   0x01    ;19   
  3088.         RETLW   0x01    ;1a   
  3089.         RETLW   0x01    ;1b   
  3090.         RETLW   0x01    ;1c   
  3091.         RETLW   0x01    ;1d   
  3092.         RETLW   0x01    ;1e   
  3093.         RETLW   0x01 ;1f
  3094. ORG H'0C40'
  3095. SPEED02:
  3096. MOVF PYMK_LEVEL,W
  3097.         ADDWF PCL ,0x1
  3098.         RETLW   0x02    ;02  
  3099.         RETLW   0x02    ;03  
  3100.         RETLW   0x02    ;04  
  3101.         RETLW   0x02    ;05  
  3102.         RETLW   0x02    ;06  
  3103.         RETLW   0x02    ;07  
  3104.         RETLW   0x02    ;08   
  3105.         RETLW   0x02    ;09   
  3106.         RETLW   0x02    ;0a   
  3107.         RETLW   0x02    ;0b   
  3108.         RETLW   0x02    ;0c   
  3109.         RETLW   0x02    ;0d   
  3110.         RETLW   0x02    ;0e   
  3111.         RETLW   0x02    ;0f   
  3112.         RETLW   0x02    ;10   
  3113.         RETLW   0x02    ;11   
  3114.         RETLW   0x02    ;12   
  3115.         RETLW   0x02    ;13   
  3116.         RETLW   0x02    ;14   
  3117.         RETLW   0x02    ;15   
  3118.         RETLW   0x02    ;16   
  3119.         RETLW   0x02    ;17   
  3120.         RETLW   0x02    ;18   
  3121.         RETLW   0x02    ;19   
  3122.         RETLW   0x02    ;1a   
  3123.         RETLW   0x02    ;1b   
  3124.         RETLW   0x02    ;1c   
  3125.         RETLW   0x02    ;1d   
  3126.         RETLW   0x02    ;1e   
  3127.         RETLW   0x02 ;1f
  3128. ORG H'0C60'
  3129. SPEED03:
  3130. MOVF PYMK_LEVEL,W
  3131.         ADDWF PCL ,0x1
  3132.         RETLW   0x03    ;02  
  3133.         RETLW   0x03    ;03  
  3134.         RETLW   0x03    ;04  
  3135.         RETLW   0x03    ;05  
  3136.         RETLW   0x03    ;06  
  3137.         RETLW   0x03    ;07  
  3138.         RETLW   0x03    ;08   
  3139.         RETLW   0x03    ;09   
  3140.         RETLW   0x03    ;0a   
  3141.         RETLW   0x03    ;0b   
  3142.         RETLW   0x03    ;0c   
  3143.         RETLW   0x03    ;0d   
  3144.         RETLW   0x03    ;0e   
  3145.         RETLW   0x03    ;0f   
  3146.         RETLW   0x03    ;10   
  3147.         RETLW   0x03    ;11   
  3148.         RETLW   0x03    ;12   
  3149.         RETLW   0x03    ;13   
  3150.         RETLW   0x03    ;14   
  3151.         RETLW   0x03    ;15   
  3152.         RETLW   0x03    ;16   
  3153.         RETLW   0x03    ;17   
  3154.         RETLW   0x03    ;18   
  3155.         RETLW   0x03    ;19   
  3156.         RETLW   0x03    ;1a   
  3157.         RETLW   0x03    ;1b   
  3158.         RETLW   0x03    ;1c   
  3159.         RETLW   0x03    ;1d   
  3160.         RETLW   0x03    ;1e   
  3161.         RETLW   0x03 ;1f
  3162. ORG H'0C80'
  3163. SPEED04:
  3164. MOVF PYMK_LEVEL,W
  3165.         ADDWF PCL ,0x1
  3166.         RETLW   0x04    ;02  
  3167.         RETLW   0x04    ;03  
  3168.         RETLW   0x04    ;04  
  3169.         RETLW   0x04    ;05  
  3170.         RETLW   0x04    ;06  
  3171.         RETLW   0x04    ;07  
  3172.         RETLW   0x04    ;08   
  3173.         RETLW   0x04    ;09   
  3174.         RETLW   0x04    ;0a   
  3175.         RETLW   0x04    ;0b   
  3176.         RETLW   0x04    ;0c   
  3177.         RETLW   0x04    ;0d   
  3178.         RETLW   0x04    ;0e   
  3179.         RETLW   0x04    ;0f   
  3180.         RETLW   0x04    ;10   
  3181.         RETLW   0x04    ;11   
  3182.         RETLW   0x04    ;12   
  3183.         RETLW   0x04    ;13   
  3184.         RETLW   0x04    ;14   
  3185.         RETLW   0x04    ;15   
  3186.         RETLW   0x04    ;16   
  3187.         RETLW   0x04    ;17   
  3188.         RETLW   0x04    ;18   
  3189.         RETLW   0x04    ;19   
  3190.         RETLW   0x04    ;1a   
  3191.         RETLW   0x04    ;1b   
  3192.         RETLW   0x04    ;1c   
  3193.         RETLW   0x04    ;1d   
  3194.         RETLW   0x04    ;1e   
  3195.         RETLW   0x04 ;1f
  3196. SPEED05:
  3197. ORG H'0CA0'
  3198. MOVF PYMK_LEVEL,W
  3199.         ADDWF PCL ,0x1   
  3200.         RETLW   0x05    ;02  
  3201.         RETLW   0x05    ;03  
  3202.         RETLW   0x05    ;04  
  3203.         RETLW   0x05    ;05  
  3204.         RETLW   0x05    ;06  
  3205.         RETLW   0x05    ;07  
  3206.         RETLW   0x05    ;08   
  3207.         RETLW   0x05    ;09   
  3208.         RETLW   0x05    ;0a   
  3209.         RETLW   0x05    ;0b   
  3210.         RETLW   0x05    ;0c   
  3211.         RETLW   0x05    ;0d   
  3212.         RETLW   0x05    ;0e   
  3213.         RETLW   0x05    ;0f   
  3214.         RETLW   0x05    ;10   
  3215.         RETLW   0x05    ;11   
  3216.         RETLW   0x05    ;12   
  3217.         RETLW   0x05    ;13   
  3218.         RETLW   0x05    ;14   
  3219.         RETLW   0x05    ;15   
  3220.         RETLW   0x05    ;16   
  3221.         RETLW   0x05    ;17   
  3222.         RETLW   0x05    ;18   
  3223.         RETLW   0x05    ;19   
  3224.         RETLW   0x05    ;1a   
  3225.         RETLW   0x05    ;1b   
  3226.         RETLW   0x05    ;1c   
  3227.         RETLW   0x05    ;1d   
  3228.         RETLW   0x05    ;1e   
  3229.         RETLW   0x05 ;1f
  3230. ORG H'CC0'
  3231. SPEED06:
  3232. MOVF PYMK_LEVEL,W
  3233.         ADDWF PCL ,0x1
  3234.         RETLW   0x06    ;02  
  3235.         RETLW   0x06    ;03  
  3236.         RETLW   0x06    ;04  
  3237.         RETLW   0x06    ;05  
  3238.         RETLW   0x06    ;06  
  3239.         RETLW   0x06    ;07  
  3240.         RETLW   0x06    ;08   
  3241.         RETLW   0x06    ;09   
  3242.         RETLW   0x06    ;0a   
  3243.         RETLW   0x06    ;0b   
  3244.         RETLW   0x06    ;0c   
  3245.         RETLW   0x06    ;0d   
  3246.         RETLW   0x06    ;0e   
  3247.         RETLW   0x06    ;0f   
  3248.         RETLW   0x06    ;10   
  3249.         RETLW   0x06    ;11   
  3250.         RETLW   0x06    ;12   
  3251.         RETLW   0x06    ;13   
  3252.         RETLW   0x06    ;14   
  3253.         RETLW   0x06    ;15   
  3254.         RETLW   0x06    ;16   
  3255.         RETLW   0x06    ;17   
  3256.         RETLW   0x06    ;18   
  3257.         RETLW   0x06    ;19   
  3258.         RETLW   0x06    ;1a   
  3259.         RETLW   0x06    ;1b   
  3260.         RETLW   0x06    ;1c   
  3261.         RETLW   0x06    ;1d   
  3262.         RETLW   0x06    ;1e   
  3263.         RETLW   0x06 ;1f
  3264. ORG H'CE0'
  3265. SPEED07:
  3266. MOVF PYMK_LEVEL,W
  3267.         ADDWF PCL ,0x1
  3268.         RETLW   0x07    ;02  
  3269.         RETLW   0x07    ;03  
  3270.         RETLW   0x07    ;04  
  3271.         RETLW   0x07    ;05  
  3272.         RETLW   0x07    ;06  
  3273.         RETLW   0x07    ;07  
  3274.         RETLW   0x07    ;08   
  3275.         RETLW   0x07    ;09   
  3276.         RETLW   0x07    ;0a   
  3277.         RETLW   0x07    ;0b   
  3278.         RETLW   0x07    ;0c   
  3279.         RETLW   0x07    ;0d   
  3280.         RETLW   0x07    ;0e   
  3281.         RETLW   0x07    ;0f   
  3282.         RETLW   0x07    ;10   
  3283.         RETLW   0x07    ;11   
  3284.         RETLW   0x07    ;12   
  3285.         RETLW   0x07    ;13   
  3286.         RETLW   0x07    ;14   
  3287.         RETLW   0x07    ;15   
  3288.         RETLW   0x07    ;16   
  3289.         RETLW   0x07    ;17   
  3290.         RETLW   0x07    ;18   
  3291.         RETLW   0x07    ;19   
  3292.         RETLW   0x07    ;1a   
  3293.         RETLW   0x07    ;1b   
  3294.         RETLW   0x07    ;1c   
  3295.         RETLW   0x07    ;1d   
  3296.         RETLW   0x07    ;1e   
  3297.         RETLW   0x07 ;1f
  3298. ORG H'D00'
  3299. SPEED08:
  3300. MOVF PYMK_LEVEL,W
  3301.         ADDWF PCL ,0x1
  3302.         RETLW   0x08    ;02  
  3303.         RETLW   0x08    ;03  
  3304.         RETLW   0x08    ;04  
  3305.         RETLW   0x08    ;05  
  3306.         RETLW   0x08    ;06  
  3307.         RETLW   0x08    ;07  
  3308.         RETLW   0x08    ;08   
  3309.         RETLW   0x08    ;09   
  3310.         RETLW   0x08    ;0a   
  3311.         RETLW   0x08    ;0b   
  3312.         RETLW   0x08    ;0c   
  3313.         RETLW   0x08    ;0d   
  3314.         RETLW   0x08    ;0e   
  3315.         RETLW   0x08    ;0f   
  3316.         RETLW   0x08    ;10   
  3317.         RETLW   0x08    ;11   
  3318.         RETLW   0x08    ;12   
  3319.         RETLW   0x08    ;13   
  3320.         RETLW   0x08    ;14   
  3321.         RETLW   0x08    ;15   
  3322.         RETLW   0x08    ;16   
  3323.         RETLW   0x08    ;17   
  3324.         RETLW   0x08    ;18   
  3325.         RETLW   0x08    ;19   
  3326.         RETLW   0x08    ;1a   
  3327.         RETLW   0x08    ;1b   
  3328.         RETLW   0x08    ;1c   
  3329.         RETLW   0x08    ;1d   
  3330.         RETLW   0x08    ;1e   
  3331.         RETLW   0x08 ;1f
  3332. ORG H'D20'
  3333. SPEED09:
  3334. MOVF PYMK_LEVEL,W
  3335.         ADDWF PCL ,0x1
  3336.         RETLW   0x09    ;02  
  3337.         RETLW   0x09    ;03  
  3338.         RETLW   0x09    ;04  
  3339.         RETLW   0x09    ;05  
  3340.         RETLW   0x09    ;06  
  3341.         RETLW   0x09    ;07  
  3342.         RETLW   0x09    ;08   
  3343.         RETLW   0x09    ;09   
  3344.         RETLW   0x09    ;0a   
  3345.         RETLW   0x09    ;0b   
  3346.         RETLW   0x09    ;0c   
  3347.         RETLW   0x09    ;0d   
  3348.         RETLW   0x09    ;0e   
  3349.         RETLW   0x09    ;0f   
  3350.         RETLW   0x09    ;10   
  3351.         RETLW   0x09    ;11   
  3352.         RETLW   0x09    ;12   
  3353.         RETLW   0x09    ;13   
  3354.         RETLW   0x09    ;14   
  3355.         RETLW   0x09    ;15   
  3356.         RETLW   0x09    ;16   
  3357.         RETLW   0x09    ;17   
  3358.         RETLW   0x09    ;18   
  3359.         RETLW   0x09    ;19   
  3360.         RETLW   0x09    ;1a   
  3361.         RETLW   0x09    ;1b   
  3362.         RETLW   0x09    ;1c   
  3363.         RETLW   0x09    ;1d   
  3364.         RETLW   0x09    ;1e   
  3365.         RETLW   0x09 ;1f
  3366. ORG H'D40'
  3367. SPEED0A:
  3368. MOVF PYMK_LEVEL,W
  3369.         ADDWF PCL ,0x1
  3370.         RETLW   0x0A    ;02  
  3371.         RETLW   0x0A    ;03  
  3372.         RETLW   0x0A    ;04  
  3373.         RETLW   0x0A    ;05  
  3374.         RETLW   0x0A    ;06  
  3375.         RETLW   0x0A    ;07  
  3376.         RETLW   0x0A    ;08   
  3377.         RETLW   0x0A    ;09   
  3378.         RETLW   0x0A    ;0a   
  3379.         RETLW   0x0A    ;0b   
  3380.         RETLW   0x0A    ;0c   
  3381.         RETLW   0x0A    ;0d   
  3382.         RETLW   0x0A    ;0e   
  3383.         RETLW   0x0A    ;0f   
  3384.         RETLW   0x0A    ;10   
  3385.         RETLW   0x0A    ;11   
  3386.         RETLW   0x0A    ;12   
  3387.         RETLW   0x0A    ;13   
  3388.         RETLW   0x0A    ;14   
  3389.         RETLW   0x0A    ;15   
  3390.         RETLW   0x0A    ;16   
  3391.         RETLW   0x0A    ;17   
  3392.         RETLW   0x0A    ;18   
  3393.         RETLW   0x0A    ;19   
  3394.         RETLW   0x0A    ;1a   
  3395.         RETLW   0x0A    ;1b   
  3396.         RETLW   0x0A    ;1c   
  3397.         RETLW   0x0A    ;1d   
  3398.         RETLW   0x0A    ;1e   
  3399.         RETLW   0x0A ;1f
  3400. ORG H'D60'
  3401. SPEED0B:
  3402. MOVF PYMK_LEVEL,W
  3403.         ADDWF PCL ,0x1
  3404.         RETLW   0x0B    ;02  
  3405.         RETLW   0x0B    ;03  
  3406.         RETLW   0x0B    ;04  
  3407.         RETLW   0x0B    ;05  
  3408.         RETLW   0x0B    ;06  
  3409.         RETLW   0x0B    ;07  
  3410.         RETLW   0x0B    ;08   
  3411.         RETLW   0x0B    ;09   
  3412.         RETLW   0x0B    ;0a   
  3413.         RETLW   0x0B    ;0b   
  3414.         RETLW   0x0B    ;0c   
  3415.         RETLW   0x0B    ;0d   
  3416.         RETLW   0x0B    ;0e   
  3417.         RETLW   0x0B    ;0f   
  3418.         RETLW   0x0B    ;10   
  3419.         RETLW   0x0B    ;11   
  3420.         RETLW   0x0B    ;12   
  3421.         RETLW   0x0B    ;13   
  3422.         RETLW   0x0B    ;14   
  3423.         RETLW   0x0B    ;15   
  3424.         RETLW   0x0B    ;16   
  3425.         RETLW   0x0B    ;17   
  3426.         RETLW   0x0B    ;18   
  3427.         RETLW   0x0B    ;19   
  3428.         RETLW   0x0B    ;1a   
  3429.         RETLW   0x0B    ;1b   
  3430.         RETLW   0x0B    ;1c   
  3431.         RETLW   0x0B    ;1d   
  3432.         RETLW   0x0B    ;1e   
  3433.         RETLW   0x0B ;1f
  3434. ORG H'D80'
  3435. SPEED0C:
  3436. MOVF PYMK_LEVEL,W
  3437.         ADDWF PCL ,0x1
  3438.         RETLW   0x0C    ;02  
  3439.         RETLW   0x0C    ;03  
  3440.         RETLW   0x0C    ;04  
  3441.         RETLW   0x0C    ;05  
  3442.         RETLW   0x0C    ;06  
  3443.         RETLW   0x0C    ;07  
  3444.         RETLW   0x0C    ;08   
  3445.         RETLW   0x0C    ;09   
  3446.         RETLW   0x0C    ;0a   
  3447.         RETLW   0x0C    ;0b   
  3448.         RETLW   0x0C    ;0c   
  3449.         RETLW   0x0C    ;0d   
  3450.         RETLW   0x0C    ;0e   
  3451.         RETLW   0x0C    ;0f   
  3452.         RETLW   0x0C    ;10   
  3453.         RETLW   0x0C    ;11   
  3454.         RETLW   0x0C    ;12   
  3455.         RETLW   0x0C    ;13   
  3456.         RETLW   0x0C    ;14   
  3457.         RETLW   0x0C    ;15   
  3458.         RETLW   0x0C    ;16   
  3459.         RETLW   0x0C    ;17   
  3460.         RETLW   0x0C    ;18   
  3461.         RETLW   0x0C    ;19   
  3462.         RETLW   0x0C    ;1a   
  3463.         RETLW   0x0C    ;1b   
  3464.         RETLW   0x0C    ;1c   
  3465.         RETLW   0x0C    ;1d   
  3466.         RETLW   0x0C    ;1e   
  3467.         RETLW   0x0C ;1f
  3468. ORG H'DA0'
  3469. SPEED0D:
  3470. MOVF PYMK_LEVEL,W
  3471.         ADDWF PCL ,0x1
  3472.         RETLW   0x0D    ;02  
  3473.         RETLW   0x0D    ;03  
  3474.         RETLW   0x0D    ;04  
  3475.         RETLW   0x0D    ;05  
  3476.         RETLW   0x0D    ;06  
  3477.         RETLW   0x0D    ;07  
  3478.         RETLW   0x0D    ;08   
  3479.         RETLW   0x0D    ;09   
  3480.         RETLW   0x0D    ;0a   
  3481.         RETLW   0x0D    ;0b   
  3482.         RETLW   0x0D    ;0c   
  3483.         RETLW   0x0D    ;0d   
  3484.         RETLW   0x0D    ;0e   
  3485.         RETLW   0x0D    ;0f   
  3486.         RETLW   0x0D    ;10   
  3487.         RETLW   0x0D    ;11   
  3488.         RETLW   0x0D    ;12   
  3489.         RETLW   0x0D    ;13   
  3490.         RETLW   0x0D    ;14   
  3491.         RETLW   0x0D    ;15   
  3492.         RETLW   0x0D    ;16   
  3493.         RETLW   0x0D    ;17   
  3494.         RETLW   0x0D    ;18   
  3495.         RETLW   0x0D    ;19   
  3496.         RETLW   0x0D    ;1a   
  3497.         RETLW   0x0D    ;1b   
  3498.         RETLW   0x0D    ;1c   
  3499.         RETLW   0x0D    ;1d   
  3500.         RETLW   0x0D    ;1e   
  3501.         RETLW   0x0D ;1f
  3502. ORG H'DC0'
  3503. SPEEED0E:
  3504. MOVF PYMK_LEVEL,W
  3505.         ADDWF PCL ,0x1
  3506.         RETLW   0x0E    ;02  
  3507.         RETLW   0x0E    ;03  
  3508.         RETLW   0x0E    ;04  
  3509.         RETLW   0x0E    ;05  
  3510.         RETLW   0x0E    ;06  
  3511.         RETLW   0x0E    ;07  
  3512.         RETLW   0x0E    ;08   
  3513.         RETLW   0x0E    ;09   
  3514.         RETLW   0x0E    ;0a   
  3515.         RETLW   0x0E    ;0b   
  3516.         RETLW   0x0E    ;0c   
  3517.         RETLW   0x0E    ;0d   
  3518.         RETLW   0x0E    ;0e   
  3519.         RETLW   0x0E    ;0f   
  3520.         RETLW   0x0E    ;10   
  3521.         RETLW   0x0E    ;11   
  3522.         RETLW   0x0E    ;12   
  3523.         RETLW   0x0E    ;13   
  3524.         RETLW   0x0E    ;14   
  3525.         RETLW   0x0E    ;15   
  3526.         RETLW   0x0E    ;16   
  3527.         RETLW   0x0E    ;17   
  3528.         RETLW   0x0E    ;18   
  3529.         RETLW   0x0E    ;19   
  3530.         RETLW   0x0E    ;1a   
  3531.         RETLW   0x0E    ;1b   
  3532.         RETLW   0x0E    ;1c   
  3533.         RETLW   0x0E    ;1d   
  3534.         RETLW   0x0E    ;1e   
  3535.         RETLW   0x0E ;1f
  3536. ORG H'DE0'
  3537. SPEED0F:
  3538. MOVF PYMK_LEVEL,W
  3539.         ADDWF PCL ,0x1
  3540.         RETLW   0x0F    ;02  
  3541.         RETLW   0x0F    ;03  
  3542.         RETLW   0x0F    ;04  
  3543.         RETLW   0x0F    ;05  
  3544.         RETLW   0x0F    ;06  
  3545.         RETLW   0x0F    ;07  
  3546.         RETLW   0x0F    ;08   
  3547.         RETLW   0x0F    ;09   
  3548.         RETLW   0x0F    ;0a   
  3549.         RETLW   0x0F    ;0b   
  3550.         RETLW   0x0F    ;0c   
  3551.         RETLW   0x0F    ;0d   
  3552.         RETLW   0x0F    ;0e   
  3553.         RETLW   0x0F    ;0f   
  3554.         RETLW   0x0F    ;10   
  3555.         RETLW   0x0F    ;11   
  3556.         RETLW   0x0F    ;12   
  3557.         RETLW   0x0F    ;13   
  3558.         RETLW   0x0F    ;14   
  3559.         RETLW   0x0F    ;15   
  3560.         RETLW   0x0F    ;16   
  3561.         RETLW   0x0F    ;17   
  3562.         RETLW   0x0F    ;18   
  3563.         RETLW   0x0F    ;19   
  3564.         RETLW   0x0F    ;1a   
  3565.         RETLW   0x0F    ;1b   
  3566.         RETLW   0x0F    ;1c   
  3567.         RETLW   0x0F    ;1d   
  3568.         RETLW   0x0F    ;1e   
  3569.         RETLW   0x0F ;1f
  3570. ORG H'E00'
  3571. SPEED10:
  3572. MOVF PYMK_LEVEL,W
  3573.         ADDWF PCL ,0x1
  3574.         RETLW   0x10    ;02  
  3575.         RETLW   0x10    ;03  
  3576.         RETLW   0x10    ;04  
  3577.         RETLW   0x10    ;05  
  3578.         RETLW   0x10    ;06  
  3579.         RETLW   0x10    ;07  
  3580.         RETLW   0x10    ;08   
  3581.         RETLW   0x10    ;09   
  3582.         RETLW   0x10    ;0a   
  3583.         RETLW   0x10    ;0b   
  3584.         RETLW   0x10    ;0c   
  3585.         RETLW   0x10    ;0d   
  3586.         RETLW   0x10    ;0e   
  3587.         RETLW   0x10    ;0f   
  3588.         RETLW   0x10    ;10   
  3589.         RETLW   0x10    ;11   
  3590.         RETLW   0x10    ;12   
  3591.         RETLW   0x10    ;13   
  3592.         RETLW   0x10    ;14   
  3593.         RETLW   0x10    ;15   
  3594.         RETLW   0x10    ;16   
  3595.         RETLW   0x10    ;17   
  3596.         RETLW   0x10    ;18   
  3597.         RETLW   0x10    ;19   
  3598.         RETLW   0x10    ;1a   
  3599.         RETLW   0x10    ;1b   
  3600.         RETLW   0x10    ;1c   
  3601.         RETLW   0x10    ;1d   
  3602.         RETLW   0x10    ;1e   
  3603.         RETLW   0x10 ;1f
  3604. ORG H'E20'
  3605. SPEED11:
  3606. MOVF PYMK_LEVEL,W
  3607.         ADDWF PCL ,0x1
  3608.         RETLW   0x11    ;02  
  3609.         RETLW   0x11    ;03  
  3610.         RETLW   0x11    ;04  
  3611.         RETLW   0x11    ;05  
  3612.         RETLW   0x11    ;06  
  3613.         RETLW   0x11    ;07  
  3614.         RETLW   0x11    ;08   
  3615.         RETLW   0x11    ;09   
  3616.         RETLW   0x11    ;0a   
  3617.         RETLW   0x11    ;0b   
  3618.         RETLW   0x11    ;0c   
  3619.         RETLW   0x11    ;0d   
  3620.         RETLW   0x11    ;0e   
  3621.         RETLW   0x11    ;0f   
  3622.         RETLW   0x11    ;10   
  3623.         RETLW   0x11    ;11   
  3624.         RETLW   0x11    ;12   
  3625.         RETLW   0x11    ;13   
  3626.         RETLW   0x11    ;14   
  3627.         RETLW   0x11    ;15   
  3628.         RETLW   0x11    ;16   
  3629.         RETLW   0x11    ;17   
  3630.         RETLW   0x11    ;18   
  3631.         RETLW   0x11    ;19   
  3632.         RETLW   0x11    ;1a   
  3633.         RETLW   0x11    ;1b   
  3634.         RETLW   0x11    ;1c   
  3635.         RETLW   0x11    ;1d   
  3636.         RETLW   0x11    ;1e   
  3637.         RETLW   0x11 ;1f
  3638. ORG H'E40'
  3639. SPEED12:
  3640. MOVF PYMK_LEVEL,W
  3641.         ADDWF PCL ,0x1
  3642.         RETLW   0x12    ;02  
  3643.         RETLW   0x12    ;03  
  3644.         RETLW   0x12    ;04  
  3645.         RETLW   0x12    ;05  
  3646.         RETLW   0x12    ;06  
  3647.         RETLW   0x12    ;07  
  3648.         RETLW   0x12    ;08   
  3649.         RETLW   0x12    ;09   
  3650.         RETLW   0x12    ;0a   
  3651.         RETLW   0x12    ;0b   
  3652.         RETLW   0x12    ;0c   
  3653.         RETLW   0x12    ;0d   
  3654.         RETLW   0x12    ;0e   
  3655.         RETLW   0x12    ;0f   
  3656.         RETLW   0x12    ;10   
  3657.         RETLW   0x12    ;11   
  3658.         RETLW   0x12    ;12   
  3659.         RETLW   0x12    ;13   
  3660.         RETLW   0x12    ;14   
  3661.         RETLW   0x12    ;15   
  3662.         RETLW   0x12    ;16   
  3663.         RETLW   0x12    ;17   
  3664.         RETLW   0x12    ;18   
  3665.         RETLW   0x12    ;19   
  3666.         RETLW   0x12    ;1a   
  3667.         RETLW   0x12    ;1b   
  3668.         RETLW   0x12    ;1c   
  3669.         RETLW   0x12    ;1d   
  3670.         RETLW   0x12    ;1e   
  3671.         RETLW   0x12 ;1f
  3672. ORG H'E60'
  3673. SPEED13:
  3674. MOVF PYMK_LEVEL,W
  3675.         ADDWF PCL ,0x1
  3676.         RETLW   0x13    ;02  
  3677.         RETLW   0x13    ;03  
  3678.         RETLW   0x13    ;04  
  3679.         RETLW   0x13    ;05  
  3680.         RETLW   0x13    ;06  
  3681.         RETLW   0x13    ;07  
  3682.         RETLW   0x13    ;08   
  3683.         RETLW   0x13    ;09   
  3684.         RETLW   0x13    ;0a   
  3685.         RETLW   0x13    ;0b   
  3686.         RETLW   0x13    ;0c   
  3687.         RETLW   0x13    ;0d   
  3688.         RETLW   0x13    ;0e   
  3689.         RETLW   0x13    ;0f   
  3690.         RETLW   0x13    ;10   
  3691.         RETLW   0x13    ;11   
  3692.         RETLW   0x13    ;12   
  3693.         RETLW   0x13    ;13   
  3694.         RETLW   0x13    ;14   
  3695.         RETLW   0x13    ;15   
  3696.         RETLW   0x13    ;16   
  3697.         RETLW   0x13    ;17   
  3698.         RETLW   0x13    ;18   
  3699.         RETLW   0x13    ;19   
  3700.         RETLW   0x13    ;1a   
  3701.         RETLW   0x13    ;1b   
  3702.         RETLW   0x13    ;1c   
  3703.         RETLW   0x13    ;1d   
  3704.         RETLW   0x13    ;1e   
  3705.         RETLW   0x13 ;1f
  3706. ORG H'E80'
  3707. SPEED14:
  3708. MOVF PYMK_LEVEL,W
  3709.         ADDWF PCL ,0x1
  3710.         RETLW   0x14    ;02  
  3711.         RETLW   0x14    ;03  
  3712.         RETLW   0x14    ;04  
  3713.         RETLW   0x14    ;05  
  3714.         RETLW   0x14    ;06  
  3715.         RETLW   0x14    ;07  
  3716.         RETLW   0x14    ;08   
  3717.         RETLW   0x14    ;09   
  3718.         RETLW   0x14    ;0a   
  3719.         RETLW   0x14    ;0b   
  3720.         RETLW   0x14    ;0c   
  3721.         RETLW   0x14    ;0d   
  3722.         RETLW   0x14    ;0e   
  3723.         RETLW   0x14    ;0f   
  3724.         RETLW   0x14    ;10   
  3725.         RETLW   0x14    ;11   
  3726.         RETLW   0x14    ;12   
  3727.         RETLW   0x14    ;13   
  3728.         RETLW   0x14    ;14   
  3729.         RETLW   0x14    ;15   
  3730.         RETLW   0x14    ;16   
  3731.         RETLW   0x14    ;17   
  3732.         RETLW   0x14    ;18   
  3733.         RETLW   0x14    ;19   
  3734.         RETLW   0x14    ;1a   
  3735.         RETLW   0x14    ;1b   
  3736.         RETLW   0x14    ;1c   
  3737.         RETLW   0x14    ;1d   
  3738.         RETLW   0x14    ;1e   
  3739.         RETLW   0x14 ;1f
  3740. ORG H'EA0'
  3741. SPEED15:
  3742. MOVF PYMK_LEVEL,W
  3743.         ADDWF PCL ,0x1
  3744.         RETLW   0x15    ;02  
  3745.         RETLW   0x15    ;03  
  3746.         RETLW   0x15    ;04  
  3747.         RETLW   0x15    ;05  
  3748.         RETLW   0x15    ;06  
  3749.         RETLW   0x15    ;07  
  3750.         RETLW   0x15    ;08   
  3751.         RETLW   0x15    ;09   
  3752.         RETLW   0x15    ;0a   
  3753.         RETLW   0x15    ;0b   
  3754.         RETLW   0x15    ;0c   
  3755.         RETLW   0x15    ;0d   
  3756.         RETLW   0x15    ;0e   
  3757.         RETLW   0x15    ;0f   
  3758.         RETLW   0x15    ;10   
  3759.         RETLW   0x15    ;11   
  3760.         RETLW   0x15    ;12   
  3761.         RETLW   0x15    ;13   
  3762.         RETLW   0x15    ;14   
  3763.         RETLW   0x15    ;15   
  3764.         RETLW   0x15    ;16   
  3765.         RETLW   0x15    ;17   
  3766.         RETLW   0x15    ;18   
  3767.         RETLW   0x15    ;19   
  3768.         RETLW   0x15    ;1a   
  3769.         RETLW   0x15    ;1b   
  3770.         RETLW   0x15    ;1c   
  3771.         RETLW   0x15    ;1d   
  3772.         RETLW   0x15    ;1e   
  3773.         RETLW   0x15 ;1f
  3774. ORG H'EC0'
  3775. SPEED16:
  3776. MOVF PYMK_LEVEL,W
  3777.         ADDWF PCL ,0x1
  3778.         RETLW   0x11    ;00  
  3779.         RETLW   0x1a    ;01  
  3780.         RETLW   0x1a    ;02  
  3781.         RETLW   0x1a    ;03  
  3782.         RETLW   0x1a    ;04  
  3783.         RETLW   0x1a    ;05  
  3784.         RETLW   0x1a    ;06   
  3785.         RETLW   0x1a    ;07   
  3786.         RETLW   0x1a    ;08   
  3787.         RETLW   0x1a    ;09   
  3788.         RETLW   0x1a    ;0A   
  3789.         RETLW   0x1a    ;0B   
  3790.         RETLW   0x1a    ;0C   
  3791.         RETLW   0x1a    ;0D   
  3792.         RETLW   0x1a    ;0E   
  3793.         RETLW   0x1a    ;0F   
  3794.         RETLW   0x1a    ;10   
  3795.         RETLW   0x1a    ;11   
  3796.         RETLW   0x4a    ;12   
  3797.         RETLW   0x5a    ;13   
  3798.         RETLW   0x6a    ;14   
  3799.         RETLW   0x1a    ;15   
  3800.         RETLW   0x1a    ;18   
  3801.         RETLW   0x1a    ;19   
  3802.         RETLW   0x1a    ;1a   
  3803.         RETLW   0x1a    ;1b   
  3804.         RETLW   0x1a    ;1c   
  3805.         RETLW   0x1a    ;1d   
  3806. ORG H'EE0'        
  3807. SPEED17:
  3808. MOVF PYMK_LEVEL,W
  3809.         ADDWF PCL ,0x1
  3810.         RETLW   0x1b    ;00  
  3811.         RETLW   0x1b    ;01  
  3812.         RETLW   0x1b    ;02  
  3813.         RETLW   0x1b    ;03  
  3814.         RETLW   0x1b    ;04  
  3815.         RETLW   0x1b    ;05  
  3816.         RETLW   0x1b    ;06   
  3817.         RETLW   0x1b    ;07   
  3818.         RETLW   0x1b    ;08   
  3819.         RETLW   0x1b    ;09   
  3820.         RETLW   0x1b    ;0A   
  3821.         RETLW   0x1b    ;0B   
  3822.         RETLW   0x1b    ;0C   
  3823.         RETLW   0x1b    ;0D   
  3824.         RETLW   0x1b    ;0E   
  3825.         RETLW   0x1b    ;0F   
  3826.         RETLW   0x1b    ;10   
  3827.         RETLW   0x1b    ;11   
  3828.         RETLW   0x4b    ;12   
  3829.         RETLW   0x5b    ;13   
  3830.         RETLW   0x6b    ;14   
  3831.         RETLW   0x1b    ;15   
  3832.         RETLW   0x1b    ;18   
  3833.         RETLW   0x1b    ;19   
  3834.         RETLW   0x1b    ;1a   
  3835.         RETLW   0x1b    ;1b   
  3836.         RETLW   0x1b    ;1c   
  3837.         RETLW   0x1b    ;1d           
  3838. ;==========================================================================
  3839. ;==========真空压力分级查找表=================================================
  3840. ;最小5KPa，以30KPa为中心，每五千帕分隔，其他为10KPa分隔，共13个分级
  3841. ;==========================================================================
  3842. ;100kpa ->96
  3843. ;95kpa ->91
  3844. ;90kpa ->86 ??
  3845. ;85kpa ->81
  3846. ;80kpa ->76
  3847. ;75kpa ->71
  3848. ;70hpa ->67
  3849. ;65kpa ->62
  3850. ;60kpa ->56
  3851. ;55kpa ->52 ???
  3852. ;50kpa ->48
  3853. ;45kpa ->43
  3854. ;40kpa ->39
  3855. ;35kpa ->33
  3856. ;30kpa ->28
  3857. ;25kpa ->24
  3858. ;20kpa ->19
  3859. ;15kpa ->14
  3860. ;10kpa ->9
  3861. ;5kpa ->4
  3864. ZKYL_LEVEL_TABLE:
  3865. ORG H'0F00'
  3866. MOVF ZKYL,W
  3867.         ADDWF   PCL,0x01
  3868. RETLW   0x0  ;0 
  3869. RETLW   0x0  ;1
  3870. RETLW   0x0  ;2 
  3871. RETLW   0x0  ;3 
  3872. RETLW   0x0  ;4      
  3873. RETLW   0x0  ;5 
  3874. RETLW   0x0 ;6 
  3875. RETLW   0x0 ;7 
  3876. RETLW   0x0  ;8    
  3877. RETLW   0x0  ;9  10kpa   9
  3878. RETLW   0x0  ;10
  3879. RETLW   0x0  ;11
  3880. RETLW   0x0  ;12  
  3881. RETLW   0x0  ;13  
  3882. RETLW   0x01 ;14  
  3883. RETLW   0x01 ;15
  3884. RETLW   0x01 ;16  
  3885. RETLW   0x01 ;17  
  3886. RETLW   0x01 ;18  
  3887. RETLW   0x01 ;19   20kp 19
  3888. RETLW   0x01 ;20
  3889. RETLW   0x1  ;21  
  3890. RETLW   0x1  ;22  
  3891. RETLW   0x1  ;23  
  3892. RETLW   0x2 ;24
  3893. RETLW   0x2   ;25  
  3894. RETLW   0x2   ;26  
  3895. RETLW   0x2   ;27
  3896. RETLW   0x2   ;28   30kpa 28  
  3897. RETLW   0x2   ;29
  3898. RETLW   0x2   ;30  
  3899. RETLW   0x2   ;31  
  3900. RETLW   0x2   ;32  
  3901. RETLW   0x2   ;33  
  3903. RETLW   0x3   ;34  
  3904. RETLW   0x3   ;35  
  3905. RETLW   0x3   ;36  
  3906. RETLW   0x3   ;37  
  3907. RETLW   0x3   ;38  
  3908. RETLW   0x3   ;39   40kp 39
  3909. RETLW   0x3   ;40
  3910. RETLW   0x3   ;41  
  3911. RETLW   0x3   ;42  
  3912. RETLW   0x3   ;43
  3913.   
  3914. RETLW   0x4   ;44  
  3915. RETLW   0x04  ;45  
  3916. RETLW   0x04  ;46  
  3917. RETLW   0x04  ;47  
  3918. RETLW   0x04  ;48   50kpa 48
  3919. RETLW   0x04  ;49  
  3920. RETLW   0x04  ;50  
  3921. RETLW   0x04  ;51  
  3922. RETLW   0x04  ;52
  3924. RETLW   0x05  ;53  
  3925. RETLW   0x05  ;54  
  3926. RETLW   0x05  ;55  
  3927. RETLW   0x05  ;56   60kpa 56
  3928. RETLW   0x05  ;57  
  3929. RETLW   0x05  ;58  
  3930. RETLW   0x05  ;59  
  3931. RETLW   0x05  ;60  
  3932. RETLW   0x05  ;61  
  3934. RETLW   0x6 ;62  
  3935. RETLW   0x6  ;63 
  3936. RETLW   0x6  ;64  
  3937. RETLW   0x6  ;65  
  3938. RETLW   0x6  ;66  
  3939. RETLW   0x6  ;67   70kpa 67
  3940. RETLW   0x06  ;68  
  3941. RETLW   0x06  ;69  
  3942. RETLW   0x06  ;70  
  3943. RETLW   0x06  ;71  
  3945. RETLW   0x07  ;72  
  3946. RETLW   0x07  ;73  
  3947. RETLW   0x07  ;74  
  3948. RETLW   0x07  ;75  
  3949. RETLW   0x07  ;76   80kpa 76
  3950. RETLW   0x07  ;77  
  3951. RETLW   0x07  ;78  
  3952. RETLW   0x07  ;79  
  3953. RETLW   0x07  ;80  
  3955. RETLW   0x08  ;81  
  3956. RETLW   0x08  ;82  
  3957. RETLW   0x08  ;83  
  3958. RETLW   0x08  ;84
  3959. RETLW   0x08  ;85  
  3960. RETLW   0x08  ;86   ;90kpa 86
  3961. RETLW   0x08  ;87  
  3962. RETLW   0x08  ;88  
  3963. RETLW   0x08  ;89  
  3964. RETLW   0x08  ;90  
  3966. RETLW   0x09  ;91  
  3967. RETLW   0x09  ;92  
  3968. RETLW   0x09 ;93  
  3969. RETLW   0x09 ;94  
  3970. RETLW   0x09 ;95  
  3971. RETLW   0x09  ;96   ;100kp 96
  3972. RETLW   0x09  ;97  
  3973. RETLW   0x09  ;98  
  3974. RETLW   0x09  ;99  
  3975. RETLW   0x09  ;100  
  3976. RETLW   0x09  ;101  
  3977. RETLW   0x09  ;102  
  3978. RETLW   0x09  ;103  
  3979. RETLW   0x09  ;104  
  3980. RETLW   0x09  ;105  
  3981. RETLW   0x09  ;106  
  3982. RETLW   0x09  ;107  
  3983. RETLW   0x09  ;108  
  3984. RETLW   0x09  ;109  
  3985. RETLW   0x09  ;110  
  3986. RETLW   0x09  ;111  
  3987. RETLW   0x09  ;112  
  3988. RETLW   0x09  ;113  
  3989. RETLW   0x09  ;114  
  3990. RETLW   0x09  ;115  
  3991. RETLW   0x09  ;116
  3992. RETLW   0x09  ;117  
  3993. RETLW   0x09  ;118  
  3994. RETLW   0x09  ;119  
  3995. RETLW   0x09  ;110  
  3996. RETLW   0x09  ;111  
  3997. RETLW   0x09  ;112  
  3998. RETLW   0x09  ;113  
  3999. RETLW   0x09  ;114  
  4000. RETLW   0x09  ;115  
  4001. RETLW   0x09 ;116  
  4002. RETLW   0x09  ;117  
  4003. RETLW   0x09  ;118  
  4004. RETLW   0x09  ;119  
  4005. RETLW   0x09  ;120  
  4006. RETLW   0x09  ;121  
  4007. RETLW   0x09  ;122  
  4008. RETLW   0x09  ;123  
  4009. RETLW   0x09  ;124  
  4010. RETLW   0x09  ;125  
  4011. RETLW   0x09  ;126  
  4012. RETLW   0x09  ;127  
  4013. RETLW   0x09  ;128  
  4014. RETLW   0x09  ;129  
  4015. RETLW   0x09  ;130  
  4016. RETLW   0x09  ;131  
  4017. RETLW   0x09  ;132  
  4018. RETLW   0x09  ;133  
  4019. RETLW   0x09  ;134  
  4020. RETLW   0x09  ;135  
  4021. RETLW   0x09  ;136  
  4022. RETLW   0x09  ;137  
  4023. RETLW   0x09  ;138
  4024. RETLW   0x09  ;139  
  4025. RETLW   0x09  ;140  
  4026. RETLW   0x09  ;141  
  4027. RETLW   0x09  ;142  
  4028. RETLW   0x09  ;143  
  4029. RETLW   0x09  ;144  
  4030. RETLW   0x09  ;145  
  4031. RETLW   0x09  ;146  
  4032. RETLW   0x09  ;147  
  4033. RETLW   0x09 ;148
  4034. RETLW   0x09  ;149  
  4035. RETLW   0x09  ;150  
  4036. RETLW   0x09  ;151  
  4037. RETLW   0x09  ;152  
  4038. RETLW   0x09  ;153  
  4039. RETLW   0x09  ;154  
  4040. RETLW   0x09  ;155  
  4041. RETLW   0x09  ;156  
  4042. RETLW   0x09  ;157  
  4043. RETLW   0x09  ;158  
  4044. RETLW   0x09  ;159  
  4045. RETLW   0x09  ;160
  4046. RETLW   0x09  ;161  
  4047. RETLW   0x09  ;162  
  4048. RETLW   0x09  ;163  
  4049. RETLW   0x09  ;164  
  4050. RETLW   0x09  ;165  
  4051. RETLW   0x09  ;166  
  4052. RETLW   0x09  ;167  
  4053. RETLW   0x09  ;168  
  4054. RETLW   0x09  ;169  
  4055. RETLW   0x09  ;170
  4056. RETLW   0x09   ;171  
  4057. RETLW   0x09  ;172  
  4058. RETLW   0x09  ;173  
  4059. RETLW   0x09  ;174  
  4060. RETLW   0x09  ;175  
  4061. RETLW   0x09  ;176  
  4062. RETLW   0x09  ;177  
  4063. RETLW   0x09  ;178  
  4064. RETLW   0x09  ;179  
  4065. RETLW   0x09 ;180  
  4066. RETLW   0x09  ;181  
  4067. RETLW   0x09  ;182  
  4068. RETLW   0x09  ;183  
  4069. RETLW   0x09  ;184  
  4070. RETLW   0x09  ;185  
  4071. RETLW   0x09  ;186  
  4072. RETLW   0x09  ;187  
  4073. RETLW   0x09  ;188  
  4074. RETLW   0x09  ;189  
  4075. RETLW   0x09  ;190  
  4076. RETLW   0x09  ;191  
  4077. RETLW   0x09  ;192  
  4078. RETLW   0x09  ;193  
  4079. RETLW   0x09  ;194  
  4080. RETLW   0x09  ;195  
  4081. RETLW   0x09  ;196  
  4082. RETLW   0x09  ;197  
  4083. RETLW   0x09  ;198  
  4084. RETLW   0x09  ;199  
  4085. RETLW   0x09  ;200  
  4086. RETLW   0x09  ;201  
  4087. RETLW   0x09  ;202
  4088. RETLW   0x09  ;203  
  4089. RETLW   0x09  ;204  
  4090. RETLW   0x09  ;205  
  4091. RETLW   0x09  ;206  
  4092. RETLW   0x09  ;207  
  4093. RETLW   0x09  ;208  
  4094. RETLW   0x09  ;209  
  4095. RETLW   0x09  ;210  
  4096. RETLW   0x09  ;211  
  4097. RETLW   0x09 ;212  
  4098. RETLW   0x09  ;213  
  4099. RETLW   0x09  ;214  
  4100. RETLW   0x09  ;215  
  4101. RETLW   0x09  ;216  
  4102. RETLW   0x09  ;217  
  4103. RETLW   0x09  ;218  
  4104. RETLW   0x09  ;219  
  4105. RETLW   0x09  ;220  
  4106. RETLW   0x09  ;221  
  4107. RETLW   0x09  ;222  
  4108. RETLW   0x09  ;223  
  4109. RETLW   0x09  ;224  
  4110. RETLW   0x09  ;225  
  4111. RETLW   0x09  ;226  
  4112. RETLW   0x09  ;227  
  4113. RETLW   0x09  ;228  
  4114. RETLW   0x09  ;229  
  4115. RETLW   0x09  ;230  
  4116. RETLW   0x09  ;231
  4117. RETLW   0x09  ;232
  4118. RETLW   0x09  ;233
  4119. RETLW   0x09  ;234
  4120. RETLW   0x09  ;235
  4121. RETLW   0x09  ;236
  4122. RETLW   0x09  ;237
  4123. RETLW   0x09  ;238
  4124. RETLW   0x09  ;239
  4125. RETLW   0x09  ;230
  4126. RETLW   0x09  ;241
  4127. RETLW   0x09  ;242
  4128. RETLW   0x09  ;243
  4129. END