Table of Contents

NP$XCMP

Table Of Contents

  • [00012] PROC NP$XCMP
  • [00037] PROC NP$PUT
  • [00038] PROC NP$ZRBK
  • [00039] PROC NP$CIO
  • [00040] PROC NP$CMFF
  • [00041] FUNC NP$CDD C(10)
  • [00042] PROC NP$MSG

Source Code

NP$XCMP.txt 
  1. *DECK NP$XCMP 
  2. *IF DEF,XFR 
  3. USETEXT AIPDEF
  4. USETEXT NP$GETS 
  5. USETEXT NP$PUTS 
  6. USETEXT NP$NWL
  7. USETEXT NP$STAT 
  8. USETEXT NP$DB 
  9. USETEXT NX$ACBF 
  10. USETEXT NX$ACBX 
  11. USETEXT NX$MSG
  12.  PROC NP$XCMP ; 
  13.  #
  14. **1DC 
  15. *     1. PROC NAME         AUTHOR        DATE 
  16. *        NP$XCMP           L.T.NGUYEN    83/06/03 
  17. * 
  18. *     2. FUNCTIONAL DESCRIPTION:  
  19. *        CLEAN UP FILE TRANSFER CONNECTION. 
  20. * 
  21. *     3. METHOD USED: 
  22. *        SET THE APPLICATION STATUS ACCORDING TO THE REASON CODE. 
  23. *        SEND LIT/SWH BACK TO ORIGINAL LIST NUMBER. 
  24. *        CLEAR ENTRY IN FTT TABLE.
  25. * 
  26. *     4. INPUT PARAMS:  
  27. *        FTTINDEX - INDEX OF CONNECTION TO BE CLEARED UP. 
  28. * 
  29. *     5. EXIT PARAMS: 
  30. *        NONE.
  31. * 
  32. *     6. NOTES: 
  33. * 
  34.  #
  35.       XREF
  36.         BEGIN 
  37.         PROC NP$PUT ; 
  38.         PROC NP$ZRBK ;
  39.         PROC NP$CIO ;                # CALL CIO                        #
  40.         PROC NP$CMFF; 
  41.         FUNC NP$CDD C(10) ;        # CONVERT INTEGER TO DISPLAY CODE   #
  42.         PROC NP$MSG ; 
  43.         END 
  44.       ITEM SCRATCH ;
  45.       ITEM CODE     I;             # OPERATION CODE                    #
  46.       BEGIN 
  47.  
  48.  
  49.  
  50.  
  51.       P<FET$CIO> = FTTFETADR[FTTINDEX] ; # FET OF CIO BUFFER           #
  52.       P<STATUSWORD> = FTTSTATUS[FTTINDEX] ; 
  53.  
  54.       NUMFILEXFR = NUMFILEXFR - 1 ; 
  55.       CODE = CIO$REWIND;         # REWIND THE FILE                     #
  56.       NP$CIO(CODE) ;             # CALL CIO TO OPEN THE FILE           #
  57.  
  58. # 
  59.       SWITCH THIS CONNECTION TO LIST 0
  60. # 
  61.       LST$ACN[0] = FTTACN[FTTINDEX] ; 
  62.       LST$NLIST[0] = 0 ;
  63.       LOC$HA = LOC(OUT$ABH) ; 
  64.       LOC$TA = LOC(LST$SWH) ; 
  65.       OUT$ABHTLC[0] = 1 ; 
  66.       OPCODE = OP$PUT ; 
  67. *IF DEF,STAT,1
  68.       IAM = TYPE"PUT" ; 
  69.       NP$PUT ;
  70.  
  71. # 
  72.       SET APPLICATION STATUS ACCORDING TO THE STATE TABLE REASON CODE.
  73. # 
  74.       STATUSWD[0] = FTTSTRC[FTTINDEX] ; 
  75.  
  76. # 
  77.       RELEASE ALL THE NEEDED BUFFERS ( CIO FET, WORKING FET, CIO BUFFER 
  78.       WORKING BUFFER ) .
  79. # 
  80. # 
  81.       SET XFR COMPLETION FLAG 
  82. # 
  83.       XFR$COM = TRUE; 
  84.       IDFM$LFN[STATUSWD] = FETLFNC[0] ; 
  85.       NP$MSG(IDFM$MSG[STATUSWD],XFRDTYPE);
  86.       NP$ZRBK(LOC(FETWD[0]),0) ;
  87.       IDFM$LFN[STATUSWD] = FETLFNC[0] ; 
  88.  
  89.       NP$CMFF(P<FET$CIO>) ; 
  90.  
  91. # 
  92.       FREE THE FTT ENTRY. 
  93. # 
  94.       FTTACN[FTTINDEX] = 0 ;
  95.  
  96.       RETURN ;
  97.       END 
  98.       TERM
  99.  
  100. *ENDIF