mirror of
https://github.com/PDP-10/its.git
synced 2026-03-01 17:47:32 +00:00
26 lines
495 B
Plaintext
Executable File
26 lines
495 B
Plaintext
Executable File
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;;
|
|
;;;
|
|
|
|
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
|
|
|
|
;;;
|
|
;;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |