home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 September / 64er_Magazin_86-09_1986_Markt__Technik_de.d64 / fsd64.src (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  24KB  |  1,390 lines
  1. 1000 rem **** fast serial disk ****
  2. 1005 rem save"@0:fsd64.src",8
  3. 1010 open1,8,15,"s0:fsd64"
  4. 1015 open8,8,1,"fsd64,p,w
  5. 1020 [159]4,4
  6. 1025 [158]9[172]4096
  7. 1030 .opt o8 ;profi[171]ass 64
  8. 1035 ;" **** ascast (NULL)erial str$isk 64 ****
  9. 1040 ;"(c)1986 by [196].[212]emme, [214]: 16061986
  10. 1045 ;
  11. 1050 ;"left$ardware: (NULL)serport 6&7->(NULL)erial (NULL)ort 1&5
  12. 1055 ;" ([193]nschluss von [211][210][209]/[196][193][212][193] an [195][206][212]2/[211][208]2)
  13. 1060 ;"fuer lenentronics ausserdem:
  14. 1065 ;" [213]serport [195]-[204] ->[195]entronics 2-9
  15. 1070 ;"          peek->1, (NULL)->11 (str$atn(NULL)atn, -(NULL)(NULL)(NULL)(NULL)peekval, peek(NULL)(NULL)(NULL))
  16. 1075 ;"[194]enutzter [194]ereich: [203]assettenroutinen:
  17. 1080 ;"  $e4b7-$e4d2:   28 peekytes (  28 belegt)
  18. 1085 ;"  $f0d8-$f105:   46 [194]ytes (  41 belegt)
  19. 1090 ;"  $f199-$f1ac:   20 peekytes (  20 belegt)
  20. 1095 ;"  $f2c8-$f2ed:   38 [194]ytes (  38 belegt)
  21. 1100 ;"  $f393-$f3d1:   63 peekytes (  59 belegt)
  22. 1105 ;"  $f533-$f5a8:  118 [194]ytes ( 116 belegt)
  23. 1110 ;"  $f659-$f68d:   53 peekytes (  53 belegt)
  24. 1115 ;"  $f72c-$fcd0: 1434 [194]ytes (1433 belegt)
  25. 1120 ;"  $fec2-$fed5:   20 peekytes (  19 belegt)
  26. 1122 ;
  27. 1125 ;"[212]astatur-[198]unktionen:
  28. 1130 ;"  val(NULL)len                      lenleft$(NULL)$(27)
  29. 1135 ;"  [212][193][194]/[211][200][212]-[212][193][194]   [195][212][210][204]-+/-   [213]0>[205]1/0
  30. 1140 ;"  atn(NULL)(NULL)/(NULL)left$(NULL)-atn(NULL)(NULL)    len=-</>    lenleft$(NULL)$(8)/lenleft$(NULL)$(142)
  31. 1145 ;"  [200][204][208]/[211][200][212]-[200][204][208]   [195][212][210][204]-,/.   [195]entronics ein/aus
  32. 1150 ;"   (NULL)asc/(NULL)left$(NULL)-(NULL)asc   len(NULL)(NULL)(NULL)-=/(NULL)val(NULL)  (NULL)asc ein/aus
  33. 1155 ;"   [206][207] [211][195][210][207][204][204]     [195][212][210][204]-[211]    [211]top bis [212]aste
  34. 1160 ;"      len(NULL)(NULL)(NULL)-str$(NULL)(NULL)(NULL)/(NULL)right$chr$left$(NULL)      atn(NULL)lenright$right$-(NULL)andlung ein/aus
  35. 1165 ;"          [195][212][210][204]-*           [207][204][196]-[198]unktion
  36. 1170 ;"          len(NULL)(NULL)(NULL)-/           valscape-ascunktion
  37. 1171 ;"bei [211]crolling: <[195]=> haelt an
  38. 1172 ;
  39. 1175 ;"str$er neue (NULL)(NULL)(NULL)-peekefehl:
  40. 1180 ;"  [211][217][211]               [196]isk-[211]tatus
  41. 1185 ;"  (NULL)(NULL)(NULL)'$...'<,dv>    str$irectory anzeigen
  42. 1190 ;"  [211][217][211]'befehl'<,dv>  [196]isk-[194]efehl geben
  43. 1195 ;"  (NULL)(NULL)(NULL)'(NULL)(NULL)name'<,dv>  (NULL)val(NULL)-ascile listen
  44. 1200 ;"  [211][217][211]'[204][208]name'<,dv>  [208][210][199]-[198]ile listen
  45. 1205 ;"  (NULL)(NULL)(NULL)x (x=1..15)    fuehrt (NULL)(NULL)(NULL) x*4096 aus
  46. 1210 ;"  [211][217][211]0              ergibt [211]oft-[194][210][203]
  47. 1211 ;
  48. 1215 ;"str$er (NULL)(NULL)atnstr$-peekefehl:
  49. 1220 ;"  [204][207][193][196]              [204][207][193][196]"*",8,1
  50. 1225 ;"  (NULL)(NULL)atnstr$"name",dv,7   kein peekurst-(NULL)ode
  51. 1230 ;"  [204][207][193][196]"name",dv,9   nach [204]aden [213]0>[205]0 geben
  52. 1235 ;"  (NULL)(NULL)atnstr$"name",dv,5   atn(NULL)(NULL)val(NULL)str$ (nur in peekatn(NULL)right$len)
  53. 1240 ;"------------------------------------------------------
  54. 1245 ;">>> peekatn(NULL)right$len-(NULL)(NULL)atnstr$val(NULL) (ab $0801)
  55. 1250 start =$f299 ;"(nicht anders moeglich)
  56. 1255 [172][178]start
  57. 1260 temp [178]$55
  58. 1265 .byt $0b,$08
  59. 1270 .w[176] 1986
  60. 1275 .byt $9e
  61. 1280 .[198] "2061"
  62. 1285 .byt 0,0,0
  63. 1290 ldy #0
  64. 1295 sty temp
  65. 1300 ldx #$40
  66. 1305 lda #$80
  67. 1310 sta temp[170]1
  68. 1315 copy1 lda (temp),y
  69. 1320 sta (temp),y
  70. 1325 iny
  71. 1330 bne copy1
  72. 1335 inc temp[170]1
  73. 1340 dex
  74. 1345 bne copy1
  75. 1350 ldx #$20
  76. 1355 lda #$e0
  77. 1360 sta temp[170]1
  78. 1365 copy2 lda (temp),y
  79. 1370 sta (temp),y
  80. 1375 iny
  81. 1380 bne copy2
  82. 1385 inc temp[170]1
  83. 1390 dex
  84. 1395 bne copy2
  85. 1400 lda #8
  86. 1405 sta $f387 ;"(NULL)ein (NULL)ape (NULL)(NULL)val(NULL)
  87. 1410 lda #$f7
  88. 1415 sta $f4b7 ;"[203]ein [212]ape [204][207][193][196]
  89. 1420 sta $f5f9 ;"(NULL)ein (NULL)ape (NULL)atn(NULL)val
  90. 1425 copy3 lda begprg
  91. 1430 sta $f72c
  92. 1435 inc copy3-start+$801+1
  93. 1440 bne copy4
  94. 1445 inc copy3-start+$801+2
  95. 1450 copy4 inc copy3-start+$801+4
  96. 1455 bne copy5
  97. 1460 inc copy3-start+$801+5
  98. 1465 copy5 lda copy3-start+$801+1
  99. 1470 cmp #<endprg
  100. 1475 bne copy3
  101. 1480 lda copy3-start+$801+2
  102. 1485 cmp #>endprg
  103. 1490 bne copy3
  104. 1495 ;"[206]eue [198]arben installieren
  105. 1500 lda #11 ;d grey
  106. 1505 ldx #11
  107. 1510 ldy #1 ;white
  108. 1515 sta $ecd9 ;rom b[176]der
  109. 1520 stx $ecda ;rom ground
  110. 1525 sty $e535 ;rom curs[176]
  111. 1530 sta $d020 ;vic b[176]der
  112. 1535 stx $d021 ;vic ground
  113. 1540 sty $0286 ;ram curs[176]
  114. 1545 lda #$4c
  115. 1550 ;"(NULL)(NULL)atnstr$ installieren
  116. 1555 ldx #<newlod
  117. 1560 ldy #>newlod
  118. 1565 sta $f4c1
  119. 1570 stx $f4c2
  120. 1575 sty $f4c3
  121. 1580 ldx #<ldend
  122. 1585 ldy #>ldend
  123. 1590 sta $f5aa
  124. 1595 stx $f5ab
  125. 1600 sty $f5ac
  126. 1605 ;"[212][193][204][203]/[204][201][211][212][197][206] installieren
  127. 1610 ldx #[179][162]tlk
  128. 1615 ldy #[177][162]tlk
  129. 1620 sta $ed27
  130. 1625 stx $ed28
  131. 1630 sty $ed29
  132. 1635 ;"right$vallen(NULL)(NULL)(NULL) installieren
  133. 1640 ldx #<no1
  134. 1645 ldy #>no1
  135. 1650 stx $ed4a
  136. 1655 sty $ed4b
  137. 1660 ldx #<no2
  138. 1665 ldy #>no2
  139. 1670 sta $ed5a
  140. 1675 stx $ed5b
  141. 1680 sty $ed5c
  142. 1685 ldx #<no3
  143. 1690 ldy #>no3
  144. 1695 sta $ed94
  145. 1700 stx $ed95
  146. 1705 sty $ed96
  147. 1710 ldx #<no4
  148. 1715 ldy #>no4
  149. 1720 stx $edb3
  150. 1725 sty $edb4
  151. 1730 ;"[212][193][204][203]/[204][201][211][212][197][206]/[201][197][195][207][213][212] kopieren
  152. 1735 pha
  153. 1740 ldy #117
  154. 1745 lda xnwtlk[171]start[170]$801,y
  155. 1750 sta [162]tlk,y
  156. 1755 dey
  157. 1760 bpl [172][171]7
  158. 1765 pla
  159. 1770 ;"(NULL)(NULL)(NULL)right$(NULL)(NULL)val(NULL)/(NULL)(NULL)(NULL)atn(NULL)(NULL)-valnde installieren
  160. 1775 ldx #<unlend
  161. 1780 ldy #>unlend
  162. 1785 stx $ee11
  163. 1790 sty $ee12
  164. 1795 ;"[193][195][208][212][210] installieren+kopieren
  165. 1800 ldx #[179]ni1
  166. 1805 ldy #[177]ni1
  167. 1810 stx $ee19
  168. 1815 sty $ee1a
  169. 1820 pha
  170. 1825 ldy #70
  171. 1830 lda nacptr[171]start[170]$801,y
  172. 1835 sta $ee22,y
  173. 1840 dey
  174. 1845 bpl [172][171]7
  175. 1850 ldy #52
  176. 1855 lda xntest[171]start[170]$801,y
  177. 1860 sta ntest,y
  178. 1865 dey
  179. 1870 bpl [172][171]7
  180. 1875 pla
  181. 1880 ;"(NULL)vallen(NULL)(NULL)(NULL) installieren
  182. 1885 ldx #<newstk
  183. 1890 ldy #>newstk
  184. 1895 sta $edc9
  185. 1900 stx $edca
  186. 1905 sty $edcb
  187. 1910 ;"[213][206][204][211][206] installieren
  188. 1915 ldx #[179]nunlsn
  189. 1920 ldy #[177]nunlsn
  190. 1925 stx $ee01
  191. 1930 sty $ee02
  192. 1935 ;"(NULL)(NULL)(NULL)(NULL)(NULL)/atnlen(NULL)(NULL)(NULL)/(NULL)val(NULL)(NULL)(NULL)right$ kopieren
  193. 1940 pha
  194. 1945 ldy #37
  195. 1950 lda xni1-start+$801,y
  196. 1955 sta ni1,y
  197. 1960 dey
  198. 1965 bpl *-7
  199. 1970 pla
  200. 1975 ;"[203][197][217] installieren
  201. 1980 ldx #[179][162]key
  202. 1985 ldy #[177][162]key
  203. 1990 sta $ea93
  204. 1995 stx $ea94
  205. 2000 sty $ea95
  206. 2005 ldx #[179][162][161]
  207. 2010 ldy #[177][162][161]
  208. 2015 stx $eb77
  209. 2020 sty $eb78
  210. 2025 ldx #[179][162][165]c
  211. 2030 ldy #[177][162][165]c
  212. 2035 sta $eae4
  213. 2040 stx $eae5
  214. 2045 sty $eae6
  215. 2050 ldx #240
  216. 2055 stx $ec78[170]$d
  217. 2060 inx
  218. 2065 stx $ec78[170]$28
  219. 2070 inx
  220. 2075 stx $ec78[170]$2b
  221. 2080 inx
  222. 2085 stx $ec78[170]$2f
  223. 2090 inx
  224. 2095 stx $ec78[170]$2c
  225. 2100 inx
  226. 2105 stx $ec78[170]7
  227. 2110 inx
  228. 2115 stx $ec78[170]2
  229. 2120 inx
  230. 2125 stx $ec78[170]$35
  231. 2130 inx
  232. 2135 stx $ec78[170]1
  233. 2140 inx
  234. 2145 stx $ec78[170]$31
  235. 2150 inx
  236. 2155 stx $ec78[170]$37
  237. 2156 ldx #19
  238. 2157 stx $ec78[170]$33 ;"len(NULL)(NULL)(NULL)-left$(NULL)(NULL)val -> left$(NULL)(NULL)val
  239. 2158 ldx #14
  240. 2159 stx $ec03+$2f ;"[195]=-'<' -> chr$(14)
  241. 2160 ldx #14[170]128
  242. 2161 stx $ec03[170]$2c ;"len=-'>' -> chr$(142)
  243. 2162 ldx #31
  244. 2163 stx $ecb1
  245. 2164 ;"[195]entronics installieren
  246. 2165 ldx #[179]centlk
  247. 2170 ldy #[177]centlk
  248. 2175 sta $ed24
  249. 2180 stx $ed25
  250. 2185 sty $ed26
  251. 2190 ldx #[179]cenout
  252. 2195 ldy #[177]cenout
  253. 2200 sta $ed41
  254. 2205 stx $ed42
  255. 2210 sty $ed43
  256. 2215 ;"(NULL)(NULL)atn(NULL)len+(NULL)val(NULL)lenleft$(NULL) kopieren
  257. 2220 pha
  258. 2225 ldy #58
  259. 2230 lda xtoasc-start+$801,y
  260. 2235 sta toasc,y
  261. 2240 dey
  262. 2245 bpl *-7
  263. 2250 pla
  264. 2255 ;"[206][205][201] installieren
  265. 2260 ldx #[179][162]nmi
  266. 2265 ldy #[177][162]nmi
  267. 2270 stx $ff7e
  268. 2275 sty $ff7f
  269. 2280 ;"(NULL)(NULL)(NULL) installieren
  270. 2285 ldx #<newsys
  271. 2290 ldy #>newsys
  272. 2295 sta $e12a
  273. 2300 stx $e12b
  274. 2305 sty $e12c
  275. 2310 ;"[211][193][214][197]@ installieren
  276. 2315 ldx #[179][162]rpl
  277. 2320 ldy #[177][162]rpl
  278. 2325 stx $f606
  279. 2330 sty $f607
  280. 2335 ;"atn(NULL)(NULL)val(NULL)str$ installieren
  281. 2340 ldx #<append
  282. 2345 ldy #>append
  283. 2350 stx $e176
  284. 2355 sty $e177
  285. 2360 ;"[211]croll installieren
  286. 2365 ldx #[179]scrolu
  287. 2370 ldy #[177]scrolu
  288. 2375 sta $e8ea
  289. 2380 stx $e8eb
  290. 2385 sty $e8ec
  291. 2390 ldx #[179]scrole
  292. 2395 ldy #[177]scrole
  293. 2400 sta $e962
  294. 2405 stx $e963
  295. 2410 sty $e964
  296. 2415 ldx #[179]scrold
  297. 2420 ldy #[177]scrold
  298. 2425 sta $e981
  299. 2430 stx $e982
  300. 2435 sty $e983
  301. 2436 ldy #6
  302. 2437 lda scrhlt[171]start[170]$801,y
  303. 2438 sta $e942,y
  304. 2439 dey
  305. 2440 bpl [172][171]7
  306. 2441 ;"(NULL)erschiedenes kopieren
  307. 2445 ldy #45
  308. 2450 lda xgetdn-start+$801,y
  309. 2455 sta getdn,y
  310. 2460 dey
  311. 2465 bpl *-7
  312. 2470 ldy #19
  313. 2475 lda xopen-start+$801,y
  314. 2480 sta open,y
  315. 2485 dey
  316. 2490 bpl *-7
  317. 2495 ldy #19
  318. 2500 lda xnewst-start+$801,y
  319. 2505 sta newstk,y
  320. 2510 dey
  321. 2515 bpl *-7
  322. 2520 ldy #27
  323. 2525 lda xscrol-start+$801,y
  324. 2530 sta scrolu,y
  325. 2535 dey
  326. 2540 bpl *-7
  327. 2545 ;"[198][211][196][198][204][199] schuetzen+[210]epeat setzen
  328. 2550 lda #$80
  329. 2555 ldx #$ea
  330. 2560 sta $e3d9
  331. 2565 stx $e3df
  332. 2570 lda #$8d
  333. 2575 ldx #[179]650
  334. 2580 ldy #[177]650
  335. 2585 sta $e3dc
  336. 2590 stx $e3dd
  337. 2595 sty $e3de
  338. 2600 ;"(NULL)(NULL)(NULL)-str$efault auf "[172]",8,1 setzen
  339. 2605 ldx #8
  340. 2610 ldy #1
  341. 2615 stx $e1da
  342. 2620 sty $e1dc
  343. 2625 lda #$01
  344. 2630 ldx #<setast
  345. 2635 ldy #>setast
  346. 2640 sta $e1d5
  347. 2645 stx $e1d7
  348. 2650 sty $e1d8
  349. 2655 ;"[207][208][197][206]-[196]efault auf ,8,15 setzen
  350. 2660 ldx #8
  351. 2665 ldy #15
  352. 2670 stx $e228
  353. 2675 sty $e22a
  354. 2680 ;"(NULL)eue (NULL)(NULL)(NULL)-chr$et-(NULL)outine installieren
  355. 2685 ldx #<newchk
  356. 2690 ldy #>newchk
  357. 2695 stx $e1e7
  358. 2700 sty $e1e8
  359. 2705 stx $e1f4
  360. 2710 sty $e1f5
  361. 2715 ;"'[210][213][206]'-[212]aste aendern
  362. 2720 ldx #"(NULL)"
  363. 2725 ldy #":"
  364. 2730 stx $eced
  365. 2735 sty $ecee
  366. 2740 ;"(NULL)tartmeldung installieren
  367. 2745 ldy #7
  368. 2750 lda tabtxt-start+$801,y
  369. 2755 sta $e49b,y
  370. 2760 dey
  371. 2765 bpl *-7
  372. 2770 lda #">
  373. 2775 ldy #3
  374. 2780 sta $e479,y
  375. 2785 dey
  376. 2790 bpl [172][171]4
  377. 2795 lda #"<
  378. 2800 ldy #3
  379. 2805 sta $e494,y
  380. 2810 dey
  381. 2815 bpl *-4
  382. 2820 lda #5
  383. 2825 sta $01 ;"[203]ernal im [210][193][205]
  384. 2830 jmp $e39a
  385. 2835 tabtxt .[198] "dte fsd-"
  386. 2840 ;"------------------------------------------------------
  387. 2845 ;">>> [214]ariablendefinition
  388. 2850 begprg [178]$f72c[171]start[170]$801
  389. 2855 ;"(NULL)val(NULL)(NULL)(NULL)atnchr$val-peekereich
  390. 2860 fsdflg =$03
  391. 2865 ;"[194]elegung des [198][211][196][198][204][199]: b7   [198][211][196] aktiv
  392. 2870 ;"                     b6   asc(NULL)str$ moeglich
  393. 2875 ;"                     b5/4 [212]astatur inaktiv
  394. 2880 ;"                     b3   lenval(NULL)(NULL)(NULL)(NULL)(NULL)right$len(NULL) len(NULL)(NULL)asc
  395. 2885 ;"                     b2   [195][197][206][212][210][207][206][201][195][211] [193][211][195][201][201]
  396. 2890 ;"                     b1   lenval(NULL)(NULL)(NULL)(NULL)(NULL)right$len(NULL) aktiv
  397. 2895 ;"                     b0   [195][197][206][212][210][207][206][201][195][211] erlaubt
  398. 2900 numflg [178]$0d
  399. 2905 index [178]$22
  400. 2910 txttab [178]$2b
  401. 2915 vartab [178]$2d
  402. 2920 chr[203]t [178]$79
  403. 2925 status [178]$90
  404. 2930 ldvflg [178]$93
  405. 2935 iecbyt [178]$95
  406. 2940 ldadr [178]$ae
  407. 2945 cnter [178]$b4
  408. 2950 [165][195] [178]$b7
  409. 2955 sa [178]$b9
  410. 2960 dn [178]$ba
  411. 2965 [165]adr [178]$bb
  412. 2970 oldadr [178]$c3
  413. 2975 numkey [178]$c6
  414. 2980 rvsflg [178]$c7
  415. 2985 keynum [178]$cb
  416. 2990 quote [178]$d4
  417. 2995 insert [178]$d8
  418. 3000 buf [178]$0200
  419. 3005 shtflg [178]$028d
  420. 3010 ;"peekatn(NULL)right$len-peekereich
  421. 3015 error =$a437
  422. 3020 lnkprg =$a533
  423. 3025 outcr =$aad7
  424. 3030 frmevl =$ad9e
  425. 3035 snerr =$af08
  426. 3040 getadr =$b7f7
  427. 3045 linprt =$bdcd
  428. 3050 ;"[201]/[207]-[194]ereich
  429. 3055 vicprt [178]$d02f
  430. 3060 c1pra [178]$dc00
  431. 3065 c1prb [178]$dc01
  432. 3070 c1icr [178]$dc0d
  433. 3075 c2pra [178]$dd00
  434. 3080 c2prb [178]$dd01
  435. 3085 c2ddrb [178]$dd03
  436. 3090 c2t1l [178]$dd04
  437. 3095 c2t1h [178]$dd05
  438. 3100 c2sdr [178]$dd0c ;"str$atenregister
  439. 3105 c2icr =$dd0d ;"b3: [211][196][210] voll/leer
  440. 3110 c2cra [178]$dd0e
  441. 3115 ;"(NULL)val(NULL)(NULL)atn(NULL)-peekereich
  442. 3120 outscr =$e716
  443. 3125 talk =$ed09
  444. 3130 lstn =$ed0c
  445. 3135 seclsn =$edb9
  446. 3140 sectlk =$edc7
  447. 3145 iecout =$eddd
  448. 3150 untalk =$edef
  449. 3155 unlstn =$edfe
  450. 3160 iecin =$ee13
  451. 3165 clkhig =$ee85
  452. 3170 clklow =$ee8e
  453. 3175 dathig =$ee97
  454. 3180 datlow =$eea0
  455. 3185 datain =$eea9
  456. 3190 iecopn =$f3d5
  457. 3195 getend =$f5a9
  458. 3200 outsrc =$f5af
  459. 3205 outldv =$f5d2
  460. 3210 ieccls =$f646
  461. 3215 ioerr4 =$f704
  462. 3220 ioerr5 =$f707
  463. 3225 setst =$fe1c
  464. 3230 tststp =$ffe1
  465. 3231 udtim =$ffea
  466. 3232 ;"------------------------------------------------------
  467. 3233 ;"bei (NULL)croll und <len=> anhalten (7)
  468. 3234 scrhlt beq *+9
  469. 3235 cmp #223 ;"[195]=-[212]aste
  470. 3236 beq [172][171]9
  471. 3237 nop
  472. 3240 ;"------------------------------------------------------
  473. 3245 ;">>> [198][211][196]: [199]eaenderte [193][195][208][212][210]-[210]outine (an [207]riginal-[211]telle)
  474. 3250 nacptr jmp ntest
  475. 3255 nac1 ldx #8
  476. 3260 txa
  477. 3265 [175] c2icr
  478. 3270 bne nac6
  479. 3275 nac2 lda c2pra
  480. 3280 cmp c2pra
  481. 3285 bne nac2
  482. 3290 asl
  483. 3295 bpl nac1
  484. 3300 nac3 r[176] $a4
  485. 3305 nac4 lda c2pra
  486. 3310 cmp c2pra
  487. 3315 bne nac4
  488. 3320 asl
  489. 3325 bmi nac4
  490. 3330 dex
  491. 3335 beq nac7
  492. 3340 nac5 lda c2pra
  493. 3345 cmp c2pra
  494. 3350 bne nac5
  495. 3355 asl
  496. 3360 bpl nac5
  497. 3365 bmi nac3
  498. 3370 nac6 lda c2sdr
  499. 3375 sta $a4
  500. 3380 lda fsdflg
  501. 3385 [176]a #$c0
  502. 3390 sta fsdflg
  503. 3395 nac7 ldx $a3
  504. 3400 jmp $ee76 ;68
  505. 3405 ;"------------------------------------------------------
  506. 3410 ;">>> [214]erschiedenes (44/46)
  507. 3415 [161]dn [178]$f0d8
  508. 3420 x[161]dn lda dn
  509. 3425 cmp #8
  510. 3430 bcs dnok
  511. 3435 lda #8
  512. 3440 dnok rts
  513. 3445 scrtxt [178][172][171]x[161]dn[170][161]dn
  514. 3450 .byt 13
  515. 3455 .[198] "scratching"
  516. 3460 .byt 160
  517. 3465 incadr [178][172][171]x[161]dn[170][161]dn
  518. 3470 dec [165][195]
  519. 3475 beq [172][170]11
  520. 3480 inc [165]adr
  521. 3485 bne [172][170]4
  522. 3490 inc [165]adr[170]1
  523. 3495 lda ([165]adr),y
  524. 3500 rts
  525. 3505 ldx #8 ;"?(NULL)right$(NULL)(NULL) ascright$(NULL)val (NULL)atn(NULL)val
  526. 3510 jmp error
  527. 3515 clrst =*-xgetdn+getdn
  528. 3520 ldy #0
  529. 3525 sty status
  530. 3530 rts
  531. 3535 ;"------------------------------------------------------
  532. 3540 ;">>> chr$eaenderte (NULL)vallen(NULL)atn(NULL)(NULL)-(NULL)outine ((NULL)orrektur, 13)
  533. 3545 newstk =$f199
  534. 3550 xnewst jsr $ed36
  535. 3555 bit status
  536. 3560 bmi *+5
  537. 3565 jmp $edcc
  538. 3570 jmp $ee03
  539. 3575 ;">>> [204][211][214]-[196]efault auf "*" setzen (7)
  540. 3580 setast [178][172][171]x[162]st[170][162]stk
  541. 3585 ldx #[179]astric
  542. 3590 ldy #[177]astric
  543. 3595 jmp $ffbd
  544. 3600 ;"------------------------------------------------------
  545. 3605 ;">>> [199]eaenderte [211]croll-[210]outine (14/28)
  546. 3610 scrolu [178]$e4b7
  547. 3615 xscrol sei
  548. 3620 lda $ac
  549. 3625 pha
  550. 3630 jmp $e8ed
  551. 3635 scrold [178][172][171]xscrol[170]scrolu
  552. 3640 sei
  553. 3645 lda $ac
  554. 3650 pha
  555. 3655 jmp $e984
  556. 3660 ;">>> ascile(NULL)otascound-(NULL)est (14)
  557. 3665 fnftst =*-xscrol+scrolu
  558. 3670 ldx status
  559. 3675 cpx #66
  560. 3680 beq *+5
  561. 3685 cpx #0
  562. 3690 rts
  563. 3695 ldx #4 ;"?[198]ile [206]ot [198]ound
  564. 3700 jmp err[176]
  565. 3705 ;"------------------------------------------------------
  566. 3710 ;">>> [198][211][196]: [212]eil der neuen [193][195][208][212][210]-[210]outine (52)
  567. 3715 ntest [178]$f659
  568. 3720 xntest ldx #13
  569. 3725 lda c2pra
  570. 3730 [175] #$df
  571. 3735 sta c2pra
  572. 3740 nt1 lda c2pra
  573. 3745 cmp c2pra
  574. 3750 bne nt1
  575. 3755 asl
  576. 3760 bpl nt[128]
  577. 3765 dex
  578. 3770 bne nt1
  579. 3775 lda $a5
  580. 3780 bne ntneoi
  581. 3785 jsr datlow
  582. 3790 jsr clkhig
  583. 3795 lda #$40
  584. 3800 jsr setst
  585. 3805 inc $a5
  586. 3810 bne xntest
  587. 3815 ntneoi ldx $a3
  588. 3820 lda #2
  589. 3825 jmp $edb2
  590. 3830 nt[128] jmp $ee25
  591. 3835 ;">>> asc(NULL)str$: (NULL)est atnlen(NULL)(NULL)(NULL)-(NULL)outine (15)
  592. 3840 ni1 =$f2c8
  593. 3845 xni1 bit c2icr
  594. 3850 stx $a3
  595. 3855 lda status
  596. 3860 and #$bd
  597. 3865 sta status
  598. 3870 jmp clkhig
  599. 3875 ;">>> [198][211][196]: [206]eue [213][206][212][193][204][203]/[213][206][204][201][211][212][197][206]-[210]outine (11)
  600. 3880 nunlsn [178][172][171]xni1[170]ni1
  601. 3885 pha
  602. 3890 lda fsdflg
  603. 3895 [175] #$7f
  604. 3900 sta fsdflg
  605. 3905 pla
  606. 3910 jmp $ed11
  607. 3915 ;">>> chr$eaenderte (NULL)(NULL)right$-(NULL)outine (6)
  608. 3920 newnmi =*-xni1+ni1
  609. 3925 jsr allon
  610. 3930 jmp clklow
  611. 3935 ;">>> [210]est [197]rror-[210]outine (6)
  612. 3940 [162]err [178][172][171]xni1[170]ni1
  613. 3945 pla
  614. 3950 pla
  615. 3955 txa
  616. 3960 jmp $e0f9
  617. 3965 ;"------------------------------------------------------
  618. 3970 ;">>> [195]entronics-[213]mwandlung (48)
  619. 3975 [164][198] [178]$f393
  620. 3980 x[164][198] pha
  621. 3985 lda fsdflg
  622. 3990 [175] #4
  623. 3995 beq ta[128]
  624. 4000 pla
  625. 4005 cmp #$40 ;"atn(NULL)lenright$right$-(NULL)andlung
  626. 4010 bcc taend2
  627. 4015 cmp #$60
  628. 4020 bcs tanot
  629. 4025 adc #32
  630. 4030 tanot cmp #$c0
  631. 4035 bcc taend2
  632. 4040 cmp #$e0
  633. 4045 bcs taend2
  634. 4050 sbc #127
  635. 4055 taend2 pha
  636. 4060 taend lda fsdflg
  637. 4065 and #8 ;"bei [195][210] auch [204][198] senden
  638. 4070 beq ta[128]3
  639. 4075 pla
  640. 4080 cmp #13
  641. 4085 bne ta[128]4
  642. 4090 jsr cenprt
  643. 4095 dec c2ddrb
  644. 4100 lda #10
  645. 4105 ta[128]4 rts
  646. 4110 ;">>> chr$eaenderte (NULL)(NULL)(NULL)-chr$et-(NULL)outine (10)
  647. 4115 newchk =*-xtoasc+toasc
  648. 4120 jsr chr(NULL)t
  649. 4125 cmp #","
  650. 4130 beq taend4
  651. 4135 pla
  652. 4140 taend3 pla
  653. 4145 rts
  654. 4150 ;">>> [210]est geaenderte [211]croll-[210]outine (4)
  655. 4155 scrole [178][172][171]x[164][198][170][164][198]
  656. 4160 sta $ac
  657. 4165 cli
  658. 4170 rts
  659. 4175 ;"------------------------------------------------------
  660. 4180 ;">>> [198][211][196]: [206]eue [212][193][204][203]/[204][201][211][212][197][206]-[210]outine (26)
  661. 4185 [162]tlk [178]$f533
  662. 4190 xnwtlk lda c2pra
  663. 4195 [175] #8
  664. 4200 bne net[128]
  665. 4205 jsr setit
  666. 4210 lda #$ff
  667. 4215 sta c2sdr
  668. 4220 jsr watset
  669. 4225 txa
  670. 4230 ldx #$14
  671. 4235 net1 dex
  672. 4240 bne net1
  673. 4245 tax
  674. 4250 net[128] jmp $ed2e
  675. 4255 ;">>> asc(NULL)str$: (NULL)eue right$vallen(NULL)(NULL)(NULL)-(NULL)outine (90)
  676. 4260 no1 =*-xnwtlk+newtlk
  677. 4265 bit c2icr
  678. 4270 jmp clkhig
  679. 4275 noold jmp $ed62
  680. 4280 no2 =*-xnwtlk+newtlk
  681. 4285 xno2 lda c2pra
  682. 4290 cmp c2pra
  683. 4295 bne xno2
  684. 4300 pha
  685. 4305 lda c2icr
  686. 4310 and #8
  687. 4315 beq notfsd
  688. 4320 lda fsdflg
  689. 4325 ora #$c0
  690. 4330 sta fsdflg
  691. 4335 notfsd pla
  692. 4340 bpl xno2
  693. 4345 ora #$10
  694. 4350 sta c2pra
  695. 4355 and #8
  696. 4360 bne noold
  697. 4365 bit fsdflg
  698. 4370 bpl noold
  699. 4375 jsr setit
  700. 4380 lda iecbyt
  701. 4385 sta c2sdr
  702. 4390 jsr watset
  703. 4395 no3 =*-xnwtlk+newtlk
  704. 4400 txa
  705. 4405 pha
  706. 4410 ldx #$22
  707. 4415 no3wat jsr datain
  708. 4420 bcs no3hig
  709. 4425 pla
  710. 4430 tax
  711. 4435 cli
  712. 4440 rts
  713. 4445 no3hig dex
  714. 4450 bne no3wat
  715. 4455 pla
  716. 4460 tax
  717. 4465 jmp $edb0
  718. 4470 no4 =*-xnwtlk+newtlk
  719. 4475 pha
  720. 4480 lda fsdflg
  721. 4485 and #$7f
  722. 4490 sta fsdflg
  723. 4495 pla
  724. 4500 jmp setst
  725. 4505 ;"------------------------------------------------------
  726. 4510 ;">>> left$ilfsroutine zum (NULL)effnen (19/20)
  727. 4515 open =$fec2
  728. 4520 xopen jsr open+9
  729. 4525 bcc *+9
  730. 4530 tax
  731. 4535 jmp newerr
  732. 4540 jsr iecopn
  733. 4545 rts
  734. 4550 putdn =*-xopen+open
  735. 4555 jsr getdn
  736. 4560 sta dn
  737. 4565 rts
  738. 4570 astric =*-xopen+open
  739. 4575 .byt "*"
  740. 4580 ;"------------------------------------------------------
  741. 4585 ;">>> asc(NULL)str$: (NULL)eue (NULL)(NULL)atnstr$-(NULL)outine (ab $f72c)
  742. 4590 nlold jsr allon
  743. 4595 jmp $f4c4
  744. 4600 newlod stx $b
  745. 4605 jsr outsrc
  746. 4610 cpx #7
  747. 4615 beq nlold
  748. 4620 lda fsdflg
  749. 4625 and #%10111111
  750. 4630 ora #16
  751. 4635 sta fsdflg
  752. 4640 ldy #0
  753. 4645 lda (fnadr),y
  754. 4650 cmp #"$"
  755. 4655 beq nlold
  756. 4660 lda dn
  757. 4665 jsr lstn
  758. 4670 lda #$6f
  759. 4675 jsr seclsn
  760. 4680 lda status
  761. 4685 bpl nldvpr
  762. 4687 jsr allon
  763. 4690 jmp ioerr5
  764. 4695 nldvpr ldy #3
  765. 4700 nl2 lda txu0ld-1,y
  766. 4705 jsr iecout
  767. 4710 dey
  768. 4715 bne nl2
  769. 4720 jsr iecopn+$27 ;"[198]ilename ausgeben
  770. 4750 bit fsdflg
  771. 4755 bvc nlold
  772. 4760 sei
  773. 4765 jsr clkhig
  774. 4770 jsr se[164]ut
  775. 4775 bit c2icr
  776. 4780 jsr clkinv
  777. 4785 jsr nlgbyt
  778. 4790 cmp #2
  779. 4795 bne nl[165]d
  780. 4800 jsr clkhig
  781. 4805 jsr all[145]
  782. 4810 jmp ioerr4
  783. 4815 nl[165]d pha
  784. 4820 cmp #$1f
  785. 4825 bne nlnlsf
  786. 4830 jsr clkinv
  787. 4835 jsr nlgbyt
  788. 4840 sta cnter
  789. 4845 jmp nlnerr
  790. 4850 nlnlsf cmp #2
  791. 4855 bcc nlnerr
  792. 4860 pla
  793. 4865 bcs nlderr
  794. 4870 nlnerr jsr outldv
  795. 4875 jsr all[145]
  796. 4880 jsr clkinv
  797. 4885 jsr nlgbyt
  798. 4890 sta ldadr
  799. 4895 jsr clkinv
  800. 4900 jsr nlgbyt
  801. 4905 sta ldadr[170]1
  802. 4910 txa
  803. 4915 bne nl[182]
  804. 4920 lda oldadr
  805. 4925 sta ldadr
  806. 4930 lda oldadr[170]1
  807. 4935 sta ldadr[170]1
  808. 4940 nl[182] pla
  809. 4945 cmp #$1f
  810. 4950 beq nllstb
  811. 4955 jsr clkinv
  812. 4960 lda #$fc
  813. 4965 nlrnxt sta cnter
  814. 4970 jsr udtim
  815. 4975 jsr tststp
  816. 4980 beq nlstp
  817. 4985 sec
  818. 4990 jmp nlrblk
  819. 4995 rd[128]s jsr nlgbyt
  820. 5000 cmp #2
  821. 5005 bcc nlok
  822. 5010 cmp #$1f
  823. 5015 beq nllst
  824. 5020 bne nlderr
  825. 5025 nlok jsr clkinv
  826. 5030 lda #$fe
  827. 5035 bne nlrnxt
  828. 5040 nllst jsr clkinv
  829. 5045 jsr nlgbyt
  830. 5050 sta cnter
  831. 5055 nllstb jsr clkinv
  832. 5060 clc
  833. 5065 jmp nlrblk
  834. 5070 rd[128]c lda #$40
  835. 5075 jsr setst
  836. 5080 jsr clkhig
  837. 5085 cli
  838. 5090 clc
  839. 5095 ld[128] php
  840. 5100 ldx $b
  841. 5105 cpx #9
  842. 5110 bne nlnom0
  843. 5115 jsr u0m0
  844. 5120 nlnom0 plp
  845. 5125 ldx $ae
  846. 5130 ldy $af
  847. 5135 rts
  848. 5140 nlderr lda #2
  849. 5145 jsr setst
  850. 5150 jsr clkhig
  851. 5155 lda #29
  852. 5160 sec
  853. 5165 rts
  854. 5170 nlstp jsr clkhig
  855. 5175 jmp $f633
  856. 5180 nlgbyt lda #8
  857. 5185 nlg1 bit c2icr
  858. 5190 beq nlg1
  859. 5195 lda c2sdr
  860. 5200 rts
  861. 5205 nlrblk rol $b
  862. 5210 lda #8
  863. 5215 nlr1 bit c2icr
  864. 5220 beq nlr1
  865. 5225 ldy c2sdr
  866. 5230 lda c2pra
  867. 5235 e[176] #$10
  868. 5240 sta c2pra
  869. 5245 tya
  870. 5250 ldy #0
  871. 5255 ldx ldvflg
  872. 5260 beq nlrlod
  873. 5265 cmp (ldadr),y
  874. 5270 beq nlrinc
  875. 5275 lda #$10
  876. 5280 jsr setst
  877. 5285 .byt $2c
  878. 5290 nlrlod sta (ldadr),y
  879. 5295 nlrinc inc ldadr
  880. 5300 bne nlrnoc
  881. 5305 inc ldadr[170]1
  882. 5310 nlrnoc dec cnter
  883. 5315 bne nlrblk[170]2
  884. 5320 lsr $b
  885. 5325 bcs rd[128]
  886. 5330 jmp rd[128]c
  887. 5335 rd[128] jmp rd[128]s
  888. 5340 clkinv lda c2pra
  889. 5345 e[176] #$10
  890. 5350 sta c2pra
  891. 5355 rts
  892. 5360 txu0ld .byt 31[170]128,"0","u"
  893. 5365 watset lda c2icr
  894. 5370 [175] #8
  895. 5375 beq watset
  896. 5380 se[164]ut lda c2cra
  897. 5385 [175] #$80
  898. 5390 [176]a #8
  899. 5395 sta c2cra
  900. 5400 rts
  901. 5405 setit lda #$7f
  902. 5410 sta c2icr
  903. 5415 lda #0
  904. 5420 sta c2t1h
  905. 5425 lda #4
  906. 5430 sta c2t1l
  907. 5435 lda c2cra
  908. 5440 [175] #$80
  909. 5445 [176]a #$55
  910. 5450 sta c2cra
  911. 5455 bit c2icr
  912. 5460 rts
  913. 5465 ;">>> valrweiterte (NULL)astatur-(NULL)outinen
  914. 5470 newkey sta vicprt
  915. 5475 ldy #$ff
  916. 5480 sty c1pra
  917. 5485 ldx c1prb
  918. 5490 cpx #$ff
  919. 5495 beq nkend
  920. 5500 lda vicprt
  921. 5505 bpl nkend ;"nur" ein normaler c-64
  922. 5510 lda #$fe
  923. 5515 nxtrow ldx #8
  924. 5520 sta vicprt
  925. 5525 nkwait lda c1prb
  926. 5530 cmp c1prb
  927. 5535 bne nkwait
  928. 5540 nxtkey lsr
  929. 5545 dex
  930. 5550 bpl nkok
  931. 5555 lda vicprt
  932. 5560 sec
  933. 5565 rol
  934. 5570 cmp #$f7
  935. 5575 bne nxtrow
  936. 5580 jmp nkend
  937. 5585 nkok iny
  938. 5590 bcs nxtkey
  939. 5595 tya
  940. 5600 adc #65
  941. 5605 sta keynum
  942. 5610 ldx #$ff
  943. 5615 stx vicprt
  944. 5620 ldy #0
  945. 5625 sty c1pra
  946. 5630 jmp $ea9b
  947. 5635 nkend ldx #$ff
  948. 5640 stx vicprt
  949. 5645 lda #0
  950. 5650 sta c1pra
  951. 5655 ldx c1prb
  952. 5660 jmp $ea96
  953. 5665 n(NULL)ld jmp $eae0
  954. 5670 newget ldx keynum
  955. 5675 cpx #65
  956. 5680 bcc n(NULL)ld
  957. 5685 lda ktab1-65,x
  958. 5690 ldy shtflg
  959. 5695 beq ngnorm
  960. 5700 lda ktab2-65,x
  961. 5705 cpy #1
  962. 5710 beq ngnorm
  963. 5715 lda #$ff
  964. 5720 ngnorm ldy keynum
  965. 5725 jmp $eae4
  966. 5730 newfnc tax
  967. 5732 cpx #241
  968. 5735 bcs notnrm
  969. 5740 jmp notc0
  970. 5745 notnrm cpx #255
  971. 5750 beq *-5
  972. 5755 cpx #249
  973. 5760 bne notold
  974. 5765 old lda #1
  975. 5770 tay
  976. 5775 sta (txttab),y
  977. 5780 jsr lnkprg
  978. 5785 lda index
  979. 5790 ldy index+1
  980. 5795 clc
  981. 5800 adc #2
  982. 5805 bcc *+3
  983. 5810 iny
  984. 5815 sta vartab
  985. 5820 sty vartab+1
  986. 5825 bne wat2
  987. 5830 notold cpx #250
  988. 5835 bne notesc
  989. 5840 lda #0
  990. 5845 sta rvsflg
  991. 5850 sta insert
  992. 5855 sta quote
  993. 5860 sta numkey
  994. 5865 lda #8
  995. 5870 sta dn
  996. 5875 bne endfnc
  997. 5885 notesc lda fsdflg
  998. 5890 and #48
  999. 5895 bne endfnc
  1000. 5905 cpx #241 ;m1
  1001. 5910 beq itsm1
  1002. 5915 cpx #242 ;m0
  1003. 5920 bne notm0
  1004. 5925 u0m0 lda #"0"
  1005. 5930 .byt $2c
  1006. 5935 itsm1 lda #"1"
  1007. 5940 pha
  1008. 5945 jsr getdn
  1009. 5950 jsr lstn
  1010. 5955 lda #$6f
  1011. 5960 jsr seclsn
  1012. 5965 ldy #3
  1013. 5970 outmod lda txu0m,y
  1014. 5975 jsr iecout
  1015. 5980 dey
  1016. 5985 bpl outmod
  1017. 5990 pla
  1018. 5995 jsr iecout
  1019. 6000 jsr unlstn
  1020. 6005 sei
  1021. 6010 wat2 jsr noscrl
  1022. 6015 endfnc jmp $eb42
  1023. 6020 noscrl lda #0
  1024. 6025 sta vicprt
  1025. 6030 sta c1pra
  1026. 6035 modwat lda c1prb
  1027. 6040 cmp c1prb
  1028. 6045 bne modwat
  1029. 6050 and #%11111011
  1030. 6055 eor #%11111011
  1031. 6060 bne modwat
  1032. 6065 ldx #$ff
  1033. 6070 stx vicprt
  1034. 6075 stx c1pra
  1035. 6080 rts
  1036. 6085 txu0m .byt "m",158,"0","u"
  1037. 6090 notm0 lda #1
  1038. 6095 cpx #243 ;c1
  1039. 6100 bne notc1
  1040. 6105 setflg ora fsdflg
  1041. 6115 sta fsdflg
  1042. 6120 jmp $eb42
  1043. 6125 notc1 cpx #244 ;c0
  1044. 6130 bne notc0
  1045. 6135 clrflg eor #$ff
  1046. 6145 and fsdflg
  1047. 6150 sta fsdflg
  1048. 6155 jmp $eb42
  1049. 6160 notc0 cpx #240
  1050. 6165 bne notnsc
  1051. 6170 jsr noscrl
  1052. 6175 lda #0
  1053. 6180 sta vicprt
  1054. 6185 sta c1pra
  1055. 6190 scrwat lda c1prb
  1056. 6195 cmp c1prb
  1057. 6200 bne scrwat
  1058. 6205 and #$fb
  1059. 6210 eor #$fb
  1060. 6215 beq scrwat
  1061. 6220 jmp wat2
  1062. 6225 notnsc lda #4
  1063. 6230 cpx #245 ;a1
  1064. 6235 beq setflg
  1065. 6240 cpx #246 ;a0
  1066. 6245 beq clrflg
  1067. 6250 lda #8
  1068. 6255 cpx #247 ;l1
  1069. 6260 beq setflg
  1070. 6265 cpx #248 ;l0
  1071. 6270 beq clrflg
  1072. 6275 txa
  1073. 6277 ldx shtflg
  1074. 6280 cpx #5
  1075. 6285 bne noshct
  1076. 6290 ora #$80
  1077. 6295 noshct tax
  1078. 6300 cpy $c5
  1079. 6305 jmp $eae7
  1080. 6310 ktab1 .byt 243,"8","5",241,"2","4","7","1",027,"+","-",247
  1081. 6315 .byt 013,"6","9","3",014,"0",".",145,017,157,029,240
  1082. 6320 ktab2 .byt 244,"[178]","[219]",242,"[177]","[171]","[176]","[173]",027,"*","/",248
  1083. 6325 .byt "=","[179]","[174]","[189]",142,"[221]","[192]",145,017,157,029,240
  1084. 6330 ;">>> [195][197][206][212][210][207][206][201][195][211]: [206]eue [196]ruck-[210]outine
  1085. 6335 centlk pha
  1086. 6340 lda #1
  1087. 6345 sta $12
  1088. 6350 lda fsdflg
  1089. 6351 [175] #$fd
  1090. 6352 sta fsdflg
  1091. 6365 lsr
  1092. 6370 bcs ctn[128]
  1093. 6375 pla
  1094. 6380 ct[128] pha
  1095. 6385 cmp #$20
  1096. 6390 bcc ct[128]2
  1097. 6395 cmp #$60
  1098. 6400 bcs ct[128]2
  1099. 6405 [175] #$1f
  1100. 6410 cmp #$1f
  1101. 6415 beq ct[128]2
  1102. 6420 jsr keyoff
  1103. 6425 dec $12
  1104. 6430 ct[128]2 pla
  1105. 6435 jsr dathig
  1106. 6440 jmp $ed27
  1107. 6449 ctn[128] pla
  1108. 6450 cmp #$24
  1109. 6455 bne ct[128]
  1110. 6460 jsr keyoff
  1111. 6465 lda fsdflg
  1112. 6470 [176]a #2
  1113. 6475 sta fsdflg
  1114. 6480 clc
  1115. 6485 rts
  1116. 6490 cenout lda fsdflg
  1117. 6495 [175] #3
  1118. 6500 cmp #3
  1119. 6505 bne co[128]
  1120. 6510 lda #$ff
  1121. 6515 sta c2ddrb
  1122. 6520 lda iecbyt
  1123. 6525 jsr [164][198]
  1124. 6530 cenprt sta c2prb
  1125. 6535 lda c2pra
  1126. 6540 [175] #$fb
  1127. 6545 sta c2pra
  1128. 6550 [176]a #4
  1129. 6555 sta c2pra
  1130. 6560 cenwat lda #$7f
  1131. 6565 sta c1pra
  1132. 6570 cmp c1prb
  1133. 6575 beq censtp
  1134. 6580 lda c2icr
  1135. 6585 [175] #$10
  1136. 6590 beq cenwat
  1137. 6595 clc
  1138. 6600 censtp inc c2ddrb
  1139. 6605 cli
  1140. 6610 rts
  1141. 6615 co[128] jsr dathig
  1142. 6620 jmp $ed44
  1143. 6625 ;">>> chr$eaenderter (NULL)(NULL)(NULL)-peekefehl
  1144. 6630 newsys jsr chr(NULL)t
  1145. 6635 beq getds
  1146. 6640 jsr frmevl
  1147. 6645 bit numflg
  1148. 6650 bmi putcmd
  1149. 6655 jsr getadr
  1150. 6660 tax
  1151. 6665 bne oldsys
  1152. 6670 cpy #16
  1153. 6675 bcs oldsys
  1154. 6680 tya
  1155. 6685 stx $14
  1156. 6690 asl
  1157. 6695 asl
  1158. 6700 asl
  1159. 6705 asl
  1160. 6710 bne *+3
  1161. 6715 brk
  1162. 6720 sta $15
  1163. 6725 oldsys jmp $e130
  1164. 6730 getds jsr clrst
  1165. 6735 jsr getdn
  1166. 6740 jsr talk
  1167. 6745 lda #$6f
  1168. 6750 jsr sectlk
  1169. 6755 ldy status
  1170. 6760 bmi pcmerr
  1171. 6765 gds1 jsr iecin
  1172. 6770 jsr outscr
  1173. 6775 cmp #13
  1174. 6780 bne gds1
  1175. 6785 jmp untalk
  1176. 6790 putcmd jsr $e25a
  1177. 6795 jsr $e1e6
  1178. 6800 jsr clrst
  1179. 6805 lda (fnadr),y
  1180. 6810 cmp #"$"
  1181. 6815 beq sysdir
  1182. 6820 cmp #"l"
  1183. 6825 bne *+5
  1184. 6830 jmp syslst
  1185. 6835 jsr getdn
  1186. 6840 jsr lstn
  1187. 6845 lda #$6f
  1188. 6850 jsr seclsn
  1189. 6855 bit status
  1190. 6860 bmi pcmerr
  1191. 6865 jmp iecopn+$21
  1192. 6870 pcmerr lda #5 ;ill dev err
  1193. 6875 jmp $e0f9
  1194. 6880 sysdir sty sa
  1195. 6885 jsr putdn
  1196. 6890 jsr open
  1197. 6895 lda dn
  1198. 6900 jsr talk
  1199. 6905 lda #$60
  1200. 6910 jsr sectlk
  1201. 6915 ldy #5
  1202. 6920 .byt $2c
  1203. 6925 sdi1 ldy #3
  1204. 6930 sdi2 jsr iecinf
  1205. 6935 bne sdiend
  1206. 6940 dey
  1207. 6945 bne sdi2
  1208. 6950 tax
  1209. 6955 jsr iecin
  1210. 6960 jsr linprt
  1211. 6965 lda #" "
  1212. 6970 sdi3 jsr outscr
  1213. 6975 jsr iecinf
  1214. 6976 bne sdiend
  1215. 6977 tax
  1216. 6980 bne sdi3
  1217. 6985 jsr outcr
  1218. 6990 jsr tststp
  1219. 6995 beq sdiend
  1220. 7000 bne sdi1
  1221. 7005 sdiend ldy #0
  1222. 7010 sty numkey
  1223. 7015 jmp ieccls
  1224. 7020 ;
  1225. 7025 putscr ldx #1
  1226. 7030 stx $d4 ;"[209]uote-[205]ode =1
  1227. 7035 stx $d8 ;"right$nserts =1
  1228. 7040 jmp outscr
  1229. 7045 iecinf jsr iecin
  1230. 7050 jmp fnftst
  1231. 7055 ;
  1232. 7060 ;">>> [193]lte [193]dress-[203]opierung
  1233. 7065 [172][178]$fb8e
  1234. 7070 lda $c2
  1235. 7075 sta $ad
  1236. 7080 lda $c1
  1237. 7085 sta $ac
  1238. 7090 rts
  1239. 7095 ;
  1240. 7100 ;">>> chr$eaendertes (NULL)atn(NULL)val@
  1241. 7105 newrpl ldy #0
  1242. 7110 lda (fnadr),y
  1243. 7115 cmp #"@"
  1244. 7120 bne oldsav
  1245. 7125 lda #"s"
  1246. 7130 sta (fnadr),y
  1247. 7135 lda $9d
  1248. 7140 bpl nrnout
  1249. 7145 ldy #scrtxt-$f0bd
  1250. 7150 jsr $f12b
  1251. 7155 ldy #1
  1252. 7160 lda (fnadr),y
  1253. 7165 cmp #":"
  1254. 7170 bne *+3
  1255. 7175 iny
  1256. 7180 jsr $f5c7
  1257. 7185 nrnout lda #$6f
  1258. 7190 sta sa
  1259. 7195 jsr open
  1260. 7200 ldy #0
  1261. 7205 lda #"@"
  1262. 7210 sta (fnadr),y
  1263. 7215 lda #$61
  1264. 7220 sta sa
  1265. 7225 clc
  1266. 7230 nragai jsr incadr
  1267. 7235 bcs oldsav
  1268. 7240 cmp #":"
  1269. 7245 beq nragai
  1270. 7250 oldsav jmp open
  1271. 7255 ;">>> [198][211][196]: [213][206][212][193][204][203]/[213][206][204][201][211][212][197][206] [197]nde
  1272. 7260 un[195]d dec $12
  1273. 7265 bne unlok
  1274. 7270 jsr dathig
  1275. 7275 jsr key[145]
  1276. 7280 unlok jmp dathig
  1277. 7285 ;">>> asc(NULL)str$: (NULL)astensperrung ein/aus
  1278. 7290 keyoff lda fsdflg
  1279. 7295 ora #32
  1280. 7300 bne keyon+4
  1281. 7305 allon lda fsdflg
  1282. 7310 and #$ef
  1283. 7315 .byt $2c
  1284. 7320 keyon lda fsdflg
  1285. 7325 and #$df
  1286. 7330 sta fsdflg
  1287. 7335 rts
  1288. 7340 ;">>> [193]ppend-[210]outine
  1289. 7345 app[128] pha
  1290. 7350 cmp #0
  1291. 7355 bne n[176]mld
  1292. 7360 lda sa
  1293. 7365 cmp #5 ;"atnppend?
  1294. 7370 bne normld
  1295. 7375 lda #0
  1296. 7380 sta sa
  1297. 7385 lda vartab ;"[194][193][211][201][195]-[197]nde -2
  1298. 7390 ldy vartab[170]1
  1299. 7395 sbc #2
  1300. 7400 bcs [172][170]3
  1301. 7405 dey
  1302. 7410 tax
  1303. 7415 n[176]mld pla
  1304. 7420 jmp $ffd5 ;"(NULL)(NULL)atnstr$-(NULL)outine
  1305. 7425 ;">>> [211][217][211]-[204]ist-[210]outine
  1306. 7430 [158]lst jsr incadr
  1307. 7435 pha
  1308. 7440 jsr incadr
  1309. 7445 pla
  1310. 7450 cmp #"p"
  1311. 7455 beq [158]prg
  1312. 7460 cmp #"s"
  1313. 7465 beq [158]seq
  1314. 7470 jmp snerr
  1315. 7475 [158]seq clc
  1316. 7477 lda #$6e ;"(NULL)anal 14
  1317. 7478 .byt $2c
  1318. 7480 sysprg lda #$60 ;"[204][207][193][196]-[203]anal
  1319. 7482 php
  1320. 7490 sta sa
  1321. 7495 jsr putdn
  1322. 7500 jsr [159]
  1323. 7505 lda dn
  1324. 7510 jsr talk
  1325. 7515 lda sa
  1326. 7520 jsr sectlk
  1327. 7525 plp
  1328. 7530 bcs [158]p1
  1329. 7535 [158]s1 jsr iecinf
  1330. 7540 bne [158]cls
  1331. 7545 jsr putscr
  1332. 7550 jsr tststp
  1333. 7555 bne [158]s1
  1334. 7560 [158]cls jmp ieccls
  1335. 7565 [158]p1 ldy #3
  1336. 7570 .byt $2c
  1337. 7575 [158]p2 ldy #2
  1338. 7580 [158]p3 jsr iecinf
  1339. 7585 bne [158]ret
  1340. 7590 sta $49
  1341. 7595 jsr iecinf
  1342. 7600 bne [158]ret
  1343. 7605 dey
  1344. 7610 bne [158]p3
  1345. 7615 ldx $49
  1346. 7620 jsr linprt
  1347. 7625 ldy #[177]buf
  1348. 7630 sty $60
  1349. 7635 dey
  1350. 7640 sty $49
  1351. 7645 dey
  1352. 7650 sty $0b ;"(valxbasic-ascehler)
  1353. 7655 sty $0f
  1354. 7660 sty $5f
  1355. 7665 sty buf+1
  1356. 7670 sysp4 jsr iecinf
  1357. 7675 bne sysret
  1358. 7680 iny
  1359. 7685 beq sysret
  1360. 7690 sta buf+1,y
  1361. 7695 tax
  1362. 7700 bne sysp4
  1363. 7705 lda $0300
  1364. 7710 sta $0100
  1365. 7715 lda $0301
  1366. 7720 sta $0101
  1367. 7725 lda #<syspx
  1368. 7730 ldy #>syspx
  1369. 7735 sta $0300 ;"[210]ueckkehr sichern
  1370. 7740 sty $0301
  1371. 7745 lda $0303
  1372. 7750 cmp #$81 ;"valxb (NULL)right$right$?
  1373. 7755 beq *+5
  1374. 7760 jmp $a6ed ;"[194][193][211][201][195] [204][201][211][212]
  1375. 7765 jsr $9623 ;"valxbasic (NULL)right$right$ (NULL)right$(NULL)(NULL)
  1376. 7770 syspx lda $0100
  1377. 7775 sta $0300
  1378. 7780 lda $0101
  1379. 7785 sta $0301
  1380. 7790 jsr outcr
  1381. 7795 jsr tststp
  1382. 7800 bne sysp2
  1383. 7805 sysret jsr ieccls
  1384. 7810 lda chr(NULL)t+2 ;=txtptr+1
  1385. 7815 cmp #>(buf+$100)
  1386. 7820 bcs $fcd0
  1387. 7825 jsr $a82c ;"<[211][212][207][208]>?
  1388. 7830 jmp $e386
  1389. 7835 [128]prg [178][172][171]start[170]$801
  1390.