home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_26_1988_Transactor_Publishing.d64 / calibrate (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  38 lines
  1. 100 rem  "calibrate"  for 64 or 128.
  2. 110 rem  connect user port pins 4, b & c.
  3. 120 rem  load "newmodem" object code at p1.
  4. 130 rem  for 128 mode, un-rem 230-250.
  5. 140 rem  adjust values in 210. run. * = error.
  6. 150 rem  run/stop restore to end trial.
  7. 160 rem  s = (1,2) mhz; dm = dma off(0), on(1).
  8. 170 rem
  9. 180 close2:open2,2,0,chr$(6)+chr$(0):ml=12288
  10. 190 fori=mltoml+116:reada:pokei,a:z=z+a:next
  11. 200 ifz<>15157thenprint"data error":close2:end
  12. 210 sb=459:fb=421:cn=418:tx=425:s=1:dm=1
  13. 220 ri=65212:bf=peek(250)*256:bo=665:p1=52736
  14. 230 rem ri=65331:bf=3328:bo=2582:p1=6656
  15. 240 rem slow:ifs=2thenfast:goto260
  16. 250 rem ifdm=0andpeek(215)thenpokeml+107,234
  17. 260 fori=bftobf+255:pokei,85:next:sysp1
  18. 270 a=p1+16+(tx/256and6):b=sb:gosub310
  19. 280 a=a+6:b=fb:gosub310:a=bo:b=tx:gosub310
  20. 290 a=251:b=cn:gosub310:a=598:b=ri:gosub310
  21. 300 pokep1+241,0:print#2,"u";:sysml
  22. 310 q=int(b/256):pokea+1,q:pokea,b-q*256:return
  23. 320 data 162,   2,  32, 198, 255,  32,  39,  48
  24. 330 data  32, 228, 255, 201,  85, 240, 249,  32
  25. 340 data 183, 255, 208, 244, 169,  42,  32, 210
  26. 350 data 255,  76,   8,  48, 169, 255, 141,  12
  27. 360 data 220, 173,  13, 220, 108,  86,   2, 120
  28. 370 data 166, 251, 164, 252, 169,   0, 141,  26
  29. 380 data 208, 141,  15, 220, 169, 127, 141,  13
  30. 390 data 220, 141,  25, 208, 142,   4, 220, 140
  31. 400 data   5, 220, 169,  81, 141,  14, 220, 160
  32. 410 data 255, 140,  12, 220, 162,   5, 173,  13
  33. 420 data 220,  41,   1, 240, 249, 202, 208, 246
  34. 430 data 140,  12, 220, 169,  28, 141,  20,   3
  35. 440 data 169,  48, 141,  21,   3, 169, 136, 141
  36. 450 data  13, 220,  88,  96, 173,  17, 208,  41
  37. 460 data 239, 141,  17, 208,  96
  38.