TSTMOD TITLE ' TSTMOD FUNCTION #00010000 C*********************************************************************** C COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991 * C*********************************************************************** TO TEST CURRENT ADDRESSING MODE ' 00020001 *TITLETSTMOD -- TEST AMODE 00030000 *A AUTHOR BOB KELLY 00040000 *A DESIGNER BOB KELLY 00050000 *A LANGUAGE S/370 ASSEMBLER H 00060000 *A SYSTEM IBM (SEE CRAY) 00070000 *A WRITTEN 07-30-85 00080000 *A 00090000 *A FORTRAN FUNCTION TO TEST CURRENT ADDRESSING MODE. 00100000 *A 00110000 *A I = TSTMOD (X) 00120002 *A 00130000 *A X INPUT DUMMY ARGUMENT 00140007 *A 00150002 *A I OUTPUT 1 31 BIT ADDRESSING 00160002 *A 0 24 BIT ADDRESSING 00170000 * 00180000 R0 EQU 0 00190000 R1 EQU 1 00200000 R2 EQU 2 00210000 R3 EQU 3 00220000 R4 EQU 4 00230000 R5 EQU 5 00240000 R6 EQU 6 00250000 R7 EQU 7 00260000 R8 EQU 8 00270000 R9 EQU 9 00280000 R10 EQU 10 00290000 R11 EQU 11 00300000 R12 EQU 12 00310000 R13 EQU 13 00320000 R14 EQU 14 00330000 R15 EQU 15 00340000 SPACE 00350000 TSTMOD CSECT 00360000 STM R14,R12,12(R13) 00370000 USING TSTMOD,R15 00380007 XR R9,R9 00390000 BSM R9,0 00400000 LTR R9,R9 00410000 BZ MODE24 00420007 LA R0,1 00430000 B GOBACK 00440000 MODE24 LA R0,0 00450000 GOBACK LM R2,R12,28(R13) 00460003 BR R14 00470000 LTORG 00480003 END 00490000