	.TITLE	SUDTCM -- BASIC-11/RT-11 V02-03 Y2K FIX
	.IDENT	/000003/

;+
; Copyright (c) 2012 Oleg Safiullin <form@pdp-11.org.ru>
;
; Permission to use, copy, modify, and distribute this software for any
; purpose with or without fee is hereby granted, provided that the above
; copyright notice and this permission notice appear in all copies.
;
; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;-

;+
; Use the following commands to apply this patch:
;
; .MAC BASPAT
; .REN SUDTCM.OBJ SUDTCM.OLD
; .R PAT
; *SUDTCM=SUDTCM.OLD,BASPAT
; *^C
;
; and relink BASIC-11.
;-

	.ASECT
	.=4
	.WORD	200
	.=44
	.WORD	400

	.PSECT	BASSCD
	.=.+222
	BIC	#^C74,R0
	.=.+20
	MOV	R2,-(SP)
	CALL	FIXDAT
	MOV	(SP)+,R2

	.PSECT	FIXDAT,I,RO,LCL
FIXDAT:	ASR	R0
	SWAB	R0
	BIC	#^C37,R5
	BIC	#^C140,R0
	ADD	R0,R5
	ADD	#72.,R5
	CLR	R0
	MOV	#16.,R2
10$:	ASL	R5
	ROL	R0
	CMP	R0,#100.
	BLO	20$
	SUB	#100.,R0
	INC	R5
20$:	DEC	R2
	BNE	10$
	RETURN

	.END
