home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol180 / mod68-13.lbr / MOD68-9.TQT / MOD68-9.TXT
Encoding:
Text File  |  1985-02-10  |  384 b   |  17 lines
  1.  
  2. **** CANCEL FILE SEND OR RECEIVE ****
  3. cancel lda b #1 set 1 second wait for sender to stop
  4.  jsr timout
  5.  tst fflag anything from line?
  6.  beq can1 no - cancel filesend
  7.  jsr modin get char
  8.  bra cancel throw it away
  9. can1 lda b #3 send 3 CANs
  10.  lda a #can cancel
  11. can2 psh b
  12.  jsr txchr
  13.  pul b
  14.  dec b
  15.  bne can2
  16.  rts
  17. #"ê╫═L█╨▐═∩╫<╠Γ┌├ë▐ALL (Y/N)?═J┘┬⌡╪═L█═╨╫╩ƒ▄═ÿ╫!⌠▐6 !⌠▐~■