home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 02 / bcitip / outport.mac < prev    next >
Encoding:
Text File  |  1987-12-03  |  698 b   |  18 lines
  1. ;---------------------- OUTPORT.MAC -----------------------
  2. ; Macrodefinitionen für Portausgabebefehle in BCI Pascal
  3. ;---------------------- 1987 by M.A. ----------------------
  4. anfang macro                        ; Parameterübergabe
  5.        pop bx
  6.        push cs
  7.        push bx                      ; hier geht's zurück
  8.        mov si,sp
  9.        mov dx,[si+6]                ; hole Portadresse
  10.        mov ax,[si+4]                ; hole Daten
  11.        endm
  12.  
  13. ende   macro                        ; Programmende
  14.        or ax,ax                     ; Flags säubern
  15.        ret 4                        ; Stack säubern
  16.        endm
  17. ;--------------------- Ende OUTPORT.MAC -------------------
  18.