home *** CD-ROM | disk | FTP | other *** search
/ ticalc.org / ticalc_org_rev_b.iso / archives / 92plus / asm / source / irremote.asm < prev    next >
Encoding:
Assembly Source File  |  2001-07-01  |  7.4 KB  |  312 lines
  1. ;
  2. ;
  3. ; IR Remote v2.0 for the TI89 and the TI92+.
  4. ;
  5. ; A sample program for using the IR Link as a  Learning Remote Control.
  6. ;
  7. ;  by Sami Khawam (sKhawam@bigfoot.com)
  8. ;
  9. ;  http://sami.ticalc.org
  10. ;
  11. ; The programm is very simple to use. There are 8 keys functions
  12. ; represented by F1-F8 keys. To make the program record data
  13. ; from a remote control, press Enter and choose the key and then the
  14. ; frequency and the time base. If you don't know thoses value , eg.
  15. ; when dealing  with an unknow remote, you should experiment by using
  16. ; differents ones. Try also the classic Time Base/Frequency combinations
  17. ; like 15/38Khz and 12/32Khz.
  18. ;
  19. ; This programm needs the STANDART version of the IR Link.
  20. ; The IRLib library is needed.
  21. ;
  22. ;
  23. ;  If you haven't yet heard of the IR Link, take a look at my homepage:
  24. ; 
  25. ;      http://sami.ticalc.org
  26. ;
  27.  
  28.  
  29.     include "doorsos.h"
  30.     include "graphlib.h"
  31.     include "userlib.h"
  32.    include "hexlib.h"
  33.    include "irlib.h"
  34.  
  35.     xdef    _ti89
  36.    xdef  _ti92plus
  37.     xdef    _main
  38.     xdef    _comment
  39.  
  40.  
  41.  
  42. ;************************* Start of Program **************************
  43.  
  44. _main:
  45.    clr      d3
  46.    clr      d4
  47.    clr      d5
  48.    jsr      graphlib::clr_scr2
  49.    SetFont  #1
  50.    WriteStr #8,#5,#0,_comment
  51.    SetFont  #2
  52.    WriteStr #0,#40,#1,Text1
  53.    WriteStr #0,#60,#1,Text2
  54.  
  55.    clr.b    $60000C
  56.    bset.b   #6,$60000C      ; Turn on control mode
  57.  
  58. Loop:
  59.    jsr      userlib::idle_loop
  60.  
  61.     cmp        #264,d0            ; exit
  62.     beq        Exit
  63.    cmp      #13,d0         ; Enter
  64.    beq      RecordRemote
  65.  
  66.    cmp      #268,d0        
  67.    blt      Loop
  68.    sub      #268,d0        ; 268 is the code for F1
  69.    cmp      #7,d0          ; 268+7=275, code for F8
  70.    bgt      Loop
  71.  
  72.    lea      CmdTable(PC),a0 ; Now A0 points to the data start.
  73.    lsl.w    #5,d0           ; Multiply by 32, since we use 32 bytes for each
  74.                             ; of the 5 commands.
  75.    add.l    d0,a0
  76.  
  77.    move.b   #30,d3            ; Tell the link that we are going to send
  78.    jsr      irlib::PutByte    ; 30 bytes.
  79.    bsr      SendHeader
  80.  
  81.    move.w   #29,d5
  82. SNextByte:
  83.    move.b   (a0)+,d3
  84.    jsr      irlib::PutByte
  85.    dbra.w   d5,SNextByte
  86.  
  87. ;   sub.w    #1,d5
  88. ;   cmp.w    #0,d5
  89. ;   bne      SNextByte
  90.  
  91.     bra        Loop
  92.  
  93. Exit:
  94.    jsr      doorsos::reset_link
  95.     rts
  96.  
  97. SendHeader:
  98.    move.b   (a0)+,d3       ; Send the time base.
  99.    jsr      irlib::PutByte
  100.    clr      d2
  101.    move.b   (a0)+,d2       ; Read the frequency information.
  102.    jsr      irlib::Freq2Delay
  103.    move.w   #15,d4         ; Send both of them.
  104.    jsr      irlib::PutLink
  105.    rts                     ; Return.
  106.  
  107.  
  108.  
  109.  
  110. RecordRemote
  111.    jsr      graphlib::clr_scr2
  112.    SetFont  #1
  113.    WriteStr #8,#5,#0,_comment
  114.    WriteStr #0,#30,#1,Text3
  115. RRKLoop:
  116.    jsr      userlib::idle_loop
  117.    cmp      #264,d0        ; exit. Return to main loop.
  118.    beq      _main
  119.    cmp      #268,d0        
  120.    blt      RRKLoop
  121.    sub      #268,d0        ; 268 is the code for F1
  122.    cmp      #7,d0          ; 268+7=275, code for F8
  123.    bgt      RRKLoop
  124.  
  125.    lea      CmdTable(PC),a3 ; Now A3 points to the data start.
  126.    lsl.w    #5,d0           ; Multiply by 32, since we use 32 bytes for each
  127.                             ; of the 5 commands.
  128.    add.l    d0,a3           ; a3 points now to the start of data.
  129.  
  130.    WriteStr #0,#40,#1,Text4 ; Get time base
  131.    move.w   #5,d1           ; Where to print the value.
  132.    move.w   #8,d2
  133.    clr      d5              ; Min time base = 0
  134.    move.b   #$FE,d6         ; Max time base = $FE
  135.    bsr      InputValue      ; Get time base from user.
  136.  
  137.    add      #1,a3
  138.  
  139.    WriteStr #0,#48,#1,Text5 ; Get freq
  140.    move.w   #6,d1          ; Where to print the value.
  141.    move.w   #13,d2
  142.    move.b   #30,d5          ; Min freq = 30Khz
  143.    move.b   #48,d6          ; Max freq = 48Khz
  144.    bsr      InputValue      ; Get time base from user.
  145.  
  146.    move.b   #$5E,d3           ; Tell the link that we want to receive
  147.    jsr      irlib::PutByte    ; 30 bytes.
  148.  
  149.    sub      #1,a3
  150.    move.l   a3,a0
  151.    bsr      SendHeader      ; Send the header.
  152.    move.l   a0,a3
  153.  
  154.    jsr      graphlib::clr_scr2
  155.    WriteStr #20,#10,#0,Text6
  156.  
  157.    bclr.b   #0,$60000E        ; Set R1
  158.    bclr.b   #1,$60000E        ; Set W1
  159.  
  160.    move.w   #1,-(a7)
  161.    jsr      doorsos::ST_busy
  162.    lea      2(a7),a7
  163.  
  164.  
  165. WaitSig:
  166.    tst.w    (doorsos::kb_vars+$1C)
  167.    beq      CheckLines
  168.    move.w   (doorsos::kb_vars+$1E),d0
  169.    clr.w    (doorsos::kb_vars+$1C)
  170.    cmp.w    #264,d0
  171.    beq      _main
  172. CheckLines:
  173.    btst.b   #2,$60000E
  174.    bne      ReceiveData
  175.    btst.b   #3,$60000E
  176.    bne      ReceiveData
  177.    bra      WaitSig
  178.  
  179. ;   move.l   #5,d1
  180. ;   move.l   #1,d2
  181.  
  182. ReceiveData:
  183.    move.w   #29,d5
  184. GNextByte:
  185.    jsr      irlib::GetByte
  186.    move.b   d3,(a3)+
  187.  
  188. ;   movem    d3-d5,-(a7)
  189. ;
  190. ;   clr.l    d0
  191. ;   move.b   d3,d0
  192. ;   move.l   #1,d3
  193. ;   jsr      hexlib::put_hex
  194. ;
  195. ;   add.l    #2,d2
  196. ;   cmp.l    #20,d2
  197. ;   blt      NoNewLine
  198. ;   add.l    #1,d1
  199. ;   clr.l    d1   
  200. ;NoNewLine
  201. ;   movem    (a7)+,d3-d5
  202.  
  203.    dbra.w   d5,GNextByte
  204.  
  205. ;   sub.w    #1,d5
  206. ;   cmp.w    #0,d5
  207. ;   bne      GNextByte
  208.  
  209.  
  210.    bra      _main
  211.  
  212.  
  213.  
  214.  
  215. ; InputValue
  216. ; Input: d1 ( row), d2 (column)
  217. ;        d5 ( min val), d6 ( max val )
  218. ;        a3 ( address where the byte will be stored )
  219. ; Output: (a3) contains byte read
  220. ;
  221. InputValue:
  222.    movem    d1-d6,-(a7)   ; Save the coordinates of the numbers
  223.  
  224.    move.b   (a3),d4       ; Read the data from memory.
  225.    clr.b    d0
  226.  
  227. Convert2BCD
  228.    subi.b   #10,d4
  229.    bcs      IVCont
  230.    addi.b   #$10,d0
  231.    bra      Convert2BCD
  232. IVCont
  233.    addi.b   #10,d4
  234.    or.b     d4,d0
  235.  
  236.    move.w   #1,d4
  237.     jsr        hexlib::put_hex
  238.  
  239.    jsr      userlib::idle_loop
  240.  
  241.    movem    (a7)+,d1-d6   ; Restore the coordinates of the numbers
  242.  
  243.    cmp      #KEY_DOWN,d0        ; down
  244.    beq      Decrement
  245.    cmp      #KEY_UP,d0        ; up
  246.    beq      Increment
  247.    cmp      #13,d0         ; Enter
  248.    beq      IVExit
  249.    bra      InputValue
  250. Decrement:
  251.    move.b   (a3),d0       ; Read the data from memory.
  252.    cmp.b    d5,d0
  253.    beq      InputValue
  254.    sub.b    #1,d0
  255.    move.b   d0,(a3)       ; Write data to memory.
  256.    bra      InputValue
  257. Increment:
  258.    move.b   (a3),d0       ; Read the data from memory.
  259.    cmp.b    d6,d0
  260.    beq      InputValue
  261.    add.b    #1,d0
  262.    move.b   d0,(a3)       ; Write data to memory.
  263.    bra      InputValue
  264. IVExit:
  265.     rts
  266.  
  267.  
  268.  
  269. CmdTable: 
  270.  
  271.    dc.b 10,32
  272.    dc.b 1,2,3,4,5,6,7,8,9,$Fe
  273.    dc.b 0,0,0,0,0,0,0,0,0,0
  274.    dc.b 0,0,0,0,0,0,0,0,0,0
  275.    dc.b 11,34
  276.    dc.b 0,0,0,0,0,0,0,0,0,0
  277.    dc.b 0,0,0,0,0,0,0,0,0,0
  278.    dc.b 0,0,0,0,0,0,0,0,0,0
  279.    dc.b 12,36
  280.    dc.b 0,0,0,0,0,0,0,0,0,0
  281.    dc.b 0,0,0,0,0,0,0,0,0,0
  282.    dc.b 0,0,0,0,0,0,0,0,0,0
  283.    dc.b 13,38
  284.    dc.b 0,0,0,0,0,0,0,0,0,0
  285.    dc.b 0,0,0,0,0,0,0,0,0,0
  286.    dc.b 0,0,0,0,0,0,0,0,0,0
  287.    dc.b 14,40
  288.    dc.b 0,0,0,0,0,0,0,0,0,0
  289.    dc.b 0,0,0,0,0,0,0,0,0,0
  290.    dc.b 0,0,0,0,0,0,0,0,0,0
  291.    dc.b 15,42
  292.    dc.b 0,0,0,0,0,0,0,0,0,0
  293.    dc.b 0,0,0,0,0,0,0,0,0,0
  294.    dc.b 0,0,0,0,0,0,0,0,0,0
  295.    dc.b 16,44
  296.    dc.b 0,0,0,0,0,0,0,0,0,0
  297.    dc.b 0,0,0,0,0,0,0,0,0,0
  298.    dc.b 0,0,0,0,0,0,0,0,0,0
  299.    dc.b 17,46
  300.    dc.b 0,0,0,0,0,0,0,0,0,0
  301.    dc.b 0,0,0,0,0,0,0,0,0,0
  302.    dc.b 0,0,0,0,0,0,0,0,0,0
  303.  
  304. Text1:   dc.b  "Enter to Record.",0
  305. Text2:   dc.b  "F1-F8 to Send.",0
  306. Text3:   dc.b  "Key (F1-F8) to Assing:",0
  307. Text4:   dc.b  "Time Base:",0
  308. Text5:   dc.b  "Frequency (KHz):",0
  309. Text6:   dc.b  "Waiting for data...",0
  310. _comment dc.b  "IR Remote by Sami Khawam",0
  311.     end
  312.