check out http://www.iterm2.com
On Mon, Feb 25, 2013 at 9:24 AM, Sampsa Laine <sampsa at mac.com> wrote:
If someone has a config file for OS X Terminal.app I'd cry with happiness.
sampsa
On 25 Feb 2013, at 11:58, Erik Olofsen <e.olofsen at xs4all.nl> wrote:
> 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
>>>
>>
So I'm re-configuring this 1841 to ship it to Ian.
Config is mostly done except for one minor detail.
I can no longer enable and configure DECnet.
Any idea what this would be? This is the router than ran all my DECnet tunnels and it was no problem at all to setup.
Now after a 'wr erase/reload' it will no longer allow me to setup DECnet!
hub#conf t
Enter configuration commands, one per line. End with CNTL/Z.
hub(config)#dec?
% Unrecognized command
-brian
<back in the thread a bit... just catching up...>
Yeah agreed Sampsa.. I've been [atypically] relaxed with my HECnet systems... exactly for the sake of openness and nostalgia... not that I don't care.. I just don't have time to worry about it with these systems... and its why I don't run `ssh` for example, as doing such is just asking oneself to have to read through an exponential increase in logs...
On Sat, Feb 23, 2013 at 5:49 PM, Sampsa Laine <sampsa at mac.com> wrote:
Uh, I don't want those guys on HECnet to be honest.
They encourage "security research" and well, I like the open and safe-ish feeling we have right now.
Speaking as an ex-pentester here..
sampsa <sampsa at mac.com>
mobile +961 788 10537
On 23 Feb 2013, at 23:40, Ian McLaughlin <ian at platinum.net> wrote:
> I've always wondered why the Deathrow cluster isn't on HECnet.
>
> Ian
>
> Sent from my iPad
>
> On 2013-02-23, at 1:37 PM, Sampsa Laine <sampsa at mac.com> wrote:
>
>> Eisner's not on HECnet.
>>
>> But Steve D's setting it up on the HILANT cluster.
>>
>>
>> sampsa <sampsa at mac.com>
>> mobile +961 788 10537
>>
>>
>>
>>
>> On 23 Feb 2013, at 23:34, hvlems at zonnet.nl wrote:
>>
>>> Eisner runs notes too.
>>> ------Origineel bericht------
>>> Van: Fred
>>> Afzender: owner-hecnet at Update.UU.SE
>>> Aan: hecnet at Update.UU.SE
>>> Beantwoorden: hecnet at Update.UU.SE
>>> Onderwerp: Re: [HECnet] NOTES system?
>>> Verzonden: 23 februari 2013 22:31
>>>
>>> On Fri, 22 Feb 2013, Julian Wolfe wrote:
>>>
>>>> I seem to remember a system on HECnet with NOTES installed, and there
>>>> was some kind of conversation going on it.
>>>>
>>>> Is that machine still going?
>>>
>>> That was one of Zane H.'s systems if I recall correctly.
>>>
>>> NOTES is running on MISER:: (and MISER runs 24/7). All I'd need to know
>>> is what conferences folks want me to add.
>>>
>>> Fred
>>
>>
>>
>> ---
>> Filter service subscribers can train this email as spam or not-spam here: http://my.email-as.net/spamham/cgi-bin/learn.pl?messageid=36E63A187E0111E29…
If someone has a config file for OS X Terminal.app I'd cry with happiness.
sampsa
On 25 Feb 2013, at 11:58, Erik Olofsen <e.olofsen at xs4all.nl> wrote:
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
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
