Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
qsrque.c12
There are 2 other files named qsrque.c12 in the archive. Click here to see a list.
REP 50/14 ;12C1
SOJLE T2,CRQE.5 ;MAKE SURE LENGTH IS CORRECT
MOVSI S1,-TBLEN ;GET AOBJN AC FOR BLOCK TYPE SEARCH
WIT
MOVSI S1,-TBLEN ;GET AOBJN AC FOR BLOCK TYPE SEARCH
SOJG T2,CRQE.2 ;[1237] MAKE SURE LENGTH IS CORRECT
CAIN T1,.QCACT ;[1237] ACCOUNT STRING BLOCK?
JRST CRQE.2 ;[1237] YES, THAT MAY BE ZERO LENGTH
JRST CRQE.5 ;[1237] NO, THAT'S AN ERROR
INS 23/20 ;12C2
JUMPE T2,.RETT ;[1237] QUIT IF ZERO-LENGTH ACCOUNT STRING
REP 38/22 ;12C3
CRQBGN: CAIN T2,1 ;LENGTH MUST BE 1
CAIE P2,.QHTOU ;AND THIS MUST BE AN OUTPUT QUEUE
$RETF ;ELSE THATS AN ERROR
WIT
CRQBGN: CAIE T2,1 ;[1235]LENGTH MUST BE 1
$RETF ;ELSE THATS AN ERROR
CAIE P2,.QHTIP ;[1235]SIXBIT TAG ONLY LEGAL IF INPUT QUEUE
JUMPL T4,.RETF ;[1235]GIVE AN ERROR OTHERWISE
SUM 129292