Май 2019
ПнВтСрЧтПтСбВс
  12345
6789101112
13141516171819
20212223242526
2728293031  

Календарь Календарь

Последние темы
» Эмулятор ИРИШИ для тех, кто не имеет её реальной
автор barsik Пт Май 24 2019, 08:24

» Эмулятор радио 86рк
автор parsec Ср Май 22 2019, 18:44

» Новинки. Книги. Часть 1.
автор Viktor2312 Вт Май 21 2019, 16:21

» Программирование для ИРИШИ
автор barsik Пн Май 20 2019, 21:14

» Новинки. Книги. Часть 3.
автор Viktor2312 Пн Май 20 2019, 16:38

» Модуль контроллера графического дисплея (МКГД).
автор barsik Вс Май 19 2019, 13:40

» ATM Turbo 2+ v7.10
автор alemorf Сб Май 18 2019, 20:03

» Схемы и документация на отечественные ЭВМ и ПЭВМ и комплектующие
автор Viktor2312 Сб Май 18 2019, 18:10

» Куплю микросхемы КР1818ВГ93 и КМ1810ВТ3.
автор Savoj Чт Май 16 2019, 07:51

» Радио-86РК: Расширение ОЗУ
автор barsik Чт Май 16 2019, 01:26

» Клавиатура ИРИШИ
автор barsik Ср Май 15 2019, 16:57

» ИРИША и магнитофон
автор barsik Пн Май 13 2019, 04:23

» Новости криптовалют: статьи, заметки, разное...
автор Viktor2312 Сб Май 11 2019, 03:01

» Жалобы/пожелания по работе форума
автор Viktor2312 Сб Май 11 2019, 00:50

» Альтернативные КНГМД для ИРИШИ
автор barsik Пт Май 10 2019, 01:12

» Видеокарты (GPU). Статьи, заметки, очерки, разное...
автор Viktor2312 Чт Май 09 2019, 19:55

» Алгоритм SHA-256 и др., хеш (hash), хеширование, майнинг.
автор Viktor2312 Чт Май 09 2019, 01:30

» Обсуждение желаемых новодельных плат расширения и мелких усовершенствований базовых плат
автор barsik Ср Май 08 2019, 16:06

» Разное
автор Viktor2312 Вт Май 07 2019, 19:19

» Для новичков (криптовалюта).
автор Viktor2312 Вт Май 07 2019, 17:32

» Ассемблер для современных CPU Intel.
автор Viktor2312 Вт Май 07 2019, 17:12

» МКНГМД Вариант-3. Версия на К1818ВГ93
автор barsik Вт Май 07 2019, 15:15

» Обзор крипто проектов.
автор Viktor2312 Вт Май 07 2019, 12:57

» 7 Мая. День Радио!
автор Viktor2312 Вт Май 07 2019, 12:00

» "Радио-86РК". Статьи, заметки, очерки, разное...
автор barsik Сб Май 04 2019, 20:20

Самые активные пользователи за месяц
Viktor2312
Тест памяти "Радио-86РК" Vote_lcapТест памяти "Радио-86РК" Voting_barТест памяти "Радио-86РК" Vote_rcap 
barsik
Тест памяти "Радио-86РК" Vote_lcapТест памяти "Радио-86РК" Voting_barТест памяти "Радио-86РК" Vote_rcap 
alemorf
Тест памяти "Радио-86РК" Vote_lcapТест памяти "Радио-86РК" Voting_barТест памяти "Радио-86РК" Vote_rcap 
demetrius2003
Тест памяти "Радио-86РК" Vote_lcapТест памяти "Радио-86РК" Voting_barТест памяти "Радио-86РК" Vote_rcap 
a.oleg.a
Тест памяти "Радио-86РК" Vote_lcapТест памяти "Радио-86РК" Voting_barТест памяти "Радио-86РК" Vote_rcap 
parsec
Тест памяти "Радио-86РК" Vote_lcapТест памяти "Радио-86РК" Voting_barТест памяти "Радио-86РК" Vote_rcap 
Savoj
Тест памяти "Радио-86РК" Vote_lcapТест памяти "Радио-86РК" Voting_barТест памяти "Радио-86РК" Vote_rcap 
VladimirS
Тест памяти "Радио-86РК" Vote_lcapТест памяти "Радио-86РК" Voting_barТест памяти "Радио-86РК" Vote_rcap 

