; LSYS10.M68 -- Patch #2 to SYS:LSYS.MON Version 1.3(123)
;
; This patch corrects 4 problems: 1) If control characters are entered into
; the command line, they will no longer destroy the screen display when
; they are rubbed out, 2) If a program does a DSKDRU without a prior
; DSKDRL, the error is now cleared instead of being propagated, 3) A
; "potential" problem with FETCH is corrected, and 4) Corrects a problem
; with AM-1545/55 and ^C.
;
COPY PATCH
OVER 1,3,0,123.,1
NVER 1,3,0,123.,2
OHASH 216,216,002,036
NHASH 366,350,202,240
.=2174
LWORD 55070
.=11752
JMP 5$
.=14116
SAVE A0,A3,D3
.=14140
REST A0,A3,D3
.=15366
JMP 50$
.=42202
LWORD 55070
.=45346
JMP 54774
.=54774
CLR 12(A3)
LEA A0,26(A3)
RLSE
RTN
5$: CMP A2,MEMBAS
BHIS 10$
MOV JOBCUR,A0
MOV 14(A0),A6
CMP A2,A6
WORD 62400,134666
ADD 20(A0),A6
CMP A2,A6
WORD 61000,134654
10$: WORD 47372,134710
50$: MOVB @A3,D6
CMPB D6,#40
WORD 62400,140364
WORD 47372,140350
