Table of Contents

0PT

Table Of Contents

  • [00002] 0PT - RESET PRIMARY FILE.
  • [00037] RPF - MAIN ROUTINE.

Source Code

0PT.txt 
  1.           IDENT  0PT,RPFX
  2.           TITLE  0PT - RESET PRIMARY FILE.
  3.           PERIPH J
  4.           BASE   MIXED
  5.           SST
  6. *COMMENT  0PT - RESET PRIMARY FILE.
  7.           COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
  8.  RPF      SPACE  4,10
  9. ***       RPF - RESET PRIMARY FILE.
  10. *         P. D. FARRELL.     81/09/10.
  11.  RPF      SPACE  4,10
  12. ***              RPF IS A LOCATION-FREE, ZERO-LEVEL OVERLAY TO
  13. *         BE USED TO RESET THE PRIMARY FILE POINTERS IN THE JOB
  14. *         EJT ENTRY.
  15.  RPF      SPACE  4,10
  16. ***       CALL.
  17. *
  18. *         ENTRY  (FS - FS+4) = FST INFORMATION FOR NEW FILE.
  19. *
  20. *         EXIT   (A) = 0.
  21.  RPF      SPACE  4,10
  22. **        DEFINITION COMMON DECKS.
  23.  
  24.  
  25. *CALL     COMPMAC
  26. *CALL     COMPREL
  27. *CALL     COMSZOL
  28.           SPACE  4,10
  29. ****      DIRECT LOCATION ASSIGNMENTS.
  30.  
  31.  
  32.  FS       EQU    20 - 24     FST INFORMATION (5 LOCATIONS)
  33.  
  34. ****
  35.  RPF      TITLE  MAIN ROUTINE.
  36.  RPF      SPACE  4,10
  37. **        RPF - MAIN ROUTINE.
  38.  
  39.  
  40.           ORG    5
  41.  RPF      SUBR               ENTRY/EXIT
  42.           LDD    LA          RELOCATE INSTRUCTION
  43.           RAM    RPFA
  44.  
  45. *         FORMAT *UTEM* MONITOR REQUEST.
  46.  
  47.           LDD    FS          SET NEW EST ORDINAL
  48.           STM    RPFB+3
  49.           LDD    FS+1        SET NEW FIRST TRACK
  50.           STM    RPFB+4
  51.  
  52. *         SET EJT ADDRESS AND ISSUE MONITOR REQUEST.
  53.  
  54.           LDD    CP          READ EJT ORDINAL WORD
  55.           ADK    TFSW
  56.           CRD    CM
  57.           SFA    EJT,CM      SET EJT ADDRESS
  58.           STD    CM+4
  59.           SHN    -14
  60.           STD    CM+3
  61.           LDN    0
  62.           STD    CM+2
  63.           LDN    1           SET REQUEST LENGTH
  64.           STD    CM+1
  65.           LDD    MA          WRITE PARAMETERS TO MESSAGE BUFFER
  66.           CWM.   RPFB,ON
  67.  RPFA     EQU    *-1
  68.           MONITOR  UTEM      ISSUE MONITOR REQUEST
  69. *         LDN    0
  70.           LJM    RPFX        RETURN
  71.  
  72.  
  73.  RPFB     VFD    1/0,5/PRFE,6/21D,6/0,42/0
  74.  RPF      SPACE  4,10
  75. **        EXECUTABLE COMMON DECKS.
  76.  
  77.  
  78.  EJT$     EQU    1           ASSEMBLE EJT ADDRESSING (COMPGFP)
  79. *CALL     COMPGFP
  80.  RPF      SPACE  4,10
  81.           RSTR               RESTORE INSTRUCTIONS
  82.  RPF      SPACE  4,10
  83. **        OVERFLOW TEST.
  84.  
  85.  
  86.           OVERFLOW  5,ZPTL
  87.  
  88.  
  89.           END