;
;	ASSEMBLES ALL ACP ACCESS ROUTINES (WRITEQ, READQ, ETC.)
;
.ENABLE SUBSTITUTION
.ENABLE ESCAPE
.SETF A
.SETF B
.SETF C
.SETF D
.SETF E
.SETF F
.SETF G
.SETF H
.SETF I
.SETF J
.SETF K
.SETF L
.SETF M
.SETF N
.SETF O
;
.ASK CR CREATE THE OBJECT LIBRARY
.IFT CR LBR QUEUE/CR
;
.ASK LIST LISTINGS
.ASK A ASSEMBLE WRITEQ
.IFT <ESCAPE> .SETF A
.IFT <ESCAPE> .GOTO ASSEM
.ASK B ASSEMBLE READQ
.IFT <ESCAPE> .SETF B
.IFT <ESCAPE> .GOTO ASSEM
.ASK C ASSEMBLE ATCHQ
.IFT <ESCAPE> .SETF C
.IFT <ESCAPE> .GOTO ASSEM
.ASK D ASSEMBLE ACKQ
.IFT <ESCAPE> .SETF D
.IFT <ESCAPE> .GOTO ASSEM
.ASK E ASSEMBLE RNAQ
.IFT <ESCAPE> .SETF E
.IFT <ESCAPE> .GOTO ASSEM
.ASK F ASSEMBLE READHD
.IFT <ESCAPE> .SETF F
.IFT <ESCAPE> .GOTO ASSEM
.ASK G ASSEMBLE READID
.IFT <ESCAPE> .SETF G
.IFT <ESCAPE> .GOTO ASSEM
.ASK H ASSEMBLE WRTRTR
.IFT <ESCAPE> .SETF H
.IFT <ESCAPE> .GOTO ASSEM
.ASK I ASSEMBLE DISCQ
.IFT <ESCAPE> .SETF I
.IFT <ESCAPE> .GOTO ASSEM
.ASK J ASSEMBLE INITQ
.IFT <ESCAPE> .SETF J
.IFT <ESCAPE> .GOTO ASSEM
.ASK K ASSEMBLE DELQ
.IFT <ESCAPE> .SETF K
.IFT <ESCAPE> .GOTO ASSEM
.ASK L ASSEMBLE VAXQAD
.IFT <ESCAPE> .SETF L
.IFT <ESCAPE> .GOTO ASSEM
.ASK M ASSEMBLE XXXXXX
.IFT <ESCAPE> .SETF M
.IFT <ESCAPE> .GOTO ASSEM
.ASK N ASSEMBLE XXXXXX
.IFT <ESCAPE> .SETF N
.IFT <ESCAPE> .GOTO ASSEM
.ASK O ASSEMBLE XXXXXX
.IFT <ESCAPE> .SETF O
;
.ASSEM:
;
.IFT A .AND .IFT LIST MAC WRITEQ,WRITEQ/-SP=WRITEQ
.IFT A .AND .IFF LIST MAC WRITEQ=WRITEQ
.IFT A LBR QUEUE/RP=WRITEQ
.IFT A PIP WRITEQ.OBJ;*/DE
;
.IFT B .AND .IFT LIST MAC READQ,READQ/-SP=QUEUE/ML,READQ
.IFT B .AND .IFF LIST MAC READQ=QUEUE/ML,READQ
.IFT B LBR QUEUE/RP=READQ
.IFT B PIP READQ.OBJ;*/DE
;
.IFT C .AND .IFT LIST MAC ATCHQ,ATCHQ/-SP=ATCHQ
.IFT C .AND .IFF LIST MAC ATCHQ=ATCHQ
.IFT C LBR QUEUE/RP=ATCHQ
.IFT C PIP ATCHQ.OBJ;*/DE
;
.IFT D .AND .IFT LIST MAC ACKQ,ACKQ/-SP=ACKQ
.IFT D .AND .IFF LIST MAC ACKQ=ACKQ
.IFT D LBR QUEUE/RP=ACKQ
.IFT D PIP ACKQ.OBJ;*/DE
;
.IFT E .AND .IFT LIST MAC RNAQ,RNAQ/-SP=RNAQ
.IFT E .AND .IFF LIST MAC RNAQ=RNAQ
.IFT E LBR QUEUE/RP=RNAQ
.IFT E PIP RNAQ.OBJ;*/DE
;
.IFT F .AND .IFT LIST MAC READHD,READHD/-SP=READHD
.IFT F .AND .IFF LIST MAC READHD=READHD
.IFT F LBR QUEUE/RP=READHD
.IFT F PIP READHD.OBJ;*/DE
;
.IFT G .AND .IFT LIST MAC READID,READID/-SP=READID
.IFT G .AND .IFF LIST MAC READID=READID
.IFT G LBR QUEUE/RP=READID
.IFT G PIP READID.OBJ;*/DE
;
.IFT H .AND .IFT LIST MAC WRTRTR,WRTRTR/-SP=WRTRTR
.IFT H .AND .IFF LIST MAC WRTRTR=WRTRTR
.IFT H LBR QUEUE/RP=WRTRTR
.IFT H PIP WRTRTR.OBJ;*/DE
;
.IFT I .AND .IFT LIST MAC DISCQ,DISCQ/-SP=DISCQ
.IFT I .AND .IFF LIST MAC DISCQ=DISCQ
.IFT I LBR QUEUE/RP=DISCQ
.IFT I PIP DISCQ.OBJ;*/DE
;
.IFT J .AND .IFT LIST MAC INITQ,INITQ/-SP=INITQ
.IFT J .AND .IFF LIST MAC INITQ=INITQ
.IFT J LBR QUEUE/RP=INITQ
.IFT J PIP INITQ.OBJ;*/DE
;
.IFT K .AND .IFT LIST MAC DELQ,DELQ/-SP=DELQ
.IFT K .AND .IFF LIST MAC DELQ=DELQ
.IFT K LBR QUEUE/RP=DELQ
.IFT K PIP DELQ.OBJ;*/DE
;
.IFT L .AND .IFT LIST MAC VAXQAD,VAXQAD/-SP=VAXQAD
.IFT L .AND .IFF LIST MAC VAXQAD=VAXQAD
.IFT L LBR QUEUE/RP=VAXQAD
.IFT L PIP VAXQAD.OBJ;*/DE
;
.IFT M .AND .IFT LIST MAC XXXXXX,XXXXXX/-SP=XXXXXX
.IFT M .AND .IFF LIST MAC XXXXXX=XXXXXX
.IFT M LBR QUEUE/RP=XXXXXX
.IFT M PIP XXXXXX.OBJ;*/DE
;
.IFT N .AND .IFT LIST MAC XXXXXX,XXXXXX/-SP=XXXXXX
.IFT N .AND .IFF LIST MAC XXXXXX=XXXXXX
.IFT N LBR QUEUE/RP=XXXXXX
.IFT N PIP XXXXXX.OBJ;*/DE
;
.IFT O .AND .IFT LIST MAC XXXXXX,XXXXXX/-SP=XXXXXX
.IFT O .AND .IFF LIST MAC XXXXXX=XXXXXX
.IFT O LBR QUEUE/RP=XXXXXX
.IFT O PIP XXXXXX.OBJ;*/DE
;
PIP *.MAC/PU
LBR QUEUE.OLB/CO:100.=QUEUE.OLB
PIP QUEUE.OLB/PU
;