Поиск
 
 

Результаты :
 


Rechercher Расширенный поиск


Тест памяти "Радио-86РК"

Перейти вниз

Тест памяти "Радио-86РК" Empty Тест памяти "Радио-86РК"

Сообщение  Viktor2312 в Сб Янв 21 2017, 19:08

1
Данная тема создана с перспективой на будущее и вообще потому, что такое существует в природе. Я выложу здесь ту информацию, которая мне доступна и как вроде связанна с данной темой. В надежде, что пользователи поправят меня, если что, и дополнят тему в будущей перспективе...
Viktor2312
Viktor2312
Гуру+

Сообщения : 11569
Дата регистрации : 2012-08-10
Возраст : 40
Откуда : Пятигорск

Посмотреть профиль

Вернуться к началу Перейти вниз

Тест памяти "Радио-86РК" Empty Re: Тест памяти "Радио-86РК"

Сообщение  Viktor2312 в Сб Янв 21 2017, 19:09

2
резерв.
Viktor2312
Viktor2312
Гуру+

Сообщения : 11569
Дата регистрации : 2012-08-10
Возраст : 40
Откуда : Пятигорск

Посмотреть профиль

Вернуться к началу Перейти вниз

Тест памяти "Радио-86РК" Empty Re: Тест памяти "Радио-86РК"

Сообщение  barsik в Вс Дек 23 2018, 10:39

3
ТЕСТ РК86:

; Дизассемблированный ТЕСТ РК86
; Полный оригинал
; Использована JPO после команды 'DEC A' в том же
; самом месте, что и в мониторе (в п/п-ме COUT_C).
; Потому на Z80 работать не будет.

        .Z80
        aseg
        ORG     100H
       
RAM16K  EQU     1

PPA_KL  EQU     08000H
PPA_DOP EQU     0A000H
VG_75   EQU     0C000H
VT_57   EQU     0E000H

if       RAM16K
        SCREEN  EQU     36D0H
        SCBASE  EQU     37C2H           ; ЛЕВЫЙ ВЕРХНИЙ УГОЛ ЭКРАНА
        BASE    EQU     3400H
  else
        SCREEN  EQU     76D0H
        SCBASE  EQU     77C2H           ; ЛЕВЫЙ ВЕРХНИЙ УГОЛ ЭКРАНА
        BASE    EQU     7400H
endif

EK_ADR  EQU     BASE
TMPSTK  EQU     TMPSTK

;--------------------------------------------

.xcall  MACRO   ADDR
        LOCAL   M1
        LD      SP,M1
        JP      ADDR
M1:     DW      M1
        ENDM
       
;--------------------------------------------

        .phase  0F800H

        defb    0AAH
        defb    55H             ; для проверки шины на залип в шаговом решиме

        JP      START
       
;--------------------------------------------

START:  LD      A,8AH
        LD      (PPA_KL+3),A
        LD      A,80H
        LD      (PPA_DOP+3),A
        LD      A,55H
        LD      (PPA_DOP+1),A

        LD      A,00001000B     ; зажигаем светодиод
        LD      (PPA_KL+2),A

        XOR     A               ; гасим светодиод
        LD      (PPA_KL+2),A

        .xcall  SOUND
       
AF825:  LD      A,(0)           ; ждём команды с клавиатуры
        LD      (0),A

        LD      A,(PPA_KL+2)    ; проверим нажали ли на спец.клавишу
        LD      B,A
        AND     80H
        JP      Z,KEY_RL        ; если нажата РУСЛАТ
        LD      A,B
        AND     40H
        JP      Z,AF8F6         ; если нажата УС
        LD      A,B
        AND     20H
        JP      Z,AFA9F         ; если нажата СС
        JP      AF825

;--------------------------------------------

KEY_RL: LD      A,(PPA_KL+2)    ; ждём отпускания клавиши РУСЛАТ
        AND     80H
        JP      Z,KEY_RL

        LD      HL,4000H
        .xcall  PAUSHL
       
        .xcall  SOUND
       
        LD      HL,0
        .xcall  PAUSHL

        LD      HL,0            ; заполнение ОЗУ 0...3FFF кодом 55H
        LD      D,55H
