Category : Files from Magazines
Archive   : PROGJRNL.ZIP
Filename : PJ4-L4.ASM

; Program to accompany Michael Abrash's code. Code submitted to make
; a point illustrating a letter to Michael
; Listing 4.
; Copyright by John Navas.
cseg SEGMENT
ASSUME cs:cseg
mproc MACRO ; for local names
LOCAL locs,field1,field2,loc1,loc
locs STRUC ; local storage on stack
field1 DW ?
field2 DW ?
locs ENDS
loc1 EQU SIZE locs + 1 AND -2 ; even length
loc EQU [bp-loc1] ; negative offset from bp
sub PROC
push bp ; save old bp
mov bp,sp ; setup new bp
sub sp,loc1 ; allocate local storage
mov loc[field1],1 ; access local storage
mov loc[field2],2
mov sp,bp ; deallocate storage
pop bp ; restore old bp
ret ; return to caller
sub ENDP
ENDM ; mproc may be reused
mproc ; expand local names
DB 2000h - ( $ - cseg ) DUP( 0 )
call sub ; forced by DB to 2000h
cseg ENDS
END