home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 02 / bcitip / bytein.asm < prev    next >
Assembly Source File  |  1987-12-02  |  550b  |  20 lines
  1. ;---------------------- BYTEIN.ASM ------------------------
  2. ;      Byteweises Lesen eines IO-Ports unter BCI Pascal
  3. ;           Function ByteIn (Adresse) : integer
  4. ;--------------------- 1987 by M.A. -----------------------
  5. include inport.mac                  ; Macrodefinitionen
  6. public bytein
  7. code segment byte public 'PASCAL'   ; ... Grüße an BCI ...
  8. assume cs:code
  9.  
  10. bytein proc far
  11.        anfang
  12.        mov ah,0
  13.        in al,dx
  14.        ende
  15. bytein endp
  16.  
  17. code ends
  18. end
  19. ;--------------------- Ende BYTEIN.ASM --------------------
  20.