NOLIST
GetStdIn    MACRO              ; 10 Jan 88
*------------------------------; Start of GetStdIn macro.
     CallLib Input,dos         ; Call Input.
     MOVE.L D0,StdIn           ; Save the file handle at StdIn.
     NOLIST
     IFND StdIn                ; If StdIn is not defined, then
     LIST
     SECTION BSS_Section,BSS   ; Create StdIn.
     CNOP 0,2
StdIn:
     DS.L 1
     SECTION   "",CODE
     NOLIST
     ENDC
     LIST
*------------------------------; End of GetStdIn macro.
     ENDM
     LIST