
Bally_scr = 46200
Second_scr = 46000
Planet_scr = 46100
Superman_scr = 46100

                ; выводим заставку
                mov     #Bally_scr, R5  ; адрес экрана
                mov     R5, bpe36+2
                mov     #100000, R0
                sub     R5, R0
                mov     R0, bpe36+4
                mov     #PicData, R4    ; данные
4$:             mov     #1, R2          ; счётчик повторяющихся байтов
                movb    (R4)+, R0       ; берём очередной байт
                cmpb    R0, (R4)        ; он совпадает со следующим?
                bne     5$              ; нет
                inc     R4              ; да - его пропустим
                movb    (R4)+, R2       ; вот таким нерациональным способом 
                bic     #177400, R2     ; берём слово
                swab    R2
                movb    (R4)+, R3
                bic     #177400, R3
                add     R3, R2
                swab    R2              ; это счётчик повторяющихся байтов

5$:             movb    R0, (R5)+       ; выведем байт
                cmp     #100000, R5     ; до границы экрана дошли?
                beq     6$              ; да - конец работы
                sob     R2, 5$          ; столько раз, сколько надо.
                br      4$              ; и повторяем
; ───────────────────────────────────────────────────────────────────────────

6$:             mov     #bpe36, R1
                emt     36
                halt
bpe36:          .word 2
                .word 0
                .word 0
                .ascii "Bally_u.pic    "
                .blkb 40
                .even

                .END
