16 lines
841 B
Text
16 lines
841 B
Text
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
|