github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-14 15:45:47 +00:00
Code Issues Releases Wiki Activity

Fix "ITS Revived!" messages messing up CROCK.

Browse Source
This commit is contained in:
Lars Brinkhoff 2021-02-03 19:34:32 +01:00
parent 799df3e60c
commit b748c052d3
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/sysen1/crock.1009 → src/sysen1/crock.1010 Executable file → Normal file
View File

@ -64,6 +64,13 @@ ifn 20x,{
ifn tnx, oldmod: 0
ifn its,{
zz==.
loc 42
tsint
loc zz
}
pdl: -40,,pdl
block 40
@ -127,6 +134,8 @@ ifn tnx,[
MOVE T,[HPOSH,,HPOSH+1]
BLT T,EPOS
ifn its, .suset [.smask,,[%pidwn]] ; Request interrupt when ITS revived.
; Start a new clock picture here
LOOP:
ifn its,[ ; Get ITS time into H,M,S
@ -239,6 +248,25 @@ ifn t%vt52, hrroi 2,[asciz "Y7 K"]
haltf
jrst crock
]
ifn its,{
tsint: 0
0
push p,a
.dietim a,
jumpl a,restart ; -1 means ITS revived.
pop p,a
.dismis tsint+1
restart:
movei a,60. ; Short sleep to let DDT print ITS Revived!
.sleep a,
move a,[^P] ; Clear screen.
.iot ttyc,a
move a,["C]
.iot ttyc,a
jrst crock ; Redraw.
}
; Super hairy hand drawer.
; Inputs are: