.title fdel .globl .dlfnb .mcall fdof$l fdof$l ; define fdb offsets locally fdb=2 ap=%5 fdel:: ; entry point mov @fdb(ap),r0 ; FDB address in r0 call .dlfnb ; delete file bcs 10$ ; c set => error clr r0 ; return 0 as value of function upon success return 10$: mov f.err(r0),r0 ; put error code in r0 swab r0 ; make it negative return .end