.TITLE VTXINI - VTECO MULTIUSER INITIALIZATION .IDENT /M2602/ ; ; VTXINI -- INITIALIZE VTECO ; .MCALL FINIT$ ; .PSECT INIT,RO,I ; SCRAPR = 4 VTXAPR = 5 VTXBEG = VTXAPR*20000 ; TECINI:: FINIT$ ; Initialize $$FSR2 with required stuff .IF NDF D$$BUG MOV #^RTEC,RGNAME .IFF MOV #^RVTX,RGNAME .IFTF MOV #^RPUR,RGNAME+2 .IFT MOV #454,R1 ; Get the library directory CALL .WDFUI ; Set it as the default ; ; Note that TECINI also does a FINIT$, so we don't have ; to worry about the fact that we changed the task's ; default FCS UIC. ; .ENDC MOV #VTXFDB,R0 ; Pick up the FDB address MOV #VTXFDB+F.FNB,R1 ; Get the filename block address CALL .GTDID ; Get the directory ID MOVB #VTXAPR,VTXWDB+W.NAPR ; Get the APR to map with CALL VTXLDR ; And load TECO's pure region MOV #^RCHA,VTXFDB+F.FNB+N.FNAM+2 ; Set default screen name MOVB #SCRAPR,VTXWDB+W.NAPR ; Load Screen APR to use JMP VTXBEG ; And go to TECO's initialization ; .END