Table of Contents

OPENR Source

References

Source Listing

OPENR.MACRO.txt
  1. MACRO 00001000
  2. &LABEL OPENR &OP1,&OP2,&OP3,&OP4,&OP5,&OP6,&OP7,&OP8,&OP9,&OP10,&OP11,&X00002000
  3. OP12,&OP13,&OP14,&OP15,&OP16,&OP17 00003000
  4. LCLA &A1,&A2 00004000
  5. AIF ('&OP1' NE '').CO 00005000
  6. MNOTE 0,' NO FILENAME SPECIFIED' 00006000
  7. MEXIT 00007000
  8. .CO ANOP 00008000
  9. CNOP 0,4 00009000
  10. &LABEL DC 0F'0' 00010000
  11. &A1 SETA 1 00011000
  12. .LOOP1 ANOP 00012000
  13. AIF ('&SYSLIST(&A1)'(1,1) EQ '(').A 00013000
  14. AIF (&A2 EQ 1).A 00014000
  15. LA 1,IJJO&SYSNDX+4 PUT ACTUAL LOCATION ADDR. IN REG. 00015000
  16. MVI *-4,X'58' DISABLE SUBSEQUENT RELOCATION 00016000
  17. L 0,IJJO&SYSNDX+4 PUT RELOCATION FACTOR IN REG 00017000
  18. SR 1,0 FIND DISPLACEMENT FACTOR 00018000
  19. &A2 SETA 1 00019000
  20. .A ANOP 00020000
  21. AIF (&A1 LT 17).B 00021000
  22. AGO .OPMAX 00022000
  23. .B ANOP 00023000
  24. AIF ('&SYSLIST(&A1)'(1,1) NE '(').CONT1 00024000
  25. ST &SYSLIST(&A1,1),IJJO&SYSNDX+4+4*&A1 00025000
  26. AGO .CONT2 00026000
  27. .CONT1 ANOP 00027000
  28. L 0,IJJO&SYSNDX+4+4*&A1 PUT FILENANE ADDR. IN REG. 0 00028000
  29. AR 0,1 ADD DISPLACEMENT FACTOR TO ADDR. 00029000
  30. ST 0,IJJO&SYSNDX+4+4*&A1 STORE NEW ADDR. BACK INTO ADCON 00030000
  31. .CONT2 ANOP 00031000
  32. &A1 SETA &A1+1 00032000
  33. AIF (&A1 LE 17).TEST1 00033000
  34. .OPMAX ANOP 00034000
  35. &A1 SETA 17 00035000
  36. MNOTE 0,'MORE THAN 16 FILES SPECIFIED' 00036000
  37. MNOTE *,'16 FILES GENERATED ONLY' 00037000
  38. AGO .OUT1 00038000
  39. .TEST1 ANOP 00039000
  40. AIF (&A1 LE N'&SYSLIST).LOOP1 00040000
  41. .OUT1 ANOP 00041000
  42. LA 1,=C'$$BOPENR' FETCH OPENR TRANSIENT PHASE 00042000
  43. CNOP 0,4 00043000
  44. IJJO&SYSNDX BAL 0,*+8+4*(&A1-1) TO RELOCATE DTF ADCONS 00044000
  45. DC A(*) ADDRESS USED BY OPENR FOR RELOCATION 00045000
  46. &A1 SETA 1 00046000
  47. .LOOP2 ANOP 00047000
  48. DC A(&SYSLIST(&A1)) FILENAME ADDRESS 00048000
  49. &A1 SETA &A1+1 00049000
  50. AIF (&A1 EQ 17).OUT2 00050000
  51. AIF (&A1 LE N'&SYSLIST).LOOP2 00051000
  52. .OUT2 ANOP 00052000
  53. SVC 2 00053000
  54. MEND 00054000