; MData.asm	assembly of resident data items. 23 June 1983

.get "MAsmCommon.d"

; Defined here

; Items needed before Junta
.bext MidasCFA,LastTimer,TimeStart,BBWait

.bext GoVec		; Vector used for "Go" "SS" state info
.bext CallAVec
.bext TimeTimeOut

.bext BadAText

; MDATA and MADDR memories used by MTEST and elsewhere that Midas creates
; items that must be displayed.

.bext MDATAtab		; 10 words long x TValSize*16 bits/word
.bextz BitsChecked,ShouldBe,DataWas
.bext BitsPicked,BitsDropped

.bext MADDRtab		; 15 words long x 40 bits/word
.bextz LowAddress,HighAddress,LoopCount,CurrentAddress,AddrIncrement
.bext DWatch,AddrIntersect,AddrUnion,TestFailures
.bext CheckStoppedGlitches,MCTimeOut,MIRPE,VMBase

.zrel

BitsChecked:	.BitsChecked
ShouldBe:	.ShouldBe
DataWas:	.DataWas
LowAddress:	.LowAddress
HighAddress:	.HighAddress
LoopCount:	.LoopCount
CurrentAddress:	.CurrentAddress
AddrIncrement:	.AddrIncrement

.srel

MDATAtab:	.MDATAtab
MADDRtab:	.MADDRtab
DWatch:		.DWatch
AddrIntersect:	.AddrIntersect
AddrUnion:	.AddrUnion
BitsPicked:	.BitsPicked
BitsDropped:	.BitsDropped
TestFailures:	.TestFailures
CheckStoppedGlitches:	.CheckStoppedGlitches
MCTimeOut:	.MCTimeOut
MIRPE:		.MIRPE
VMBase:		.VMBase

GoVec:		.GoVec
CallAVec:	.CallAVec
TimeTimeOut:	.TimeTimeOut
LastTimer:	.LastTimer
TimeStart:	.TimeStart
BBWait:		.BBWait
MidasCFA:	.MidasCFA

BadAText:	.BadAText

.nrel

.TimeTimeOut:	0
		0

.LastTimer:	0
		0

.TimeStart:	0
		0

.BBWait:	0
		0

.MidasCFA:	.blk 13

; Vector used by Step, Go, Rep-Go, Rep-SS, etc. filled by SetupIMA
; in machine-dependent way.
.GoVec:		0
		0
		0
		0
		0
		0
		0
		0

.CallAVec:	177777
		177777
		177777

.BadAText:	.txt "Bad address"

; Fake MDATA and MADDR memories used by MDEBUG and MTEST
; To display these, a microprogram defining MDATA and MADDR and naming
; addresses for each of these quantities must be loaded (Presumably this is
; carried out by the Midas.Midas command file invoked on Midas/I.).
.MDATAtab:
.BitsChecked:	.blk TValSize
.ShouldBe:	.blk TValSize
.DataWas:	.blk TValSize
.BitsDropped:	.blk TValSize
.BitsPicked:	.blk TValSize
		.blk 3*TValSize	; For future additions
.MADDRtab:
.LowAddress:	.blk 2
.HighAddress:	.blk 2
.LoopCount:	.blk 2
.DWatch:	.blk 2
.CurrentAddress:	.blk 2
.AddrIncrement:	.blk 2
.AddrIntersect:	.blk 2
.AddrUnion:	.blk 2
.TestFailures:	.blk 2
; These four machine-dependent error counters are stored 2 per MADDR word
.CheckStoppedGlitches:
		0
.MCTimeOut:	0
.MIRPE:		0	; PE's in MIR[0:20]
		0	; PE's in MIR[21:41]
.VMBase:	0	; Base register for VM display
		0

		.blk 2	; For a future addition

.end