Use devpac 2.20 for this and newer sources. Use 2.00 for older sources.

Yes, this is incompatible! To work around that a global substitution
was done which garbled the source. Oh well does not assemble...
Also added new sound.

diskwrit.s

@@ -0,0 +1,52 @@
+
+**************************************
+*                                    *
+*  Write to disk by The Fate of ULM  *
+*                                    *
+**************************************
+
+offset equ 28
+
+sec_per_track equ 10
+
+x:
+
+        move.w  #0,-(sp)
+        move.w  #7,-(sp)
+        trap    #13
+        addq.l  #4,sp
+
+        lea     desttab(pc),a0
+        move.w  #0,-(sp)
+        move.w  (a0)+,d0
+        mulu    #sec_per_track,d0
+        add.w   (a0)+,d0
+        subq.w  #1,d0
+        move.w  d0,-(sp)
+        move.w  (a0)+,-(sp)
+        pea     buffer(pc)
+        move.w  #3,-(sp)
+        move.w  #4,-(sp)
+        trap    #13
+        lea     $0e(sp),sp
+
+        clr.w   -(sp)
+        trap    #1
+
+********************************************************************************
+
+; 1 word = destination track
+; 2 word = destination sector
+; 3 word = sector count
+
+desttab:
+        dc.w 1,1,250
+
+	section	data
+buffer equ *+offset
+        incbin 'e:\paradist\p.bin'
+
+        section bss
+        ds.l 512
+
+        end