Recovery Example Program - HP 8642A Operation And Calibration Manual

Model 8642A/B
10
20
3D
40
50
60
70
80
90
100
110
120
130
140
150
160
170
180
190
200
210
220
230
240
250
260
270
280
290
300
310
320
330
340
350
360
370
380
390
400
410
420
430
440
450
460
470
480
490
500
510
520
530
540
550
560
570
580
590
600
610
620
630
640
650
660
670
680
690
700
710
720
730
740
750
760
Table 3-6, Error Code and Messag ...
R~covery
Example Program
I
ERROR CODE ANO MESSAGE RECOVERY EXAMPLE PROGRAM
i
JWT JULY 1984
!
EDIT DATE 23 AUG 1984
I
LET Gen=719
!
COM /Gen_addr/ Gen
!
I
DIM Mssg$ [74]
I
ENABLE INTR 7;2
ON INTR 7 CALL Get_message
OUTPUT Gen; "RM134HZ"
!
CALL User_program
!
!
I
END
,
!
SUB PROGRAMM TO POLL THE 8642
, AND PRINT THE MESSAGE CODES
!
Get_message: SUB Get_message
COM /Gen_addr/ Gen
LET Byte=SPOLL(Gen)
IF BIT(Byte,2) THEN CALL Execution
IF BIT(Byte,7) THEN CALL Change
IF BIT(Byte,l) THEN CALL Hardware
ENABLE INTR 7
SUBEND
,
I
Execution: SUB Execution
COM /Gen_addr/ Gen
OUTPUT Gen-"OE"
ENTER Gen;MSs9_code
PRINT USING 460;Mssg_code
IMAGE "EXECUTION ERROR CODE =",K
ENTER Gen;Mssg$[1,74J
PRINT Mssg$[1,74]
SUBEND
I
Change: SUB Change
COM /Gen_addr/ Gen
OUTPUT Gen;"OC"
ENTER Gen;Mssg_code
PRINT USING 560;MsS9_cOde
IMAGE "CHANGE CODE =" K
ENTER Gen;MsSg$[1,74]'
PRINT Mssg$[1,74)
SUBEND
I
Hardware: SUB Hardware
COM /Gen_addr/ Gen
OUTPUT Gen-"OH"
ENTER Gen;Mss9_code
IF
Mssg_code<>O THEN 690
ENTER Gen;Mssg_code
PRINT "NO HARDWARE MESSAGE FOUND"
GOTO 760
PRINT "MESSAGE CODE =";MsS9_code
ENTER Gen;Mssg_code
IF Mssg_code<>O THEN 690
ENTER Gen;Mssg$[1,74]
!
DEFINE 8642 ADDRESS
I
COMMON AREA TO STORE
GEN ADDRESS FOR SUB'S
!
DIMENSION SPACE TO
ENTER IN MESSAGES
READ STATUS BYTE
CHECK MESSAGE BIT
CHECK MESSAGE BIT
CHECK MESSAGE BIT
!
OUTPUT"OE"COMMAND
READ MESSAGE CODE
PRINT MESSAGE CODE
READ MESSAGE
PRINT MESSAGE
OUTPUT"OC"COMMAND
READ MESSAGE CODE
PRINT MESSAGE CODE
!
READ MESSAGE
PRINT MESSAGE
OUTPUT"OH"COMMAND
READ MESSAGE CODE
CHECK
IF
CODE =0
READ MESSAGE CODE
!
PRINT NO MESSAGES
!
PRINT MESSAGE CODE
READ MESSAGE CODE
CHECK
IF
LAST
READ MESSAGE
PRINT Mssg$[l, 74] ,
IF
Mssg$ [1,19] ="END OF MESSAGE LI S1" THEN 760
GOTO 720
PRINT MESSAGE
, LAST MESSAGE
?
GO FOR NEXT MSGE
SUBEND
Operation
..
3-23