home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_06_1985_Transactor_Publishing.d64 / within (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  91 lines
  1. 0 rem within (aug 25/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/within(   within   3698    028
  9. 8 :
  10. 9 rem u/pshfp1 (3270/063)
  11. 10 rem u/pul57 (3308/064)
  12. 11 :
  13. 12 rem ================================
  14. 13 :
  15. 607 .asc "within[168]"
  16. 1607 .word within-1
  17. 3270 pshfp1 lda #3
  18. 3272 jsr $a3fb
  19. 3274 pla
  20. 3276 sta $71
  21. 3278 pla
  22. 3280 sta $72
  23. 3282 jsr $bbca
  24. 3284 ldx #0
  25. 3286 phf1 lda $57,x
  26. 3288 pha
  27. 3290 inx
  28. 3292 cpx #5
  29. 3294 bne phf1
  30. 3296 phf2 lda $72
  31. 3298 pha
  32. 3300 lda $71
  33. 3302 pha
  34. 3304 rts
  35. 3306 ;
  36. 3308 pul57 pla
  37. 3310 sta $71
  38. 3312 pla
  39. 3314 sta $72
  40. 3316 ldx #4
  41. 3318 pl57 pla
  42. 3320 sta $57,x
  43. 3322 dex
  44. 3324 bpl pl57
  45. 3326 bmi phf2
  46. 3328 ;
  47. 3698 within jsr $ad8a
  48. 3700 jsr comtst
  49. 3702 php
  50. 3704 jsr comtst
  51. 3706 bcc wth1
  52. 3708 plp
  53. 3710 pha
  54. 3712 bcc wth1
  55. 3714 lda #$ff
  56. 3716 .byte $2c
  57. 3718 wth1 lda #0
  58. 3720 jsr $bc3c
  59. 3722 pla
  60. 3724 jmp $aef7
  61. 3726 ;
  62. 3728 comtst jsr pshfp1
  63. 3730 jsr $79
  64. 3732 pha
  65. 3734 jsr $73
  66. 3736 jsr $ad8a
  67. 3738 pla
  68. 3740 cmp #","
  69. 3742 beq ct1
  70. 3744 cmp #";"
  71. 3746 bne ct4
  72. 3748 clc
  73. 3750 .byte $24
  74. 3752 ct1 sec
  75. 3754 ror t3
  76. 3756 jsr pul57
  77. 3758 lda #$57
  78. 3760 ldy #0
  79. 3762 jsr $bc5b
  80. 3764 bmi ct3
  81. 3766 bit t3
  82. 3768 bpl ct2
  83. 3770 tax
  84. 3772 beq ct3
  85. 3774 ct2 sec
  86. 3776 rts
  87. 3778 ct3 clc
  88. 3780 rts
  89. 3782 ct4 jmp $af08
  90. 3784 ;
  91.