home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG015.ARK
/
PROC6.ASM
< prev
next >
Wrap
Assembly Source File
|
1984-04-29
|
951b
|
42 lines
TITLE 'PROC6'
ORG 4300H
SENDM EQU 863AH
SENDQ EQU 8649H
WAIT EQU 8747H
NM5: DB 'PROC5 '
NM8: DB 'PROC8 '
BEGIN: LXI SP,42F0H ; Set stack pointer
LXI B,WTBLK
MVI E,2
CALL WAIT ; Wait for message
HLT ; Check WTBLK
LXI B,0861H
LXI D,NM8
CALL SENDM ; Send message to PROC8
LXI B,0862H
LXI D,NM8
CALL SENDM ; Send message to PROC8
LXI B,QBLK1
LXI D,NM8
CALL SENDQ ; Send question to PROC8
LXI B,WTBLK
MVI E,1
CALL WAIT ; Wait for question, but since there
; is none right now PROC7 will be
; scheduled
HLT
WTBLK: DS 10
QBLK1: DS 1
DB 63H,8H
END BEGIN