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
Последний раз редактировалось hobot; 02.12.2017 в 23:19.
Может кому пригодится.
Получение следующего числа псевдо-случайной последовательности.
Переведено с кода 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; 27.01.2019 в 09:02. Причина: Удаление в знак протеста против действий MM
есть исходники DIR.SAV с комментариями по содержанию и сборке
ссылка строго временная => http://archive.pdp-11.org.ru/vid/dir.rar
Самое простое - исходники DIR иди BSTRAP.MAC от дистрибутива системы. Так же есть в библиотеке SYSLIB готовый набор подпрограмм для работы с каталогами, поиска по звездочкам итд (насчет версии RT-11 в какой появилось не уверен, но работать будет в любой после сборки). Пример на ассемблере есть в RT–11 System Macro Library Manual (искать по слову GTDIR). Пример на фортране и описание подпрограммы есть в RT–11 System Subroutine
Library Manual.
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
Удаление в знак протеста против действий MM
Последний раз редактировалось MacBuster; 27.01.2019 в 09:03. Причина: Удаление в знак протеста против действий MM
??? там же прямая ссылка на архив с файлами ??? или что то не так ???
Последний раз редактировалось hobot; 30.12.2017 в 22:23.
Удаление в знак протеста против действий MM
Последний раз редактировалось MacBuster; 27.01.2019 в 09:02. Причина: Удаление в знак протеста против действий MM
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)