.title isuppercase .ident /831223/ ; ;Determines whether a character is upper case alphabetic ; ;Register usage ; R0 return address ; R1 character ; isuppercase:: mov (sp)+,r0 movb (sp)+,r1 clr (sp) ;assume not upper case sub #101,r1 ;base it at upper case A cmp r1,#32 ;see if between A-Z, carry set if true rol (sp) jmp (r0) .end