HP 5334B Service Manual page 71

Table
4-4.
HP-ZB Operational Verificatiotz
Program Listing (Continued)
1
8200 DISP " P r e s s a s o f t key t o s e l e c t t h e d e s i r e d c h e c k p o i n t
. . . "
8210 DISP
8220 DISP "NEXT
-
P r e s s K 1 t o p e r f o r m t h e n e x t c h e c l i . p o i n t . "
8230 DISP
8240 DISP "REPEAT
-
P r e s s K3 t o r e p e a t t h i s c h e c k p o i n t . "
8250 DISP
8260 DISP "GOTO#
-
P r e s s K4 t o s e l e c t a n a r b i t r a r y c h e c k p o i n t . "
8270 O N KEY# 1,"NEXT" GOT0 8320
8280 O N KEY# 3 , " REPEAT" GOT0 8340
8290 O N KEY# 4 , " GOTO#" GOT0 8360
8300 KEY LABEL
8310 GOT0 8310
8320 D=S+l
8330 RETURN
8340 D=S
8350 RETURN
8360 CLEAR
8370 DISP " E n t e r c h e c k p o i n t number d e s i r e d ( 0 t o 1 4 i , and p r e s s END L I N E "
8380 DISP " ( 0 TERMINATES PROGRAM)."
8390 INPUT D
8400 I F D(0 OR D?14 THEN 8360
8410 RETURN
8420 !
8430 ! SUBPROGRAM T O BRANCH EXECUTION T O DESIRED CHECKPOINT
8440 I F D=0 THEN 7250
8450 I F 01.7 THEN 8470
8460 O N D GOT0 1960,2270,2640,3050,3450,3800 8 4 z 3 0
8470 O N D-7 GOT0 4430,4830,5170,5600,6140 >6290 >6630,7250
8480 !
8490 ! SUBROUTINE TO PROMT USER AND FAUSE
8500 DISP
8510 DISP A$
8520 PAUSE
8530 RETURN
8540 !
8550 ! SUBROUTINE T O BEEP AND W A I T 1 . 5 SECONDS
8560 BEEP 250 $ 2 0
8570 W A I T 1500
8580 RETURN
8590 !
8600 !
8610 ! SUBROUTINE T O READ h STATUS BYTE
8620 M$="NO DATA READ"
8630 B=SPOLL( A
)
8648 WAIT 1000
8650 CLEAR
8666 OISP "The c o r r e c t v a l u e f o r t h e s t a t u s b y t e a f t e r r e s e t i s 16
. "
8670 DISP
8680 DISP "Ths r e t u r n e d v a l u e o f t h e s t a t u s b y t e i s " ; B ; " . "
8690 I F 8=16 THEN R=R*l
8700 I F B.::::,16 THEN H=E*O
8710
D I S P
HP 5334B
-
Service Manual
4-61