home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_asm / asmform / asmform.asm next >
Encoding:
Assembly Source File  |  1988-10-01  |  1.6 KB  |  77 lines
  1. ;ASMFORM.ASM
  2. ;
  3. ;There are no implied warranties or guarantees with this software.  To the best
  4. ;of our knowledge it is free from defect.
  5. ;
  6. ;                             Provided by PCGURU BBS
  7. ;
  8. ;                       Tested on 9/21/88 by David R. Foley
  9. ;
  10. ;                   PC GURU BBS  (617) 783-5154  24 Hours 2400bps
  11. ;
  12. ;
  13. ;
  14. ;
  15. ;
  16. ;
  17.  
  18.  
  19.         Insert description of program between the two
  20.         asterisks and any other pertinent information *
  21. ;
  22. SUBTTL    Definitions of MACROs
  23. ;
  24. ;    MACRO Definitions go here.
  25. ;
  26. SUBTTL  Equates go here
  27. ;
  28. SUBTTL  Data or Parameter Structures
  29. ;
  30. ;    Define your structures
  31. ;
  32. SUBTTL STACK SEGMENT
  33. ;
  34. STACK    SEGMENT    PARA STACK 'STACK'
  35.     DB    64 DUP('STACK   ')
  36. STACK    ENDS
  37. ;
  38. SUBTTL    DESCRIPTION OF DATA WORK AREA
  39. ;
  40. WORKAREA SEGMENT  PARA PUBLIC 'DATA'
  41. ;
  42. ;    Insert DBs, DWs and DDs here with labels
  43. ;
  44. WORKAREA ENDS
  45. ;
  46. SUBTTL    DESCRIPTION OF DOS INTERFACES
  47. ;
  48. CSEG    SEGMENT    PARA PUBLIC 'CODE'
  49. START    PROC    FAR
  50.     ASSUME CS:CSEG,DS:WORKAREA,SS:STACK,ES:NOTHING
  51. ;
  52. SUBTTL    ESTABLISH ENTRY LINKAGE FROM DOS
  53. ;
  54.     PUSH    DS    ;Set return segment addr to start
  55.     SUB    AX,AX    ;Clear AX register
  56.     PUSH    AX    ;Put zero return address to stack
  57. ;
  58. ;    Establish addressability for the data segment
  59. ;
  60.     MOV     AX,WORKAREA    ;Get location of workarea
  61.     MOV    DS,AX        ;Set seg reg base of data workarea.
  62. ;
  63. SUBTTL    CODE YOUR MAIN PROCEDURE NEXT
  64. ;
  65. ;
  66. SUBTTL    RESTORE ENTRY CONDITIONS, RETURN TO DOS
  67. ;
  68. ;    Do any necessary pops here
  69.     RET        ;This gets you back to DOS
  70. ;
  71. START    ENDP
  72. ;
  73. SUBTTL    COMMON CODE LOCAL SUBROUTINES, HERE.
  74. ;
  75. CSEG    ENDS        ;define end of segment
  76.     END    START
  77.