//ILRBIRD JOB (JOB),
//             'INSTALL ILRBIRD',
//             CLASS=A,
//             MSGCLASS=A,
//             MSGLEVEL=(1,1),
//             USER=IBMUSER,
//             PASSWORD=SYS1
//BUILD  EXEC ASMFCL,PARM.ASM='OBJECT,NODECK,XREF',
//             MAC1='SYS1.MACLIB',MAC2='SYS1.AMODGEN'
//*                                          
//ASM.SYSIN DD DATA,DLM=@@ 
ILRBIRD  CSECT
         STM   R14,R12,12(R13)
         BALR  R12,0
         USING *,R12
         ST    R13,SAVE+4
         LA    R2,SAVE
         ST    R2,8(R13)
         LR    R13,R2
         LA    R0,30
         LA    R2,LINE01
         XR    R3,R3
MOVEIT   LA    R4,DATAAREA         GET DATA AREA ADDR
         LA    R5,LENGTHDT         AND LENGTH
         XR    R6,R6               SET FROM ADDR TO ZERO
         XR    R7,R7               WITH ZERO LENGTH
         LA    R8,22               VALUE FOR COMPARE
         ICM   R7,8,FORTY          FILL CHARACTER IS BLANK
         MVCL  R4,R6               CLEAR THE BUFFER
         LA    R3,1(,R3)           BUMP THE COUNTER
         LA    R4,DATAAREA         POINT TO DATA AREA
         LA    R5,30               SET INCREMENT IN REG 5
         LR    R6,R3               COUNTER IN REG 6
         LR    R7,R2               POINT TO LINE01
         LA    R8,80               SET INCREMENT IN REG 8
         LA    R11,24              MAX LINES ON SCREEN
         SR    R11,R3              SUBTRACT COUNT
         MR    R10,R8
         AR    R4,R11
MOVEBIRD MVC   0(30,R4),0(R7)      MOVE A LINE
         AR    R7,R5               BUMP BY 30
         AR    R4,R8               BUMP BY 80
         BCT   R6,MOVEBIRD         BRANCH IF MORE
         CH    R3,=H'22'           ARE WE DONE
         BH    FINI                BR IF YES
TPUT     LA    5,PUTBUF            POINT TO STUFF TO BE WRITTEN
         LA    6,LENGTHBF          LOAD LENGTH OF BUFFER
         NI    0(5),X'BF'          TURN OFF FULLSCR BIT IN WCC
*                                  (ALA JIM LUCAS--TELLS TCAM4 FULLSCR)
         ICM   5,8,TPUTFLG         TPUT FLAG-WAIT,HOLD,NOBREAK,FULLSCR
         TPUT  (5),(6),R
         STIMER WAIT,BINTVL=X05
         B     MOVEIT
FINI     MVI   DATAAREA,X'C8'
         LA    R9,10
TPUTHIGH LA    5,PUTBUF            POINT TO STUFF TO BE WRITTEN
         LA    6,LENGTHBF          LOAD LENGTH OF BUFFER
         NI    0(5),X'BF'          TURN OFF FULLSCR BIT IN WCC
*                                  (ALA JIM LUCAS--TELLS TCAM4 FULLSCR)
         ICM   5,8,TPUTFLG         TPUT FLAG-WAIT,HOLD,NOBREAK,FULLSCR
         TPUT  (5),(6),R
         STIMER WAIT,BINTVL=X05
         LA    5,BUFBLANK          POINT TO STUFF TO BE WRITTEN
         LA    6,8                 LOAD LENGTH OF BUFFER
         NI    0(5),X'BF'          TURN OFF FULLSCR BIT IN WCC
*                                  (ALA JIM LUCAS--TELLS TCAM4 FULLSCR)
         ICM   5,8,TPUTFLG         TPUT FLAG-WAIT,HOLD,NOBREAK,FULLSCR
         TPUT  (5),(6),R
         BCT   R9,TPUTHIGH
         L     R13,SAVE+4
         LM    R14,R12,12(R13)
         SR    R15,R15
         BR    R14
SAVE     DC    18F'0'
LINE01   DC    C'                ##            '
LINE02   DC    C'               ####           '
LINE03   DC    C'               ####           '
LINE04   DC    C'               ####           '
LINE05   DC    C'               ####           '
LINE06   DC    C'               ####           '
LINE07   DC    C'           ### ####           '
LINE08   DC    C'          #### #### ###       '
LINE09   DC    C'      ### #### #### ####      '
LINE10   DC    C'     #### #### #### ####      '
LINE11   DC    C'     #### #### #### ####   ###'
LINE12   DC    C'     ###################  ####'
LINE13   DC    C'     ################### #### '
LINE14   DC    C'      ######################  '
LINE15   DC    C'       ####################   '
LINE16   DC    C'        ##################    '
LINE17   DC    C'         ################     '
LINE18   DC    C'          ##############      '
LINE19   DC    C'           ############       '
LINE20   DC    C'            ###########       '
LINE21   DC    C'            ###########       '
LINE22   DC    C'            ###########       '
LINE23   DC    C'                              '
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
X05      DC    F'5'
FORTY    DC    X'40'
TGETFLG  DC    X'81'         WAIT,ASIS
TPUTFLG  DC    X'0B'         WAIT HOLD,NOBREAK,ASIS
PUTBUF   DC    X'C71140403C4040001140401D'
DATAAREA DC    24CL80' '
LENGTHDT EQU   *-DATAAREA
LENGTHBF EQU   *-PUTBUF
ENDBUF   EQU   DATAAREA+1840
*GETBUF   DC    CL3' '   HOLD 7D4040
*         DC    24CL80' '
*LENGTHB2 EQU   *-GETBUF
*ENDMSG   DC    CL80'******* END OF LISTING *******             '
BUFBLANK DC    X'C71140403C404000'
         END
@@
//LKED.SYSLMOD DD DSN=SYS2.LINKLIB,DISP=SHR  <== TARGET
//LKED.SYSIN DD *
  ALIAS BIRD
  NAME ILRBIRD(R)
//*
