OD - dump binary file in octal format.

src/sysen3/od.29

@@ -0,0 +1,64 @@
+TITLE OD - print binary file
+
+A=1
+B=2
+C=3
+D=4
+E=5
+BIN=7
+TYO=8
+P=17
+
+$$RFN==1
+
+.INSRT SYSENG; RFN >
+
+FNAM:
+DEV:	0
+FN1:	0
+FN2:	0
+SNAM:	0
+
+JCL:	BLOCK 10
+
+START:
+	MOVE P,[-100,,PDL]
+
+	.BREAK 12,[..RJCL,,JCL]
+	MOVEI B,FNAM
+	MOVE D,[440700,,JCL]
+	PUSHJ 17,RFN"RFN
+
+	.CALL [SETZ
+		SIXBIT /OPEN/
+		%CLBIT,,.UII
+		%CLIMM,,BIN
+		DEV ? FN1 ? FN2 ? SETZ SNAM]
+
+	.CALL [SETZ
+		SIXBIT /OPEN/
+		%CLBIT,,.UAO
+		%CLIMM,,TYO
+		SETZ [SIXBIT /TTY/]]
+	 .LOSE
+
+	MOVE D,[440700,,HEY]
+	.CALL [SETZ
+		SIXBIT /SIOT/
+		%CLIMM,,TYO
+		D
+		SETZ 10]
+	 .LOSE
+
+	.LOGOUT 1,
+
+RSIXTP:	
+	POPJ 17,
+
+PDL:	BLOCK 100
+
+HEY:	ASCIZ /hello world/
+
+END START
+
+