ref: ac7fed3ddfa3caf2e2c97f221e023b75ec9693ac
dir: /rt/_myrrt-plan9.s/
#define NPRIVATES 16 /* * counts the length of the string pointed to * by %r8, returning len in %r9. Does not modify * any registers outside of %r9 */ TEXT cstrlen(SB),$0 XORQ R9,R9 JMP .lentest .lenloop: INCQ R9 .lentest: CMPB 0(R8)(R9*1),$0 JNE .lenloop RET /* * iterate over the strings for argc, and put * them into the args array. * * argc in %rax, argv in %rbx, dest vector in %rcx */ TEXT cvt(SB),$0 JMP .cvttest .cvtloop: SUBQ $1,AX MOVQ (BX),R8 CALL cstrlen(SB) MOVQ R8,(CX) MOVQ R9,8(CX) ADDQ $8,BX ADDQ $16,CX .cvttest: TESTQ AX,AX JNE .cvtloop .cvtdone: RET TEXT _main(SB), 1, $(2*8+NPRIVATES*8) MOVQ AX, _tos(SB) LEAQ 16(SP), AX MOVQ AX, _privates(SB) MOVL $NPRIVATES, _nprivates(SB) MOVL inargc-8(FP), R13 LEAQ inargv+0(FP), R14 MOVQ R13, AX IMULQ $16,AX SUBQ AX,SP MOVQ SP,DX MOVQ R13, AX MOVQ R14, BX MOVQ SP, CX CALL cvt(SB) PUSHQ R13 PUSHQ DX CALL main(SB) POPQ DX POPQ R13 exitloop: MOVQ $0,8(SP) MOVQ $8,RARG SYSCALL JMP exitloop TEXT _rt$abort_oob(SB),1,$0 broke: XORQ AX,AX MOVQ $1234,(AX) JMP broke GLOBL argv0(SB), $8 GLOBL _tos(SB), $8 GLOBL _privates(SB), $8 GLOBL _nprivates(SB), $4