home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol143 / rdrpun.mac < prev    next >
Encoding:
Text File  |  1984-04-29  |  345 b   |  26 lines
  1. ;    PROGRAM TO SEND CHARACTERS TO PUNCHER
  2. ;    AND RECIEVE FROM READER
  3. ;
  4. ;    PROGRAM MAY BE CALLED FROM FORTAN AS FOLLOWS
  5. ;
  6. ;    LOGICAL READER
  7. ;    LOGICAL N
  8. ;    EXTERNAL READER
  9. ;       .
  10. ;       .
  11. ;       .
  12. ;    CALL    PUNCH(N)
  13. ;    N=READER
  14.     GLOBAL    PUNCH,READER
  15. BDOS    EQU    0005H
  16. WPUN    EQU    4
  17. RRDR    EQU    3
  18. ;
  19. ;
  20. READER:    MVI    C,RRDR
  21.     JMP    BDOS
  22. PUNCH:    MVI    C,WPUN
  23.     MOV    E,M
  24.     JMP    BDOS
  25.     END
  26.