Портирование игры "Last Mission" на УКНЦ

[S_V_B]

Исходник выше. только повторяется для всех регистров. Вставил в рабочий обработчик процессов в ПП.

- - - Добавлено - - -

PGM1:                                      ; программа-процесс
        MTPS	#200

     MOV     R0,-(SP)                     ; Сохранение R0

     MOV     #COMMW/2,@#177010                   
     MOV     @#177014,R0                            

     CMP     #1,R0                     ; Убираем курсор, уст. палитры
     BEQ    1$	

     CMP     #2,R0			; переключаем экран
   	BNE    11$	
..........
..........
..........
	JMP	9$

1$:

	MOV	R0,-(SP)

	MOV	#200,R0
	COMB	R0
	MOVB	R0,@#177103

	MOV	#0,R0
	COMB	R0
	MOVB	R0,@#177102

	MOV	#6,R0
	COMB	R0
	MOVB	R0,@#177101

	MOV	#3,R0
	COMB	R0
	MOVB	R0,@#177102
	
	MOV	#0,R0
	COMB	R0
	MOVB	R0,@#177102
	
	MOV	#31.,R0
	COMB	R0
	MOVB	R0,@#177101


	MOV	#2,R0
	COMB	R0
	MOVB	R0,@#177102



	MOV	#0,R0
	COMB	R0
	MOVB	R0,@#177102

	MOV	#7,R0
	COMB	R0
	MOVB	R0,@#177101

	MOV	#3,R0
	COMB	R0
	MOVB	R0,@#177102
	
	MOV	#0,R0
	COMB	R0
	MOVB	R0,@#177102
	
	MOV	#7,R0
	COMB	R0
	MOVB	R0,@#177101


	MOV	#2,R0
	COMB	R0
	MOVB	R0,@#177102



	MOV	#0,R0
	COMB	R0
	MOVB	R0,@#177102

	MOV	#8.,R0
	COMB	R0
	MOVB	R0,@#177101

	MOV	#3,R0
	COMB	R0
	MOVB	R0,@#177102
	
	MOV	#0,R0
	COMB	R0
	MOVB	R0,@#177102
	
	MOV	#16.,R0
	COMB	R0
	MOVB	R0,@#177101


	MOV	#2,R0
	COMB	R0
	MOVB	R0,@#177102


	MOV	#0,R0
	COMB	R0
	MOVB	R0,@#177102

	MOV	#9.,R0
	COMB	R0
	MOVB	R0,@#177101

	MOV	#3,R0
	COMB	R0
	MOVB	R0,@#177102
	
	MOV	#0,R0
	COMB	R0
	MOVB	R0,@#177102
	
	MOV	#16.,R0
	COMB	R0
	MOVB	R0,@#177101


	MOV	#2,R0
	COMB	R0
	MOVB	R0,@#177102


	MOV	#0,R0
	COMB	R0
	MOVB	R0,@#177102

	MOV	#10.,R0
	COMB	R0
	MOVB	R0,@#177101

	MOV	#3,R0
	COMB	R0
	MOVB	R0,@#177102
	
	MOV	#0,R0
	COMB	R0
	MOVB	R0,@#177102
	
	MOV	#16.,R0
	COMB	R0
	MOVB	R0,@#177101


	MOV	#2,R0
	COMB	R0
	MOVB	R0,@#177102


	MOV	#0,R0
	COMB	R0
	MOVB	R0,@#177102

	MOV	#11.,R0
	COMB	R0
	MOVB	R0,@#177101

	MOV	#3,R0
	COMB	R0
	MOVB	R0,@#177102
	
	MOV	#0,R0
	COMB	R0
	MOVB	R0,@#177102
	
	MOV	#16.,R0
	COMB	R0
	MOVB	R0,@#177101


	MOV	#2,R0
	COMB	R0
	MOVB	R0,@#177102


	MOV	#0,R0
	COMB	R0
	MOVB	R0,@#177102

	MOV	#12.,R0
	COMB	R0
	MOVB	R0,@#177101

	MOV	#3,R0
	COMB	R0
	MOVB	R0,@#177102
	
	MOV	#0,R0
	COMB	R0
	MOVB	R0,@#177102
	
	MOV	#18.,R0
	COMB	R0
	MOVB	R0,@#177101


	MOV	#2,R0
	COMB	R0
	MOVB	R0,@#177102


	MOV	#0,R0
	COMB	R0
	MOVB	R0,@#177102

	MOV	#13.,R0
	COMB	R0
	MOVB	R0,@#177101

	MOV	#3,R0
	COMB	R0
	MOVB	R0,@#177102
	
	MOV	#0,R0
	COMB	R0
	MOVB	R0,@#177102
	
	MOV	#0,R0
	COMB	R0
	MOVB	R0,@#177101


	MOV	#2,R0
	COMB	R0
	MOVB	R0,@#177102

	MOV	(SP)+,R0
	JMP	9$
..........
..........
..........
9$:
	MOV     #COMMW/2,@#177010            ;Очистим коммуникационную ячейку..
	CLR     @#177014                     ;

10$:    MOV     AdrPgm,@#7124                ; Поставить в очередь процессов
        MOV     #1,@#7100                    ; Потребовать обслуживания
        MOV     (SP)+,R0                     ; Восстановить

        MTPS	#0
        JMP     @#174170                     ; Перейти к диспетчеру процессов

- - - Добавлено - - -

?MON-F-Trap to 10
PANIC DUMP
R0 000040
R1 000000
R2 133632
......
SP 000774
PC 131176