; распаковщик заставки и по совместительству игрового экрана
; использует модуль 1, с запакованными данными
; PDBgn$ - начало блока данных картинки
; PDEnd$ -  конец блока данных картинки

; переносим переносчик в конец
            mov     #PDEnd$, R0
            mov     R0, R5
            mov     #MV1B$, R1
            mov     #<MV1E$ - MV1B$> / 2, R2
1$:         mov     (R1)+, (R0)+
            sob     R2, 1$
            jmp     (R5)
; переносим игру на своё место
MV1B$:      mtps    #340
            mov     #1000, R0
            mov     #PDBgn$, R1
            mov     #<PDEnd$ - PDBgn$> / 2, R2
1$:         mov     (R1)+, (R0)+
            sob     R2, 1$
            call    @#30042 ; картинку распакуем
            .addr   R1, BP320
            emt     36
            jmp     @#100000

BP320:      .word   2
            .word   40000, 40000
            .asciz  "PEREVAL.PIC"
            .even
            .blkb   30
MV1E$:

                .end
