User`s manual

ISIS-II 8080/8085 MACRO ASSEMBLER, Xl08 SDK85
PAGE
17
LOC OBJ
02E7
21FE20
02EA
7E
02EB
B7
02EC
F2F302
02EF
FE
02FO
C3E702
02F3 3680
02F5
F3
02F6
cg
02F7 37
02F8 3F
02F9 C9
02FA 37
o 2FB C9
SEQ
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
91 1
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
;
SOURCE STATEMENT
THE BUFFER CONTAINS A CHARACTER, THE FUNCTION FLAGS
THE BUFFER AS EMPTY AND RETURNS THE CHARACTER
AS OUTPUT.
RDKBD:
LXI
MOV
ORA
JP
EI
JHP
RDK10:
MVI
DI
RET
H,IBUFF ; GET INPUT EUFFER ADDRESS
A,M ; GET BUFFER CONTENTS
; HIGH ORDER EIT = 1 MEANS BUFFER IS EMPTY
A ; IS A CHARACTER AVAILABLE?
RDK10 ; YES - EXIT FROM LOOP
; NO - READY FOR CHARACTER FROM KEYEOARD
RDKBD
M,EMPTY SET BUFFER EMPTY FLAG
RETURN WITH INTERRUPTS DISABLED
,
.**********************************************************************
,
FUNCTION: RETF
INPUTS: NONE
OUTPUTS: CARRY
CALLS: NOTHING
DESTROYS: CARRY
RETURN FALSE
o (FALSE)
DESCRIPTION:
RETF IS JUMPED TO BY FUNCTIONS WISHING TO RETURN FALSE.
RETF RESETS CARRY TO 0 AND RETURNS TO THE CALLER OF
THE ROUTINE INVOKING RETF.
RETF:
STC
CMC
RET
SET CARRY TRUE
COMPLEMENT CARRY TO MAKE IT FALSE
,
.**********************************************************************
,
FUNCTION: RETT
INPUTS: NONE
OUTPUTS: CARRY
CALLS: NOTHING
DESTROYS: CARRY
RETURN TRUE
1 (TRUE)
DESCRIPTION:
RETT IS JUMPED TO BY ROUTINES WISHING TO RETURN TRUE.
RETT:
STC
RET
RETT SETS CARRY TO 1 AND RETURNS TO THE CALLER OF
THE ROUTINE INVOKING RETT.
SET CARRY TRUE
,
.********************************************************************** ,
FUNCTION: RGLOC - GET REGISTER SAVE LOCATION
INPUTS: NONE
OUTPUTS: HL - REGISTER SAVE LOCATION
CALLS: NOTHING
DESTROYS: B,C,H,L,F/F'S