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

Цитата:

---

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

я просто напомнил

---

повторю свою благодарность:)
с ошибками разбираюсь если что по PDP-11 MACRO-11 Language Reference Manual
а тут на родном языке, так что ещё раз спасибо

Цитата:

---

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

а тут на родном языке, так что ещё раз спасибо

---

http://zx-pk.ru/threads/20444-pascal...l=1#post558147

http://zx-pk.ru/threads/20444-pascal...l=1#post580988

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

плюс я что то выдрал для себя, плюс форум, плюс огрызочки шпор которые на живую машинку на дискете для себя тащил, всё это как-бы в рамках АРХИВ+ФОРУМ разбросано.
http://zx-pk.ru/threads/20444-pascal...l=1#post642328

http://zx-pk.ru/threads/20444-pascal...l=1#post693329

Может кому пригодится.
Получение следующего числа псевдо-случайной последовательности.
Переведено с кода Z80, исходник в комментариях.

Код:

---

; Routine: Get pseudo-random number, result in R3
LA270:
        MOV        L5C76, R2        ; A270        LD DE,($5C76)        ; Read RND SEED variable
        MOV        R2, R3                ; A274        LD H,E       
        SWAB        R3
        BIC        #377, R3
        ADD        #375, R3        ; A275        LD L,$FD       
        MOV        R2, R0                ; A277        LD A,D       
        SWAB        R0
        BIC        #177400, R0        ; A278        OR A       
        SUB        R2, R3                ; A279        SBC HL,DE       
        SBCB        R0                ; A27B        SBC A,$00       
        SUB        R2, R3                ; A27D        SBC HL,DE       
        SBCB        R0                ; A27F        SBC A,$00       
                                ; A281        LD E,A       
        BIC        #177400, R0        ; A282        LD D,$00       
        SUB        R0, R3                ; A284        SBC HL,DE       
        BHIS        LA289                ; A286        JR NC,$A289       
        INC        R3                ; A288        INC HL       
LA289:        MOV        R3, L5C76        ; A289        LD ($5C76),HL        ; Write RND SEED variable
        RETURN                        ; A28C        RET       
L5C76:        .WORD        123456        ; Pseudo-random seed

---

Удаление в знак протеста против действий MM

Цитата:

---

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

Где бы посмотреть пример работы с каталогом? Сначала получить число файлов на диске и последовательно прочитать их описатели (имена со всеми свойствами).

---

есть исходники DIR.SAV с комментариями по содержанию и сборке
ссылка строго временная => http://archive.pdp-11.org.ru/vid/dir.rar

Цитата:

---

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

Где бы посмотреть пример работы с каталогом?

---

Код под PDP?

Цитата:

---

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

Где бы посмотреть пример работы с каталогом?

---

Самое простое - исходники DIR иди BSTRAP.MAC от дистрибутива системы. Так же есть в библиотеке SYSLIB готовый набор подпрограмм для работы с каталогами, поиска по звездочкам итд (насчет версии RT-11 в какой появилось не уверен, но работать будет в любой после сборки). Пример на ассемблере есть в RT–11 System Macro Library Manual (искать по слову GTDIR). Пример на фортране и описание подпрограммы есть в RT–11 System Subroutine
Library Manual.

Удаление в знак протеста против действий MM

Цитата:

---

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

С этого - исходников DIR - я начал, но исходников не нашёл.

---

??? там же прямая ссылка на архив с файлами ??? или что то не так ???

Удаление в знак протеста против действий MM