home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_09_1986_Transactor_Publishing.d64 / beep (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  756b  |  53 lines
  1. 0 rem beep (sept 1/85)                :
  2. 1 :
  3. 2 rem  1 statement, 0 functions
  4. 3 :
  5. 4 rem keyword characters: 4
  6. 5 :
  7. 6 rem keyword     routine  line   ser #
  8. 7 rem s/beep      bee      8966    133
  9. 8 :
  10. 9 rem =================================
  11. 10 :
  12. 137 .asc "bee[208]"
  13. 1137 .word bee-1
  14. 8966 bee beq bp1
  15. 8968 jsr $b79e
  16. 8970 inx
  17. 8972 .byte $2c
  18. 8974 bp1 ldx #1
  19. 8976 txa
  20. 8978 pha
  21. 8980 ldx #$21
  22. 8982 ldy #$87
  23. 8984 jsr $79
  24. 8986 beq bp2
  25. 8988 jsr $aefd
  26. 8990 jsr $ad8a
  27. 8992 jsr $b7f7
  28. 8994 tax
  29. 8996 bp2 sty $d40e
  30. 8998 stx $d40f
  31. 9000 ldx #0
  32. 9002 stx $d413
  33. 9004 stx $d417
  34. 9006 lda #$f0
  35. 9008 sta $d414
  36. 9010 lda #$0f
  37. 9012 sta $d418
  38. 9014 lda #$21
  39. 9016 sta $d412
  40. 9018 pla
  41. 9020 sec
  42. 9022 bp3 ldy #8
  43. 9024 bp4 dex
  44. 9026 bne bp4
  45. 9028 dey
  46. 9030 bne bp4
  47. 9032 sbc #1
  48. 9034 bne bp3
  49. 9036 lda #$20
  50. 9038 sta $d412
  51. 9040 rts
  52. 9042 ;
  53.