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

OD - dump binary file in octal format.

Browse Source
This commit is contained in:
Lars Brinkhoff 2017-01-12 15:30:58 +01:00
parent 196263051c
commit 4841374f64
1 changed files with 64 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
src/sysen3/od.29 Normal file
View File

@ -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