Intermec Transaction Manager 9560, User Manual

Page: 238 / 309

9560 Transaction Manager User’s Manual
9-12
G#0=0.GOODSND :If the transmission is good, wait for response.
:**********************************************************************
:The subroutine executes the following statements if the host does *
:not respond. *
:**********************************************************************
:
.BADHOST
P"HOST NOT RESPONDING" :Inform user if host does not respond.
P"ACCESS DENIED"
W5 :Wait 5 seconds for message to be read.
G.START :Return to beginning.
:**********************************************************************
:These statements accept the response from the host. *
:**********************************************************************
:
.GOODSND
D$0="" :Clear the badge string and set up for response.
YMP;1000 :Wait up to 10 seconds for the host response.
#0=0.GOODREC :If reception from host is valid, go check
:response.
G.BADHOST
:**********************************************************************
:This subroutine acts on whether the host says the badge is valid or *
:invalid. *
:**********************************************************************
:
.GOODREC
G$0="VALID".OPENDOR :If the badge is valid, open the door.
P"INVALID BADGE NUMBER" :Otherwise, inform user.
P"ACCESS DENIED"
W5 :Wait 5 seconds for the message to be read.
G.START :Return to beginning.
:**********************************************************************
:Open the door and allow the user time to enter before locking the *
:door. *
:**********************************************************************
:
.OPENDOR
P"WELCOME TO WORK" :Greet the user.
FXXXX1 :Actuate relay to open door.
W10 :Leave door open for 10 seconds.
FXXXX0 :Lock door.
G.START :Return to beginning.
:**********************************************************************
:If there is no input on the badge scanner, the program goes to this *
:subroutine. The sense inputs are checked and evaluated. *
:**********************************************************************
:
.HOUSKEP
D#0=0 :Initialize to no alarms/door closed
FX :Read the sense inputs.