ibm:vm370-lib:macro:hexdec.macro_src
Table of Contents
HEXDEC Source
References
- Fixes Applied : 0
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [Unmodified]
Source Listing
- HEXDEC.MACRO.txt
- MACRO 00001000
- HEXDEC 00002000
- .* THIS MACRO CONVERTS A HEX CHARACTER TO A DECIMAL NUMBER 00003000
- GBLA &DEC 00004000
- GBLB &RCODE 00005000
- GBLC &HEX 00006000
- AIF ('&HEX' GE '0' AND '&HEX' LE '9').N09 00007000
- AIF ('&HEX' EQ 'A').N10 00008000
- AIF ('&HEX' EQ 'B').N11 00009000
- AIF ('&HEX' EQ 'C').N12 00010000
- AIF ('&HEX' EQ 'D').N13 00011000
- AIF ('&HEX' EQ 'E').N14 00012000
- AIF ('&HEX' EQ 'F').N15 00013000
- &RCODE SETB 1 00014000
- MEXIT 00015000
- .N09 ANOP 00016000
- &DEC SETA &HEX 00017000
- AGO .END 00018000
- .N10 ANOP 00019000
- &DEC SETA 10 00020000
- AGO .END 00021000
- .N11 ANOP 00022000
- &DEC SETA 11 00023000
- AGO .END 00024000
- .N12 ANOP 00025000
- &DEC SETA 12 00026000
- AGO .END 00027000
- .N13 ANOP 00028000
- &DEC SETA 13 00029000
- AGO .END 00030000
- .N14 ANOP 00031000
- &DEC SETA 14 00032000
- AGO .END 00033000
- .N15 ANOP 00034000
- &DEC SETA 15 00035000
- .END ANOP 00036000
- &RCODE SETB 0 00037000
- MEND 00038000
ibm/vm370-lib/macro/hexdec.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator