XLFUTL ;SFISC/RWF - Library Function, Check digit ;6/29/94 14:04
Source file <XLFUTL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CCD(%X) | ; Compute check digit and append to number
|
|
VCD(%X) | ; -- Verify check digit (last digit)
; -- Pass X = integer with check digit appended ; -- rtns 0 if check not valid or 1 if valid |
|
QL(X) | ;$QLENGTH OF GLOBAL STRING
|
|
QS(X1,X2) | ;$QSUBSCRIPT OF GLOBAL STRING
|
|
BASE(%X1,%X2,%X3) | ;Convert %X1 from %X2 base to %X3 base
|
|
DEC(N,B) | ;Cnv N from B to 10
|
|
CNV(N,B) | ;Cnv N from 10 to B
|
|