RE: Una ayudita !!

Pedro Molina Thu, 27 Jul 2006 06:32:17 -0700

Si, si ya lo hice pero no me salió nada...este es el codigo nuevo:

*-- PARTE ALTA
C*                  TESTB     '7'           ENC(N)                   01
C                   eval      *in01 = %bitand(enc(n): x'F7') = x'00'
C*                  TESTB     '6'           ENC(N)                   02
C                   eval      *in02 = %bitand(enc(n): x'F6') = x'00'
C*                  TESTB     '5'           ENC(N)                   03
C                   eval      *in03 = %bitand(enc(n): x'F5') = x'00'
C*                  TESTB     '4'           ENC(N)                   04
C                   eval      *in04 = %bitand(enc(n): x'F4') = x'00'
*-- PARTE BAJA
C*                  TESTB     '3'           ENC(N)                   05
C                   eval      *in05 = %bitand(enc(n): x'F3') = x'00'
C*                  TESTB     '2'           ENC(N)                   06
C                   eval      *in06 = %bitand(enc(n): x'F2') = x'00'
C*                  TESTB     '1'           ENC(N)                   07
C                   eval      *in07 = %bitand(enc(n): x'F1') = x'00'
C*                  TESTB     '0'           ENC(N)                   08

C eval *in08 = %bitand(enc(n): x'F0') = x'00'

Como podrás ver no se que relajo estoy haciendo...por eso pido haber si alguien tiene una idea de como se aplica.

Saludos !!

From: "Paco" <[EMAIL PROTECTED]>
Reply-To: [email protected]
To: <[email protected]>
Subject: RE: Una ayudita !!
Date: Thu, 27 Jul 2006 07:41:14 +0200

Busca en el manual %BITAND %BITOR %BITNOT .

Saludos

Paco Medina

Exclusivas Camacho, S.Ltda.

Dtor.Informatica

De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Pedro Molina
Enviado el: miércoles, 26 de julio de 2006 20:43
Para: [email protected]
Asunto: Una ayudita !!

Hola foro !!

Alguien tiene la idea de como utilizar el codigo de operación TESTB en Free RPG?

Hay una función incorporada para estos menesteres, pero no me sale, lo que hace el programa es lo siguiente:

      *-- PARTE ALTA                                                   >  - =
     C                   TESTB     '7'           ENC(N)                   01
     C                   TESTB     '6'           ENC(N)                   02
     C                   TESTB     '5'           ENC(N)                   03
     C                   TESTB     '4'           ENC(N)                   04
      *-- PARTE BAJA
     C                   TESTB     '3'           ENC(N)                   05
     C                   TESTB     '2'           ENC(N)                   06
     C                   TESTB     '1'           ENC(N)                   07
     C                   TESTB     '0'           ENC(N)                   08

Esto mismo quiero hacer pero en formato FREE RPG, alguien tiene alguna idea de como se podría hacer?

Saludos !!

Este segmento como podrán apreciar, testea los bits del campo ENC(N) en este caso es un arreglo y se encienden los indicadores respectivos si el test resulta positivo.

Ahora lo que quiero hacer es esto mismo pero en formato FREE RPG !!

Alquien puede ayudarme??

Saludos !!

MSN Amor Busca tu ½ naranja
__________________________________________________ Forum.HELP400 es un servicio más de NEWS/400. © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja visita la siguente URL: http://coyote.combios.es/mailman/listinfo/forum.help400

Las mejores tiendas, los precios mas bajos, entregas en todo el mundo, YupimMSN Compras: Haz clic aquí __________________________________________________ Forum.HELP400 es un servicio más de NEWS/400. © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja visita la siguente URL: http://coyote.combios.es/mailman/listinfo/forum.help400

RE: Una ayudita !!

Responder a