.;.Module ALLDEV,04, .; .; This command script is used to assemble and link .; any combination of the nine (9) variants of KED. .; .; Ked K52 K62 Unmapped RT-11 .; Kex K5x K6x Mapped RT-11 .; Ker K5r K6r RSTS .; .; .;Editor Build Options and Object Module Requirements .;------ ----- ------- --- ------ ------ ------------ .; .; The object modules required, for a particular variant .; of the editor, are based upon the following conditionals: .; .; VT10$0 Default terminal type .; VT52$ VT52 terminal type .; VT62$ VT62 terminal type .; .; Virt$ Mapped / UnMapped variation .; .; Rsts$ RSTS version .; .; .;(1) Modules assembled for a VT100 Terminal will not have .; 52, 62, 5x, 6x, 5r, or 6r in the object module name. .; .;(2) Modules assembled as a non VT100 terminal will have .; 52, 5x, or 5r in the object module name. (This includes .; VT52 terminals and VT62 terminals if there is no .; specific VT62 variation required for this module.) .; .;(3) Modules assembled as a VT62 terminal will have .; 62, 6x, 6r in the object module name. .; .;(4) Modules assembled with the Virt$ variation will .; have Kex, 5x, or 6x in the object module name. .; .;(5) Modules assembled with the RSTS$ variation will .; have Ker, 5r, or 6r in the object module name. .; .; .; The following table defines all the object .; modules required for any editor variation. .; .;Base Ked K52 K62 Kex K5x K6x Ker K5r K6r .;---- --- --- --- --- --- --- --- --- --- .;Low KexLow KexLow KexLow .;Mac KedMac KedMac KedMac KedMac KedMac KedMac KedMac KedMac KedMac .;Id KedId K52Id K62Id KexId K5xId K6xId KeRId K5RId K6RId .;Def KedDef KedDef KedDef KedDef KedDef KedDef KeRDef KeRDef KeRDef .;Cm1 KedCm1 K52Cm1 K52Cm1 KexCm1 K5xCm1 K5xCm1 KedCm1 K52Cm1 K52Cm1 .;Cm2 KedCm2 KedCm2 KedCm2 KexCm2 KexCm2 KexCm2 KedCm2 KedCm2 KedCm2 .;Cm3 KedCm3 K52Cm3 K62Cm3 KexCm3 K5xCm3 K6xCm3 KedCm3 K52Cm3 K62Cm3 .;Cm4 KedCm4 K52Cm4 K52Cm4 KexCm4 K5xCm4 K5xCm4 KedCm4 K52Cm4 K52Cm4 .;Cm5 KedCm5 KedCm5 KedCm5 KexCm5 KexCm5 KexCm5 KedCm5 KedCm5 KedCm5 .;Cm6 KedCm6 KedCm6 KedCm6 KexCm6 KexCm6 KexCm6 KedCm6 KedCm6 KedCm6 .;Cm7 KedCm7 K52Cm7 K62Cm7 KedCm7 K52Cm7 K62Cm7 KedCm7 K52Cm7 K62Cm7 .;Cm8 KedCm8 K52Cm8 K52Cm8 KedCm8 K52Cm8 K52Cm8 KedCm8 K52Cm8 K52Cm8 .;IO1 KedIO1 K52IO1 K62IO1 KexIO1 K5xIO1 K6xIO1 KeRIO1 K5RIO1 K6RIO1 .;IO2 KedIO2 K52IO2 K62IO2 KexIO2 K5xIO2 K6xIO2 KeRIO2 K5RIO2 K6RIO2 .;IO3 KedIO3 K52IO3 K62IO3 KexIO3 K5xIO3 K6xIO3 KeRIO3 K5RIO3 K6RIO3 .;IO4 KedIO4 K52IO4 K62IO4 KexIO4 K5xIO4 K6xIO4 KeRIO4 K5RIO4 K6RIO4 .;Sc1 KedSc1 KedSc1 KedSc1 KedSc1 KedSc1 KedSc1 KedSc1 KedSc1 KedSc1 .;Sc2 KedSc2 KedSc2 KedSc2 KedSc2 KedSc2 KedSc2 KedSc2 KedSc2 KedSc2 .;VWt KedVWt K52VWt K62VWt KedVWt K52VWt K62VWt KedVWt K52VWt K62VWt .;Err KedErr KedErr KedErr KedErr KedErr KedErr KerErr KerErr KerErr .;Erl KedErl KedErl KedErl KedErl KedErl KedErl KedErl KedErl KedErl .;Hlp KedHlp KedHlp KedHlp KedHlp KedHlp KedHlp KerHlp KerHlp KerHlp .;Hpl KedHpl KedHpl KedHpl KedHpl KedHpl KedHpl KedHpl KedHpl KedHpl .;Hl1 KedHl1 K52Hl1 K62Hl1 KedHl1 K52Hl1 K62Hl1 KedHl1 K52Hl1 K62Hl1 .;Hl2 KedHl2 K52Hl2 K62Hl2 KedHl2 K52Hl2 K62Hl2 KedHl2 K52Hl2 K62Hl2 .;Hl3 KedHl3 K52Hl3 K62Hl3 KedHl3 K52Hl3 K62Hl3 KedHl3 K52Hl3 K62Hl3 .;Hl4 KedHl4 K52Hl4 K62Hl4 KedHl4 K52Hl4 K62Hl4 KedHl4 K52Hl4 K62Hl4 .;Hl5 KedHl5 K52Hl5 K62Hl5 KedHl5 K52Hl5 K62Hl5 KedHl5 K52Hl5 K62Hl5 .;Hl6 KedHl6 K52Hl6 K62Hl6 KedHl6 K52Hl6 K62Hl6 KedHl6 K52Hl6 K62Hl6 .; Assign Src: Src: Assign Bin: Bin: Assign Obj: Obj: Assign Lst: Lst: Assign Map: Map: .; .SetL DoLog .;force no logging .; .SetL DoLog .;force logging .Enable Substitution,TimeOut,Global .Disable Lowercase .SetS Models "MAC CPR ERR HLP ID DEF LOW ALL LNK " .SetS Models Models+"CM1 CM2 CM3 CM4 CM5 CM6 CM7 CM8 " .SetS Models Models+"VWT SC1 SC2 IO1 IO2 IO3 IO4 " .SetS Models Models+"ERL HPL HL1 HL2 HL3 HL4 HL5 HL6" .SetS Modelx Models .Ini001: .Parse Modelx " " Model Modelx .If Model = "" .GoTo Start .SetL Do'Model' .GoTo Ini001 .Match1: .SetL Define .If Arg = "KED'Model'" .SetL Define .If Arg = "'Model'" .SetL Define .IfT Define .SetL Do'Model' .Return .Match: .SetS Modelx Models .Mat001: .Parse Modelx " " Model Modelx .If Model = "" .GoTo Mat002 .GoSub Match1 .IfT Define .Return .GoTo Mat001 .Mat002: .IfF Define ;?ALLDEV-E-"'Arg'" is unknown .Return .; .;Subroutine to Create and Execute a Command File .; .$Mac: .Sets M$ "Obj:"+Mout+",Lst:"+Mout+"/C/N:BEX:CND="+Minp .Open KedTmp.com .Data R Macro .Data 'M$' .Data ^C .Close $@KedTmp.com .IfF DoLog .GoTo $MacE @Src:LogErr 'Mout' .$MacE: .Return .; .Start: .SetN $Error 0 .SetS Input Comman .Parse Input " " Arg Input .; trash file name .If Input = "" .AskS [::"ALL LNK":20.s] Input What modules are new .Sta001: .Parse Input " " Arg Input .If Arg = "" .GoTo Proces .GoSub Match .GoTo Sta001 .; .Proces: .IfNDF $DoKED .SetL $DoKED .IfNDF $DoK52 .SetL $DoK52 .IfNDF $DoK62 .SetL $DoK62 .IfNDF $DoKEX .SetL $DoKEX .IfNDF $DoK5X .SetL $DoK5X .IfNDF $DoK6X .SetL $DoK6X .IfNDF $DoKER .SetL $DoKER .IfNDF $DoK5R .SetL $DoK5R .IfNDF $DoK6R .SetL $DoK6R .IfDF $Varnt .GoTo Pro001 .SetL $DoKED .SetL $DoK52 .SetL $DoK62 .SetL $DoKEX .SetL $DoK5X .SetL $DoK6X .SetL $DoKER .SetL $DoK5R .SetL $DoK6R .Pro001: .SetS $File "Lst:KEDBld.Log" .IfF DoLog .GoTo 10$ .Open '$File' .Data BEGIN '' '