Something

XOR R0,R0,R0
L1:
ADDI R2,R0,1
WR R2
ADDI R3,R0,1
ADDI R4,R0,2
SUB R5,R3,R4
BGEZ R5,L2
JMP L1
L2:
L3:
ADDI R6,R0,2
WR R6
ADDI R7,R0,2
ADDI R8,R0,3
SUB R9,R8,R7
BGEZ R9,L4
JMP L3
L4:
L5:
ADDI R10,R0,3
WR R10
WRS 0
ADDI R11,R0,4
ADDI R12,R0,4
SUB R13,R11,R12
BNEZ R13,L6
JMP L5
L6:
L7:
ADDI R14,R0,5
WR R14
WRS 2
WRS 4
ADDI R15,R0,5
ADDI R16,R0,5
SUB R17,R15,R16
BEQZ R17,L8
JMP L7
L8:
L9:
ADDI R18,R0,7
WR R18
ADDI R19,R0,6
ADDI R20,R0,7
SUB R21,R20,R19
BLTZ R21,L10
JMP L9
L10:
L11:
ADDI R22,R0,8
ADDI R23,R0,9
SUB R24,R22,R23
BLTZ R24,L12
JMP L11
L12:
L13:
MOVIR R26,0.1
ADDR R25,R0,R26
MOVIR R28,0.2
ADDR R27,R0,R28
SUBR R29,R25,R27
BGEZR R29,L14
JMP L13
L14:
L15:
WRS 6
MOVIR R31,0.2
ADDR R30,R0,R31
MOVIR R33,0.3
ADDR R32,R0,R33
SUBR R34,R32,R30
BGEZR R34,L16
JMP L15
L16:
L17:
WRS 8
MOVIR R36,0.4
ADDR R35,R0,R36
MOVIR R38,0.4
ADDR R37,R0,R38
SUBR R39,R35,R37
BNEZR R39,L18
JMP L17
L18:
L19:
L21:
WRS 10
MOVIR R41,0.7
ADDR R40,R0,R41
MOVIR R43,0.8
ADDR R42,R0,R43
SUBR R44,R42,R40
BLTZR R44,L22
JMP L21
L22:
L23:
WRS 12
MOVIR R46,0.9
ADDR R45,R0,R46
MOVIR R48,1.0e-1
ADDR R47,R0,R48
SUBR R49,R45,R47
BLTZR R49,L24
JMP L23
L24:
MOVIR R51,0.5
ADDR R50,R0,R51
MOVIR R53,6.0
ADDR R52,R0,R53
SUBR R54,R50,R52
BEQZR R54,L20
JMP L19
L20:
HALT
DATA 10 ;
DATA 0 ;
DATA 10 ;
DATA 0 ;
DATA 10 ;
DATA 0 ;
DATA 97 ; a
DATA 0 ;
DATA 98 ; b
DATA 0 ;
DATA 99 ; c
DATA 0 ;
DATA 100 ; d
DATA 0 ;