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