muratzıvalı
Üye
- Katılım
- 27 May 2007
- Mesajlar
- 50
- Puanları
- 1
- Yaş
- 39
OPN DB [#idb]
LAR1 P##pAnySrc
L W#16#1002 //type = byte
T W [AR1,P#0.0]
L DBB 1 //length of string
T W [AR1,P#2.0]
L #idb //source db
T W [AR1,P#4.0]
L P#DBX 2.0 //string starts at byte 2
T D [AR1,P#6.0]
LAR1 P##pAnyDest
L W#16#1002 //type = byte
T W [AR1,P#0.0]
L DBB 1 //length of string
T W [AR1,P#2.0]
L 0 //db=0 for V area
T W [AR1,P#4.0]
L P##sString //pointer to start of string
L P#2.0 //ofset to string chars
+D
L DW#16#87000000 //convert to V area
OD
T D [AR1,P#6.0]
CALL SFC 20 //copy chars in string
SRCBLK :=#pAnySrc
RET_VAL:=MW100
DSTBLK :=#pAnyDest
L DBW 0 //copy max+actual string length
LAR1 P##sString
T W [AR1,P#0.0] //to temp
Üstte kodları yazılı bulunan bloğun görevi hakkında yorum yapabilecek,değerli forum yöneticilerinin ve bilgili forumdaşların düşüncelerini alabilirmiyim.
şimdiden teşekkür ederim...
LAR1 P##pAnySrc
L W#16#1002 //type = byte
T W [AR1,P#0.0]
L DBB 1 //length of string
T W [AR1,P#2.0]
L #idb //source db
T W [AR1,P#4.0]
L P#DBX 2.0 //string starts at byte 2
T D [AR1,P#6.0]
LAR1 P##pAnyDest
L W#16#1002 //type = byte
T W [AR1,P#0.0]
L DBB 1 //length of string
T W [AR1,P#2.0]
L 0 //db=0 for V area
T W [AR1,P#4.0]
L P##sString //pointer to start of string
L P#2.0 //ofset to string chars
+D
L DW#16#87000000 //convert to V area
OD
T D [AR1,P#6.0]
CALL SFC 20 //copy chars in string
SRCBLK :=#pAnySrc
RET_VAL:=MW100
DSTBLK :=#pAnyDest
L DBW 0 //copy max+actual string length
LAR1 P##sString
T W [AR1,P#0.0] //to temp
Üstte kodları yazılı bulunan bloğun görevi hakkında yorum yapabilecek,değerli forum yöneticilerinin ve bilgili forumdaşların düşüncelerini alabilirmiyim.
şimdiden teşekkür ederim...