Advertisement
;
T H I S
S U B R O U T I N E
0 2 3 2
0 6 3 0
AHS 1 :
0 2 3 9 FEOA
0 2 3 6
03
0 2 3 7
0 6 0 7
0 2 3 9
C9
*
T H I S
ROUTINE CONVERTS A B IN A R Y VALUE TO A S C I I
;
HEXAOECIMAL ANO OUTPUTS THE CHARACTERS
0 2 3 A C D 8 6 0 2
HOUT:
0 2 3D 2 1 7 9 1 0
CHOT:
0 2 9 0
96
0 2 9 1
COO 3 01
0 2 9 9
23
0 2 9 5
96
0 2 9 6 CD 03 Q1
0 2 9 9 C9
;
T H I S
ROUTINE
;
BLANK AFTER
02 9A CD3A02
HOT3 :
0 2 9 0 CD 5 0 0 2
0 2 5 0
C9
r
;
T H I S
ROUTINE CONVERTS A BINARY VALUE TO A S C I I
DECIMA L D I G ! TS ANO OUTPUTS THE CHARACTERS TO THE TTY
;
C DA30 2
DOUT:
0 2 5 1
0 2 5 9 C D 3O 02
0 2 5 7
23
0 2 5 3
95
COO 3 01
0 2 5 9
Q25C C9
ROUTINE OUTPUTS A BLANK
;
T H I S
0 2 5 D
BLK1 :
0 6 2 0
0 2 5 F
COO 3 01
0 2 6 2
C9
}
T H I S
ROUTINE
;
THE STARTING ADDRESS
;
THE F I N A L ADDRESS
;
CARRY FLAG SET
;
BEEN REACHED •
0 2 6 3
2 A 8 A 1 0
ACHK :
0 2 6 6
3 A 8 D 1 0
BC
0 2 6 9
026A C 27 5 02
0 2 6D 3 A 8 C 1 0
0 2 7 0 BD
0 2 7 1
C 2 7 5 0 2
0 2 7 9
37
0 2 7 5
23
:
a c h i
0 2 7 5
2 2 8 A 1 0
0 2 7 9
C 9
C O N V E R T S
A S C I I
98
; ASC11 B IA S
SUI
; D IG I T
10
C P I
RC
; ALPHA BIAS
S U I
7
RET
BINH
; CONVERT VALUE
CALL
LX I
H,HCON
;CQNVERSION AREA
; FETCH OUTPUT CHARACTER
MOV
8 , M
OUT8
; OUTPUT CHARACTER
CALL
I NX
H
8 , M
; FETCH CHARACTER
MOV
CALL
OUT8
'
;OUTPU T CHARACTER
RET
DOES THE SAME AS ABOVE BUT OUTPUTS A
THE LAST CHARACTER
HOUT
;CONVERT AND OUTPUT
CALL
CALL
BLK1
; OUTPUT A BLANK
RET
CALL
BIND
; CONVERT VALUE
;OUT PUT VALUE
CALL
HOUT+3
I NX
H
;G E T LAST D I G I T
MOV
S,M
OUT8
;OUTPUT
CALL
RET
MV I
;G E T A BLANK
a , •
'
CALL
OUT8
RET
IS USED BY OTHER ROUTINES
I N A COMMANO AND COMPARE
THE COMMAND.
IN
I N D IC A T E S
THAT THE F I N A L ADORESS HAS
LHLD
BBUF
; FETCH START ADDRESS
LDA
3S UF+ 3
; STOP ADRE5S
H
CMP
; COMPARE ADORESSES
JNZ
ACHI
i
LDA
SBUF+2
S TOP ADORESS
CMP
;COMPARE ADORE5SES
L
JNZ
ACHI
STC
; SET CARRY
I NX
H
; INCREMENT START ADDRESS
SHLO
BBUF
; STORE START ADORESS
RET
H E X
D I G I T S
I N T O
B I N A R Y
0 - 1 0
TO THE
T T Y .
C2 D I G I T S )
TO INCREMENT
I T
WITH
ON RETURN,
THE
( H I G H )
CLOW)
I F
EQUAL
12 - 25
Advertisement
