[solved] Coroutine might be yielding early?

function scan()
				local pings = {n=(pMax - pMin)}
				local rChans = {}
				local i = 0
				for n=pMin,pMax do

								local x, y = term.getCursorPos()
								term.clearLine()
								term.setCursorPos(3,y)

								pings[n] = coroutine.create(function()
												--(mostly) standard rednet packet creation
												local nMessageID = math.random( 1, 2147483647 )										
												local nReplyChannel = n
												local tMessage = {
												nMessageID = nMessageID,
												nRecipient = n,
												message = "ayb",
												sProtocol = "abtu"}

												-- sending the packet
												peripheral.call( modemSide, "transmit", tMessage.nRecipient, nReplyChannel, tMessage

												print("sent message") == <<< this is a debug message that executes
												local event, mSide, mRCh, mSCh, mMsg, mDst = os.pullEvent("modem_message")
												print("got message") -- <<< this is a debug message that never executes

												if mMsg.nMessageID == nMessageID then coroutine.yield(true)
																else coroutine.yield(false)
												end
								end) -- end of coroutine
								print("Resuming co")
								local _, rsp = coroutine.resume(pings[n])
								if rsp == true then rChans[i] = n end
								i = i + 1
								sleep(.1)
				end

				print("--- CHANNELS THAT RESPONDED ---")

				if rChans[0] ~= nil then
								for i=0,#rChans do
												write(rChans[i] .. ", ")
								end
				else write("no responses across channel range")
				end

				local x, y = term.getCursorPos()
				term.setCursorPos(1,y)
				write("\n..>")
				sleep(10)
end

function os.pullEventRaw( sFilter )
    return coroutine.yield( sFilter )
end

function os.pullEvent( sFilter )
    local eventData = { os.pullEventRaw( sFilter ) }
    if eventData[1] == "terminate" then
        error( "Terminated", 0 )
    end
    return table.unpack( eventData )
end

local function scan()
	local tMessage = {message = "ayb", sProtocol = "abtu"}
	
	local ping, rChans = {}, {}

	for n = pMin, pMax do
		ping[n] = math.random( 1, 2147483647 )
		tMessage.nMessageID = ping[n]
		tMessage.nRecipient = n
		
		peripheral.call( modemSide, "transmit", n, n, tMessage ) -- You were missing a bracket here??
	end
	
	local myTimer = os.startTimer(5)
	
	while true do
		local myEvent = {os.pullEvent()}
		
		if myEvent[1] == "modem_message" and ping[myEvent[4]] and type(myEvent[5]) == "table" and myEvent[5].nMessageID == ping[myEvent[4]] then
			-- Event is a modem message, sender ID is defined in the ping table, message is in the form of a table, and there's an "nMessageID" key in that table with a value matching the one we recorded for that sender ID.
			rChans[#rChans + 1] = myEvent[4]
			
		elseif myEvent[1] == "timer" and myEvent[2] == myTimer then
			-- Timer has expired; if any senders have failed to respond at this point then they likely aren't going to at all.
			break
			
		end
	end
	
	print("--- CHANNELS THAT RESPONDED ---")

	if #rChans > 0 then
		for i = 1, #rChans do write(rChans[i] .. ", ") end
	else
		write("no responses across channel range")
	end

	write("\n..>")
	sleep(10)
end