home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / ASMUTL / PC370.ZIP / TEST25S1.ALC < prev    next >
Encoding:
Text File  |  1987-04-22  |  512 b   |  17 lines
  1.     TITLE 'TEST25S1 - TEST SVC 25 LOAD DYNAMICALLY LOADED SUBROUTINE'
  2. * AUTHOR. DON HIGGINS.
  3. * DATE.   04/09/87
  4. * REMARKS.
  5. *        THIS ROUTINE IS LINKED AS MOD AND ENTERED VIA BALR AT LOAD ADDR
  6. *
  7. TEST25S1 CSECT
  8.     USING TEST25S1,R15
  9.     LA    R2,=C'TEST25S1 LOAD AND BALR TO MOD FILE SUCCESSFUL$'
  10.     SVC   WTO
  11.     BR    R14
  12. WTO      EQU   209
  13. R2       EQU   2    WTO PARM
  14. R14      EQU   14   LINK RETURN
  15. R15      EQU   15   BASE
  16.     END
  17.