home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / german / disk.s < prev    next >
Text File  |  1995-03-17  |  242b  |  21 lines
  1. w1:    move.b #%11101010,$bfd100
  2.     move.b #%11101011,$bfd100
  3. w2:    move.b $bfd100,d0
  4.     bge w2
  5.     btst #4,$bfe001
  6.     beq t0
  7. t1:    btst #13,$dff01e
  8.     bne t1
  9.     jsr pause
  10.     jmp w1
  11.  
  12. pause:    move.l #5000,d0
  13. p1:    dbf d0,p1
  14.     rts
  15.  
  16. t0:
  17.     move.b #1,t
  18.     illegal
  19.  
  20. t:    dc.b 0
  21.