home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / SOURCE / PLOTVOIC.SRC.txt < prev    next >
Text File  |  2020-08-13  |  2KB  |  96 lines
  1. ; VOICE PLOTTER
  2. ;
  3. ; TAKES VOICE DATA FROM (6.7)-(8.9) AND PLOTS
  4. ; IT IN HIRES ON ALTERNATE LINES
  5. ;
  6. ;
  7. PTR      EQU       $06
  8. ENDPTR   EQU       $08
  9. ;
  10. SETCOLR  EQU       $F6EC
  11. HPLOT    EQU       $F457
  12. ;--------------------------------------
  13.          ORG       $0300
  14. ;
  15.          LDA       #$00
  16.          STA       XL
  17.          STA       XH
  18.          STA       YCOORD
  19.          LDA       PTR
  20.          STA       SAVEPTR
  21.          LDA       PTR+1
  22.          STA       SAVEPTR+1       
  23. ;
  24. LOOP     JSR       PLOTBYTE
  25.          INC       PTR
  26.          BNE       SKIP
  27.          INC       PTR+1
  28. SKIP     LDA       PTR+1
  29.          CMP       ENDPTR+1
  30.          BCC       LOOP
  31.          LDA       PTR
  32.          CMP       ENDPTR
  33.          BCC       LOOP
  34. ;
  35.          LDA       SAVEPTR
  36.          STA       PTR
  37.          LDA       SAVEPTR+1
  38.          STA       PTR+1
  39.          RTS
  40. ;
  41. SAVEPTR  DFB       $00,$00
  42. ;--------------------------------------
  43. PLOTBYTE LDY       #$00
  44.          LDA       (PTR),Y
  45. ;
  46.          LDX       #$08      ;8 BITS
  47. NEXTBIT  ROL       A
  48.          PHA
  49.          TXA
  50.          PHA
  51.          JSR       PLOTIT
  52.          JSR       ADVANCE
  53.          PLA
  54.          TAX
  55.          PLA
  56.          DEX
  57.          BNE       NEXTBIT
  58.          RTS
  59. ;------------------------------------------
  60. PLOTIT   LDX       #$00
  61.          BCC       BLACK
  62.          LDX       #$03      ;WHITE COLOR
  63. BLACK    JSR       SETCOLR
  64. ;
  65.          LDA       YCOORD
  66.          LDX       XL
  67.          LDY       XH
  68.          JSR       HPLOT
  69.          RTS
  70. ;
  71. YCOORD   DFB       $00
  72. XL       DFB       $00
  73. XH       DFB       $00
  74. ;------------------------------------------
  75. ADVANCE  INC       XL
  76.          BNE       CHKEND
  77.          INC       XH
  78. CHKEND   LDA       XH
  79.          CMP       #$1
  80.          BNE       NOPE
  81.          LDA       XL
  82.          CMP       #$17
  83.          BNE       NOPE
  84.          LDA       #$00
  85.          STA       XL
  86.          STA       XH
  87.          INC       YCOORD
  88.          INC       YCOORD
  89.          INC       YCOORD
  90.          LDA       YCOORD
  91.          CMP       #$A0
  92.          BCC       NOPE
  93.          LDA       #00
  94.          STA       YCOORD
  95. NOPE     RTS
  96.