home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 72 / 072.d81 / doxref.pal (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  239 lines
  1. 10 open2,8,1,"@:doxref"
  2. 20 sys700
  3. 30 .opt o2
  4. 40 ;
  5. 50 eoflst =$ae
  6. 60 soflst =$2000
  7. 70 bbuf   =$0809
  8. 80 *=$334
  9. 90 xsptr *=*+2
  10. 100 lasta *=*+2
  11. 110 *=$fb
  12. 120 cxptr *=*+2
  13. 130 sptr  *=*+2
  14. 140 ;
  15. 150 .bas
  16. 160 b$="               ":rem *** don't        change this line
  17. 170 ifl=1then240
  18. 180 print""chr$(14)
  19. 190 print"[212]he [195]ross [210]eference [199]enerator"
  20. 200 print:print"(c) 1985 [194]y [212]. [195]zarnecki
  21. 210 [153]:[153]"atnll (NULL)ights (NULL)eserved"
  22. 220 [153]"left$ard lenopy ? ycmdcmdcmd";:[133]p$
  23. 230 l[178]1:[147]"x-ref.tsg",8,1
  24. 240 [153]""
  25. 250 [139][200](p$,1)[178]"y"[167]p[178]1
  26. 260 [139][200](p$,1)[178]"f"[167]p[178]2
  27. 270 [139]p[167][159]4,4,7
  28. 280 [158]"start"
  29. 290 [139][200](b$,1)[178]"*"[167]490
  30. 300 [139][200](b$,1)[179][177]" "[167]340
  31. 310 [153]:[153][202](b$,2,15);" ";
  32. 320 [139]p[167][141]450:[152]4," "[202](b$,2,15);" ";
  33. 330 c[178]0:d[178]0:[137]280
  34. 340 c[178]c[170]1:[139]c[179]6[167]370
  35. 350 [153]"               ";
  36. 360 c[178]1
  37. 370 d[178]d[170]1:[139]d[179]11[167]400
  38. 380 [139]p[167][141]450:[152]4,"                ";
  39. 390 d[178]1
  40. 400 [153]" "[200](b$,4);
  41. 410 [139]p[167][152]4," "[200](b$,4);
  42. 420 [161]a$:[139]a$[178]""[167]280
  43. 430 [161]a$:[139]a$[178]""[167]430
  44. 440 [137]280
  45. 450 i[178]1:[139]p[178]1[167]470
  46. 460 f[178]f[170]1:[139]f[177]66[171]7[167]i[178]7:f[178]0
  47. 470 [129]t[178]1[164]i:[152]4," ":[130]
  48. 480 [142]
  49. 490 [139]p[167]i[178]7:[141]470
  50. 500 [128]
  51. 510 ;
  52. 520 start  [178][172]
  53. 530 [174] sei
  54. 540 [174] lda #$36
  55. 550 [174] sta $01
  56. 560 fjump  [178][172]
  57. 570 .byt $2c
  58. 580 .w[176] vst0
  59. 590 [174] lda #$4c
  60. 600 [174] sta fjump
  61. 610 [174] lda #[177]soflst
  62. 620 [174] sta sptr[170]1
  63. 630 [174] lda #[179]soflst
  64. 640 [174] sta sptr
  65. 650 [174] ldy #$04
  66. 660 [174] lda (sptr),y
  67. 670 [174] beq rst0
  68. 680 lst0   [178][172]
  69. 690 [174] jsr gnsym
  70. 700 [174] bne lst0
  71. 710 [174] lda sptr
  72. 720 [174] sta xsptr
  73. 730 [174] lda sptr[170]1
  74. 740 [174] sta xsptr[170]1
  75. 750 [174] lda #[177]soflst
  76. 760 [174] sta sptr[170]1
  77. 770 [174] lda #[179]soflst
  78. 780 [174] sta sptr
  79. 790 [174] jmp cst0
  80. 800 vst0   [178][172]
  81. 810 [174] jsr gnxref
  82. 820 [174] beq cst1
  83. 830 [174] jsr gnsym
  84. 840 [174] beq rst0
  85. 850 cst0   [178][172]
  86. 860 [174] jsr m[164]bb
  87. 870 [174] ldx #11
  88. 880 [174] lda #"$
  89. 890 ^ sta bbuf-1,x
  90. 900 ^ ldy #3
  91. 910 ^ lda (sptr),y
  92. 920 ^ jsr bythex
  93. 930 ^ dey
  94. 940 ^ lda (sptr),y
  95. 950 ^ jsr bythex
  96. 960 ^ lda xsptr
  97. 970 ^ sta cxptr
  98. 980 ^ lda xsptr+1
  99. 990 ^ sta cxptr+1
  100. 1000 ^ jmp rset
  101. 1010 cst1   =*
  102. 1020 ^ jsr fillbb
  103. 1030 ^ ldx #0
  104. 1040 ^ ldy #3
  105. 1050 ^ lda (cxptr),y
  106. 1060 ^ jsr bythex
  107. 1070 ^ dey
  108. 1080 ^ lda (cxptr),y
  109. 1090 ^ jsr bythex
  110. 1100 ^ jmp rset
  111. 1110 rst0   =*
  112. 1120 ^ lda #"*
  113. 1130 [174] sta bbuf
  114. 1140 [174] lda #$2c
  115. 1150 [174] sta fjump
  116. 1160 rset  [178][172]
  117. 1170 [174] lda #$37
  118. 1180 [174] sta $01
  119. 1190 [174] cli
  120. 1200 [174] rts
  121. 1210 ;
  122. 1220 ; move symbol [164] build buffer
  123. 1230 ;
  124. 1240 m[164]bb  [178][172]
  125. 1250 [174] jsr fillbb
  126. 1260 [174] ldy #4
  127. 1270 lmb0   [178][172]
  128. 1280 [174] lda (sptr),y
  129. 1290 [174] beq rmb0
  130. 1300 [174] sta bbuf[171]3,y
  131. 1310 [174] iny
  132. 1320 [174] bne lmb0
  133. 1330 rmb0   [178][172]
  134. 1340 [174] rts
  135. 1350 ;
  136. 1360 ;
  137. 1370 fillbb [178][172]
  138. 1380 [174] ldy #$0d
  139. 1390 [174] lda #$20
  140. 1400 lfb0   [178][172]
  141. 1410 [174] sta bbuf,y
  142. 1420 [174] dey
  143. 1430 [174] bpl lfb0
  144. 1440 [174] rts
  145. 1450 ;
  146. 1460 ; test [129] [128] of symbol [155]
  147. 1470 ;
  148. 1480 tst[128] [178][172]
  149. 1490 [174] ldy #0
  150. 1500 [174] lda (sptr),y
  151. 1510 [174] cmp lasta
  152. 1520 [174] bne rtd0
  153. 1530 [174] iny
  154. 1540 [174] lda (sptr),y
  155. 1550 [174] cmp lasta[170]1
  156. 1560 rtd0   [178][172]
  157. 1570 [174] rts
  158. 1580 ;
  159. 1590 ; [161] [130] symbol
  160. 1600 ;
  161. 1610 gnsym  [178][172]
  162. 1620 [174] ldy #0
  163. 1630 [174] lda (sptr),y
  164. 1640 [174] sta lasta
  165. 1650 [174] iny
  166. 1660 [174] lda (sptr),y
  167. 1670 [174] sta lasta[170]1
  168. 1680 [174] ldy #4
  169. 1690 lgm0   [178][172]
  170. 1700 [174] lda #1
  171. 1710 [174] jsr sgm0
  172. 1720 [174] lda (sptr),y
  173. 1730 [174] bne lgm0
  174. 1740 [174] lda #5
  175. 1750 [174] jsr sgm0
  176. 1760 [174] bne tst[128]
  177. 1770 rgm0   [178][172]
  178. 1780 [174] rts
  179. 1790 sgm0   [178][172]
  180. 1800 [174] clc
  181. 1810 [174] adc sptr
  182. 1820 [174] sta sptr
  183. 1830 [174] lda #0
  184. 1840 [174] adc sptr[170]1
  185. 1850 [174] sta sptr[170]1
  186. 1860 [174] rts
  187. 1870 ;
  188. 1880 ; [161] [130] x[171]ref
  189. 1890 ;
  190. 1900 gnxref [178][172]
  191. 1910 [174] lda #4
  192. 1920 [174] clc
  193. 1930 [174] adc cxptr
  194. 1940 [174] sta cxptr
  195. 1950 [174] bcc cgf0
  196. 1960 [174] inc cxptr[170]1
  197. 1970 cgf0   [178][172]
  198. 1980 [174] lda cxptr
  199. 1990 [174] cmp eoflst
  200. 2000 [174] bne cgf1
  201. 2010 [174] lda cxptr[170]1
  202. 2020 [174] cmp eoflst[170]1
  203. 2030 [174] bne cgf1
  204. 2040 [174] lda #$01
  205. 2050 [174] rts
  206. 2060 cgf1   [178][172]
  207. 2070 [174] ldy #0
  208. 2080 [174] lda (cxptr),y
  209. 2090 [174] cmp (sptr),y
  210. 2100 [174] bne gnxref
  211. 2110 [174] iny
  212. 2120 [174] lda (cxptr),y
  213. 2130 [174] cmp (sptr),y
  214. 2140 [174] bne gnxref
  215. 2150 [174] rts
  216. 2160 ;
  217. 2170 ; c[145]vert byte [164] hex ([198])
  218. 2180 ;
  219. 2190 bythex [178][172]
  220. 2200 [174] pha
  221. 2210 [174] lsr a
  222. 2220 [174] lsr a
  223. 2230 [174] lsr a
  224. 2240 [174] lsr a
  225. 2250 [174] jsr sbx0
  226. 2260 [174] pla
  227. 2270 sbx0   [178][172]
  228. 2280 [174] [175] #$0f
  229. 2290 [174] cmp #$0a
  230. 2300 [174] bcc cbx0
  231. 2310 [174] adc #6
  232. 2320 cbx0   [178][172]
  233. 2330 [174] clc
  234. 2340 [174] adc #$30
  235. 2350 [174] sta bbuf,x
  236. 2360 [174] inx
  237. 2370 [174] rts
  238. 2380 .[128]
  239.