Download Print this page

IMS IMSAI 8080 User Manual page 571

Advertisement

0 5 5 2
F1N1 :
2 A 2 9 10
0 5 5 5
7C
0 5 5 6
B 5
0 5 5 7
CA670Q
0 5 5 A
CD 790 5
: .
f i x
0 5 5 D
EB
0 5 5 E
2 A 7 9 1 0
0 5 6 1
EB
0 5 6 2
3 E 0 9
0 5 6 ^
CD7B05
0 5 6 7
COA205
0 5 6 A
0 8
0 5 6
C8
b
0 56C
7E
F i 2 :
0 5 6 0 CD7B05
0 5 7 0
C 35A 0 5
;
WHEN SEARCHING THROUGH THE F I L E AR EA ,
;
CHECKS
)
F I L E
EOF :
0 5 7 3
23
0 5 7 9
3E 01
E O l :
0 5 7 6
BE
0 5 77 CO
0 5 7 8
C367QQ
/
ROUTINE
;
T H IS
;
CON TA INEO
0 5 7B
85
ADR :
6F
0 5 7 C
0 5 7 D
DO
0 5 7 E
29
0 5 7F
C9
ROUTINE W IL L . MOVE CHARACTER STRINGS
: T H IS
;
LO CA TIO N OF MEMORY TO ANOTHER
: CHARACTERS ARE MOVED FROM LOCATION ADDRESSED BY D , E
7 TO LOCAT ION ADDRESSED BY H , L .
;
ARE MOVED BY BUMPING POINTERS U N T I L
;
REG C I S F E T CH E D .
f
0 5 8 0
1A
LMOV :
0 5 8 1
13
0 5 8 2
B9
C8
0 5 8 3
0 5 8 9
77
0 5 8 5
23
0 5 8 6
C 3 8 0 0 5
;
T H I S
ROUTINE
;
CHARACTER
;
AND STORE
IA
RMOV ;
0 5 8 9
0 5 8A
IB
05 8B
B9
C8
0 5 8 C
0 5 8 D
77
0 5 8 E
23
05 8F C 3 89 0 5
BOFP
; B E G I N F I L E
LHCD
MOV
A , H
; RETURN TO MONITOR
ORA
L
;
F I L E
JZ
EOR
CAUL
E O l
; CHECK FOR ENO OF F I L E
XCHG
LHLD
ADOS
; FETCH F I N D
XCHG
MV I
A , 9
CALL
; BUMP L I N E ADDRESS
ADR
COMO
; COMPARE L I N E
CALL
RC
RZ
A ,M
MOV
; NEXT L I N E ADDRESS
CALL
AOR
F I I
UMP
TO SEE
I F
THE CURRENT ADDRESS
H
I NX
MV I
, A , 1
; E - O - F
CMP
M
RNZ
JMP
EOR
I S
USED TO ADO A VALUE TO AN ADDRESS
IN
R EGIS TE R H , L
ADD
L
L , A
MOV
RNC
INR
H
RET
LOAX
; FETCH CHARACTER
0
I NX
; INCREMENT FETCH AODRESS
0
CMP
; TERM INA T IO N CHARACTER
c
RZ
M, A
MOV
; STORE CHARACTER
INX
H
; INCREMENT STORE AODRESS
UMP
LMOV
I S
S I M I L AR TO ABOVE EXCEPT THAT THE
IS DECREMENTED AFTER EACH FETCH
a d d r e s s
LDAX
D
; FETCH CHARACTER
OCX
D
; DECREMENT FETCH AODRESS
CM P
C
; TE R M IN A T IO N CHARACTER
RZ
MOV
M, A
; STORE CHARACTER
DC X
h
^DECREMENT STORE ADDRESS
UMP
PMOV
ADORESS
I F
I S
E M P T Y . . .
ADDRESS
NUM8ERS
T H I S
ROUTINE
I S
THE ENO OF
IN D IC A T O R
FROM ONE
A D D I T I O N A L CHARACTERS
THE CHARACTER
IN
12
33

Advertisement

loading