v4.0/src/CMD/GRAFTABL/GRTABMS.INC

   1 ;:util GRAFTABL             ;utility name                                       ;AN000;
   2 ;:class 1                   ;DOS extended errors:
   3 ;:class 2                   ;parse errors:
   4 ;1  Too many parameters
   5 ;2  Required parameter missing
   6 ;3  Invalid switch
   7 ;4  Invalid keyword
   8 ;5  Parameter value not in allowed range
   9 ;6  Parameter value not allowed    [parse ret codes 6 and 7]
  10 ;7   (undefined)
  11 ;8  Parameter format not correct
  12 ;9   (undefined)
  13 ;10 Invalid parameter              [no corresponding parse ret code]
  14 ;11 Invalid parameter combination  [no corresponding parse ret code]
  15 ;;
  16 ;:class A                   ;system messages
  17 ;:use 1 COMMON1             ;MSG 1 is always "Incorrect DOS version"
  18 ;;
  19 ;;In these next 2 messages, %1 will be replaced with one from list, 4-5,
  20 ;; or with one entry of the list at "CPID". (see GRTABMS.INC)
  21 ;;
  22 ;:def 2 "Active Code Page: %1",CR,LF
  23 ;:def 3 "Previous Code Page: %1",CR,LF
  24
  25 ;:def 4 "None",NULL
  26 ;:def 5 "Non-standard",NULL
  27 ;;
  28 ;:def 6 CR,LF,"DOS command line parameters supported:",CR,LF,LF
  29 ;
  30 ;:def 7 "    /STA - Request Status only",CR,LF
  31 ;"    ?    - Display this summary of parameters",CR,LF,CR,LF
  32
  33 ;:def 8 "    Code Pages available:",CR,LF
  34 ;"    437  - USA Graphic Character Set",CR,LF
  35
  36 ;:def 9 "    850  - Multi-lingual Graphic Character Set",CR,LF
  37 ;"    860  - Portuguese Graphic Character Set",CR,LF
  38
  39 ;:def 10 "    863  - Canadian French Graphic Character Set",CR,LF
  40 ;"    865  - Nordic Graphic Character Set",CR,LF
  41 ;
  42 ;
  43 ;:end
  44 ; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  45         IF1                             ;AN000;
  46             %OUT    COMPONENT=GRAFTABL, MODULE=GRTABMS.INC...;AN000;
  47         ENDIF                           ;AN000;
  48 ;THIS MODULE IS INCLUDED IN GRTABSM.SAL.
  49 ; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  50 SUBLIST_PARSE  SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_0,SF_BITS <SF_LEFT,,SF_ASCIIZ,SF_CHAR>,MAX_0,MIN_1,PAD_BLK> ;AN003;
  51         PUBLIC SUBLIST_PARSE       ;AN003;
  52
  53 ;               THE NEXT GROUP ARE ADDITIONAL CLASS "A" MESSAGES
  54 ;               SPECIFICALLY DEFINED FOR THE GRAFTABL UTILITY
  55 MSGNUM_ACTIVE  MSG_DESC <2,,SLIST_23,ONE_SUBS> ;AN000;"Active Code Page: %1",CR,LF
  56                PUBLIC MSGNUM_ACTIVE                                             ;AN000;
  57
  58 MSGNUM_PREVIOUS MSG_DESC <3,,SLIST_23,ONE_SUBS> ;AN000;"Previous Code Page: %1",CR,LF
  59                PUBLIC MSGNUM_PREVIOUS                                           ;AN000;
  60
  61 ;BEFORE USING THE NEXT SUBLIST, THE SEG ID OF CPID
  62 ;(OR OF "NONE" OR "NON-STANDARD") MUST BE FILLED IN
  63 ;SINCE COM FILE CANNOT HAVE SEGMENT FIXUP.
  64
  65 ;THIS NEXT SUBLIST IS USED BOTH MY MESSAGE 2 AND MESSAGE 3.
  66
  67 SLIST_23 SUBLIST <,,,,PC_ID_1,SF_BITS <SF_LEFT,,SF_ASCIIZ,SF_CHAR>,MAX_0,MIN_1,PAD_BLK> ;AN000;
  68                PUBLIC SLIST_23                                                  ;AN000;
  69 ;NOTE: IN THE ABOVE SUBLIST, ID=1, THE VECTOR POINTING TO THE MSG NO. 2-3.
  70 ;  WILL NEED TO BE PUT INTO THE SUBLIST DURING MESSAGES INITIALIZATION.
  71 ;  TO SELECT "None" OR "Non Standard", OR TO POINT TO ELEMENT OF "CPID".
  72
  73                PUBLIC CPID,CPID_L                                               ;AN000;
  74 CPID DB "437",NULL                                                              ;AN000;
  75 CPID_L EQU $-CPID ;AN000;NUMBER OF CHARS IN CPID
  76      DB "850",NULL                                                              ;AN000;
  77      DB "860",NULL                                                              ;AN000;
  78      DB "863",NULL                                                              ;AN000;
  79      DB "865",NULL                                                              ;AN000;
  80
  81 ; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  82 MSGNUM_NONE MSG_DESC <4> ;AN000;"None",NULL
  83                 PUBLIC MSGNUM_NONE                                              ;AN000;
  84
  85 MSGNUM_NSTD MSG_DESC <5> ;AN000;"Non-Standard",NULL
  86                 PUBLIC MSGNUM_NSTD                                              ;AN000;
  87 ; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  88
  89 ;CR,LF,"DOS command line parameters supported:",CR,LF,LF                        ;AN000;
  90 ;"    /STA - Request Status only",CR,LF                                         ;AN000;
  91 ;"    ?    - Display this summary of parameters",CR,LF                          ;AN000;
  92 ;"    Code Pages available:",CR,LF
  93 ;"    437  - USA Graphic Character Set",CR,LF                                   ;AN000;
  94 ;"    850  - Multi-lingual Graphic Character Set",CR,LF                         ;AN000;
  95 ;"    860  - Portuguese Graphic Character Set",CR,LF                            ;AN000;
  96 ;"    863  - Canadian French Graphic Character Set",CR,LF                       ;AN000;
  97 ;"    865  - Nordic Graphic Character Set",CR,LF                                ;AN000;
  98
  99 MSGNUM_HELP_TITLE MSG_DESC <6> ;AN000;NO SUBSTITUTIONS
 100                 PUBLIC MSGNUM_HELP_TITLE                                        ;AN000;
 101
 102 MSGNUM_HELP_TITLE7 MSG_DESC <7> ;AN007;NO SUBSTITUTIONS
 103                 PUBLIC MSGNUM_HELP_TITLE7                                        ;AN007;
 104
 105 MSGNUM_HELP_TITLE8 MSG_DESC <8> ;AN007;NO SUBSTITUTIONS
 106                 PUBLIC MSGNUM_HELP_TITLE8                                        ;AN007;
 107
 108 MSGNUM_HELP_TITLE9 MSG_DESC <9> ;AN007;NO SUBSTITUTIONS
 109                 PUBLIC MSGNUM_HELP_TITLE9                                        ;AN007;
 110
 111 MSGNUM_HELP_TITLE10 MSG_DESC <10> ;AN007;NO SUBSTITUTIONS
 112                 PUBLIC MSGNUM_HELP_TITLE10                                        ;AN007;
 113
 114 ; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
 115 ;end of GRTABMS.INC