/ / Fput. / .globl fput / / fput(buf, nbytes, ioptr); / char *buf; / int nbytes; / FILE *ioptr; / / The specified record is written to the file. / The file must have been opened with "u". / Nbytes is always returned; a call to ferr / after the call to fput is advised. / fput: jsr r0,__csav /Get new frame mov 16(r5),r4 /Get IOV pointer bit $VF_UBF,(r4) /"u" bne 0f /Yes bis $VF_ERR,(r4) /Set error flag br 1f / 0: mov 12(r5),r0 /Buffer mov 14(r5),r1 /Nbytes call __put /Do the actual put 1: mov 14(r5),r0 /Return nbytes jmp __cret /