diff --git a/src/sysen3/od.29 b/src/sysen3/od.29 new file mode 100644 index 00000000..1ce4603d --- /dev/null +++ b/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 + +