HP 8642A Operating Manual page 55

Model 8642A/B Operation
Table 3 - 6 . Error Code and Message Recovery Example Program
10
20
30
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
! ERROR
! JUT
! EDIT
i
LET Gen
!
CODE AND MESSAGE RECOVERY EXAMPLE PROGRAM
JULY 1984
DATE 23 AUG 1984
= 719
COM /Gen_addr/ Gen
!
i
DIM Mss
!
i
ENABLE
ON INTR
OUTPUT
!
|
i
i
g$[74]
INTR 7;2
7 CALL Get.message
Gen;"RM134HZ"
CALL User_program
!
i
i
i
i
END
i
! SUB PROGRAMM TO POLL THE 8642
! AND PRINT THE MESSAGE CODES
!
Get.message: SUB Get.message
ENABLE
COM /Gen.addr/ Gen
LET Byte=SPOLL(Gen)
IF BIT(Byte,2)
IF BIT(Byte,7)
IF BIT(Byte,1)
INTR 7
SUBEND
!
i
Execution: SUB Execution
Change:
COM /Gen.addr/ Gen
OUTPUT Gen;"OE"
ENTER Gen;Mssg_code
PRINT USING 460;Mssg.
THEN
THEN
THEN
code
I
!
|
CALL Execution
CALL Change
CALL Hardware
IMAGE "EXECUTION ERROR CODE =",K
ENTER Gen;Mssg$[1,74]
PRINT Mssg$[1,74]
SUBEND
!
SUB Change
COM /Gen.addr/ Gen
OUTPUT Gen;"OC"
ENTER Gen;Mssg_code
PRINT USING 560;Mssg_c
IMAGE "CHANGE CODE =",
ENTER Gen;Mssg$[1,74]
PRINT Mssg$[1,74]
SUBEND
I
Hardware: SUB Hardware
COM /Gen.addr/ Gen
OUTPUT Gen;"OH"
ENTER Gen;Mssg_code
ode
K
IF Mssg_code<>0 THEN 690
ENTER Gen;Mssg_code
PRINT "NO HARDWARE MESSAGE
GOTO 760
PRINT "MESSAGE CODE ='
ENTER Gen;Mssg_code
;Mssc
IF Mssg.code<>0 THEN 690
ENTER Gen;Mssg$[1,74]
PRINT Mssg$[1 ,74]
IF Mssg$[1,19]="END OF
GOTO 720
SUBEND
FOUND"
_code
MESSAGE LIST" THEN 76(
DEFINE 8642 ADDRESS
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 MESSAGE
) ! LAST MESSAGE ?
GO FOR NEXT MSGE
3-23