.TITLE OVERLAY ROUTINES
.GLOBLOVLOD
.GLOBLOLLDS,OLLST,OLCRM,OLCD2,OLCRU
.GLOBLOLSLL,OLCTL,OLINI,OLIO
.GLOBLOLQOT,OLAGN,OLMGN,OLUGN,OLSGN
.GLOBLOLCGN,OLNLI,OLPNA,OLNOU,OLPVR,OLPV2
.GLOBLOLOBJ,OLLCO,OLPS2,OLDUM
.GLOBLOLLAB,OLRBR,OLPLO,OLSPL,OLSAV,OLARA,OLARB
        .GLOBL  OLFLT,OLREG,OLSCN,OLPSB,OLPLC
.PAGE
OLLDS:.RAD50/LDS   /
OLLST:.RAD50/LST   /
OLCRM:.RAD50/CRM   /
OLCD2:.RAD50/CD2   /
OLCRU:.RAD50/CRU   /
OLSLL:.RAD50/SLL   /
OLCTL:.RAD50/CTL   /
OLINI:.RAD50/NLI   /
OLIO:.RAD50/IO1   /
OLQOT:.RAD50/QOT   /
OLMGN:.RAD50/MGN   /
OLUGN:.RAD50/UGN   /
OLAGN:
OLSGN:.RAD50/SGN   /
OLCGN:.RAD50/CGN   /
OLNLI:.RAD50/NLI   /
OLPNA:.RAD50/PNA   /
OLNOU:.RAD50/NOU   /
OLPVR:.RAD50/PVR   /
OLPV2:.RAD50/PV2   /
OLOBJ:.RAD50/OBJ   /
OLLCO:.RAD50/LCO   /
OLPS2:.RAD50/PS2   /
OLSCN:
OLDUM:.RAD50/DUM   /
OLLAB:.RAD50/LAB   /
OLRBR:.RAD50/RBR   /
OLPLO:.RAD50/PLO   /
OLSAV:.RAD50/QOT   /
OLSPL:  .RAD50  /PLO   /
OLARA:.RAD50/ARA   /
OLARB:.RAD50/ARB   /
OLREG:.RAD50/REG   /
OLFLT:  .RAD50  /FLT   /
OLPSB:.RAD50/PSB   /
OLPLC:.RAD50/PLC   /
        .PAGE
PBLK:.BYTE3,0
.RAD50/      /
OVLOD:MOVB(R5),R0;GET NUMBER OF ARGUMENTS
MOV2(R5),R1;GET ADDRESS OF FIRST PARAM
MOV(R1)+,PBLK+2;MOVE OVERLAY NAME TO PBLK
MOV(R1)+,PBLK+4
MOV#PBLK,R0;CALL OVERLAY LOADER
CALL$LOAD
RTSPC;GO HOME
.END