                mov     #40000, R5
                mov     #20000, R4
6$:             clr     (R5)+
                sob     R4, 6$
                call    @#DrawPic
                ; картинка состоит из фрагментов, поэтому сохранять её как
                ; битмап нет смысла, надо разбирать на составляющие
                ; а пока неохота.
                ; это будет просто тест на правильность декодирования
                mov     #bpe36, R1
                emt     36
                halt
bpe36:          .word 2
                .word 40000
                .word 40000
                .ascii "Runing_u.pic    "
                .blkb 40
                .even
                
; ███████████████ S U B R O U T I N E ███████████████████████████████████████


DrawPic:        mov     #14, R5         ; выводим 14 фрагментов фона
                mov     #PicData, R0
                mov     (R0)+, R1

1$:             call    @#sub_6610
                mov     #40, R3

2$:             clr     (R1)+
                sob     R3, 2$
                sub     #1704, R0
                sob     R5, 1$

3$:             clr     (R1)+
                tst     R1
                bpl     3$
                mov     #4, R5          ; затем накладываем 4 фрагмента рисунка
                add     #1704, R0

4$:             call    @#sub_6606
                sob     R5, 4$
                return
; End of function DrawPic


; ███████████████ S U B R O U T I N E ███████████████████████████████████████


sub_6606:       mov     (R0)+, R1
; End of function sub_6606


; ███████████████ S U B R O U T I N E ███████████████████████████████████████


sub_6610:       mov     (R0)+, R2
                mov     #100, R3
                sub     (R0), R3
                mov     R3, 0pitch$
                mov     (R0)+, 0width$

1$:             mov     (PC)+, R3
0width$:        .word 16

2$:             movb    (R0)+, (R1)+
                sob     R3, 2$
                add     (PC)+, R1
0pitch$:        .word 62

                sob     R2, 1$
                return
; End of function sub_6610

                .end