AF86E:  LD      (HL),55H
        INC     HL
        LD      A,H
        CP      40H
        JP      NZ,AF86E
        LD      HL,0

AF87A:  LD      A,(HL)          ; Проверка, что во всём ОЗУ код 55H
        LD      E,A
        CP      55H
        JP      NZ,ERROR
        INC     HL
        LD      A,H
        CP      40H
        JP      NZ,AF87A
       
        LD      HL,0            ; заполнение ОЗУ 0...3FFF кодом 0AAH
        LD      D,0AAH
AF88D:  LD      (HL),0AAH
        INC     HL
        LD      A,H
        CP      40H
        JP      NZ,AF88D
       
        LD      HL,0            ; Проверка, что во всём ОЗУ код 0AAH
        LD      A,(HL)
        LD      E,A
        CP      0AAH
        JP      NZ,ERROR
        INC     HL
        LD      A,H
        CP      40H
        JP      NZ,AFB98+1
       
        LD      HL,0            ; заполнение ОЗУ кодом его младшего бита адреса
AF8AA:  LD      (HL),L
        INC     HL
        LD      A,H
        CP      40H
        JP      NZ,AF8AA

        LD      HL,0            ; Проверка, что в ОЗУ код младшего бита адреса
AF8B5:  LD      A,(HL)
        LD      E,A
        LD      D,L
        CP      L
        JP      NZ,ERROR
        INC     HL
        LD      A,H
        CP      40H
        JP      NZ,AF8B5
       
        .xcall  SOUND
       
        LD      A,8             ; зажечь светодиод
        LD      (PPA_KL+2),A
                                                 
ZAVIS:  JP      ZAVIS           ; зациклиться и зависнуть

ERROR:  .xcall  SOUND
       
        LD      HL,8000H
        .xcall  PAUSHL
       
        LD      SP,AF8EC
        JP      SOUND
       
AF8EC:  DW      BITOUT

BITOUT: LD      A,D
        XOR     E
        LD      (PPA_DOP+1),A   ; вывод несовпадающих битов 1-ми в порт А
ZAVIS2: JP      ZAVIS2

AF8F6:  LD      SP,AF8EC        ; Вывод звука и на вывод дохлых битов
        JP      SOUND
       
        DW      BITOUT

        LD      A,D             ; сюда вообще нет переходов !
        XOR     E
        LD      B,B

        .xcall  PAUSHL

        LD      HL,8000H
        .xcall  PAUSHL

        .xcall  INIT

        LD      SP,EK_ADR-100H
       
        CALL    CLS

AF922:  LD      C,20H
AF924:  CALL    SCOUTA
        INC     C
        LD      A,C
        CP      80H
        JP      NZ,AF924

AF92E:  LD      A,(PPA_KL+2)
        AND     40H
        JP      NZ,AF92E                ; если не нажата УС
       
        LD      HL,4000H
        CALL    PAUSHL

AF93C:  LD      A,(PPA_KL+2)
        AND     40H
        JP      Z,AF93C

        LD      HL,4000H
        CALL    PAUSHL

        JP      AF922

;--------------------------------------------

COUT_C: LD      C,A
SCOUTA: PUSH    AF
        PUSH    BC
        PUSH    DE
        PUSH    HL
        LD      HL,TOBACK
        PUSH    HL
        LD      HL,(EK_ADR+2)
        EX      DE,HL
        LD      HL,(EK_ADR)
        LD      A,(LOC04)
        DEC     A
        JP      M,AF97F
        JP      Z,AF9F6
        JP      PO,AFA04
        LD      A,C
        SUB     20H
        LD      C,A
AF96E:  DEC     C
        JP      M,RESESC
        PUSH    BC
        CALL    COD_18
        POP     BC
        JP      AF96E

;--------------------------------------------

RESESC: XOR     A
SETESC: LD      (EK_ADR+04H),A
        RET    

;--------------------------------------------

