Changes
/* In Z80 Assembler */
<pre>
UnlockAsic
di
ld bc,#BCFF
out (c),c
out (c),c
ld a,h:rlca:ld h,l:ld l,a
srl c:res 3,cxor c:and #88or :xor c
ld c,a
cp #4D
jr nz,.loop
ld a,#CD ; a=#CD for unlock, another value for lock
out (c),a : out (c),a
ei
ret
</pre>
