home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / tasm / chapxmpl.arc / IFUNK.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-10-09  |  595 b   |  35 lines
  1. ;
  2. ;    IFUNK.ASM
  3. ;
  4.     EXTRN _alloc_gstack:FAR
  5.  
  6. IFUNK        STRUC
  7.     FunktorTyp        DB    ?
  8.     Wert            DW    ?
  9. IFUNK        ENDS
  10.  
  11. IFUNK_TEXT    SEGMENT    WORD PUBLIC 'CODE'
  12.         ASSUME    CS:IFUNK_TEXT
  13.  
  14.         PUBLIC    Machifunk_0
  15. Machifunk_0    PROC    FAR
  16. ARG        __eingabe:WORD, __ausgabe:DWORD
  17.         push    bp
  18.         mov    bp,sp
  19.         mov    ax,3
  20.         push    ax
  21.         call    FAR PTR _alloc_gstack
  22.         pop    cx
  23.         les    bx,__ausgabe
  24.         mov    WORD PTR es:[bx+2],dx
  25.         mov    WORD PTR es:[bx],ax
  26.         mov    ax,__eingabe
  27.         les    bx,DWORD PTR es:[bx]
  28.         mov    WORD PTR es:[bx.Wert],ax
  29.         mov    WORD PTR es:[bx.FunktorTyp],1
  30.         pop    bp
  31.         ret
  32. Machifunk_0    ENDP
  33. IFUNK_TEXT    ENDS
  34.         END
  35.