Example 14. Producing Messages in a Macro

1 testparam .macro x, y 2 ! 3 ! This macro checks for the correct number of parameters. 4 ! It generates an error message if x and y are not present. 5 ! 6 ! The first line tests for proper input. 7 ! 8 .if ($symlen(x) == 0) 9 .emsg "ERROR --missing parameter in call to TEST" 10 .mexit 11 .else 12 MOV ACC, #2 13 MOV AL, #1 14 ADD ACC, @AL 15 .endif 16 .endm 17 18 000000 testparam 1, 2 1 .if ($symlen(x) == 0) 1 .emsg "ERROR --missing parameter in call to TEST" 1 .mexit 1 .else 1 000000 FF20 MOV ACC, #2 000001 0002 1 000002 9A01 MOV AL, #1 1 000003 A0A9 ADD ACC, @AL 1 .endif