-
Notifications
You must be signed in to change notification settings - Fork 0
/
k11idm.com
107 lines (104 loc) · 2.33 KB
/
k11idm.com
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
$
$ ! DCL command file to build K11IDM.TSK (I/D space, RSX11M+)
$ ! RSTS/E 9.0
$ ! 19-Feb-87 12:49:11
$
$ set noon
$ syslib = f$search("syslib.olb")
$ if syslib .nes. "" then goto fiexits
$ cop/rep/nolog lb:[1,200]syslib.p30 sy:syslib.olb
$ cop/rep/nolog lb:[1,200]rmsres.stb sy:
$ cop/rep/nolog lb:[1,200]rmsres.tsk sy:
$ cop/rep/nolog lb:[1,200]vmlib.olb sy:
$ cop/rep/nolog lb:[1,200]rmsrlx.odl sy:
$ cop/rep/nolog lb:[1,200]rmsm30.olb sy:rmslib.olb
$ ass sy: ob
$ ass sy: lb
$ ass dv0: ov
$ run [1,2]oldtkb
k11idm/id/mm/cp/pr:0,k11idm/-wi=k11idm/mp
reslib = lb:rmsres/ro
;clstr=rmsres,dapres:ro
units=10
asg=sy:6:7:8:9:10
gbldef=lncnt$:12
gbldef=maxsiz:1000
gbldef=t.v131:30
gbldef=t.v132:31
gbldef=t.v2xx:36
gbldef=t.bmp1:35
gbldef=tiunit:0
gbldef=tc.pth:146
gbldef=dapsup:0
gbldef=$hbufs:10
;
; To change the maximum text record buffer size (only do this on I/D)
;
; GBLDEF=MAXSIZ:nnnn
;
;
; To change the dialer timeout value:
; GBLPAT=K11DIA:..DIAT:45
;
; If you want to avoid the M+ v3/MicroRsx v3 Kermit logical name translation
; for KERMIT$LINEn , then include the following:
; GBLPAT=K11PAK:DO$TRA:0
;
; else:
; GBLPAT=K11PAK:DO$TRA:1 ; the default
;
; If you want to reduce the message printing (as in SET QUIET)
; then:
; GBLPAT=K11PAK:DO$MSG:0
; else
; GBLPAT=K11PAK:DO$MSG:1 ; the default
;
; If you want logfiles to be appended to instead of created each time
; then:
; GBLPAT=K11PAK:DO$APP:1
; else:
; GBLPAT=K11PAK:DO$APP:0 ; the default
;
; If, for whatever reason, you don't want version number printed at
; program startup,
; then:
; GBLPAT=K11PAK:DO$VER:0
;
;
; If you want kermit to NOT exit at end of file from the invocation
; as in: ker @dial
; (which is can set in the com file via SET EOF NOEXIT)
; then:
; GBLPAT=K11PAK:DO$EXI:0
;
; If you want to force SET RSX CON ALT,
; then:
; GBLPAT=K11PAK:DO$ALT:1
;
;
; If you want to force the use of PRO/COMM (DTE) for P/OS instead
; of the internal connect code, then:
;
; GBLPAT=K11PAK:DO$DTE:1
;
; to use the default of the internal code (in case K11M41.MAC has been
; altered)
;
; GBLPAT=K11PAK:DO$DTE:0
;
;
; since we use our own stack area we really don't need much
; at task build time
stack=64
//
$ del syslib.olb
$ del vmlib.olb
$ del rmsres.stb
$ del rmsres.tsk
$ del rmsrlx.odl
$ del rmslib.olb
$ tell brian k11idm tkb done
$ exit
$fiexits:
$ write 0 "Syslib.olb exists already, job aborted"
$ exit