开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 文章/文档 > 文件格式 > 查看源码
RC5.ASM
资源名称：IRprotocol.rar　[点击查看]
上传用户：kugapan
上传日期：2015-06-15
资源大小：1192k
文件大小：25k
源码类别：

文件格式

开发平台：

Asm

RC5.ASM：源码内容
  1. ;this program use mitsubishi microcomputers.--M34283*
  2. ;all 7x8 KEY matrix
  3. ;have to use timer 1 and timer 2 to timing and send code.
  4. ;RAM DEFINE
  6. GPORTDATA          .EQU    0,0        
  7. EPORTDATA          .EQU    0,1
  8. ROWNO_NEW          .EQU    0,2        ; KEY ROW NO   (D0_7)
  9. COLNO_NEW          .EQU    0,3        ; KEY COL NO   (G0_3,E0_2)
  10. ROWNO_OLD          .EQU    0,4        ; KEY ROW NO   (D0_7)
  11. COLNO_OLD          .EQU    0,5        ; KEY COL NO   (G0_3,E0_2)
  12. ROWNO_SAE          .EQU    0,6        ; KEY ROW NO   (D0_7)
  13. COLNO_SAE          .EQU    0,7        ; KEY COL NO   (G0_3,E0_2)
  14. ROWNO_CUR          .EQU    0,8
  15. COLNO_CUR          .EQU    0,9
  16. CUR_FLAG           .EQU    0,10
  17. CUR_OK             .EQU    0,11
  18. ;=========================
  20. START_BIT   .EQU   1,0
  21. TOGGLE_BIT   .EQU   1,1
  22. CUSTOMH           .EQU    1,2
  23. CUSTOML           .EQU    1,3
  24. DATAH             .EQU    1,4
  25. DATAL             .EQU    1,5
  26. CUSTOMH_          .EQU    1,6
  27. CUSTOML_          .EQU    1,7
  28. DATAH_            .EQU    1,8
  29. DATAL_            .EQU    1,9
  31. ;=========================
  33. COUNTERA          .EQU    2,0
  34. COUNTERB          .EQU    2,1
  35. ROWNO_SEC   .EQU   2,2
  36. COLNO_SEC   .EQU   2,3
  37. ROWNO_FIRST   .EQU   2,4
  38. COLNO_FIRST   .EQU   2,5
  39. COUNTERA_S   .EQU   2,6
  41. ;=============================
  43. CHESUM_LoBYTELO   .EQU    3,0 ;00H
  44. CHESUM_LoBYTEHI   .EQU    3,1 ;
  45. CHESUM_HiBYTELO   .EQU    3,2 ;00H
  46. CHESUM_HiBYTEHI   .EQU    3,3 ;0000H
  47. INDEX   .EQU    3,4
  48. INDEX_D   .EQU    3,5
  49. P_INDEX   .EQU   3,6 
  51. ;=========================
  52. DIGT0   .EQU    0
  53. DIGT1   .EQU    1
  54. DIGT2   .EQU    2
  55. DIGT3   .EQU    3
  56. DIGT4   .EQU    4
  57. DIGT5   .EQU    5
  58. DIGT6   .EQU    6
  59. DIGT7   .EQU    7
  60. DIGT8   .EQU    8
  61. DIGT9   .EQU    9
  62. DIGTA   .EQU    10
  63. DIGTB   .EQU    11
  64. DIGTC   .EQU    12
  65. DIGTD   .EQU    13
  66. DIGTE   .EQU    14
  67. DIGTF   .EQU    15
  68. ;=============================
  69.                .ORG    0000H   
  70. START:
  71.                 NOP
  72.                 CLD                ;clear all D port to 0.
  73.                 RCAR               ;enable high level output invaild.
  75.                 SNZP               ;if cold start or warm. test flag P.
  76.                 BL  COLD_BOOT
  78. WARM_BOOT:
  79.                 LA       DIGTF     ;all G/E port set pull-down transistor
  80.                 TPU0A              ;and key-on wakeup valid
  82.                 LA       DIGT0     ;set D7-D4 port  no pull-down transistor.
  83.                 TPU1A              ;and key-on wakeup invalid.                
  84.                                    ;set Timer1
  85.                LA        DIGT1     ;may 32Ms to wait.
  86.                TBA
  87.                LA        DIGT6
  88.                T1AB               
  89.                LA        DIGT3
  90.                TV1A          
  91.                LA        DIGT2
  92.                TBA
  93.                LA        DIGTA
  94.                T1AB
  95.                WRST
  96. RESCAN:
  97. WaitToScan:
  98.                SNZT1
  99.                B       WaitToScan               
  100.                ;send a code,and scan key twice all time(use in)may 32MS              
  101.                ;first scan key, if have key save for second compare.                           
  102.                BML      SCANKEY               
  103.                LXY      COUNTERA
  104.                TAM      0
  105.                SEA      1
  106.                BL       COLD1
  107.                
  108.                LXY      ROWNO_NEW
  109.                TAM      0
  110.                LXY      ROWNO_OLD
  111.                XAM      0
  112.                LXY      COLNO_NEW
  113.                TAM      0
  114.                LXY      COLNO_OLD
  115.                XAM      0
  116.                
  117.                
  118.                BML      SCANKEY
  119.                LXY      COUNTERA
  120.                TAM      0
  121.                SEA      1
  122.                BL       COLD1
  124.                LXY      ROWNO_NEW
  125.                TAM      0
  126.                LXY      ROWNO_OLD
  127.                SEAM
  128.                BL       RESCAN           ;second scan key no equal first key
  129.                LXY      COLNO_NEW
  130.                TAM      0
  131.                LXY      COLNO_OLD        ;second scan key no equal first key
  132.                SEAM
  133.                BL       RESCAN
  134.                                                
  135. ;;=======================================================
  136. SEND_IR: 
  137.                   URSC
  138.                   LXY    COLNO_NEW
  139.                   TAM    0
  140.                   TBA
  141.                   LXY    ROWNO_NEW
  142.                   TAM    0
  143.                   TDA
  144.                   TAB
  145.                   TABP       6 
  146.                   TEAB
  147. ;-----------------------2006-10-19 8:11------------------------------               
  148. TOSETDATA2:
  149.   SZC
  150.   BL   GET_10_START ;if CY=1,the start bits are 10,ohterwise will be 11.
  151.   LA   DIGT3 ;CY=0,
  152.                   LXY   START_BIT  ;
  153.                   XAM   0                   
  154.                   BL   FETCH_DATA
  155. GET_10_START:       ;CY=1,
  156.   LA   DIGT2  ;
  157.                   LXY   START_BIT 
  158.                   XAM   0
  159.                             
  160. FETCH_DATA:   
  161.   LA      DIGT0  ;The custom code is 00000.
  162.                   LXY     CUSTOMH
  163.                   XAMI    0
  164.                   LA      DIGT0
  165.                   XAM     0
  166. ;-------------------------------------------------------------------                        
  167.   TABE ;get the data code from E register.
  168.                   LXY     DATAH
  169.                   XAM    0
  170.                   TAB
  171.                   LXY     DATAL
  172.                   XAM    0
  173.                                                                  
  174.                   LXY     DATAH
  175.                   TAM    0
  176.                   SEA   DIGTF
  177.                   BL   FIND_KEY
  178.                   LXY     DATAL
  179.                   TAM    0
  180.                   SEA   DIGTF
  181.                   BL   FIND_KEY
  182.                   BL   RESCAN
  183. FIND_KEY:
  184.   BML     COMP_KEY        ;if equal no skip,else  skip(new key)
  185.                   BL   HEADER
  186.                   BL   REP_SE  
  187. REP_SE:
  188.   LXY   TOGGLE_BIT
  189.   SZB   0
  190.   BL   SET1
  191. SET0:
  192.   SB   0
  193.   BL   HEADER
  194. SET1:                
  195.            RB   0                                       
  196. ;==============================================================
  198. HEADER:
  199.        ;send   form030  ir code. 
  200.        ;0:889us/889us. 1: 889us/889us.
  201.        
  202.        ;Timer 2 input source use f(Xin). use 0.25us CARR  unit.
  204.        ;set T2 and R2H/R2L.
  205.        ;Timer2 start with R2L.
  206. ;==============================================================
  207.                LA         DIGT4
  208.                TBA                  ;the lower time is 18.52us
  209.                LA         DIGT9
  210.                T2AB
  212.                LA         DIGT2
  213.                TBA                  ;the higher time is 9.26us
  214.                LA         DIGT4
  215.                T2HAB
  217.                WRST
  218.                LA         DIGT1     
  219.                TBA                   ;
  220.                LA         DIGTE 
  221.                T1AB        
  222.                LA         DIGTD       ;
  223. PreSendCode:
  224.                SNZT1
  225.                B          PreSendCode
  226.                TV2A
  227.                
  228.                LA 0 ;Stop the timer1 to change the count source to Carrier wave output (CARRY).
  229.                TV1A
  230.                
  231.                LXY        START_BIT ;
  232.                TAM   0
  233.                RAR
  234.                SZC
  235.                LA   DIGT5
  236.                LA   DIGT1
  237.                TV1A
  238. SENDDATA:
  239.                LXY         START_BIT       
  240.                BML         SEND_1BIT       ;
  241.                LXY    TOGGLE_BIT
  242.                BML    TOGGLE        
  243.                LXY         CUSTOMH         ;
  244.                BML         WORD            ;CUSTOM CODE LOW DATA
  245.                LXY         CUSTOML         ;
  246.                BML         SEND_1BIT       ;CUSTOM CODE HIGH DATA
  247.                LXY         DATAH
  248.                BML         WORD            ;LOW DATA CODE
  249.                LXY         DATAL
  250.                BML         SEND_2BIT       ;HIGH DATA CODE
  252.                LA          DIGT5
  253.                TBA
  254.                LA          DIGT7
  255.                T1AB
  256.                LA          DIGT9
  257. WaitEnd:
  258.                SNZT1
  259.                BL           WaitEnd
  260.                TV2A
  261.                LA         DIGT0
  262.                TV2A
  263.                TV1A
  264.                LA          DIGT3
  265.                TV1A
  266.                BL          RESCAN      
  267.                  
  269. ;===========================================================
  271. ; START SCAN KEY !
  273. SCANKEY:
  274.           WRST
  275.           LXY          0,7
  276. CLSDPORT:
  277.           RD
  278.           DEY
  279.           BL           CLSDPORT
  280.           LXY          ROWNO_NEW     ;CLEAR ROW & COL NO. TO 'F'
  281.           LA           DIGTF
  282.           XAMI         0
  283.           LA           DIGTF
  284.           XAM          0
  286.           LXY          COUNTERA
  287.           LA           0
  288.           XAM          0                ;CLEAR COUNTERA
  289.           LXY          COUNTERA_S
  290.           LA           0
  291.           XAM          0
  292. ;;-------------------------------------
  293.           LA           DIGT7            ;DIGT7
  294.           LXY          COUNTERB
  295.           TBA
  296.           XAM          0               ;7==>COUNTERB
  297.           TAB
  298.           TYA
  299. SetPortD1:
  300.           SD                       ;SET Di TO 1
  301.           LA           DIGTF      ;all G/E port set pull-down transistorE0
  302.           TPU0A
  303.           BML          WAIT10
  304.           NOP               
  305.           IAE
  306.           LXY          EPORTDATA       ;save E port data to EPORTDATA.
  307.           XAM          0          
  308.           IAG
  309.           LXY          GPORTDATA       ;save G port data to GPORTDATA.
  310.           XAM          0
  311.           LXY          COUNTERB       ;CLEAR Di TO 0.
  312.           TAM          0
  313.           TYA
  314.           RD
  315. G3_ROW:
  316.           LXY          GPORTDATA
  317.           SZB          3
  318.           BL           G3_KEY
  319.           BL           G2_ROW
  320. G3_KEY:
  321.           BML          INC_COUNTERA
  322.           LXY          ROWNO_NEW
  323.           LA           0
  324.           XAM          0
  325.           BML          COL_TRAN
  326. G2_ROW:
  327.           LXY          GPORTDATA
  328.           SZB          2
  329.           BL           G2_KEY
  330.           BL           G1_ROW
  331. G2_KEY:
  332.           BML          INC_COUNTERA
  333.           LXY          ROWNO_NEW
  334.           LA           0
  335.           XAM          0
  336.           BML          COLADD8         
  337. G1_ROW:
  338.           LXY           GPORTDATA
  339.           SZB           1
  340.           BL            G1_KEY
  341.           BL            G0_ROW
  342. G1_KEY:
  343.           BML           INC_COUNTERA
  344.           LXY           ROWNO_NEW
  345.           LA    1
  346.           XAM   0
  347.           BML           COL_TRAN
  348. G0_ROW:
  349.           LXY           GPORTDATA
  350.           SZB           0
  351.           BL            G0_KEY
  352.           BL            E0_ROW ;E2_ROW
  353. G0_KEY:
  354.           BML           INC_COUNTERA
  355.           LXY           ROWNO_NEW
  356.           LA            1
  357.           XAM           0
  358.           BML           COLADD8
  359. ;E2_ROW:
  360. ;          LXY           EPORTDATA
  361. ;          SZB           2
  362. ;          BL            E2_KEY
  363. ;          BL            E1_ROW
  364. ;E2_KEY:
  365. ;          BML           INC_COUNTERA
  366. ;          LXY           ROWNO_NEW
  367. ;          LA            2
  368. ;          XAM           0
  369. ;          BML           COL_TRAN
  370. ;E1_ROW:          
  371. ;          LXY           EPORTDATA
  372. ;          SZB           1
  373. ;          BL            E1_KEY
  374. ;          BL            E0_ROW
  375. ;E1_KEY:
  376. ;          BML           INC_COUNTERA
  377. ;          LXY           ROWNO_NEW
  378. ;          LA            2
  379. ;          XAM           0
  380. ;          BML           COLADD8
  382. E0_ROW:
  383.           LXY           EPORTDATA
  384.           SZB           0
  385.           BL            E0_KEY
  386.           BL            NEXT_COL
  387. E0_KEY:
  388.           BML           INC_COUNTERA
  389.           LXY           ROWNO_NEW
  390.           LA            2
  391.           XAM           0
  392.           BML           COL_TRAN
  394. ;=====================================================          
  395. NEXT_COL:
  396.           LXY           COUNTERB
  397.           TAM           0
  398.           TYA
  399.           DEY
  400.           BL            DPortNext
  401.           BL            SCANEND
  403. DPortNext:
  404.           TAY
  405.           LXY           COUNTERB
  406.           XAM           0
  407.           TAM           0
  408.           TYA
  409.           BL            SetPortD1
  411. SCANEND:
  412.   LA DIGTF
  413.   TPU0A
  414.   NOP
  415.   RT
  416.   
  417. ;=====================================
  418. INC_COUNTERA:
  419.          LXY            COUNTERA
  420.          TAM            0
  421.          SEA 1
  422.          BL EAU_2
  423.          LXY ROWNO_NEW
  424.          TAM 0
  425.          LXY ROWNO_FIRST
  426.          XAM 0
  427.          LXY COLNO_NEW
  428.          TAM 0
  429.          LXY COLNO_FIRST
  430.          XAM 0
  431.          BL INC_COUNTER
  432. EAU_2:
  433.  SEA 2
  434.  BL INC_COUNTER
  435.          LXY ROWNO_NEW
  436.          TAM 0
  437.          LXY ROWNO_SEC
  438.          XAM 0
  439.          LXY COLNO_NEW
  440.          TAM 0
  441.          LXY COLNO_SEC
  442.          XAM 0
  443. INC_COUNTER:  
  444.  LXY            COUNTERA
  445.          TAM            0
  446.          A 1
  447.          NOP
  448.          XAM            0
  449.          RT                  
  451. INC_COUNTERA_S:
  452.          LXY            COUNTERA_S
  453.          TAM            0
  454.          A 1
  455.          NOP
  456.          XAM            0
  457.          RT
  460. COL_TRAN:
  461.          LXY            COUNTERB
  462.          TAM            0
  463.          LXY            COLNO_NEW
  464.          XAM            0
  465.          RT
  466. COLADD8:
  467.          LXY            COUNTERB
  468.          TAM            0
  469.          A              DIGT8
  470.          NOP
  471.          LXY            COLNO_NEW
  472.          XAM            0
  473.          RT
  474.                
  475. ;=====================================
  476. ;; CODE TABLE.
  477. ;=====================================
  480.           .ORG    0300H
  481.                        ;;;;;;;G3
  482.        .DW   11AH       ;K22         ;-----D0
  483.        .DW   13DH       ;K19
  484.        .DW   0FFH       ;K-- 
  485.        .DW   0FFH       ;K21
  486.        .DW   035H    ;K20
  487.        .DW   009H       ;K17
  488.        .DW   03CH       ;K18
  489.        .DW   121H       ;K15          ;-----D7
  490.                        ;;;;;;;G2
  491.        .DW   011H       ;K16
  492.        .DW   024H       ;K13
  493.        .DW   018H       ;K10
  494.        .DW   004H       ;K12
  495.        .DW   000H       ;K14
  496.        .DW   038H       ;K11
  497.        .DW   028H       ;K09
  498.        .DW   008H       ;K08                                       
  499. ;============================
  500.           .ORG    0310H
  501.                       ;;;;;G1
  502.        .DW   030H    ;K07
  503.        .DW   025H       ;K04
  504.        .DW   0FFH       ;K--
  505.        .DW   010H       ;K06
  506.        .DW   020H    ;K05
  507.        .DW   02CH       ;K02
  508.        .DW   007H       ;K03
  509.        .DW   00CH       ;K01
  510.                         ;;;G0
  512.        .DW   0FFH    ;K28
  513.        .DW   01CH       ;K25
  514.        .DW   0FFH       ;K--
  515.        .DW   0FFH       ;K24
  516.        .DW   0FFH    ;K26
  517.        .DW   031H       ;K23
  518.        .DW   02DH       ;K27
  519.        .DW   0FFH       ;K--
  520.                        
  521. ;=========================
  522.           .ORG    0320H
  523.                        ;;;;E0
  524.        .DW   122H        ;K31
  525.        .DW   11AH        ;K34
  526.        .DW   0FFH        ;K--
  527.        .DW   00DH        ;K33
  528.        .DW   12AH        ;K32
  529.        .DW   102H        ;K29
  530.        .DW   112H        ;K30
  531.        .DW   0FFH        ;K--
  534. ;=====================================================
  535. ; RAM CLEAR
  536. ;=====================================================
  537. RAMCL0:
  538.         LXY     0,11              ;(X) <- 0 ,(Y) <- 11
  539. RAMCL1:
  540.         LXY     1,11              ;(X) <- 1 ,(Y) <- 11
  541. RAMCL2:
  542.         LXY     2,11              ;(X) <- 2 ,(Y) <- 11
  543. RAMCL3:
  544.         LXY     3,11              ;(X) <- 3 ,(Y) <- 11
  545. RAMCL:
  546.         LA      15                ;(A) <- F
  547.         XAMD    0              ;(A) <-> (M) ,Y-1
  548.         BL       RAMCL
  549.         RT
  551. ;======================================================
  552. WAIT20: NOP ;
  553. WAIT19: NOP ;
  554. WAIT18: NOP ;
  555. WAIT17: NOP ;
  556. WAIT16: NOP ;
  557. WAIT15: NOP ;
  558. WAIT14: NOP ;
  559. WAIT13: NOP ;
  560. WAIT12: NOP ;
  561. WAIT11: NOP ;
  562. WAIT10: NOP ;
  563. WAIT9: NOP ;
  564. WAIT8: NOP ;
  565. WAIT7: NOP ;
  566. WAIT6: NOP ;
  567. WAIT5: NOP ;
  568. WAIT4: RT ;
  571. ;*******************************************************
  572. ; BIT DATA TRANSMIT
  573. ;*******************************************************
  574. BIT2SEND:        
  575. LA        DIGT1 ;BIT=0
  576.                 TBA
  577.                 LA        DIGTF
  578.                 T1AB
  579.                 LA      DIGTD
  580. Pre2Htime:       
  581.                 SNZT1                                                 
  582.                 B         Pre2Htime
  583.                 TV2A
  584.                 LA      DIGT5
  585.                 TV1A
  586.                 LA        DIGT1
  587.                 TBA
  588.                 LA        DIGTF                
  589.                 T1AB                
  590.                 RC
  591. Send2Clow:
  592.                 SNZT1
  593.                 B         Send2Clow
  594.                 RT
  599. BITSEND:        
  600. SZC   
  601. BL   FIRST_OSC ;BIT=1
  602.                 LA        DIGT1 ;BIT=0
  603.                 TBA
  604.                 LA        DIGTF
  605.                 T1AB
  606.                
  607. PreHtime:       
  608.                 SNZT1                                                 
  609.                 B         PreHtime
  610.                
  611.                 LA      DIGT5
  612.                 TV1A
  613.                 LA        DIGT1
  614.                 TBA
  615.                 LA        DIGTF                
  616.                 T1AB                
  617.                 RC
  618. SendClow:
  619.                 SNZT1
  620.                 B         SendClow
  621.                 TABE
  622.                 RAR
  623.                 SZC
  624.                 LA   DIGT1
  625.                 LA   DIGT5
  626.                 TV1A
  627.                 RT
  628. ;=================================================               
  629. FIRST_OSC:                
  630.                 LA        DIGT1
  631.                 TBA
  632.                 LA        DIGTF
  633.                 T1AB
  634. Htime:       
  635.                 SNZT1                                                 
  636.                 B         Htime
  637.                 LA      DIGT5
  638.                 TV1A
  639.                 LA        DIGT1
  640.                 TBA
  641.                 LA        DIGTF                
  642.                 T1AB                
  643.                 RC                
  644.                 
  645. Sendlow:
  646.                 SNZT1
  647.                 B         Sendlow
  648.                
  649.                 TABE
  650.                 RAR
  651.                 SZC
  652.                 LA     DIGT5     
  653.                 LA     DIGT1
  654.                 TV1A
  655.                 RT
  656. ;=======================================================
  658. SEND_1BIT:
  659. TAM     0
  660.                 XAMI     0
  661.                 RAR
  662.                 SZC
  663.                 BL     SC_1
  664.                 RC
  665.                 BL     ROT_1
  666. SC_1:
  667.                 SC
  668. ROT_1:                   
  669. TAM     0 ;The toggle bit is transfered to A.
  670.                 TEAB
  671.                 BML         BITSEND             ;BIT DATA TRANSMIT
  672.                 RT
  675. TOGGLE:        
  676.                 TAM   0
  677.                 RAR
  678. SZC   
  679. BL   TGFIRST_OSC ;BIT=1
  680.                 LA        DIGT1 ;BIT=0
  681.                 TBA
  682.                 LA        DIGTF
  683.                 T1AB
  684.               
  685. TGPreHtime:       
  686.                 SNZT1                                                 
  687.                 B         TGPreHtime
  688.                 
  689.                 LA      DIGT5
  690.                 TV1A
  691.                 LA        DIGT1
  692.                 TBA
  693.                 LA        DIGTF                
  694.                 T1AB                
  695.                 RC
  696. TGSendClow:
  697.                 SNZT1
  698.                 B         TGSendClow
  699.                 LXY   CUSTOMH
  700.                 TAM   0
  701.                 RAR
  702.                 SZC
  703.                 LA   DIGT1
  704.                 LA   DIGT5
  705.                 TV1A
  706.                 RT
  707. ;=================================================               
  708. TGFIRST_OSC:                
  709.                 LA        DIGT1
  710.                 TBA
  711.                 LA        DIGTF
  712.                 T1AB
  713. TGHtime:       
  714.                 SNZT1                                                 
  715.                 B         TGHtime
  716.                 LA      DIGT5
  717.                 TV1A
  718.                 LA        DIGT1
  719.                 TBA
  720.                 LA        DIGTF                
  721.                 T1AB                
  722.                 RC                
  723.                 
  724. TGSendlow:
  725.                 SNZT1
  726.                 B         TGSendlow
  727.                 
  728.                 
  729.                 LXY   CUSTOMH
  730.                 TAM   0
  731.                 RAR
  732.                 SZC
  733.                 LA   DIGT5     
  734.                 LA   DIGT1
  735.                 TV1A
  736.                 RT
  737.                                 
  738. ;*******************************************************
  739. ; WORD DATA TRANSMIT
  740. ;*******************************************************
  741. WORD:
  742.                 BML     CHECK_NEXDATBIT
  743.                 RAR                        ;0  ;Clear C 
  744.                 TEAB                   
  745.                 BML         BITSEND             ;BIT DATA TRANSMIT
  746. TABE
  747.                 RAR                        ;1
  748. TEAB
  749.                 BML         BITSEND             ;BIT DATA TRANSMIT
  750.         TABE
  751. RAR                        ;2
  752. TEAB
  753.                 BML         BITSEND             ;BIT DATA TRANSMIT
  754. TABE
  755.                 RAR                        ;3
  756. TEAB
  757.                 BML         BITSEND             ;BIT DATA TRANSMIT
  758. TABE
  759.                 RT  
  760.                 
  761. SEND_2BIT:
  762.                 BML     CHECK_NEXDATBIT
  763.                 RAR                        ;0   ;Clear C 
  764.                 TEAB                   
  765.                 BML         BITSEND             ;BIT DATA TRANSMIT
  766. TABE
  767.                 RAR                        ;1
  768.                 LA     1
  769. TEAB
  770.                 BML         BITSEND             ;BIT DATA TRANSMIT
  771.         TABE                 
  772.                 RT
  773.                 
  774. ;==================================================                
  775. CHECK_NEXDATBIT:
  776. TAM     0
  777.                 XAMI     0
  778.                 TEAB
  779.                 TAM     0
  780.                 RAR
  781.                 SZC
  782.                 BL     SC_BIT
  783.                 RC
  784.                 BL     ROT_DATA
  785. SC_BIT:
  786.                 SC
  787. ROT_DATA:
  788. TABE                
  789. RT
  790. ;==================================================
  791. ;this program compare twice key if equal.
  792. ;if equal,return and  skip
  793. ;if no equal, save new scan key and no skip
  794. ;==================================================
  795. COMP_KEY:
  796.                    LXY     ROWNO_NEW
  797.                    TAM     0
  798.                    LXY     ROWNO_SAE
  799.                    SEAM
  800.                    BL      NoEqual
  801.                    LXY     COLNO_NEW
  802.                    TAM     0
  803.                    LXY     COLNO_SAE
  804.                    SEAM
  805.                    BL      NoEqual
  806.                    RT
  807. NoEqual:
  808.                    LXY     ROWNO_NEW
  809.                    TAM     0
  810.                    LXY     ROWNO_SAE
  811.                    XAM     0
  812.                    LXY     COLNO_NEW
  813.                    TAM     0
  814.                    LXY     COLNO_SAE
  815.                    XAM     0
  816.                    
  817.                    RTS
  818.                    
  819. ;=================================================
  820. ;;================================================
  822. COLD1:
  823.         SEA   0
  824.         BL    RESCAN2       
  825.         BL    WAITKEY       
  826. RESCAN2:
  827.         LXY    ROWNO_OLD
  828.         LA     DIGTF
  829.         XAMI   0            ;ROWNO_OLD
  830.         LA     DIGTF
  831.         XAMI   0            ;COLNO_OLD
  832.         LA     DIGTF
  833.         XAMI   0            ;ROWNO_SAE
  834.         LA     DIGTF
  835.         XAM    0            ;COLNO_SAE   
  836.                
  837.         BL     RESCAN
  838.         
  842. ;============================================================  
  844. COLD_BOOT:                
  845.                 BML     RAMCL0          ;RAM CLEAR TO F
  846.                 BML     RAMCL1          ;RAM CLEAR
  847.                 BML     RAMCL2          ;RAM CLEAR
  848.                 BML     RAMCL3
  849.                 
  850. WAITKEY:
  852.                 LXY      0,7                 
  853. SETD_H:         SD
  854.                 DEY
  855.                 BL      SETD_H          ;SET D0-D7=1.
  856.                 LXY     ROWNO_CUR
  857.                 LA      DIGTF
  858.                 XAMI    0
  859.                 LA      DIGTF
  860.                 XAM     0
  862.                 LXY     ROWNO_SAE
  863.                 LA      DIGTF
  864.                 XAMI    0
  865.                 LA      DIGTF
  866.                 XAM     0
  868.                 LA       DIGTF     ;all G/E port expect E0!!!set pull-down transistor
  869.                 TPU0A              ;and key-on wakeup valid
  870.                 LA       DIGT0     ;set D7-D4 port  no pull-down transistor.
  871.                 TPU1A              ;and key-on wakeup invalid.
  872.                 POF                ; WAIT FOR PRESS KEY
  873.                 
  875.        .END
  876. ;======================================================