v4.0/src/CMD/JOIN/JOIN.SKL

   1 ;JOIN Utility
   2 ;Message Service Routine
   3
   4 :util  JOIN                             ;BEGIN UTIL                     ;AN000;
   5
   6 :class 1                                ;EXTENDED ERRORS                ;AN000;
   7 ;-------                                 ---------------
   8 ;:use  EXTEND8                          ;Insufficient memory
   9
  10 :class 2                                ;PARSE ERRORS                   ;AN000;
  11 ;-------                                 ------------
  12 ;:use  PARSE1                           ;Too many parameters
  13 ;:use  PARSE3                           ;Invalid switch
  14 ;:use  PARSE10                          ;Invalid parameter
  15
  16 :class A                                ;COMMON & DEFINED MSGS          ;AN000;
  17 ;-------                                 ------------
  18 :use  1 COMMON1                         ;Incorrect DOS version          ;AN000;
  19 :def  2 "Directory not empty",CR,LF                                     ;AN000;
  20 :use 12 COMMON12                        ;Cannot %1 a network drive      ;AN000;
  21
  22 :end                                    ;END UTIL                       ;AN000;