Trailing-Edge
-
PDP-10 Archives
-
BB-T573C-DD_1986
-
35,1414/runhrs.mac
There is 1 other file named runhrs.mac in the archive. Click here to see a list.
TITLE RUNHRS
SEARCH UUOSYM
;AC DEFINITIONS
F=0 ;FLAG REGISTER
T1=1 ;
T2=2 ;
T3=3
M1=4
M2=5
M3=6
CNT=10
FAC=12
DIG=14
CNTBUF: BLOCK ^D10
DAECLK: .CLOCK
EXP ^D3600
; EXP ^D1
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/Hours 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,^D3
JRST TOOBIG
JRST GETCNT
GOTCNT: JUMPE CNT,WAKE
SUBI CNT,1
SETZM 0,T2
MOVEI FAC,1
GETHRS: MOVE DIG,CNTBUF(CNT)
SUBI DIG,60
IMUL DIG,FAC
ADD T2,DIG
SOJL CNT,GOTHRS
IMULI FAC,^D10
JRST GETHRS
GOTHRS: cain t2,0
jrst wake
OUTSTR [ASCIZ/
Runtime Monitor Begins...
/]
RESET
SETZM 0,T3
MOVEI T3,^D59000
; MOVEI T3,^D1000
HRLI T3,(HB.RWJ)
HIBER T3,
JRST HBRERR
OUTSTR [ASCIZ/
Start of 1st Hour...
/]
HIBERN: reset
SETZM 0,T3
HRLI T3,(HB.RWJ)
MOVE T1,[XWD,DAECLK]
DAEMON T1,
JRST HBRERR
HIBER T3,
JRST HBRERR
SOJLE T2,WAKE
SETZB M1,M2
SETZM 0,CNT
MOVE M1,T2
REP: IDIVI M1,^D10
ADDI M2,60
MOVEM M2,CNTBUF(CNT)
JUMPE M1,REPOUT
ADDI CNT,1
JRST REP
REPOUT: OUTSTR [ASCIZ/End of hour... Hours left = /]
REPLOP: OUTCHR CNTBUF(CNT)
SOJL CNT,REPEND
JRST REPLOP
REPEND: OUTSTR [ASCIZ/
/]
JRST HIBERN
WAKE: OUTSTR [ASCIZ/
END OF HIBERNATION
/]
EXIT
TOOBIG:: OUTSTR [ASCIZ/
% Must be three digits or less
/]
jrst strt
INERR:: OUTSTR [ASCIZ/
%Must be numeric vaule (hours)
/]
jrst strt
HBRERR: OUTSTR [ASCIZ/
? Hibernation error!!!
/]
EXIT
END STRT