ДВК (и всё, что с ними связано)

**form** · 29.02.2012, 22:30

В SD падает на тесте EAE. Возможно и там с него же улетает

Код:

        .TRPSET #AREA,#TRPEAE   ;Catch traps to 4 or 10
        CLRB    @#EAECS0        ;Check first possible location

---------- Post added at 01:30 ---------- Previous post was at 01:27 ----------

То есть попросту драйвер перехватил @#10 и не может потом с ним грамотно разобраться.

**Advertiser** · 29.02.2012, 22:30

**Patron** · 29.02.2012, 22:31

Сообщение от form

В SD падает на тесте EAE. Возможно и там с него же улетает

Ага, у меня в эмуляторе есть потоковый дизассемблер, которым можно управлять из исполняемого эмулятором кода.

Значит, запуск дизассемблера нужно вставить в этом месте и собрать новый RESORC.SAV

Сейчас попробую..

**dk_spb** · 29.02.2012, 22:37

hobot, У Вас на первой картинке чуть ниже обведенного что-то там от WD.
Это у Вас "эталонная дискете от СЭМЗ - с ситемой" такая? ;-)

**Patron** · 29.02.2012, 22:59

Код:

	.TRPSET #AREA,#TRPEAE	;Catch traps to 4 or 10
	CLRB	@#EAECS0	;Check first possible location
	NOP			;Delay an instruction due to T11
	BCC	26$		;If no trap, then Carry clear
25$:	.TRPSET #AREA,#TRPEAE	;Catch for second try
	CLRB	@#EAECS1	;Check second possible location
	NOP			;Delay an instruction due to T11
	BCS	113$		;If trapped, no EAE
26$:	PRINT	EAE,<Extended Arithmetic Element (EAE)>  ;Tell the user

Дизассемблер не запускается, значит этот код не выполняется.

Если установить запуск дизассемблера на метку START, установить быстродействие эмулятора 0.025 MIPS, выполнить команду SH CON, убедиться что был выход в KMON и тут же закрыть эмулятор - потоковый дизассемблер успевает сгенерить больше 5 мегабайт листинга.

Вот его начало:

Код:

011676 [000000]:      MOV   SP, 001046            ;   R6  :001000 -> 001046
011702 [000000]:      MOV   #1978., @#000046      ; 011704:003672 -> 000046
011710 [000000]:      EMT   355

141206 [000000]:      BIC   #15., 2(SP)           ; 141210:000017 -> 000776:000000
141214 [000004]:      MOV   R5, -(SP)             ;   R5  :135656 -> 000772
141216 [000010]:      MOV   R4, -(SP)             ;   R4  :133730 -> 000770
141220 [000010]:      MOV   4(SP), R5             ; 000774:011712 ->   R5
141224 [000000]:      MOV   -(R5), R4             ; 011710:104355 ->   R4
141226 [000010]:      CMPB  R4, #251.             ;   R4  :   355 -> 141230:   373
141232 [000011]:      BEQ   141050
141234 [000011]:      JSR   R3, 151020            ;   R3  :075000 -> 000766

151020 [000011]:      MOV   R2, -(SP)             ;   R2  :011670 -> 000764
151022 [000001]:      MOV   R1, -(SP)             ;   R1  :000016 -> 000762
151024 [000001]:      MOV   R0, -(SP)             ;   R0  :030730 -> 000760
151026 [000001]:      CALL  (R3)                  ;   R7  :151030 -> 000756

