Retro1.org codex

*DECK OSREQ 
          IDENT  OSREQ
          ENTRY  OSREQ
          EXT    SYS= 
          SST 
*#
*1DC  OSREQ 
* 
*     1. PROC NAME           AUTHOR              DATE 
*        OSREQ               F. E. FEUILLE       75/10/02 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        THIS ROUTINE CALLS THE SYSTEM ROUTINE -SYS=- TO ISSUE AN RA + 1
*        REQUEST. 
* 
*     3. METHOD USED. 
*          SYS= COMPASS MACRO 
* 
*     4. ENTRY PARAMETERS.
*          A1 = ADDRESS OF ADDRESS OF RA+1 IMAGE
* 
*     5. EXIT PARAMETERS.  NONE 
* 
*     6. COMDECKS CALLED.  NONE 
* 
*     7. ROUTINES CALLED. 
*          SYS=              COMPASS MACRO
* 
*     8. DAYFILE MESSAGES.  NONE
* 
*#
 OSREQ    BSSZ   1           ENTRY/EXIT 
          SA1    X1          X1 HAD ADDRESS OF PARAMETER BLOCK
          BX6    X1 
          RJ     SYS=        CALL SYS= TO MAKE CALL 
          EQ     OSREQ       RETURN 
          END