home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / fortran / palasm.lbr / RDRPUN.MQC / RDRPUN.MAC
Encoding:
Text File  |  1985-04-14  |  384 b   |  27 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. R
  27. BDOS    EQU