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

[Hunta]

пока результат такой

Вот этот код

	.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!

.

[Advertiser]

[hobot]

Вот этот код

заменил название на 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

[hobot]

красота, да будут часики на экране ! @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

[form]

Правильно или не очень

Плюс два, а не минус
TST (R0)+
Только вот R0 не годится - любой другой регистр должен быть.
И не @#Rx, а просто Rx

[hobot]

Только вот 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 можно не использовать? я его закомментил как видно.

[form]

поправил

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

.RELEAS можно не использовать?

Он нужен только если тебе в рамках работы программы потребовалось освободить память от ранее .FETCHнутого драйвера. Специально вызывать его перед выходом не надо - он неявно сам выполнится когда потребуется.

[hobot]

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

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

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

Годится.

ура! я сдал Олегу контрольную ))) Спасибо за шпору Хунта!

[S_V_B]

Тогда что есть CMP (R0)+,(R0)+

[hobot]

Тогда что есть CMP (R0)+,(R0)+

константа )

[Hunta]

Тогда что есть 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