Trailing-Edge
-
PDP-10 Archives
-
tops10_703a_sys_ap115_bb-ju01b-bb
-
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
INS 21/155 ;09C2
LRSTOR A4,%SYS18(DB) ;[356]
REP 1/156 ;09C3
CORE4: HRRZ A0,.JBUUO ; RESTORE SHIFT
ADD DL,A0 ; MOVE UP DL
; [E127] ADDM A0,%TTY+BYTPTR(DB)
WIT
CORE4: HRRZ A0,.JBUUO ; RESTORE SHIFT
ADD DL,A0 ; MOVE UP DL
INS 13/156 ;09C4
LRLOAD A4,%SYS18(DB) ;[356]
REP 16/156 ;09C5
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 23/156 ;09C6
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 146899