Tektronix DM 5010, Инструкция по эксплуатации

Страница: 73 / 347

Programming—DM 5010
Program Example 8:
1 REM AN EXAMPLE OF DOING TWO UNRELATED TASKS
2 REM MAIN PROGRAM LISTS A TAPE FILE ONTO A PRINTER AT
3 REM INTERRUPT SUBROUTINE FINDS MAXIMUM VOLTAGE USING
100 INIT
109 REM D - ADDRESS OF DM5010, P = ADDRESS OF PRINTER
110 D-16
115 P-40
120 ON SRQ THEN 1000
130 PRINT 9D: “ INIT"
140 INPUT 9D:M
150 PRINT 9D:” 0PC ON"
160 PRINT "ENTER FILE NUMBER TO BE LISTED"
170 IN=UT F
180 FIND F
190 E=1
200 ON EOF (0) THEN 500
210 GO TO 230
220 PRINT 940:AS
230 INPUT 933:AS
240 IF E THEN 220
250 PRINT “DONE WITH FILE ";F
260 PRINT "MAX VOLTAGE IS ";M
270 GO TO 160
499 REM END OF FILE INTERRUPT SUBROUTINE
500 E=0
510 RETURN
999 REM SERVICE REQUEST INTERRUPT SUBROUTINE
1000 POLL X Y *D
1009 REM TEST"FOR OPERATION COMPLETE
1010 IF Y-66 OR Y«B2 THEN 1030
1020 RETURN
1029 REM INPUT READING FROM DM AND COMPARE TO PREVIOUS
1030 INPUT 9D:M1
1040 IF MK«M THEN 1060
1049 REM hEW READING IS NEW MAXIMUM
1050 M=M1
1060 RETURN
ADDRESS P
DM5010
MAXIMUM
ADD JAN 1982
3-35