.MACRO ULODHD STCODE,ENDCOD,E1,E2,E3,E4,E5,E6,E7,E8,E9,E10 .WORD ID001 .WORD ID002 .WORD ID003 .NARG $$$LOA .IF LT $$$LOA-3 .ERROR .ENDC .IF GT $$$LOA-12 .ERROR .ENDC .WORD ENDCOD-STCODE+<6*<$$$LOA-2>> .WORD 6*<$$$LOA-2> .WORD $$$LOA-2 .MCALL ULOEPT $$$LOB=2 $$$STR=STCODE ULOEPT E1 ULOEPT E2 ULOEPT E3 ULOEPT E4 ULOEPT E5 ULOEPT E6 ULOEPT E7 ULOEPT E8 ULOEPT E9 ULOEPT E10 .WORD /2 .ENDM ULODHD