home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / asm / PJGRAPH.ZIP / CHAP04.4 < prev    next >
Encoding:
Text File  |  1989-09-26  |  1.1 KB  |  28 lines
  1. ; By John Navas.
  2. ;
  3. cseg    SEGMENT
  4.         ASSUME  cs:cseg
  5. mproc   MACRO                           ; for local names
  6.         LOCAL   locs,field1,field2,loc1,loc
  7. locs    STRUC                           ; local storage on stack
  8. field1  DW      ?
  9. field2  DW      ?
  10. locs    ENDS
  11. loc1    EQU     SIZE locs + 1 AND -2    ; even length
  12. loc     EQU     [bp-loc1]               ; negative offset from bp
  13. sub     PROC
  14.         push    bp                      ; save old bp
  15.         mov     bp,sp                   ; setup new bp
  16.         sub     sp,loc1                 ; allocate local storage
  17.         mov     loc[field1],1           ; access local storage
  18.         mov     loc[field2],2
  19.         mov     sp,bp                   ; deallocate storage
  20.         pop     bp                      ; restore old bp
  21.         ret                             ; return to caller
  22. sub     ENDP
  23.         ENDM                            ; mproc may be reused
  24.         mproc                           ; expand local names
  25.         DB      2000h - ( $ - cseg ) DUP( 0 )
  26.         call    sub                     ; forced by DB to 2000h
  27. cseg    ENDS
  28.         END