F0048

adesutherland · Mar 15, 2021 · 7ad3c01 · 7ad3c01
1 parent 05540f9
commit 7ad3c01
Show file tree

Hide file tree

Showing 4 changed files with 29 additions and 1 deletion.
diff --git a/changelog.txt b/changelog.txt
@@ -1,6 +1,9 @@
 BREXX CMS Change LOG
 ====================
 
+F0048 - Make ASSEMBLER files LRECL 80 in the source tapes
+      - Add SYSPROFB EXEC
+
 0.9.12- 14 March 2021
 F0047 - Interactive Trace and Trace on/off fixes
 F0046 - Intercept GCCLIB 0.8.4

diff --git a/cmsbuild.sh b/cmsbuild.sh
@@ -49,6 +49,7 @@ herccontrol "devinit 00d io/brexxsrc.vmarc" -w "^HHCPN098I"
 herccontrol "/cp disc" -w "^VM/370 Online"
 herccontrol "/logon cmsuser cmsuser" -w "RECONNECTED AT"
 herccontrol "/begin"
+herccontrol "/COPYFILE * ASSEMBLE &DISK (RECFM F LRECL 80"
 herccontrol "/tape dump * * f (noprint" -w "^Ready;"
 herccontrol "/detach 181" -w "^Ready;"
 herccontrol "/vmarc pack * * f (pun notrace" -w "^Ready;"

diff --git a/config.h b/config.h
@@ -1,7 +1,7 @@
 /* Modified for VM/370 CMS and GCC by Robert O'Hara, July 2010. */
 
 /* The one version to rule them all! */
-#define CMS_VERSION "0.9.12"
+#define CMS_VERSION "F0048"
 /*
 #define CMS_VERSION "0.9.8"
 #define CMS_VERSION "F0020"

diff --git a/sysprofb.exec b/sysprofb.exec
@@ -0,0 +1,24 @@
+&CONTROL OFF NOMSG
+* Load bREXX into resident memory and establish it as the DMSREX command.
+* This is called from the SYSPROF EXEC.
+
+SET LDRTBLS 64
+
+* Load the native GCC runtime library into memory.
+RESLIB LOAD GCCLIB (NAME GCCLIB
+&IF &RETCODE NE 0 &TYPE SYSPROF Error loading GCCLIB into memory!
+&IF &RETCODE NE 0 &GOTO -DONE
+
+* Initialize the runtime library
+GCCLIB
+
+* Now load bREXX into memory.
+RESLIB LOAD BREXX (NAME DMSREX
+&IF &RETCODE NE 0 &TYPE SYSPROF Error loading bREXX into memory!
+&IF &RETCODE NE 0 &GOTO -DONE
+
+* Initialize the bREXX interpretor
+DMSREX
+
+-DONE
+&EXIT 0