;COMPARISON OF DSK:SYSEN2;PEEK 629 AND DSK:SYSEN2;PEEK 630
;OPTIONS ARE    /3

**** FILE DSK:SYSEN2;PEEK 629, 45-27 (107540)
	DNUM 2,A	; Output year
**** FILE DSK:SYSEN2;PEEK 630, 45-27 (107540)
	ADDI A,1900.
	DNUM 4,A	; Output year
***************


;COMPARISON OF DSK:SYSENG;DUMP 442 AND DSK:SYSENG;DUMP 443
;OPTIONS ARE    /3

**** FILE DSK:SYSENG;DUMP 442, 48-2 (80017)
GETDAT:	PRINT ENTER DATE (YY/MM/DD)
	PUSHJ P,GETDT
	CAIGE N,100.
**** FILE DSK:SYSENG;DUMP 443, 48-2 (80017)
GETDAT:	PRINT ENTER DATE (YYYY/MM/DD)
	PUSHJ P,GETDT
	CAIL N,1900.
	 SUBI N,1900.
	CAIGE N,127.
***************

**** FILE DSK:SYSENG;DUMP 442, 76-30 (116598)
**** FILE DSK:SYSENG;DUMP 443, 76-30 (116631)
	ADDI A,1900.
***************


;COMPARISON OF DSK:SYSEN2;FIND 199 AND DSK:SYSEN2;FIND 200
;OPTIONS ARE    /3

**** FILE DSK:SYSEN2;FIND 199, 25-143 (50686)
**** FILE DSK:SYSEN2;FIND 200, 25-143 (50686)
	ADDI	K,1900.
***************

**** FILE DSK:SYSEN2;FIND 199, 25-180 (51258)
**** FILE DSK:SYSEN2;FIND 200, 25-181 (51273)
	ADDI	K,1900.
***************


;COMPARISON OF DSK:SYSTEM;ITS 1647 AND DSK:SYSTEM;ITS 1648
;OPTIONS ARE    /3

**** FILE DSK:SYSTEM;ITS 1647, 267-27 (522575)
**** FILE DSK:SYSTEM;ITS 1648, 267-27 (522575)
	ADDI TT,1900.
***************


;COMPARISON OF DSK:SYSENG;DATIME 73 AND DSK:SYSENG;DATIME 74
;OPTIONS ARE    /3

**** FILE DSK:SYSENG;DATIME 73, 3-15 (3302)
	LDB B,(E)		; Get numerical value into B.
**** FILE DSK:SYSENG;DATIME 74, 3-15 (3302)
	LDB B,(E)		; Get numerical value into B.
	IDIVI B,100.		; Chop of top digits
	MOVE B,C
***************


;COMPARISON OF DSK:KLH;OUTDOC 208 AND DSK:KLH;OUTDOC 209
;OPTIONS ARE    /3

**** FILE DSK:KLH;OUTDOC 208, 8-17 (12690)
TIM(RFC1,{atime})	Datime as RFC822 "dd Mon yy hh:mm:ss ZON"
TIM(RFC2,{atime})	Datime as RFC822 (RFC1) but with short DOW.
**** FILE DSK:KLH;OUTDOC 209, 8-17 (12690)
TIM(RFC1,{atime})	Datime as RFC2822 "dd Mon yyyy hh:mm:ss ZON"
TIM(RFC2,{atime})	Datime as RFC2822 (RFC1) but with short DOW.
***************


;COMPARISON OF DSK:KLH;OUT 250 AND DSK:KLH;OUT 251
;OPTIONS ARE    /3

**** FILE DSK:KLH;OUT 250, 36-26 (66067)
DEFT RFC1,OXTRF1	; RFC1  - Datime as RFC822 "dd Mon yy hh:mm:ss ZON"
DEFT RFC2,OXTRF2	; RFC2	- Datime as RFC822 (RFC1) but with short DOW.
**** FILE DSK:KLH;OUT 251, 36-26 (66067)
DEFT RFC1,OXTRF1	; RFC1  - Datime as RFC2822 "dd Mon yyyy hh:mm:ss ZON"
DEFT RFC2,OXTRF2	; RFC2	- Datime as RFC2822 (RFC1) but with short DOW.
***************

**** FILE DSK:KLH;OUT 250, 37-13 (68913)
	SUBI U3,1900.
**** FILE DSK:KLH;OUT 251, 37-13 (68917)
	PUSH P,U4
	IDIVI U3,100.
	MOVE U3,U4
	POP P,U4
***************

**** FILE DSK:KLH;OUT 250, 37-18 (69022)
	SUBI U3,1900.
**** FILE DSK:KLH;OUT 251, 37-21 (69062)
	PUSH P,U4
	IDIVI U3,100.
	MOVE U3,U4
	POP P,U4
***************

**** FILE DSK:KLH;OUT 250, 37-69 (70120)
;;; RFC822 standard mail timestamps: RFC1 and RFC2.
**** FILE DSK:KLH;OUT 251, 37-75 (70196)
;;; RFC2822 standard mail timestamps: RFC1 and RFC2.
***************

**** FILE DSK:KLH;OUT 250, 37-78 (70365)
	MOVE U3,TM.YR(UTMAC)	; Year as 2-digit number.
	SUBI U3,1900.
	CALL OXTD2
**** FILE DSK:KLH;OUT 251, 37-84 (70442)
	MOVE U3,TM.YR(UTMAC)	; Year as 4-digit number.
	CALL OXTD4
***************


;COMPARISON OF DSK:SYSENG;DIRDEV 86 AND DSK:SYSENG;DIRDEV 87
;OPTIONS ARE    /3

**** FILE DSK:SYSENG;DIRDEV 86, 17-190 (29428)
LFCHR9:	MOVEI	A,49.
**** FILE DSK:SYSENG;DIRDEV 87, 17-190 (29428)
LFCHR9:	MOVEI	A,51.		;[BV] 49. => 51. with century
***************

**** FILE DSK:SYSENG;DIRDEV 86, 17-259 (30615)
	CAIG	A,9
	IDPB	C,LFBPTR
**** FILE DSK:SYSENG;DIRDEV 87, 17-259 (30646)
	addi a,1900.		;[BV] with century
;	CAIG	A,9
;	IDPB	C,LFBPTR
***************