1 files changed, 82 insertions, 0 deletions

diff --git a/v4.0/src/CMD/SYS/SYSSR.ASM b/v4.0/src/CMD/SYS/SYSSR.ASM
new file mode 100644
index 0000000..f54f233
--- /dev/null
+++ b/v4.0/src/CMD/SYS/SYSSR.ASM
@@ -0,0 +1,82 @@
+        INCLUDE SYSHDR.INC
+
+; include SYSMSG.INC
+
+.xlist
+.xcref
+
+        include SYSMSG.INC              ;                                      ;AN000;
+
+.cref
+.list
+
+        MSG_UTILNAME <SYS>              ;                                      ;AN000;
+
+CODE    SEGMENT PARA PUBLIC
+
+ASSUME  CS:CODE,DS:nothing,ES:nothing
+
+        PUBLIC  SYSDISPMSG, SYSLOADMSG, SYSPARSE
+        PUBLIC  Data_Space
+
+;;dcl   MSG_SERVICES <MSGDATA>          ;                                     ;AN000;
+
+;  MSG_SERVICES <SYS.CL1,SYS.CL2,SYS.CLA,SYS.CLB,SYS.CLC,SYS.CLD>               ;AN000;
+
+.xlist
+.xcref
+
+        MSG_SERVICES <SYS.CL1,SYS.CL2,SYS.CLA,SYS.CLB,SYS.CLC,SYS.CLD> ;       ;AN000;
+
+.cref
+.list
+
+;  MSG_SERVICES <LOADmsg,DISPLAYmsg,INPUTmsg,CHARmsg,NOVERCHECKmsg>
+
+.xlist
+.xcref
+
+        MSG_SERVICES <LOADmsg,DISPLAYmsg,INPUTmsg,CHARmsg,NOVERCHECKmsg> ;                   ;AN000;
+
+.cref
+.list
+
+
+false   =       0                       ;                                      ;AN000;
+
+DateSW  equ     false                   ;                                      ;AN000;
+TimeSW  equ     false                   ;                                      ;AN000;
+CmpxSW  equ     false                   ;                                      ;AN000;
+KeySW   equ     false                   ;                                      ;AN000;
+QusSW   equ     false                   ;                                      ;AN000;
+Val1SW  equ     false                   ;                                      ;AN000;
+Val2SW  equ     false                   ;                                      ;AN000;
+Val3SW  equ     false                   ;                                      ;AN000;
+SwSW    equ     false                   ;                                      ;AN000;
+NumSW   equ     false                   ;                                      ;AN000;
+CAPSW   equ     false                   ; Perform CAPS if specified            ;AN000;
+
+
+ASSUME  CS:CODE,DS:CODE,ES:nothing
+
+; include parse.asm
+
+;xlist
+;xcref
+
+include parse.asm                       ;                                      ;AN000;
+
+.cref
+.list
+
+Data_Space LABEL BYTE                   ;                                      ;AN000;
+
+
+
+CODE    Ends
+
+include msgdcl.inc
+
+        End
+
+
\ No newline at end of file