Home Explore Help
Register Sign In
RISCI_ATOM
/
harvey
mirror of https://github.com/Harvey-OS/harvey.git
1
0
Fork 0
Files Issues 0 Wiki
Tree: 2d4f830104
Branches Tags
harvey
/
sys
/
src
/
libc
/
68000
/
strlen.s

strlen.s 157 B
History Raw

123456789101112131415161718 
  1. 	TEXT	strlen(SB), $0
    2. 

  2. 	MOVL	s+0(FP), A1
    3. 

  3. 

  4. 	TSTB	(A1)+
    5. 

  5. 	BEQ	null
    6. 

  6. 	MOVL	A1, A2
    7. 

  7. 

  8. l1:
    9. 

  9. 	TSTB	(A1)+
    10. 

  10. 	BNE	l1
    11. 

  11. 

  12. 	SUBL	A2, A1
    13. 

  13. 	MOVL	A1, R0
    14. 

  14. 	RTS
    15. 

  15. 

  16. null:
    17. 

  17. 	MOVL	$0, R0
    18. 

  18. 	RTS
    19.