.title seek ;+ ; subroutine seek(addres, int) ;- ap=%5 addres=2 int=4 .psect $r.roi,con,ro,rel,lcl,i .enabl lsb seek:: mov @int(ap),r0 ; rat4 unit call r$gfbk ; get RFDB address in r1 bcs 100$ ; c set => invalid unit number bit #rf.clo,(r1) ; file open? bne 100$ ; NO mov r.fdb(r1),r0 ; FDB address mov addres(ap),r1 ; address of user RFA mov (r1)+,r2 ; store RFA in regs for .point mov (r1),r3 ; ... clr r1 ; no high block address call .point ; position file 100$: return .end