!-modify ss0302_total0302y,total0302y
redirect
x1,changecontext
x2,dtransfer
x3,dasyncinh
x4,dchaccess
x5,dchsize
x6,dclearintmessage
x7,dconnect
x8,dcreate
x9,ddestroy
x10,ddisableterminalstream1
x11,ddisconnect
x12,denableterminalstream
x14,dfinfo
x15,dfstatus
x16,dmessage2
x17,dnewgen
x18,dnewoutwardcall
x19,doffer
x20,doper
x21,doperprompt
x22,dpermission
x23,dpoff
x24,drename
x26,dresume
x27,dsetic
x28,dsfi
x29,dspool
x30,dstop
x31,primecontingency
x32,readid
x33,requestinput
x34,requestoutput
x44,derrs
aaastop,dstop
aabprintstring,dprintstring
.end
fuse code
fuse gla
close
!-link
ss0302_ssld09y
total0302y
ss0302_mload44cy
ss0302_mseprtn14y
ss0302_mfileop401y
ss0302_mcli33y
ss0302_mmacr32y
ss0302_mfdiag15y
ss0302_msstrace03y
subsys.system_ksetmode25y
.end
ssz0302
!-modify ssz0302
makedynamic
readprofile,writeprofile,
s#fortrandf,s#magio,s#newmtfileop,s#allowcommand,s#allowconnect,s#initialise,setmode,transfers
rename
zaccept,accept
zdefine,define
zdestroy,destroy
zdisconnect,disconnect
znewgen,newgen
zoffer,offer
zpermit,permit
zrename,rename
zstop,stop
zcputime,cputime
.end
satisfydata
.all
satisfyrefs
.all
suppress
s#checkfilename,s#closejournal,s#control,
s#curstack,s#dirtoss,s#dirtrap,s#fstatus,s#initjournal,s#initloader,
s#halt,s#roundup,s#tidyfiles,s#useoptions
alias
s#move,s#bmove
stop,quit
.end
fuse code
fuse gla
close
!-ssfix16 ssz0302,sst0302,ssd0302
!-makebasefile
sst0302
ss0302s_optionfile4
tempss0302
new
!-rename tempss0302,ss0302x
!-newgen tempss0302,ss0302x
!-cherish ss0302x
!-permit ss0302x
!-destroy total0302y,ssz0302,sst0302