home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_05_1985_Transactor_Publishing.d64 / check & await (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  944b  |  47 lines
  1. 0 rem check & await (aug 25/84)       :
  2. 1 :
  3. 2 rem 0 statements, 2 functions
  4. 3 :
  5. 4 rem keyword characters: 12
  6. 5 :
  7. 6 rem keyword     routine  line   ser #
  8. 7 rem f/check(    check    2834    018
  9. 8 rem f/await(    await    2838    019
  10. 9 :
  11. 10 rem u/getter (2888/020)
  12. 11 :
  13. 12 rem ================================
  14. 13 :
  15. 602 .asc "check[168]await[168]"
  16. 1602 .word check-1,await-1
  17. 2834 check sec       
  18. 2836 .byte $24       
  19. 2838 await clc       
  20. 2840 php             
  21. 2842 jsr $aef4       
  22. 2844 jsr $b6a3       
  23. 2846 sta t3          
  24. 2848 plp             
  25. 2850 ror t4          
  26. 2852 aw1 jsr getter  
  27. 2854 bit t4          
  28. 2856 bmi aw2         
  29. 2858 tay             
  30. 2860 beq aw1         
  31. 2862 aw2 ldy #$ff    
  32. 2864 aw3 iny         
  33. 2866 cpy t3          
  34. 2868 beq aw4         
  35. 2870 cmp ($22),y     
  36. 2872 bne aw3
  37. 2874 beq aw5
  38. 2876 aw4 bit t4      
  39. 2878 bpl aw1         
  40. 2880 ldy #$ff        
  41. 2882 aw5 iny         
  42. 2884 jmp $b3a2       
  43. 2886 ;
  44. 2888 getter jsr $a82c 
  45. 2890 jmp $e124        
  46. 2892 ;
  47.