home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
ZSYS
/
SIMTEL20
/
SYSLIB
/
SLIB3.LBR
/
SMTH06.Z80
< prev
next >
Wrap
Text File
|
2000-06-30
|
512b
|
32 lines
;
; SYSLIB Module Name: SMTH06
; Author: Richard Conn
; SYSLIB Version Number: 3.6
; Module Version Number: 1.1
public shftrh
;
; SHFTRH -- SHIFT RIGHT HL 1 BIT POSITION
; CARRY CONTAINS LSB
;
SHFTRH:
PUSH AF
AND A ; CLEAR CARRY
LD A,H ; SHIFT HIGH
RRA ; ROTATE 9-BIT ACC RIGHT
LD H,A
LD A,L ; SHIFT LOW
RRA
LD L,A
JP NC,OKRET
POP AF ; GET PSW
SCF ; SET CARRY
RET
OKRET:
POP AF
OR A ; CLEAR CARRY
RET
END