; ZAP FILE TO MODIFY THE RSX11M SYSTEM IMAGE.
; THIS SETS CO: AS:
;	LOGGED ON, LOGIN UIC & CURRENT UIC =[1,1]
; THIS IS NEEDED FOR RECUR TO BE ABLE TO SPAWN 
;	OTHER COMMANDS PROPERLY
.OPEN ZAPSYS.CMD;1
.DATA RSX11M.SYS/AB
; ADD 2000 TO THE ADDRESS TO GET THE ABSOLUTE ADDRESS
; LOGIN UIC
.DATA 51246/
.DATA 401
; LOGGED ON
.DATA 51264/
.DATA 0
; CURRENT UIC
.DATA 51316/
.DATA 401
.CLOSE
ZAP @ZAPSYS.CMD;1

.OPEN ZAPTSK.CMD;1
.DATA RSX11M.TSK/AB
; ADD 2000 TO THE ADDRESS TO GET THE ABSOLUTE ADDRESS
; LOGIN UIC
.DATA 51246/
.DATA 401
; LOGGED ON
.DATA 51264/
.DATA 0
; CURRENT UIC
.DATA 51316/
.DATA 401
.CLOSE
ZAP @ZAPTSK.CMD;1

PIP ZAPSYS.CMD;1/DE
PIP ZAPTSK.CMD;1/DE