Экранные стиралки - Всё об «Электроника БК0010(-01), БК0011(М)»!

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1
1

Всё об «Электроника БК0010(-01), БК0011(М)»! » Языки программирования » Ассемблер & Микроассемблер » Листинги подпрограмм » Экранные стиралки (Для языков семейств «Turbo» и «Micro».)

Экранные стиралки

-=RUS=-

Дата: Среда, 06.11.2013, 23:23 | Сообщение # 1

Генералиссимус

Группа: Администраторы

Сообщений: 352

Репутация: 1

Статус: Offline

Стиралка №1: из игры «Moon Patrul»

.ORG    1000

        MOV    #1330,@#177664
        MOV    #40000,R0
        MOV    #100000,R1
        MOV    #375,R2
MET1:   MOV    #200,R3
        MOV    R0,R4
MET2:   MOV    #52525,(R4)+
        SOB    R3,MET2
        MOV    #200,R3
        MOV    R1,R4
MET3:   MOV    #52525,-(R4)
        SOB    R3,MET3
        MOV    R0,R4
        MOV    #40,R3
MET4:   CLR    (R4)+
        SOB    R3,MET4
        MOV    #40,R3
        MOV    R1,R4
MET5:   CLR    -(R4)
        SOB    R3,MET5
        ADD    #100,R0
        SUB    #100,R1
        MOV    #200,R5
MET6:   SOB    R5,MET6
        SOB    R2,MET1
        MOV    #40000,R0
        MOV    #300,R1
        MOV    #100000,R3
MET7:   CLR    (R0)+
        CLR    -(R3)
        SOB    R1,MET7
        RET

.END

B)

-=RUS=-

Дата: Среда, 06.11.2013, 23:51 | Сообщение # 2

Генералиссимус

Группа: Администраторы

Сообщений: 352

Репутация: 1

Статус: Offline

Стиралка №2: из рекламы «BIL Rekl 3»

            .ORG   1000

            MOV      #1330,@#177664
            MOV      @#177664,R0
            SWAB   R0
            ROR       R0
            CLR      R4
            ROR       R0
            MOV       #100,R2
            ADD       #45000,R0
            MOV       R0,R1
            SUB       #40000,R1
            MOV       #200,R3
MET5:   TST        R0
            BPL        MET1
            SUB       #40000,R0
MET1:   CMP       #40100,R1
            BLE        MET2
            ADD       #40000,R1
MET2:   MOV       #125252,-(R1)
            MOV       #125252,(R0)+
            TST        R4
            BEQ        MET3
            CLR        (R4)+
            CLR        -(R5)
MET3:   BIT         #77,R0
            BNE        MET2
            MOV        #777,R5
MET4:   SOB        R5,MET4
            MOV        R1,R5
            ADD        R2,R5
            MOV        R0,R4
            SUB        R2,R4
            SOB        R3,MET5
MET7:   CLRB       -(R0)
            CLRB       (R4)+
            CLRB       (R1)+
            CLRB       -(R5)
            MOV        #4000,R3
MET6:   SOB        R3,MET6
            SOB        R2,MET7
            RET

            .END

cool

-=RUS=-

Дата: Четверг, 07.11.2013, 00:10 | Сообщение # 3

Генералиссимус

Группа: Администраторы

Сообщений: 352

Репутация: 1

Статус: Offline

Стиралка №3: из игры «Space»

.pSECt    1000

        MOV    #1330,@#177664
        MOV    #40000,R0
        MOV    #40077,R5
        MOV    #40,R1
        MOV    #100,R2
MET_3: MOV    #400,R3
MET_1: CLRB (R0)
        CLRB   (R5)
        ADD    R2,R0
        ADD    R2,R5
        SOB    R3,MET_1
        MOV    #4000,R4
MET_2: SOB    R4,MET_2
        SUB    #37777,R0
        SUB    #40001,R5
        SOB    R1,MET_3
        RET

.END

cool

-=RUS=-

Дата: Четверг, 07.11.2013, 00:19 | Сообщение # 4

Генералиссимус

Группа: Администраторы

Сообщений: 352

Репутация: 1

Статус: Offline

Стиралка №4: из игры «Луноход»

            .ORG    1000

            MOV     #1330,@#177664
            MOV   #40000,R0
            MOV    #400,R1
MET1:   MOVB #52525,(R0)
            ADD    #100,R0
            SOB    R1,MET1
            MOV    #40001,R0
            MOV    #77,R1
MET4:   MOV    #4,R5
            MOV    #1,R4
MET3:   MOV    R0,R3
            MOV    #400,R2
MET2:   BISB R4,(R3)
            BICB    R4,-1(R3)
            ASL    R4
            BICB    R4,(R3)
            ASR    R4
            ADD    #100,R3
            SOB    R2,MET2
            ASL    R4
            ASL    R4
            SOB    R5,MET3
            INC    R0
            SOB    R1,MET4
            MOV    #400,R1
            DEC    R0
MET5:   CLRB    (R0)
            ADD    #100,R0
            SOB    R1,MET5
            RET

            .END

cool

-=RUS=-

Дата: Четверг, 07.11.2013, 00:28 | Сообщение # 5

Генералиссимус

Группа: Администраторы

Сообщений: 352

Репутация: 1

Статус: Offline

Стиралка №5: из игры «Diday»

            .ORG        1000

            MOV         #1330,@#177664
            MOV        #100,R5
            MOV        #77700,R4
            MOV        #40077,R3
            BR            MET1
MET8:   MOV        R4,R0
            MOV        R3,R1
MET4:   MOV        #4,R2
MET2:   CLRB        (R0)
            CLRB        (R1)
            ADD        #100,R1
            SUB        #100,R0
            SOB        R2,MET2
            TST           R5
            BEQ           MET3
            INC            R0
            DEC           R1
            BIT            #100100,R1
            BEQ           MET4
            SUB           #400,R4
            ADD           #400,R3
MET1:   MOV           R4,R0
            MOV           R3,R1
MET6:   MOV           #4,R2
MET5:   MOVB         #125,(R0)
            MOVB         #125,(R1)
            SUB           #100,R0
            ADD           #100,R1
            SOB           R2,MET5
            INC            R0
            DEC           R1
            BIT            #100100,R1
            BEQ           MET6
            MOV           #5000,R0
MET7:   SOB           R0,MET7
            SOB           R5,MET8
            BR             MET8
MET3:   RET

            .END

cool

Страница 1 из 1
1