Fix unhandled IRQ on IIGS

src/libsrc/apple/mouse.pla

@@ -50,6 +50,10 @@ asm updateMouse
         LDY     #$40
         JMP     $C400           ; IIGS REQUIRES THIS HAPPEN IN IRQ
 end
+asm serviceCYA#0
+        CLC
+        RTS
+end
 //
 // Check for VBL (timer) and Mouse events (atomic read and reset)
 //
@@ -175,6 +179,13 @@ for rom = $C100 to $C700 step $0100
         params:2 = @serviceMouse
         syscall($40, @params)
         //
+        // Hook CYA IRQ handler into ProDOS IRQ chain
+        //
+        params.0 = 2
+        params.1 = 3
+        params:2 = @serviceCYA
+        syscall($40, @params)
+        //
         // Set values
         //
         slot           = rom >> 8

src/samplesrc/tftpd.pla

@@ -260,7 +260,7 @@ def writeUDP(ipsrc, portsrc, data, len, param)
 end
 def servUDP(ipsrc, portsrc, data, len, param)
     byte info[24]
-    
+
     when *data
         is RRQ // Read request
             //
@@ -345,7 +345,7 @@ end
 if !iNet:initIP()
     return -1
 fin
-puts("TFTP Server Version 0.1\n")
+puts("TFTP Server Version 2.0 Dev\n")
 portTFTP = iNet:openUDP(TFTP_PORT, @servUDP, 0)
 //
 // Alloc aligned file/io buffers