.title rsxini init i/o subsystem for rsx TED .ident /4.0.01/ .enabl gbl .psect ; ; ; Copyright (C) 1979, 1980, 1981, 1982, 1983 Brian Nelson ; ; This software is furnished in an as-is ; condition, with no committments of sup- ; port or updates. This software may NOT ; be sold for profit nor can it be includ- ; ed in any package to be sold for profit ; without the written consent of the au- ; thor. This software may be used only ; within the above conditions of use. ; ; The information in contained herein is ; subject to change or revision at any ; time without notice. ; ; inpbuf = inbuf bf$pnt = bufpnt er$sav = errsav by$cnt = recount bl$num = blknum io$sta = iostat .mcall fdrc$r ,fdbk$r ,fdop$r ,fdbf$r ,fdat$r ,fsrsz$ .mcall finit$ section $code fcsini::save .iif eq ,resovr ,finit$ mov #10 ,r2 ; set defaults for file attr 10$: mov r2 ,r1 ; must init all fdb's at run asl r1 ; time for reslib support fdrc$r fdblst(r1),#fd.rwm ; we are using read$/write$ fdbk$r fdblst(r1),#inpbuf,#2048.,,#10,rwiost(r1) fdop$r fdblst(r1),r2,#csiblk+c.dsds,,<#fa.wrt> calls setatr , sob r2 ,10$ fdbk$r #tmpfdb,#tmpbuf,#2000,,#11,#tmpiost fdop$r #tmpfdb,#tmplun,#tmpdsc,,<#fa.wrt!fa.tmp> fdbk$r #hlpfdb,#hlpbuf,#1000,,#12,#hlpiost fdop$r #hlpfdb,#hlplun,#csiblk+c.dsds,,<#fa.rd!fa.shr> call doatta unsave return .end