Lexicon MPX-1 - Page 23

4110 3AB200
4113 320580
4116
3AB100
4119 320480
411C 3ABOOO
411F 6F
4120 26CO
4122 C9
PUTCMD: LDA
STA
LDA
S'IA
LDA
HOV
MVI
RET
CURRENT+2
DHAHI
CURRENT+1
DMALO
CURRENT
L,A
H,WINDOW
;This subroutine puts: STRTAD+2 into Dl~l, STRTAD+1.
;into DMALO, STRTAD into L reg and WINDOW into H
4123
3AA400
PUTST:
LDA
STRTAD+2
4126 320580
STA DMAHI
4129 3AA300 LDA
STRTAD+1
412C 320480 STA DMALO
412F 3AA200 LDA STRTAD
4132 6F
MOV
L,A
4133 26CO i1VI H,WINDOW
4135 C9
RET
;This subroutine puts: DESTAD+2 into DMAHI, DESTAD+1
;into DMALO, DESTAD into L reg and WINDOW into H
4136
3AAAOO
PUTDST:
LDA
DESTAD+2
4139 320580 STA DMAHI
413C 3AA900
LDA
DESTAD+1
413F 320480 STA DMALO
4142 3AA800
LDA
DESTAD
4145 6F
MOV L,A
4146 26CO
MVI
R,WINDOW
4148 C9
RET
;This subroutine gets 16 bytes from system memory pointed to
;by CURRENT and puts them into CMNDBUF.
4149 CD1041
GETC~1D: CALL
PUTCMD
;set
up
the registers
414C llAOOO
LXI
D,CMNDBUF
414F 0610
MVI
B,16
4151 7E
GETl:
MOV
A,M
;get
bus byte
4152 12
STAX
D ;put
in buffer
4153 23
INX
H.
4154 13
INX
D
4155 05
DCR
B
4156 C25141
JNZ GETl
4159 C9
RET
;This subroutine increments STRTAD (3 bytes) and DESTAD
;(3 bytes). Entry at BUMP2 bumps only the upper two bytes •
.
415A 3AA200
415D 3C
415E 32A200
4161 3AA800
4164 3C
Bill1P: LDA
INR
STA·
LDA
INR
STRTAD
A
STRTAD
DESTAD
A
24