Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0094/tr.mac
There is 1 other file named tr.mac in the archive. Click here to see a list.
00100	TITLE IO
00150	ENTRY FINISH
00200	EXTERNAL PD8
00300	ENTRY OPEN1
00400	ENTRY OPEN2
00500	ENTRY LOK1
00600	ENTRY ENT1
00700	ENTRY CLOS1
00800	ENTRY CLOS2
00900	ENTRY OUT7
00950	ENTRY START
01000	ENTRY IN7
01050	ENTRY FINISH
01100	ENTRY REL
02100	
02200	
02300	
02400	
02500	
02600	
02700	
02800	
02900	SPEC:	16
03000		SIXBIT/DSK/
03100		0
03200	SPEC1:	16
03300		SIXBIT/DSK/
03400		0
03500	
03600	
03700	
03800	
03900	
04000	
04100	
04200	
04300	
04400	
04500	
04600	
04700	
04800	
04900	
05000	
05100	
05200	
05300	
05400	
05500	
05600	
05700	
05800	
05900	
06000	OPEN1:0
06100		OPEN 0,SPEC
06200		JUMPA ER1
06300		JRA 16,(16)
06400	
06500	
06600	
06700	
06800	OPEN2:0
06900		OPEN 1,SPEC1
07000		JUMPA ER2
07100		JRA 16,(16)
07200	LOK1:0
07300		LOOKUP  0,E
07400		JUMPA ER3
07500		JRA 16,(16)
07600	
07700	ENTRY CLOSE1
07800	CLOSE1:0
07900	
08000	ENT1:0
08100		ENTER 1,E1
08200		JUMPA ER4
08300		JRA 16,(16)
08400	
08500	
08600	
08700	E:	SIXBIT/PDP8/
08800		SIXBIT/MAC/
08900		0
09000		0
09100	E1:	SIXBIT/PDP8/
09200		SIXBIT/MAC/
09300		0
09400		0
09500	
09600	
09700	
09800	
09900	IN7:0
10000		INPUT 0,	[IOWD 11516,PD8
10100				Z]
10200		JRA 16,(16)
10300		JRA 16,(16)
10400	
10500	OUT7:0
10600		OUTPUT 1,	[IOWD 11516,PD8
10700				Z]
10800		JRA 16,(16)
10850		JRA 16,(16)
10900	CLOS1:0
11000		CLOSE 0,0
11100		JRA 16,(16)
11200	CLOS2:0
11300		CLOSE 1,0
11400		JRA 16,(16)
11500	REL:0
11600		RELEASE 0,
11700		RELEASE 1,
11800	ER1:OUTSTR[ASCIZ/IN OPEN PROB/]
11900	JUMPA OPEN1+1
12000	ER2:OUTSTR[ASCIZ/OUT OPEN PROB/]
12100	JUMPA OPEN2+2
12200	ER3:OUTSTR[ASCIZ/LOOKUP PROB/]
12300	JUMPA LOK1+1
12400	ER4:OUTSTR[ASCIZ/ENTER PROB/]
12500	JUMPA ENT1+1
12600	
12700	
12800	
12900	START:0
13000	JSA 16,OPEN1
13100	JSA 16,OPEN2
13200	JSA 16,LOK1
13300	JSA 16,ENT1
13400	JRA 16,(16)
13500	
13600	
13700	
13800	FINISH:0
13900	JSA CLOS1
14000	JSA CLOS2
14100	JSA 16,REL
14200	JRA 16,(16)
14300	END