Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/algots.c09
There are 14 other files named algots.c09 in the archive. Click here to see a list.
REP 3/1 ;09C1
;COPYRIGHT (C) 1975,1982,1983 BY
WIT
;COPYRIGHT (C) 1975,1982,1983,1984 BY
REP 21/94 ;09C2
PUSHJ 17,GETERR ; [316] YES, FATAL ERROR
WIT
PUSHJ SP,GETERR ; [316] YES, FATAL ERROR
REP 26/94 ;09C3
PUSHJ 17,GETERR ; [316] NO
WIT
PUSHJ SP,GETERR ; [316] NO
REP 36/94 ;09C4
PUSHJ 17,GETERR ; [316] [263] NO, ERROR
WIT
PUSHJ SP,GETERR ; [316] [263] NO, ERROR
REP 41/94 ;09C5
PUSHJ 17,GETERR ; [316] NOPE
WIT
PUSHJ SP,GETERR ; [316] NOPE
INS 52/152 ;09C6
DMOVEM A4,%SYS18(DB) ;[356]
INS 1/153 ;09C7
INS 12/153 ;09C8
DMOVE A4,%SYS18(DB) ;[356]
REP 15/153 ;09C9
CORE5: MOVEI A2,STKEXT+1(SP)
HRLI A2,(A2)
SUBI A2,(A1)
MOVS A2,A2
WIT
CORE5: HRLI A1,0 ;[354] CLEAR T1 LEFTHALF
MOVEI A2,STKEXT+1(SP)
MOVE A4,A2 ;[354]
SUB A4,A1 ;[354]
SUB A4,A1 ;[354]
REP 22/153 ;09C10
CORE6: MOVE A0,A2 ; COPY BLT POINTER
BLT A0,(A3) ; AND MOVE A BLOCK
SUB A2,A1 ; MOVE DOWN POINTER
SUBI A3,(A1) ; AND LAST ADDRESS
CAIGE DB,(A2) ; TOO LOW OR HOME?
JRST CORE6 ; NO - KEEP GOING
MOVEI A1,(DB)
SUBI A1,(A2) ; GET DIFFERENCE
HRLI A1,(A1)
ADD A2,A1 ; NO - CORRECT BLT POINTER
WIT
CORE6: HRL A0,A4 ;[354]
HRR A0,A2 ;[354]
BLT A0,(A3) ; AND MOVE A BLOCK
SUB A2,A1 ; MOVE DOWN POINTER
SUB A3,A1 ;[354] AND LAST ADDRESS
SUB A4,A1 ;[354]
CAMGE DB,A2 ;[354] TOO LOW OR HOME?
JRST CORE6 ;[354] NO, KEEP GOING
HRRZ A1,DB ;[354]
SUB A1,A2 ;[354] GET DIFFERENCE
ADD A4,A1 ;[354]
ADD A2,A1 ;[354] CORRECT BLT POINTER
HRL A2,A4 ;[354]
SUM 200872