AF97F:  LD      A,C
        AND     7FH
        LD      C,A
        CP      1FH
        JP      Z,CLS1
        CP      0CH
        JP      Z,COD_0C
        CP      13
        JP      Z,COD_0D
        CP      10
        JP      Z,COD_0A
        CP      8
        JP      Z,COD_08
        CP      18H
        JP      Z,COD_18
        CP      19H
        JP      Z,COD_19
        CP      1AH
        JP      Z,COD_1A
        CP      1BH
        JP      Z,COD_1B
        CP      7
        JP      NZ,AF9C9
SOUND:
        LD      BC,5010H
SND_1:  LD      A,B
SND_2:  EI      
        DEC     A
        JP      NZ,SND_2
        LD      A,B
SND_3:
        DI      
        DEC     A
        JP      NZ,SND_3
        DEC     C
        JP      NZ,SND_1
        RET    

;--------------------------------------------

AF9C9:  LD      (HL),C
        CALL    COD_18
        LD      A,D
        CP      3
        RET     NZ
        LD      A,E
        CP      8
        RET     NZ
        CALL    COD_19
COD_0A:
        LD      A,D
        CP      27
        JP      NZ,COD_1A
        PUSH    HL
        PUSH    DE
        LD      HL,SCBASE
        LD      DE,SCBASE+78
        LD      BC,25*78
AF9E9:  LD      A,(DE)
        LD      (HL),A
        INC     HL
        INC     DE
        DEC     BC
        LD      A,C
        OR      B
        JP      NZ,AF9E9
        POP     DE
        POP     HL
        RET    

;--------------------------------------------

AF9F6:  LD      A,C
        CP      'Y'
        JP      NZ,RESESC
        CALL    COD_0C
        LD      A,2
        JP      SETESC

;--------------------------------------------

AFA04:  LD      A,C
        SUB     20H
        LD      C,A
AFA08:  DEC     C
        LD      A,4
        JP      M,SETESC
        PUSH    BC
        CALL    COD_1A
        POP     BC
        JP      AFA08

;--------------------------------------------

TOBACK: LD      (EK_ADR),HL
        EX      DE,HL
        LD      (EK_ADR+2),HL
        LD      A,80H
        LD      (VG_75+1),A
        LD      A,L
        LD      (VG_75),A
        LD      A,H
        LD      (VG_75),A
        POP     HL
        POP     DE
        POP     BC
        POP     AF
        RET    

;--------------------------------------------

COD_1B: LD      A,1
        JP      SETESC

;--------------------------------------------

CLS1:   LD      HL,3FF4H
        LD      DE,2341
AFA3A:
        XOR     A
        LD      (HL),A
        DEC     HL
        DEC     DE
        LD      A,E
        OR      D
        JP      NZ,AFA3A
COD_0C: LD      DE,776
        LD      HL,SCBASE
        RET    

;--------------------------------------------

COD_18: LD      A,E
        CP      'G'
        JP      NZ,AFA56
        CALL    COD_0D
        JP      COD_1A

;--------------------------------------------

AFA56:  INC     HL
        INC     E
        RET    

;--------------------------------------------

COD_08: LD      A,E
        CP      8
        JP      NZ,AFA68
        LD      E,47H           ; 71= 64+7
        LD      BC,63
        ADD     HL,BC
        JP      COD_19

;--------------------------------------------

AFA68:  DEC     HL
        DEC     E
        RET    

;--------------------------------------------

COD_1A: LD      A,D
        CP      27
        JP      NZ,DOWN
        LD      D,3
        LD      BC,0-750H       ; F8B0
        ADD     HL,BC
        RET    

;--------------------------------------------

DOWN:   INC     D
        LD      BC,78
        ADD     HL,BC
        RET    

;--------------------------------------------

COD_19: LD      A,D
        CP      3
        JP      NZ,UP
        LD      D,27
        LD      BC,24*78        ; 1872
        ADD     HL,BC
        RET    

;--------------------------------------------

UP:     DEC     D
        LD      BC,0-78         ; 0FFB2H
        ADD     HL,BC
        RET    

;--------------------------------------------

COD_0D: LD      A,L
        SUB     E
        JP      NC,AFA97
        DEC     H
AFA97:  LD      L,A
        LD      E,8
        LD      BC,8
        ADD     HL,BC
        RET    

;--------------------------------------------

AFA9F:  LD      A,(PPA_KL+2)
        AND     20H
        JP      Z,AFA9F

        LD      HL,4000H
        LD      SP,AFAB0
        JP      PAUSHL
