PDP-10 Archive: uetp/lib/ourmon.mic from red405a2

Trailing-Edge - PDP-10 Archives - red405a2 - uetp/lib/ourmon.mic

There are no other files named ourmon.mic in the archive.

;<HOLEWA>OURMON.MIC.3, 16-JUL-81 13:43:12, EDIT BY HOLEWA
; patch latest monitor
; added carrier test/set to patch
; B35 in T3 reflects carrier state after DTR(on/off) MTOPR
;added minimal KLINIK-User support to DTR-patch

get PS:<SYSTEM>monitr.exe

info mem

ddt

ttmto1+4/

fff/-1
./dtrflg:

.+1/dtropr:
.=

dtropr/JFCL TTMTO1+4
.+1/SKIPN dtrflg
.+1/JRST LFILMS+13 
.+1/CAIE T3,-1 
.+1/JRST LFILMS+13 

.+1/DZXDTR:
.=

dzxdtr/CAME T2,KLILNO 
.+1/CAMN T2,CTYINT 
.+1/RET 
.+1/PUSHJ P,GETEXA 
.+1/XCT 4,.+2
.+1/SKIPA 
.+1/MOVE T4,T3 
.+1/TRNN T4,1 
.+1/bciob t1,dzdtr(t3)
.+1/TRNE T4,1 
.+1/bsiob t1,dzdtr(t3)
.+1/setz t4,
.+1/tioeb t1,dzcar(t3)
.+1/tro t4,1
.+1/xct 4,.+2
.+1/skipa
.+1/movem t4,t3
.+1/JRST RSKP
.+1/0 
.+1/0 

.+1/0 fff:
.=

ttmto1+4/jrst dtropr
./.=

=dtrflg<fff>0n

dzctin+5/<move 2,kliiwd
lsh 2,-10
andi 2,3
caie 2,3
jrst dzctin+6
move 2,klilno
setz 1,
movei 3,ntycof
call ttqad
jrst dznxt>



info mem