| Title: | ** Hackers ** |
| Moderator: | XDELTA::HOFFMAN |
| Created: | Mon Feb 01 1988 |
| Last Modified: | Tue May 27 1997 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 1838 |
| Total number of notes: | 13578 |
I'm looking for a program to modify system space on VMS Alpha. I'm sure there must be a few around. Any pointers? Doug.
| T.R | Title | User | Personal Name | Date | Lines |
|---|---|---|---|---|---|
| 1837.1 | You mean a zapper like this? | EVMS::EVERHART | Wed Apr 30 1997 20:54 | 56 | |
You mean something like this?
Program Zap
Implicit Integer (a-z) ! tut, tut !
External ZapR,ZapW
Integer ParmList(3)
Write (6,'(''$Address : '')')
Read (5,'(z)') Address
ParmList(1)=2
ParmList(2)=%Loc(Val)
ParmList(3)=Address
Status=Sys$CmEXEC(ZapR,ParmList)
If (.not.Status) Call Lib$Stop(%Val(Status))
Write (6,'('' Value was '',z8.8)') Val
Write (6,'(''$Value : '')')
Read (5,'(z)') Val
ParmList(1)=2
ParmList(2)=%Loc(Val)
ParmList(3)=Address
Status=Sys$CmKRNL(ZapW,ParmList)
If (.not.Status) Call Lib$Stop(%Val(Status))
End
Integer Function ZapR(X,Y)
C****** Caveat: This routine runs in exec mode
Integer X,Y
X=Y ! zap in
ZapR=1 ! Indicate success
Return
End
Integer Function ZapW(X,Y)
C****** Caveat: This routine runs in kernel mode
Integer X,Y
Y=X ! zap in
ZapW=1 ! Indicate success
Return
End
| |||||
| 1837.2 | use Delta for everything ! | MOVIES::WIDDOWSON | Rod OpenVMS Engineering. Project Rock | Thu May 01 1997 08:58 | 3 |
$ run sys$library:delta
1;m
10001:G123456/02345678 12345678 <cr>
| |||||