Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: asmsample.hlasm Sprache: Hlasm

DBGMAIN  CEEENTRY PPA=MAINPPA,AUTO=WORKSIZE,MAIN=YES
         USING    WORKAREA,R13
*
         LA     R2,STRT_MSG
         LA     R3,DEST
         LA     R4,FBCODE
         STM  R2,R4,PLIST
         LA     R1,PLIST
         L        R15,MOUT
         BALR R14,R15
*
         PACK PCKA,ZNA
         PACK PCKB,ZNB
         PACK PCKC,ZNC
         ZAP    PCKSUM,PCKA
         AP      PCKSUM,PCKB
         AP      PCKSUM,PCKC
         MVC  OUTSUM,SUMMSK
         ED      OUTSUM,PCKSUM
         MVC  SUMMSG+1(8),OUTSUM
         MVC  LINE_ST,SUMMSG
*
         LA     R2,LINE_MSG
         LA     R3,DEST
         LA     R4,FBCODE
         STM  R2,R4,PLIST
         LA     R1,PLIST
         L        R15,MOUT
         BALR R14,R15
*
         LA     R2,DONE_MSG
         LA     R3,DEST
         LA     R4,FBCODE
         STM  R2,R4,PLIST
         LA     R1,PLIST
         L        R15,MOUT
         BALR R14,R15
*
         CEETERM  RC=0
* ==============================================================
*  Constants and Variables
* ==============================================================
ZLEN     EQU 5
PLEN     EQU ZLEN/2+1
*
SUMMSG   DC  C'(xxxxxxxx) -- The sum '
SUMMSK   DC  X'4020202020202120'
ZNA           DC  ZL5'100'
ZNB           DC  ZL5'150'
ZNC           DC  ZL5'50'
*
PCKA        DS  PL(PLEN)
PCKB        DS  PL(PLEN)
PCKC        DS  PL(PLEN)
PCKSUM   DS  PL(PLEN+1)
OUTSUM   DS  CL(L'SUMMSK)
*
MOUT     DC     V(CEEMOUT)        The CEL Message service
*
LINE_MSG DS     0F
              DC     AL2(LINE_END-LINE_ST)
LINE_ST   DS       CL25
LINE_END EQU    *
*
STRT_MSG DS     0F
                DC     AL2(STRT_END-STRT_ST)
STRT_ST  DC       C'Starting the program.'
STRT_END EQU    *
*
DONE_MSG DS     0F
                DC     AL2(DONE_END-DONE_ST)
DONE_ST  DC       C'Terminating the program.'
DONE_END EQU    *
*
DEST     DC     F'2'              The destination is the MSGFILE
*
MAINPPA  CEEPPA
* ===================================================================
*  The Workarea and DSA
* ===================================================================
WORKAREA DSECT
         ORG    *+CEEDSASZ
PLIST    DS     0D
PARM1    DS     A
PARM2    DS     A
PARM3    DS     A
PARM4    DS     A
PARM5    DS     A
*
FBCODE   DS     3F
*
         DS         0D
WORKSIZE EQU    *-WORKAREA
         CEEDSA                   Mapping of the Dynamic Save Area
         CEECAA                   Mapping of the Common Anchor Area
*
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
           END   DBGMAIN            Nominate DBGMAIN as the entry point

¤ Dauer der Verarbeitung: 0.2 Sekunden (vorverarbeitet) ¤

Download des Quellennavigators
Download des sprechenden Kalenders
in der Quellcodebibliothek suchen

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.