.title clower ; ; this routine implements the following fortran interface ; ; c = clower(x) ; ; where c and x are both logical*1 variables ; ; if x is in the range A-Z, the lower case equivalent is returned. If not ; the character is returned ; ap=%5 x=2 BIGA=101 BIGZ=132 LETA=141 LETZ=172 DIF=LETA-BIGA MASK=177 clower:: movb @x(ap),r0 ; place character in r0 cmpb r0,#BIGA&MASK ; see if >= A blt 10$ ; if <, then return cmpb r0,#BIGZ&MASK ; see if <= Z bgt 10$ ; if >, then return add #DIF,r0 ; add 40(8) to character 10$: return .end