Code: Select all
;sk2nd detected
set2nd
bit Shift2nd,(IY+ShiftFlags)
jr z,res2nd
set Shift2nd,(IY+ShiftFlags)
ret
;
res2nd
res Shift2nd,(IY+ShiftFlags)
ret
;
;skalpha detected
;setalpha
bit ShiftAlpha,(IY+ShiftFlags)
jr z,resalpha
bit ShiftAlock,(IY+ShiftFlags)
jr z,resalpha
bit Shift2nd,(IY+ShiftFlags)
jr z,setalphalock
;
;resalpha
res ShiftAlpha,(IY+ShiftFlags)
res ShiftALock,(IY+ShiftFlags)
ret
;
;setalphalock
res Shift2nd,(IY+ShiftFlags)
set ShiftAlock,(IY+ShiftFlags)
ret