.title gtfdb d.fdb=12. ; offset from FFDB to start of FDB ; This value may have to be changed for F4P ; version 3.0 running the RMS OTS library ; ; inputs r2 lun to retrieve FDB address for ; ; outputs r0 FDB address, or 0 if invalid lun ; gtfdb:: call $fchnl ; get address of FFDB into r0 for lun in r2 bcs 10$ ; c bit set if error add #d.fdb,r0 ; add offset to have FDB address in r0 br 20$ 10$: clr r0 ; return value of 0 if error 20$: return .end