ibm:vm370-lib:macro:excp.macro_src
Table of Contents
EXCP Source
References
- Fixes Applied : 0
- This Source Date : Monday, November 7, 1977
- Last Fix ID : [Unmodified]
Source Listing
- EXCP.MACRO.txt
- MACRO 00001000
- &NAME EXCP &CCB,&KEYW 00002000
- LCLC &CL 00003000
- AIF ('&CCB' EQ '').L6 00004000
- AIF (T'&KEYW EQ 'O').L2 00005000
- AIF ('&KEYW'(1,5) EQ 'REAL').XCPR 00006000
- AIF ('&KEYW'(1,5) EQ 'BTAM').BTM 00007000
- MNOTE 5,'WRONG KEYWORD,MACRO IGNORED' 00008000
- MEXIT 00009000
- .XCPR ANOP 00010000
- &CL SETC '80' 00011000
- AGO .L2 00012000
- .BTM ANOP 00013000
- &CL SETC '40' 00014000
- .L2 ANOP 00015000
- AIF ('&CCB'(1,1) EQ '(').L1 00016000
- &NAME L 1,=A(&CCB) 00017000
- AGO .L4 00018000
- .L1 ANOP 00019000
- AIF ('&CCB'(2,2) EQ '1)').L5 00020000
- &NAME LR 1,&CCB(1) 00021000
- .L4 ANOP 00022000
- AIF ('&CL' EQ '').L3 00023000
- OI 6(1),X'&CL' SET ON KEYWORD INDICATOR 00024000
- .L3 ANOP 00025000
- SVC 0 00026000
- MEXIT 00027000
- .L6 ANOP 00028000
- MNOTE 5,'NO CCB SPECIFIED - MACRO IGNORED' 00029000
- MEXIT 00030000
- .L5 ANOP 00031000
- AIF ('&CL' EQ '').L7 00032000
- &NAME OI 6(1),X'&CL' SET ON KEYWORD INDICATOR 00033000
- AGO .L3 00034000
- .L7 ANOP 00035000
- &NAME SVC 0 00036000
- MEND 00037000
ibm/vm370-lib/macro/excp.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator