home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ADC_TP3.ZIP / PASS.ASM < prev    next >
Encoding:
Assembly Source File  |  1987-03-01  |  1.0 KB  |  45 lines
  1.  
  2. ; * * WARNING * WARNING * WARNING * WARNING * WARNING * WARNING * *
  3.  
  4. ;  Please do not try to use external functions
  5. ;  unless you are familiar with assembly language.
  6. ;
  7. ;  IMPORTANT: Externals must be written in assembly language.
  8. ;
  9. ;  The following example addes two integer numbers.
  10. ;
  11. ;
  12. code   segment
  13.        assume   cs:code
  14. pass   proc     near
  15.  
  16.        push     bp            ; SAVE ENVIRONMENT
  17.        mov      bp,sp
  18.  
  19.        mov      ax,[bp+4]     ; GET PARAMETER 1
  20.        add      ax,[bp+6]     ; GET PARAMETER 2
  21.                               ; GIVES THE RESULT
  22.        mov      sp,bp         ; RESTORE ENVIRONMENT
  23.        pop      bp
  24.        ret      4
  25.  
  26. pass   endp
  27. code   ends
  28.        end
  29.  
  30. ; Now exit to PC-DOS and type:
  31. ;   >ASM PASS
  32. ;   >LINK PASS
  33. ;   >EXE2BIN PASS.EXE PASS.COM
  34. ;
  35. ; Ignore minor errors from ASM and LINK.
  36. ;  The above external procedure is only an example.  You
  37. ;  can achieve the same result in Turbo-Pascal:
  38. ;
  39. ;  function pass(varX, varY:integer):interger;
  40. ;  begin
  41. ;     pass := varX + varY;
  42. ;  end;
  43.  
  44.  
  45.