Важная информация

User Tag List

Страница 4 из 17 ПерваяПервая 12345678 ... ПоследняяПоследняя
Показано с 31 по 40 из 167

Тема: PASCAL + MACRO11 (УКНЦ-ДВК).

  1. #31
    Guru
    Регистрация
    11.09.2009
    Адрес
    Москва
    Сообщений
    4,625
    Благодарностей: 2756
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от form Посмотреть сообщение
    Ну можно эмулятором ДВК слинковать наверное TCP с С2.
    Конфиг при этом может выглядеть так:

    Код:
    ;
    ; pdp11 emulator config file.
    ;
    
    [modules]
    
    Ядро = Main_module.em
    
    
    
    [objects]
    
    ComPort    = Ядро:Terminal_ComPort_Adapter
    IP_Adapter = Ядро:Terminal_IP_Adapter
    IP_Log     = Ядро:Console
    
    
    
    [links]
    
    ComPort <==> IP_Adapter
    
    IP_Adapter [Log] > IP_Log
    
    
    
    
    ; === INI SECTIONS ===
    
    
    [ComPort.ini]
    PortName = COM1
    InitialStateOf[ShowPortUse]=1
    SaveChangesFor[ShowPortUse]=0
    InitialStateOf[StopReading]=0
    SaveChangesFor[StopReading]=0
    MinimalBreakTime_MKS = 3000
    
    
    
    [IP_Adapter.ini]
    Listen_on_IP   =""
    Listen_on_Port = 0
    Connect_to_IP  = 95.172.148.99
    Connect_to_Port= 23
    Extended_Log=0
    
    
    
    [IP_Log.ini]
    TabTitle = 
    InitialStateOf[StatusBar]  = 0
    SaveChangesFor[StatusBar]  = 0
    InitialStateOf[ControlBar] = 0
    SaveChangesFor[ControlBar] = 0
    InitialStateOf[Log]=0
    SaveChangesFor[Log]=0
    DumpMode=1
    
    
    
    [Config.ini]
    InitialStateOf[StatusBar] = 1
    SaveChangesFor[StatusBar] = 0
    ExtendedStartLog = 0
    InitialStateOf[ControlBar]= 0
    SaveChangesFor[ControlBar]= 0
    ActiveWindowHandle=
    ActiveConfigID=
    InitialStateOf[Log]=0
    SaveChangesFor[Log]=0
    Вложения Вложения

  2. Эти 2 пользователя(ей) поблагодарили Patron за это полезное сообщение:
    form (28.02.2013), hobot (01.03.2013)

  3. #31
    С любовью к вам, Yandex.Direct
    Размещение рекламы на форуме способствует его дальнейшему развитию

  4. #32
    Guru Аватар для form
    Регистрация
    27.05.2009
    Адрес
    СССР, Новосибирск
    Сообщений
    5,141
    Благодарностей: 1954
    Mentioned
    5 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Сейчас соберу систему специально для эмулятора, чтобы с утилитками нужными - потестим. Наверное уже в профильную тему выложу.
    PDP-11/83, Электроника МС0511 (УК-НЦ), DECserver 90M
    Q-Bus: H9278-A, DLV11-J, DZQ11, DHV11, DELQA-M, LPV11, CQD-420/TM, DRV11
    PMI: KDJ11-BF, MSV11-JE
    VT220, CM7209

  5. Этот пользователь поблагодарил form за это полезное сообщение:
    hobot (01.03.2013)

  6. #33
    Guru Аватар для hobot
    Регистрация
    29.08.2011
    Адрес
    Зеленоград
    Сообщений
    4,586
    Благодарностей: 1024
    Mentioned
    3 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от form Посмотреть сообщение
    Наверное уже в профильную тему выложу.
    Да! ) Это очень интересно ! ) Только на моём аппаратике не работает com0com - хоть ты тресни )
    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

  7. #34
    Guru Аватар для form
    Регистрация
    27.05.2009
    Адрес
    СССР, Новосибирск
    Сообщений
    5,141
    Благодарностей: 1954
    Mentioned
    5 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от hobot Посмотреть сообщение
    Да! ) Это очень интересно ! ) Только на моём аппаратике не работает com0com - хоть ты тресни )
    Честно признаюсь - понятия не имею что такое com0com

    Запустить тестовую систему пока не удается - падает при загрузке - видимо HD драйвер слишком заточен под конкретную конфигурацию. Надо ковырять... Где-то вроде пробегали исходники драйвера HD?
    Последний раз редактировалось form; 01.03.2013 в 08:26.
    PDP-11/83, Электроника МС0511 (УК-НЦ), DECserver 90M
    Q-Bus: H9278-A, DLV11-J, DZQ11, DHV11, DELQA-M, LPV11, CQD-420/TM, DRV11
    PMI: KDJ11-BF, MSV11-JE
    VT220, CM7209

  8. #35
    Guru Аватар для hobot
    Регистрация
    29.08.2011
    Адрес
    Зеленоград
    Сообщений
    4,586
    Благодарностей: 1024
    Mentioned
    3 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от form Посмотреть сообщение
    Надо ковырять... Где-то вроде пробегали исходники драйвера HD?
    http://zx.pk.ru/showpost.php?p=436504&postcount=33
    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

  9. #36
    Guru Аватар для form
    Регистрация
    27.05.2009
    Адрес
    СССР, Новосибирск
    Сообщений
    5,141
    Благодарностей: 1954
    Mentioned
    5 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Там только огрызок.
    Да и фиг с ним - разберу дизассемблером - он небольшой.
    PDP-11/83, Электроника МС0511 (УК-НЦ), DECserver 90M
    Q-Bus: H9278-A, DLV11-J, DZQ11, DHV11, DELQA-M, LPV11, CQD-420/TM, DRV11
    PMI: KDJ11-BF, MSV11-JE
    VT220, CM7209

  10. #37
    Guru
    Регистрация
    11.09.2009
    Адрес
    Москва
    Сообщений
    4,625
    Благодарностей: 2756
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от form Посмотреть сообщение
    Там только огрызок.
    Вот более полный вариант: HD_v1.2

    ...
    Вложения Вложения

  11. Эти 2 пользователя(ей) поблагодарили Patron за это полезное сообщение:
    form (01.03.2013), perestoronin (01.03.2013)

  12. #38
    Guru Аватар для form
    Регистрация
    27.05.2009
    Адрес
    СССР, Новосибирск
    Сообщений
    5,141
    Благодарностей: 1954
    Mentioned
    5 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

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

    По файлу выше несколько мыслей:

    Код:
    .IIF NDF RTE$M,  RTE$M  =: 0
    .IIF NDF MMG$T,  MMG$T  =: 0
    .IIF NDF ERL$G,  ERL$G  =: 0
    .IIF NDF TIM$IT, TIM$IT =: 0
    Не несущие никакой нагрузки строки - просто захламляют исходник.

    Код:
    . = 116
    
    HDMES:
    	.ASCIZ	<CR><LF>/HD (177720) disk driver  v1.2  2012/<CR><LF>
    Вписывание мусора в официально документированные функциональные оффсеты не есть хорошо. Тем более, что места в install area полно и все упрощается если вписать эту строчку после JSR Rx в нсталяционном коде.

    Код:
    	Mov	PC, R0
    	Add	#HDMES-., R0
    Заменяется на .ADDR (а точнее в свете вышесказанного просто не требуется).

    Код:
    	.DrSet	MMGT,  2, O.GEN, NUM
    Невозможно в принципе. Чтобы сделать подобный функционал потребуется серьезное усложнение кода.

    Код:
    .IIF GT	.-1000	.ERROR
    меняется на .ASSUME

    Код:
    	.DrPtr
    а?

    Код:
    	.DrSpF	<373>
    не нужно по определению в виду отсутствия даже принципиальной возможности для функционала который требует этого.

    Код:
    O.GEN:
    	Tst	R0		; Arg = 0 ?
    	BEq	30$
    	BiS	R3, HD.GEN	; Set SYSGEN bit.
    	Br	31$
    30$:
    	BiC	R3, HD.GEN	; Clear SYSGEN bit.
    31$:
    	ClC
    	Return
    CLC ничего не делает.

    Код:
    .IIF GT	.-HDSTRT-1000	.ERROR
    а?

    Код:
    	Mov		PC, 	   R0
    	Add		#HDMESC-., R0
    MOV #HDMESC-HDBOOT,R0

    Код:
    .IIF EQ MMG$T  .BlkW 5
    Бесполезный мусор в теле драйвера.
    Последний раз редактировалось form; 01.03.2013 в 13:09.
    PDP-11/83, Электроника МС0511 (УК-НЦ), DECserver 90M
    Q-Bus: H9278-A, DLV11-J, DZQ11, DHV11, DELQA-M, LPV11, CQD-420/TM, DRV11
    PMI: KDJ11-BF, MSV11-JE
    VT220, CM7209

  13. #39
    Guru
    Регистрация
    11.09.2009
    Адрес
    Москва
    Сообщений
    4,625
    Благодарностей: 2756
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Исходник драйвера HD далёк от идеала - это первый мой драйвер для RT-11, написанный 10 лет назад.

  14. #40
    Guru Аватар для form
    Регистрация
    27.05.2009
    Адрес
    СССР, Новосибирск
    Сообщений
    5,141
    Благодарностей: 1954
    Mentioned
    5 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Patron Посмотреть сообщение
    Исходник драйвера HD далёк от идеала - это первый мой драйвер для RT-11, написанный 10 лет назад.
    Ну так развивать надо

    ---------- Post added at 17:19 ---------- Previous post was at 17:15 ----------

    Предложение по расширению функционала:

    Код:
    	.DRINS	HD
    	RETURN
    
    	.ENABL	LSB
    	JSR	R1,10$
    IMSG:	.ASCIZ	<15><12>/HD (177720) disk driver  v1.2  2012/<15><12>
    	.EVEN
    10$:	MOVB	(R1)+,R0
    	BEQ	20$
    	TSTB	@#TPS
    	BPL	.-4
    	MOVB	R0,@#TPB
    	BR	10$
    20$:	MOV	(SP)+,R1
    	RETURN
    	.DSABL	LSB
    
    .ASSUME	. LE 400,MESSAGE=<;Install area too big>
    
    	.DRSET	SILENT,15,O.SLNT,NO
    
    O.SLNT:	MOV	#0,R3
    	MOVB	R3,IMSG
    	.ADDR	#AREA+4,R1
    	.ADDR	#1000,R2
    	MOV	R2,@R1
    	MOV	#BMSG/1000,-(R1)
    	TST	-(R1)
    	MOV	R1,R0
    	EMT	375
    	BCS	O.BAD
    	MOVB	R3,BMSG&777(R2)
    	MOV	R1,R0
    	INCB	1(R0)
    	EMT	375
    	BCS	O.SYWL
    	MOV	R1,R0
    	DECB	1(R0)
    	MOV	#1,2(R0)
    	EMT	375
    	BCS	O.BAD
    O.GOOD:	TST	(PC)+
    O.BAD:	SEC
    	RETURN
    
    O.SYWL:	MOV	@SP,R0
    	INC	R0
    	CMPB	#BR/400,(R0)+
    	BNE	O.BAD
    	MOV	R0,@SP
    	BR	O.BAD
    
    AREA:	.BYTE	17,10
    	.BLKW	2
    	.WORD	256.
    	.WORD	0
    
    .ASSUME	. LE 1000,MESSAGE=<;SET area too big>
    ...
    ...
    BMSG:	.ASCIZ	<15><12>/HD Boot-I-Cold boot/<15><12>
    	.EVEN


    ---------- Post added at 17:32 ---------- Previous post was at 17:19 ----------

    Цитата Сообщение от Patron Посмотреть сообщение
    [code][IP_Adapter.ini]
    Listen_on_IP =""
    Listen_on_Port = 0
    Connect_to_IP = 95.172.148.99
    Connect_to_Port= 23
    Extended_Log=0
    Кстати, IP у стакана сменился - теперь 178.49.9.102.
    Кроме того на этом же адресе по 2023 порту есть OpenVMS - можно еще конфигу сделать

    ---------- Post added at 17:36 ---------- Previous post was at 17:32 ----------

    Patron, еще просьба, чтобы не разбираться в конфигах. Сделай pls конфиг как default, только чтобы еще добавился второй терминальный порт 300/176500 который коннектится по IP.
    PDP-11/83, Электроника МС0511 (УК-НЦ), DECserver 90M
    Q-Bus: H9278-A, DLV11-J, DZQ11, DHV11, DELQA-M, LPV11, CQD-420/TM, DRV11
    PMI: KDJ11-BF, MSV11-JE
    VT220, CM7209

  15. Этот пользователь поблагодарил form за это полезное сообщение:
    hobot (11.03.2014)

Страница 4 из 17 ПерваяПервая 12345678 ... ПоследняяПоследняя

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

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

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. "Исходники" Turbo Pascal нужны кому ?
    от esl в разделе Программирование
    Ответов: 1
    Последнее: 07.05.2012, 17:47
  2. Продам МС5310 блок дисководов к УКНЦ+КМД УКНЦ
    от Mad Killer/PG в разделе Барахолка (архив)
    Ответов: 7
    Последнее: 19.03.2012, 10:27
  3. в розыске дисковая версия Pascal.
    от goblinish в разделе Программирование
    Ответов: 18
    Последнее: 16.08.2011, 14:30
  4. Pascal
    от Andrew771 в разделе Программирование
    Ответов: 22
    Последнее: 24.05.2011, 19:20
  5. Скопировать/вставить из/в HiSoft Pascal в эмуляторе
    от kit в разделе Программирование
    Ответов: 1
    Последнее: 05.02.2010, 15:35

Метки этой темы

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •