Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/18/84; site ut-dillo.UUCP
Path: utzoo!watmath!clyde!bonnie!akgua!gatech!ut-sally!ut-ngp!ut-dillo!darin
From: darin@ut-dillo.UUCP (Darin Adler)
Newsgroups: net.sources.mac
Subject: Source code for TMON Extended User Area (part 5 of 7)
Message-ID: <235@ut-dillo.UUCP>
Date: Sun, 8-Dec-85 14:37:33 EST
Article-I.D.: ut-dillo.235
Posted: Sun Dec  8 14:37:33 1985
Date-Received: Tue, 10-Dec-85 05:49:32 EST
Distribution: net
Organization: UTexas Computation Center, Austin, Texas
Lines: 1524

Part 5 of the source code for the Extended User Area.

#	This is a shell archive.
#	Remove everything above and including the cut line.
#	Then run the rest of the file through sh.
-----cut here-----cut here-----cut here-----cut here-----
#!/bin/sh
# shar:	Shell Archiver
#	Run the following text with /bin/sh to create:
#	EUA.Asm.5
# This archive created: Sun Dec  8 13:28:28 1985
# By:	Darin Adler ()
echo shar: extracting EUA.Asm.5 '(24839 characters)'
cat << \SHAR_EOF > EUA.Asm.5
		MOVE.L	Stack14,D0	;get bitmap pointer in register
		BRA.S	.CheckBitMap

BitMap18
		MOVE.L	Stack18,D0	;get bitmap pointer in register
		BRA.S	.CheckBitMap

;+-----------------------------------------------+
;| These are the trap-specific checking routines |
;+-----------------------------------------------+

SetTrapAddress
		BSR	ROMA0		;if it is ROM, it's fine
		BPL.S	@1

		MOVE.L	D0,A0
		MOVE.L	SysZone,D0	;check if this routine is in the system heap
		BSR	CheckBlock
		BMI.S	retErrSysZone
@1
		RTS

		ErrText	SysZone,not in SysZone

EqualRect
Address4Address0
		BSR	Address4
		BMI.S	@1

		BSR	Address0
@1
		RTS

TENew
Rect4Rect0
		BSR	Rect4		;check one of the rectangles
		BMI.S	@1

		BSR	Rect0		;check the other rectangle
@1
		RTS

ScalePt
MapPt
		BSR	RAM8		;check the ram address
		BMI.S	@1

		BSR	Rect4Rect0	;check the two rectangles
@1
		RTS

FillRect
FillOval
Rect4RAM0
		BSR	Rect4		;check the rectangle
		BMI.S	@1

		BSR	RAM0		;check the other pointer
@1
		RTS

FillRoundRect
FillArc
PtToAngle
		BSR	Rect8		;check the rectangle
		BMI.S	@1

		BSR	RAM0		;check the other pointer
@1
		RTS

SectRect
UnionRect
		BSR	Address8
		BMI.S	@1

		BSR	Address4
		BMI.S	@1

		BSR	RAM0		;check the destination
@1
		RTS

MapRect
		BSR	Address8	;check the destination "rectangle"
		BMI.S	@1

		BSR	Rect4Rect0	;check the mapping rectangles
@1
		RTS

FillPoly
		BSR	Poly4		;check the polygon
		BMI.S	@1

		BSR	RAM0		;check the other pointer
@1
		RTS

FillRgn
		BSR	Rgn4		;check the region
		BMI.S	@1

		BSR	RAM0		;check the other pointer
@1
		RTS

CopyRgn
EqualRgn
Rgn4Rgn0
		BSR	Rgn4		;check one of the regions
		BMI.S	@1

		BSR	Rgn0		;check the other region
@1
		RTS

SectRgn
UnionRgn
DiffRgn
XorRgn
		BSR	Rgn8		;check one of the regions
		BMI.S	@1

		BSR	Rgn4Rgn0	;check the other two
@1
		RTS

MapRgn
		BSR	Rgn8		;check the region
		BMI.S	@1

		BSR	Rect4Rect0	;check the two rectangles
@1
		RTS

MapPoly
		BSR	Poly8		;check the polygon
		BMI.S	@1

		BSR	Rect4Rect0	;check the two rectangles
@1
		RTS

RectRgn
		BSR	Rgn4		;check if the destination is a region
		BMI.S	@1

		BSR	Address0	;check the source
@1
		RTS

RectInRgn
		BSR	Address4	;check if the "rectangle"
		BMI.S	@1

		BSR	Rgn0		;check if this is a region
@1
		RTS

DrawPicture
		BSR	Pict4		;check if the picture is a picture
		BMI.S	@1

		BSR	Rect0		;check if the rect is a rectangle
@1
		RTS

Rect10Rect6
		BSR	Rect10
		BMI.S	@1

		BSR	Rect6
@1
		RTS

StdBits
StdBits.
		BSR	BitMap14
		BMI.S	@1

		BSR	Rect10Rect6
		BMI.S	@1

		MOVE.L	Stack0,D0	;get the region into a register
		BEQ	retOK
		BSR	CheckRgn
@1
		RTS

CopyBits
		BSR	BitMap18
		BMI.S	@1

		BSR.S	StdBits.	;check the rest of the parameters
@1
		RTS

DragGrayRgn
DragTheRgn
		BSR	Rgn18
		BMI.S	@1

		BSR	Rect10Rect6
		BMI.S	@1

		BSR	Proc0		;check the action proc
@1
		RTS

CalcVis
SystemClick
ClipAbove
		MOVE.L	Stack0,D0	;check the window parameter
		BEQ	retOK
		BSR	CheckWindow

		RTS

CalcVisBehind
PaintOne
PaintBehind
		MOVE.L	Stack4,D0	;check the window parameter
		BEQ.S	@1
		BSR	CheckWindow
		BMI.S	@2
@1
		BSR	Rgn0		;check the region parameter
@2
		RTS

NewWindow
		MOVE.L	Stack22,D0	;check the window storage
		BEQ.S	@1
		BSR	CheckRAM
		BMI.S	@2
@1
		BSR	Rect18		;check the window rectangle
		BMI.S	@2

		BSR	String14	;check the window title
		BMI.S	@2

		BSR	Behind6		;check the behind field
@2
		RTS

DisposeWindow
		BSR	Window0		;check the window
		BMI.S	@1

		BSR	Ptr0
@1
		RTS

NewDialog
		MOVE.L	Stack26,D0	;check the dialog storage
		BEQ.S	@1
		BSR	CheckRAM
		BMI.S	@2
@1
		BSR	Rect22		;check the window rectangle
		BMI.S	@2

		BSR	String18	;check the title
		BMI.S	@2

		BSR	Behind10	;check the behind field
		BMI.S	@2

		MOVE.L	Stack0,D0	;don't need an item handle just yet
		BEQ	retOK
		BSR	CheckFullHandle	;check the items handle
@2
		RTS

DisposDialog
		BSR	Dialog0		;check the dialog
		BMI.S	@1

		BSR	Ptr0
@1
		RTS

GetNewWindow
GetNewDialog
		MOVE.L	Stack4,D0	;check the storage
		BEQ.S	@1
		BSR	CheckRAM
		BMI.S	@2
@1
		BSR	Behind0
@2
		RTS

GetWTitle
FindControl
Window4RAM0
		BSR	Window4		;check the window
		BMI.S	@1

		BSR	RAM0		;check the result place
@1
		RTS

SetWTitle
		BSR	Window4		;check the window
		BMI.S	@1

		BSR	String0		;check the new title
@1
		RTS

SendBehind
		BSR	Window4		;check one window parameter
		BMI.S	@1

		MOVE.L	Stack0,D0
		BEQ	retOK
		BSR	CheckWindow	;check the behind parameter
@1
		RTS

UpdateInit
		LEA	Updating,A0
		MOVE.L	(A0),D1
		MOVE.L	Stack0,D0
		RTS
BeginUpdate
		BSR.S	UpdateInit
		MOVE.L	D0,(A0)
		TST.L	D1
		BNE.S	retErrBadBeginUpdate
		BRA.S	Update
EndUpdate
		BSR.S	UpdateInit
		CLR.L	(A0)
		CMP.L	D1,D0
		BNE.S	retErrBadEndUpdate
Update
		BSR	CheckPort
		BMI.S	@1

		MOVE.L	updateRgn(A2),D0	;check this region
		BSR	CheckRgn
		BMI	retErrUpdateRgn
@1
		RTS

		ErrText	BadBeginUpdate,no EndUpdate
		ErrText	BadEndUpdate,<> BeginUpdate

DragWindow
GrowWindow
		BSR	Window8		;check the window
		BMI.S	@1

		BSR	Rect0		;check the rectangle
@1
		RTS

GetItemIcon
GetItemStyle
GetItemMark
GetItem
		BSR	Menu6		;check the menu
		BMI.S	@1

		BSR	RAM0		;check the address
@1
		RTS

SetItem
		BSR	Menu6		;check the menu
		BMI.S	@1

		BSR	String0		;check the string
@1
		RTS

PlotIcon
		BSR	Rect4		;check the rectangle
		BMI.S	@1

		BSR	FakeFullHandle0	;check the handle
@1
		RTS

NewControl
		BSR	Window22	;check the window
		BMI.S	@1

		BSR	Rect18		;check the rectangle
		BMI.S	@1

		BSR	String14	;check the title
@1
		RTS

GetCTitle
		BSR	Control4	;check the control
		BMI.S	@1

		BSR	RAM0		;check the address
@1
		RTS

SetCTitle
		BSR	FullHandle4	;check the control
		BMI.S	@1

		BSR	String0
@1
		RTS

DragControl
		BSR	Control14	;check the control
		BMI.S	@1

		BSR	Rect6		;check the limitRect
		BMI.S	@1

		BSR	Rect2		;check the slopRect
@1
		RTS

Dequeue
Enqueue
		BSR	RAMA0
		BMI.S	@1
		
		BSR	RAMA1
@1
		RTS

DialogSelect
		BSR	Address8	;check the event
		BMI.S	DialogSelectRTS
RAM4RAM0
		BSR	RAM4		;check one result
		BMI.S	DialogSelectRTS

		BSR	RAM0		;check the other
DialogSelectRTS
		RTS

GetAppParms
RAM8RAM4RAM0
		BSR	RAM8		;check another
		BMI.S	@1

		BSR.S	RAM4RAM0	;check more
@1
		RTS

GetResInfo
GetResInfo.
		MOVE.L	Stack8,D0
		BEQ.S	@1
		BSR	CheckRAM
		BMI.S	@3
@1
		MOVE.L	Stack4,D0
		BEQ.S	@2
		BSR	CheckRAM
		BMI.S	@3
@2
		MOVE.L	Stack0,D0
		BEQ	retOK
		BSR	CheckRAM
@3
		RTS

GetDItem
		BSR	Dialog14	;check the dialog first
		BMI.S	@1

		BSR.S	GetResInfo.	;check the other parameters
@1
		RTS

SetDItem
		BSR	Dialog12	;check the dialog first
		BMI.S	@1

		MOVE.W	Stack8,D0	;check the item type we are setting
		AND.W	#$7F,D0		;extract the type
		BEQ.S	@2		;userItem (0) is a special case
		BSR	FullHandle4	;check the item handle
		BMI.S	@1
		BRA.S	@3
@2
		MOVE.L	Stack4,D0
		BEQ.S	@3
		BSR	CheckAddress	;check the userItem proc
		BMI.S	@1
@3
		BSR	Rect0		;check the rectangle
@1
		RTS

ModalDialog
		BSR	Proc4		;check the filterProc
		BMI.S	@1

		BSR	RAM0		;check the result address
@1
		RTS

TEUpdate
		BSR	Rect4		;check the update rect
		BMI.S	@1

		BSR	TERec0
@1
		RTS

PtrToHand
		BSR	OddAddressA0
		BMI.S	@1

		TST.B	RegD0
		BNE	retErrLength

		ADD.L	RegD0,D0
		BSR	CheckOddAddress
		BMI	retErrLength
@1
		RTS

PtrToXHand
PtrAndHand
		BSR	FullHandleA1
		BMI.S	@1

		BSR	PtrToHand
@1
		RTS

HandAndHand
		BSR	FullHandleA0
		BMI.S	@1

		BSR	FullHandleA1
@1
		RTS

GetScrap
		MOVE.L	Stack8,D0
		BEQ.S	@1
		BSR	CheckFullHandle	;check the destination handle
		BMI.S	@2
@1
		BSR	RAM0		;check the offset destination
@2
		RTS

PB
		BSR	RAMA0
		BMI.S	retErrParamBlock

		MOVE.L	RegA0,A0

		MOVE.L	RegPC,A1	;get the old PC value
		BTST	#asyncTrpBit,(A1)
		BEQ.S	@1
		MOVE.L	ioCompletion(A0),D0
		BEQ.S	@1
		BSR	CheckAddress
		BMI.S	retErrCompletion
@1
		BRA	retOK

		ErrText	ParamBlock,ParamBlock
		ErrText	Completion,ioCompletion

Open
OpenRF
Create
Delete
SetFileInfo
SetFilLock
RstFilLock
SetFilType
		BSR	PB
		BMI.S	@1

		MOVE.L	ioFileName(A0),D0
		BSR	CheckString
		BMI.S	retErrFileName
@1
		RTS

		ErrText	FileName,file name

Read
		BSR	PB
		BMI.S	@1

		TST.L	ioReqCount(A0)
		BEQ	retOK

		MOVE.L	ioBuffer(A0),D0
		BSR	CheckOddRAM
		BMI.S	retErrBuffer

		ADD.L	ioReqCount(A0),D0
		SUBQ.L	#1,D0
		BSR	CheckOddRAM
		BMI.S	retErrBuffer
@1
		RTS

		ErrText	Buffer,ioBuffer

Write
		BSR	PB
		BMI.S	@1

		TST.L	ioReqCount(A0)
		BEQ	retOK

		MOVE.L	ioBuffer(A0),D0
		BSR	CheckOddAddress
		BMI.S	retErrBuffer

		ADD.L	ioReqCount(A0),D0
		SUBQ.L	#1,D0
		BSR	CheckOddAddress
		BMI.S	retErrBuffer
@1
		RTS

SetVol
UnmountVol
FlushVol
Eject
OffLine
		BSR	PB
		BMI.S	@1

		MOVE.L	ioVNPtr(A0),D0
		BEQ	retOK
		BSR	CheckString
		BMI.S	retErrVolName
@1
		RTS

		ErrText	VolName,volume name

GetVolInfo
GetVol
		BSR	PB
		BMI.S	@1

		MOVE.L	ioVNPtr(A0),D0
		BEQ	retOK
		BSR	CheckOddRAM
		BMI.S	retErrVolName
@1
		RTS

Rename
		BSR	PB
		BMI.S	@1

		MOVE.L	ioNewName(A0),D0
		BSR	CheckString
		BMI.S	retErrNewName
@1
		RTS

		ErrText	NewName,new name

GetFileInfo
		BSR	PB
		BMI.S	@1

		TST.W	ioFDirIndex(A0)
		BMI.S	@2
		BEQ.S	@2

		TST.L	ioFileName(A0)
		BEQ	retOK
@2
		MOVE.L	ioFileName(A0),D0
		BSR	CheckOddAddress
		BMI	retErrFileName
@1
		RTS

InitZone
		BSR	AddressA0
		BMI.S	@1

		MOVE.L	D0,A0

		MOVE.L	startPtr(A0),D0
		BSR	CheckRAM
		BMI.S	retErrStartPtr

		MOVE.L	limitPtr(A0),D0
		ADD.L	#10,D0
		BSR	CheckRAM
		BMI.S	retErrLimitPtr

		MOVE.L	pGrowZone(A0),D0
		BEQ.S	@2
		BSR	CheckAddress
		BMI.S	retErrGrowZone
@2
		MOVEQ	#0,D0
		MOVE.W	cMoreMasters(A0),D0
		NEG.L	D0
		ASL.L	#2,D0
		SUB.L	#52,D0
		SUB.L	startPtr(A0),D0
		ADD.L	limitPtr(A0),D0
		BMI.S	retErrSmallZone

		BRA	retOK
@1
		RTS

		ErrText	StartPtr,startPtr
		ErrText	LimitPtr,limitPtr
		ErrText	GrowZone,pGrowZone
		ErrText	SmallZone,zone too small

RecoverHandle
		BSR	RAMA0
		BMI.S	@1

		MOVE.L	D0,A0

		MOVE.L	handle-blkData(A0),D0
		ADD.L	TheZone,D0

		BSR	CheckHandle
@1
		RTS

SetApplLimit
		MOVE.L	RegA0,D0
		SUBQ.L	#2,D0
		BSR	CheckRAM

		RTS

BlockMove.
		TST.L	RegD0
		BEQ	retOK

		MOVE.L	RegA0,D0
		BSR	CheckOddAddress
		BMI.S	@1

		ADD.L	RegD0,D0
		SUBQ.L	#1,D0
		BSR	CheckOddAddress
		BMI.S	retErrLength

		MOVE.L	RegA1,D0
		BSR	CheckOddRAM
		BMI.S	@1

		ADD.L	RegD0,D0
		SUBQ.L	#1,D0
		BSR	CheckOddRAM
		BMI.S	retErrLength
@1
		RTS

		ErrText	Length,length

VInstall.
VRemove
		BSR	RAMA0
		BMI.S	@1

		MOVE.L	D0,A0

		MOVE.L	vblAddr(A0),D0
		BSR	CheckAddress
		BMI.S	retErrVBL
@1
		RTS

		ErrText	VBL,vblAddr

WriteParam
		LEA	SysParam,A0
		CMP.L	RegA0,A0
		BNE.S	retErrSysParam

		MOVEQ	#-1,D0
		CMP.L	RegD0,D0
		BNE	retErrMinusOne

		BRA	retOK

		ErrText	SysParam,SysParam
		ErrText	MinusOne,MinusOne

CmpString
		MOVE.L	RegD0,D0
		TST.W	D0
		BEQ.S	@2

		MOVE.L	RegA0,D0
		BSR	CheckOddAddress
		BMI.S	@1

		MOVE.L	RegD0,D0
		SWAP	D0
		CLR.W	D0
		SWAP	D0
		ADD.L	RegA0,D0
		SUBQ.L	#1,D0
		BSR	CheckOddAddress
		BMI	retErrStringLength
@2
		TST.W	RegD0
		BEQ	retOK

		MOVE.L	RegA1,D0
		BSR	CheckOddAddress
		BMI.S	@1

		MOVEQ	#0,D0
		MOVE.W	RegD0,D0
		ADD.L	RegA1,D0
		SUBQ.L	#1,D0
		BSR	CheckOddAddress
		BMI	retErrStringLength
@1
		RTS

UprString
		MOVE.L	RegD0,D0
		TST.W	D0
		BEQ	retOK

		MOVE.L	RegA0,D0
		BSR	CheckOddRAM
		BMI.S	@1

		MOVE.L	RegD0,D0
		SWAP	D0
		CLR.W	D0
		SWAP	D0
		ADD.L	RegA0,D0
		SUBQ.L	#1,D0
		BSR	CheckOddRAM
		BMI	retErrStringLength
@1
		RTS

StuffHex
		BSR	String0
		BMI.S	@1

		BSR	OddRAM4
@1
		RTS

StdTxMeas
		TST.W	Stack16
		BEQ.S	@2

		BSR	OddAddress12
		BMI.S	@1

		MOVEQ	#0,D0
		MOVE.W	Stack16,D0
		ADD.L	Stack12,D0
		BSR	CheckOddAddress
		BMI	retErrLength
@2
		BSR	RAM8RAM4RAM0
@1
		RTS

ScrollRect
		BSR	Rect8
		BMI.S	@1

		BSR	Rgn0
@1
		RTS

StdComment
PicComment
		TST.W	Stack4
		BEQ	retOK

		MOVE.L	Stack0,D0
		BSR	CheckFakeFullHandle
		BMI.S	@1

		MOVEQ	#0,D0
		MOVE.W	Stack4,D0
		MOVE.L	Stack0,A0
		ADD.L	(A0),D0
		BSR	CheckOddAddress
@1
		RTS

GetFNum
		BSR	String4
		BMI.S	@1

		BSR	RAM0
@1
		RTS

SetString
		BSR	FullHandle4
		BMI.S	@1

		BSR	String0
@1
		RTS

AppendMenu
		BSR	Menu4
		BMI.S	@1

		BSR	String0
@1
		RTS

ParamText
		MOVE.L	Stack12,D0
		BEQ.S	@1
		BSR	CheckString
		BMI.S	@2
@1
		MOVE.L	Stack8,D0
		BEQ.S	@3
		BSR	CheckString
		BMI.S	@2
@3
		MOVE.L	Stack4,D0
		BEQ.S	@4
		BSR	CheckString
		BMI.S	@2
@4
		MOVE.L	Stack0,D0
		BEQ	retOK
		BSR	CheckString
@2
		RTS

SetIText
		BSR	FullHandle4
		BMI.S	@1

		BSR	String0
@1
		RTS

GetIText
		BSR	FullHandle4
		BMI.S	@1

		BSR	RAM0
@1
		RTS

Munger
		MOVE.L	Stack20,D0
		BSR	CheckFullHandle
		BMI.S	@1

		MOVE.L	Stack20,A0
		_GetHandleSize
		TST.L	D0
		BMI	retErrHandle

		CMP.L	Stack16,D0
		BLO	retErrOffset

		TST.L	Stack8
		BEQ.S	@2

		MOVE.L	Stack12,D0
		BEQ.S	@2
		BSR	CheckOddAddress
		BMI.S	@1

		TST.B	Stack8
		BNE	retErrLength

		ADD.L	Stack8,D0
		BSR	CheckOddAddress
		BMI	retErrLength
@2
		MOVE.L	Stack4,D0
		BEQ	retOK
		BSR	CheckOddAddress
		BMI.S	@1

		TST.B	Stack0
		BNE	retErrLength

		ADD.L	Stack0,D0
		BSR	CheckOddAddress
		BMI	retErrLength
@1
		RTS

		ErrText	Offset,offset

Launch
Chain
		BSR	AddressA0
		BMI.S	@1

		MOVE.L	D0,A0
		MOVE.L	(A0),D0
		BSR	CheckString
		BMI	retErrFileName
@1
		RTS

DIPack
		MOVE.W	Stack0,D0
		CMP.W	#DILoad,D0
		BEQ	retOK
		CMP.W	#DIUnload,D0
		BEQ	retOK
		CMP.W	#DIBadMount,D0
		BEQ	retOK
		CMP.W	#DIFormat,D0
		BEQ	retOK
		CMP.W	#DIVerify,D0
		BEQ	retOK
		CMP.W	#DIZero,D0
		BEQ	String2
		BRA.S	retErrSelector

		ErrText	Selector,selector

SFPack
		MOVE.W	Stack0,D0
		CMP.W	#SFPutFile,D0
		BEQ	SFPutFile.
		CMP.W	#SFPPutFile,D0
		BEQ	SFPPutFile.
		CMP.W	#SFGetFile,D0
		BEQ	SFGetFile.
		CMP.W	#SFPGetFile,D0
		BEQ	SFPGetFile.
		BRA.S	retErrSelector

SFPutFile.
		BSR	String14
		BMI.S	@1

		BSR	String10
		BMI.S	@1

		MOVE.L	Stack6,D0
		BEQ.S	@2
		BSR	CheckAddress
		BMI.S	@1
@2
		BSR	RAM2
@1
		RTS

SFPPutFile.
		BSR	String20
		BMI.S	@1

		BSR	String16
		BMI.S	@1

		MOVE.L	Stack12,D0
		BEQ.S	@2
		BSR	CheckAddress
		BMI.S	@1
@2
		BSR	RAM8
		BMI.S	@1

		MOVE.L	Stack2,D0
		BEQ	retOK
		BSR	CheckAddress
@1
		RTS

SFGetFile.
		BSR	String20
		BMI.S	@1

		MOVE.L	Stack16,D0
		BEQ.S	@2
		BSR	CheckAddress
		BMI.S	@1
@2
		MOVE.W	Stack12,D0
		BEQ.S	@3
		CMP.W	#-1,D0
		BEQ.S	@3

		BSR	Address10
		BMI.S	@1
@3
		MOVE.L	Stack6,D0
		BEQ.S	@4
		BSR	CheckAddress
		BMI.S	@1
@4
		BSR	RAM2
@1
		RTS

SFPGetFile.
		BSR	String26
		BMI.S	@1

		MOVE.L	Stack22,D0
		BEQ.S	@2
		BSR	CheckAddress
		BMI.S	@1
@2
		MOVE.W	Stack18,D0
		BEQ.S	@3
		CMP.W	#-1,D0
		BEQ.S	@3

		BSR	Address16
		BMI.S	@1
@3
		MOVE.L	Stack12,D0
		BEQ.S	@4
		BSR	CheckAddress
		BMI.S	@1
@4
		BSR	RAM8
		BMI.S	@1

		MOVE.L	Stack2,D0
		BEQ	retOK
		BSR	CheckAddress
@1
		RTS

SANEPack
		MOVE.W	Stack0,D0
		AND.W	#$7FF,D0
		CMP.W	#$1D,D0
		BHS	retErrSelector
		BRA	retOK

ElemsPack
		MOVE.W	Stack0,D0
		LEA	ElemsTable,A0
@1
		CMP.W	#$FFFF,(A0)
		BEQ	retErrSelector
		CMP.W	(A0)+,D0
		BEQ	retOK
		BRA.S	@1

ElemsTable
		DC.W	$0000,$0002,$0004,$0006,$0008,$000A,$000C,$000E
		DC.W	$8010,$8012,$C014,$C016,$0018,$001A,$001C,$001E
		DC.W	$0020,$FFFF

IUPack
		MOVE.W	Stack0,D0
		CMP.W	#IUDateString,D0
		BEQ	RAM2
		CMP.W	#IUDatePString,D0
		BEQ	IUDatePString.
		CMP.W	#IUTimeString,D0
		BEQ	RAM2
		CMP.W	#IUTimePString,D0
		BEQ	IUTimePString.
		CMP.W	#IUMetric,D0
		BEQ	retOK
		CMP.W	#IUGetIntl,D0
		BEQ	retOK
		CMP.W	#IUSetIntl,D0
		BEQ	FullHandle2
		CMP.W	#IUMagString,D0
		BEQ	IUMagString.
		CMP.W	#IUMagIDString,D0
		BEQ	IUMagIDString.
		BRA	retErrSelector

IUDatePString.
IUTimePString.
		BSR	RAM6
		BMI.S	@1

		BSR	FullHandle0
@1
		RTS

IUMagString.
IUMagIDString.
		TST.W	Stack4
		BEQ.S	@2

		MOVE.L	Stack10,D0
		BSR	CheckOddAddress
		BMI.S	@1

		MOVEQ	#0,D0
		MOVE.W	Stack4,D0
		ADD.L	Stack10,D0
		SUBQ.L	#1,D0
		BSR	CheckOddAddress
		BMI	retErrStringLength
@2
		TST.W	Stack2
		BEQ	retOK

		MOVE.L	Stack6,D0
		BSR	CheckOddAddress
		BMI.S	@1

		MOVEQ	#0,D0
		MOVE.W	Stack2,D0
		ADD.L	Stack6,D0
		SUBQ.L	#1,D0
		BSR	CheckOddAddress
		BMI	retErrStringLength
@1
		RTS

BDPack
		MOVE.W	Stack0,D0
		CMP.W	#NumToString,D0
		BEQ	OddRAMA0
		CMP.W	#StringToNum,D0
		BEQ	StringA0
		BRA	retErrSelector

;+--------------------------------------------------------------------+
;| These are the dispatch tables: 0 means no discipline for that trap |
;+--------------------------------------------------------------------+

OSTraps
		DC.W	Open-OSTraps		; 0 Open
		DC.W	PB-OSTraps		; 1 Close
		DC.W	Read-OSTraps		; 2 Read
		DC.W	Write-OSTraps		; 3 Write
		DC.W	PB-OSTraps		; 4 Control
		DC.W	PB-OSTraps		; 5 Status
		DC.W	PB-OSTraps		; 6 KillIO
		DC.W	GetVolInfo-OSTraps	; 7 GetVolInfo
		DC.W	Create-OSTraps		; 8 Create
		DC.W	Delete-OSTraps		; 9 Delete
		DC.W	OpenRF-OSTraps		; A OpenRF
		DC.W	Rename-OSTraps		; B Rename
		DC.W	GetFileInfo-OSTraps	; C GetFileInfo
		DC.W	SetFileInfo-OSTraps	; D SetFileInfo
		DC.W	UnmountVol-OSTraps	; E UnmountVol
		DC.W	PB-OSTraps		; F MountVol
		DC.W	PB-OSTraps		; 10 Allocate
		DC.W	PB-OSTraps		; 11 GetEOF
		DC.W	PB-OSTraps		; 12 SetEOF
		DC.W	FlushVol-OSTraps	; 13 FlushVol
		DC.W	GetVol-OSTraps		; 14 GetVol
		DC.W	SetVol-OSTraps		; 15 SetVol
		DC.W	0		; 16
		DC.W	Eject-OSTraps		; 17 Eject
		DC.W	PB-OSTraps		; 18 GetFPos
		DC.W	InitZone-OSTraps	; 19 InitZone
		DC.W	0		; 1A
		DC.W	ZoneA0-OSTraps		; 1B SetZone
		DCB.W	$1F-$1C,0	; 1C-1E
		DC.W	PtrA0-OSTraps		; 1F DisposPtr
		DC.W	PtrA0-OSTraps		; 20 SetPtrSize
		DC.W	PtrA0-OSTraps		; 21 GetPtrSize
		DC.W	0		; 22
		DC.W	HandleA0-OSTraps	; 23 DisposHandle
		DC.W	HandleA0-OSTraps	; 24 SetHandleSize
		DC.W	HandleA0-OSTraps	; 25 GetHandleSize
		DC.W	HandleA0-OSTraps	; 26 HandleZone
		DC.W	HandleA0-OSTraps	; 27 ReallocHandle
		DC.W	RecoverHandle-OSTraps	; 28 RecoverHandle
		DC.W	HandleA0-OSTraps	; 29 HLock
		DC.W	HandleA0-OSTraps	; 2A HUnlock
		DC.W	HandleA0-OSTraps	; 2B EmptyHandle
		DC.W	0		; 2C
		DC.W	SetApplLimit-OSTraps	; 2D SetApplLimit
		DC.W	BlockMove.-OSTraps	; 2E BlockMove
		DC.W	0		; 2F
		DC.W	RAMA0-OSTraps		; 30 OSEventAvail
		DC.W	RAMA0-OSTraps		; 31 GetOSEvent
		DC.W	0		; 32
		DC.W	VInstall.-OSTraps	; 33 VInstall
		DC.W	VRemove-OSTraps		; 34 VRemove
		DC.W	OffLine-OSTraps		; 35 OffLine
		DC.W	0		; 36
		DC.W	0		; 37
		DC.W	WriteParam-OSTraps	; 38 WriteParam
		DC.W	RAMA0-OSTraps		; 39 ReadDateTime
		DC.W	0		; 3A
		DC.W	0		; 3B
		DC.W	CmpString-OSTraps	; 3C CmpString
		DCB.W	$41-$3D,0	; 3D-40
		DC.W	SetFilLock-OSTraps	; 41 SetFilLock
		DC.W	RstFilLock-OSTraps	; 42 RstFilLock
		DC.W	SetFilType-OSTraps	; 43 SetFilType
		DC.W	PB-OSTraps		; 44 SetFPos
		DC.W	PB-OSTraps		; 45 FlushFile
		DC.W	0		; 46
		DC.W	SetTrapAddress-OSTraps	; 47 SetTrapAddress
		DC.W	PtrA0-OSTraps		; 48 PtrZone
		DC.W	HandleA0-OSTraps	; 49 HPurge
		DC.W	HandleA0-OSTraps	; 4A HNoPurge
		DC.W	ProcA0-OSTraps		; 4B SetGrowZone
		DCB.W	$54-$4C,0	; 4C-53
		DC.W	UprString-OSTraps	; 54 UprString
		DC.W	0		; 55
		DC.W	0		; 56
		DC.W	RAMA0-OSTraps		; 57 SetApplBase
		DCB.W	$100-$58,0	; 58-FF