AFAB0:  DW      AFAB2

AFAB2:  LD      SP,AFAB8
        JP      INIT
AFAB8:  DW      AFABA

AFABA:  LD      SP,EK_ADR-100H
        CALL    CLS
AFAC0:  CALL    AFB1B
        LD      C,A
        CALL    SCOUTA
        JP      AFAC0

;--------------------------------------------

AFACA:  CALL    AFB2A
        LD      (EK_ADR+0BH),A
        LD      A,(LOC05)
        OR      A
        RET     NZ
        CALL    AFB2A
        OR      A
        PUSH    HL
        JP      P,AFAE8
        LD      (EK_ADR+0AH),A
        LD      A,80H
AFAE2:  LD      (EK_ADR+6),A
        POP     HL
        XOR     A
        RET    

;--------------------------------------------

AFAE8:  LD      L,A
        LD      A,(EK_ADR+0AH)
        CP      L
        JP      Z,AFB0F
        LD      A,L
        LD      (EK_ADR+0AH),A
        LD      A,80H
AFAF6:  LD      (EK_ADR+06H),A
        LD      A,(LOC08)
        OR      A
        JP      NZ,AFB08
        PUSH    BC
        LD      BC,5003H
        CALL    SND_1
        POP     BC
AFB08:  LD      A,0FFH
        LD      (LOC05),A
        POP     HL
        RET    

;--------------------------------------------

AFB0F:  LD      A,(EK_ADR+06H)
        DEC     A
        JP      NZ,AFAE2
        LD      A,8
        JP      AFAF6

;--------------------------------------------

AFB1B:  CALL    AFACA
        OR      A
        JP      Z,AFB1B
        XOR     A
        LD      (LOC05),A
        LD      A,(EK_ADR+0AH)
        RET    

;--------------------------------------------

AFB2A:  PUSH    HL
        LD      A,(PPA_KL+2)
        AND     80H
        JP      NZ,AFB84
AFB33:  LD      A,(PPA_KL+2)
        AND     80H
        JP      Z,AFB33
        LD      A,(PPA_KL+2)
        AND     20H
        JP      NZ,AFB4D
        LD      A,(LOC09)
        OR      A
        JP      Z,AFB5F
        JP      AFB73

;--------------------------------------------

AFB4D:  LD      HL,LOC07
        LD      A,(PPA_KL+2)
        AND     40H
        JP      NZ,AFB7E
        INC     HL
        LD      A,(HL)
        CPL    
        LD      (HL),A
        JP      AFB84

;--------------------------------------------

AFB5F:  DEC     A
        LD      (LOC09),A

        LD      HL,0
        ADD     HL,SP
        LD      (TMPSTK),HL
AFB6A:
        CALL    AFB1B
        CALL    COUT_C
        JP      AFB6A

;--------------------------------------------

AFB73:  LD      HL,(TMPSTK)
        LD      SP,HL
        XOR     A
        LD      (LOC09),A
        JP      AFB84

;--------------------------------------------

AFB7E:  LD      A,(HL)
        CPL    
        LD      (HL),A
        LD      (PPA_KL+2),A
AFB84:  LD      L,1
        LD      H,7
AFB88:  LD      A,L
        RRCA    
        LD      L,A
        CPL    
        LD      (PPA_KL),A
        LD      A,(PPA_KL+1)
        CPL    
        OR      A
        JP      NZ,AFB9F
        DEC     H
AFB98:  JP      P,AFB88
AFB9B:  LD      A,0FFH
        POP     HL
        RET    

;--------------------------------------------

AFB9F:  LD      L,40H
AFBA1:  LD      A,(PPA_KL+1)
        CPL    
        OR      A
        JP      Z,AFB9B
        DEC     L
        JP      NZ,AFBA1
        LD      L,8
AFBAF:
        DEC     L
        RLCA    
        JP      NC,AFBAF
        LD      A,H
        LD      H,L
        LD      L,A
        CP      1
        JP      Z,AFBE6
        JP      C,AFBDF
        RLCA    
        RLCA    
        RLCA    
        ADD     A,20H
        OR      H
        CP      5FH
        JP      NZ,AFBF2
        LD      A,20H
        POP     HL
        RET    

