Lexicon MPX-1 - Page 24

4165 32A800
STA
DESTAD
4168 CO
RNZ
4169 3AA300
BUHP2:
LOA
STRTAD+l
416C 3C INR
A
416D 32A300
STA
STRTAD+1
4170 3AA900
LDA
OESTAD+1
4173 3C
INR
A
4174 32A900
STA
DESTAD+1
4177 CO
RNZ
4178 3AA400
LDA
STRTAD+2
417B 3C
INR
A
417C 32A400
STA
STRTAD+2
417F 3AAAOO
LOA
OESTAD+2
4182 3C
INR A
4183
32AAOO
STA
DESTAD+2
4186 C9
RET
;This subroutine has two entry points: CMPAR3 checks all three
;bytes of both STRTAD and ENDAD for equality. CMPAR2 checks
;on1y the upper two bytes. Returns with Z flag set if equal.
4187 3AA200
CMPAR3: LDA
STRTAD
418A 47
MOV B,A
418B 3AA500
LDA
ENDAD
418E B8
CMP B
418F CO
RNZ
4190 3AA300
CMPAR2:
LOA
STRTAD+1
4193 47
MOV
B,A
4194 3AA600
LDA
ENDAD+1
4197 B8
CMP B
4198
CO
RNZ
4199 3AA400
LDA STRTAD+2
419C 47
MOV
B.A
419D 3AA700
LIlA ENDAD+2
41AO B8
CMP B
41A1 C9
RET
;This subroutine reads a byte from external memory pointed to
;by STRTAD. The byte read returns in A.
41A2 CD2341
41A5 7E
41A6 C9
RDEXT: CALL
MOV
RET
PUTST
A,M
------ --~_~_~ ~_ L~