БК быстрее всех

[Hunta]

Не совсем уверен, что отработает, но если да, то формально - 37 байт

      1	000000					.ASECT
      2
      3		001036 				.=1036
      4
      5	001036	012702 	001103 			MOV	#Tree,R2
      6	001042	114203 			10$:	MOVB	-(R2),R3
      7	001044	100777 			20$:	BMI	20$
      8	001046	111701 			    	MOVB	@PC, R1 ; 177700
      9	001050	110700 				MOVB	PC, R0 ; 052, "*"
     10	001052	160301 				SUB	R3,R1
     11	001054	006201 				ASR	R1
     12	001056	104024 				EMT	24
     13
     14	001060	104016 			30$:	EMT	16
     15	001062	077302 				SOB	R3,30$
     16
     17	001064	   366 	   001 			.BYTE	366, 1
     18
     19	001066	   003 	   005 	   007 		.BYTE 3,5,7
     20	001071	   003 	   007 	   013 		.BYTE 3,7,11.,15.
	001074	   017
     21	001075	   005 	   013 	   021 		.BYTE 5,11.,17.,23.
	001100	   027
     22	001101	   003 	   003 			.BYTE 3,3
     23	001103				Tree:
     24
     25		000001 				.END