BPX1LOD (loadHFS) example

The program ictasma located at ict/bin is loaded into storage and then branched to. For the callable service, see loadhfs (BPX1LOD, BPX4LOD) — Load a program into storage by path name. AMODE 64 callers use BPX4LOD (loadHFS) example.

                                              
         MVC   BUFLENA,=F'16'                                           
         MVC   BUFFERA(16),=C'/ict/bin/ictasma'                         
         MVC   OPTIONS,=A(0)                                            
         MVC   LIBPTHLN,=A(0)                                           
         SPACE ,                                                        
         CALL  BPX1LOD,              Load program                      +
               (BUFLENA,             Input: Pathname length            +
               BUFFERA,              Input: Pathname                   +
               OPTIONS,              Input: Options                    +
               LIBPTHLN,             Input: Library Path Length        +
               LIBPATH,              Input: Library Path               +
               EPADDR,               Return value: -1 or entrypt addr  +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               VL,MF=(E,PLIST)       ---------------------------------- 
         SPACE ,                                                        
         L     R15,EPADDR            Load return value                  
         C     R15,=F'-1'            Test for -1 return                 
         BE    PSEUDO                Branch on error                    
         SPACE ,                                                        
         L     R15,EPADDR                                               
         BALR  R14,R15               Branch to loaded program