title	MACRO Test Program
page 62,132
include	struct.mac
data	segment
num	dd	1843200
	assume	cs:data
	@save	<ax,bx,si,di>
lab:	mov	ax,bx
	.repeat
	  mov al,ah
	.until loop

	.repeat
	  mov al,cl
	.until al l 34

	.repeat
	  add al,1
	.until al e 56 long

	.dowhl si e 5 long
	  dec si
	.enddo

	.if	pe
	  mov ax,1
	.else
	  mov ax,2
	  .if	z,long
	    mov ax,3
	  .else
	    mov ax,4
	  .endif
	.endif

	.dowhl ax e 1
	  dec ax
	.enddo

	.if <word ptr num> e 23h
	  mov word ptr num,40h
	.endif

	.if	ax,e,bx
	  mov ax,4
	.endif
	.if ax l 1
	  mov ax,1
	.else
	  mov ax,2
	.endif
	.if cx l 0
	  inc cx
	.else
	  dec cx
	.endif
	.if ax l 0
	  .if bx l 0
	    .if cx l 0
	      dec cx
	    .else
	      inc cx
	    .endif
	    mov bx,1
	  .else
	    mov bx,2
	  .endif
	  mov ax,1
	.else
	  mov ax,2
	.endif
	.if ax g cx long
	  add ax,1
	.else long
	  add ax,2
	.endif
	@restore
	check$
data	ends
	end
term.inc'}
    {$include:'util.inc'}
proc