Среда, 18.10.2017, 23:14

..



Главная Регистрация Вход
Приветствую Вас, Гость · Браузер: « v»
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Всё об «Электроника БК0010(-01), БК0011(М)»! » Языки программирования » Ассемблер & Микроассемблер » Листинги подпрограмм » Экранные стиралки (Для языков семейств «Turbo» и «Micro».)
Экранные стиралки
-=RUS=-Дата: Среда, 06.11.2013, 23:23 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 350
Репутация: 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
Генералиссимус
Группа: Администраторы
Сообщений: 350
Репутация: 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
Генералиссимус
Группа: Администраторы
Сообщений: 350
Репутация: 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
Генералиссимус
Группа: Администраторы
Сообщений: 350
Репутация: 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
Генералиссимус
Группа: Администраторы
Сообщений: 350
Репутация: 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
 
Всё об «Электроника БК0010(-01), БК0011(М)»! » Языки программирования » Ассемблер & Микроассемблер » Листинги подпрограмм » Экранные стиралки (Для языков семейств «Turbo» и «Micro».)
Страница 1 из 11
Поиск:

-=RUS=-
ICQ: 320867225