Belkin F5D5230-F Manual de Instalação Página 29

  • Descarregar
  • Adicionar aos meus manuais
  • Imprimir
  • Página
    / 115
  • Índice
  • MARCADORES
  • Avaliado. / 5. Com base em avaliações de clientes
Vista de página 28
29
© 2002. Reproduction prohibited. Please inform Xephon of any infringement.
LA R9,1(R9) LOAD 3RD BASE @MC6
LR R8,R1 SAVE PARM LIST ADDR
L RØ,=A(WORKLEN) @MC1
GETMAIN R,LV=(Ø)
ST R1,8(R13) OLD TO NEW
ST R13,4(R1) NEW TO OLD
LR R13,R1 POINT TO OUR SAVEAREA
USING WORKAREA,R13 ADDR SAVE/WORK AREAS
USING CPPL,R8 ADDR PARAMETERS
********************************************************************
*
* GET INFO ABOUT CURRENT USER
*
********************************************************************
L R1,X224' TO ASCB
USING ASCB,R1
L R1,ASCBASXB TO ASXB
USING ASXB,R1
L R4,ASXBSENV
USING ACEE,R4
ST R4,TSUACEE SAVE ADDR USERS ACEE
MVC TSUSER,ACEEUSRI AND USERID
MVC TSUSERL,ACEEUSRL AND USERID LENGTH
MVC FLG1RAC,ACEEFLG1 AND USERS ATTRIBUTES
DROP R4
********************************************************************
* *
* PROCESS INPUT PARAMETERS *
* *
********************************************************************
*
* BUILD PARSE PARAMETER LIST
*
LA R2,LOCPPL TO OUR LOCAL PPL
USING PPL,R2
L R1,CPPLUPT TO UPT FROM PARMS
ST R1,PPLUPT
L R1,CPPLECT TO ECT FROM PARMS
ST R1,PPLECT
XC LOCECB,LOCECB CLEAR ECB FOR PARSER
LA R1,LOCECB TO PARSE ECB
ST R1,PPLECB
L R1,=V(PCLPDL) PARSE DESCRIPTOR LIST
ST R1,PPLPCL
LA R1,LOCANS TO REPLY AREA FOR PARSER
ST R1,PPLANS
L R1,CPPLCBUF TO COMMAND BUFFER
ST R1,PPLCBUF
XC PPLUWA,PPLUWA NO USER WORK AREA
DROP R2 DROP PPL @MC6
Vista de página 28
1 2 ... 24 25 26 27 28 29 30 31 32 33 34 ... 114 115

Comentários a estes Manuais

Sem comentários