/ / PDP-11 C. / Stdio. / / delay(interval, magnitude) / .globl delay delay: clr -(sp) mov 4(sp),-(sp) /Interval mov 10(sp),-(sp) /Magnitude mov $1,-(sp) /Efn. mov $23.+[5.<<8.],-(sp) /Mark time. emt 377 bcs 0f mov $1,-(sp) /Waitfor the flag. mov $41.+[2.<<8.],-(sp) emt 377 0: mov _dsw,r0 return