X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=blobdiff_plain;f=mim%2Fmim%2Fmimlib%2Fjcl.msubr;fp=mim%2Fmim%2Fmimlib%2Fjcl.msubr;h=e97dc976483be7ed75e4e7d379871339b5fd5212;hp=0000000000000000000000000000000000000000;hb=d73ace3f3292e320b461b8fcd2e9f5dc5d9684d7;hpb=d530283ea60fb0ddcc28e9c5bd072456afe06e07

diff --git a/mim/mim/mimlib/jcl.msubr b/mim/mim/mimlib/jcl.msubr
new file mode 100644
index 0000000..e97dc97
--- /dev/null
+++ b/mim/mim/mimlib/jcl.msubr
@@ -0,0 +1,15 @@
+<PACKAGE "JCL">
+<ENTRY JCLARGS? READARGS>
+
+<SETG hndlr-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 HNDLR #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 GETJCL #MSUBR [hndlr-IMSUBR GETJCL ("VALUE" ANY) 40]>
+<SETG JCLARGS? #MSUBR [hndlr-IMSUBR JCLARGS? ("VALUE" <OR ATOM !<FALSE!>>) 
+236]>
+<SETG READARGS #MSUBR [hndlr-IMSUBR READARGS ("VALUE" <OR FALSE <VECTOR [REST
+STRING]>>) 340]>
+<ENDPACKAGE>