Piotrowski, Walt,

[God1989]

POP

BC

EX

(SP) ,IY

LD

A.MOD8

AND

C

LD

B, A

XOR

A

CCF

INC

B

FINDR: RLA

DJNZ

FINDR

CPL

AND

(IY)

LD

(IY) , A

RET

;

; PROCEDURE

Test (A : ]

;

TRUE EQU

00000001B

TEST: POP

HL

POP

BC

EX

(SP) ,HL

LD

IY , 0

ADD

I Y , SP

LD

A , MOD8

AND

C

LD

B, A

XOR

A

CCF

INC

B

FINDT: RLA

DJNZ

FINDT

AND

L

JP

Z, FALSE

LD

A, TRUE

FALSE: LD

( I Y+2 ) , A

RET

? PROCEDURE

ShiftLeft