User Tag List

Страница 80 из 122 ПерваяПервая ... 767778798081828384 ... ПоследняяПоследняя
Показано с 791 по 800 из 1564

Тема: Программирование на УКНЦ как?

Комбинированный просмотр

Предыдущее сообщение Предыдущее сообщение   Следующее сообщение Следующее сообщение
  1. #1

    Регистрация
    30.11.2015
    Адрес
    г. Самара
    Сообщений
    7,507
    Спасибо Благодарностей отдано 
    344
    Спасибо Благодарностей получено 
    714
    Поблагодарили
    596 сообщений
    Mentioned
    13 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от hobot Посмотреть сообщение
    пока результат такой
    Вот этот код
    Код:
    	.TITLE	RELEAS
    
    	.MCALL	.FETCH,.RELEAS,.EXIT,.PRINT
    
    START:	.FETCH	#HSPACE,#NLNAME	;Load NL handler
    	BCS	FERR		;Not available
    
    ; Use handler
    
    	.RELEAS	#NLNAME		;Mark NL no longer in memory
    	.PRINT	#OK		;NL not available
    	.EXIT
    FERR:	.PRINT	#NONL		;NL not available
    	.EXIT
    NLNAME:	.RAD50	/NL /		;Name for NL handler
    
    NONL:	.ASCIZ	/?RELEAS-F-NL handler not available/
    OK:	.ASCIZ	/?RELEAS-I-Ok!/
    	.EVEN
    HSPACE:				;Beginning of handler area
    	.END	START
    под эмулятором Патрона показал вот такой результат
    Код:
    HD (177720) disk driver  v1.6  2017
    SL V08.00 [SW] Сторожевых С.В. 1988
    KZ V01.00 (C) ВЦ МИЭТ,  НОЯБРЬ 1987
    
    RT-11SB (Y) V05.07
    
    .SET TT FORM
    
    .SET TT SCOPE
    
    .SET EDIT K52
    
    .SET SL ON
    
    .DAY
    Время           Дата
    11:29:52        30-Май-2019, Четверг
    
    .ASS HD1 DK
    
    .EXE T
    ?RELEAS-I-Ok!
    
    .

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

  3. #2

    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    7,161
    Спасибо Благодарностей отдано 
    2,979
    Спасибо Благодарностей получено 
    374
    Поблагодарили
    311 сообщений
    Mentioned
    13 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Hunta Посмотреть сообщение
    Вот этот код
    заменил название на CL
    закомментировал выгрузку
    часики появились на долю секунды но одновременно с .EXIT исчезли
    ???

    Код:
     ! Apxивны     дeл ЖД !            ЛAТ                                          
    .TITLE  RELEAS                                                                  
                                                                                    
            .MCALL  .FETCH,.RELEAS,.EXIT,.PRINT                                     
                                                                                    
    START:  .FETCH  #HSPACE,#NLNAME ;Load NL handler                                
            BCS     FERR            ;Not available                                  
                                                                                    
    ; Use handler                                                                   
                                                                                    
    ;       .RELEAS #NLNAME         ;Mark NL no longer in memory                    
            .PRINT  #OK             ;NL not available                               
            .EXIT                                                                   
    FERR:   .PRINT  #NONL           ;NL not available                               
            .EXIT                                                                   
    NLNAME: .RAD50  /CL /           ;Name for NL handler                            
                                                                                    
    NONL:   .ASCIZ  /?RELEAS-F-NL handler not available/                            
    OK:     .ASCIZ  /?RELEAS-I-Ok!/                                                 
            .EVEN                                                                   
    HSPACE:                         ;Beginning of handler area                      
            .END    START
    Архив программ для УК-НЦ, ДВК и БК.

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

  4. #3

    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    7,161
    Спасибо Благодарностей отдано 
    2,979
    Спасибо Благодарностей получено 
    374
    Поблагодарили
    311 сообщений
    Mentioned
    13 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию



    красота, да будут часики на экране ! @form про команду на выходе - я понял, мне наверное и то и то нужно

    - - - Добавлено - - -
    @form > Начальный верхний адрес - это содержимое @#50 плюс 2.
    После вызова .FETCH, новый адрес вернется в R0

    Правильно или не очень )))
    - такой вариант часы запускает.

    Код:
                                                                                    
    START:  MOV     @#50,R0                                                         
            SUB     #2,@#R0                                                         
            .FETCH  @#R0,#NLNAME    ;Load NL handler                                
            BCS     FERR            ;Not available                                  
                                                                                    
    ; Use handler
    Архив программ для УК-НЦ, ДВК и БК.

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

  5. #4

    Регистрация
    27.05.2009
    Адрес
    СССР, Новосибирск
    Сообщений
    5,850
    Спасибо Благодарностей отдано 
    9
    Спасибо Благодарностей получено 
    289
    Поблагодарили
    233 сообщений
    Mentioned
    30 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от hobot Посмотреть сообщение
    Правильно или не очень
    Плюс два, а не минус
    TST (R0)+
    Только вот R0 не годится - любой другой регистр должен быть.
    И не @#Rx, а просто Rx
    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

  6. #5

    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    7,161
    Спасибо Благодарностей отдано 
    2,979
    Спасибо Благодарностей получено 
    374
    Поблагодарили
    311 сообщений
    Mentioned
    13 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от form Посмотреть сообщение
    Только вот R0 не годится - любой другой регистр должен быть.
    Код:
    .TITLE  RELEAS                                                                  
                                                                                    
            .MCALL  .FETCH,.RELEAS,.EXIT,.PRINT                                     
                                                                                    
    START:  MOV     @#50,R1                                                         
            ADD     #2, R1                                                          
            .FETCH  R1,#NLNAME      ;Load NL handler                                
            BCS     FERR            ;Not available                                  
                                                                                    
    ; Use handler                                                                   
                                                                                    
    ;       .RELEAS #NLNAME         ;Mark NL no longer in memory                    
            .PRINT  #OK             ;NL not available                               
            BR      .                                                               
    FERR:   .PRINT  #NONL           ;NL not available                               
            .EXIT                                                                   
    NLNAME: .RAD50  /CL /           ;Name for NL handler                            
                                                                                    
    NONL:   .ASCIZ  /?RELEAS-F-NL handler not available/                            
    OK:     .ASCIZ  /?RELEAS-I-Ok!/                                                 
            .EVEN                                                                   
    HSPACE:                         ;Beginning of handler area                      
            .END    START
    поправил в такой вид, часики подгружает и на выходе выгружает,
    получается .RELEAS можно не использовать? я его закомментил как видно.
    Архив программ для УК-НЦ, ДВК и БК.

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

  7. #6

    Регистрация
    27.05.2009
    Адрес
    СССР, Новосибирск
    Сообщений
    5,850
    Спасибо Благодарностей отдано 
    9
    Спасибо Благодарностей получено 
    289
    Поблагодарили
    233 сообщений
    Mentioned
    30 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от hobot Посмотреть сообщение
    поправил
    Годится. Вместо ADD #2,R1 здесь можно использовать TST (R1)+ - это на слово короче.

    Цитата Сообщение от hobot Посмотреть сообщение
    .RELEAS можно не использовать?
    Он нужен только если тебе в рамках работы программы потребовалось освободить память от ранее .FETCHнутого драйвера. Специально вызывать его перед выходом не надо - он неявно сам выполнится когда потребуется.
    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. #7

    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    7,161
    Спасибо Благодарностей отдано 
    2,979
    Спасибо Благодарностей получено 
    374
    Поблагодарили
    311 сообщений
    Mentioned
    13 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от form Посмотреть сообщение
    дится. Вместо ADD #2,R1 здесь можно использовать TST (R1)+ - это на слово короче.
    Да! Я это и хотел попросить разжевать для меня. Я очень туг в плане этой регистровой математики, иначе быть мне системщиком однозначно. По синтаксису я понимаю эту строку так, сравниваем с нулём содержимое R1? Но что в
    данном случае означают скобки с плюсом и как сравнение с нулём может заменить операцию сложения (типа сдвиг, смещение). ??? может немного сумбурно, но я же хотел чётко понимать процедуру, а не тупо шпаргалить. вот прибавить двойку мне более понято, ещё вопрос третий вариант два INC подряд будет тем же самом в плане результата, ведь можно
    тогда написать свой макрос где тупо задать количество операций INC или DEC?

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

    Цитата Сообщение от form Посмотреть сообщение
    Годится.
    ура! я сдал Олегу контрольную ))) Спасибо за шпору Хунта!
    Архив программ для УК-НЦ, ДВК и БК.

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

  9. #8

    Регистрация
    22.03.2018
    Адрес
    г. Усть-Каменогорск, Казахстан
    Сообщений
    1,410
    Спасибо Благодарностей отдано 
    91
    Спасибо Благодарностей получено 
    178
    Поблагодарили
    138 сообщений
    Mentioned
    21 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Тогда что есть CMP (R0)+,(R0)+
    БK 0010-01, БК 11М, БК11М+,МС 0511 (УКНЦ)х3, Atari 65XE, Commodore 64, AMIGA 500 (HDD), ZX EVO

  10. #9

    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    7,161
    Спасибо Благодарностей отдано 
    2,979
    Спасибо Благодарностей получено 
    374
    Поблагодарили
    311 сообщений
    Mentioned
    13 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от S_V_B Посмотреть сообщение
    Тогда что есть CMP (R0)+,(R0)+
    константа )
    Архив программ для УК-НЦ, ДВК и БК.

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

  11. #10

    Регистрация
    30.11.2015
    Адрес
    г. Самара
    Сообщений
    7,507
    Спасибо Благодарностей отдано 
    344
    Спасибо Благодарностей получено 
    714
    Поблагодарили
    596 сообщений
    Mentioned
    13 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от S_V_B Посмотреть сообщение
    Тогда что есть CMP (R0)+,(R0)+
    Не знание предмета

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

    Что можно творить на MACRO-11

    Код:
      PROCEDURE READ1
        ;
        ; R0 - sector num
        ; R1 - word count		- zeroed
        ; R2 - memory address	- updated
        ;
        ; in work
        ; R3 - sector count
        ;
      BEGIN
        LET  R4   := BTCSR2
        LET  (R4) := #DC.STA!DC.NIE
    
        LET  R3   := R1 OFF.BY #377
        SWAB R3
        IF #377 SET.IN R1 THEN
          LET R3 := R3 + #1
        END
    					; R3 sector count
        LET R4 := R4 + #P$STAT-P$CSR2
        REPEAT
          LET R5 :B= (R4)
    							.ASSUME CS.BSY EQ <^O200>
        UNTIL RESULT IS PL AND #CS.DRD SET.IN R5
    
        LET R4 := R4 + #P$SCNT-P$STAT
    
        LET (R4)+ := R3		; 24
    							.ASSUME P$SNUM EQ <P$SCNT+2>
        LET (R4)+ := R0		; 26
    							.ASSUME P$CYLL EQ <P$SNUM+2>
        SWAB R0
        LET (R4)+ := R0		; 30
    							.ASSUME P$CYLH EQ <P$CYLL+2>
        LET (R4)+ := @#B$DEVU	; 32
    							.ASSUME P$DH   EQ <P$CYLH+2>
        LET (R4)+ := BTDH 		; 34
    							.ASSUME P$CMD  EQ <P$DH+2>
        LET (R4)  := #CS.RD 	; 36
    
        REPEAT
          REPEAT
            LET R5 :B= (R4)
    							.ASSUME CS.BSY EQ <^O200>
          UNTIL RESULT IS PL AND #CS.DRQ SET.IN R5
    
          IF #CS.ERR SET.IN (R4) GOTO 80$
    
          LET R4 := R4 + #P$DBUF-P$STAT
    
            THRU R3 := #256.
              IF R1 NE #0 THEN
                LET (R2)+ := (R4)
                LET R1    := R1 - #1
              ELSE
                TST (R4)
              END
            END
    
          LET R4 := R4 + #P$STAT-P$DBUF
    
        UNTIL R1 EQ #0
    
        LET CARRY := OFF
        RETURN
    
    80$:
    
        RESET
        JMP BIOERR
      END READ1

Страница 80 из 122 ПерваяПервая ... 767778798081828384 ... ПоследняяПоследняя

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

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

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

Похожие темы

  1. Программирование на Эмуляторе. Возможно ли это?
    от Toxic в разделе Программирование
    Ответов: 10
    Последнее: 20.01.2008, 19:20
  2. Программирование Altera и JTAG
    от Mikka_A в разделе Несортированное железо
    Ответов: 7
    Последнее: 18.01.2008, 09:07
  3. Программирование и софтмейк на NES
    от Splinter в разделе Nintendo
    Ответов: 7
    Последнее: 30.06.2006, 04:31

Ваши права

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