home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PASCUTIL.ZIP / OUTSUB.ASM < prev    next >
Encoding:
Assembly Source File  |  1985-11-07  |  640 b   |  21 lines
  1. ; OUTSUB - subroutine to write machine port for Pascal programs
  2. ; OUTSUB(PORTNO,OUTVAL)
  3. ; PORTNO is the machine port number
  4. ; OUTVAL is the value (0-255) to be written
  5. cseg segment para public 'code'
  6. public outsub
  7. outsub proc far
  8.     assume cs:cseg,ds:nothing,ss:nothing,es:nothing
  9.     push bp
  10.     mov bp,sp
  11.     mov si,[bp+8]    ; point to port
  12.     mov dx,[si]      ; load in dx
  13.     mov si,[bp+6]    ; point to value
  14.     mov ax,[si]      ; load in ax (ah ignored)
  15.     out dx,al         ; write to port
  16.     pop bp
  17.     ret 4
  18. outsub endp
  19. cseg ends
  20.     end
  21.