home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / EPROM.ZIP / CHIPS.ASM next >
Encoding:
Assembly Source File  |  1990-04-16  |  386 b   |  24 lines
  1. DUART EQU $08001
  2. MR1A  EQU DUART + 0
  3. MR2A  EQU MR1A
  4. CRA   EQU DUART + 4
  5. CSRA  EQU DUART + 2
  6. SRA   EQU DUART + 2
  7. RBA   EQU DUART + 6
  8. TBA   EQU RBA
  9.  ORG $0
  10.  DC.L $4000
  11.  DC.L $4008
  12. START MOVE.B #$13,MR1A
  13.  MOVE.B #$07,MR2A
  14.  MOVE.B #$05,CRA
  15.  MOVE.B #$BB,CSRA
  16. POLLR BTST.B #0,SRA
  17.  BEQ POLLR
  18.  MOVE.B RBA,D0
  19. POLLT BTST.B #2,SRA
  20.  BEQ POLLT
  21.  MOVE.B D0,TBA
  22.  BRA POLLR
  23.  END
  24.