TITLE  HOLIDAYS

.MLLIT==1
A=1
B=2
YMD=3
M=4
D=5
RY=6
DOW=7
RET=8
LOC 100
START:	.CALL	FLUSH
	 JFCL
	.RDATE	YMD,
	LDB	M,[141400,,YMD]
	LDB	D,[001400,,YMD]
	.RYEAR	RY,
	LDB	DOW,[320300,,RY]
	CAIE	M,'01
	 JRST	FOURTH
	CAIN	D,'01
	 JRST	WIN
	CAIE	DOW,1
	 JRST	KING
	CAIN	D,'02
	 JRST	WIN
KING:	CAIN	D,'15
	 JRST	WIN
	 .BREAK	16,160000
FOURTH:	CAIE	M,'07
	 JRST	VETRAN
	CAIN	D,'04
	 JRST	WIN
	CAIE	DOW,5
	 JRST	MON5TH
	CAIN	D,'03
	 JRST	WIN
	 .BREAK	16,160000
MON5TH:	CAIE	DOW,1
	 .BREAK	16,160000
	CAIN	D,'05
	 JRST	WIN
	 .BREAK	16,160000
VETRAN:	CAIE	M,'11
	 JRST	XMAS
	CAIN	D,'11
	 JRST	WIN
	 JRST	THANKS
XMAS:	CAIE	M,'12
	 JRST	ODD
	CAIN	D,'25
	 JRST	WIN
	CAIE	DOW,5
	 .BREAK	16,160000
	CAIN	D,'24
	 JRST	WIN
	CAIN	D,'31
	 JRST	WIN
	 .BREAK	16,160000
ODD:	CAIN	M,'02
	 JRST	MON3
	CAIN	M,'04
	 JRST	MON3
	CAIE	M,'05
	 JRST	LABOR
	CAIE	DOW,1
	 .BREAK	16,160000
	CAIGE	D,'25
	 .BREAK	16,160000
	CAILE	D,'31
	 .BREAK	16,160000
	 JRST	WIN
LABOR:	CAIE	M,'09
	 JRST	COLUMB
	CAIE	DOW,1
	 .BREAK	16,160000
	CAIGE	D,'01
	 .BREAK	16,160000
	CAILE	D,'07
	 .BREAK	16,160000
	 JRST	WIN
COLUMB:	CAIE	M,'10
	 JRST	THANKS
	CAIE	DOW,1
	 .BREAK	16,160000
	CAIGE	D,'08
	 .BREAK	16,160000
	CAILE	D,'14
	 .BREAK	16,160000
	 JRST	WIN
THANKS:	CAIE	M,'11
	 .BREAK	16,160000
	CAIE	DOW,4
	 .BREAK	16,160000
	CAIGE	D,'22
	 .BREAK	16,160000
	CAILE	D,'28
	 .BREAK	16,160000
WIN:	CAIE	DOW,6
	 CAIN	DOW,0
	 .BREAK	16,160000
	.CALL	MAKFIL
	 .LOSE	1000
	.CLOSE	1,
	.BREAK	16,160000	

MON3:	CAIE	DOW,1
	 .BREAK	16,160000
	CAIGE	D,'15
	 .BREAK	16,160000
	CAILE	D,'21
	 .BREAK	16,160000
	 JRST	WIN

FLUSH:	SETZ
	SIXBIT /DELETE/
	DNAME
	FNAME1
	[SIXBIT />/]
	SNAME
	SETZ

MAKFIL:	SETZ
	SIXBIT	/OPEN/
	MOVSI	1
	MOVEI	1
	DNAME
	FNAME1
	YMD
	SNAME
	SETZ

DNAME:	SIXBIT	/DSK/
FNAME1:	SIXBIT	/HLIDAY/
SNAME:	SIXBIT	/COMBAT/
END START