Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0002/stdbrk.sai
There is 1 other file named stdbrk.sai in the archive. Click here to see a list.
COMMENT    VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "STDBRK"
C00004 ENDMK
C;

BEGIN "STDBRK"
COMMENT WARNING !!!!!!! The ARRYOUT statement below must be changed if the
	length or position of BKTPTR or BRKTBL is changed.;
LABEL WRITE;
EXTERNAL INTEGER GOGTAB;
INTEGER COUNT,BRCHAR,EOF;
STRING DELIMS,LETTS,DIGS,SAILID;
DELIMS_'15 & '12 & '40 & '11 & '14;	COMMENT CR,LF,SP,TAB,FF;
LETTS_"ABCDEFGHIJKLMNOPQRSTUVWXYZabcedfghijklmnopqrstuvwxyz";
DIGS_"0123456789";
SAILID_LETTS&DIGS;

SETBREAK(1,'12,'15,"INS");
SETBREAK(2,'12,NULL,"INA");
SETBREAK(3,DELIMS,NULL,"XNR");
SETBREAK(4,SAILID,NULL,"INS");
SETBREAK(5,SAILID,NULL,"INR");
SETBREAK(6,LETTS,NULL,"XNR");
SETBREAK(7,DIGS,NULL,"XNR");
SETBREAK(8,DIGS,NULL,"INS");
SETBREAK(9,DIGS,NULL,"INR");
SETBREAK(10,DIGS&"+-@.",NULL,"XNR");
SETBREAK(11,DIGS&"+-@.",NULL,"INS");
SETBREAK(12,DIGS&"+-@.",NULL,"INR");
SETBREAK(13,NULL,NULL,NULL);
SETBREAK(14,NULL,NULL,NULL);
SETBREAK(15,NULL,NULL,NULL);
SETBREAK(16,NULL,NULL,NULL);
SETBREAK(17,NULL,NULL,NULL);
SETBREAK(18,NULL,NULL,NULL);

OPEN(1,"DSK",'14,0,2,COUNT,BRCHAR,EOF);
ENTER(1,"BKTBL.BKT",BRCHAR);
WRITE:ARRYOUT(1,MEMORY[MEMORY[GOGTAB+'36]],'251);
CLOSE(1);

END "STDBRK";