Directory of image this file is from
This file as a plain text file

/RASTYME STARTING UP ROUTINE
START,	GOIFZO-XCDF ;STARTR	;15
	DECREM-XFLD ;15	/17 FLD 0, NO OF USERS
STARTR,	ABORT	;0	/TURN OFF
	PRINT 14;TEXT '_.RASTYM.DATE='
	GOTO	;DATIN
STT2,	PRINT 4;TEXT '_.R:'
	CLEARLC
	FILZRO
	TYPTEX	;PROGNAM	;10	/NAME,DEVICE ,IF ANY
	GOIFZO	;STARTR	;PROGNAM
	GOIFZO	;STT4	;PROGEXT
	MOVE2	;PROGEXT	;DEVDEV
	GOTO	;STT5
STT4,	MOVE2	;SYSDEV	;DEVDEV
STT5,	USERNUM
	ADDIM	;TEXT 'S0'
	STORE1	;PROGEXT
	INCREM-XFLD ;15
	CHANNEL	;DUMMY	;DEVDEV	;CHAIN
	PRINT 10;TEXT ' NOT FOUND'
	DECREM-XFLD ;15
	GOTO	;STT2
DUMMY,0
DEVDEV,	0;0
PROGNAM,	0;0;0
PROGEXT,	0;0
PROGDEV,	0;0
SYSDEV,	DEVICE SYS
DATBELL,	PRINTC 1;BELL
DATIN,	TYPCH	/1ST DAY
	CLEARW	;DEVDEV
	GOIFEQ	;NODATE	;CRET
	RANGE	;DATBELL;"0;"9
	PRNTCH
	SUBTIM	;"0
	STORE1	;DUMMY
	TYPCH	/2ND DAY
	PRNTCH
	GOIFEQ	;DATIN4	;"-
	RANGE	;STARTR	;"0;"9
	MOVE1	;DUMMY	;DEVDEV
	SUBTIM	;"0
	STORE1	;DUMMY
	LOAD1	;DEVDEV
	MULTIM	;10
	ADDTO1	;DUMMY
	TYPCH	/EXPECT "-"
	PRNTCH
	RANGE	;STARTR;"-;"-
DATIN4,	TYPTEX	;DEVDEV	;4	/MONTH, HYPHEN
	CLEARW	;PROGEXT
LOOP,	LOADX1	;PROGEXT
	MULTX1 2
	LOAD2	;RSDTEXT
	SUBT2	;DEVDEV
	GOZERO	;FOUND
	DO	;LOOP	;PROGEXT;1;11	
	GOTO	;STARTR	/NOT SPELT
FOUND,	TYPCH	/1ST YEAR
	RANGE	;.-2	;"7;"9
	PRNTCH
	SUBTIM	;"0
	MULTIM	;10
	STORE1	;PROGDEV	/TENS
	TYPCH
	RANGE	;.-2	;"0;"9
	PRNTCH
	SUBTIM	;"0
	ADD1	;PROGDEV
	SUBTIM	;70
	SUBTIM	;8
	RANGE	;.-3	;0;7
	STORE1-XFLD;29	/USRDATE IN SWAPPED AREA
	LOAD1	;PROGEXT
	ADDIM	;1
	MULTIM	;32^8
	ADDTO1-XFLD;29
	LOAD1	;DUMMY
	MULTIM	;8
	ADDTO1-XFLD;29
	GOTO	;STT2
	TEXT 'NONE'
RSDTEXT,	TEXT 'JAN-'
	TEXT 'FEB-'
	TEXT 'MAR-'
	TEXT 'APR-'
	TEXT 'MAY-'
	TEXT 'JUN-'
	TEXT 'JUL-'
	TEXT 'AUG-'
	TEXT 'SEP-'
	TEXT 'OCT-'
	TEXT 'NOV-'
	TEXT 'DEC-'
NODATE,	SYSDATE
	STORE1-XFLD;29
	GOSUB	;RSDATP
	GOTO	;STT2
RSDATE,	0;0
	GONZRO	;.+2
	DATE
	STORE1	;RSDYEAR
	ANDIM	;248	/370
	SHIFTR 3
	STORE1	;RSDDAY
	MULTIM	;100
	STORE2	;RSDTEMP
	LOAD1	;RSDYEAR
	SHIFTR 8
	STORE1	;RSDMONTH
	ADD2	;RSDTEMP
	MULTIM	;100
	STORE2	;RSDTEMP
	LOAD1	;RSDYEAR
	ANDIM	;7
	ADDIM	;78
	STORE1	;RSDYEAR
	ADD2	;RSDTEMP
	STORE2	;RSDTEMP
	GOTO	;RSDATE
RSDATP,	0;0
	GOSUB	;RSDATE
	LOAD1	;RSDDAY
	NEGATE
	PRINTN 3
	LOADX1	;RSDMONTH
	MULTX1 2
	PRINTX	;RSDTEXT-2	;4
	LOAD1	;RSDYEAR
	PRINTN 3
	LOAD2	;RSDTEMP
	GOTO	;RSDATP
RSDMONTH,	0
RSDYEAR,	0
RSDDAY,	0
RSDTEMP,	0;0
$