home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / develop / here / source / commsdemo.s
Text File  |  1995-02-27  |  568b  |  43 lines
  1.  
  2.     Section    Test,code
  3.     opt    o+,w-,d+    ;use write to disk for symbol list
  4.  
  5. COM    = 1    ;COMMS ON
  6. COMBIG    = 1    ;LARGE MEMORY MODEL
  7.  
  8.     output    ram:temp.exe
  9.  
  10.     *--------------------------------------------*
  11.  
  12. Start:    
  13.     IFNE    COM
  14.     jsr    InitComms        ;setup COMMS
  15.     ENDC
  16.  
  17. .loop    move.w    $dff000,$dff180
  18.  
  19.     IFNE    COM
  20.     jsr    Comms        ;test for RMB
  21.     ENDC
  22.     
  23.     btst    #6,$bfe001
  24.     bne    .loop
  25.     
  26.     IFNE    COM
  27.     jsr    KillComms        ;remove COMMS
  28.     ENDC
  29.     
  30.     moveq.l    #0,d0
  31. Exit:    rts
  32.  
  33.     *--------------------------------------------*
  34.  
  35.     IFNE COM
  36.     include    Comms/comms.i
  37.     ENDC
  38.     
  39.     *--------------------------------------------*
  40.  
  41.     end
  42.  
  43.