Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/matgen.c13
There are 2 other files named matgen.c13 in the archive. Click here to see a list.
REP 11/1 ;13C1
COPYRIGHT (C) 1974, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION
WIT
COPYRIGHT (C) 1974, 1983, 1986 BY DIGITAL EQUIPMENT CORPORATION
INS 26/1 ;13C2
;MJC 10-Jan-86 [1623] ADD 1 TO .. GIVING .. does not load 1 in AC
;V13 RELEASED
REP 29/3 ;13C3
ADTGGN: SETZM RESTYP ;FORCE RESULT TO "MOVEM"
WIT
ADTGGN: MOVE TC,RESTYP ;[1623]GET RESTYP LEFT BY ADD
CAIGE TC,3 ;[1623]AOS OR SOS?
JRST ADTGG1 ;[1623]NO - OK
MOVE CH,RESTYP ;[1623]YES - "A" MUST HAVE BEEN 1/-1
CAIE CH,3 ;[1623]CAN'T USE AOS OR SOS WITH 'GIVING'
SKIPA CH,[MOVNI.,,1] ;[1623]PUT NEG 1 IN AN AC IF SOS
MOVE CH,[MOVEI.,,1] ;[1623] OR PLUS 1 IF AOS
PUSHJ PP,PUT.XA ;[1623]GET 1 INTO ACCS
SWOFF FALWY0 ;[1623]ACCS NOT ZERO NOW
MOVEI TE,D1MODE ;[1623]
MOVEM TE,EMODEA ;[1623]SET MODE OF A
MOVEI TE,1 ;[1623]
MOVEM TE,ESIZEA ;[1623]AND SIZE
ADTGG1: SETZM RESTYP ;[1623]FORCE RESULT TO "MOVEM"
SUM 115645