;CND BSET A 1 2 0 ; Este archivo es (C) Carlos Sánchez, y está sujeto a licencia LGPL v3 ; BSET flagno bitno ; Pone a 1 el valor de un bit de un flag :acc_bset dc.b 0xc1 0x04 0x03 0x00 0x00 ; Viene en {0} el flagno, y en {4} el bitno. {8} y {12} son variables globales jgt {4}.l 32.l 0 ; si el bit es > 32 es absurdo, vuelve sin hacer nada aload :flags.l {0}.l {8}.l copy {8}.l (sp) copy {4}.l (sp) call :bitset 0x02.b (sp) copy (sp) {8}.l astore :flags.l {0}.l {8}.l return 0