6530 Programmer's Guide

ManualsBrandsHP ManualsServerHP NonStop G-Series

Tandem NonStop Kernel Application Interface

4-6

6530 Programmer’s Guide

STRING .buffer^s := @buffer ’<<’ 1 ;

STRING .tube^out^p := @tube^out ’<<’ 1;

DEFINE order^sba = %h11# ;

DEFINE order^sca = %h13# ;

DEFINE order^sf = %h1d# ;

DEFINE CR = %h0d# ;

DEFINE DC1 = %h11# ;

DEFINE DC3 = %h13# ;

DEFINE esc = %h1b# ;

DEFINE order^read^color^conf = esc,"-u" # ;

DEFINE set^enhance^color = esc,"-1x" # ;

DEFINE reset^color^conf = esc,"-1;t" # ;

DEFINE order^sfe^color = esc,"‘" # ;

DEFINE write^message = esc,"o" #;

DEFINE enter^prot = esc,"W" # ;

DEFINE exit^prot = esc,"X" # ;

DEFINE unlock = esc,"b" # ;

DEFINE row(a) = a + %37#;

DEFINE col(a) = a + %37#;

DEFINE v^norm = %h20# ;

DEFINE v^blank = %h28# ;

DEFINE d^free = %h40# ;

DEFINE d^prot = %h60# ;

!-----------------------------------------------------------

SUBPROC READ^BUFF(SROW,SCOL,EROW,ECOL);

INT SROW,SCOL,EROW,ECOL;

BEGIN

tube^out^p[0] := ESC;

tube^out^p[1] := "=";

tube^out^p[2] := (SROW) ’+’ %37;

tube^out^p[3] := (SCOL) ’+’ %37;

! tube^out^p[4] := ";";

tube^out^p[5] := (EROW) ’+’ %37;

tube^out^p[6] := (ECOL) ’+’ %37;

buffer^s ’:=’ tube^out^p for 7;

CALL writeread ( fnum , buffer , 7 , 1023 , count^read) ;