home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_26_1988_Transactor_Publishing.d64 / calibrate.ml < prev    next >
Text File  |  2023-02-26  |  2KB  |  52 lines
  1. 8000  ;"calibrate.ml"
  2. 8010  *       =$3000         ;12288
  3. 8020  ml      ldx #$02       ;turn on port
  4. 8030          jsr $ffc6      ;(now nchkin)
  5. 8040          jsr setirq     ;set up "modem"
  6. 8050  getchr  jsr $ffe4      ;getin loop
  7. 8060          cmp #$55
  8. 8070          beq getchr     ;$55 is ok
  9. 8080          jsr $ffb7
  10. 8090          bne getchr     ;buffer empty ok
  11. 8100          lda #$2a       ;else print "*"
  12. 8110          jsr $ffd2
  13. 8120          jmp getchr
  14. 8130  irq     lda #$ff       ;output byte to
  15. 8140          sta $dc0c      ;  serial port
  16. 8150          lda $dc0d      ;clear irq
  17. 8160          jmp ($0256)    ;"ri" return
  18. 8170  setirq  sei
  19. 8180          ldx $fb        ;"cn" modem speed
  20. 8190          ldy $fc
  21. 8200          lda #$00
  22. 8210          sta $d01a      ;raster irq off
  23. 8220          sta $dc0f      ;stop timer b
  24. 8230          lda #$7f
  25. 8240          sta $dc0d      ;nmi disabled
  26. 8250          sta $d019      ;clr raster irq
  27. 8260          stx $dc04      ;cnt modem uses
  28. 8270          sty $dc05      ;  timer a
  29. 8280          lda #$51       ;serial=output,
  30. 8290          sta $dc0e      ;  timer a on
  31. 8300          ldy #$ff
  32. 8310          sty $dc0c      ;start 1st byte
  33. 8320          ldx #$05       ;wait a few bits
  34. 8330  again   lda $dc0d
  35. 8340          and #$01
  36. 8350          beq again
  37. 8360          dex
  38. 8370          bne again
  39. 8380          sty $dc0c      ;then 2nd byte
  40. 8390          lda #<irq      ;irq will keep
  41. 8400          sta $0314      ;  sp one byte
  42. 8410          lda #>irq      ;  ahead.
  43. 8420          sta $0315
  44. 8430          lda #$88       ;enable sp irq
  45. 8440          sta $dc0d
  46. 8450          cli
  47. 8460  blank   rts            ;or nop (ml+107)
  48. 8470          lda $d011      ;blank 40 screen
  49. 8480          and #$ef       ;(turns off dma)
  50. 8490          sta $d011
  51. 8500          rts            ;ml+116
  52.