;--------------------------------------------

TABK1:  defb    9,10,13,7FH,8,19H,18H,1AH
AFBD6:  defb    0CH,1FH,1BH,0,1,2,3,4,5  

;--------------------------------------------

AFBDF:  LD      A,H
        LD      HL,AFBD6
        JP      AFBEA

;--------------------------------------------

AFBE6:  LD      A,H
        LD      HL,TABK1
AFBEA:  ADD     A,L
        LD      L,A
        LD      A,(HL)
        CP      40H
        POP     HL
        RET     C
        PUSH    HL
AFBF2:  LD      L,A
        LD      A,(PPA_KL+2)
        LD      H,A
        AND     40H
        JP      NZ,AFC06                ; если нажали
        LD      A,L
        CP      40H
        JP      M,AFC2B
        AND     1FH
        POP     HL
        RET    

;--------------------------------------------

AFC06:  LD      A,(LOC07)
        OR      A
        JP      Z,AFC16
        LD      A,L
        CP      40H
        JP      M,AFC16
        OR      20H
        LD      L,A
AFC16:
        LD      A,H
        AND     20H
        JP      NZ,AFC2B
        LD      A,L
        CP      40H
        JP      M,AFC27
        LD      A,L
        XOR     20H
        POP     HL
        RET    

;--------------------------------------------

AFC27:  LD      A,L
        AND     2FH
        LD      L,A
AFC2B:  LD      A,L
        CP      40H
        POP     HL
        RET     P
        PUSH    HL
        LD      L,A
        AND     0FH
        CP      0CH
        LD      A,L
        JP      M,AFC3C
        XOR     10H
AFC3C:  POP     HL
        RET    

;--------------------------------------------

PAUSHL: DEC     HL
        LD      A,H
        OR      L
        JP      NZ,PAUSHL
        RET    

;--------------------------------------------

INIT:   LD      HL,SCREEN and 0FF00H    ; 3600H
AFC48:  LD      (HL),20H                ; заполнение экрана пробелами
        INC     HL
        LD      A,H
        CP      40H
        JP      NZ,AFC48
       
        LD      HL,VG_75+1
        LD      (HL),0          ; reset commando          
        DEC     HL              ; адрес VG_75              
        LD      (HL),4DH        ; 0.1001101  77+1 знакомест
        LD      (HL),1DH        ; 00.011101  29+1 строк    
       
        LD      (HL),99H        ; 1001.1001  9 +1 линия подчерк.
                                ; 9+1 линий в знакоместе
        LD      (HL),93H        ; 1.0.01.0011 без смещ.
                                ; курсор - мигающая линия подчеркивания
                                ; атрибуты отображать пробелом
                                ; 3 такта сдвига - длина обр хода стр.р.

        LD      A,80H
        LD      (VT_57+8),A
        LD      HL,VT_57+4
        LD      (HL),low SCREEN
        LD      (HL),high SCREEN
        INC     HL
        LD      (HL),23H
        LD      (HL),49H

        LD      HL,VG_75+1
        LD      (HL),27H        ; start display commando
        LD      (HL),0E0H

        LD      A,0A4H
        LD      (VT_57+8),A
        RET    


CLS:    XOR     A
        LD      (EK_ADR-200H+4),A       ; Зачем это ????
        LD      (LOC04),A
        LD      (LOC05),A
        LD      (LOC08),A
        LD      (LOC07),A
        LD      (LOC09),A

        LD      C,1FH
        CALL    SCOUTA
        RET                     ; хо-хо

ZZZ     aset    $ and 0FFFH

if       ZZZ     ne 0
        rept    1000H-ZZZ
        defb    255
        endm
endif

        .dephase
       
        END


Последний раз редактировалось: barsik (Вс Дек 23 2018, 11:27), всего редактировалось 1 раз(а)

_________________
***
barsik
barsik
Мастер+

Сообщения : 460
Дата регистрации : 2016-11-10
Откуда : С-Петербург

Посмотреть профиль

Вернуться к началу Перейти вниз

Тест памяти "Радио-86РК" Empty Re: Тест памяти "Радио-86РК"

Сообщение  Спонсируемый контент

4

Спонсируемый контент


Вернуться к началу Перейти вниз

Вернуться к началу


 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения