% VAX-11 Librarian V03-00W@Z@W   TRUSEROPEN  !W .title xlate .psect data,noexe,longsection: .blkb 10752 pro: $xabprotrnam: $nam rsa=name2,rss=63/blk1: $fab fna=name1,fns=63,nam=trnam,xab=pro,- dnm=/blk2: $fab fna=name1,fns=63,nam=trnam,xab=pro,- dnm=/blk3: $fab fna=name1,fns=63,nam=trnam,xab=pro,- dnm=&name1: .ascii / / - / / - / /name2: .blkb 63 .psect code,exe,long$ .entry xlate1,^M movl #0,@20(ap) movw #999,@24(ap) movl @8(ap),r6 movc3 r6,@4(ap),name1 $OPEN fab=blk1 blbc r0,badopen1 movzbl trnam+nam$b_rsl,r7 movl r7,@16(ap) movc3 r7,name2,@12(ap) $DISPLAY fab=blk1 blbc r0,baddisp1 mcomw pro+XAB$W_PRO,@24(ap)  $CLOSE fab=blk1 ret badopen1: movl #1,@20(ap) ret baddisp1: movl #2,@20(ap) ret$ .entry xlate2,^M movl #0,@20(ap) movw #999,@24(ap) movl @8(ap),r6 movc3 r6,@4(ap),name1 $OPEN fab=blk2 blbc r0,badopen2 movzbl trnam+nam$b_rsl,r7 movl r7,@16(ap) movc3 r7,name2,@12(ap) $DISPLAY fab=blk2 blbc r0,baddisp2 mcomw pro+XAB$W_PRO,@24(ap)  $CLOSE fab=blk2 ret badopen2: movl #1,@20(ap) ret baddisp2: movl #2,@20(ap) ret$ .entry xlate3,^M movl #0,@20(ap) movw #999,@24(ap) movl @8(ap),r6 movc3 r6,@4(ap),name1 $OPEN fab=blk3 blbc r0,badopen3 movzbl trnam+nam$b_rsl,r7 movl r7,@16(ap) movc3 r7,name2,@12(ap) $DISPLAY fab=blk3 blbc r0,baddisp3 mcomw pro+XAB$W_PRO,@24(ap)  $CLOSE fab=blk3 ret badopen3: movl #1,@20(ap) ret baddisp3: movl #2,@20(ap) ret .endww@Z@W .psect data,long,noexedelfab: $FAB fna=name,fns=63.secfab: $FAB fnm=, - fop=,alq=20&name: .ascii / / - / / - / / section: .blkb 10752jbcsect: .blkb 102400 .psect code .entry useropen,^M $create fab=secfab movw r0,@8(ap) movl secfab+fab$l_stv,@4(ap) ret .entry addr1,^M movl 4(ap),r3 moval section,r2 addl2 #511,r2 movl r2,(r3)+ addl #10240,r2 movl r2,(r3) ret .entry addr2,^M moval jbcsect,r2 movl 4(ap),r3 addl #511,r2 movl r2,(r3)+ addl #101888,r2 movl r2,(r3) ret .entry fdel,^M movb @8(ap),delfab+fab$b_fns movzbl @8(ap),r6 movc3 r6,@4(ap),name $erase fab=delfab ret .endww