home *** CD-ROM | disk | FTP | other *** search
/ ticalc.org / ticalc_org_rev_b.iso / archives / 92 / asm / source / fargo / irlib.asm < prev    next >
Encoding:
Assembly Source File  |  2001-07-01  |  5.3 KB  |  261 lines
  1. ;
  2. ;
  3. ;  IR Link Library v1.0 for the TI92
  4. ;
  5. ;      by Sami Khawam ( sKhawam@bigfoot.com )
  6. ;
  7. ;
  8. ;  This library will enable you to use the IR Link. There are only
  9. ;  4 routines now, but new routines will be added in the future ( like
  10. ;  remote control encoding, deconding...).
  11. ;
  12. ;  Although the ROM link routines can be used with the IR Link, this
  13. ;  library has it own linking routines ( work also without the IR Link ).
  14. ;
  15. ;
  16. ;  If you haven't yet heard of the IR Link, take a look at my homepage:
  17. ; 
  18. ;      http://unet.univie.ac.at/~a9501901
  19. ;
  20. ;
  21. ;  Thanks for Antoine Mercier for having ported
  22. ;  the PutByte routine from the TI85.
  23. ;
  24. ;
  25. ;  Sami Khawam
  26.  
  27.  
  28.     include    "tios.h"
  29.     xdef    _library
  30.    xdef  irlib@0000
  31.    xdef  irlib@0001
  32.    xdef  irlib@0002
  33.    xdef  irlib@0003
  34.    xdef  irlib@0004
  35.  
  36. ;************** Start of library ***************
  37.  
  38.  
  39.  
  40. ; **********************************************
  41. ;
  42. ; PutByte:  Send a byte to the IR Link
  43. ; Input:    d3.b  Byte to send
  44. ; Output:   none
  45. ; Destroyed: d4
  46. ;
  47. ;
  48. ;
  49. ; PutLink:  Send a byte/word of longword to the IR Link
  50. ; Input:    d3  data to send
  51. ;           d4  number of bits -1 (7...31)
  52. ; Output:   none
  53. ; Destroyed: none
  54. ;
  55. ; Thanks for Antoine Mercier for having ported
  56. ; those routine from the TI85.
  57. ;
  58.  
  59. irlib@0000:
  60. PutByte:
  61.    move.w    #7,d4
  62. irlib@0001:
  63. PutLink
  64.     movem    d2-d4,-(a7)
  65.     clr.b    $60000C
  66.     bset.b    #6,$60000C            ; Turn on control mode
  67.  
  68. nextbit:
  69.     bclr.b    #0,$60000E            ; rouge haut
  70.     bclr.b    #1,$60000E            ; blanc haut
  71.     lsr.l    #1,d3
  72.     bcc        pbsend0
  73. pbsend1:
  74.     bset.b    #1,$60000E            ; blanc bas
  75.     bra        pbsuite
  76. pbsend0:
  77.     bset.b    #0,$60000E            ; rouge bas
  78. pbsuite:
  79.     move.w    #$FFFF,d2
  80. waitforR0:
  81.     btst.b    #2,$60000E
  82.     bne        suite1
  83.     btst.b    #2,$60000E
  84.     bne        suite1
  85.     dbne    d2,waitforR0
  86.     bra        pbfin
  87. suite1:
  88.     move.w    #$FFFF,d2
  89. waitforW0:
  90.     btst.b    #3,$60000E
  91.     bne        suite2
  92.     btst.b    #3,$60000E
  93.     bne        suite2
  94.     dbne    d2,waitforW0
  95.     bra        pbfin
  96. suite2:
  97.     bclr.b    #0,$60000E            ; rouge haut
  98.     bclr.b    #1,$60000E            ; blanc haut
  99.     move.w    #$FFFF,d2
  100. waitforR1:
  101.     btst.b    #2,$60000E
  102.     beq        suite3
  103.     btst.b    #2,$60000E
  104.     beq        suite3
  105.     dbne    d2,waitforR1
  106.     bra        pbfin
  107. suite3:
  108.     move.w    #$FFFF,d2
  109. waitforW1:
  110.     btst.b    #3,$60000E
  111.     beq        suite4
  112.     btst.b    #3,$60000E
  113.     beq        suite4
  114.     dbne    d2,waitforW1
  115.     bra        pbfin
  116. suite4:
  117.     dbne    d4,nextbit
  118. pbfin:
  119.     bclr.b    #0,$60000E            ; rouge haut
  120.     bclr.b    #1,$60000E            ; blanc haut
  121.     movem    (a7)+,d2-d4
  122.     rts
  123.  
  124. ;*****************************************************
  125.  
  126.  
  127. ; **********************************************
  128. ;
  129. ; GetByte:  Get a byte from the IR Link
  130. ; Input:    none
  131. ; Output:   d3.b  Byte received
  132. ; Destroyed: d4
  133. ;
  134. ;
  135. ;
  136. ; PutLink:  Get a byte/word of longword from the IR Link-DOESN'T WORK
  137. ; Input:    d4.w  Number of Bits
  138. ; Output:   d3    data received
  139. ; Destroyed: none
  140. ;
  141. ; The GetLink routine DOES NOT WORK!
  142. ;
  143. ;
  144. irlib@0002:
  145. GetByte:
  146.    move.w   #8,d4          
  147. irlib@0003:
  148. GetLink:                    ; Doesn't work with d4 != 8
  149.    movem    d1-d2,-(a7)   
  150.    clr.l    d3
  151. ;   clr.b    $60000C
  152. ;   bset.b   #6,$60000C      ; Turn on control mode
  153. GLNextBit
  154.     move.w    #$FFFF,d2
  155. GLWaitChange:
  156.     btst.b    #2,$60000E
  157.    bne      GLGet0
  158.    btst.b   #3,$60000E
  159.    bne      GLGet1
  160.    btst.b   #2,$60000E
  161.    bne      GLGet0
  162.    btst.b   #3,$60000E
  163.    bne      GLGet1
  164.     sub.w        #1,d2
  165.     cmp.w        #0,d2
  166.    bne      GLWaitChange
  167.    bra      GLEnd
  168. GLGet0:
  169.    bset.b   #1,$60000E        ; Set W0
  170.    lsr.l    #1,d3
  171. GLWaitR1:
  172.    btst.b   #2,$60000E
  173.    beq      GLSetHigh
  174.    btst.b   #2,$60000E
  175.    beq      GLSetHigh
  176.     sub.w        #1,d2
  177.     cmp.w        #0,d2
  178.    bne      GLWaitR1
  179.    bra      GLEnd
  180. GLGet1:
  181.    bset.b   #0,$60000E        ; Set R0
  182.    lsr.l    #1,d3
  183.    ori      #$80,d3         
  184. GLWaitW1:
  185.    btst.b   #3,$60000E
  186.    beq      GLSetHigh
  187.    btst.b   #3,$60000E
  188.    beq      GLSetHigh
  189.     sub.w        #1,d2
  190.     cmp.w        #0,d2
  191.    bne      GLWaitW1
  192.    bra      GLEnd
  193. GLSetHigh
  194.    bclr.b   #0,$60000E        ; Set R1
  195.    bclr.b   #1,$60000E        ; Set W1
  196.    move.w   #$0008,d2
  197. GLWaitR1_2:
  198.    btst.b   #2,$60000E
  199.    beq      GLCont1
  200.    btst.b   #2,$60000E
  201.    beq      GLCont1
  202.    sub.w    #1,d2
  203.    cmp.w    #0,d2
  204.    bne      GLWaitR1_2
  205. GLCont1:
  206.    move.w   #$0008,d2
  207. GLWaitW1_2:
  208.    btst.b   #3,$60000E
  209.    beq      GLCont2
  210.    btst.b   #3,$60000E
  211.    beq      GLCont2
  212.    sub.w    #1,d2
  213.    cmp.w    #0,d2
  214.    bne      GLWaitW1_2
  215. GLCont2:
  216.    sub.w    #1,d4
  217.    cmp.w    #0,d4
  218.    bne      GLNextBit
  219. GLEnd:
  220.    bclr.b   #0,$60000E        ; Set R1
  221.    bclr.b   #1,$60000E        ; Set W1
  222.    movem    (a7)+,d1-d2
  223.     rts
  224.  
  225. ;*****************************************************
  226. ;
  227. ; Convert between frequency in KHz to delay units needed by the IR Link.
  228. ; Input:    d2.b  Freq in KHz.
  229. ; Output:   d3.w  contains the 2 delay values.
  230. ; Used:     a2
  231. ;
  232. irlib@0004:
  233. Freq2Delay:
  234.    sub.b    #30,d2         ; Substract 30KHz from it.
  235.    andi     #30,d2         
  236.    lea      DelayTab(PC),a2 ; Now A2 points to the delay table.
  237.    move.w   0(a2,d2),d3    ; Copy the 2 delay values corresponding
  238.                            ; to the freq to d3.
  239.    rts
  240.  
  241.  
  242.  
  243.  
  244. ;*****************************************************
  245.  
  246.  
  247. DelayTab:                        ; To convert between KHz and delay units.
  248.    dc.b $0B,$0F 
  249.    dc.b $0C,$10 
  250.    dc.b $0D,$11 
  251.    dc.b $0E,$12 
  252.    dc.b $0F,$12 
  253.    dc.b $0F,$13 
  254.    dc.b $10,$14 
  255.    dc.b $11,$14 
  256.    dc.b $11,$15 
  257.    dc.b $12,$15
  258.  
  259. _library    dc.b    "irlib",0
  260.     end
  261.