Trailing-Edge
-
PDP-10 Archives
-
bb-kl11i-bm_tops20_v7_0_atpch_1-22
-
autopatch/cobddt.c21
There are no other files named cobddt.c21 in the archive.
REP 1/1 ;21C1
; UPD ID= 1624 on 5/24/84 at 2:24 PM by HOFFMAN
TITLE COBDDT VERSION 13
WIT
; UPD ID= 1950 on 1/23/89 at 1:02 PM by KSTEVENS
TITLE COBDDT VERSION 13
REP 26/1 ;21C2
EDIT==50
WIT
EDIT==51
INS 72/2 ;21C3
;.AUTOPATCH 16
;.NOEDIT
;.ENDA
;.AUTOPATCH 17
;.NOEDIT
;.ENDA
;.AUTOPATCH 18
;.NOEDIT
;.ENDA
;.AUTOPATCH 19
;.NOEDIT
;.ENDA
;.AUTOPATCH 20
;.NOEDIT
;.ENDA
;.AUTOPATCH 21
;.EDIT 51 Make COBDDT so that it can co-exist with SORT/RMS
; KWS,12-DEC-88,SPR:20-21892
; A:SRC COBDDT
;.ENDA
INS 5/12 ;21C4
TMPSTK: BLOCK 5 ;[51]TEMPORARY STACK
XTDBLK: 3 ;[51]THREE WORD BLOCK FOR EXTENDED STUFF
z ;[51]
z ;[51]
SAVADR: BLOCK 1 ;[51]SAVE ADDRESS
REP 41/13 ;21C5
.BPAUT==3 ; AUTO LIST
WIT
.BPAUT==3 ; AUTO LIST
INS 6/19 ;21C6
MOVE PP,[IOWD 5,TMPSTK] ;[51]CREATE TEMPORARY STACK
REP 28/19 ;21C7
RSTACS ;RESTORE ACS
JRST @.JBOPC## ;AND CONTINUE AS PLANNED
WIT
IFN TOPS20,<
MOVEI 1,.FHSLF ;[51]SELF PROCESS HANDLE
MOVEI 2,XTDBLK ;[51]ARG. BLOCK
XRIR% ;[51]READ BLOCK
ERJMP [RSTACS ;[51]PROBABLY 4.1 MONITOR
JRSTF @.JBOPC##];[51]4.1 MONITOR... OLD WAY
MOVE 1,XTDBLK+1 ;[51]GET TABLE ADDRESS
MOVE 1,(1) ;[51]FIRST INDIRECTION...
MOVEM 1,SAVADR ;[51]SAVE ADDRESS
RSTACS ;[51]RESTORE ACS
XJRSTF @SAVADR ;[51]RETURN TO PROGRAM
ERJMP .+1
> ;[51]END OF IFN
RSTACS ;RESTORE AC'S
JRSTF @.JBOPC## ;AND CONTINUE AS PLANNED
REP 118/56 ;21C8
WIT
REP 22/57 ;21C9
JRST DECOD ;GO TRY AGAIN
WIT
JRST DECOD ;GO TRY AGAIN
REP 6/70 ;21C10
MOVEM T2,PNM ; [13] STORE INTO PROCEED
MOVE T2,@%DT ; [13] ADDR OF %DT
MOVEM T2,PDT ; [13] STORE INTO PROCEED
MOVE T2,@%PR ; [13] ADDR OF %PR
MOVEM T2,PPR ; [13] STORE INTO PROCEED
WIT
MOVEM T2,PNM ; [13] STORE INTO PROCEED
MOVE T2,@%DT ; [13] ADDR OF %DT
MOVEM T2,PDT ; [13] STORE INTO PROCEED
MOVE T2,@%PR ; [13] ADDR OF %PR
MOVEM T2,PPR ; [13] STORE INTO PROCEED
REP 34/71 ;21C11
MOVEM T1,BNM ; [13] STORE INTO BREAK
MOVE T1,@%DT ; [13] ADDR OF %DT
MOVEM T1,BDT ; [13] STORE INTO BREAK
MOVE T1,@%PR ; [13] ADDR OF %PR
MOVEM T1,BPR ; [13] STORE INTO BREAK
WIT
MOVEM T1,BNM ; [13] STORE INTO BREAK
MOVE T1,@%DT ; [13] ADDR OF %DT
MOVEM T1,BDT ; [13] STORE INTO BREAK
MOVE T1,@%PR ; [13] ADDR OF %PR
MOVEM T1,BPR ; [13] STORE INTO BREAK
REP 32/118 ;21C12
JRST XECUTC ;[26]
WIT
JRST XECUTC ;[26]
REP 62/134 ;21C13
ADD DT,@%DT ;[50]
WIT
ADD DT,@%DT ;[50]
REP 16/167 ;21C14
JRST MODX ;[26]
WIT
JRST MODX ;[26]
REP 2/178 ;21C15
;ENTER WITH T1 = INPUT BYTE POINTER OR ZERO
WIT
;ENTER WITH T1 = INPUT BYTE POINTER OR ZERO
SUM 219455