github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-28 12:59:20 +00:00
Code Issues Releases Wiki Activity

Build DDTDOC.

Browse Source
This commit is contained in:
Lars Brinkhoff
2016-11-26 22:27:50 +01:00
committed by Eric Swenson
parent 7ed0d1d8ce
commit ad492867c2
5 changed files with 511 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
src/gren/macros.1 Executable file
View File

@@ -0,0 +1,26 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;;
Define SYSCAL op,args
.Call [Setz ? Sixbit /op/ ? args ((Setz))]
Termin
Define TYPE chnl=TTYo,&string
Movei T1,<.Length string>
Move T2,[440700,,[Ascii string]]
Syscal SIOT,[%Climm,,chnl ? T2 ? T1]
.Lose %LsSys
Termin
Define DBP ac ;Decrement [7bit] Byte Pointer
Add ac,[70000,,0]
Skipge ac
Sub ac,[430000,,1]
Termin
;;;
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;