Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-11 - 43,50530/ttcall.mac
There are 2 other files named ttcall.mac in the archive. Click here to see a list.
00100		title TTCALL - TTCALLS for PASCAL
00200	
00300		p=17
00400		reg=2
00500		reg1=3
00600		reg2=4
00700		t0=0
00800		t1=1
00900	
00950		twoseg
00975		reloc 400000
01000		entry inchrw,outchr,inchrs,outstr,inchwl
01100		entry inchsl,getlch,setlch,rescan,clrbfi,clrbfo
01200		entry skpinc,skpinl,ioneou
01300	
01400	inchrw:	ttcall 0,1(p)
01500		popj p,
01600	
01700	outchr:	ttcall 1,reg
01800		popj p,
01900	
02000	inchrs:	ttcall 2,(reg)
02100		jrst no
02200		jrst yes
02300	
02400	outstr:	ttcall 3,(reg)
02500		popj p,
02600	
02700	inchwl:	ttcall 4,1(p)
02800		popj p,
02900	
03000	inchsl:	ttcall 5,(reg)
03100		jrst no
03200		jrst yes
03300	
03400	getlch:	movem reg,1(p)
03500		ttcall 6,1(p)
03600		popj p,
03700	
03800	setlch:	ttcall 7,reg
03900		popj p,
04000	
04100	rescan:	ttcall 10,1
04200		jrst yes
04300		jrst no
04400	
04500	clrbfi:	ttcall 11,
04600		popj p,
04700	
04800	clrbfo:	ttcall 12,
04900		popj p,
05000	
05100	skpinc:	ttcall 13,
05200		jrst no
05300		jrst yes
05400	
05500	skpinl:	ttcall 14,
05600		jrst no
05700		jrst yes
05800	
05900	ioneou:	ttcall 15,reg
06000		popj p,
06100	
06200	no:	setzm 1(p)
06300		popj p,
06400	
06500	yes:	movei t0,1
06600		movem t0,1(p)
06700		popj p,
06800	
06900		end
07000