.model small
        .stack

        .data
a1 db -1
String  db 'Hello,everybody !',0dh,0ah,'$'
        person record year:4,sex:1,marr:1
        wang person <1000b,1,0>
n1 equ -5
	.code
dstring   macro   string       ;string
        db '&string&',0dh,0ah,'$'
                endm

        .startup
dstring <0!<num!<10>
     mov bx,offset a1
        .if al && bl
        mov al,-5
        .endif
mov bx,offset a1
mov ax,stack
mov ax,@stack
mov ax,@data
mov bx,5 gt 6
mov dl,05
mov dl,mask year
        mov dx,offset string
	mov ah,9
	int 21h
        .exit 0
	end