github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-13 23:36:30 +00:00
Code Issues Releases Wiki Activity

Patch MIDAS 73 to accept JCL.

Browse Source 
Older versions of MIDAS expect you to type a command at them, which
makes them hard to automate with :x or XFILEs. This patch backports the
JCLINI code from later versions of MIDAS, which pre-stuffs the command
buffer with the JCL string if available.
This commit is contained in:
Adam Sampson 2020-08-25 01:39:09 +01:00 committed by Adam Sampson
parent 5f5e25da1e
commit dd607f57aa
2 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
build/misc.tcl
View File

@ -29,6 +29,8 @@ respond "*" ":midas;77\r"
respond "MIDAS.77" "MIDAS; TS 73_MIDAS; MIDAS 73\r"
respond "*" ":midas;73\r"
respond "MIDAS.73" "MIDAS; TS 73_MIDAS; MIDAS 73\r"
respond "*" ":xfile midas; patch 73\r"
expect ":kill"
# MACTAP
respond "*" ":midas;324 sysbin;_sysen2; mactap\r"

26
src/midas/patch.73 Normal file
View File

@ -0,0 +1,26 @@
:job midas
:load midas;ts 73
:Get first command from JCL (based on JCLINI)
cmd+3/pushj p,patch
patch/setzb ff,cmptr
patch+1/.suset patch+20
patch+2/tlnn a,%opcmd
patch+3/popj p,
patch+4/setom cmbuf+50-1
patch+5/.break 12,patch+21
patch+6/.break 12,patch+22
patch+7/skipn cmbuf
patch+10/popj p,
patch+11/move a,patch+23
patch+12/movem a,cmptr
patch+13/ildb tt,a
patch+14/caie tt,15
patch+15/jrst .-2
patch+16/idpb ff,a
patch+17/popj p,
patch+20/.roptio,,a
patch+21/..rjcl,,cmbuf
patch+22/..sjcl,,
patch+23/10700,,cmbuf-1
:pdump midas;ts 73
:kill