TITLE SYSCSS - COMMON SYSTEM SUBROUTINES SUBTTL 8-9-65 EXTERNAL UXIT,ERROR,USRDDT,USRPOV,PUUOAC,USRREL ;RETURN THE DATE TO THE USER INTERNAL DATE,THSDAT DATE: MOVE DAT, THSDAT JRST STOAC THSDAT: 0 ;CONTAINS THE DATE ;RETURN TIME SYSTEM HAS RUN IN 60THS OF A SECOND INTERNAL TIMER EXTERNAL TIME TIMER: SKIPA DAT, TIME ;FALL INTO STOAC ;RETURN DATA SWITCHES INTERNAL SWITCH SWITCH: DATAI DAT ;STORE DAT IN USER AC INTERNAL STOAC STOAC: LDB TAC, PUUOAC HRLI TAC, PROG MOVEM DAT,@TAC JRST UXIT ;RETURN DEVICE CHARACTERISTICS INTERNAL DVCHR EXTERNAL JOB,DEVSRC,PJOBN DVCHR: MOVE ITEM,JOB PUSHJ PDP,DEVSRC ;SEARCH FOR DEVICE SKIPA DAT,[0] ;NOT A DEVICE SKIPA DAT,DEVMOD(DEVDAT) JRST STOAC LDB TAC,PJOBN ;GET JOB NUMBER CAME TAC,JOB ;DOES USER ALREADY HAVE THIS DEVICE? TRNN DAT,ASSCON+ASSPRG ;NO TLO DAT,DVAVAL ;NO, BUT HE CAN GET IT JRST STOAC , CALLING SEQUENCE , PUSHJ PDP,HASH , EXIT;L ALWAYS RETURNS HERE , COMPUTES XOR HASH TYPE INDEX FROM NAME (SIXBIT CODE) IN AC DAT , AND LEAVES THE RESULT (00