INFINITE CSECT ,                       this PGM control section
INFINITE AMODE 31                      addressing mode 31 bit
INFINITE RMODE ANY                     loader can load either 24 or 31
         BAKR  14,0                    stack caller's register contents
         LR    12,15                   establish base
         LA    13,0                    no savearea
         USING INFINITE,12             base to assembler
         LA    10,1                    1 in reg 10
         LA    11,2                    2 in reg 11
LOOP     EQU   *
         CR    10,11                   1==2?
         BE    RETURN                  Yes, exit.
        WTO    'SPAM',ROUTCDE=11       print SPAM to syslog
         B     LOOP                    No, check again.
RETURN   PR    ,                       return to caller
         END   INFINITE