1 files changed, 145 insertions, 0 deletions

diff --git a/v4.0/src/CMD/MODE/MODEMES.ASM b/v4.0/src/CMD/MODE/MODEMES.ASM
new file mode 100644
index 0000000..43e55a4
--- /dev/null
+++ b/v4.0/src/CMD/MODE/MODEMES.ASM
@@ -0,0 +1,145 @@
+          PAGE  ,132    ;
+          TITLE MODEMES - MESSAGES DISPLAYED ON CONSOLE BY MODE
+
+;ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ  P R O L O G  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+;º                                                                                        º
+
+;  AC001 - P3976: Need to have all pieces of messages in MODE.SKL so have to
+;                 implement the SYSGETMSG method of getting addressability to
+;                 the pieces.  This means that the code does a SYSGETMSG call
+;                 which returns a pointer (DS:SI) to the message piece.  The
+;                 address is then put in the sublist block for the message
+;                 being issued.
+
+;º                                                                                        º
+;ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ  P R O L O G  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
+
+PRINTF_CODE SEGMENT PUBLIC
+          ASSUME CS:PRINTF_CODE,DS:PRINTF_CODE
+;
+CR        EQU   13      ;CARRIAGE RETURN
+LF        EQU   10      ;LINE FEED
+BEEP      EQU   7       ;AUDIBLE TONE
+EOM       EQU   0       ;NULL TERMINATOR, REQUIRED BY PRINTF
+
+IF1
+   %OUT including  MODESUBS.INC
+   %OUT including  MODEDEFS.INC
+ENDIF
+INCLUDE  MODESUBS.INC
+INCLUDE  MODEDEFS.INC
+
+;
+PUBLIC   first_sublist
+PUBLIC   number_of_sublists
+
+ PUBLIC    MOVED_MSG, ERR1, ERR2, PT80, PT80N, PT132, PT132N
+ PUBLIC    PTLINES, RATEMSG, INITMSG, REDIRMSG, SHIFT_MSG, sublist_shift_msg
+ PUBLIC    NOTREMSG, RETPARTO, sublist_retparto, CANT_SHIFT, sublist_cant_shift
+ PUBLIC    NUMBERS, ;AC001;INF_OR_NO_ptr
+ PUBLIC    Invalid_number_of_parameters, COM1_or_COM2, net_error
+ PUBLIC    Invalid_parameter, not_supported, offending_parameter
+ PUBLIC  offending_parameter_ptr
+ PUBLIC    INITMSG, device,pbaud,pparity,pdata,pstop,pparm,pbaud,baud_19200
+ PUBLIC  pstop_ptr
+ PUBLIC  pparity_ptr
+               PUBLIC CPMSG1
+                PUBLIC CPMSG2,CPMSGLST2DEV
+                PUBLIC CPMSG3
+                PUBLIC CPMSG4
+                PUBLIC CPMSG5
+                PUBLIC CPMSG6,CPMSGLST6CP,CPMSGLST6DEV
+                PUBLIC CPMSG7,CPMSGLST7DEV
+;AC001;         PUBLIC CPMSGLST8HD
+                PUBLIC sublist_cpmsg8
+                PUBLIC CPMSG8
+                PUBLIC CPMSG8_HW
+;AC001;         PUBLIC CPMSG8_PR
+                PUBLIC CPMSG9,CPMSGLST9CP
+                PUBLIC CPMSG10
+                PUBLIC sublist_cpmsg10
+;AC001;         PUBLIC CPMSGLST10FUN
+;AC001;         PUBLIC CPMSG10_QUERY
+;AC001;         PUBLIC CPMSG10_DES
+;AC001;         PUBLIC CPMSG10_REFRESH
+;AC001;         PUBLIC CPMSG10_SELECT
+;AC001;         PUBLIC CPMSG10_GLOBAL
+                PUBLIC CPMSG12
+                PUBLIC CPMSG13
+                PUBLIC CPMSGLST13CP
+                PUBLIC CPMSGLST13TYP
+;AC001;         PUBLIC CPMSG13_ACT
+;AC001;         PUBLIC CPMSG13_SYS
+                PUBLIC CPMSG14
+                PUBLIC CPMSG15
+                PUBLIC CPMSG16
+                PUBLIC CPMSG17
+                PUBLIC sublist_CPMSG17
+;AC001;         PUBLIC CPMSGLST17FUN
+;AC001;         PUBLIC CPMSG17_QUERY
+;AC001;         PUBLIC CPMSG17_PREP
+;AC001;         PUBLIC CPMSG17_REFRESH
+;AC001;         PUBLIC CPMSG17_ACT
+;AC001;         PUBLIC CPMSG17_WRIT
+                PUBLIC CPMSG18
+                PUBLIC CPMSG19
+                PUBLIC CPMSG20
+                PUBLIC CPMSG21
+                PUBLIC dev_name_size         ;used by invoke for msg srv
+                PUBLIC stat_dev_ptr          ;used by invoke for msg srv
+                PUBLIC long_underline        ;used by invoke for msg srv
+                PUBLIC five_char_underline        ;used by invoke for msg srv
+                PUBLIC four_char_underline        ;used by invoke for msg srv
+                PUBLIC row_ptr
+                PUBLIC status_for_device
+                PUBLIC notredpt
+;AC001;         PUBLIC noretry
+;AC001;         PUBLIC LEFT
+;AC001;         PUBLIC RIGHT
+                PUBLIC row_type
+                PUBLIC lines_equal_msg          ;used by analyze_and_invoke, "LINES=%1" definition
+                PUBLIC  redcom
+;AC001;         PUBLIC  rightmost
+;AC001;         PUBLIC  leftmost
+;AC001;         PUBLIC  infinite
+                PUBLIC  REDPT
+                PUBLIC  PBAUD_PTR
+;               PUBLIC BLINK_type
+                PUBLIC COLUMNS_ptr
+                PUBLIC COLUMNS_equal_msg
+                PUBLIC columns_type
+                PUBLIC delay_type
+                PUBLIC delay_ptr
+                PUBLIC rate_ptr
+                PUBLIC rate_type
+                PUBLIC function_not_supported
+                PUBLIC Required_font_not_loaded
+                PUBLIC ANSI_not_loaded
+                PUBLIC Baud_rate_required
+                PUBLIC RETRY_type_ptr
+                PUBLIC RETRY_equal
+                PUBLIC Baud_rate_required
+                PUBLIC  not_supported_ptr
+                PUBLIC  Illegal_device_ptr
+                PUBLIC  syntax_error
+                PUBLIC  syntax_error_ptr
+                PUBLIC  rate_and_delay_together
+                PUBLIC  CRLF
+                PUBLIC  Invalid_switch
+                PUBLIC  rightmost
+                PUBLIC  leftmost
+                PUBLIC  noretry
+                PUBLIC  infinite
+                PUBLIC  left
+                PUBLIC  right
+                PUBLIC  cpmsg8_pr
+                PUBLIC  cpmsgxx_query
+                PUBLIC  cpmsgxx_prep
+                PUBLIC  cpmsgxx_select
+                PUBLIC  cpmsgxx_refresh
+                PUBLIC  cpmsg17_writ
+                PUBLIC  cpmsg13_act
+                PUBLIC  cpmsg13_sys
+
+PRINTF_CODE     ENDS
+                END