141240 [000001]:      TST   (SP)+                 ; 000756:151030
141242 [000010]:      CLR   R2                    ;   R2  :011670
141244 [000004]:      MOV   136176, R5            ; 136176:137264 ->   R5
141250 [000010]:      INC   268.(R5)              ; 137700:000000
141254 [000000]:      MOV   SP, R1                ;   R6  :000760 ->   R1
141256 [000000]:      CMPB  R4, #252.             ;   R4  :   355 -> 141260:   374
141262 [000011]:      BCS   141372
141372 [000011]:      ADD   #16., R1              ; 141374:000020 ->   R1  :000760
141376 [000000]:      MOV   R4, R5                ;   R4  :104355 ->   R5
141400 [000010]:      BIC   #-16., R4             ; 141402:177760 ->   R4  :104355
141404 [000000]:      BIC   #-241., R5            ; 141406:177417 ->   R5  :104355
141410 [000000]:      ASR   R5                    ;   R5  :000340
141412 [000000]:      ASR   R5                    ;   R5  :000160
141414 [000000]:      ASR   R5                    ;   R5  :000070
141416 [000000]:      ADD   PC, R5                ;   R7  :141420 ->   R5  :000034
141420 [000010]:      MOV   -838.(R5), R5         ; 137746:003354 ->   R5
141424 [000000]:      ROR   R5                    ;   R5  :003354
141426 [000000]:      BCC   141436
141436 [000000]:      ASR   R5                    ;   R5  :001566
141440 [000000]:      BCC   141454
141454 [000000]:      ASL   R5                    ;   R5  :000673
141456 [000000]:      MOV   R5, -(SP)             ;   R5  :001566 -> 000756
141460 [000000]:      MOV   136176, R5            ; 136176:137264 ->   R5
141464 [000010]:      ASL   R4                    ;   R4  :000015
141466 [000000]:      MOV   R4, R3                ;   R4  :000032 ->   R3
141470 [000000]:      ASL   R3                    ;   R3  :000032
141472 [000000]:      ASL   R3                    ;   R3  :000064
141474 [000000]:      ADD   R4, R3                ;   R4  :000032 ->   R3  :000150
141476 [000000]:      ADD   24.(R5), R3           ; 137314:135662 ->   R3  :000202
141502 [000010]:      CLRB  @#000052              ; 000052:   000
141506 [000004]:      ADD   (SP)+, PC             ; 000756:001566 ->   R7  :141510
143276 [000010]:      TST   (R4)+                 ; 000032:000000
143300 [000004]:      ADD   PC, R4                ;   R7  :143302 ->   R4  :000034
143302 [000010]:      ADD   (R4), PC              ; 143336:177372 ->   R7  :143304
142676 [000011]:      CLRB  199.(R5)              ; 137573:   000
142702 [000004]:      CALL  145326                ;   R7  :142706 -> 000756

145326 [000004]:      MOV   @#000044, R3          ; 000044:020000 ->   R3
145332 [000000]:      BIC   #-20481., R3          ; 145334:127777 ->   R3  :020000
145336 [000004]:      BIT   #4096., R3            ; 145340:010000 ->   R3  :000000
145342 [000004]:      BEQ   145350
145350 [000004]:      MTPS  #224.                 ; 145352:   340 ->   PSW :000004
145354 [000340]:      NOP
145356 [000340]:      BIC   #20480., 260.(R5)     ; 145360:050000 -> 137670:050000
145364 [000344]:      BIS   R3, 260.(R5)          ;   R3  :000000 -> 137670:000000
145370 [000344]:      MTPS  #0                    ; 145372:   000 ->   PSW :000344
145374 [000000]:      RETURN                      ; 000756:142706 ->   R7  

142706 [000000]:      BR    142674
142674 [000000]:      BR    142464
142464 [000000]:      MOV   (SP)+, R0             ; 000760:030730 ->   R0
142466 [000000]:      MOV   (SP)+, R1             ; 000762:000016 ->   R1
142470 [000000]:      MOV   (SP)+, R2             ; 000764:011670 ->   R2
142472 [000000]:      MOV   (SP)+, R3             ; 000766:075000 ->   R3
142474 [000000]:      MOV   136176, R5            ; 136176:137264 ->   R5
142500 [000010]:      DEC   268.(R5)              ; 137700:000001
142504 [000004]:      BNE   142546
142506 [000004]:      MOV   270.(R5), R4          ; 137702:000000 ->   R4
142512 [000004]:      BEQ   142546
142546 [000004]:      JMP   153532

153532 [000004]:      MOV   (SP)+, R4             ; 000770:133730 ->   R4
153534 [000010]:      MOV   (SP)+, R5             ; 000772:135656 ->   R5
153536 [000010]:      RTI

011712 [000000]:      MOV   001046, SP            ; 001046:001000 ->   R6
011716 [000000]:      MOV   #988., -(SP)          ; 011720:001734 -> 000776
011722 [000000]:      MOV   #747., -(SP)          ; 011724:001353 -> 000774
011726 [000000]:      MOV   #580., -(SP)          ; 011730:001104 -> 000772
011732 [000000]:      CLR   -(SP)                 ; 000770:133730
011734 [000004]:      EMT   345

