Table of Contents

DLRDW

Table Of Contents

Source Code

DLRDW.txt 
  1. *DECK DLRDW 
  2.           IDENT  DLRDW
  3.           ENTRY  DLRDW
  4. *IF DEF,IMS 
  5. *#
  6. *1DC  DLRDW 
  7. * 
  8. *     1. PROC NAME           AUTHOR             DATE
  9. *        DLRDW               P.C.TAM            78/10/05
  10. * 
  11. *     2. FUNCTIONAL DESCRIPTION.
  12. *        READ A BLOCK FROM CIO BUFFER 
  13. * 
  14. *     3. METHOD USED. 
  15. *        CALL READW MACRO 
  16. * 
  17. *     4. ENTRY PARAMETERS.
  18. *        (A1)                ADDRESS OF THE ADDRESS OF FET
  19. *        (A1)+1              ADDRESS OF THE ADDRESS OF REQUIRED SIZE
  20. *        (A1)+2              ADDRESS OF THE ADDRESS OF WORK BUFFER
  21. * 
  22. *     5. EXIT PARAMETERS. 
  23. *        ((A1)+3)            0   IF EOR ENCOUNTERED 
  24. *                           -1   IF EOF ENCOUNTERED 
  25. *                           -2   IF EOI ENCOUNTERED 
  26. * 
  27. *     6. COMMON DECKS CALLED. 
  28. *        NONE.
  29. * 
  30. *     7. ROUTINES CALLED. 
  31. *        NONE.
  32. * 
  33. *     8. DAYFILE MESSAGES.
  34. *        NONE.
  35. * 
  36. *#
  37. *ENDIF
  38.  
  39.  DLRDW    SUBR   =           ENTRY/EXIT 
  40.           SX7    A1 
  41.           SA7    SAVEA1 
  42.  
  43.  RD1      BSS    0
  44.           SB1    1
  45.           SA3    A1+B1
  46.           SA2    A3+B1       (X2)=ADDRESS OF WORK BUFFER
  47.           SA3    X3          (X3)=SIZE REQUIRED 
  48.           READW  X1,X2,X3 
  49.           SA5    SAVEA1 
  50.           SA4    X5+3 
  51.           NZ     X1,RD2 
  52.  
  53. *         DATA TRANSFER COMPLETE
  54.  
  55.           SA3    X5+1        READ REQUIRED SIZE 
  56.           SA3    X3 
  57.           BX6    X3 
  58.           EQ     RD4
  59.  
  60. *         DATA TRANSFER NOT COMPLETE
  61.  
  62.  RD2      BSS    0
  63.           MI     X1,RD3 
  64.           SA3    X5+2        READ ADDR OF WB
  65.           IX6    X1-X3
  66.           NZ     X6,RD4 
  67.  
  68. *         EOR ENCOUNTERED W/O READING ANYTHING
  69.  
  70.           SX6    B0 
  71.           EQ    RD4 
  72.  
  73. *         EOI/EOF ENCOUNTERED 
  74.  
  75.  RD3      BSS    0
  76.           SX6    X1 
  77.  
  78.  
  79.  RD4      BSS    0
  80.           SA6    X4 
  81.           EQ     DLRDWX      RETURN 
  82.  
  83.  SAVEA1   BSS   1 
  84.  
  85.           END