Do not disable IRq on 1551 (let motor stop between loads

Author: iszell

drivecode/core.inc

@@ -114,13 +114,17 @@ readfnam:
 	ora #ledvalue
 	}
 	sta ledport
+#if !NO_DRIVE_IRQ
 	cli
+#endif
 	.if (drive_serial) {
 	lda #%00000001
 !:	bit serialdata
 	beq !-
 	}
+#if !NO_DRIVE_IRQ
 	sei
+#endif
 	.if (drive_serial) {
 	lda #%00000000
 	sta serialdata
@@ -147,7 +151,10 @@ readfnam:
 readblock:
 	ldy #5
 	sty retrycnt
-retry:	cli
+retry:
+#if !NO_DRIVE_IRQ
+	cli
+#endif
 	lda #$80		// command: read sector
 	sta blk4job
 !:	lda blk4job
@@ -172,9 +179,14 @@ retry:	cli
 readerror:
 	pla
 	pla
+#if !NO_DRIVE_IRQ
 	sei
+#endif
 	jmp senderror
-readok:	sei
+readok:
+#if !NO_DRIVE_IRQ
+	sei
+#endif
 	rts
 temp1:	.byte	0
 temp2:	.byte	0

drivecode/tcbm_1551.asm

@@ -3,9 +3,9 @@
 	*=$0500
 {
 
+#define NO_DRIVE_IRQ
 .var	drive_serial	= false
 .var	ledinverted	= true
-
 	#import	"core.inc"
 
 .label	cpuport  = $01
@@ -107,7 +107,6 @@ Address		6523 TIA ($4000-$4007)
 	driveload(init, dirtrack, dirsect, blk4trk, blk4sec, blk4job, blk4buf, retrycnt, hdrid1, hdrid2, drv0id1, drv0id2, readbyte, writebyte, ledport, ledvalue, 0, drive_serial, ledinverted)
 
 init:
-	sei
 	cld
     lda #%11111111	//dir=output
     sta padir