; сдвиг палитры с конца в начало + запись одно нового значения в конец палитры
; новое в R0
shiftpal:   mov     #177234,R4         ; регистр номера палитры          
            mov     #177236,R5         ; регистр значения палитры
            mov     #377,R1            ; объем палитры в сдвиге  
shp0:       mov     R1,(R4)            ; номер палитры          
            mov     (R5),R2            ; считаем текущее значение
            mov     R0,(R5)            ; запишем предыдущее
            mov     R2,R0              ; перенеем считанное в предыдущее
            sob     R1,shp0            ; цикл
            return

; сборка RGB палитры из R1 - RED; R2 - GREEN; R3 - BLUE
; резульат в R0
             swab    R1
            asl     R1
            asl     R1
            swab    R2
            asr     R2
            asr     R2
            asr     R2
            mov     R1,R0
            bis     R2,R0
            bis     R3,R0
            return