.title isdigit .ident /840126/ ; ;Determines if character is a digit ; ;Registers used ; R0 return address ; R1 character ; isdigit:: mov (sp)+,r0 movb (sp)+,r1 ;Character clr (sp) ;assume not a digit ; sub #60,r1 ;base at zero cmp r1,#12 ;10 digits rol (sp) jmp (r0) .end