OberonCore

MODULE NBSInterface ["netapi32.dll"];

.....

TYPE
   
      Handle = INTEGER;
      
      TNBName = ARRAY NBNAMESIZE - 1 OF BYTE;
      TNCBPostProc = PROCEDURE(P: PNCB);

      PNCB* = POINTER TO TNCB;
      TNCB* =  RECORD [noalign]
         Command*:  BYTE;
         RetCode*:  BYTE;     
         LSN*:      BYTE;     
         Num*:      BYTE;     
         Buf*:      INTEGER;   
         Length*:   INTEGER;   
         CallName*: TNBName;   
         Name*:     TNBName;   
         RTO*:      BYTE;     
         STO*:      BYTE;     
         PostPrc*:  TNCBPostProc;

         Lana_Num*: BYTE;   
         Cmd_Cplt*: BYTE;     

         Reserved*: ARRAY 10 OF BYTE;
         Event*:    Handle; 

  END;
      
      
      
   PROCEDURE Netbios* (P:PNCB): CHAR;
END NBSInterface.

  PNCB = ^TNCB;

 { Netbios Control Block }

 {$IFDEF WIN32}
  TNCBPostProc = procedure(P: PNCB);
 {$ENDIF}

  TNCB = packed record        { Netbios Control Block }
    Command:  byte;      { command code                       }
    RetCode:  byte;      { return code                        }
    LSN:      byte;      { local session number               }
    Num:      byte;      { name number                        }
    Buf:      ^byte;     { data buffer                        }
    Length:   word;      { data length                        }
    CallName: TNBName;   { name to call                       }
    Name:     TNBName;   { our own name                       }
    RTO:      byte;      { receive time-out                   }
    STO:      byte;      { send time-out                      }
  {$IFNDEF WIN32}
    Post_Offs:word;      { asynch notification routine offset }
    Post_Seg: word;      { asynch notification routine segment}
  {$ELSE}
    PostPrc:  TNCBPostProc;{ asynch notification routine (nb30) }
  {$ENDIF}
    Lana_Num: byte;     { adapter number                     }
    Cmd_Cplt: byte;     { command completion flag            }
  {$IFDEF WIN32}
    Reserved: array[0..9] of byte;  { Reserverd for Bios use }
    Event:    THandle;  { WIN32 event handle to be signalled }
                        { for asynch cmd completion          }
  {$ELSE}
    Reserved: array[0..13] of byte;  { Reserved }
  {$ENDIF}
  end;

PROCEDURE Netbios* (VAR ncb: TNCB): CHAR;

  VAR ncb: TNCB;
BEGIN
  ...
  Netbios(ncb);
  ...