github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-04-24 19:40:28 +00:00
Code Issues Releases Wiki Activity

Move GREN MACROS to SYSEN3; update FDIR and DDTDOC .INSRTs accordingly.

Browse Source
This commit is contained in:
Lars Brinkhoff
2016-12-19 19:48:58 +01:00
committed by Eric Swenson
parent fc31e4c30d
commit 918cb9e155
4 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
src/sysen3/gren.macros 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
;;;
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;