movl (sp)+,r0 #r0 has line limit
movl $0x7fffffff,r0 #non-positive indicates no limit
movl *(sp)+,r1 #r1 has file
cvtwl (r10)+,r2 #r2 has size of character array
movl (sp)+,r3 #r3 has addr of character array
cvtwl (sp)+,r4 #r4 has subscript into argv
movl *_argv[r4],r4 #r4 has pointer to argv string
locc $0,r2,(r4) #find end of string
subl3 r0,r2,r0 #calculate actual string length
movc5 r0,(r4),$blank,r2,(r3) #move with blank fill
pushal -(sp) #space for time
aoblss _stlim,_stcnt,l2812
.double 0d2.147483647e+09
movl (sp)+,r6 #r6 points to pointer
pushl (r6) #fetch pointer value
calls $1,_pfree #free space
clrl (r6) #set pointer to nil
# with: a: array[m..n] of t
# z: packed array[u..v] of t
# semantics: for j := u to v do
# 2. i+(v-u) <= n (i.e. i-m <= (n-m)-(v-u))
# on stack: lv(z), lv(a), rv(i) (len 2)
# move w(t)*(v-u+1) bytes from lv(a)+w(t)*(i-m) to lv(z)
cvtwl (r10)+,r0 #r0 has size of "a" types
clrl r1 #r1 := subscript - lower_bound
cvtwl (r10)+,r3 #r3 := high_bound
index r1,$0,r3,r0,$0,r4 #r4 has index of "a"
movc3 (r10)+,*4(sp)[r4],*(sp) #make the move
addl2 $10,sp #clear the stack
# with: z and a as in pack
# semantics: for j := u to v do
cvtwl (r10)+,r0 #r0 has size of "a" types
clrl r1 #r1 := subscript - lower_bound
cvtwl (r10)+,r3 #r3 := high_bound
index r1,$0,r3,r0,$0,r4 #r4 has index of "a"
movc3 (r10)+,*(sp),*4(sp)[r4] #make the move
addl2 $10,sp #clear the stack