home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / emulator / cpm / emuio.s < prev    next >
Encoding:
Text File  |  1985-11-19  |  2.0 KB  |  128 lines
  1. *****************************************************************
  2. *                                *
  3. *    >>>>>> s o f t d e s i g n <<<<<<            *
  4. *                                *
  5. *    c p / m - z 8 0   e m u l a t o r            *
  6. *                                *
  7. *    z 8 0   i / o   o p c o d e   s u p p o r t        *
  8. *                                *
  9. *    25.11.85                        *
  10. *                                *
  11. *    configured to access atari 520 st modem port        *
  12. *                                *
  13. *****************************************************************
  14.  
  15.  
  16. * input parameters:
  17. * z80 port address     : d0.b
  18. * z80 port output data : d1.b
  19.  
  20. * return parameter: 
  21. * z80 port input data  : d0.b
  22.  
  23.  
  24.  
  25.     .TEXT
  26.  
  27.  
  28. EMUIO:    JMP    INPUT
  29.     JMP    OUTPUT
  30.  
  31.  
  32. INPUT:    LEA.L    INPTAB(PC),A0
  33.     AND.W    #$000F,D0
  34.     ADD.W    D0,D0
  35.     MOVE.W    (A0,D0.W),D0
  36.     JMP    0(A0,D0.W)
  37.  
  38.  
  39. OUTPUT:    LEA.L    OUTTAB(PC),A0
  40.     AND.W    #$000F,D0
  41.     ADD.W    D0,D0
  42.     MOVE.W    (A0,D0.W),D0
  43.     JMP    0(A0,D0.W)
  44.  
  45.  
  46.  
  47. INPTAB:    .DC.W    INP00-INPTAB,INP01-INPTAB,INP02-INPTAB,INP03-INPTAB
  48.     .DC.W    INP04-INPTAB,INP05-INPTAB,INP06-INPTAB,INP07-INPTAB
  49.     .DC.W    INP08-INPTAB,INP09-INPTAB,INP0A-INPTAB,INP0B-INPTAB
  50.     .DC.W    INP0C-INPTAB,INP0D-INPTAB,INP0E-INPTAB,INP0F-INPTAB
  51.  
  52.  
  53. OUTTAB:    .DC.W    OUT00-OUTTAB,OUT01-OUTTAB,OUT02-OUTTAB,OUT03-OUTTAB
  54.     .DC.W    OUT04-OUTTAB,OUT05-OUTTAB,OUT06-OUTTAB,OUT07-OUTTAB
  55.     .DC.W    OUT08-OUTTAB,OUT09-OUTTAB,OUT0A-OUTTAB,OUT0B-OUTTAB
  56.     .DC.W    OUT0C-OUTTAB,OUT0D-OUTTAB,OUT0E-OUTTAB,OUT0F-OUTTAB
  57.  
  58.  
  59.  
  60. INP00:
  61. INP01:
  62. INP02:
  63. INP03:    RTS
  64.  
  65.  
  66. INP04:    MOVE.W    #1,-(A7)        modem port input status
  67.     MOVE.W    #1,-(A7)
  68.     TRAP    #13
  69.     ADDQ.L    #4,A7
  70.     RTS
  71.  
  72.  
  73. INP05:    MOVE.W    #1,-(A7)        modem port output status
  74.     MOVE.W    #8,-(A7)
  75.     TRAP    #13
  76.     ADDQ.L    #4,A7
  77.     RTS
  78.  
  79.  
  80. INP06:    MOVE.W    #1,-(A7)        modem port data input
  81.     MOVE.W    #2,-(A7)
  82.     TRAP    #13
  83.     ADDQ.L    #4,A7
  84.     RTS
  85.  
  86.  
  87. INP07:
  88. INP08:
  89. INP09:
  90. INP0A:
  91. INP0B:
  92. INP0C:
  93. INP0D:
  94. INP0E:
  95. INP0F:    RTS
  96.  
  97.  
  98.  
  99. OUT00:    
  100. OUT01:
  101. OUT02:
  102. OUT03:    RTS
  103.  
  104.  
  105. OUT04:    AND.W    #$00FF,D1        modem port data output
  106.     MOVE.W    D1,-(A7)
  107.     MOVE.W    #1,-(A7)
  108.     MOVE.W    #3,-(A7)
  109.     TRAP    #13
  110.     ADDQ.L    #6,A7
  111.     RTS
  112.  
  113.  
  114. OUT05:
  115. OUT06:
  116. OUT07:
  117. OUT08:
  118. OUT09:
  119. OUT0A:
  120. OUT0B:
  121. OUT0C:
  122. OUT0D:
  123. OUT0E:
  124. OUT0F:    RTS
  125.  
  126.  
  127.     .END
  128. ə