[TUHS] Re: Software written in B

Hello, That is really interesting, thank you for providing that. I see that su.b contains non-ascii characters ($11,$12,$13,$14) which tripped my linux console when I attempted a copy paste, since $13 is XOFF :) Is there a way to escape these characters? Or update them, since it looks like a password provided on command line. In its current state my compiler managed to eat all these sources except goto which segfaults for a reason I have not determined yet. May I have your authorization for copying these files into my own b compiler repository ( https://git.sr.ht/~f4grx/bpars )? What licence and attribution info shall I indicate? Sebastien PS: here is the 68hc11 assembly that the current version of my B compiler generates for echo.b. Code is still not functional, parameters and locals are not allocated, but instructions are consistent. this mcu is similar to 6502 and other cpus in the motorola 6800 line: two 8-bit accumulators A,B combinable into D, and two 16-bit index reg X and Y (Y is not used), 16-bit SP. /*---------------------------------------------------------------------------*/         .text         .global main         .func   main main: #function has no args #local var i size 2 stack offset 0 TODO #total stack frame size for compound: 2         LDD     #1         STD     i        /*Direct assign - local*/ .Lwhile_1: /*binop, both complex*/ /*generate RHS in D, then move in temp*/ in gen_index: computing base expression (as lvalue) in gen_index: lvalue=1         LDX     #argv /*lvalue-extern*/ in gen_index: computing base expression done         LDD     0,X         PSHB         PSHA /*generate LHS in D*/         LDX     #i /*lvalue-local*/         LDD     0,X     /*Get value in X for easy 16-bit op*/         XGDX    /*Now value is in X and address in D*/         INX     /*Do the preinc*/         XGDX    /*Now updated value is in D and address in X*/         STD     0,X     /*Save the new value, next code can use it*/ /*execute*/         PULX    /*--- Recall complex B computed before */         STX     TEMP    /*---put in temp for binop*/         CPD     TEMP         BGT     .Lcond2 #start emit arglist for call         .section .rodata .strconst_3:         .asciz "%s "         .text         LDD     #.strconst_3         PSHB    /*argoff=0*/         PSHA in gen_index: computing base expression (as lvalue) in gen_index: lvalue=1         LDX     #argv /*lvalue-extern*/ in gen_index: computing base expression done         LDD     i /*local*/         LSLD         STX     TEMP         ADDD    TEMP         XGDX         LDD     0,X         PSHB    /*argoff=2*/         PSHA #end emit arglist, size=4         JSR     printf  /*undef*/         PULX         PULX /*end of loop, eval condition again*/         BRA     .Lwhile_1 .Lcond_2: #start emit arglist for call         LDD     #10         PSHB    /*argoff=0*/         PSHA #end emit arglist, size=2         JSR     putchar /*undef*/         PULX .Lstmtend_0: /*TODO avoid generating this if the statement does not contain breaks (no need for recursion)*/ .Lmain__rts: /* TODO avoid this label if statement contains no return */         RTS         .endfunc        # main Le 14/06/2023 à 22:03, Angelo Papenhoff a écrit :