home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 September / Chip_2002-09_cd1.bin / zkuste / delphi / kompon / d123456 / STR_BIT.ZIP / 16 / ORDERBIT.ASM next >
Assembly Source File  |  1999-11-25  |  4KB  |  98 lines
  1. code        segment
  2.             ASSUME  cs:CODE,ds:NOTHING
  3. ;
  4. ; Procedure OrderBit(Mreor : pointer; KolBayt : integer);
  5. ;
  6. ; Åα«µÑñπαá ¿º¼Ñ¡∩ÑΓ »«α∩ñ«¬ ß½Ññ«óá¡¿∩ í¿Γ ó ¼áßß¿óÑ (»ÑαÑó«α«Γ íá⌐Γá)
  7. ;
  8. Mreor   equ DWORD PTR ss:[bp+8]    ; îáßß¿ó ß »αÑ«íαáºπÑ¼δ¼ »«α∩ñ¬«¼ í¿Γ
  9. KolBayt equ WORD PTR ss:[bp+6]     ; è«½¿τÑßΓó« í¿Γ ó ßΓp«¬Ñ
  10. ;
  11. OrderBit    proc    Far
  12.             PUBLIC  OrderBit
  13.             push    bp
  14.             mov     bp,sp
  15.             push    ds
  16. ;
  17.             mov     cx,Kolbayt
  18.             lds     si,Mreor
  19.             les     di,Mreor
  20. cicl:      lodsb
  21.            mov     bx,offset tabob
  22.            xlat    tabob
  23.            stosb
  24.            loop    cicl
  25. ;
  26.             pop     ds
  27.             pop     bp
  28.             ret     6
  29. OrderBit    endp
  30. ;
  31. tabob db  00000000b,10000000b,01000000b,11000000b
  32.       db  00100000b,10100000b,01100000b,11100000b
  33.       db  00010000b,10010000b,01010000b,11010000b
  34.       db  00110000b,10110000b,01110000b,11110000b
  35.       db  00001000b,10001000b,01001000b,11001000b
  36.       db  00101000b,10101000b,01101000b,11101000b
  37.       db  00011000b,10011000b,01011000b,11011000b
  38.       db  00111000b,10111000b,01111000b,11111000b
  39.       db  00000100b,10000100b,01000100b,11000100b
  40.       db  00100100b,10100100b,01100100b,11100100b
  41.       db  00010100b,10010100b,01010100b,11010100b
  42.       db  00110100b,10110100b,01110100b,11110100b
  43.       db  00001100b,10001100b,01001100b,11001100b
  44.       db  00101100b,10101100b,01101100b,11101100b
  45.       db  00011100b,10011100b,01011100b,11011100b
  46.       db  00111100b,10111100b,01111100b,11111100b
  47.       db  00000010b,10000010b,01000010b,11000010b
  48.       db  00100010b,10100010b,01100010b,11100010b
  49.       db  00010010b,10010010b,01010010b,11010010b
  50.       db  00110010b,10110010b,01110010b,11110010b
  51.       db  00001010b,10001010b,01001010b,11001010b
  52.       db  00101010b,10101010b,01101010b,11101010b
  53.       db  00011010b,10011010b,01011010b,11011010b
  54.       db  00111010b,10111010b,01111010b,11111010b
  55.       db  00000110b,10000110b,01000110b,11000110b
  56.       db  00100110b,10100110b,01100110b,11100110b
  57.       db  00010110b,10010110b,01010110b,11010110b
  58.       db  00110110b,10110110b,01110110b,11110110b
  59.       db  00001110b,10001110b,01001110b,11001110b
  60.       db  00101110b,10101110b,01101110b,11101110b
  61.       db  00011110b,10011110b,01011110b,11011110b
  62.       db  00111110b,10111110b,01111110b,11111110b
  63.       db  00000001b,10000001b,01000001b,11000001b
  64.       db  00100001b,10100001b,01100001b,11100001b
  65.       db  00010001b,10010001b,01010001b,11010001b
  66.       db  00110001b,10110001b,01110001b,11110001b
  67.       db  00001001b,10001001b,01001001b,11001001b
  68.       db  00101001b,10101001b,01101001b,11101001b
  69.       db  00011001b,10011001b,01011001b,11011001b
  70.       db  00111001b,10111001b,01111001b,11111001b
  71.       db  00000101b,10000101b,01000101b,11000101b
  72.       db  00100101b,10100101b,01100101b,11100101b
  73.       db  00010101b,10010101b,01010101b,11010101b
  74.       db  00110101b,10110101b,01110101b,11110101b
  75.       db  00001101b,10001101b,01001101b,11001101b
  76.       db  00101101b,10101101b,01101101b,11101101b
  77.       db  00011101b,10011101b,01011101b,11011101b
  78.       db  00111101b,10111101b,01111101b,11111101b
  79.       db  00000011b,10000011b,01000011b,11000011b
  80.       db  00100011b,10100011b,01100011b,11100011b
  81.       db  00010011b,10010011b,01010011b,11010011b
  82.       db  00110011b,10110011b,01110011b,11110011b
  83.       db  00001011b,10001011b,01001011b,11001011b
  84.       db  00101011b,10101011b,01101011b,11101011b
  85.       db  00011011b,10011011b,01011011b,11011011b
  86.       db  00111011b,10111011b,01111011b,11111011b
  87.       db  00000111b,10000111b,01000111b,11000111b
  88.       db  00100111b,10100111b,01100111b,11100111b
  89.       db  00010111b,10010111b,01010111b,11010111b
  90.       db  00110111b,10110111b,01110111b,11110111b
  91.       db  00001111b,10001111b,01001111b,11001111b
  92.       db  00101111b,10101111b,01101111b,11101111b
  93.       db  00011111b,10011111b,01011111b,11011111b
  94.       db  00111111b,10111111b,01111111b,11111111b
  95. ;
  96. CODE  ends
  97.       end
  98.