(none)

Article View: comp.lang.asm370

Article #498

#498

From: RODOLFO
Date: Mon, 19 Nov 1990 21:27

30 lines
2475 bytes

TURN     CSECT ,                                                        SUM00010
         REGEQU                                                         SUM00020
         STM   14,12,12(13)                                             SUM00030
         BALR  12,0                   /* LOAD ENTRY POINT INTO BASE REG SUM00040
         USING *,12                   /* ESTABLISH BASE ADDRESSABILITY  SUM00050
         ST    13,$SAVEREG+4                                            SUM00060
         LA    14,$SAVEREG                                              SUM00070
         ST    14,8(,13)                                                SUM00080
         LR    13,14                  /* CHAIN OUR SAVE AREA            SUM00090
         B     $START                 /* GET THE SHOW ON THE ROAD       SUM00100
$SAVEREG DS    18F                    /* REGISTER SAVE AREA             SUM00110
$START   EQU   *                                                        SUM00120
         LA    4,TABLA                                                  SUM00130
         SR    5,5                                                      SUM00140
         SR    10,10                                                    SUM00150
         A     10,0(5,4)                                                SUM00160
         A     10,4(5,4)                                                SUM00170
         A     10,8(5,4)                                                SUM00180
TABLA    DC    BL4'10101'                                               SUM00190
         DC    BL4'11'                                                  SUM00200

hello, above is a program that i can't run. It give me a DATA EXCEPTION error

 I would appreciate any help.

Thanks in advance..

-rod...
         DC    BL4'10011'                                               SUM00210
         END                                                            SUM00220

Technical Details

Message-ID: <9011192127.AA04815@ucbvax.Berkeley.EDU>

Path:

arc1-ca.pugleaf.net!utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sun-barr!apple!bionet!agate!ucbvax!VMTECMEX.BITNET!RODOLFO

Show Full Headers

Complete Article Headers

Path: arc1-ca.pugleaf.net!utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sun-barr!apple!bionet!agate!ucbvax!VMTECMEX.BITNET!RODOLFO
From: RODOLFO@VMTECMEX.BITNET
Newsgroups: comp.lang.asm370
Subject: (none)
Message-ID: <9011192127.AA04815@ucbvax.Berkeley.EDU>
Date: 19 Nov 90 21:27:18 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Reply-To: IBM 370 Assembly Programming Discussion List
              <ASM370@OHSTVMA.BITNET>
Distribution: inet
Organization: The Internet
Lines: 30
X-Unparsable-Date: Mon, 19 Nov 90 15:12:54 MEX