141206 [000000]:      BIC   #15., 2(SP)           ; 141210:000017 -> 000766:000004
141214 [000004]:      MOV   R5, -(SP)             ;   R5  :135656 -> 000762
141216 [000010]:      MOV   R4, -(SP)             ;   R4  :133730 -> 000760
141220 [000010]:      MOV   4(SP), R5             ; 000764:011736 ->   R5
141224 [000000]:      MOV   -(R5), R4             ; 011734:104345 ->   R4
141226 [000010]:      CMPB  R4, #251.             ;   R4  :   345 -> 141230:   373
141232 [000011]:      BEQ   141050
141234 [000011]:      JSR   R3, 151020            ;   R3  :075000 -> 000756

151020 [000011]:      MOV   R2, -(SP)             ;   R2  :011670 -> 000754
151022 [000001]:      MOV   R1, -(SP)             ;   R1  :000016 -> 000752
151024 [000001]:      MOV   R0, -(SP)             ;   R0  :030730 -> 000750
151026 [000001]:      CALL  (R3)                  ;   R7  :151030 -> 000746

141240 [000001]:      TST   (SP)+                 ; 000746:151030
141242 [000010]:      CLR   R2                    ;   R2  :011670
141244 [000004]:      MOV   136176, R5            ; 136176:137264 ->   R5
141250 [000010]:      INC   268.(R5)              ; 137700:000000
141254 [000000]:      MOV   SP, R1                ;   R6  :000750 ->   R1
141256 [000000]:      CMPB  R4, #252.             ;   R4  :   345 -> 141260:   374
141262 [000011]:      BCS   141372
141372 [000011]:      ADD   #16., R1              ; 141374:000020 ->   R1  :000750
141376 [000000]:      MOV   R4, R5                ;   R4  :104345 ->   R5
141400 [000010]:      BIC   #-16., R4             ; 141402:177760 ->   R4  :104345
141404 [000000]:      BIC   #-241., R5            ; 141406:177417 ->   R5  :104345
141410 [000000]:      ASR   R5                    ;   R5  :000340
141412 [000000]:      ASR   R5                    ;   R5  :000160
141414 [000000]:      ASR   R5                    ;   R5  :000070
141416 [000000]:      ADD   PC, R5                ;   R7  :141420 ->   R5  :000034
141420 [000010]:      MOV   -838.(R5), R5         ; 137746:003354 ->   R5
141424 [000000]:      ROR   R5                    ;   R5  :003354
141426 [000000]:      BCC   141436
141436 [000000]:      ASR   R5                    ;   R5  :001566
141440 [000000]:      BCC   141454
141454 [000000]:      ASL   R5                    ;   R5  :000673
141456 [000000]:      MOV   R5, -(SP)             ;   R5  :001566 -> 000746
141460 [000000]:      MOV   136176, R5            ; 136176:137264 ->   R5
141464 [000010]:      ASL   R4                    ;   R4  :000005
141466 [000000]:      MOV   R4, R3                ;   R4  :000012 ->   R3
141470 [000000]:      ASL   R3                    ;   R3  :000012
141472 [000000]:      ASL   R3                    ;   R3  :000024
141474 [000000]:      ADD   R4, R3                ;   R4  :000012 ->   R3  :000050
141476 [000000]:      ADD   24.(R5), R3           ; 137314:135662 ->   R3  :000062
141502 [000010]:      CLRB  @#000052              ; 000052:   000
141506 [000004]:      ADD   (SP)+, PC             ; 000746:001566 ->   R7  :141510
143276 [000010]:      TST   (R4)+                 ; 000012:000340
143300 [000000]:      ADD   PC, R4                ;   R7  :143302 ->   R4  :000014
143302 [000010]:      ADD   (R4), PC              ; 143316:000416 ->   R7  :143304
143722 [000010]:      MOV   #-32768., R4          ; 143724:100000 ->   R4
143726 [000010]:      MOV   #12., R2              ; 143730:000014 ->   R2
143732 [000000]:      BR    143762

