User Tools

Site Tools


cdc:nos2.source:nam5871:ns_fbh

NS$FBH

Table Of Contents

  • [00005] PROC NS$FBH1)
  • [00007] NS$FBH - FORMAT ABH FOR NETWORK SM.
  • [00011] FORMAT ABH FOR NETWORK SM.
  • [00036] PROC NS$DBG

Source Code

NS$FBH.txt
  1. *DECK NS$FBH
  2. USETEXT NAT$NS
  3. USETEXT SMB$NS
  4.  
  5. PROC NS$FBH((TLC),(ZEROSMB));# FORMAT ABH FOR NETWORK SM #
  6.  
  7. # TITLE NS$FBH - FORMAT ABH FOR NETWORK SM. #
  8.  
  9. BEGIN # NS$FBH #
  10. #
  11. ** NS$FBH - FORMAT ABH FOR NETWORK SM.
  12. *
  13. * THIS ROUTINE FORAMTS THE ABH OFR NETWORK SM.
  14. *
  15. * PROC NS$FBH((TLC),(ZEROSMB))
  16. *
  17. * ENTRY:
  18. * TLC - SM TEXT LENGTH IN 8-BIT BYTES.
  19. * ZEROSMB - INDICATOR IF SMB$BUFFER IS TO BE CLEARED.
  20. *
  21. * EXIT:
  22. * NONE.
  23. *
  24. * METHOD:
  25. * BUILD ABH WITH ABT = 4, TLC = TLC, BT = 4,
  26. * ACT = 8-BIT ASCII. SET DESTINATION AND SOURCE NODE.
  27. * IF "ZEROSMB" SET, CLEAR SMB$BUFFER.
  28. *
  29. #
  30. ITEM TLC U; # SM TEXT LENGTH IN 8-BIT BYTES #
  31. ITEM ZEROSMB B; # INDICATE IF SMB$BUFFER IS TO BE CLEARED #
  32.  
  33. $BEGIN
  34. XREF
  35. BEGIN
  36. PROC NS$DBG; # TRACE PROCEDURE CALL #
  37. END
  38. $END
  39.  
  40. ITEM I I; # LOOP VARIABLE #
  41. ITEM N U; # SM TEXT LENGTH IN CM WORDS #
  42. CONTROL EJECT;
  43.  
  44. $BEGIN
  45. NS$DBG("FBH");
  46. $END
  47.  
  48. ABHWORD[0] = 0; # CLEAR ABH WORD #
  49. ABHABT[0] = APPPN; # APPLICATION BLOCK TYPE = 4 #
  50. ABHDN[0] = NAT$SN[0]; # DESTINATION NODE #
  51. ABHSN[0] = NAT$HN[0]; # SOURCE NODE #
  52. ABHBT[0] = NETCMD; # BLOCK TYPE = 4 #
  53. ABHACT[0] = CT8ASCII; # ACT IS ASCII-8 #
  54. ABHTLC[0] = TLC; # TEXT LENGTH IN ASCII-8 CHAR #
  55.  
  56. IF ZEROSMB
  57. THEN # ZERO SM BUFFER #
  58. BEGIN
  59. N = (2*TLC+14)/15; # TEXT LENGTH IN CM WORDS #
  60. P<SMB> = LOC(SMB$BUFFER); # FWA OF SM BUFFER #
  61.  
  62. FOR I = 0 STEP 1 UNTIL N - 1
  63. DO
  64. BEGIN
  65. SMBWORD[I] = 0;
  66. END
  67.  
  68. END
  69.  
  70. RETURN;
  71. END # NS$FBH #
  72. TERM
1)
TLC),(ZEROSMB
cdc/nos2.source/nam5871/ns_fbh.txt ยท Last modified: 2023/08/05 17:22 by Site Administrator