Table of Contents

DLWRT

Table Of Contents

Source Code

DLWRT.txt 
  1. *DECK DLWRT 
  2.           IDENT  DLWRT
  3.           ENTRY  DLWRT
  4. *IF DEF,IMS 
  5. *#
  6. *1DC  DLWRT 
  7. * 
  8. *     1. PROC NAME           AUTHOR              DATE 
  9. *        DLWRT               P.C.TAM             78/10/05 
  10. * 
  11. *     2. FUNCTIONAL DESCRIPTION.
  12. *        MOVE CODED LINE TO CIO BUFFER. 
  13. * 
  14. *     3. METHOD USED. 
  15. *        CALL WRITEW MACRO. 
  16. * 
  17. *     4. ENTRY PARAMETERS.
  18. *        (A1)                ADDRESS OF THE ADDRESS OF FET
  19. *        (A1)+1              ADDRESS OF THE ADDRESS OF LINE 
  20. *        (A1)+2              ADDRESS OF THE ADDRESS OF SIZE 
  21. * 
  22. *     5. EXIT PARAMETERS. 
  23. *        NONE.
  24. * 
  25. *     6. COMMON DECKS CALLED. 
  26. *        NONE.
  27. * 
  28. *     7. ROUTINES CALLED. 
  29. *        NONE.
  30. * 
  31. *     8. DAYFILE MESSAGES.
  32. *        NONE.
  33. * 
  34. *#
  35. *ENDIF
  36.  
  37.  DLWRT    SUBR   =           ENTRY/EXIT 
  38.           SB1    1
  39.           SA2    A1+B1       (X2)=ADDRESS OF LINE 
  40.           SA3    A2+B1
  41.           SA3    X3          (X3)=SIZE
  42.           WRITEW X1,X2,X3 
  43.           EQ     DLWRTX 
  44.           END