home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 02 / bcitip / inport.mac < prev    next >
Text File  |  1987-12-02  |  650b  |  18 lines
  1. ;---------------------- INPORT.MAC ------------------------
  2. ; Macrodefinitionen für Porteingabebefehle 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+4]                ; hole Portadresse
  10.        endm
  11.  
  12. ende   macro                        ; Programmende
  13.        or ax,ax                     ; Flags säubern
  14.        ret 2                        ; Stack säubern
  15.        endm
  16. ;--------------------- Ende INPORT.MAC --------------------
  17.  
  18.