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