Table of Contents

DLINT

Table Of Contents

Source Code

DLINT.txt 
  1. *DECK DLINT 
  2.           IDENT  DLINT
  3.           ENTRY  DLINT
  4. *IF DEF,IMS 
  5. *#
  6. *1DC  DLINT 
  7. * 
  8. *     1. PROC NAME           AUTHOR              DATE 
  9. *        DLINT               P.C.TAM             78/10/17 
  10. * 
  11. *     2. FUNCTIONAL DESCRIPTION.
  12. *        INITIALIZE FILE FOR READ/WRITE.
  13. * 
  14. *     3. METHOD USED. 
  15. *        CALL READ/WRITE MACRO. 
  16. * 
  17. *     4. ENTRY PARAMETERS.
  18. *        (A1)                ADDRESS OF THE ADDRESS OF FET
  19. *        (A1)+1              ADDRESS OF THE ADDRESS OF READ/WRITE 
  20. * 
  21. *     5. EXIT PARAMETERS. 
  22. *        NONE 
  23. * 
  24. *     6. COMMON DECKS CALLED. 
  25. *        MACDEF MISDEFX 
  26. * 
  27. *     7. ROUTINES CALLED. 
  28. *        NONE 
  29. * 
  30. *     8. DAYFILE MESSAGES.
  31. *        NONE 
  32. * 
  33. *#
  34. *ENDIF
  35.  
  36. *CALL MACDEF
  37. *CALL MISDEFX 
  38.  
  39.  DLINT    SUBR   =           ENTRY/EXIT 
  40.           SA2    A1+1        GET READ/WRITE 
  41.           SA2    X2 
  42.           SX2    X2-READNR   CHECK IF READ
  43.           ZR     X2,INR 
  44.  
  45. *         WRITE 
  46.  
  47.           WRITE  X1 
  48.           EQ     DLINTX      RETURN 
  49.  
  50. *         READ
  51.  
  52.  INR      BSS    0
  53.           READ   X1,R 
  54.           EQ     DLINTX      RETURN 
  55.  
  56.           END