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 >
Assembly Source File  |  1984-04-29  |  951b  |  42 lines
  1.  
  2.        TITLE  'PROC6'
  3.  
  4.        ORG    4300H
  5.  
  6. SENDM  EQU    863AH
  7. SENDQ  EQU    8649H
  8. WAIT   EQU    8747H
  9.  
  10. NM5:   DB     'PROC5 '
  11. NM8:   DB     'PROC8 '
  12.  
  13.  
  14. BEGIN: LXI    SP,42F0H      ; Set stack pointer
  15.        LXI    B,WTBLK
  16.        MVI    E,2
  17.        CALL   WAIT          ; Wait for message
  18.        HLT                  ; Check WTBLK
  19.  
  20.        LXI    B,0861H
  21.        LXI    D,NM8
  22.        CALL   SENDM         ; Send message to PROC8
  23.        LXI    B,0862H
  24.        LXI    D,NM8
  25.        CALL   SENDM         ; Send message to PROC8
  26.        LXI    B,QBLK1
  27.        LXI    D,NM8
  28.        CALL   SENDQ         ; Send question to PROC8
  29.        LXI    B,WTBLK
  30.        MVI    E,1
  31.        CALL   WAIT          ; Wait for question, but since there
  32.                             ; is none right now PROC7 will be
  33.                             ; scheduled
  34.        HLT
  35.  
  36. WTBLK: DS     10
  37.  
  38. QBLK1: DS     1
  39.        DB     63H,8H
  40.  
  41.        END    BEGIN
  42.