home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / emulate / systems / pc370 / mac / getmain.mac < prev    next >
Text File  |  1987-08-12  |  663b  |  40 lines
  1. GETMAIN  MACRO RU,LV=(1),A=?
  2.      AIF   /&LABEL$$=/ .GO
  3. &LABEL$$ EQU   *
  4. .GO     AIF   &1=V.TYPEV
  5.      AIF   &LV=(.REG
  6.      AIF   &LV>4095.L
  7.      LA    1,&LV
  8.      AGO   .SVC
  9. .L     L     1,=F'&LV'
  10.      AGO   .SVC
  11. .REG     AIF   &LV=(1).SVC
  12.      LR    1,&LV
  13. .SVC     SVC   10
  14.      LTR   0,0
  15.      BZ    *+16
  16.      LA    2,=C'ABEND 80A$'
  17.      SVC   209
  18.      SVC   9
  19.      DC    C'BUG '
  20.      AIF   &1=R.STORE
  21.      AIF   &A=?.STORE
  22.      ST    2,&A
  23.      AGO   .END
  24. .STORE     LR    1,2
  25.      AGO   .END
  26. .TYPEV     L     1,&LA+4
  27.      SVC   10
  28.      LTR   0,0
  29.      BZ    *+26
  30.      C     1,&LA
  31.      BNL   *+16
  32.      LA    2,=C'ABEND 80A$'
  33.      SVC   209
  34.      SVC   9
  35.      DC    C'BUG '
  36.      SVC   10
  37.      ST    1,&A+4
  38.      ST    2,&A
  39. .END     ANOP
  40.