.TITLE MATCH .IDENT /830812/ ;COMPARES TWO STRINGS AND RETURNS A VERDICT ; ;REGISTER USAGE : ; R0 RETURN VALUE ; R1 SECOND STRING ; R2 FIRST STRING ; MATCH:: MOV SP,R0 TST (R0)+ MOV (R0),R1 ;SECOND STRING MOV R2,(R0)+ MOV (R0),R2 ;FIRST STRING MOV (SP)+,(R0)+ ; CLR (R0) ;ASSUME LESS THAN 1$: CMPB (R2)+,(R1) ;COMPARE UNTIL ... BNE 4$ TSTB (R1)+ BNE 1$ ; 2$: INC (R0) ;... END OF STRING ==> EQUALITY ASL (R0) ; 3$: MOV (SP)+,R2 RTS PC ; 4$: BLO 3$ ;... UNEQUAL ==> LESS THAN INC (R0) ;... UNEQUAL ==> GREATER THAN BR 2$ .END