# What size porker? Pure Squeal Mode Code until we 
#                       have a-holt of the snout-ring.
# This code gets COPIED to 0. Keep it relative.

#cell=4

L wildpigtrap
= SP to A	# get operandsize from a stack pull, no literals yet
1+ A
1+ A
pull B
-test A with SP
	when zero short			piglette
jump tusker

		cell=2
L piglette


= pigletteoink to SI
= @ -4 SI to C
= 0xb800 to A
= A to DS
= A to ES
= 0x800 to DI
  call spreadcopy16		# spreadcopy is pure squeal mode, 
				#	but a bad habit.

### now hexdump some stack to VGA eh?


halt		# only kernel code can see 0, so we might as well.
		# And the stack has pig leavings on it.

		cell=4
L tusker

= tuskeroink to SI
= @ -4 SI to C
= 0xb8800 to DI
  call spreadcopy


halt

L endwildpigtrap

#			This goes in another file? The catcher code is MOVING.
text tuskeroink <<!
SQUEEEEEEEL!
!

text pigletteoink <<!		# this one should be in 64k0
oink!
!


echo "
 
A bogus name for a branch or jump target assembles to zero. The bogus code
then usually goes hogwild, and jumps to 0. This is code to catch such
razorbacks, baconize 'em, and check thier eartag after the feast.

This code gets copied to 0 after legvecs get saved elsewhere.

" > /dev/null

