000001 R0       EQU     0
000002 R1       EQU     1
000003 R2       EQU     2
000004 R3       EQU     3
000005 R4       EQU     4
000006 R5       EQU     5
000007 R6       EQU     6
000008 R7       EQU     7
000009 R8       EQU     8
000010 R9       EQU     9
000011 R10      EQU     10
000012 R11      EQU     11
000013 R12      EQU     12
000014 R13      EQU     13
000015 R14      EQU     14
000016 R15      EQU     15
000017 NOD      CSECT
000018          AMODE 24
000019          RMODE 24
000020          STM R14,R12,12(R13)
000021          LR R12,R15
000022          USING NOD,R12
000023          LR R11,R13
000024          LA R13,SAVE
000025          ST R11,4(,R13)
000026          ST R13,8(,R11)
000027 LOOP     DS 0H
000028          WTO 'LOOP'
000029          CP NUM1,NUM2
000030          BE ANSWER
000031          BH HIGH
000032          SP NUM2,NUM1
000033          B LOOP
000034 HIGH     DS 0H
000035          WTO 'HIGHER'
000036          SP NUM1,NUM2
000037          B LOOP
000038 ANSWER   DS 0H
000039          WTO 'GET RESULT'
000040          MVC GCD,MASK
000041          ED GCD,NUM1
000042          OPEN (FOUT,(OUTPUT))
000043          TM FOUT+48,X'10'
000044          BND ERR
000045          PUT FOUT,BUFF
000046          CLOSE FOUT
000047          WTO 'GOOD'
000048          B END
000049 ERR      DS 0H
000050          WTO 'OPENING ERROR'
000051 END      DS 0H
000052          L R13,SAVE+4
000053          LM R14,R12,12(R13)
000054          LA R15,0
000055          BR R14
000056 SAVE     DS 18F
000057 NUM1     DC PL2'48'
000058 NUM2     DC PL2'12'
000059 FOUT     DCB DDNAME=OUTPUT,DSORG=PS,MACRF=(PM),LRECL=80
000060 BUFF     DS 0CL80
000061 RESS     DC CL7'RESULT ='
000062 GCD      DS CL4
000063 BUF      DC 69X'40'
000064 MASK     DC X'20202020'
000065          END NOD