From 9e49cad5def64fab50a650665090efbe473692df Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Sat, 14 Apr 2018 11:46:20 +0200 Subject: [PATCH] Patch ITS .DSTART to work better with DECUUO. --- src/system/itsdev.974 | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/system/itsdev.974 b/src/system/itsdev.974 index 04615974..ba650667 100755 --- a/src/system/itsdev.974 +++ b/src/system/itsdev.974 @@ -2189,7 +2189,10 @@ DRECY1: SRCY1: HRRZ A,LDISP JUMPE A,ENDLIS JSP B,DPFTCH - JUMPL A,SRCY2A ;SINGLE BLKO PNTR +IFN 1,[ CAML A,[777000,,0] + JRST SRCY2A ;SINGLE BLKO PNTR +] +.ELSE JUMPL A,SRCY2A ;SINGLE BLKO PNTR MOVEM A,LDISP ;LIST HLRZS A JUMPE A,SRCY5 ;THIS ENTRY NULL