Task

Print out        SPAM        followed by a   newline   in an infinite loop.



Related tasks

   Loop over multiple arrays simultaneously
   Loops/Break
   Loops/Continue
   Loops/Do-while
   Loops/Downward for
   Loops/For
   Loops/For with a specified step
   Loops/Foreach
   Loops/Increment loop index within loop body
   Loops/Infinite
   Loops/N plus one half
   Loops/Nested
   Loops/While
   Loops/with multiple ranges
   Loops/Wrong ranges


 
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 
 