AssemblyJourneyCodeLab/ASMP0616.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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
***********************************************************************
* OBJETIVOS: UTILIZAR UMA AREA DE MEMORIA COMPARTILHADA (COM)
***********************************************************************
* PROCEDIMENTOS DE INICIALIZACAO DO PROGRAMA (LINKAGE CONVENTION)
***********************************************************************
ASMP0616 AMODE 31
ASMP0616 RMODE 24
ASMP0616 CSECT
         INICIO ASMP0616,R12
***********************************************************************
* CORPO DO PROGRAMA
***********************************************************************
         OPEN  (SAIDA,OUTPUT)
         L     R9,=A(COMMAREA)
         USING COMMAREA,R9
         OI    COMM_FLAG00,COMM_OP05                      SETANDO OP 05
*
TST_OP01 EQU *
         TM    COMM_FLAG00,COMM_OP01
         BNO   TST_OP02
         MVC   MSG(19),=C' OPCAO 01 FOI SETADA'
         B     FIMPROG
*
TST_OP02 EQU *
         TM    COMM_FLAG00,COMM_OP02
         BNO   TST_OP03
               MVC   MSG+1(19),=C'OPCAO 02 FOI SETADA'
         B     FIMPROG
*
TST_OP03 EQU *
         TM    COMM_FLAG00,COMM_OP03
         BNO   TST_OP04
         MVC   MSG+1(19),=C'OPCAO 03 FOI SETADA'
         B     FIMPROG
*
TST_OP04 EQU *
         TM    COMM_FLAG00,COMM_OP04
         BNO   TST_OP05
         MVC   MSG+1(19),=C'OPCAO 04 FOI SETADA'
         B     FIMPROG
*
TST_OP05 EQU *
         TM    COMM_FLAG00,COMM_OP05
         BNO   TST_OP06
         MVC   MSG+1(19),=C'OPCAO 05 FOI SETADA'
         B     FIMPROG
*
TST_OP06 EQU *
         TM    COMM_FLAG00,COMM_OP06
         BNO   TST_OP07
         MVC   MSG+1(19),=C'OPCAO 06 FOI SETADA'
         B     FIMPROG
*
TST_OP07 EQU *
         TM    COMM_FLAG00,COMM_OP07
         BNO   TST_ERRO
         MVC   MSG+1(19),=C'OPCAO 07 FOI SETADA'
         B     FIMPROG
*
TST_ERRO EQU *
         MVC   MSG(14),=C'OPCAO INVALIDA'
*
FIMPROG  EQU   *
         PUT   SAIDA,MSG
         CLOSE SAIDA
***********************************************************************
* PROCEDIMENTOS DE FINALIZACAO DO PROGRAMA (LINKAGE CONVENTION)
***********************************************************************
         FIM
***********************************************************************
* DEFINICAO DE AREAS DE DADOS
***********************************************************************
MSG      DS    CL80
*
SAIDA    DCB   DDNAME=SAIDA,                                           *
               DSORG=PS,                                               *
               MACRF=PM,                                               *
               RECFM=FBA,                                              *
               LRECL=80,                                               *
               BLKSIZE=4000
*
         LTORG
*
         COPY  AREACOMM
*
         END   ASMP0616