Table of Contents

DLOPEN

Table Of Contents

Source Code

DLOPEN.txt 
  1. *DECK DLOPEN
  2.           IDENT  DLOPEN 
  3.           ENTRY  DLOPEN 
  4. *IF DEF,IMS 
  5. *#
  6. *1DC  DLOPEN
  7. * 
  8. *     1. PROC NAME           AUTHOR              DATE 
  9. *        DLOPEN              P.C.TAM             78/09/21 
  10. * 
  11. *     2. FUNCTIONAL DESCRIPTION.
  12. *        INITIALIZE FETS
  13. * 
  14. *     3. METHOD USED. 
  15. *        USE OPEN MACRO 
  16. * 
  17. *     4. ENTRY PARAMETERS.
  18. *        (A1)                ADDRESS OF THE ADDRESS OF FET
  19. *        (A1)+1              ADDRESS OF THE ADDRESS OF OPEN CODE
  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.  DLOPEN   SUBR   =           ENTRY/EXIT 
  40.           SA2    A1+1 
  41.           SA2    X2 
  42.           SX3    X2-READNR   CHECK IF READNR
  43.           NZ     X3,INIT2 
  44.  
  45.           OPEN   X1,READNR,R
  46.           EQ     DLOPENX
  47.  
  48.  INIT2    BSS    0
  49.           OPEN   X1,WRITENR,R 
  50.           EQ     DLOPENX    RETURN
  51.  
  52.  SAVEA1   BSS    1
  53.  
  54.           END