home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_08_1985_Transactor_Publishing.d64 / labels (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  154 lines
  1. 0 rem labels (j. gillaspie 3/85)      :
  2. 1 :
  3. 2 rem 5 statements, 0 functions
  4. 3 :
  5. 4 rem keyword characters: 24
  6. 5 :
  7. 6 rem keyword     routine  line   ser #
  8. 7 rem l.          ='data'  $adf8   073
  9. 8 rem lgoto       lgot     5924    074
  10. 9 rem lgosub      lgosu    5870    075
  11. 10 rem sgoto      sgot     5920    076
  12. 11 rem sgosub     sgosu    5866    077
  13. 12 :
  14. 13 rem ================================
  15. 14 :
  16. 120 .byte $4c,$ae: .asc "lgot[207]lgosu[194]"
  17. 121 .asc "sgot[207]sgosu[194]"
  18. 1120 .word $a8f7,l(NULL)t-1,l(NULL)su-1
  19. 1121 .word s(NULL)t-1,s(NULL)su-1
  20. 5866 s(NULL)su sec
  21. 5868 .byte $24
  22. 5870 l(NULL)su clc
  23. 5872 ror t6       
  24. 5874 lda #$ff     
  25. 5876 sta t5
  26. 5878 lda #3       
  27. 5880 jsr $a3fb    
  28. 5882 lda $7b      
  29. 5884 pha
  30. 5886 lda $7a
  31. 5888 pha
  32. 5890 bit t6       
  33. 5892 bpl l(NULL)s1
  34. 5894 jsr sgstr    
  35. 5896 l(NULL)s1 lda $3a  
  36. 5898 pha
  37. 5900 lda $39
  38. 5902 pha
  39. 5904 lda #$8d       
  40. 5906 pha
  41. 5908 jsr $79
  42. 5910 dey         
  43. 5912 dey         
  44. 5914 jsr l(NULL)t1   
  45. 5916 jmp $a7ae   
  46. 5918 ;
  47. 5920 s(NULL)t sec
  48. 5922 .byte $24
  49. 5924 l(NULL)t clc
  50. 5926 ror t6      
  51. 5928 lda #$ff    
  52. 5930 sta t5
  53. 5932 bit t6      
  54. 5934 bpl l(NULL)t1
  55. 5936 jsr sgstr   
  56. 5938 l(NULL)t1 dey   
  57. 5940 dey         
  58. 5942 tya         
  59. 5944 lsr         
  60. 5946 ora #$40
  61. 5948 sta t4
  62. 5950 cmp #$5d
  63. 5952 bcc l(NULL)t2
  64. 5954 inc t4
  65. 5956 l(NULL)t2 lda $7a  
  66. 5958 sta t2
  67. 5960 lda $7b
  68. 5962 sta t3
  69. 5964 lda $2b     
  70. 5966 ldx $2c
  71. 5968 ldy #1      
  72. 5970 l(NULL)t3 sta $5f  
  73. 5972 stx $60        
  74. 5974 lda ($5f),y 
  75. 5976 beq l(NULL)t10  
  76. 5978 ldy #4      
  77. 5980 lda ($5f),y 
  78. 5982 cmp #$5f    
  79. 5984 bne l(NULL)t9   
  80. 5986 iny         
  81. 5988 lda ($5f),y 
  82. 5990 cmp t4      
  83. 5992 bne l(NULL)t9   
  84. 5994 l(NULL)t4 iny   
  85. 5996 lda ($5f),y
  86. 5998 cmp #$20
  87. 6000 beq l(NULL)t4
  88. 6002 ldx t5      
  89. 6004 jsr $79     
  90. 6006 l(NULL)t5 cmp ($5f),y
  91. 6008 bne l(NULL)t9   
  92. 6010 iny         
  93. 6012 dex
  94. 6014 beq l(NULL)t6
  95. 6016 jsr $73
  96. 6018 bne l(NULL)t5   
  97. 6020 l(NULL)t6 lda ($5f),y
  98. 6022 beq l(NULL)t7      
  99. 6024 iny
  100. 6026 cmp #$20       
  101. 6028 beq l(NULL)t6
  102. 6030 dey
  103. 6032 cmp #":"       
  104. 6034 bne l(NULL)t9      
  105. 6036 l(NULL)t7 ldy #2: lda ($5f),y: sta $39
  106. 6037 iny: lda ($5f),y: sta $3a: lda $5f
  107. 6038 ldx $60
  108. 6040 clc
  109. 6042 adc #4         
  110. 6044 bcc l(NULL)t8
  111. 6046 inx
  112. 6048 l(NULL)t8 sta $7a
  113. 6050 stx $7b
  114. 6052 jmp $a8f8    
  115. 6054 l(NULL)t9 lda t2 
  116. 6056 sta $7a      
  117. 6058 lda t3
  118. 6060 sta $7b
  119. 6062 ldy #1       
  120. 6064 lda ($5f),y  
  121. 6066 tax
  122. 6068 dey
  123. 6070 lda ($5f),y   
  124. 6072 iny
  125. 6074 bne l(NULL)t3     
  126. 6076 l(NULL)t10 bit t6 
  127. 6078 bpl l(NULL)t11    
  128. 6080 clc           
  129. 6082 ror t6
  130. 6084 lda #<trpstr  
  131. 6086 ldy #>trpstr
  132. 6088 sta $7a
  133. 6090 sty $7b
  134. 6092 ldy #6
  135. 6094 sty t5
  136. 6096 jmp l(NULL)t2
  137. 6098 l(NULL)t11 jmp $a8e3 
  138. 6100 trpstr .asc "dfault"
  139. 6102 sgstr sty $14 
  140. 6104 jsr $ad9e    
  141. 6106 jsr $b6a3    
  142. 6108 sta t5       
  143. 6110 stx $7a      
  144. 6112 sty $7b      
  145. 6114 ldy $14      
  146. 6116 dey          
  147. 6118 dey          
  148. 6120 dey
  149. 6122 dey
  150. 6124 sec          
  151. 6126 ror t6
  152. 6128 rts
  153. 6130 ;
  154.