Trailing-Edge
-
PDP-10 Archives
-
TRAFFIC-20_V4_840514
-
traffic-demonstrations/dem5.mac
There are no other files named dem5.mac in the archive.
TITLE DEMO5
SEARCH TFRCAL,MONSYM
EXTERN SCNUPD
TFZZZ$
;LOCAL DATA AND ARGUMENT BLOCKS
DATA5: BLOCK ^D200
ERROR: 0
ENDIND: 0
TEMPBF: BLOCK 12
BAR: ASCIZ /aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/
TEMPRL: 0
PRESSL: LENTAB
FLOWRL: LENTAB+5
LENTAB: 6
10
15
17
23
20
30
15
7
0
TFINI$ ARG1,DATA5,"DEMO5.FDA",0,ERROR
TFRRD$ ARG2,-2,ENDIND,ERROR
TFWRT$ ARG3,-3,ERROR
TFPUT$ ARG4,"TEMPR",0,TEMPBF,ERROR
TFCHG$ ARG5,"TEMPR","BOLD",ERROR
TFWRT$ ARG6,"OVTMP",ERROR
TFPUT$ ARG7,"OVTMP",0,"OVER TEMPERATURE",ERROR
START:
SETZM TEMPRL
$TFSTA
$TFINI ARG1
SETZM SCNUPD
$TFRRD ARG2
LOOP:
MOVEI 1,1500
DISMS
MOVE 4,TEMPRL
CALL DOBAR
$TFPUT ARG4,"TEMPR"
MOVE 4,@PRESSL
CALL DOBAR
$TFPUT ARG4,"PRESS"
MOVE 4,@FLOWRL
CALL DOBAR
$TFPUT ARG4,"FLOWR"
$TFWRT ARG3
MOVEI 1,LENTAB
AOS PRESSL
SKIPN @PRESSL
MOVEM 1,PRESSL
AOS FLOWRL
SKIPN @FLOWRL
MOVEM 1,FLOWRL
AOS 1,TEMPRL
CAIG 1,^D49
JRST LOOP
$TFCHG ARG5
$TFPUT ARG7
$TFWRT ARG6
MOVEI 1,^D10000
DISMS
$TFSTP
HALTF
JRST START
DOBAR:
MOVEI 1,^D50
MOVE 2,[POINT 7,BAR]
MOVE 5,[POINT 7,TEMPBF]
EXTEND 1,[MOVSLJ
0]
JFCL
SETZ 1,
IDPB 1,5
RET
END START