Path: utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!tut.cis.ohio-state.edu!ucbvax!TREARN.BITNET!PROHVK38
From: PROHVK38@TREARN.BITNET (orhan)
Newsgroups: comp.lang.asm370
Subject: (none)
Message-ID: <9003100632.AA13646@lilac.berkeley.edu>
Date: 10 Mar 90 06:32:54 GMT
References: <CACZ0200@GRTHEUN1>
Sender: daemon@ucbvax.BERKELEY.EDU
Reply-To: IBM 370 Assembly Programming Discussion List <ASM370%UCF1VM.bitnet@lilac.berkeley.edu>
Distribution: inet
Organization: The Internet
Lines: 25
X-Unparsable-Date: Sat, 10 Mar 90 06:37:06 TUR


          BALR  R12,R0
          USING *,R12
          LA    R4,X'009'
          LA    R5,CCW
TIO       TIO   0(R4)
          BNZ   TIO
          DIAG  R5,R4,X'58'
          LA    R2,=CL30'SLEEP 10 SEC'
          LA    R4,30
          DIAG  R2,R4,X'08'
          SLR   R15,R15
          BR    R14
          LTORG
ROW       EQU   20
COL       EQU   40
WIDTH     EQU   80
DATA      DC    X'C6,11',AL2(ROW*WIDTH+COL),C'ORHAN'
LENDATA   EQU   *-DATA
          DS   0D
CCW       DC    X'29',AL3(DATA),AL1(SILI),AL1(X'90'),AL2(LENDATA)
          REGEQU
          EQUATES
          END
/**/