TITLE KERSYS - System interface routines SUBTTL Robert C. McQueen 22-September-1983 ; Universals SEARCH GLXMAC ; Galaxy definitions SEARCH KERUNV ; Kermit definitions ; Directives PROLOG (KERSYS) .DIREC FLBLST ; List file line of binary only TWOSEG 400K ; Make this a two segment program RELOC 0 ; Low segment RELOC ; Back to the high segment SUBTTL Table of Contents SUBTTL Revision History COMMENT | | SUBTTL Operating system interface -- SY%TIME ;+ ;.HL1 SY%TIME () ;This routine will return the current system uptime in milliseconds to ;KERMSG. This is used to calculate the effective baud rate for the sending ;and receiving of messages. ;- BLSRTN(SY%TIME) TOPS10< $SAVE ; Save a few registers MOVX T1,%CNSUP ; Get the system uptime GETTAB T1, ; . . . SETZ T1, ; Clear assume zero MULX T1,^D1000 ; Convert to milliseconds DIV T1,JIFSEC## ; . . . MOVE S1,T1 ; Move to the return location >; End of TOPS10 conditional POPJ P, ; Return to the caller SUBTTL Operating system interface -- SY%LOGOUT ;+ ;.HL1 SY%LOGOUT () ;This routine will cause KERMIT-10 to log off the system. ;- BLSRTN(SY%LOGOUT) TOPS20< SETO S1, ; Do it to me LGOUT% ; Do it BLSRET ; Just return >; End of TOPS20 conditional TOPS10< MOVEI S1,S2 ; Build arguments in the registers MOVX S2, ; Run LOGOUT from SYS: MOVX T1, ; Get the program name SETZB T2,T3 ; No extension and the zero SETZB T4,P1 ; No PPN or core assignment RUN S1,UU.PHY ; Do the UUO HALT . ; Fail. >; End of TOPS10 conditional SUBTTL Operating system interface -- SY%DISMISS ;+ ;.HL1 SY%DISMISS(seconds) ;This routine will cause KERMIT to sleep the specified number of seconds. ;- BLSRTN(SY%DISMISS,) TOPS10< SKIPLE S1,SECONDS ; Get the number of seconds SLEEP S1, ; Go away for that many JFCL ; No error return BLSRET NORMAL ; Give a good return >; End of TOPS10 conditional SUBTTL End of KERSYS END