On 2/24/2013 11:44 AM, Dave McGuire wrote:
On 02/24/2013 08:28 AM, Brian Hechinger wrote:
I'll be shipping a Cisco 1841 to Ian who will host it for us in his
multi-gig datacenter. :)
Sweet! Does that have the balls to do all that
encapsulation/decapsulation?
It can do 75,000 PPS (without ACLs) but I'm not sure how GRE will impact
that. It has a 250Mhz MIPS R5000 CPU.
Hmm, not too shabby.
Not at all. The 2851 can do 220,000 PPS. But that will be staying at my house. :)
How about encryption? (I just got a hardware encryption module for my
7200 =))
1 Virtual Private Network (VPN) Module
:)
SWEET! Let's do this.
This is at home on the 2851:
2 Virtual Private Network (VPN) Modules
:)
So what's the plan? Use IPsec in place of GRE if both ends have hardware crypto engines?
I've already figured out how I'm going to code that, so we just need to come up with a config set for it.
-brian
Just in case it may be helpful for someone using xterm, I put together
some well known keyboard translations below. The keypad is such
that it will work with EDT; the PLUS key will then be DEL C.
F9-12 may be used on a laptop and NOTES, and they as below they
correspond to SELECT, NEXT UNSEEN, BACK TOPIC, and NEXT TOPIC:
xterm -sl 1000 -fn 7x14 -g 132x48 -xrm \
'XTerm*vt100.translations: #override \n\
<Key>F9: string(0x1b) string("Ow") \n\
<Key>F10: string(0x1b) string("Ol") \n\
<Key>F11: string(0x1b) string("Ou") \n\
<Key>F12: string(0x1b) string("Or") \n\
<Key>BackSpace: string(0x7f) \n\
<Key>Num_Lock: string(0x1b) string("OP") \n\
<Key>KP_Divide: string(0x1b) string("OQ") \n\
<Key>KP_Multiply: string(0x1b) string("OR") \n\
<Key>KP_Subtract: string(0x1b) string("OS") \n\
<Key>KP_Add: string(0x1b) string("Ol") \n\
<Key>KP_Enter: string(0x1b) string("OM") \n\
<Key>KP_Decimal: string(0x1b) string("On") \n\
<Key>KP_0: string(0x1b) string("Op") \n\
<Key>KP_1: string(0x1b) string("Oq") \n\
<Key>KP_2: string(0x1b) string("Or") \n\
<Key>KP_3: string(0x1b) string("Os") \n\
<Key>KP_4: string(0x1b) string("Ot") \n\
<Key>KP_5: string(0x1b) string("Ou") \n\
<Key>KP_6: string(0x1b) string("Ov") \n\
<Key>KP_7: string(0x1b) string("Ow") \n\
<Key>KP_8: string(0x1b) string("Ox") \n\
<Key>KP_9: string(0x1b) string("Oy")' \
-e telnet <host>
On Sun, Feb 24, 2013 at 02:12:05PM -0500, Steve Davidson wrote:
Good question! I just tried my PC keyboard from a PuTTY terminal. Some
of the functions map, others do not. It looks like it will depend on
what you are working with.
-Steve
-----Original Message-----
From: owner-hecnet at Update.UU.SE
[mailto:owner-hecnet at Update.UU.SE] On Behalf Of Erik Olofsen
Sent: Sunday, February 24, 2013 13:49
To: hecnet at Update.UU.SE
Subject: Re: [HECnet] NOTES system?
Related to using NOTES, before doing the discussion on NOTES,
for using the keypad, how do the present HECnet users use the
DEC keypad on non-DEC equipment?
Erik
There's also PAKGEN of course, and I've pre-generated a bunch of PAKs that run most stuff (it doesn't do licenses which have the TOKEN field though).
http://retrotron.sampsa.com/pliks/ (PLIKS.COM is the ready built PAK for most licenses)
Zipped version can be found at http://retrotron.sampsa.com/pliks.zip
sampsa <sampsa at mac.com>
mobile +961 788 10537
On 25 Feb 2013, at 01:07, Peter Lothberg <roll at Stupi.SE> wrote:
I got tired of the licence management... Anyone to update it to mordern versions?
.title liza - disable or enable license checking in VMS.
;
; Author: Me.
; Date : Late night.
; Year : Happy New.
; City : A big place with many houses.
;
; This utility disables or enables license checking on the running system by
; patching the routine EXE$GRANT_LICENSE in system space. The patch
; applied simply moves SS$_NORMAL to R0 and then returns. If license
; checking is to enabled, the original contents is restored (CHMK #^X5B).
; NOTE! there seems to have been a change between 5.2 and 5.3, in 5.3
; the service number seems to be 5B for grant_license, and 5C for
; release_license. Under 5.2 however, release_license have 5B, wonder what
; grant_license have?
;
; 22-JUN-1992 Under V 5.5, exe$grant_license have number ^X64 !!
;
; When this is run, all system integrated products (SIP's) can be
; used immedeately. Layered products have to be installed first,
; but will then run properly.
;
; Abstract:
;
; Nothing special. We create a double mapping to the physical memory
; that contains the routine (since the original mapping is write-protected!).
; We give our mapping U:W - protection, then it's only to copy our patch
; there.
;
; Privileges needed to run: all
;
;
; Assemble:
;
; $MAC LIZA
;
; Link:
;
; $LINK LIZA,SYS$SYSTEM:SYS.STB/SELEC
;
$psldef
$prtdef
syspag: .blkl 1
.blkl 1
syspfn: .blkl 1
retadr: .blkl 1
.blkl 1
sysver: .long sys$k_version
cr=13
lf=10
vermsg1:
.ascid <cr><lf>/System version mismatch - was not linked under this version of VMS
./
vermsg2:
.ascid <cr><lf>/ Please relink:/<cr><lf><lf>
vermsg3:
.ascid " $LINK LIZA,SYS$SYSTEM:SYS.STB/SELECTIVE"<cr><lf><lf>
dismsg: .ascid /%LMC-S-DISB, License checking successfully disabled./
enamsg: .ascid /%LMC-F-ENAB, License checking fatally enabled./
chkena: .ascid /%LMC-I-ENAB, License checking is currently enabled/
chkdis: .ascid /%LMC-I-DISB, License checking is currently disabled/
alr_ena:
.ascid /%LMC-I-ENAB, License checking is already enabled/
alr_dis:
.ascid /%LMC-I-DISB, License checking is already disabled/
disflg: .blkb 1
chkflg: .blkb 1
enaqual:
.ascid /ENABLE/
chkqual:
.ascid /CHECK/
silqual:
.ascid /SILENT/
silflg: .blkb 1
.entry liza ^m<>
;
; Check current system version against the one we were linked under.
;
cmpl g^sys$gl_version,sysver
beql 5$
brw vermismatch
5$:
movb #0,silflg ; assume nosilent
pushaq silqual
calls #1,g^cli$present
blbc r0,6$ ; nosilent ok
movb #1,silflg ; should be silent
6$:
movb #1,disflg ; assume disable operation
pushaq enaqual
calls #1,g^cli$present ; is enable qualifier present?
blbc r0,7$ ; nope
movb #0,disflg ; wants to enable
7$:
movb #0,chkflg ; assume not only check
pushaq chkqual
calls #1,g^cli$present
blbc r0,9$
brw check_only
9$:
cmpc3 #dis_license_pat_len,- ; check if checking is disabled
exe$grant_license+2,-
dis_license_pat
beql is_disabled
;
; License checking is enabled. What to do?
;
tstb disflg
bneq do_it
tstb silflg
bneq 10$
pushaq alr_ena
calls #1,g^lib$put_output
10$:
ret
is_disabled:
tstb disflg
beql do_it
tstb silflg
bneq 10$
pushaq alr_dis
calls #1,g^lib$put_output
10$:
ret
do_it:
movl #exe$grant_license,syspag
movl #exe$grant_license,syspag+4
addl2 #2,syspag ; entry point is 2 bytes
addl2 #2,syspag+4
movl @syspag,r0 ; fault the page into phys mem
pushal syspfn
pushal syspag
calls #2,getpfn ; get pfn for page
blbs r0,10$
brw faulterr
10$:
$crmpsc_s inadr=syspag,-
retadr=retadr,-
acmode=#psl$c_user,-
flags=#sec$m_expreg!sec$m_pfnmap!sec$m_wrt,-
vbn=syspfn
blbs r0,20$
brw maperr
20$:
bicl3 #^xFFFFFE00,syspag,r6
addl2 r6,retadr+4
tstb disflg ;disable ?
beql 30$ ; nope, enable
movc3 #dis_license_pat_len,dis_license_pat, at retadr+4
tstb silflg
bneq 50$
pushaq dismsg
brb 40$
30$:
movc3 #ena_license_pat_len,ena_license_pat, at retadr+4
tstb silflg
bneq 50$
pushaq enamsg
40$:
calls #1,g^lib$put_output
50$:
$deltva_s inadr=@retadr+4
ret
dis_license_pat:
movzwl #ss$_normal,r0
ret
dis_license_pat_len=.-dis_license_pat
ena_license_pat:
chmk #^X5B
ret
ena_license_pat_len=.-ena_license_pat
faulterr:
maperr:
ret
check_only:
cmpc3 #dis_license_pat_len,- ; check if checking is disabled
exe$grant_license+2,-
dis_license_pat
beql 10$
; is enabled
pushaq chkena
calls #1,g^lib$put_output
ret
10$: ; is disabled
pushaq chkdis
calls #1,g^lib$put_output
ret
vermismatch:
;
;Tell loser s/he better relink. It was linked under another version of VMS
; than the currently running one!
;
pushaq vermsg1
calls #1,g^lib$put_output
pushaq vermsg2
calls #1,g^lib$put_output
pushaq vermsg3
calls #1,g^lib$put_output
ret
.subtitle getpfn - return PFN for a given virtual address
;
; inputs - 4(ap) virtual address for which PFN is sought
;outputs - 8(ap) PFN for the page containing 4(ap)
;
; Currently handles only addresses in system virtual space. Other
; addresses returns ebbob.
;
.library /sys$share:lib/
pfn_notinphys=^x00000200
$phddef
.entry getpfn ^m<r2,r3,r4,r5,r6>
movl @4(ap),r6
cmpl r6,#^x80000000 ; system or process mapping ?
blssu process_address
brw s_address
;----------------------------------------------------------------------
process_address:
cmpl r6,#^x40000000 ; p0 or p1 map ?
blssu p0_address
brb p1_address
p0_address:
p1_address:
movzwl #ss$_badparam,r0
ret
;----------------------------------------------------------------------
s_address:
cmpl r6,#^xc0000000
blssu sys_or_gbl
brb io_address
sys_or_gbl: ; ok we have an address with either
; system PTE or global PTE (or invalid)
movl g^mmg$gl_sptbase,r4
movl g^mmg$gl_gpte,r5
subl3 r4,r5,r3 ; get size of system page-table
divl2 #4,r3 ; in longwords -> # of pages in sys
mull3 r3,#512,r2 ; # of bytes in system space
addl2 #^x80000000,r2 ; hi address of system space
cmpl r6,r2
blssu system_address
global_address:
movzwl #ss$_badparam,r0
ret
system_address:
subl2 #^x80000000,r6
ashl #-9,r6,r6 ; calculate VPN as byte offset
ashl #2,r6,r6
addl3 r4,r6,ptaddr
$cmkrnl_s fetch_pte
blbc r0,slut
bitl #^x80000000,pte
beql notinphys
extzv #0,#21,pte, at 8(ap)
brb slut
notinphys:
movzwl #pfn_notinphys,r0
slut:
ret
io_address:
movzwl #ss$_badparam,r0
ret
.psect kernel_code,page
ptaddr: .blkl 1
pte: .blkl 1
.entry fetch_pte ^m<>
moval anti_crash,(fp)
movl @ptaddr,pte
movl #ss$_normal,r0
ret
.entry anti_crash ^m<r2>
movl 4(ap),r2
$exit_s 4(r2)
ret
.end liza
I got tired of the licence management... Anyone to update it to mordern versions?
.title liza - disable or enable license checking in VMS.
;
; Author: Me.
; Date : Late night.
; Year : Happy New.
; City : A big place with many houses.
;
; This utility disables or enables license checking on the running system by
; patching the routine EXE$GRANT_LICENSE in system space. The patch
; applied simply moves SS$_NORMAL to R0 and then returns. If license
; checking is to enabled, the original contents is restored (CHMK #^X5B).
; NOTE! there seems to have been a change between 5.2 and 5.3, in 5.3
; the service number seems to be 5B for grant_license, and 5C for
; release_license. Under 5.2 however, release_license have 5B, wonder what
; grant_license have?
;
; 22-JUN-1992 Under V 5.5, exe$grant_license have number ^X64 !!
;
; When this is run, all system integrated products (SIP's) can be
; used immedeately. Layered products have to be installed first,
; but will then run properly.
;
; Abstract:
;
; Nothing special. We create a double mapping to the physical memory
; that contains the routine (since the original mapping is write-protected!).
; We give our mapping U:W - protection, then it's only to copy our patch
; there.
;
; Privileges needed to run: all
;
;
; Assemble:
;
; $MAC LIZA
;
; Link:
;
; $LINK LIZA,SYS$SYSTEM:SYS.STB/SELEC
;
$psldef
$prtdef
syspag: .blkl 1
.blkl 1
syspfn: .blkl 1
retadr: .blkl 1
.blkl 1
sysver: .long sys$k_version
cr=13
lf=10
vermsg1:
.ascid <cr><lf>/System version mismatch - was not linked under this version of VMS
./
vermsg2:
.ascid <cr><lf>/ Please relink:/<cr><lf><lf>
vermsg3:
.ascid " $LINK LIZA,SYS$SYSTEM:SYS.STB/SELECTIVE"<cr><lf><lf>
dismsg: .ascid /%LMC-S-DISB, License checking successfully disabled./
enamsg: .ascid /%LMC-F-ENAB, License checking fatally enabled./
chkena: .ascid /%LMC-I-ENAB, License checking is currently enabled/
chkdis: .ascid /%LMC-I-DISB, License checking is currently disabled/
alr_ena:
.ascid /%LMC-I-ENAB, License checking is already enabled/
alr_dis:
.ascid /%LMC-I-DISB, License checking is already disabled/
disflg: .blkb 1
chkflg: .blkb 1
enaqual:
.ascid /ENABLE/
chkqual:
.ascid /CHECK/
silqual:
.ascid /SILENT/
silflg: .blkb 1
.entry liza ^m<>
;
; Check current system version against the one we were linked under.
;
cmpl g^sys$gl_version,sysver
beql 5$
brw vermismatch
5$:
movb #0,silflg ; assume nosilent
pushaq silqual
calls #1,g^cli$present
blbc r0,6$ ; nosilent ok
movb #1,silflg ; should be silent
6$:
movb #1,disflg ; assume disable operation
pushaq enaqual
calls #1,g^cli$present ; is enable qualifier present?
blbc r0,7$ ; nope
movb #0,disflg ; wants to enable
7$:
movb #0,chkflg ; assume not only check
pushaq chkqual
calls #1,g^cli$present
blbc r0,9$
brw check_only
9$:
cmpc3 #dis_license_pat_len,- ; check if checking is disabled
exe$grant_license+2,-
dis_license_pat
beql is_disabled
;
; License checking is enabled. What to do?
;
tstb disflg
bneq do_it
tstb silflg
bneq 10$
pushaq alr_ena
calls #1,g^lib$put_output
10$:
ret
is_disabled:
tstb disflg
beql do_it
tstb silflg
bneq 10$
pushaq alr_dis
calls #1,g^lib$put_output
10$:
ret
do_it:
movl #exe$grant_license,syspag
movl #exe$grant_license,syspag+4
addl2 #2,syspag ; entry point is 2 bytes
addl2 #2,syspag+4
movl @syspag,r0 ; fault the page into phys mem
pushal syspfn
pushal syspag
calls #2,getpfn ; get pfn for page
blbs r0,10$
brw faulterr
10$:
$crmpsc_s inadr=syspag,-
retadr=retadr,-
acmode=#psl$c_user,-
flags=#sec$m_expreg!sec$m_pfnmap!sec$m_wrt,-
vbn=syspfn
blbs r0,20$
brw maperr
20$:
bicl3 #^xFFFFFE00,syspag,r6
addl2 r6,retadr+4
tstb disflg ;disable ?
beql 30$ ; nope, enable
movc3 #dis_license_pat_len,dis_license_pat, at retadr+4
tstb silflg
bneq 50$
pushaq dismsg
brb 40$
30$:
movc3 #ena_license_pat_len,ena_license_pat, at retadr+4
tstb silflg
bneq 50$
pushaq enamsg
40$:
calls #1,g^lib$put_output
50$:
$deltva_s inadr=@retadr+4
ret
dis_license_pat:
movzwl #ss$_normal,r0
ret
dis_license_pat_len=.-dis_license_pat
ena_license_pat:
chmk #^X5B
ret
ena_license_pat_len=.-ena_license_pat
faulterr:
maperr:
ret
check_only:
cmpc3 #dis_license_pat_len,- ; check if checking is disabled
exe$grant_license+2,-
dis_license_pat
beql 10$
; is enabled
pushaq chkena
calls #1,g^lib$put_output
ret
10$: ; is disabled
pushaq chkdis
calls #1,g^lib$put_output
ret
vermismatch:
;
;Tell loser s/he better relink. It was linked under another version of VMS
; than the currently running one!
;
pushaq vermsg1
calls #1,g^lib$put_output
pushaq vermsg2
calls #1,g^lib$put_output
pushaq vermsg3
calls #1,g^lib$put_output
ret
.subtitle getpfn - return PFN for a given virtual address
;
; inputs - 4(ap) virtual address for which PFN is sought
;outputs - 8(ap) PFN for the page containing 4(ap)
;
; Currently handles only addresses in system virtual space. Other
; addresses returns ebbob.
;
.library /sys$share:lib/
pfn_notinphys=^x00000200
$phddef
.entry getpfn ^m<r2,r3,r4,r5,r6>
movl @4(ap),r6
cmpl r6,#^x80000000 ; system or process mapping ?
blssu process_address
brw s_address
;----------------------------------------------------------------------
process_address:
cmpl r6,#^x40000000 ; p0 or p1 map ?
blssu p0_address
brb p1_address
p0_address:
p1_address:
movzwl #ss$_badparam,r0
ret
;----------------------------------------------------------------------
s_address:
cmpl r6,#^xc0000000
blssu sys_or_gbl
brb io_address
sys_or_gbl: ; ok we have an address with either
; system PTE or global PTE (or invalid)
movl g^mmg$gl_sptbase,r4
movl g^mmg$gl_gpte,r5
subl3 r4,r5,r3 ; get size of system page-table
divl2 #4,r3 ; in longwords -> # of pages in sys
mull3 r3,#512,r2 ; # of bytes in system space
addl2 #^x80000000,r2 ; hi address of system space
cmpl r6,r2
blssu system_address
global_address:
movzwl #ss$_badparam,r0
ret
system_address:
subl2 #^x80000000,r6
ashl #-9,r6,r6 ; calculate VPN as byte offset
ashl #2,r6,r6
addl3 r4,r6,ptaddr
$cmkrnl_s fetch_pte
blbc r0,slut
bitl #^x80000000,pte
beql notinphys
extzv #0,#21,pte, at 8(ap)
brb slut
notinphys:
movzwl #pfn_notinphys,r0
slut:
ret
io_address:
movzwl #ss$_badparam,r0
ret
.psect kernel_code,page
ptaddr: .blkl 1
pte: .blkl 1
.entry fetch_pte ^m<>
moval anti_crash,(fp)
movl @ptaddr,pte
movl #ss$_normal,r0
ret
.entry anti_crash ^m<r2>
movl 4(ap),r2
$exit_s 4(r2)
ret
.end liza
El 24/02/2013, a les 23:49, Mark Wickens <mark at wickensonline.co.uk> va escriure:
I'd be really interested in knowning how to setup MR as an SMTP gateway for ALLIN1 - I tried this a while back with no success whatsoever. I didn't even think the licensing allowed it.
I simply followed the instructions in the Multinet install guide, which are very detailed. As for the licenses, I "inherited" the licenses my company used 20 years ago, at the same time I got the machines. I had to torture some of my colleagues to make them search in semi-forgoten file cabinets for the PAKs, but at the end I got them ;)
Jordi Guillaumes i Pons
jg at jordi.guillaumes.name
HECnet: BITXOV::JGUILLAUMES
On 24/02/2013 16:59, Jordi Guillaumes i Pons wrote:
Answering myself,
MULTINET comes with a nice MR to SMTP gateway. Now I can address the internet from Allin as adress at in.the.internetz@SMTP and can address ALLIN1 from internet as jguillaumes at a1.jguillaumes.dyndns.org.
Firstly, nice to see other people who are at least on a par with me
madness wise (Sampsa has been my benchmark of sanity [or lack of it] for
a while)
I'd be really interested in knowning how to setup MR as an SMTP gateway
for ALLIN1 - I tried this a while back with no success whatsoever. I
didn't even think the licensing allowed it.
Regards, Mark.
Once upon a time when we where using DECnet we also did SMTP over DECnet,
PMDF supports this, Tops10 and Tops20. (Anyone who wanna do mail on T10, bug me
I have stuff for you...)
-P
On 24/02/2013 16:59, Jordi Guillaumes i Pons wrote:
Answering myself,
MULTINET comes with a nice MR to SMTP gateway. Now I can address the internet from Allin as adress at in.the.internetz@SMTP and can address ALLIN1 from internet as jguillaumes at a1.jguillaumes.dyndns.org.
Firstly, nice to see other people who are at least on a par with me madness wise (Sampsa has been my benchmark of sanity [or lack of it] for a while)
I'd be really interested in knowning how to setup MR as an SMTP gateway for ALLIN1 - I tried this a while back with no success whatsoever. I didn't even think the licensing allowed it.
Regards, Mark.
El 24/02/2013, a les 20:12, Steve Davidson <jeep at scshome.net> va escriure:
Good question! I just tried my PC keyboard from a PuTTY terminal. Some
of the functions map, others do not. It looks like it will depend on
what you are working with.
I use ZOC (http://www.emtec.com/zoc/) Its NOT free (it is shareware, and it costs 79 EUR, but I bought it loooooong ago and the upgrade price is reasonable). It provides not only a nice and usable VT220 experience, but also a built-in kermit client and a quite good 3270 emulation.
-Steve
-----Original Message-----
From: owner-hecnet at Update.UU.SE
[mailto:owner-hecnet at Update.UU.SE] On Behalf Of Erik Olofsen
Sent: Sunday, February 24, 2013 13:49
To: hecnet at Update.UU.SE
Subject: Re: [HECnet] NOTES system?
Related to using NOTES, before doing the discussion on NOTES,
for using the keypad, how do the present HECnet users use the
DEC keypad on non-DEC equipment?
Erik
Jordi Guillaumes i Pons
jg at jordi.guillaumes.name
HECnet: BITXOV::JGUILLAUMES
Good question! I just tried my PC keyboard from a PuTTY terminal. Some
of the functions map, others do not. It looks like it will depend on
what you are working with.
-Steve
-----Original Message-----
From: owner-hecnet at Update.UU.SE
[mailto:owner-hecnet at Update.UU.SE] On Behalf Of Erik Olofsen
Sent: Sunday, February 24, 2013 13:49
To: hecnet at Update.UU.SE
Subject: Re: [HECnet] NOTES system?
Related to using NOTES, before doing the discussion on NOTES,
for using the keypad, how do the present HECnet users use the
DEC keypad on non-DEC equipment?
Erik
