Table of Contents

STRINIT Source

References

Source Listing

STRINIT.MACRO.txt 
  1.          MACRO                                                          00001000
  2. &NM      STRINIT &XXX,&TYPCALL=SVC                                      00002000
  3.          AIF   ('&TYPCALL' EQ 'SVC').SVC                                00003000
  4.          AIF   ('&TYPCALL' EQ 'BALR').BALR                              00004000
  5.          MNOTE 8,'''TYPCALL'' NOT ''SVC'' OR ''BALR'''                  00005000
  6.          MEXIT                                                          00006000
  7. .SVC     ANOP                                                           00007000
  8. &NM      SVC   203                                                      00008000
  9.          DC    H'7'                    STORAGE INITIALIZATION           00009000
  10.          MEXIT                                                          00010000
  11. .BALR    ANOP                                                           00011000
  12. &NM      L     15,=V(DMSSTGSB)    STORAGE INIT. ROUTINE                 00012100
  13.          BALR  14,15                                                    00013000
  14.          MEND                                                           00014000