Table of Contents

DLRDO

Table Of Contents

Source Code

DLRDO.txt 
  1. *DECK DLRDO 
  2.           IDENT  DLRDO
  3.           ENTRY  DLRDO
  4. *IF DEF,IMS 
  5. *#
  6. *1DC  DLRDO 
  7. * 
  8. *     1. PROC NAME           AUTHOR              DATE 
  9. *        DLRDO               P.C.TAM             78/09/21 
  10. * 
  11. *     2. FUNCTIONAL DESCRIPTION.
  12. *        READ A WORD FROM FILE
  13. * 
  14. *     3. METHOD USED. 
  15. *        CALL DLRDO MACRO 
  16. * 
  17. *     4. ENTRY PARAMETERS.
  18. *        (A1)    ADDRESS OF THE ADDRESS OF FET. 
  19. *        (A1)+1  ADDRESS OF THE ADDRESS OF OUTPUT WORD
  20. * 
  21. *     5. EXIT PARAMETERS. 
  22. *        NONE.
  23. * 
  24. *     6. COMMON DECKS CALLED. 
  25. *        NONE.
  26. * 
  27. *     7. ROUTINES CALLED. 
  28. *        NONE.
  29. * 
  30. *     8. DAYFILE MESSAGES.
  31. *        NONE.
  32. *#
  33. *ENDIF
  34.  
  35.  
  36.  DLRDO    SUBR   =           ENTRY/EXIT 
  37.           SX6    A1          SAVE (A1)
  38.           SA6    SAVEA1 
  39.           READO  X1 
  40.           SB1    1           (B1)=1 
  41.           SA5    SAVEA1 
  42.           SA5    X5+B1
  43.  
  44. *         READ A WORD IN X6 
  45.  
  46.           SA6    X5 
  47.           EQ     DLRDOX 
  48.  
  49.  SAVEA1   BSS    1
  50.           END