From 7e979d218336dfb15bd35b4a5ae38ac8189991a5 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Thu, 28 Jun 2018 11:30:46 +0200
Subject: [PATCH] Fix uses of DSDEV without DSDP.

---
 src/system/itsdev.975 | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/system/itsdev.975 b/src/system/itsdev.975
index 5cf5e701..1ad60326 100755
--- a/src/system/itsdev.975
+++ b/src/system/itsdev.975
@@ -2444,7 +2444,9 @@ DIGNOR:	0
 
 BBLK
 	CONO DIS,0
+IFN DSDP,[
 	DATAO DSDEV,[DSNDIS]
+]
 	JRST 12,@DIGNOR
 
 ENDLIS:	SETOM DISDIE
@@ -2591,7 +2593,9 @@ AIDS7:	PUSHJ P,ADCLB
 	JFCL
 AIDS9:	SETOM 340MD
 	SETOM DISUSR
+IFN DSDP,[
 	DATAO DSDEV,[DSNDIS]	;DEASSIGN DIS
+]
 	POPJ P,
 
 AIDS8:	MOVE A,U	;FLUSH CHNLS IN CASE OF .DCLOSE FROM DIS OR IDS
@@ -3720,7 +3724,9 @@ TVCINI:	CONO PI,OMXOFF
 
 VIDFLS:	SKIPL NVDUSE	;SKIP IF OPENS ON NVD, .VSCAN
 	POPJ P,
+IFN DSDP,[
 	DATAO DSDEV,[DSNVID]	;DEASSIGN VIDI
+]
 	SETOM NVDUSR
 	POPJ P,
 
@@ -3838,8 +3844,10 @@ NEWORK:;	SKIPGE DAEMFL
 	CONI NVDX,A
 	CONO NVDX,(T)
 	SKIPN A
+IFN DSDP,[
 	DATAO DSDEV,[DSNVID]	;RE DEASSIGN VIDI IF WAS DEASSIGNED 
 			;(CONO DID CLEAR PIA, DONE, AND SET MODE FLOPS THO)
+]
 	JRST OMXRET
 
 TVCFIN:	SETZM TVFLG
@@ -4139,7 +4147,9 @@ SCNB4:	SKIPL NVDCNY	;WAIT FOR LAST DATAO TO RETURN A POINT
 	SOSL NVDUSE
 	JRST NEWORK
 	SETOM NVDUSR
+IFN DSDP,[
 	DATAO DSDEV,[DSNVID]	;DEASSIGN BAT
+]
 	MOVSI B,-1
 	MOVSI W,-2
 SCNB4B:	LDB A,VEXT(W)