Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
accept.c07
There is 1 other file named accept.c07 in the archive. Click here to see a list.
REP 13/1 ;07C1
;COPYRIGHT (C) 1973, 1981, BY DIGITAL EQUIPMENT CORPORATION
;
WIT
;COPYRIGHT (C) 1973, 1983, BY DIGITAL EQUIPMENT CORPORATION
;
;**** version 12B
;[1074] 19-AUG-83 JEH Fix twos complement routine
REP 59/3 ;07C2
AOJN 1,GETEOL ;ANSWER AND
AOJA 0,GETEOL ;EXIT
WIT
JCRY1 .+1 ;[1074] CLEAR FLAGS
AOS 1 ;[1074] ONE ADD TO LOW ORDER WORD
JCRY1 [TLZ 1,400000 ;[1074] SHUT OFF CARRY FLAG
AOJA 0,GETEOL] ;[1074] AND ADD ONE
JRST GETEOL ;[1074]
SUM 159204