home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / sys / cbm / 4585 < prev    next >
Encoding:
Text File  |  1992-11-17  |  2.0 KB  |  68 lines
  1. Newsgroups: comp.sys.cbm
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!usc!cs.utexas.edu!qt.cs.utexas.edu!yale.edu!ira.uka.de!rz.uni-karlsruhe.de!stepsun.uni-kl.de!sun.rhrk.uni-kl.de!zx1!uet019
  3. From: uet019@zx1.Darkcrystal.Cyberspace (Oliver B. Warzecha)
  4. Subject: Re: Strange bug/problem...
  5. Message-ID: <1992Nov17.112541.13329@rhrk.uni-kl.de>
  6. Sender: news@rhrk.uni-kl.de
  7. Reply-To: uet019@zx1.hrz.uni-dortmund.de
  8. Organization: University of Dortmund, Germany
  9. X-Newsreader: TIN [version 1.1 PL6]
  10. References: <1992Nov16.014957.1@kosmos.wcc.govt.nz>
  11. Date: Tue, 17 Nov 1992 11:25:41 GMT
  12. Lines: 54
  13.  
  14. mcmillan_a@kosmos.wcc.govt.nz wrote:
  15. : Help! Does anyone know why the following program does NOT work properly on a
  16. : C-128, but is fine on a C-64 or Plus/4? (All using the same 1571 disk drive.)
  17. : 
  18. : 10 open5,9,5,"source,s,r"
  19. : 20 open6,9,6,"newfile,s,w"
  20. : 30 sys4864
  21. : 40 close5:close6:end
  22. : 
  23. : . 1300  a2 05    ldx #$05
  24. : . 1302  20 c6 ff jsr $ffc6  CHKIN ;aha
  25. : . 1305  20 e4 ff jsr $ffe4  GETIN 
  26. : . 1308  a6 90    ldx $90   STATUS
  27. : . 130a  86 02    stx $02
  28. : . 130c  48       pha 
  29. : . 130d  a2 06    ldx #$06
  30. : . 130f  20 c9 ff jsr $ffc9  CKOUT ;? what if loop runs 2nd time
  31. : . 1312  68       pla 
  32. : . 1313  20 d2 ff jsr $ffd2  BSOUT
  33. : . 1316  a6 02    ldx $02
  34. : . 1318  f0 e6    beq $1300
  35. : . 131a  20 cc ff jsr $ffcc  CLRCH ;kind of late after all this CHKIN
  36. : . 131d  60       rts              ;and CHKOUT
  37. : 
  38. : Any solution much appreciated.
  39. : 
  40. : Cheers - Kirk
  41. : 
  42. Hmmm... perhaps the 128 handles I/O-channels better than the 64 or +4. As
  43. you can read in my comments above there seems to be a little too many CHKIN
  44. and CHKOUT before the I/O-channels are cleared. My suggestion: Use the
  45. following:
  46.  
  47.     ldx #$05
  48.     jsr CHKIN
  49.     ldx #$06
  50.     jsr CHKOUT
  51. loop    jsr GETIN
  52.     ldx $90
  53.     jsr CHROUT 
  54.     txa
  55.     beq loop
  56.     jsr CLRCHN
  57.     rts
  58.  
  59. If this doesn't work either ,I have no idea what to do...
  60.  
  61. OBW
  62. uet019@zx1.hrz.uni-dortmund.de
  63.  
  64. "No flag or uniform ever stopped the bullet of a gun" 
  65. Out in the fields - Moore/Lynott
  66. "Endings are just beginnings"
  67. Amarok - Mike Oldfield
  68.