NOLIST
Execute     MACRO              ; 10 Jan 88
*------------------------------; Start of Execute macro.
     MOVE.L #NullString,D1     ; Make D1 point to a null command string.
     NOLIST
     IFND NullString
     LIST
     SECTION DataSection,DATA
NullString:
     DC.B 0,0
     SECTION   "",CODE
     NOLIST
     ENDC
     IFEQ NARG-2               ; If the output file handle is specified, then
     LIST
                               ; Make D3 indicate the output file handle.
     MOVE.L \2,D3
     NOLIST
     ENDC
     IFEQ NARG-1               ; If no output file handle is specified, then
     LIST
     CLR.L D3                  ; Clear D3 so that output will go to the
                               ;  current window.
     NOLIST
     ENDC
     LIST
                               ; Put the command file handle in D2.
     MOVE.L \1,D2
     CallLib Execute,dos       ; Call Execute.
     TST.L D0                  ; Make the zero flag indicate failure.
*------------------------------; End of Execute macro.
     ENDM
     LIST