Belkin F5D5230-F Manual de instalación Pagina 42

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 115
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 41
42
© 2002. Xephon UK telephone 01635 33848, fax 01635 38345. USA telephone (303) 410 9344, fax (303) 438 0290.
**********************************************************************
OC UDDATAL,UDDATAL WAS DATA() PARAMETER SPECIFIED
BZ OCCSELY NO, RETURN ALL OCCURRENCES TO CALLER
LTR R6,R6 FIRST FIELD IN FIELD() PARM ?
BZ OCCSEL1 YES, COMPARE VALUE WITH DATA() VALUE
* @MC3
* CHECK OCCURRENCE BIT MASK FOR 2ND AND SUBSEQUENT SELECTIONS @MC3
* @MC3
STM R1,R3,SAVESUB SAVE WORK REGS @MC3
CVB R1,OCCNO CURRENT OCCURRENCE NO. @MC3
LR R2,R1 SAVE OCCNO @MC3
SRL R1,3 DIV/8 FOR BYTE OFFSET IN MASK @MC3
LR R3,R1 SAVE BYTE OFFSET @MC3
SLL R1,3 OCCNO ROUNDED DOWN TO 8 @MC3
SR R2,R1 BIT OFFSET @MC3
LA R1,X8Ø BIT 1 OF 1 TO 8 @MC3
SRL R1,Ø(R2) MOVE ACCORDING TO OFFSET @MC3
LA R3,SELMASK(R3) INDEX INTO SELECTION MASK BYTE @MC3
TM Ø(R3),*-* @MC3
EX R1,*-4 TEST APPROPRIATE BIT IN MASK @MC3
LM R1,R3,SAVESUB RESTORE WORK REGS @MC3
BNZ OCCSELY SELECT THIS OCCURRENCE @MC3
B FLDNXT NO, BYPASS THIS OCCURRENCE
*
* COMPARE OCCURRENCE DATA WITH THE SUPPLIED DATA BEFORE SELECTING IT
*
OCCSEL1 DS ØH
LTR RØ,R2 SAVE LEN. CONVERTED DATA
BNP FLDNXT NULL, CANNOT MATCH @MC3
ICM R2,15,UDDATAL GET LEN DATA FROM DATA() PARM
CR R2,RØ CHECK DATA LENGTH
BP FLDNXT TOO LONG, CANT MATCH
BCTR R2,Ø
CLC UDDATA(*-*),Ø(R3)
EX R2,*-6 COMPARE DATA() VALUE
BNE FLDNXT DIFFERENT, BYPASS OCCURRENCE
LR R2,RØ RESTORE LEN CONVERTED DATA
* @MC3
* INDICATE IN MASK THE OCCURRENCE NUMBER SELECTED, SO WE @MC3
* CAN OUTPUT THE SAME OCCURRENCE NUMBER FOR FOLLOWING FIELDS. @MC3
* @MC3
STM R1,R3,SAVESUB SAVE WORK REGS @MC3
CVB R1,OCCNO CURRENT OCCURRENCE NO. @MC3
LR R2,R1 SAVE OCCNO @MC3
SRL R1,3 DIV/8 FOR BYTE OFFSET IN MASK @MC3
LR R3,R1 SAVE BYTE OFFSET @MC3
SLL R1,3 OCCNO ROUNDED DOWN TO 8 @MC3
SR R2,R1 BIT OFFSET @MC3
LA R1,X8Ø BIT 1 OF 1 TO 8 @MC3
SRL R1,Ø(R2) MOVE ACCORDING TO OFFSET @MC3
Vista de pagina 41
1 2 ... 37 38 39 40 41 42 43 44 45 46 47 ... 114 115

Comentarios a estos manuales

Sin comentarios