Trailing-Edge
-
PDP-10 Archives
-
BB-L014E-BM
-
autopatch/cobddt.c04
There are no other files named cobddt.c04 in the archive.
REP 2/2 ;04C1
WIT
;COBDDT EDIT HISTORY FOR AUTOPATCH
;
;.BEGINR
;.VERSION 12B
;.AUTOPATCH 4
;.EDIT 42 FIX SUBSCRIPT HANDLING TO PREVENT WRONG RESULTS WHEN USING COMP
; AST,02-OCT-81,SPR:20-16377
; A:SRC COBDDT
;
;.EDIT 41 DATA-NAME QUALIFICATION SOMETIMES FAILS
; DMN,18-AUG-81,SPR:20-16561
; A:SRC COBDDT
;
;.EDIT 40 TOPS-20 BREAK CHARACTER SET WAS INCORRECT
; DMN,18-AUG-81,SPR:20-16565
; A:SRC COBDDT
;
;.ENDA
;.ENDV
;.ENDR
;
;WHO DATE COMMENT
;
;***** V12B *****
REP 35/13 ;04C2
WIT
REP 220/50 ;04C3
BRMKSS:
1B<.CHCRT>!1B<.CHLFD>
0
0
0
WIT
BRINI. ;[40] INITIALIZE BREAK MASK
BRKCH. (0,57) ;[40] SET TO BREAK ON EVERYTHING
BRKCH. (72,100) ;[40] EXCEPT DIGITS AND LETTERS
BRKCH. (133,140) ;[40]
BRKCH. (173,177) ;[40]
;[40] BUT ALLOW A FEW OTHER CHARACTERS IN SYMBOLS
UNBRK. "-" ;[40]
UNBRK. "." ;[40]
BRMKSS:
EXP W0.,W1.,W2.,W3. ;[40]
;[D40] 1B<.CHCRT>!1B<.CHLFD>
;[D40] 0
;[D40] 0
;[D40] 0
REP 41/52 ;04C4
WIT
REP 42/63 ;04C5
WIT
REP 32/64 ;04C6
WIT
REP 53/65 ;04C7
WIT
REP 100/69 ;04C8
WIT
REP 4/94 ;04C9
WIT
REP 50/115 ;04C10
WIT
REP 25/116 ;04C11
WIT
REP 59/117 ;04C12
WIT
REP 40/119 ;04C13
WIT
REP 45/120 ;04C14
WIT
REP 30/121 ;04C15
JRST SUBSC1 ;LOOP
WIT
;[D42] JRST SUBSC1 ;LOOP
JRST SUBSCA ;[M42] LOOP
REP 51/121 ;04C16
WIT
REP 26/122 ;04C17
WIT
REP 41/123 ;04C18
WIT
REP 41/124 ;04C19
WIT
REP 37/125 ;04C20
WIT
REP 40/126 ;04C21
WIT
REP 37/127 ;04C22
WIT
REP 30/128 ;04C23
WIT
REP 81/129 ;04C24
WIT
REP 56/130 ;04C25
WIT
REP 18/132 ;04C26
WIT
REP 69/133 ;04C27
WIT
REP 60/134 ;04C28
WIT
REP 60/135 ;04C29
WIT
REP 76/136 ;04C30
WIT
REP 42/137 ;04C31
WIT
REP 56/138 ;04C32
WIT
INS 8/150 ;04C33
HRRZ T4,T4 ;[41] CLEAR JUNK FROM LEFT HALF BEFORE TEST
SUM 166325