home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Interactive Guide / c-cplusplus-interactive-guide.iso / c_ref / csource4 / 255_01 / gprdpal.asm < prev    next >
Encoding:
Assembly Source File  |  1988-03-30  |  1.0 KB  |  49 lines
  1.           page   80,132
  2.           page
  3. ;
  4. ;         Kent Cedola
  5. ;         2015 Meadow Lake Court
  6. ;         Norfolk, Virginia  23518
  7. ;
  8.  
  9. _text     segment byte public 'code'
  10.  
  11.           assume cs:_text
  12.           public _gprdpal
  13. _gprdpal  proc   near
  14.  
  15.           push   bp
  16.           mov    bp,sp
  17.  
  18.           xor    ax,ax
  19.           mov    es,ax
  20.  
  21.           les    bx,dword ptr es:04A8h
  22.           add    bx,4
  23.           les    bx,dword ptr es:[bx]
  24.           mov    ax,es
  25.           or     ax,bx
  26.           jz     error
  27.  
  28.           mov    AL,[bp+4]
  29.           cmp    al,-1
  30.           jne    inq01
  31.           mov    al,17
  32. inq01:
  33.           xor    ah,ah
  34.           add    bx,ax
  35.  
  36.           mov    al,es:[bx]
  37.           xor    ah,ah
  38.           jmp    short done
  39. error:
  40.           mov    ax,-1
  41. done:
  42.           pop    bp
  43.           ret
  44.  
  45. _gprdpal  endp
  46.  
  47. _text     ends
  48.           end
  49.