home *** CD-ROM | disk | FTP | other *** search
/ Phoenix CD 2.0 / Phoenix_CD.cdr / 01e / msjall.zip / MSJV2-1.ZIP / EMS.ALL next >
Text File  |  1987-10-30  |  28KB  |  819 lines
  1. Microsoft Systems Journal
  2. Volume 2; Issue 1; March, 1987
  3.  
  4. Code Listings For:
  5.  
  6.     Expanded Memory
  7.     pp. 21-32
  8.  
  9. Author(s): Marion Hansen, Bill Krueger, Nick Stuecklen
  10. Title:     Expanded Memeory: Writing Programs That Break the 640K Barrier
  11.  
  12.  
  13.  
  14.  
  15. ==============================================================================
  16. ==============================================================================
  17.  
  18.  
  19. Figure 3: Main Program
  20. ==============================================================================
  21.  
  22. #include <dos.h>
  23. #include <stdio.h>
  24.  
  25. #define EMM_INT 0x67                /*  EMM interrupt number  */
  26. #define GET_PAGE_FRAME_BASE 0x41    /*  EMM func = get page frame 
  27.                                         base address  */
  28. #define GET_FREE_COUNT 0x42         /*  EMM Func = get unallocated 
  29.                                         pages count  */
  30. #define ALLOCATE_PAGES 0x43         /*  EMM Func = allocates pages  */
  31. #define MAP_PAGES 0x44              /*  EMM Func = map pages  */
  32. #define DEALLOCATE_PAGES 0x45       /*  EMM Func = deallocate pages  */
  33. #define GET_INT_VECTOR 0x35         /*  DOS func = get interrupt 
  34.                                         vector  */
  35. #define DEVICE_NAME_LEN 8           /*  Number of chars in device 
  36.                                         driver name field  */
  37. #define VIDEO_RAM_SIZE 4000         /*  Total bytes in video RAM 
  38.                                         (char/attr)  */
  39. #define VIDEO_RAM_BASE 0xB0000000   /*  Video RAM start address (MDA) */
  40.  
  41. union REGS input_regs, output_regs; /*  Regs used for calls to EMM 
  42.                                         and DOS  */
  43. struct SREGS segment_regs;
  44. unsigned int emm_status;            /*  Status returned by EMM  */
  45.  
  46. main ()
  47.  
  48. {
  49. unsigned int i;
  50. long target_time, current_time;
  51. char *video_ram_ptr = {VIDEO_RAM_BASE}; /*  Pointer to video RAM  */
  52. unsigned int emm_handle;                /*  EMM handle  */
  53. char *expanded_memory_ptr;              /*  Pointer to expanded 
  54.                                             memory  */
  55.  
  56. /*  Ensure that the Expanded Memory Manager software is installed 
  57.     on the user's system.  */
  58.  
  59.    detect_emm();
  60.  
  61. /*  Get a page of expanded memory.  */
  62.  
  63.    get_expanded_memory_page (&expanded_memory_ptr, &emm_handle);
  64.  
  65. /*  Copy the current video RAM contents to expanded memory.  */
  66.  
  67.    memcpy (expanded_memory_ptr, video_ram_ptr, VIDEO_RAM_SIZE);
  68.  
  69. /*  Clear the screen to nulls.  */
  70.  
  71.    memset (video_ram_ptr, '\0', VIDEO_RAM_SIZE);
  72.  
  73. /*  Delay for 1 second so the user can see the blanked screen.  */
  74.  
  75.    time (¤t_time);
  76.    target_time = current_time + 1;
  77.    while (current_time < target_time)
  78.     {
  79.      time (¤t_time);
  80.     }
  81.  
  82. /*  Restore the video RAM contents from expanded memory.  */
  83.  
  84.    memcpy (video_ram_ptr, expanded_memory_ptr, VIDEO_RAM_SIZE);
  85.  
  86. /*  Deallocate the expanded memory page  */
  87.  
  88.    release_expanded_memory_page (emm_handle);
  89.  
  90.    exit(0);
  91. }
  92. ==============================================================================
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100. ==============================================================================
  101. ==============================================================================
  102.  
  103. Figure 4: Detect_EMM Subroutine
  104. ==============================================================================
  105.  
  106. detect_emm ()
  107.  
  108. {
  109. static char EMM_device_name [DEVICE_NAME_LEN] = {"EMMXXXX0"};
  110. char *int_67_device_name_ptr;
  111.  
  112.  
  113. /*  Determine the address of the routine associated with INT 67 hex.  */
  114.  
  115.   input_regs.h.ah = GET_INT_VECTOR;  /*  DOS function  */
  116.   input_regs.h.al = EMM_INT;         /*  EMM interrupt number  */
  117.   intdosx (&input_regs, &output_regs, &segment_regs);
  118.   int_67_device_name_ptr = 
  119.   (segment_regs.es * 65536) + 10;    /*  Create ptr to device name 
  120.                                          field  */
  121.  
  122. /*  Compare the device name with the known EMM device name.  */
  123.  
  124.   if(memcmp(EMM_device_name,int_67_device_name_ptr,DEVICE_NAME_LEN) !=0)
  125.    {
  126.      printf ("\x07Abort: EMM device driver not installed\n");
  127.      exit(0);
  128.    }  
  129. } 
  130. ==============================================================================
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140. ==============================================================================
  141. ==============================================================================
  142.  
  143. Figure 5: Check_Status Subprocedure
  144. ==============================================================================
  145.  
  146. check_status (emm_status)
  147. unsigned int emm_status;
  148. {
  149. static char *emm_error_strings[] = {
  150.   "no error",
  151.   "EMM software malfunction",
  152.   "EMM hardware malfunction",
  153.   "RESERVED",
  154.   "Invalid EMM handle",
  155.   "Invalid EMM function code",
  156.   "All EMM handles being used",
  157.   "Save/restore page mapping context error",
  158.   "Not enough expanded memory pages",
  159.   "Not enough unallocated pages",
  160.   "Can not allocate zero pages",
  161.   "Logical page out of range",
  162.   "Physical page out of range",
  163.   "Page mapping hardware state save area full",
  164.   "Page mapping hardware state save area already has handle",
  165.   "No handle associated with the page mapping hardware state save area",
  166.   "Invalid subfunction"
  167.  };
  168.  
  169. /*  IF EMM error, THEN print error message and EXIT  */
  170.  
  171.    if (emm_status != 0)                    /*  IF EMM error...  */
  172.     {
  173.       emm_status -= 0x7F;                  /*  Make error code 
  174.                                                zero-based  */
  175.       printf ("\x07Abort: EMM error = ");  /*  Issue error prefix  */
  176.       printf ("%s\n", emm_error_strings[emm_status]);
  177.                                            /*  Issue actual error 
  178.                                                message  */
  179.       exit(0);                             /*  And then exit to 
  180.                                                DOS  */
  181.     }
  182. }
  183. ==============================================================================
  184.  
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194. ==============================================================================
  195. ==============================================================================
  196. Figure 6: Get_Expanded_Memory_Page Subprocedure
  197.  
  198. ==============================================================================
  199.  
  200. get_expanded_memory_page (expanded_memory_ptr_ptr, emm_handle_ptr)
  201.  
  202. unsigned int *emm_handle_ptr;     /*  16 bit handle returned by EMM  */
  203. char *(*expanded_memory_ptr_ptr); /*  Pointer to expanded memory 
  204.                                       page  */
  205.  
  206. {
  207. unsigned int page_frame_base;     /*  Expanded memory page frame 
  208.                                       base  */
  209. unsigned int physical_page = {0}; /*  Physical page number  */
  210.  
  211.  
  212. /*  Get unallocated pages count.  */
  213.  
  214. input_regs.h.ah = GET_FREE_COUNT;    /*  EMM function  */
  215. int86x (EMM_INT, &input_regs, &output_regs, &segment_regs);
  216. emm_status = output_regs.h.ah;
  217. check_status(emm_status);            /*  Check for errors  */
  218. if (output_regs.x.bx < 1)            /*  Check unallocated page 
  219.                                          count  */
  220.  {
  221.   printf ("\x07Abort: insufficient unallocated expanded memory pages\n");
  222.   exit(0);
  223.  }
  224.  
  225.  
  226. /*  Allocate the specified number of pages.  */
  227.  
  228. input_regs.h.ah = ALLOCATE_PAGES;     /*  EMM function  */
  229. input_regs.x.bx = 1;                  /*  Number of pages to 
  230.                                           allocate  */
  231. int86x (EMM_INT, &input_regs, &output_regs, &segment_regs);
  232. emm_status = output_regs.h.ah;
  233. check_status(emm_status);             /*  Check for errors  */
  234. *emm_handle_ptr = output_regs.x.dx;   /*  Get EMM handle  */
  235.  
  236.  
  237. /*  Map the logical page into physical page 0.  */
  238.  
  239.    input_regs.h.ah = MAP_PAGES;          /*  EMM function  */
  240.    input_regs.h.al = 0;                  /*  Logical page number  */
  241.    input_regs.x.bx = physical_page;      /*  Physical page number  */
  242.    input_regs.x.dx = *emm_handle_ptr;    /*  EMM handle  */
  243.    int86x (EMM_INT, &input_regs, &output_regs, &segment_regs);
  244.    emm_status = output_regs.h.ah;
  245.    check_status(emm_status);             /*  Check for errors  */
  246.  
  247.  
  248. /*  Determine the page frame address.   */
  249.  
  250.    input_regs.h.ah = GET_PAGE_FRAME_BASE; /*  EMM function  */
  251.    int86x (EMM_INT, &input_regs, &output_regs, &segment_regs);
  252.    emm_status = output_regs.h.ah;
  253.    check_status(emm_status);              /*  Check for errors  */
  254.    *expanded_memory_ptr_ptr = 
  255.      (output_regs.x.bx * 65536)
  256.      + (physical_page * 16 * 1024);       /*  Set the expanded memory 
  257.                                               ptr  */
  258. }
  259. ==============================================================================
  260.  
  261.  
  262.  
  263.  
  264.  
  265.  
  266.  
  267.  
  268.  
  269.  
  270. ==============================================================================
  271. ==============================================================================
  272. Figure 7: Release_Expanded_Memory_Page Subroutine
  273.  
  274. ==============================================================================
  275.  
  276. release_expanded_memory_page (emm_handle)
  277.  
  278. unsigned int emm_handle;      /*  Handle identifying which page 
  279.                                   set to deallocate  */
  280. {
  281.  
  282. /*  Release the expanded memory pages by deallocating the handle 
  283.     associated with those pages.  */
  284.   
  285.    input_regs.h.ah = DEALLOCATE_PAGES;  /*  EMM function  */
  286.    input_regs.x.dx = emm_handle;        /*  EMM handle passed in 
  287.                                             DX  */
  288.    int86x (EMM_INT, &input_regs, &output_regs, &segment_regs);
  289.    emm_status = output_regs.h.ah;
  290.    check_status(emm_status);            /*  Check for errors  */
  291. } 
  292. ==============================================================================
  293.  
  294.  
  295.  
  296.  
  297.  
  298.  
  299.  
  300.  
  301.  
  302.  
  303. ==============================================================================
  304. ==============================================================================
  305. Figure 8: Kernel Module
  306.  
  307. ==============================================================================
  308.  
  309. CODE    SEGMENT PARA PUBLIC 'CODE'
  310. ORG     100h
  311. ASSUME  CS:CODE, DS:DATA, ES:NOTHING, SS:STACK
  312.  
  313. max_proc_entries              EQU        64
  314.                               
  315. pseudo_over_struct            STRUC
  316.       proc_data_segment       DW        ?
  317.       proc_extra_segment      DW        ?
  318.       proc_entry_count        DW        ?
  319.       proc_entry_ptr          DD max_proc_entries DUP (?)
  320. pseudo_over_struct            ENDS
  321.  
  322. main  PROC  NEAR
  323.  
  324.       MOV   AX, DATA                       ; Segment initialization
  325.       MOV   DS, AX
  326.  
  327. check_for_emm_loaded:
  328.       CALL  test_for_EMM                   ; Use the "interrupt vector"
  329.       JE    get_emm_page_frame             ; technique to determine
  330.       JMP   emm_err_exit                   ; whether EMM is loaded
  331.  
  332. get_emm_page_frame:
  333.       MOV   AH, 41h                        ; Get the page frame base
  334.       INT   67h                            ; address from EMM
  335.       OR    AH, AH
  336.       JZ    allocate_64K
  337.       JMP   emm_err_exit
  338.  
  339. allocate_64K:
  340.       MOV   exp_mem_segment, BX            ; Allocate 4 pages of expand-
  341.       MOV   AH, 43h                        ; ed memory for this example.
  342.       MOV   BX, 4                          ; More can be allocated de-
  343.       INT   67h                            ; pending on the number of
  344.       OR    AH, AH                         ; overlays to be loaded.
  345.       JZ    map_64K                        ; Actually, in this case,
  346.       JMP   emm_err_exit                   ; only a single page is re-
  347.                                            ; quired because the example
  348.                                            ; pseudo-overlay is extreme-
  349.                                            ; ly small.
  350. map_64K:
  351.       MOV   handle, DX                     ; Map in the first 4 logical
  352.       MOV   CX, 4                          ; pages at physical pages 0
  353. map_pages_loop:                            ; through 3
  354.       MOV   AH, 44h                        ;    logical page 0 at
  355.       MOV   BX, CX                         ;       physical page 0
  356.       DEC   BX                             ;    logical page 1 at
  357.       MOV   AL, BL                         ;       physical page 1
  358.       MOV   DX, handle                     ;    logical page 2 at
  359.       INT   67h                            ;       physical page 2
  360.       OR    AH, AH                         ;    logical page 3 at 
  361.       LOOPE map_pages_loop                 ;       physical page 3
  362.       JE    init_load_struct               ; If additional overlays were
  363.       JMP   emm_err_exit                   ; required, each overlay 
  364.                                            ; would be loaded after map-
  365.                                            ; ping and a new set of
  366.                                            ; logical pages would be
  367.                                            ; mapped at the same
  368.                                            ; physical pages.
  369.  
  370. init_load_struct:
  371.       MOV   ES, exp_mem_segment            ; Initialize pseudo-overlay
  372.       MOV   DI, 0                          ; environment and procedure
  373.       MOV   CX, (SIZE pseudo_over_struct)  ; pointer area. This struc-
  374.       MOV   AL, 0                          ; ture begins at the page 
  375.       REP   STOSB                          ; frame segment address.
  376.  
  377.       MOV   AX, (SIZE pseudo_over_struct)  ; Compute the load address
  378.       ADD   AX, 000Fh                      ; within expanded memory for
  379.       AND   AX, 0FFF0h                     ; the overlay. The address is
  380.       MOV   CX, 4                          ; rounded up to the next
  381.       SHR   AX, CL                         ; higher paragraph boundary
  382.       ADD   AX, exp_mem_segment            ; immediately following the
  383.       MOV   parm_block.load_segment, AX    ; pseudo-overlay environment
  384.       MOV   parm_block.reloc_factor, AX    ; & procedure pointer
  385.                                            ; structure. This computa-
  386.                                            ; tion takes into account
  387.                                            ; the maximum number of
  388.                                            ; procedure entry points
  389.                                            ; which the pseudo-overlay
  390.                                            ; is going to return to
  391.                                            ; this program.
  392.  
  393.       MOV   WORD PTR entry_point[0], 100h  ; Build .COM file entry
  394.       MOV   WORD PTR entry_point[2], AX    ; point
  395.  
  396.       MOV   AH, 4Bh                        ; Load the pseudo-overlay
  397.       MOV   AL, 03h                        ; using the DOS "load
  398.       LEA   DX, pseudo_over_name           ; overlay" function
  399.       PUSH  DS
  400.       POP   ES
  401.       LEA   BX, parm_block
  402.       INT   21h
  403.       JC    emm_err_exit
  404.  
  405.       PUSH  DS                             ; Transfer control to the
  406.       PUSH  ES                             ; loaded pseudo-overlays
  407.       CALL  DWORD PTR entry_point          ; initialization code
  408.       POP   ES
  409.       POP   DS
  410.       OR    AH, AH
  411.       JZ    call_over_procedures
  412.       JMP   emm_err_exit
  413.  
  414. call_over_procedures:
  415.       MOV   ES, exp_mem_segment            ; As an example of passing
  416.       MOV   BX, 0                          ; control to a procedure
  417.       MOV   DI, 0                          ; existing in expanded
  418.       MOV   CX, ES:[BX].proc_entry_count   ; memory, each procedure con-
  419.       JCXZ  deallocate_exp_memory          ; tained in the overlay will
  420.                                            ; be called in sequence.
  421.                                            ; Obviously, a single pro-
  422.                                            ; cedure could be called
  423.                                            ; just as easily.
  424.  
  425. pseudo_over_call_loop:
  426.       PUSH  BX
  427.       PUSH  CX
  428.       PUSH  DI
  429.       PUSH  ES
  430.       PUSH  DS
  431.  
  432.       LDS   AX, ES:[BX+DI].proc_entry_ptr
  433.       MOV   WORD PTR CS:tp_ent_ptr[0], AX
  434.       MOV   WORD PTR CS:tp_ent_ptr[2], DS
  435.  
  436.       MOV   AX, 123                        ; Pass 2 numbers to
  437.       MOV   DX, 23                         ; the procedures
  438.  
  439.       MOV   DS, ES:[BX].proc_data_segment  ; Set up pseudo-overlays
  440.       MOV   ES, ES:[BX].proc_extra_segment ; segment environment
  441.       CALL  DWORD PTR CS:tp_ent_ptr        ; Call each procedure
  442.  
  443.       POP   DS
  444.       POP   ES
  445.       POP   DI
  446.       POP   CX
  447.       POP   BX
  448.  
  449.       ADD   DI, 4                          ; Adjust index to the next
  450.       LOOP  pseudo_over_call_loop          ; procedure (4 bytes long)
  451.                                            ; pointer & loop till all
  452.                                            ; have been called
  453.  
  454. deallocate_exp_memory:
  455.       MOV   AH, 45h                        ; Return the allocated
  456.       MOV   DX, handle                     ; pages to the expanded
  457.       INT   67h                            ; memory manager
  458.       OR    AH, AH
  459.       JNZ   emm_err_exit
  460.  
  461. exit:
  462.       MOV   AH, 4Ch                        ; Return a normal exit code
  463.       MOV   AL, 0
  464.       INT   21h
  465.  
  466. emm_err_exit:
  467.       MOV   AL, AH                         ; Display the fact that
  468.       MOV   AH, 09h                        ; an EMM error occurred
  469.       LEA   DX, emm_err_msg                ; Go to the normal exit
  470.       INT   21h
  471.       JMP   exit
  472.  
  473.       tp_ent_ptr              DD        ?  ; CS relative far pointer
  474.                                            ; used for transfer to the
  475. main  ENDP                                 ; procedures in the
  476.                                            ; pseudo_overlay
  477. ==============================================================================
  478.  
  479.  
  480.  
  481.  
  482.  
  483.  
  484.  
  485.  
  486.  
  487.  
  488.  
  489.  
  490.  
  491. ==============================================================================
  492. ==============================================================================
  493. Figure 9: Procedure to Test for the Presence of EMM 
  494.  
  495. ==============================================================================
  496.  
  497. test_for_EMM    PROC NEAR
  498.  
  499.        MOV     AX, 3567h              ; Issue "get interrupt vector"
  500.        INT     21h
  501.  
  502.        MOV     DI, 000Ah              ; Use the SEGMENT in ES
  503.                                       ; returned by DOS, place
  504.                                       ; the "device name field"
  505.                                       ; OFFSET in DI.
  506.  
  507.        LEA     SI, EMM_device_name    ; Place the OFFSET of the EMM
  508.                                       ; device name string in SI,
  509.                                       ; the SEGMENT is already in DS.
  510.  
  511.        MOV     CX, 8                  ; Compare the name strings
  512.        CLD                            ; Return the status of the
  513.        REPE    CMPSB                  ; compare in the ZERO flag
  514.        RET
  515.  
  516. test_for_EMM ENDP
  517.  
  518. CODE        ENDS
  519. ==============================================================================
  520.  
  521.  
  522.  
  523.  
  524.  
  525.  
  526.  
  527.  
  528.  
  529.  
  530.  
  531.  
  532. ==============================================================================
  533. ==============================================================================
  534. Figure 10: Pseudo-overlay Module
  535.  
  536. ==============================================================================
  537.  
  538. CODE    SEGMENT PARA PUBLIC 'CODE'
  539. ASSUME  CS:CODE, DS:DATA
  540. ORG     100h
  541.  
  542. actual_proc_entries         EQU         2
  543.  
  544. overlay_entry_struct        STRUC
  545.         proc_data_segment   DW          ?
  546.         proc_extra_segment  DW          ?
  547.         proc_entry_count    DW          ?
  548.         proc_entry_ptr      DD          actual_proc_entries DUP (?)
  549. overlay_entry_struct        ENDS
  550. ==============================================================================
  551.  
  552.  
  553.  
  554.  
  555.  
  556.  
  557.  
  558.  
  559.  
  560.  
  561.  
  562.  
  563.  
  564. ==============================================================================
  565. ==============================================================================
  566. Figure 11: Procedure to Identify Overlay
  567.  
  568. ==============================================================================
  569.  
  570. command_line_entry_point        PROC        NEAR
  571.  
  572.         MOV     AX, DATA                    ; Set up local data
  573.         MOV     DS, AX                      ; segment
  574.  
  575.         LEA     DX, overlay_err_msg         ; Display overlay error
  576.         MOV     AH, 09h                     ; message
  577.         INT     21h                
  578.  
  579.         MOV     AX, 4C00h                   ; Exit back to DOS
  580.         INT     21h
  581.  
  582. command_line_entry_point        ENDP
  583. ==============================================================================
  584.  
  585.  
  586.  
  587.  
  588.  
  589.  
  590.  
  591.  
  592.  
  593.  
  594.  
  595.  
  596.  
  597. ==============================================================================
  598. ==============================================================================
  599. Figure 12: Data Segment for the Pseudo-overlay Module
  600.  
  601. ==============================================================================
  602.  
  603. DATA  SEGMENT PARA PUBLIC 'DATA'
  604.  
  605. sum_msg         DB   0Dh, 0Ah, 'Sum of numbers = ', '$'
  606. diff_msg        DB   0Dh, 0Ah, 'Difference of numbers = ', '$'
  607. overlay_err_msg DB   'Overlay cannot be executed via the command line$'
  608. powers_of_ten   DW   10000, 1000, 100, 10, 1
  609.  
  610. DATA  ENDS
  611.  
  612. END   command_line_entry_point
  613. ==============================================================================
  614.  
  615.  
  616.  
  617.  
  618.  
  619.  
  620.  
  621.  
  622.  
  623.  
  624.  
  625.  
  626.  
  627. ==============================================================================
  628. ==============================================================================
  629. Figure 13: Pseudo-overlay Data Structure Initialization Procedure
  630.  
  631. ==============================================================================
  632.  
  633. initialization  PROC    FAR
  634.  
  635. MOV  AX, DATA                                        ; Set up a local
  636. MOV  DS, AX                                          ; data segment
  637.  
  638. MOV  AH, 41h                                         ; Get the page 
  639. INT  67h                                             ; frame segment
  640. OR   AH, AH                                          ; address from EMM
  641. JNZ  error       
  642.  
  643. MOV  ES, BX                                          ; Create a pointer 
  644. MOV  DI, 0                                           ; to the expanded
  645.                                                      ; memory page frame
  646.                                                      ; segment address
  647.  
  648. MOV  ES:[DI].proc_data_segment, DS                   ; Return local data 
  649. MOV  ES:[DI].proc_extra_segment, DS                  ; & extra segment 
  650.                                                      ; back to the kernel
  651.  
  652. MOV  WORD PTR ES:[DI].proc_entry_count, 2            ; Return the number
  653.                                                      ; of local call-
  654.                                                      ; able procedures
  655.                                                      ; back to kernel
  656. MOV  WORD PTR ES:[DI].proc_entry_ptr[0], OFFSET sum  ; Return a far
  657. MOV  WORD PTR ES:[DI].proc_entry_ptr[2], SEG    sum  ; pointer to each
  658. MOV  WORD PTR ES:[DI].proc_entry_ptr[4], OFFSET diff ; local callable
  659. MOV  WORD PTR ES:[DI].proc_entry_ptr[6], SEG    diff ; procedure in the
  660.                                                      ; pseudo-overlay
  661.                                                      ; back to kernel
  662.  
  663. exit:  MOV   AH, 0                                   ; Set status in AH
  664.                                                      ; = passed
  665. error: RET                                           ; Return status
  666.                                                      ; in AH
  667.  
  668. initialization  ENDP
  669. ==============================================================================
  670.  
  671.  
  672.  
  673.  
  674.  
  675.  
  676.  
  677.  
  678.  
  679.  
  680.  
  681.  
  682.  
  683. ==============================================================================
  684. ==============================================================================
  685. Figure 14: Procedure to Add AX and DX
  686. ==============================================================================
  687.  
  688. sum     PROC    FAR
  689.  
  690.         ADD     AX, DX                 ; Add numbers
  691.         PUSH    AX                     ; Display sum message
  692.         LEA     DX, sum_msg
  693.         MOV     AH, 09h
  694.         INT     21h
  695.         POP     AX
  696.         CALL    display_result         ; Display sum
  697.         RET
  698.  
  699. sum     ENDP
  700. ==============================================================================
  701.  
  702.  
  703.  
  704.  
  705.  
  706.  
  707.  
  708.  
  709.  
  710.  
  711.  
  712.  
  713. ==============================================================================
  714. ==============================================================================
  715. Figure 15: Procedure to Subtract AX and DX
  716.  
  717. ==============================================================================
  718.  
  719. diff    PROC    FAR
  720.  
  721.         SUB     AX, DX               ; Subtract numbers
  722.         PUSH    AX                   ; Display difference message
  723.         LEA     DX, diff_msg
  724.         MOV     AH, 09h
  725.         INT     21h
  726.         POP     AX
  727.         CALL    display_result       ; Display difference
  728.         RET
  729.  
  730. diff    ENDP
  731. ==============================================================================
  732.  
  733.  
  734.  
  735.  
  736.  
  737.  
  738.  
  739.  
  740.  
  741.  
  742.  
  743.  
  744. ==============================================================================
  745. ==============================================================================
  746. Figure 16: Procedure to Display Number in AX in Decimal
  747.  
  748. ==============================================================================
  749.  
  750. display_result  PROC    NEAR
  751.  
  752.         LEA     DI, powers_of_ten
  753.         MOV     CX, 5
  754. display_loop:
  755.         XOR     DX, DX            ; Divide the number passed
  756.         DIV     WORD PTR [DI]     ; in AX by descending powers of ten
  757.         ADD     AL, '0'           ; Convert digit to ASCII
  758.  
  759.         PUSH    DX                ; Output the digit
  760.         MOV     DL, AL
  761.         MOV     AH, 02h
  762.         INT     21h
  763.         POP     AX
  764.  
  765.         ADD     DI, 2
  766.         LOOP    display_loop
  767.         RET
  768.  
  769. display_result        ENDP
  770. ==============================================================================
  771.  
  772.  
  773.  
  774.  
  775.  
  776.  
  777.  
  778.  
  779.  
  780.  
  781.  
  782.  
  783. ==============================================================================
  784. ==============================================================================
  785.  
  786. Figure 17: Data and Stack Segment for the Kernel and the Pseudo-overlay
  787.  
  788. ==============================================================================
  789.  
  790. DATA            SEGMENT PARA PUBLIC 'DATA'
  791.  
  792. emm_err_msg        DB    'EMM error occurred$' ; EMM diagnostic message
  793. pseudo_over_name   DB    'OVERLAY.EXE', 0      ; Name of pseudo-overlay
  794. EMM_device_name    DB    'EMMXXXX0'            ; Standard EMM device name
  795. exp_mem_segment    DW    ?                     ; Temp for expanded
  796.                                                ; memory page frame
  797.                                                ; segment address
  798. handle             DW    ?                     ; Temp for handle allo-
  799.                                                ; cated to the kernel
  800. entry_point  DD          ?                     ; Far pointer to the 
  801.                                                ; entry point for a .COM 
  802.                                                ; file
  803. parm_block_struct  STRUC                       ; Structure definition 
  804.     load_segment   DW    ?                     ; for a "load overlay" 
  805.     reloc_factor   DW    ?                     ; parameter block
  806. parm_block_struct  ENDS
  807. parm_block         parm_block_struct <>        ; The actual parameter
  808.                                                ; block
  809.  
  810. DATA        ENDS
  811.  
  812.  
  813. STACK   SEGMENT PARA STACK 'STACK'
  814.         local_stack     DW 256 DUP ('^^')
  815. STACK   ENDS
  816.  
  817. END        main
  818. ==============================================================================
  819.