Intermec PB51 Fingerprint Developer's Guide (old) - Page 151

Complete Listing of ERRHAND.PRG, Pause, Print, Setup

Page 151 highlights

Chapter 8 - Error Handling ERRHAND.PRG Subroutines (continued) At Line 400000 500000 600000 700000 1500000 1700000 1800000 1900000 Description The FEED-routine executes a FORMFEED with error-checking. Called by the statement GOSUB 400000. The PRINT-routine executes a PRINTFEED with error-checking. Called by the statement GOSUB 500000. Clears the printer display and makes the display texts stored in the variables DISP1$ and DISP2$ appear on the first and second line in the display. Called by the statement GOSUB 600000. The Init routine initiates error-checking, opens the console for output, and displays the main display texts (NORDIS1$ and NORDIS2$). It also sets up the some of the keys on the keyboard (if any) and assigns subroutines to each key. Called by the statement GOSUB 700000. Pause key (key No. 15) interrupts the program until pressed a second time. Called by the statement GOSUB 1500000. Routine for Print key (key No. 17) that calls subroutine 500000. Called by the statement GOSUB 1700000. Routine for Setup key (key No. 18). Places the printer in Setup Mode. Called by the statement GOSUB 1800000. Routine for Feed key (key No. 19), that calls subroutine 400000. Called by the statement GOSUB 1900000. For more information, see the next section. Complete Listing of ERRHAND.PRG 10 PROGNO$="Ver. 1.21 2005-11-25" 15 NORDIS1$="FP-APPLICATION" : NORDIS2$= "VERSION 1.21" 20 GOSUB 700000 : 'Initiate 100000 'Error routine 100010 EFLAG%=ERR 100050 'PRINT EFLAG%:'Activate for debug 100060 LASTERROR%=EFLAG% 100200 RESUME NEXT 160000 'PRINT "Last error = ";LASTERROR%:'Activate for debug 160050 'IF LASTERROR%0 THEN PRINT "At line ";ERL 160100 LASTERROR%=0 160200 RETURN 200000 'Error handling routine 200010 IF EFLAG%=1006 THEN GOTO 200040 : ' Formfeed instead of print 200020 LED 1 ON : LED 0 OFF : BUSY 200030 SOUND 400,10 200040 IF EFLAG%=1031 THEN GOSUB 300000 200050 IF EFLAG%=1005 THEN GOSUB 310000 200060 IF EFLAG%=1006 THEN GOSUB 320000 200070 IF EFLAG%=1022 THEN GOSUB 330000 200080 IF EFLAG%=1027 THEN GOSUB 340000 200090 DISP1$=NORDIS1$ : DISP2$=NORDIS2$ 200100 GOSUB 600000 200110 LED 1 OFF : LED 0 ON : READY 200400 RETURN 300000 'Error 1031 Next label not found Intermec Fingerprint Developer's Guide 135

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 32
  • 33
  • 34
  • 35
  • 36
  • 37
  • 38
  • 39
  • 40
  • 41
  • 42
  • 43
  • 44
  • 45
  • 46
  • 47
  • 48
  • 49
  • 50
  • 51
  • 52
  • 53
  • 54
  • 55
  • 56
  • 57
  • 58
  • 59
  • 60
  • 61
  • 62
  • 63
  • 64
  • 65
  • 66
  • 67
  • 68
  • 69
  • 70
  • 71
  • 72
  • 73
  • 74
  • 75
  • 76
  • 77
  • 78
  • 79
  • 80
  • 81
  • 82
  • 83
  • 84
  • 85
  • 86
  • 87
  • 88
  • 89
  • 90
  • 91
  • 92
  • 93
  • 94
  • 95
  • 96
  • 97
  • 98
  • 99
  • 100
  • 101
  • 102
  • 103
  • 104
  • 105
  • 106
  • 107
  • 108
  • 109
  • 110
  • 111
  • 112
  • 113
  • 114
  • 115
  • 116
  • 117
  • 118
  • 119
  • 120
  • 121
  • 122
  • 123
  • 124
  • 125
  • 126
  • 127
  • 128
  • 129
  • 130
  • 131
  • 132
  • 133
  • 134
  • 135
  • 136
  • 137
  • 138
  • 139
  • 140
  • 141
  • 142
  • 143
  • 144
  • 145
  • 146
  • 147
  • 148
  • 149
  • 150
  • 151
  • 152
  • 153
  • 154
  • 155
  • 156
  • 157
  • 158
  • 159
  • 160
  • 161
  • 162
  • 163
  • 164
  • 165
  • 166
  • 167
  • 168
  • 169
  • 170
  • 171
  • 172
  • 173
  • 174
  • 175
  • 176
  • 177
  • 178
  • 179
  • 180
  • 181
  • 182
  • 183
  • 184
  • 185
  • 186
  • 187

Chapter 8 — Error Handling
Intermec Fingerprint Developer’s Guide
135
For more information, see the next section.
Complete Listing of ERRHAND.PRG
10 PROGNO$=“Ver. 1.21 2005-11-25”
15 NORDIS1$=“FP-APPLICATION” : NORDIS2$= “VERSION 1.21”
20 GOSUB 700000 : 'Initiate
100000 'Error routine
100010 EFLAG%=ERR
100050 'PRINT EFLAG%:'Activate for debug
100060 LASTERROR%=EFLAG%
100200 RESUME NEXT
160000 'PRINT “Last error = ”;LASTERROR%:'Activate for debug
160050 'IF LASTERROR%<>0 THEN PRINT “At line ”;ERL
160100 LASTERROR%=0
160200 RETURN
200000 'Error handling routine
200010 IF EFLAG%=1006 THEN GOTO 200040 : ' Formfeed instead of print
200020 LED 1 ON : LED 0 OFF : BUSY
200030 SOUND 400,10
200040 IF EFLAG%=1031 THEN GOSUB 300000
200050 IF EFLAG%=1005 THEN GOSUB 310000
200060 IF EFLAG%=1006 THEN GOSUB 320000
200070 IF EFLAG%=1022 THEN GOSUB 330000
200080 IF EFLAG%=1027 THEN GOSUB 340000
200090 DISP1$=NORDIS1$ : DISP2$=NORDIS2$
200100 GOSUB 600000
200110 LED 1 OFF : LED 0 ON : READY
200400 RETURN
300000 'Error 1031 Next label not found
400000
The FEED-routine executes a FORMFEED with error-checking.
Called by the statement GOSUB 400000.
500000
The PRINT-routine executes a PRINTFEED with error-checking.
Called by the statement GOSUB 500000.
600000
Clears the printer display and makes the display texts stored in
the variables DISP1$ and DISP2$ appear on the first and second
line in the display. Called by the statement GOSUB 600000.
700000
The Init routine initiates error-checking, opens the console for
output, and displays the main display texts (NORDIS1$ and
NORDIS2$). It also sets up the some of the keys on the keyboard
(if any) and assigns subroutines to each key. Called by the
statement GOSUB 700000.
1500000
Pause
key (key No. 15) interrupts the program until pressed a
second time. Called by the statement GOSUB 1500000.
1700000
Routine for
Print
key (key No. 17) that calls subroutine 500000.
Called by the statement GOSUB 1700000.
1800000
Routine for
Setup
key (key No. 18). Places the printer in Setup
Mode. Called by the statement GOSUB 1800000.
1900000
Routine for
Feed
key (key No. 19), that calls subroutine 400000.
Called by the statement GOSUB 1900000.
ERRHAND.PRG Subroutines
(continued)
At Line
Description