home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 500-599 / ff510.lzh / ATCopy / Konv.asm < prev    next >
Assembly Source File  |  1991-06-29  |  1KB  |  74 lines
  1. ;int Konvert(int wert, char Option, int *flag)
  2. ;{
  3.     xdef    _Konvert
  4. _Konvert:
  5. ;    *flag = FALSE;
  6. ;   wert 8 "l"
  7. ;   Option 12 "c"
  8. ;   flag 14 "*l"
  9.     link    a5,#0
  10.     move.l    14(a5),a0
  11.     moveq    #0,d0
  12.     move.l    d0,(a0)
  13. ;
  14. ;    switch(Option)
  15.     move.b    12(a5),d0
  16.  
  17.     sub.w    #67,d0
  18.     beq    Cc
  19.     sub.w    #11,d0
  20.     beq    Nn
  21. ;    bra    def
  22. ;    {
  23. ;        default :
  24.  
  25. def:
  26. ;                   if (wert > 127)
  27. ;                   {
  28.     cmp.l    #128,8(a5)
  29. ;    ble    Nn
  30.     bge    konv
  31.  
  32. ;        case 'N':
  33.  
  34. ;        case 'n':
  35.  
  36. Nn:
  37. ;                   if (wert == 10)
  38. ;                   {
  39.     cmp.l    #10,8(a5)
  40.     bne    ex
  41. ;                      wert  = 13;
  42.     move.l    #13,8(a5)
  43. ;                      *flag = TRUE;
  44.     move.l    14(a5),a0
  45.     move.l    #1,(a0)
  46. ;                   }
  47. ;                   break;
  48.     bra    ex
  49. ;        case 'C':
  50.  
  51. ;        case 'c':
  52.  
  53. Cc:
  54. ;                   if (wert > 127)
  55. ;                   {
  56.     cmp.l    #127,8(a5)
  57.     ble    ex
  58. konv:
  59. ;                      wert = tabelle[wert - 128];
  60.     move.l    8(a5),d0
  61. ;    lea    _tabelle+-128,a2
  62.     move.b    (a2,d0.l),d0
  63.     move.l    d0,8(a5)
  64. ;                   }
  65. ;                   break;
  66. ;    bra    ex
  67. ex:
  68. ;    return(wert);
  69.     move.l    8(a5),d0
  70.     unlk    a5
  71.     rts
  72. ;}
  73. ;
  74.