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 / PROC7.ASM < prev    next >
Assembly Source File  |  1984-04-29  |  2KB  |  58 lines
  1.  
  2.        TITLE  'PROC7'
  3.  
  4.        ORG    4400H
  5.  
  6. REMOV  EQU    85F3H
  7. SENDM  EQU    863AH
  8. SENDQ  EQU    8649H
  9. SENDA  EQU    8661H
  10. WAIT   EQU    8747H
  11.  
  12. NM5:   DB     'PROC5 '
  13. NM8:   DB     'PROC8 '
  14.  
  15.  
  16. BEGIN: LXI    SP,43F0H      ; Set stack pointer
  17.        LXI    B,WTBLK
  18.        MVI    E,1
  19.        CALL   WAIT          ; Wait for first question from PROC5
  20.        HLT                  ; Check WTBLK - should be:
  21.                             ; 01 53 07 03 50 52 4F 43 35 20
  22.  
  23.        LXI    H,WTBLK+3
  24.        MOV    E,M
  25.        LXI    B,0175H
  26.        CALL   SENDA         ; Return answer to PROC5
  27.        LXI    B,WTBLK
  28.        MVI    E,1
  29.        CALL   WAIT          ; Wait for second question from PROC5
  30.        HLT                  ; Check WTBLK - should be:
  31.                             ; 01 54 07 04 50 52 4F 43 35 20
  32.  
  33.        LXI    H,WTBLK+3
  34.        MOV    E,M
  35.        LXI    B,0275H
  36.        CALL   SENDA         ; Return answer to PROC5
  37.        LXI    B,NM8
  38.        CALL   REMOV         ; Remove PROC8
  39.        LXI    B,0571H
  40.        LXI    D,NM5
  41.        CALL   SENDM         ; Send message to PROC5
  42.        LXI    B,QBLK1
  43.        LXI    D,NM5
  44.        CALL   SENDQ         ; Send question to PROC5
  45.        LXI    B,NM5
  46.        CALL   REMOV         ; Remove PROC5 (which is a permanent
  47.                             ; resident)
  48.        MVI    B,0
  49.        CALL   REMOV         ; This process is now removing itself
  50.        HLT
  51.  
  52. WTBLK: DS     10
  53.  
  54. QBLK1: DS     1
  55.        DB     72H,5H
  56.  
  57.        END    BEGIN