home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TP_ADV.ZIP / LIST0301.ASM < prev    next >
Encoding:
Assembly Source File  |  1989-11-19  |  484 b   |  27 lines
  1. ;; The following is the Assembler code example
  2. ;;
  3. .MODEL SMALL
  4. DATA SEGMENT PUBLIC
  5.    EXTRN TextAttr   : Byte
  6.    EXTRN MyTextAttr : Byte
  7. DATA ENDS
  8.  
  9. CODE SEGMENT PUBLIC
  10. ASSUME CS:CODE,DS:DATA
  11.  
  12. Public MyFunc1,MyFunc2
  13.  
  14. MyFunc1 PROC FAR
  15.   MOV AL,TextAttr     ; Move TextAttr to AL as function result
  16.   RETF
  17. MyFunc1 ENDP
  18.  
  19. MyFunc2 PROC FAR
  20.   MOV AL,MyTextAttr  ; Move MyTextAttr to AL as function result
  21.   RETF
  22. MyFunc2 ENDP
  23.  
  24. ENDS
  25. END
  26. ;; End Assembler code example
  27.