10 lines
712 B
Text
10 lines
712 B
Text
0000 0000 1 .entry main,0
|
|
4D415053 8F DD 0002 2 pushl #^a"SPAM" ;string on stack
|
|
5E DD 0008 3 pushl sp ;reference to string
|
|
04 DD 000A 4 pushl #4 ;+length = descriptor
|
|
000C 5 loop:
|
|
5E DD 000C 6 pushl sp ;descriptor by reference
|
|
00000000'GF 01 FB 000E 7 calls #1, g^lib$put_output ;show message
|
|
F5 11 0015 8 brb loop ;forever
|
|
0017 9
|
|
0017 10 .end main
|