;*******************************************************************************
;* Getncb                                                                      *
;*      This macro function takes a string, which is in the mailbox message    *
;* format, and extracts the network connect block from it.                     *
;*                                                                             *
;* Format: getncb(&mbxmesg, &ncb_desc, &ncb);                                  *
;*******************************************************************************
;
                .title  GETNCB
;
                .psect  getncbcode, con, exe, lcl, shr, nowrt, pic, rel
;
                .entry  getncb, ^m<r2,r3,r4,r5,r6,r7,r8,r9,r10,r11>
;
                addl3   4(ap), #4, r8           ; Save pointer to mbx message
;
                movzbl  (r8)+, r2               ; Get the dev count
                addl2   r2, r8                  ; Skip over the string
                movzbl  (r8)+, @8(ap)           ; Get the byte count of the str
;
                movc3   @8(ap), (r8), @12(ap)   ; Save the string in the NCB
;
                ret                             ; End of Getncb
;
                .end