Here is the code from the Ultrix Fortran. As in all stuff I sent you, have
cleaned up the code to the actual executing code, and have left out the data
areas. The source code is the same as for VMS Fortran.
_swert_: .word LWM1
subl2 $LF1,sp
jbr L12
.align 1
L12: moval v.1,r11
movl v.2-v.1(r11),r10
movl $1,r10
L19: addf3 _zork_+796[r10],_zork_+396[r10],r0
movf r0,_zork_+-4[r10]
aobleq $100,r10,L19
movl r10,v.2-v.1(r11)
ret
SunGod:
It appears the v.1 and v.2 stuff is the fetch and save of I. Why they don't
just call it I is beyond me. Hope this helps.
jhon