home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / CDEMO.ZIP / MY.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-06-18  |  1.1 KB  |  71 lines
  1.     name    my
  2. _TEXT    segment    byte public 'CODE'
  3. DGROUP    group    _DATA,_BSS
  4.     assume    cs:_TEXT,ds:DGROUP
  5. _TEXT    ends
  6. _DATA    segment word public 'DATA'
  7. d@    label    byte
  8. _DATA    ends
  9. _BSS    segment word public 'BSS'
  10. b@    label    byte
  11. _BSS    ends
  12. _TEXT    segment    byte public 'CODE'
  13. ; Line 29
  14. STRUPR    proc    far
  15.     push    si
  16.     push    di
  17.     push    bp
  18.     mov    bp,sp
  19.     dec    sp
  20.     dec    sp
  21. ; Line 30
  22. ; Line 31
  23. ; Line 32
  24. ; Line 33
  25. ; Line 34
  26.     les    bx,dword ptr [bp+10]
  27.     mov    al,byte ptr es:[bx]
  28.     cbw    
  29.     mov    di,ax
  30. ; Line 35
  31.     mov    si,1
  32.     jmp    short @5
  33. @4:
  34. ; Line 36
  35.     les    bx,dword ptr [bp+10]
  36.     mov    al,byte ptr es:[bx+si]
  37.     mov    byte ptr [bp-1],al
  38. ; Line 37
  39.     cmp    byte ptr [bp-1],97
  40.     jb    @7
  41.     cmp    byte ptr [bp-1],122
  42.     ja    @7
  43.     mov    al,byte ptr [bp-1]
  44.     add    al,-32
  45.     jmp    short @6
  46. @7:
  47.     mov    al,byte ptr [bp-1]
  48. @6:
  49.     les    bx,dword ptr [bp+10]
  50.     mov    byte ptr es:[bx+si],al
  51. ; Line 38
  52.     inc    si
  53. @5:
  54.     cmp    si,di
  55.     jle    @4
  56. ; Line 39
  57.     mov    sp,bp
  58.     pop    bp
  59.     pop    di
  60.     pop    si
  61.     ret    4
  62. STRUPR    endp
  63. _TEXT    ends
  64. _DATA    segment word public 'DATA'
  65. s@    label    byte
  66. _DATA    ends
  67. _TEXT    segment    byte public 'CODE'
  68.     public    STRUPR
  69. _TEXT    ends
  70.     end
  71.