home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_10_1986_Transactor_Publishing.d64 / random (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  74 lines
  1. 0 rem random (aug 24/84)              :
  2. 1 :
  3. 2 rem 0 statements,  1 function
  4. 3 :
  5. 4 rem keyword characters:  7
  6. 5 :
  7. 6 rem keyword     routine  line   ser #
  8. 7 rem f/random(   rndm     3216    027
  9. 8 :
  10. 9 rem u/pshfp1 (3270/063)
  11. 10 rem u/pul57 (3308/064)
  12. 11 :
  13. 12 rem ================================
  14. 13 :
  15. 605 .asc "random[168]"
  16. 1605 .word rndm-1
  17. 3216 rndm jsr $ad8a
  18. 3218 jsr $bccc
  19. 3220 jsr pshfp1
  20. 3222 jsr $aefd
  21. 3224 jsr $aef4
  22. 3226 jsr $bccc
  23. 3228 jsr $b849
  24. 3230 jsr $b849
  25. 3232 jsr pul57
  26. 3234 lda #$57
  27. 3236 ldy #0
  28. 3238 jsr $b850
  29. 3240 jsr $bc2b
  30. 3242 cmp #1
  31. 3244 beq rdm1
  32. 3246 jsr $bc58
  33. 3248 jsr $bbc7
  34. 3250 jsr $e0be
  35. 3252 lda #$5c
  36. 3254 ldy #0
  37. 3256 jsr $ba28
  38. 3258 lda #$57
  39. 3260 ldy #0
  40. 3262 jsr $b867
  41. 3264 jmp $bccc
  42. 3266 rdm1 jmp $b248
  43. 3268 ;
  44. 3270 pshfp1 lda #3
  45. 3272 jsr $a3fb
  46. 3274 pla
  47. 3276 sta $71
  48. 3278 pla
  49. 3280 sta $72
  50. 3282 jsr $bbca
  51. 3284 ldx #0
  52. 3286 phf1 lda $57,x
  53. 3288 pha
  54. 3290 inx
  55. 3292 cpx #5
  56. 3294 bne phf1
  57. 3296 phf2 lda $72
  58. 3298 pha
  59. 3300 lda $71
  60. 3302 pha
  61. 3304 rts
  62. 3306 ;
  63. 3308 pul57 pla
  64. 3310 sta $71
  65. 3312 pla
  66. 3314 sta $72
  67. 3316 ldx #4
  68. 3318 pl57 pla
  69. 3320 sta $57,x
  70. 3322 dex
  71. 3324 bpl pl57
  72. 3326 bmi phf2
  73. 3328 ;
  74.