Trailing-Edge
-
PDP-10 Archives
-
BB-T573C-DD_1986
-
35,1414/sleepr.mac
There are 2 other files named sleepr.mac in the archive. Click here to see a list.
TITLE SLEEPR
SEARCH UUOSYM
;AC DEFINITIONS
F=0 ;FLAG REGISTER
T1=1 ;
T2=4 ;
T3=6
CNT=10
FAC=12
DIG=14
CNTBUF: BLOCK ^D10
STRT: SETZB CNT,T1
SETZB T2,T3
SETZB FAC,DIG
CNTINI: SETZM 0,CNTBUF(CNT)
ADDI CNT,1
CAIGE CNT,^D9
JRST CNTINI
CNTINX: SETZM 0,CNT
OUTSTR [ASCIZ/Minutes to sleep: /]
GETCNT: INCHRW t2
ANDI T2,777
CAIN T2,15 ;CR
JRST GOTCNT
CAIGE T2,"0"
JRST INERR
CAILE T2,"9"
JRST INERR
MOVEM T2,CNTBUF(CNT)
ADDI CNT,1
CAILE CNT,^D5
JRST TOOBIG
JRST GETCNT
GOTCNT: JUMPE CNT,WAKE
SUBI CNT,1
SETZM 0,T2
MOVEI FAC,1
GETMIN: MOVE DIG,CNTBUF(CNT)
SUBI DIG,60
IMUL DIG,FAC
ADD T2,DIG
SOJL CNT,GOTMIN
IMULI FAC,^D10
JRST GETMIN
GOTMIN: IMULI T2,^D60 ;SECONDS
MOVEI T3,0
HLR T3,T2 ;STORE EXCESS OF 18 BIT CNT
TRNN T2,0 ;IN CASE 0 MINUTES PLUG IN 1 SEC
ADDI T2,1
HIBERN: MOVSI T1,(HB.SEC!HB.RWJ) ;SET UP HIBER BITS
HRR T1,T2
HIBER T1, ;DO THE HIBER
JRST HBRERR ;OH WELL
HIBNXT: SOJL T3,WAKE
MOVSI T1,(HB.SEC!HB.RWJ) ;SET UP HIBER BITS
HRRI T1,777777
HIBER T1, ;DO THE HIBER
JRST HBRERR ;OH WELL
JRST HIBNXT
WAKE: EXIT
TOOBIG:: OUTSTR [ASCIZ/
% Must be five digits or less
/]
jrst strt
INERR:: OUTSTR [ASCIZ/
%Must be numeric vaule (minutes)
/]
jrst strt
HBRERR: OUTSTR [ASCIZ/
? Hibernation error!!!
/]
END STRT
;HB.SWP==1B0 ;ALLOW IMMEDIATE SWAP OUT
;HB.SEC==1B1 ;TIME IS IN SECONDS
;HB.RWJ==1B15 ;THIS JOB
; OPDEF INCHRW [TTCALL 0,] ;INPUT CHAR AND WAIT
; OPDEF OUTSTR [TTCALL 3,] ;OUTPUT STRING