**Patron** · 29.02.2012, 23:07

В принципе можно установить проверку адреса, чтобы в листинг попадали только команды из младших адресов..

Сейчас так сделаю.

---------- Post added at 22:07 ---------- Previous post was at 22:01 ----------

Совсем другое дело - сразу видно, на чём всё заканчивается:

Код:

013536 [000000]:      BIT   #64., R3              ; 013540:000100 ->   R3  :105061
013542 [000004]:      BNE   013576
013544 [000004]:      MOV   SP, R2                ;   R6  :000772 ->   R2
013546 [000000]:      MOV   #16384., -(R2)        ; 013550:040000 -> 000770
013552 [000000]:      CLR   -(R2)                 ; 000766:013536
013554 [000004]:      MOV   #16384., -(R2)        ; 013556:040000 -> 000764
013560 [000000]:      CLR   -(R2)                 ; 000762:010520
013562 [000004]:      075002 - Команда не опознана.

Trap to 010
Trap to 010 -> PC:126750 PSW:340

000000 [000000]:      BIC   R0, R0                ;   R0  :004430 ->   R0  :
000002 [000004]:      EMT   350

**Alex_K** · 29.02.2012, 23:11

Patron, скорее всего вылетает при проверке FIS-инструкций, EIS определяется по слову конфигурации.

**Patron** · 29.02.2012, 23:13

Сообщение от Alex_K

Patron, скорее всего вылетает при проверке FIS-инструкций, EIS определяется по слову конфигурации.

Надо найти это место в исходнике RESORC ( я взял исходники RESORC от RT-11 v05.04 ) и запустить с того места дизассемблер в полном объёме.

**form** · 29.02.2012, 23:14

Сообщение от Alex_K

Patron, скорее всего вылетает при проверке FIS-инструкций, EIS определяется по слову конфигурации.

Ну собственно на команде FADD R2 и вылетает. И явно видно, что именно из вектора берется 0, а там прописан .EXIT

---------- Post added at 02:14 ---------- Previous post was at 02:13 ----------

Сообщение от Patron

Надо найти это место в исходнике RESORC ( я взял исходники RESORC от RT-11 v05.04 ) и запустить с того места дизассемблер в полном объёме.

Код:

        CLR     -(R2)           ;
        FADD    R2              ;Do a floating point add
        NOP                     ;One instruction delay for T11.

**Patron** · 29.02.2012, 23:16

Вот это место:

Код:

42$:	PRINT	MICFPU,<Floating Point Microcode>
	BR	1$

41$:	BIT	#C1.FPU,R3	;Got an FPU?
	BEQ	1$		;Branch if not
	PRINT	HWFPU,<FP11 Hardware Floating Point Unit>

1$:	BIT	#C2.EIS,R4	;How about EIS?
	BEQ	2$		;Branch if no
	PRINT	EISET,<Extended Instruction Set (EIS)>

2$:	BIT	#C1.FPU,R3	;Got an FPU?
	BNE	3$		;Yes.  Don't check for FIS
	MOV	SP,R2		;Point to stack (but don't destroy)
	MOV	#40000,-(R2)	;We'll check for FIS by adding .5 to .5
	CLR	-(R2)		;
	MOV	#40000,-(R2)	;
	CLR	-(R2)		;
	FADD	R2		;Do a floating point add
	NOP			;One instruction delay for T11.
	BCS	3$		;If C set, no FIS
	PRINT	FIS,<Floating Instruction Set (FIS)> ;Tell the user

**Alex_K** · 29.02.2012, 23:20

Сообщение от form

Ну собственно на команде FADD R2 и вылетает. И явно видно, что именно из вектора берется 0, а там прописан .EXIT

Хотя должна брать 126750 и 340.

ZXPRESS •	ZXART •
ZXTUNES •	ZX Spectrum Old Demos •
Virtual TR-DOS •	World of Spectrum •

User Tag List

Тема: ДВК (и всё, что с ними связано)

Опции темы

Отображение

Информация о теме

Пользователи, просматривающие эту тему

Похожие темы

Видеорежимы и работа с ними

Видеорежимы и работа с ними

Куплю в Смоленске ВСЁ что связано со старыми компьютерами

Ваши права