home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / flex2 / fl2ker.asm next >
Assembly Source File  |  2020-01-01  |  2KB  |  91 lines
  1. <<< flasi.m09 >>>
  2. *
  3. *  Interrupt handler preprocessor
  4. *
  5. nmivec         equ      $e80c
  6. *
  7. _irqprp:       jsr      _irqhdr
  8.                rti
  9. *
  10. _nmihdr:       jsr      _cleanup
  11.                jmp      [nmivec]
  12. *
  13. _setirq_on:    andcc    #%11101111
  14.                rts
  15. *
  16.                export   _irqprp
  17.                export   _nmihdr
  18.                export   _setirq_on
  19.                import   _cleanup
  20.                import   _irqhdr
  21. *
  22.                end
  23. <<< flasv.m09 >>>
  24. *
  25. *  Return status of input
  26. *
  27. *  D = 0 -> no character available
  28. *  D # 0 -> character available
  29. *
  30. status         equ      $cd4e
  31. *
  32.                loc      0
  33. *
  34. _constat:      jsr      status
  35.                tfr      cc,b
  36.                comb
  37.                andb     #%00000100
  38.                clra
  39.                rts
  40. *
  41.                export   _constat
  42. *              
  43.                end
  44. <<< flasvi.m09 >>>
  45. *
  46. *  Return status of input
  47. *
  48. *  D = 0 -> no character available
  49. *  D # 0 -> character available
  50. *
  51. status         equ      $cd4e
  52. *
  53.                loc      0
  54. *
  55. _constat:      jsr      status
  56.                tfr      cc,b
  57.                comb
  58.                andb     #%00000100
  59.                clra
  60.                rts
  61. *
  62. *  Interrupt handler preprocessor
  63. *
  64. maplt          equ      $ebfc
  65. nmivec         equ      $e80c
  66. *
  67.                loc      1
  68. *
  69. _irqprp:       lda      maplt
  70.                pshs     a
  71.                clr      maplt
  72.                jsr      _irqhdr
  73.                puls     a
  74.                sta      maplt
  75.                rti
  76. *
  77. _nmihdr:       jsr      _cleanup
  78.                jmp      [nmivec]
  79. *
  80. _setirq_on:    andcc    #%11101111
  81.                rts
  82. *
  83.                export   _constat
  84.                export   _irqprp
  85.                export   _nmihdr
  86.                export   _setirq_on
  87.                import   _cleanup
  88.                import   _irqhdr
  89. *
  90.                end
  91.