home *** CD-ROM | disk | FTP | other *** search
/ ticalc.org / ticalc_org_rev_b.iso / archives / 89 / asm / source / irlib.asm < prev    next >
Encoding:
Assembly Source File  |  2001-07-01  |  8.9 KB  |  430 lines
  1. ;
  2. ;
  3. ;  IR Link Library v1.0 for the TI89 and 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, decoding...).
  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. ;  This library is accualy an executable asm program. When executed
  16. ;  the user will be able to change the settings of the library.
  17. ;  Currently there are 3 settings you can change:
  18. ;
  19. ;  -Swap Lines: On/Off .
  20. ;   This option is useful if you have unintetionaly swaped the red
  21. ;   and the white wires of the calc-ir_link connection. Use it
  22. ;   if you dont want to solder the cable again.
  23. ;
  24. ;  -Timeout duration:
  25. ;   Set the duration that the calc should try to transfer data
  26. ;   when it doesn't receive anything.
  27. ;
  28. ;  -Linking Delay:
  29. ;   Set the linking delay. Maybe useful if connected with a
  30. ;   slower calc(eg. TI82), or if you are getting errors.
  31. ;
  32. ;  If you haven't yet heard of the IR Link, take a look at my homepage:
  33. ; 
  34. ;      http://sami.ticalc.org
  35. ;
  36. ;
  37. ;  Thanks for Antoine Mercier for having ported
  38. ;  the PutByte routine from the TI85.
  39. ;
  40. ;
  41. ;  Sami Khawam
  42.  
  43.  
  44.    include  "doorsos.h"
  45.    include "graphlib.h"
  46.     include "userlib.h"
  47.    include "hexlib.h"
  48.    xdef  _main
  49.     xdef    _ti92plus
  50.     xdef    _ti89
  51.    xdef  _comment
  52.    xdef  irlib@0000
  53.    xdef  irlib@0001
  54.    xdef  irlib@0002
  55.    xdef  irlib@0003
  56.    xdef  irlib@0004
  57.  
  58.  
  59.  
  60. ;************** Start of program ***************
  61.  
  62. _main:
  63.  
  64.    move.w   #40,d5          ; d5 contains the cursor position
  65.  
  66. ClearScreen:
  67.    jsr      graphlib::clr_scr
  68.    SetFont  #2
  69.    WriteStr #18,#1,#1,_comment
  70.    WriteStr #45,#20,#1,Text1
  71.    SetFont  #1
  72.    WriteStr #8,#40,#1,Text2
  73.    WriteStr #8,#56,#1,Text3
  74.    WriteStr #8,#72,#1,Text4
  75.  
  76.  
  77. DrawCur:
  78.   
  79.    move.w   #4,-(a7)
  80.    move.w   d5,-(a7)
  81.    move.w   #1,-(a7)
  82.    move.w   #26,-(a7)                ; This is the '>>' charachter.
  83.    jsr      userlib::DrawCharXY
  84.    lea      8(a7),a7
  85.  
  86.  
  87. PrintState:
  88.    btst.b   #0,(SwapL)
  89.    beq      PrintOff
  90.    WriteStr #120,#40,#1,Text5
  91.    bra      PrintDelays
  92. PrintOff
  93.    WriteStr #120,#40,#1,Text6
  94.  
  95.  
  96. PrintDelays:
  97.    clr.l    d0
  98.    move.w   (Timeout),d0
  99.    move.l   #7,d1
  100.    move.l   #15,d2
  101.    move.l   #3,d4
  102.    jsr      hexlib::put_hex
  103.  
  104.    clr.l    d0
  105.    move.w   (LDelay),d0
  106.    move.l   #9,d1
  107.    move.l   #15,d2
  108.    move.l   #3,d4
  109.    jsr      hexlib::put_hex
  110.  
  111. MainLoop:
  112.  
  113.    jsr    userlib::idle_loop
  114.  
  115.  
  116.    cmp      #KEY_DOWN,d0            ; Down
  117.    beq      CurDown
  118.    cmp      #KEY_UP,d0              ; Up
  119.    beq      CurUp
  120.    cmp      #KEY_RIGHT,d0           ; Right
  121.    beq      CurRight
  122.    cmp      #KEY_LEFT,d0            ; Left
  123.    beq      CurLeft
  124.    cmp      #264,d0                 ; Exit
  125.     beq        Exit
  126.    bra      MainLoop
  127.  
  128. CurDown:
  129.    cmp      #72,d5
  130.    bge      MainLoop
  131.    add.w    #16,d5
  132.    bra      ClearScreen
  133. CurUp:
  134.    cmp      #40,d5
  135.    ble      MainLoop
  136.    sub.w    #16,d5
  137.    bra      ClearScreen
  138.  
  139. CurRight:
  140.    cmp      #40,d5
  141.    bne      CheckTO
  142. SwpL
  143.    bchg.b   #0,(SwapL)
  144.    bra      ClearScreen
  145. CheckTO
  146.    cmp      #56,d5
  147.    bne      CheckDE1
  148.    add.w    #$0100,(Timeout)
  149.    bra      PrintDelays
  150. CheckDE1
  151.    cmp      #72,d5
  152.    bne      MainLoop
  153.    add.w    #$0100,(LDelay)
  154.    bra      PrintDelays
  155.  
  156. CurLeft:
  157.    cmp      #40,d5
  158.    beq      SwpL
  159.    cmp      #56,d5
  160.    bne      CheckDE2
  161.    sub.w    #$0100,(Timeout)
  162.    bra      PrintDelays
  163. CheckDE2
  164.    cmp      #72,d5
  165.    bne      MainLoop
  166.    sub.w    #$0100,(LDelay)
  167.    bra      PrintDelays
  168.  
  169.  
  170. Exit:
  171.    jsr      doorsos::reset_link
  172.     rts
  173.  
  174. ;************** Start of library ***************
  175.  
  176.  
  177.  
  178. ; **********************************************
  179. ;
  180. ; PutByte:  Send a byte to the IR Link
  181. ; Input:    d3.b  Byte to send
  182. ; Output:   none
  183. ; Destroyed: d4
  184. ;
  185. ;
  186. ;
  187. ; PutLink:  Send a byte/word or longword to the IR Link
  188. ; Input:    d3  data to send
  189. ;           d4  number of bits -1 (7...31)
  190. ; Output:   none
  191. ; Destroyed: none
  192. ;
  193. ; Thanks for Antoine Mercier for having ported
  194. ; those routine from the TI85.
  195. ;
  196.  
  197. irlib@0000:
  198. PutByte:
  199.    move.w   #7,d4          
  200. irlib@0001:
  201. PutLink:
  202.    movem    d2-d4,-(a7)
  203.    clr.b    $60000C
  204.    bset.b   #6,$60000C      ; Turn on control mode
  205.  
  206.    btst.b   #0,(SwapL)
  207.    beq      nextbit
  208.    not.l    d3
  209.  
  210. nextbit:
  211.    bclr.b   #0,$60000E        ; rouge haut
  212.     bclr.b    #1,$60000E            ; blanc haut
  213.    lsr.l    #1,d3
  214.     bcc        pbsend0
  215. pbsend1:
  216.     bset.b    #1,$60000E            ; blanc bas
  217.     bra        pbsuite
  218. pbsend0:
  219.     bset.b    #0,$60000E            ; rouge bas
  220. pbsuite:
  221.    move.w   (Timeout),d2
  222. ;  move.w   #$FFFF,d2
  223. waitforR0:
  224.     btst.b    #2,$60000E
  225.     bne        suite1
  226.     btst.b    #2,$60000E
  227.     bne        suite1
  228.    dbra.w   d2,waitforR0
  229.     bra        pbfin
  230. suite1:
  231.    move.w   (Timeout),d2
  232. ;  move.w   #$FFFF,d2
  233. waitforW0:
  234.     btst.b    #3,$60000E
  235.     bne        suite2
  236.     btst.b    #3,$60000E
  237.     bne        suite2
  238.    dbra.w   d2,waitforW0
  239.     bra        pbfin
  240. suite2:
  241.     bclr.b    #0,$60000E            ; rouge haut
  242.     bclr.b    #1,$60000E            ; blanc haut
  243.    move.w   (Timeout),d2
  244. ;  move.w   #$FFFF,d2
  245. waitforR1:
  246.     btst.b    #2,$60000E
  247.     beq        suite3
  248.     btst.b    #2,$60000E
  249.     beq        suite3
  250.    dbra.w   d2,waitforR1
  251.     bra        pbfin
  252. suite3:
  253.    move.w   (Timeout),d2
  254. ;  move.w   #$FFFF,d2
  255. waitforW1:
  256.     btst.b    #3,$60000E
  257.     beq        suite4
  258.     btst.b    #3,$60000E
  259.     beq        suite4
  260.    dbra.w   d2,waitforW1
  261.     bra        pbfin
  262. suite4:
  263. ;   sub.w    #1,d4
  264. ;   cmp.w    #0,d4
  265. ;   bne      nextbit
  266.    dbra.w   d4,nextbit
  267.  
  268.    move.w   (LDelay),d2
  269. ;  move.w   #$08FF,d2
  270. Delay:
  271.    nop
  272.    dbra.w   d2,Delay
  273.  
  274.  
  275. pbfin:
  276.     bclr.b    #0,$60000E            ; rouge haut
  277.     bclr.b    #1,$60000E            ; blanc haut
  278.    movem    (a7)+,d2-d4
  279.     rts
  280.  
  281. ;*****************************************************
  282.  
  283.  
  284. ; **********************************************
  285. ;
  286. ; GetByte:  Get a byte from the IR Link
  287. ; Input:    none
  288. ; Output:   d3.b  Byte received
  289. ; Destroyed: d4
  290. ;
  291. ;
  292. ;
  293. ; PutLink:  Get a byte/word of longword from the IR Link   -DOESN'T WORK
  294. ; Input:    d4.w  Number of Bits
  295. ; Output:   d3    data received
  296. ; Destroyed: none
  297. ;
  298. ; The GetLink routine DOES NOT WORK!
  299. ;
  300. ;
  301. irlib@0002:
  302. GetByte:
  303.    move.w   #7,d4          
  304. irlib@0003:
  305. GetLink:                    ; Doesn't work with d4 != 8
  306.    movem    d1-d2,-(a7)   
  307.    clr.l    d3
  308.    clr.b    $60000C
  309.    bset.b   #6,$60000C      ; Turn on control mode
  310. GLNextBit
  311.    move.w   (Timeout),d2
  312. ;  move.w   #$FFFF,d2
  313. GLWaitChange:
  314.     btst.b    #2,$60000E
  315.    bne      GLGet0
  316.    btst.b   #3,$60000E
  317.    bne      GLGet1
  318.    btst.b   #2,$60000E
  319.    bne      GLGet0
  320.    btst.b   #3,$60000E
  321.    bne      GLGet1
  322.    dbra.w   d2,GLWaitChange
  323.    bra      GLEnd
  324. GLGet0:
  325.    bset.b   #1,$60000E        ; Set W0
  326.    lsr.l    #1,d3
  327.    move.w   (Timeout),d2
  328. GLWaitR1:
  329.    btst.b   #2,$60000E
  330.    beq      GLSetHigh
  331.    btst.b   #2,$60000E
  332.    beq      GLSetHigh
  333.    dbra.w   d2,GLWaitR1
  334.    bra      GLEnd
  335. GLGet1:
  336.    bset.b   #0,$60000E        ; Set R0
  337.    lsr.l    #1,d3
  338.    ori      #$80,d3         
  339.    move.w   (Timeout),d2
  340. GLWaitW1:
  341.    btst.b   #3,$60000E
  342.    beq      GLSetHigh
  343.    btst.b   #3,$60000E
  344.    beq      GLSetHigh
  345.    dbra.w   d2,GLWaitW1
  346.    bra      GLEnd
  347. GLSetHigh
  348.    bclr.b   #0,$60000E        ; Set R1
  349.    bclr.b   #1,$60000E        ; Set W1
  350.    move.w   #$0010,d2
  351. GLWaitR1_2:
  352.    btst.b   #2,$60000E
  353.    beq      GLCont1
  354.    btst.b   #2,$60000E
  355.    beq      GLCont1
  356.    dbra.w   d2,GLWaitR1_2
  357. GLCont1:
  358.    move.w   #$0010,d2
  359. GLWaitW1_2:
  360.    btst.b   #3,$60000E
  361.    beq      GLCont2
  362.    btst.b   #3,$60000E
  363.    beq      GLCont2
  364.    dbra.w   d2,GLWaitW1_2
  365. GLCont2:
  366.    dbra.w   d4,GLNextBit
  367. GLEnd:
  368.    bclr.b   #0,$60000E        ; Set R1
  369.    bclr.b   #1,$60000E        ; Set W1
  370.  
  371.    btst.b   #0,(SwapL)
  372.    beq      GLNoSwap
  373.    not.l    d3
  374.  
  375. GLNoSwap
  376.    movem    (a7)+,d1-d2
  377.     rts
  378.  
  379. ;*****************************************************
  380. ;
  381. ; Convert between frequency in KHz to delay units needed by the IR Link.
  382. ; Input:    d2.b  Freq in KHz.
  383. ; Output:   d3.w  contains the 2 delay values.
  384. ; Used:     a2
  385. ;
  386. irlib@0004:
  387. Freq2Delay:
  388.    sub.b    #30,d2         ; Substract 30KHz from it.
  389.    andi     #30,d2         
  390.    lea      DelayTab(PC),a2 ; Now A2 points to the delay table.
  391.    move.w   0(a2,d2),d3    ; Copy the 2 delay values corresponding
  392.                            ; to the freq to d3.
  393.    rts
  394.  
  395.  
  396.  
  397.  
  398. ;*****************************************************
  399.  
  400.  
  401. DelayTab:                        ; To convert between KHz and delay units.
  402.    dc.b $0F,$0B
  403.    dc.b $10,$0C
  404.    dc.b $11,$0D
  405.    dc.b $12,$0E
  406.    dc.b $12,$0F
  407.    dc.b $13,$0F 
  408.    dc.b $14,$10
  409.    dc.b $14,$11
  410.    dc.b $15,$11
  411.    dc.b $15,$12
  412.  
  413. LDelay:
  414.          dc.w  $00FF
  415. Timeout:
  416.          dc.w  $FFFF
  417. SwapL:
  418.          dc.w  0
  419.  
  420. Text1:   dc.b  "Settings",0
  421. Text2:   dc.b  "Swap Lines:",0
  422. Text3:   dc.b  "Timeout duration:",0
  423. Text4:   dc.b  "Linking Delay:",0
  424. Text5:   dc.b  "On ",0
  425. Text6:   dc.b  "Off",0
  426.  
  427. _comment dc.b  "IR Link Library",0
  428.  
  429.     end
  430.