Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
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";