OPN #scr_db //source DB

LAR1 P#DBX 0.0 //POINTER

L MB 10

SLD 3

+AR1 //search the first byte

L DBB [AR1,P#0.0]

L 255 //起始字符

==I

JCN sp2

L MB 10 //find the first byte

+ 1

T MB 10

JU r_mv



sp2: L MB 10

+ 1

T MB 10

BEU



r_mv: OPN #scr_db //move data

LAR1 P#DBX 0.0

L MB 10

SLD 3

+AR1

LAR2 P#M 100.0

L 15 //get 15 bytes



back: T #count

L B [AR1,P#0.0]

T B [AR2,P#0.0]



+AR1 P#1.0

+AR2 P#1.0

L #count

LOOP back

OPN #des_db //save to another DB

LAR1 P#DBX 0.0

LAR2 P#M 100.0

L 15

send: T #count



L B [AR2,P#0.0]

T B [AR1,P#0.0]

+AR1 P#1.0

+AR2 P#1.0

L #count

LOOP send



L 0 //next scan

T MB 10

BEU