.	MIKS NROFF MACROS	19-3-76
.	*******************************
. 
. 
. 
. 
.	Date stuff
.	----------
. 
.nr DY 0
.if \n(mo-0 .ds mo January
.if \n(mo-1 .ds mo February
.if \n(mo-2 .ds mo March
.if \n(mo-3 .ds mo April
.if \n(mo-4 .ds mo May
.if \n(mo-5 .ds mo June
.if \n(mo-6 .ds mo July
.if \n(mo-7 .ds mo August
.if \n(mo-8 .ds mo September
.if \n(mo-9 .ds mo October
.if \n(mo-10 .ds mo November
.if \n(mo-11 .ds mo December
.if \n(dw-0 .ds dw Sunday
.if \n(dw-1 .ds dw Monday
.if \n(dw-2 .ds dw Tuesday
.if \n(dw-3 .ds dw Wednesday
.if \n(dw-4 .ds dw Thursday
.if \n(dw-5 .ds dw Friday
.if \n(dw-6 .ds dw Saturday
.if \n(dy-0 .ds Dy 1st.
.if \n(dy-1 .ds Dy 2nd.
.if \n(dy-2 .ds Dy 3rd.
.if \n(dy-3 .ds Dy 4th.
.if \n(dy-4 .ds Dy 5th.
.if \n(dy-5 .ds Dy 6th.
.if \n(dy-6 .ds Dy 7th.
.if \n(dy-7 .ds Dy 8th.
.if \n(dy-8 .ds Dy 9th.
.if \n(dy-9 .ds Dy 10th.
.if \n(dy-10 .ds Dy 11th.
.if \n(dy-11 .ds Dy 12th.
.if \n(dy-12 .ds Dy 13th.
.if \n(dy-13 .ds Dy 14th.
.if \n(dy-14 .ds Dy 15th.
.if \n(dy-15 .ds Dy 16th.
.if \n(dy-16 .ds Dy 17th.
.if \n(dy-17 .ds Dy 18th.
.if \n(dy-18 .ds Dy 19th.
.if \n(dy-19 .ds Dy 20th.
.if \n(dy-20 .ds Dy 21st.
.if \n(dy-21 .ds Dy 22nd.
.if \n(dy-22 .ds Dy 23rd.
.if \n(dy-23 .ds Dy 24th.
.if \n(dy-24 .ds Dy 25th.
.if \n(dy-25 .ds Dy 26th.
.if \n(dy-26 .ds Dy 27th.
.if \n(dy-27 .ds Dy 28th.
.if \n(dy-28 .ds Dy 29th.
.if \n(dy-29 .ds Dy 30th.
.if \n(dy-30 .ds Dy 31st.
.ds DY \*(dw \*(mo \*(Dy 19\n(yr
. 
.	Called to initialize working vars etc
.	*************************************
.de IZ	INITIALIZATION
.nr SN 0 1
.nr BM 7
.nr SS 0 1
.nr PG 0 1
.nr CH 0 1
.nr ?S 0
.nr ?P 0
.nr ?M 0
.HT " "
.nr X 0 1
.nr Y 0-\\n(BM
..
. 
.	Page Headings
.	*************
.de HD HEADER TITLE
'sp3
.if \\n(CH .tl 'Chapter \\n(CH''\\*(HE'
.if !\\n(CH .tl '''\\*(HE'
'sp2
.nr X 0 1
.nr Y 0-\\n(BM
.if \\n(dn .FZ
.os
..
. 
.de DI DIAGRAM
.      *******
.tm \\$2
.sv \\$1
..
.	Table
.	*****

.de TB
.if !\\n(.t-8 .bp
.in+12
.sp1
.nf
..

.	table end
.	*********

.de ET
.fi
.in-12
.sp1
..
.	Foot Notes
.	************
.de FO FOOT NOTES etc
.nr dn 0
.if \\nX .XF
.ch FO -\\n(BM
'bp
..
. 
.	Centre bottom page numbers
.	**************************
.de BO
'tl ''- % -''
..
. 
.	Start saving footnote for later
.	*******************************
.de FN BEGIN FOOTNOTE
.da FM
.ev1
.if !\\n+X-1 .FS
-
..
. 
.	End footnote definition which will be processed later
.	*****************************************************
.de EF END FOOTNOTE
.br
.ev
.di
.nr Y -\\n(dn
.ch FO \\nY
.if \\n(nl-\\n(.p-\\nY .ch FO \\n(nl+1
..
. 
.	Footnote separator
.	******************
.de FS SEPARATOR
------------------------------------------------------------------------
.br
..
.de FZ
.FN
.nf
.FY
.fi
.EF
..
.de FX
.di FY
..
.de XF
.ev1
.nf
.FM
.rm FM
.di
.fi
.ev
..
. 
.	Title for centre page head
.	**************************
.nr HE 0
.de HT
.ds HE \\$1
..
. 
.	NEW CHAPTER   includes chapter number
.	if quoted as \\$2. \\$1 is number of
.	lines in chapter title which follow.
.	*************************************
.de NC	TITLE
.if \\n(.$-1 .nr CH \\$2
.nr PG 0 1
.nr SN 0 1
.nr SS 0 1
.bp
.sp4
.if \\n(.$-1 .ce1
.if \\n(.$-1 Chapter \\n(CH
.ce \\$1
.ul \\$1
.sp2
..
. 
.	Main Heading  - Chapter.SH
.	**************************
.de SH	SECTION HEADING
.br
.if !\\n(.t-10 .bp
.in 12
.if \\n(nl-4 .sp1
.br
.ti-10
.nr SS 0 1
.nr PG 0 1
.if \\n(?M .if \\n(CH \\n(CH.\\n+(SN
.if \\n(?M .if !\\n(CH \\n(SN
'ul1
\\$1
.br
..
. 
.	New paragraph - Chapter.MH.SH.PG
.	********************************
.de NP	NEW PARAGRAPH
.br
.if !\\n(.t-6 .bp
.if \\n(.$ .sp\\$1
.if !\\n(.$ .sp1
.ta 15
.ti7
.if \\n(?P .if \\n(CH \\n(CH.\\n(SN.\\n(SS.\\n+(PG	
.if \\n(?P .if !\\n(CH \\n(SN.\\n(SS.\\n(PG	
.if !\\n(?P \&	
.TA
..
.	
.	RESET  STANDARD TABS
.	********************
.de TA
.ta 9 17 25 33 41 49 57 65 73 81
..
. 
.	Sub Heading no underline CH.MH.SH
.	*********************************
.de SB SUB-HEADING
.br
.if !\\n(.t-8 .bp
.if \\n(nl-6 .sp1
.in 15
.ti-10
.nr PG 0 1
.if \\n(?S .if \\n(CH \\n(CH.\\n(SN.\\n+(SS
.if \\n(?S .if !\\n(CH \\n(SN.\\n(SS
\\$1
.br
..
. 
.	Start displayed text
.	********************
.de DS	START DISPLAYED TEXT
.if \\n(nl .sp1
.in +5
.ll -5
..
. 
.	Finish the diplayed block
.	*************************
.de DE	END DISPLAYED TEXT
.sp1
.in -5
.ll +5
..
. 
.	AUTHOR
.	******
.de AU
.ds Ta \\$1
..
. 
.	UNIX FILE
.ds Tu 
.nr Tf 0
.de UF
.ds Tu \\$1
.nr Tf 1
..
. 
.	TITLE
.	*****
.de TI
.di Tt
.ev2
.in0
.nf
..
. 
.	TITLE END
.	*********
.de TE
.di
.fi
.ev
..
. 
.	Keywords
.	********
.de KY
.di KS
.ev0
.in 0
KEYWORDS : 
.nf
..
. 
.	End Keywords
.	************
.de EK
.di
.fi
.ev
..
. 
.	START ABSTRACT
.	**************
.de AS
.di AB
ABSTRACT :
.nf
..
. 
.	END ABSTRACT
.	************
.de AE
.di
.fi
..
. 
.	LONG TITLE
.	*************
.de LT
,
.sp10
.ls2
.ce100
.ul100
.Tt
.ce0
.ul0
.ls1
.br
.sp2
.ce1
\\*(Ta
.br
.sp1
.ce3
Computer Systems Laboratory
Queen Mary College
Mile End, London E1 4NS.
.br
.sp1
.ce1
\\*(DY
.sp4
.in+10
.ll-10
.if \\n(Tf UNIX FILE :
\\*(Tu
.sp2
.KS
.sp2
.AB
.in-10
.ll+10
.ch BO 100
.bp
.ch BO -4
.nr % 1
..
.	SHORT TITLE
.	*************
.de ST
,
.sp1
.ls2
.ce100
.ul100
.Tt
.ce0
.ul0
.ls1
.br
.sp1
.ce1
\\*(Ta
.br
.sp1
.ce3
Computer Systems Laboratory
Queen Mary College
Mile End, London E1 4NS.
.br
.sp1
.ce1
\\*(DY
.sp1
.in+10
.ll-10
.if \\n(Tf UNIX FILE :
\\*(Tu
.sp1
.KS
.sp1
.AB
.in-10
.ll+10
.sp4
..
. 
. 
.	INTERRUPTS
.	**********
. 
. 
.IZ
.wh 0 HD
.wh -\n(BM FO
.wh -4 BO
.ch FO 70
.wh -\n(BM FX
.ch FO -\n(BM
.pl60
.ll72
.ev1
.ev
.po8
.in12
.br
. 
.	END OF MIK'S MACROS
.	*******************