ToolTraps
		DCB.W	$51-$0,0	; 0-50
		DC.W	Cursor0-ToolTraps	; 51 SetCursor
		DCB.W	$55-$52,0	; 52-54
		DC.W	Rect4-ToolTraps		; 55 ShieldCursor
		DCB.W	$5D-$56,0	; 56-5C
		DC.W	OddAddress4-ToolTraps	; 5D BitTst
		DC.W	OddRAM4-ToolTraps	; 5E BitSet
		DC.W	OddRAM4-ToolTraps	; 5F BitClr
		DCB.W	$66-$60,0	; 60-65
		DC.W	StuffHex-ToolTraps	; 66 StuffHex
		DCB.W	$6D-$67,0	; 67-6C
		DC.W	RAM0-ToolTraps		; 6D InitPort
		DC.W	RAM0-ToolTraps		; 6E InitGraf
		DC.W	RAM0-ToolTraps		; 6F OpenPort
		DC.W	RAM0-ToolTraps		; 70 LocalToGlobal
		DC.W	RAM0-ToolTraps		; 71 GlobalToLocal
		DC.W	0		; 72
		DC.W	0		; 73
		DC.W	RAM0-ToolTraps		; 74 GetPort
		DC.W	BitMap0-ToolTraps	; 75 SetPortBits
		DCB.W	$79-$76,0	; 76-78
		DC.W	Rgn0-ToolTraps		; 79 SetClip
		DC.W	Rgn0-ToolTraps		; 7A GetClip
		DC.W	Address0-ToolTraps	; 7B ClipRect
		DC.W	RAM0-ToolTraps		; 7C BackPat
		DC.W	Port0-ToolTraps		; 7D ClosePort
		DC.W	RAM0-ToolTraps		; 7E AddPt
		DC.W	RAM0-ToolTraps		; 7F SubPt
		DC.W	RAM4-ToolTraps		; 80 SetPt
		DC.W	0		; 81
		DC.W	OddAddress8-ToolTraps	; 82 StdText
		DC.W	0		; 83
		DC.W	String0-ToolTraps	; 84 DrawString
		DC.W	OddAddress4-ToolTraps	; 85 DrawText
		DC.W	OddAddress4-ToolTraps	; 86 TextWidth
		DCB.W	$8B-$87,0	; 87-8A
		DC.W	RAM0-ToolTraps		; 8B GetFontInfo
		DC.W	String0-ToolTraps	; 8C StringWidth
		DCB.W	$98-$8D,0	; 8D-97
		DC.W	RAM0-ToolTraps		; 98 GetPenState
		DC.W	RAM0-ToolTraps		; 99 SetPenState
		DC.W	RAM0-ToolTraps		; 9A GetPen
		DCB.W	$A0-$9B,0	; 9B-9F
		DC.W	Rect0-ToolTraps		; A0 StdRect
		DC.W	Rect0-ToolTraps		; A1 FrameRect
		DC.W	Rect0-ToolTraps		; A2 PaintRect
		DC.W	Rect0-ToolTraps		; A3 EraseRect
		DC.W	Rect0-ToolTraps		; A4 InvertRect
		DC.W	FillRect-ToolTraps	; A5 FillRect
		DC.W	EqualRect-ToolTraps	; A6 EqualRect
		DC.W	RAM8-ToolTraps		; A7 SetRect
		DC.W	Address4-ToolTraps	; A8 OffsetRect
		DC.W	Address4-ToolTraps	; A9 InsetRect
		DC.W	SectRect-ToolTraps	; AA SectRect
		DC.W	UnionRect-ToolTraps	; AB UnionRect
		DC.W	RAM0-ToolTraps		; AC Pt2Rect
		DC.W	Address0-ToolTraps	; AD PtInRect
		DC.W	Address0-ToolTraps	; AE EmptyRect
		DC.W	Rect4-ToolTraps		; AF StdRRect
		DC.W	Rect4-ToolTraps		; B0 FrameRoundRect
		DC.W	Rect4-ToolTraps		; B1 PaintRoundRect
		DC.W	Rect4-ToolTraps		; B2 EraseRoundRect
		DC.W	Rect4-ToolTraps		; B3 InvertRoundRect
		DC.W	FillRoundRect-ToolTraps	; B4 FillRoundRect
		DC.W	0		; B5
		DC.W	Rect0-ToolTraps		; B6 StdOval
		DC.W	Rect0-ToolTraps		; B7 FrameOval
		DC.W	Rect0-ToolTraps		; B8 PaintOval
		DC.W	Rect0-ToolTraps		; B9 EraseOval
		DC.W	Rect0-ToolTraps		; BA InvertOval
		DC.W	FillOval-ToolTraps	; BB FillOval
		DC.W	0		; BC
		DC.W	Rect4-ToolTraps		; BD StdArc
		DC.W	Rect4-ToolTraps		; BE FrameArc
		DC.W	Rect4-ToolTraps		; BF PaintArc
		DC.W	Rect4-ToolTraps		; C0 EraseArc
		DC.W	Rect4-ToolTraps		; C1 InvertArc
		DC.W	FillArc-ToolTraps	; C2 FillArc
		DC.W	PtToAngle-ToolTraps	; C3 PtToAngle
		DC.W	0		; C4
		DC.W	Poly0-ToolTraps		; C5 StdPoly
		DC.W	Poly0-ToolTraps		; C6 FramePoly
		DC.W	Poly0-ToolTraps		; C7 PaintPoly
		DC.W	Poly0-ToolTraps		; C8 ErasePoly
		DC.W	Poly0-ToolTraps		; C9 InvertPoly
		DC.W	FillPoly-ToolTraps	; CA FillPoly
		DC.W	0		; CB
		DC.W	0		; CC
		DC.W	Poly0-ToolTraps		; CD KillPoly
		DC.W	Poly4-ToolTraps		; CE OffsetPoly
		DC.W	0		; CF
		DC.W	0		; D0
		DC.W	Rgn0-ToolTraps		; D1 StdRgn
		DC.W	Rgn0-ToolTraps		; D2 FrameRgn
		DC.W	Rgn0-ToolTraps		; D3 PaintRgn
		DC.W	Rgn0-ToolTraps		; D4 EraseRgn
		DC.W	Rgn0-ToolTraps		; D5 InvertRgn
		DC.W	FillRgn-ToolTraps	; D6 FillRgn
		DC.W	0		; D7
		DC.W	0		; D8
		DC.W	Rgn0-ToolTraps		; D9 DisposeRgn
		DC.W	0		; DA
		DC.W	Rgn0-ToolTraps		; DB CloseRgn
		DC.W	CopyRgn-ToolTraps	; DC CopyRgn
		DC.W	Rgn0-ToolTraps		; DD SetEmptyRgn
		DC.W	Rgn8-ToolTraps		; DE SetRectRgn
		DC.W	RectRgn-ToolTraps	; DF RectRgn
		DC.W	Rgn4-ToolTraps		; E0 OffsetRgn
		DC.W	Rgn4-ToolTraps		; E1 InsetRgn
		DC.W	Rgn0-ToolTraps		; E2 EmptyRgn
		DC.W	EqualRgn-ToolTraps	; E3 EqualRgn
		DC.W	SectRgn-ToolTraps	; E4 SectRgn
		DC.W	UnionRgn-ToolTraps	; E5 UnionRgn
		DC.W	DiffRgn-ToolTraps	; E6 DiffRgn
		DC.W	XorRgn-ToolTraps	; E7 XorRgn
		DC.W	Rgn0-ToolTraps		; E8 PtInRgn
		DC.W	RectInRgn-ToolTraps	; E9 RectInRgn
		DC.W	RAM0-ToolTraps		; EA SetStdProcs
		DC.W	StdBits-ToolTraps	; EB StdBits
		DC.W	CopyBits-ToolTraps	; EC CopyBits
		DC.W	StdTxMeas-ToolTraps	; ED StdTxMeas
		DC.W	OddRAM4-ToolTraps	; EE StdGetPic
		DC.W	ScrollRect-ToolTraps	; EF ScrollRect
		DC.W	OddAddress4-ToolTraps	; F0 StdPutPic
		DC.W	StdComment-ToolTraps	; F1 StdComment
		DC.W	PicComment-ToolTraps	; F2 PicComment
		DC.W	Rect0-ToolTraps		; F3 OpenPicture
		DC.W	0		; F4
		DC.W	Pict0-ToolTraps		; F5 KillPicture
		DC.W	DrawPicture-ToolTraps	; F6 DrawPicture
		DC.W	0		; F7
		DC.W	ScalePt-ToolTraps	; F8 ScalePt
		DC.W	MapPt-ToolTraps		; F9 MapPt
		DC.W	MapRect-ToolTraps	; FA MapRect
		DC.W	MapRgn-ToolTraps	; FB MapRgn
		DC.W	MapPoly-ToolTraps	; FC MapPoly
		DC.W	0		; FD
		DC.W	0		; FE
		DC.W	RAM0-ToolTraps		; FF GetFontName
		DC.W	GetFNum-ToolTraps	; 100 GetFNum
		DC.W	RAM0-ToolTraps		; 101 SwapFont
		DC.W	0		; 102
		DC.W	0		; 103
		DC.W	Window0-ToolTraps	; 104 DrawGrowIcon
		DC.W	DragGrayRgn-ToolTraps	; 105 DragGrayRgn
		DC.W	String0-ToolTraps	; 106 NewString
		DC.W	SetString-ToolTraps	; 107 SetString
		DC.W	Window2-ToolTraps	; 108 ShowHide
		DC.W	CalcVis-ToolTraps	; 109 CalcVis
		DC.W	CalcVisBehind-ToolTraps	; 10A CalcVisBehind
		DC.W	ClipAbove-ToolTraps	; 10B ClipAbove
		DC.W	PaintOne-ToolTraps	; 10C PaintOne
		DC.W	PaintBehind-ToolTraps	; 10D PaintBehind
		DC.W	Window0-ToolTraps	; 10E SaveOld
		DC.W	Window2-ToolTraps	; 10F DrawNew
		DC.W	RAM0-ToolTraps		; 110 GetWMgrPort
		DC.W	RAM0-ToolTraps		; 111 CheckUpdate
		DC.W	0		; 112
		DC.W	NewWindow-ToolTraps	; 113 NewWindow
		DC.W	DisposeWindow-ToolTraps	; 114 DisposeWindow
		DC.W	Window0-ToolTraps	; 115 ShowWindow
		DC.W	Window0-ToolTraps	; 116 HideWindow
		DC.W	Window0-ToolTraps	; 117 GetWRefCon
		DC.W	Window4-ToolTraps	; 118 SetWRefCon
		DC.W	GetWTitle-ToolTraps	; 119 GetWTitle
		DC.W	SetWTitle-ToolTraps	; 11A SetWTitle
		DC.W	Window6-ToolTraps	; 11B MoveWindow
		DC.W	Window2-ToolTraps	; 11C HiliteWindow
		DC.W	Window6-ToolTraps	; 11D SizeWindow
		DC.W	Window4-ToolTraps	; 11E TrackGoAway
		DC.W	Window0-ToolTraps	; 11F SelectWindow
		DC.W	Window0-ToolTraps	; 120 BringToFront
		DC.W	SendBehind-ToolTraps	; 121 SendBehind
SHAR_EOF
if test 24839 -ne "`wc -c EUA.Asm.5`"
then
echo shar: error transmitting EUA.Asm.5 '(should have been 24839 characters)'
fi
#	End of shell archive
exit 0
-- 
Darin Adler
{gatech,harvard,ihnp4,seismo}!ut-sally!ut-dillo!darin