Advertisement
0 2 7 A
0 2 7 8
0 2 7 D B8
0 2 7 E
0 2 7 F ,CD0 3 0 1
0 2 8 2
0 2 8 3
0 2 3 6
0 2 8 9
0 2 8 A
02 3B
0 2 8 C
0 2 8 D
02 8 E C D 9 9 0 2
0 2 9 1
0 2 9 2
0 2 9 3
0 29 9 C D 9 9 0 2
0 29 7 77
0 29 8 C9
0 2 9 9
029B
0 2 9 0 FE 3A
0 2 9 F
0 2AQ C 6 0 7
02A2
02A3
02 A6
0 2A8
02 A8
02AO C D 8 9 0 2
0 2 8 0
0 28 2
02B3
02 B 9
0 2 8 6
02 B7
02B8
0 2 8 8
028C
02BD C 9
02 3 E
02C2
2 6
12 -
;
T H IS
ROU TIN E OUTPUTS CHARACTERS OF A S T R IN G
; U N T I L A CARRIAGE RETURN
:
MOV
s c r n
MVI
3EOO
CMP
C8
RZ
CALL
23
I NX
C 3 7 A 0 2
UM P
) i
i
T H IS
ROU TIN E CONVERTS
}
ASCI I
HEXADECIMAL D I G I T S ANO STORES THEM I N MEMORY.
}
2 1 7 9 1 0
:
8
LX I
i n h
97
MOV
I F
RAR
I F
RAR
I F
RAR
I F
RAR
CALL
77
MOV
INX
23
73
MOV
CALL
MOV
RET
F
i
T H IS
ROU TIN E CONVERTS A VALUE TO HEXADECIMAL
E 60F
:
AN I
b i n i
C 630
AD I
C P I
RC
D8
A D I
RET
C9
}
T H IS
ROU TIN E CONVERTS
A S C I I
DECIMAL
/
B I N D :
L X I
2 1 7 9 1 0
0 6 6 9
M V I
CDB902.
CALL
0 6 0A
M V I
CALL
C 6 30
AD I
77
MOV
RET
C9
/
}
R O U TIN E CONVERTS A VALUE TO OECIMAL
T H IS
3 6 2F
B I D 1 :
M V I
3 9
IN R
90
SU 8
D 2B 60 2
UNC
80
ADD
IN X
23
RET
}
} /
LEGAL COMMAND TABLE
9 9 5 5 9 0 5 0
DB
08 03
DW
I S FOUND.
B , M
; FETCH CHARACTER
A , 13
; CARRIAGE RETURN
B
; CHARACTER = CR?
OUT8
^OUTPUT CHARACTER
H
; INCREMENT ADDRESS
SCRN
THE BINARY VALUE
H.HCON
K O N V E R S I O N
; SAVE VALUE
3 , A
B I N I
M, A
H
A , B
B I N I
^CONVERT TO A S C I I
M ,A
0FH
;LOW 9 B I T S
98
; CONVERT TO A S C I I
58
; D I G I T
0 - 9
; M O D IF Y FOR A - F
7
THE BINARY VALUE
D I G I T S
ANO STORES THEM IN MEMORY
H , HCON
K O N V E R S I O N AOORESS
3 , 100
}
B I D l
CONVERT HUNDREDS D I G I T
3 , 1 0
BI D l
K O N V E R T
TENS D I G I T
; G c T U N IT S D I G I T
' 0 '
M, A
; STORE
IN MEMORY
I N I T I A L I Z E
D I G I T
M , ' 0 ' - l
j
M
3
jC H E CK D I G I T
B I D l + 2
B
; RESTORE VALUE
H
1 DUMP'
; DUMP COMMAND
DUMP
: COMMAND ADDRESS
\
I N
REG A IN TO
I N
REG A IN T O
COUNT
Advertisement
