AssemblyJourneyCodeLab/ASMP0603.ASM at main · fmarqueseti/AssemblyJourneyCodeLab · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
***********************************************************************
* OBJETIVOS: CRIACAO DE UMA AREA DE DADOS, RECEBER UM TEXTO VIA SYSIN
*            E REALIZAR UM LACO PARA PUT UM DATA SET.
*            EXTRACAO DAS ROTINAS DE LINKAGE CONVENTION PARA MACROS
*            QUE CRIAMOS (INICIO E FIM)
***********************************************************************
* PROCEDIMENTOS DE INICIALIZACAO DO PROGRAMA (LINKAGE CONVENTION)
***********************************************************************
ASMPXX03 AMODE 31
ASMPXX03 RMODE 24
ASMPXX03 CSECT
         INICIO ASMPXX03,R12
***********************************************************************
* CORPO DO PROGRAMA
***********************************************************************
         OPEN  (SAIDA,OUTPUT)
         OPEN  (ENTRADA,INPUT)
LEREG    EQU   *
         GET   ENTRADA,MSG
         PUT   SAIDA,MSG
         B     LEREG
FIMARQ   EQU   *
         CLOSE SAIDA
         CLOSE ENTRADA
***********************************************************************
* PROCEDIMENTOS DE FINALIZACAO DO PROGRAMA (LINKAGE CONVENTION)
***********************************************************************
         FIM
***********************************************************************
* DEFINICAO DE AREAS DE DADOS
***********************************************************************
MSG      DS    0CL80
MSGOUT   DS    CL20
         DC    60CL1' '
*
SAIDA    DCB   DDNAME=SAIDA,                                           *
               DSORG=PS,                                               *
               MACRF=PM,                                               *
               RECFM=FBA,                                              *
               LRECL=80,                                               *
               BLKSIZE=4000
*
ENTRADA  DCB   DDNAME=ENTRADA,                                         *
               DSORG=PS,                                               *
               MACRF=GM,                                               *
               RECFM=FB,                                               *
               LRECL=80,                                               *
               BLKSIZE=4000,                                           *
               EODAD=FIMARQ
*
         LTORG
*
         END