;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;;

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

;;;
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;