using PINS = PinList<PB4, PB3, PA1, PA4, PA7, PB1, PB8, PB15>;
PINS::lock();
        LDR.N    R1,??main_0      ;; 0x4800001c
        LDR.N    R0,??main_0+0x4  ;; 0x10092
        STR      R0,[R1, #+0]
        MOVS     R2,#+146
        STR      R2,[R1, #+0]
        STR      R0,[R1, #+0]
        MOVW     R2,#+33050
        LDR      R0,[R1, #+0]
        LDR.N    R0,??main_0+0x8  ;; 0x1811a
        STR      R0,[R1, #+1024]
        STR      R2,[R1, #+1024]
        STR      R0,[R1, #+1024]
        LDR      R0,[R1, #+1024]

PinList<GpioA<>,GpioB<>,GpioC<>>::lock();
        LDR.N    R1,??main_0      ;; 0x4800001c
        LDR.N    R0,??main_0+0x4  ;; 0x1ffff
        STR      R0,[R1, #+0]
        MOVW     R2,#+65535
        STR      R2,[R1, #+0]
        STR      R0,[R1, #+0]
        LDR      R3,[R1, #+0]
        STR      R0,[R1, #+1024]
        STR      R2,[R1, #+1024]
        STR      R0,[R1, #+1024]
        LDR      R3,[R1, #+1024]
        STR      R0,[R1, #+2048]
        STR      R2,[R1, #+2048]
        STR      R0,[R1, #+2048]
        LDR      R0,[R1, #+2048]

push {r4, r5, lr}
subs r0, #1
mov.w r4, #65536
ldrb.w r3, [r0, #1]!
cmp r3, #255
beq.n 0x24000242
and.w r5, r3, #15
lsrs r3, r3, #4
and.w r2, r1, #1
lsrs r1, r1, #1
lsls r3, r3, #10
orrs r2, r4
add.w r3, r3, #1476395008
lsls r2, r5
add.w r3, r3, #131072
str r2, [r3, #24]
b.n 0x2400021c
pop {r4, r5, pc}

PinList<PC7, PC6, PC5, PC4, PC3, PA0, PA1, PA5> pins1;
PinList<PB1, PB2, PB3, PB4, PB5, PD5> pins2;
for(auto i=0;;i++)
        MOVS     R0,#+0
        LDR.N    R1,??DataTable1_4  ;; 0x48000018
{
//  pins1=i;
??main_0:
        AND      R2,R0,#0xF8
        ORR      R2,R2,#0xF80000
        STR      R2,[R1, #+2048]
        AND      R3,R0,#0x2
        LSLS     R2,R0,#+5
        AND      R2,R2,#0x20
        ORRS     R3,R3,R2
        UBFX     R4,R0,#+2,#+1
        ORRS     R3,R4,R3
        ORR      R3,R3,#0x230000
        STR      R3,[R1, #+0]
//  pins2=i;
        ORR      R2,R2,#0x200000
        AND      R3,R0,#0x3E
        RBIT     R3,R3
        LSRS     R3,R3,#+25
        AND      R3,R3,#0x3E
        ORR      R3,R3,#0x3E0000
        STR      R3,[R1, #+1024]
        STR      R2,[R1, #+3072]
//}
        ADDS     R0,R0,#+1
        B.N      ??main_0

//auto a=0;
        MOVS     R0,#+0
//auto b=0;
        MOVS     R1,#+0
        LDR.N    R2,??DataTable1_4  ;; 0x48000018
//while(1)
//{
//  pins1=a++;
??main_0:
        MOV      R3,R0
        AND      R4,R3,#0xF8
        ORR      R4,R4,#0xF80000
        STR      R4,[R2, #+2048]
        LSLS     R5,R3,#+5
        AND      R5,R5,#0x20
        AND      R4,R3,#0x2
        ORRS     R5,R4,R5
        UBFX     R3,R3,#+2,#+1
        ORRS     R5,R3,R5
        ORR      R5,R5,#0x230000
        STR      R5,[R2, #+0]
//  pins2=b++;
        MOV      R3,R1
        AND      R4,R3,#0x3E
        RBIT     R4,R4
        LSRS     R4,R4,#+25
        AND      R4,R4,#0x3E
        LSLS     R3,R3,#+5
        ORR      R4,R4,#0x3E0000
        AND      R3,R3,#0x20
        STR      R4,[R2, #+1024]
        ORR      R3,R3,#0x200000
        ADDS     R0,R0,#+1
        ADDS     R1,R1,#+1
        STR      R3,[R2, #+3072]
//}
        B.N      ??main_0

20000410:   4d14         ldr   r5, [pc, #80]   ; (20000464 <main+0x58>)
20000412:   4c15         ldr   r4, [pc, #84]   ; (20000468 <main+0x5c>)
20000414:   f8df e054    ldr.w   lr, [pc, #84]   ; 2000046c <main+0x60>
20000418:   2100         movs   r1, #0
2000041a:   f04f 4c90    mov.w   ip, #1207959552   ; 0x48000000
2000041e:   0148         lsls   r0, r1, #5
20000420:   f000 0020    and.w   r0, r0, #32
20000424:   f3c1 0280    ubfx   r2, r1, #2, #1
20000428:   f001 0702    and.w   r7, r1, #2
2000042c:   f001 033e    and.w   r3, r1, #62   ; 0x3e
20000430:   4302         orrs   r2, r0
20000432:   fa93 f3a3    rbit   r3, r3
20000436:   0e5b         lsrs   r3, r3, #25
20000438:   f001 06f8    and.w   r6, r1, #248   ; 0xf8
2000043c:   433a         orrs   r2, r7
2000043e:   f003 033e    and.w   r3, r3, #62   ; 0x3e
20000442:   f446 0678    orr.w   r6, r6, #16252928   ; 0xf80000
20000446:   f442 120c    orr.w   r2, r2, #2293760   ; 0x230000
2000044a:   f443 1378    orr.w   r3, r3, #4063232   ; 0x3e0000
2000044e:   f440 1000    orr.w   r0, r0, #2097152   ; 0x200000
20000452:   61ae         str   r6, [r5, #24]
20000454:   3101         adds   r1, #1
20000456:   f8cc 2018    str.w   r2, [ip, #24]
2000045a:   61a3         str   r3, [r4, #24]
2000045c:   f8ce 0018    str.w   r0, [lr, #24]
20000460:   e7dd         b.n   2000041e <main+0x12>
20000462:   bf00         nop
20000464:   48000800    .word   0x48000800
20000468:   48000400    .word   0x48000400
2000046c:   48000c00    .word   0x48000c00

0x08000790 4912      LDR           r1,[pc,#72]  ; @0x080007DC
0x08000792 2000      MOVS          r0,#0x00
0x08000794 2200      MOVS          r2,#0x00
0x08000798 F00203F8  AND           r3,r2,#0xF8
0x0800079C F0020402  AND           r4,r2,#0x02
0x080007A0 F5030378  ADD           r3,r3,#0xF80000
0x080007A4 F8C13800  STR           r3,[r1,#0x800]
0x080007A8 F3C20380  UBFX          r3,r2,#2,#1
0x080007AC 4423      ADD           r3,r3,r4
0x080007AE F0000420  AND           r4,r0,#0x20
0x080007B2 3020      ADDS          r0,r0,#0x20
0x080007B4 4423      ADD           r3,r3,r4
0x080007B6 F503130C  ADD           r3,r3,#0x230000
0x080007BA 600B      STR           r3,[r1,#0x00]
0x080007BC F002033E  AND           r3,r2,#0x3E
0x080007C0 3201      ADDS          r2,r2,#0x01
0x080007C2 FA93F3A3  RBIT          r3,r3
0x080007C6 0E5B      LSRS          r3,r3,#25
0x080007C8 F5031378  ADD           r3,r3,#0x3E0000
0x080007CC F8C13400  STR           r3,[r1,#0x400]
0x080007D0 F5041300  ADD           r3,r4,#0x200000
0x080007D4 F8C13C00  STR           r3,[r1,#0xC00]
0x080007D8 E7DE      B             0x08000798
0x080007DA BF00      NOP           
0x080007DC 0018      DCW           0x0018
0x080007DE 4800      DCW           0x4800

typedef struct{
   volatile uint8_t * port;
   uint8_t            or;
} port_pin;

#define FLASH __flash

#define pn(p,b) {&PORT ## p, _BV(b)}

const FLASH port_pin pins[] = {
  pn(A,3),
  pn(C,5),
  pn(B,4),
  pn(C,6)
};

const FLASH port_pin pin_ns[] = {
  pn(D,1)
};

void port_write (volatile const FLASH port_pin *p, uint8_t a, uint8_t data)
{   uint8_t s=1;
      for(uint8_t i=0; i<a; i++, s<<=1){
      if (data & s)
         *p->port |= p->or;
         else
            *p->port &= ~(p->or);
      p++;
   }
}


port_write (pins, sizeof(pins)/sizeof(port_pin), 0b00001101);
port_write (pins, sizeof(pins)/sizeof(port_pin), 0b00000101);
port_write (pins, sizeof(pins)/sizeof(port_pin), 0);

port_write (pin_ns, sizeof(pin_ns)/sizeof(port_pin), 1);
port_write (pin_ns, sizeof(pin_ns)/sizeof(port_pin), 0);