The text read off it
[90.02.12]
SYS)161
This is a conversion table used in converting from 709 to 705 collating sequence.
SYS)162
TSX SYS)162,4
OP SYS)161
PZE LOC(1), T(1), LOCATOR(1)
PZE LENGTH(1), ,6*BYTE(1)
PZE LOC(2), T(2), LOCATOR(2)
PZE LENGTH(2), ,6*BYTE(2)
HIGH RETURN from comparison
EQUAL RETURN from comparison
LOW RETURN from comparison
This subroutine performs an alphabetic comparison on two fields. OP is a CVR or NOP depending of the need to adjust the collating sequence before the comparison. If T(J) is 0, LOC(J) is the location of the field. If T(J) is not zero, the field is located by the 'pointer' word LOCATOR(J) and LOC(J) is the word displacement from the base. LENGTH(J) is the length of the field in characters and BYTE(J) is the beginning byte position of the field.
SYS)163
TSX SYS)163,4
PZE CP)+NN
This routine upscales the single precision AC by 10**10 and then upscales by the constant located at CP)+NN.
SYS)164
TSX SYS)164,4
PZE CP)+NN
This routine upscales the number in the MQ by 10**10 and then upscales by the constant located at CP)+NN.
SYS)165
TSX SYS)165,4
PZE CP)+NN
This routine upscales the double precision AC-MQ by the constant located at CP)+NN.
SYS)166
TSX SYS)166,4
PZE CP)+NN
This routine upscales the double precision AC-MQ by the constant located at CP)+NN. On entry to the routine, the high order part of the number is in the MQ and the low order in the AC.