Table
4-4.
HP-ZB
Operational Verificatiotz
Program Listing (Continued)
1
8200 DISP "Press a soft key to select the desired checkpoint
..."
8210 DISP
8220 DISP "NEXT
-
Press
K1
to perform the next checli.point."
8230 DISP
8240 DISP "REPEAT
-
Press K3 to repeat this checkpoint."
8250 DISP
8260 DISP
"GOTO#
-
Press K4 to select an arbitrary checkpoint."
8270 ON
KEY# 1,"NEXT" GOT0 8320
8280 ON KEY# 3," REPEAT"
GOT0 8340
8290 ON
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 "Enter checkpoint number desired
(0 to 14i, and press END LINE"
8380 DISP
"(0 TERMINATES PROGRAM)."
8390 INPUT
D
8400 IF D(0
OR
D?14 THEN 8360
8410 RETURN
8420
!
8430
!
SUBPROGRAM
TO
BRANCH EXECUTION
TO
DESIRED CHECKPOINT
8440 IF
D=0 THEN 7250
8450 IF 01.7 THEN 8470
8460 ON
D GOT0 1960,2270,2640,3050,3450,3800 84z30
8470 ON 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
TO
BEEP AND
WAIT
1.5 SECONDS
8560 BEEP 250
$20
8570
WAIT
1500
8580 RETURN
8590
!
8600
!
8610
!
SUBROUTINE
TO
READ
h
STATUS BYTE
8620
M$="NO DATA READ"
8630
B=SPOLL(
A
)
8648 WAIT 1000
8650 CLEAR
8666
OISP "The correct value for the status byte after reset is 16
."
8670 DISP
8680 DISP "Ths returned value of the status byte is";B;"."
8690 IF 8=16 THEN R=R*l
8700
IF
B.::::,16
THEN
H=E*O
8710
DISP
HP
5334B
-
Service
Manual
4-61
To Next Page
Loading...
