Machine-Independent MDL for TOPS-20 and VAX.

[pdp10-muddle.git] / mim / mim / mimlib / jcl.msubr

diff --git a/mim/mim/mimlib/jcl.msubr b/mim/mim/mimlib/jcl.msubr
new file mode 100644 (file)
index 0000000..e97dc97
--- /dev/null
+++ b/mim/mim/mimlib/jcl.msubr
@@ -0,0 +1,15 @@
+<PACKAGE "JCL">
+<ENTRY JCLARGS? READARGS>
+
+<SETG \1ahndlr-IMSUBR #IMSUBR [|AAAADMCKFZA`H`H`HIDHAECOFYABBYCOFYAAFUBMHMAAAQBMHMAAAUDQABBADMAAA]COFYAAF[COHYAAFOAAAABMH]AAAAACCHCCE_CCE_CCE_BMH[H`HUCCE_CKFZA`H`H`HIDHAECOFYABBYBADMAAAUBCCQBOAJDHAWBCARBCDJAAAECKCBDHAMBADMAABEBAAYBACQCOHYAAFOBPB]AAAAAAAMDQABCOFYAAGMFQD]ABCBDHDOBLCIAAAEBKEABLCIAAAMBLCAAAAICKFZA`H`H`HIDHAECOFYABBYCKCVDPB]BADNAAAEBAAVCOFYAAFUBMGQBMHIAAAEBMHMAABIBMHMAABMBLCIAAAUBLCAAAAQDQACBADMAABUCOFYAAF[BCDNAAAUBCEABDCIAAAECTCVCQFNAAAEDAFUBADMAABEBAHNAAAIBAFNAAAMBADNAAAMBABNAAAICOHYAAFOAAAACKFZA`H`H`HIDHAECOFYABBYBMH]AAAAAICCBMH]AAAAABAYBMGNBMHNH`H]DMAEBNCNH`H]CLGWDQAADAAAH`ASFQD]ABCBDHA[COFYAAFUBMGABMGIDQABBADMAAB]COFYAAF[FRH]AAAAAAACDMAOBQD]AAAABAB]AAAAABCBCOHYAAFOBADMAABMBABMAABICOHYAAFOAAAACKFZA`H`H`HIDHAECOFYABBYBMH[H`EYBMH]AAAAABD_BMGNBMHNH`H]DMAEBNCNH`H]CLGWDQAADAAAH_FMFQD]ABCBDHBCBOAACCCHCICHF_F]AAAAAAABDOAMBQD]AAAABAB[H`FGCOHYAAFOGQF]H`H`AAAACQEICOHYAAFOAAAAAAAA| hndlr-IMSUBR SAVED-JCL GUNASSIGN %<GBIND 
+SAVED-JCL T>  T I$STD-STRING!-INTERNAL LENGTH ]>
+<SETG \1aHNDLR #MSUBR [hndlr-IMSUBR HNDLR ("VALUE" ATOM ANY) 0]>
+<COND (<AND <NOT <GASSIGNED? JCL-HANDLER>> <GASSIGNED? HNDLR> <LOOKUP
+"INTERRUPT" <ROOT>> <GASSIGNED? <LOOKUP "INTERRUPT" <ROOT>>> <==? <TYPEPRIM FIX
+> FIX>> <ON <SETG JCL-HANDLER <HANDLER "SAVE" ,HNDLR>>>)>
+<SETG \1aGETJCL #MSUBR [hndlr-IMSUBR GETJCL ("VALUE" ANY) 40]>
+<SETG \1aJCLARGS? #MSUBR [hndlr-IMSUBR JCLARGS? ("VALUE" <OR ATOM !<FALSE!>>) 
+236]>
+<SETG \1aREADARGS #MSUBR [hndlr-IMSUBR READARGS ("VALUE" <OR FALSE <VECTOR [REST
+STRING]>>) 340]>
+<ENDPACKAGE>