mirror of
https://github.com/PDP-10/its.git
synced 2026-01-23 19:07:45 +00:00
65 lines
615 B
Plaintext
65 lines
615 B
Plaintext
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
|
|
|
|
|