6530 Programmer's Guide

Tandem NonStop Kernel Application Interface
6530 Programmer’s Guide 4-7
END;
!-----------------------------------------------------------
SUBPROC SET^BUFF^ADDRESS(ROW_,COL_);
INT ROW_,COL_;
BEGIN
tube^out^p[0] := DC1;
tube^out^p[1] := (ROW_) ’+’ %37;
tube^out^p[2] := (COL_) ’+’ %37;
buffer^s ’:=’ tube^out^p for 3;
CALL write ( fnum , buffer , 3 ) ;
END;
!-----------------------------------------------------------
SUBPROC SET^CURSO^ADDRESS(ROW_,COL_);
INT ROW_,COL_;
BEGIN
tube^out^p[0] := DC3;
tube^out^p[1] := (ROW_) ’+’ %37;
tube^out^p[2] := (COL_) ’+’ %37;
buffer^s ’:=’ tube^out^p for 3;
CALL write ( fnum , buffer , 3 ) ;
END;
!-----------------------------------------------------------
SUBPROC ENTERBLOCKMODE;
BEGIN
CALL SETMODE (fnum, 8, 1, 0); !ENTER BLOCK MODE
TO READ STATUS!
END; !of subproc
!-----------------------------------------------------------
fname ’:=’ "$RECEIVE " ;
CALL open ( fname , fnum ) ;
CALL read ( fnum , buffer , 66 ) ;
CALL open ( buffer [ 21 ] , fnum ) ; -- Open
OUT file
CALL ENTERBLOCKMODE; -- Enter block mode
buffer^s ’:=’ [enter^prot, unlock] -> @e; -- Enter
protect sub-mode.
CALL write ( fnum , buffer , @e ’-’ @buffer^s ) ;