Source-Recovery Home Page

Source Recovery of COBOL or Assembler source code from IBM MVS or VSE executable programs

Before and After Code Samples

The ReSource™ technology determines the version of COBOL or Assembler in which the source code was originally written. SRC recovers the source in the original "version" of that language.

Below is an Assembler before and after recovery sample.
Click HERE for a COBOL recovery sample.

Assembler - Before ReSource/Recovery™

Assembler - After ReSource/Recovery™

DEMO     CSECT
         USING DEMO,R15
         SAVE  (14,12),,'SAVE REGISTERS'
         LR    R12,R15
         DROP  R15
         USING DEMO,R12
         ST    R13,SAVEAREA+4
         LA    R13,SAVEAREA
         OPEN  (INFILE,INPUT)
         OPEN  (OUTFILE,OUTPUT)
         OPEN  (PRTFILE,OUTPUT)
MAINLOOP GET   INFILE,INAREA             READ A RECORD
         AP    CTR,=P'1'
         PUT   OUTFILE,INAREA            WRITE RECORD
         B     MAINLOOP
*
EODAD    DS 0H
         MVI   PRTAREA,C'1'              SET UP PRINT LINE AND PRINT
         MVC   PRTAREA+10(13),=CL13'DEMO PROGRAM.'
         MVC   PRTAREA+30(34),=CL34'NUMBER OF OUTPUT RECORDS WRITTEN ='
         MVC   PRTAREA+64(10),EDITCTR
         ED    PRTAREA+64(10),CTR
         PUT   PRTFILE,PRTAREA
*
         WTO   'IT''S THE ELEVENTH HOUR. DO YOU KNOW WHERE YOUR SOURCE *
               CODE IS?'
*
         CLOSE (INFILE,REWIND)
         CLOSE (OUTFILE)
         CLOSE (PRTFILE)
EXIT0    SLR   R15,R15
EXITWRC  RETURN (14,12),T,RC=(15)        EXIT WITH RETURN CODE
*
INFILE   DCB   DDNAME=TAPE,              DEFINE THE INPUT FILE         *
               DSORG=PS,                                               *
               EODAD=EODAD,                                            *
               RECFM=FB,                                               *
               LRECL=100,                                              *
               MACRF=GM
OUTFILE  DCB   DDNAME=DISK,              DEFINE THE OUTPUT FILE        *
               DSORG=PS,                                               *
               RECFM=FB,                                               *
               LRECL=100,                                              *
               MACRF=PM
PRTFILE  DCB   DDNAME=PRINT,             DEFINE THE PRINT FILE         *
               DSORG=PS,                                               *
               RECFM=FBA,                                              *
               LRECL=133,                                              *
               MACRF=PM
*
SAVEAREA DC    18F'0'                    CONSTANTS AND WORKAREAS
INAREA   DS    CL100
PRTAREA  DC    CL133' '
CTR      DC    PL4'0'
EDITCTR  DC    X'40206B2020206B202120'
*
R0       EQU   0                         REGISTER EQUATES
R1       EQU   1
R2       EQU   2
R3       EQU   3
R4       EQU   4
R5       EQU   5
R6       EQU   6
R7       EQU   7
R8       EQU   8
R9       EQU   9
R10      EQU   10
R11      EQU   11
R12      EQU   12
R13      EQU   13
R14      EQU   14
R15      EQU   15
         END

DEMO     CSECT                                                          00000000
***********************************************************************
**                                                                    *
**       RECOVERED BY RESOURCE: (C)        *
**                                                                    *
**  SOURCE RECOVERY DATE: JUNE 23, 1998                               *
** ORIGINAL COMPILE DATE: 06/23/98                                    *
**                                                                    *
** THE ORIGINAL MACRO LIBRARY USED WAS MVS/ESA                        *
**                                                                    *
** NOTES:                                                             *
**                                                                    *
***********************************************************************
         PRINT DATA                                                     00000000
R0       EQU   0
R1       EQU   1
R2       EQU   2
R3       EQU   3
R4       EQU   4
R5       EQU   5
R6       EQU   6
R7       EQU   7
R8       EQU   8
R9       EQU   9
R10      EQU   10
R11      EQU   11
R12      EQU   12
R13      EQU   13
R14      EQU   14
R15      EQU   15
         SAVE  (14,12),           SAVE REGISTERS 14 THROUGH 12         *00000000
               ,                  SAVE REGISTERS R14/R15 NORMALLY      *
               'SAVE REGISTERS'   PROGRAM IDENTIFIER/EYECATCHER
         LR    R12,R15                                   18CF           00000018
         USING DEMO,R12                                                 0000001A
         ST    R13,PGM0023C                              50D0 C23C      0000001A
         LA    R13,PGM00238                              41D0 C238      0000001E
* OPEN A FILE
         OPEN  (DCB1,(INPUT)),    DDNAME=TAPE                          *00000024
               MF=I               MACRO FORMAT=INSTREAM PLIST
* OPEN A FILE
         OPEN  (DCB2,(OUTPUT)),   DDNAME=DISK                          *00000030
               MF=I               MACRO FORMAT=INSTREAM PLIST
* OPEN A FILE
         OPEN  (DCB3,(OUTPUT)),   DDNAME=PRINT                         *0000003C
               MF=I               MACRO FORMAT=INSTREAM PLIST
* READ RECORDS FROM A DATA FILE
PGM00046 GET   DCB1,              READ USING DDNAME=TAPE               *00000046
               PGM00280           PGM00280 IS THE I/O BUFFER
         AP    PGM00369,PGM0039A                         FA30 C369 C39A 00000056
* WRITE RECORDS TO A DATA FILE
         PUT   DCB2,              WRITE USING DDNAME=DISK              *0000005C
               PGM00280           PGM00280 IS THE I/O BUFFER
         B     PGM00046                                  47F0 C046      0000006C
PGM00070 DS    0H                                                       00000070
         MVI   PGM002E4,C'1'                             92F1 C2E4      00000070
         MVC   PGM002EE,PGM0039B                         D20C C2EE C39B 00000074
         MVC   PGM00302,PGM00378                         D221 C302 C378 0000007A
         MVC   PGM00324,PGM0036D                         D209 C324 C36D 00000080
         ED    PGM00324,PGM00369                         DE09 C324 C369 00000086
* WRITE RECORDS TO A DATA FILE
         PUT   DCB3,              WRITE USING DDNAME=PRINT             *0000008C
               PGM002E4           PGM002E4 IS THE I/O BUFFER
* DISPLAY A MESSAGE ON AN OPERATOR'S CONSOLE
         WTO   ('IT''S THE ELEVENTH HOUR. DO YOU KNOW WHERE YOUR SOURCE*0000009C
                CODE IS?')        TEXT TO DISPLAY
* CLOSE A FILE
         CLOSE (DCB1,REWIND),     DDNAME=TAPE                          *000000E4
               MF=I               MACRO FORMAT=INSTREAM PLIST
* CLOSE A FILE
         CLOSE (DCB2,),           DDNAME=DISK                          *000000F0
               MF=I               MACRO FORMAT=INSTREAM PLIST
* CLOSE A FILE
         CLOSE (DCB3,),           DDNAME=PRINT                         *000000FC
               MF=I               MACRO FORMAT=INSTREAM PLIST
         SLR   R15,R15                                   1FFF           00000106
         RETURN (14,12),          RESTORE REGS AND RETURN TO THE CALLER*00000108
               T,                 MARK THE SAVE AREA NO LONGER IN USE  *
               RC=(15)            EXIT WITH RETURN CODE THAT'S IN R15
*** P R E V I O U S   M A C R O   R E T U R N S   T O   C A L L E R ***
         DC    H'0'                                                     00000116
* DEFINE AN INPUT FILE'S DATA CONTROL BLOCK
DCB1     DCB   DDNAME=TAPE,       DCB LENGTH=96 (X'60')        *00000118
               DSORG=PS,          DATA SET ORG=PHYSICAL SEQUENTIAL     *
               EODAD=PGM00070,    END OF DATA ADDRESS                  *
               LRECL=100,         LOGICAL RECORD LENGTH                *
               RECFM=FB,          RECORD FORMAT=FIXED, BLOCKED         *
               MACRF=GM           MACRO FORMAT=GET MOVE
* DEFINE AN OUTPUT FILE'S DATA CONTROL BLOCK
DCB2     DCB   DDNAME=DISK,       DCB LENGTH=96 (X'60')                *00000178
               DSORG=PS,          DATA SET ORG=PHYSICAL SEQUENTIAL     *
               LRECL=100,         LOGICAL RECORD LENGTH                *
               RECFM=FB,          RECORD FORMAT=FIXED, BLOCKED         *
               MACRF=PM           MACRO FORMAT=PUT MOVE
* DEFINE AN OUTPUT FILE'S DATA CONTROL BLOCK
DCB3     DCB   DDNAME=PRINT,      DCB LENGTH=96 (X'60')                *000001D8
               DSORG=PS,          DATA SET ORG=PHYSICAL SEQUENTIAL     *
               LRECL=133,         LOGICAL RECORD LENGTH                *
               RECFM=FBA,         RECORD FORMAT=FIXED, BLOCKED, ASA CAR*
               MACRF=PM           MACRO FORMAT=PUT MOVE
PGM00238 DC    F'0'                                                     00000238
PGM0023C DC    3F'0'                                                    0000023C
         DC    XL56'00'                                                 00000248
PGM00280 DC    XL100'00'                                                00000280
PGM002E4 DC    CL10' '                                                  000002E4
PGM002EE DC    CL13' '                                                  000002EE
         DC    CL7' '                                                   000002FB
PGM00302 DC    CL34' '                                                  00000302
PGM00324 DC    CL10' '                                                  00000324
         DC    CL59' '                                                  0000032E
PGM00369 DC    PL4'0'                                    0000000C       00000369
PGM0036D DC    X'40206B2020206B202120'                   40206B202020   0000036D
         DC    X'00'                                                    00000377
PGM00378 DC    C'NUMBER OF OUTPUT RECORDS WRITTEN ='     D5E4D4C2C5D9   00000378
PGM0039A DC    PL1'1'                                    1C             0000039A
PGM0039B DC    C'DEMO PROGRAM.'                          C4C5D4D640D7   0000039B
         LTORG ,                  PUT LITERAL POOL HERE                 0000039B
         END                                                            0000039B