home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8504a.d64 / ep-sup.sou (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  11KB  |  660 lines
  1. 100 " .BA $C000 ;PC SETZEN
  2. 105 " ;***********************************
  3. 110 " ; E P S O N - S U P P O R T
  4. 115 " ;
  5. 120 " ;VERSION 1.7 (C)1984 BY A.DEL PINO
  6. 125 " ;
  7. 130 " ;***********************************
  8. 131 " ;
  9. 132 " ;VARIABLEN & SYSTEMADRESSEN
  10. 133 " ;
  11. 135 "HELP = $033C
  12. 140 "YVALUE = $14
  13. 145 "XVALUE = $033C
  14. 150 "X1 = $0350
  15. 155 "Y1 = X1+2
  16. 160 "X2 = X1+4
  17. 165 "Y2 = X1+6
  18. 170 "XSTEP = X1+8
  19. 175 "YSTEP = X1+10
  20. 180 "XDIFF = X1+12
  21. 185 "YDIFF = X1+14
  22. 190 "SUM = X1+16
  23. 195 "XMAX = 800
  24. 200 "YMAX = 552
  25. 205 "DISABLE = $34 ;ROM AUSBLENDEN
  26. 210 "ENABLE = 55 ;ROM EINBLENDEN
  27. 215 "FLAG = X1+18
  28. 220 "BITPOS = X1+19
  29. 225 "FLAG1 = X1+23
  30. 230 "FLAG2 = X1+24
  31. 235 "FLAG3 = X1+25
  32. 240 "LENGH = X1+26
  33. 245 "LINETYP = X1+27
  34. 246 " ;
  35. 247 " ;PROGRAMMSTART, ZEIGER VERBIEGEN
  36. 248 " ;
  37. 250 " LDA #<ESUP
  38. 255 " LDY #>ESUP
  39. 260 " STA $0308
  40. 265 " STY $0309
  41. 270 " LDA #<8190
  42. 275 " LDY #>8190
  43. 280 " STA $33
  44. 285 " STY $34
  45. 290 " STA $37
  46. 295 " STY $38
  47. 296 " ;
  48. 297 " ;PROMPT AUSGEBEN
  49. 298 " ;
  50. 300 " LDA #<PROMPT
  51. 305 " LDY #>PROMPT
  52. 310 " JMP $AB1E
  53. 311 " ;
  54. 312 " ;BASIC-TOKEN ERKENNEN
  55. 313 " ;
  56. 315 "ESUP JSR $73
  57. 320 " CMP #'&'
  58. 325 " BEQ SUPPORT
  59. 330 " JSR $79
  60. 335 " JMP $A7E7
  61. 340 "SUPPORT LDX #$FF
  62. 345 " LDY #0
  63. 350 " STY FLAG
  64. 355 "SLOOP INX
  65. 360 " INY
  66. 365 " LDA @STMTAB,X
  67. 370 " BEQ NEWSTMT
  68. 375 " CMP ($7A),Y
  69. 380 " BEQ SLOOP
  70. 385 "NXT INX
  71. 390 " LDA @STMTAB,X
  72. 395 " BNE NXT
  73. 400 " INC FLAG
  74. 405 " LDY #0
  75. 410 " LDA @STMTAB+1,X
  76. 415 " BNE SLOOP
  77. 420 " JMP $AF08
  78. 425 "NEWSTMT DEY
  79. 430 " CLC
  80. 435 " TYA
  81. 440 " ADC $7A
  82. 445 " STA $7A
  83. 450 " BCC L1
  84. 455 " INC $7B
  85. 456 " ;
  86. 457 " ;RETURN-ADRESSE AUF DEN STACK
  87. 458 " ;
  88. 460 "L1 LDA #$A7
  89. 465 " PHA
  90. 470 " LDA #$E9
  91. 475 " PHA
  92. 480 " LDA FLAG
  93. 485 " ASL
  94. 490 " TAX
  95. 495 " LDA @ENTRY+1,X
  96. 496 " ;
  97. 497 " ;ADRESSE DES NEUEN BEFEHLS AUF DEN STACK
  98. 500 " PHA
  99. 505 " LDA @ENTRY,X
  100. 510 " PHA
  101. 515 " JMP $73
  102. 516 " ;
  103. 517 " ;HIER SIND DIE NEUEN BEFEHLE...
  104. 518 " ;
  105. 520 " ;**************************
  106. 525 " ;
  107. 530 " ; &CLEAR
  108. 535 " ;
  109. 540 " ;**************************
  110. 545 "CLEAR LDA #<8192
  111. 550 " LDY #>8192
  112. 555 " STA $FB
  113. 560 " STY $FC
  114. 565 " SEI
  115. 570 " LDA #DISABLE
  116. 575 " STA 1
  117. 580 " LDY #0
  118. 585 " TYA
  119. 590 "CL1 STA ($FB),Y
  120. 595 " INY
  121. 600 " BNE CL1
  122. 605 " INC $FC
  123. 610 " LDX $FC
  124. 615 " CPX #$C0
  125. 620 " BNE CL1
  126. 625 " LDX #$C8
  127. 630 " STX $FC
  128. 635 "CL2 STA ($FB),Y
  129. 640 " INY
  130. 645 " BNE CL2
  131. 650 " INC $FC
  132. 655 " BNE CL2
  133. 660 " LDA #ENABLE
  134. 665 " STA 1
  135. 670 " CLI
  136. 675 " RTS
  137. 680 " ;**************************
  138. 685 " ;
  139. 690 " ; DOT - BEFEHLE
  140. 695 " ;
  141. 700 " ;**************************
  142. 705 "DOT LDA #0
  143. 710 " STA FLAG
  144. 715 " JSR VALUE+3
  145. 720 " STA XVALUE
  146. 725 " STY XVALUE+1
  147. 730 " JSR VALUE
  148. 735 "WORKDOT CPY #>YMAX
  149. 740 " BCC SE1
  150. 745 " CMP #<YMAX
  151. 750 " BCC SE1
  152. 755 " RTS
  153. 756 " ;
  154. 757 " ;ADRESSE DES PUNKTES BERECHNEN
  155. 758 " ;
  156. 760 "SE1 STA @HELP+2
  157. 765 " STY @HELP+3
  158. 770 " LDY #3
  159. 775 "SE2 CLC
  160. 780 " LSR @HELP+3
  161. 785 " ROR @HELP+2
  162. 790 " DEY
  163. 795 " BNE SE2
  164. 800 " CLC
  165. 805 " LDA @HELP+2
  166. 810 " ADC #>8192
  167. 815 " STA $FC
  168. 820 " LDA @HELP+2
  169. 825 " STA $FB
  170. 830 " ASL
  171. 835 " ADC $FC
  172. 840 " STA $FC
  173. 845 " LDA #0
  174. 850 " ASL $FB
  175. 855 " ROL
  176. 860 " ASL $FB
  177. 865 " ROL
  178. 870 " ASL $FB
  179. 875 " ROL
  180. 880 " ASL $FB
  181. 885 " ROL
  182. 890 " ASL $FB
  183. 895 " ROL
  184. 900 " ADC $FC
  185. 905 " STA $FC
  186. 910 "SE4 LDA $14
  187. 915 " AND #7
  188. 920 " TAX
  189. 925 " LDA @BIT,X
  190. 930 " STA BITPOS
  191. 935 " LDA XVALUE
  192. 940 " LDY XVALUE+1
  193. 945 " CPY #>XMAX
  194. 950 " BCC SE5
  195. 955 " CMP #<XMAX
  196. 960 " BCC SE5
  197. 965 " RTS
  198. 970 "SE5 ADC $FB
  199. 975 " STA $FB
  200. 980 " TYA
  201. 985 " ADC $FC
  202. 990 " CMP #$C0
  203. 995 " BCC SE6
  204. 1000 " ADC #7
  205. 1005 "SE6 STA $FC
  206. 1010 " SEI
  207. 1011 " ;
  208. 1012 " ;ROM AUSBLENDEN
  209. 1013 " ;
  210. 1015 " LDA #DISABLE
  211. 1020 " STA 1
  212. 1025 " LDY #0
  213. 1030 " BIT FLAG
  214. 1035 " BPL DOT0X
  215. 1040 " BVC INVERT
  216. 1041 " ;
  217. 1042 " ;PUNKT TESTEN 'BITTEST'
  218. 1043 " ;
  219. 1045 " LDA BITPOS
  220. 1050 " LDX #0
  221. 1055 " AND ($FB),Y
  222. 1060 " BEQ TS1
  223. 1065 " DEX
  224. 1070 "TS1 STX FLAG
  225. 1075 " JMP ENDDOT
  226. 1076 " ;
  227. 1077 " ;PUNKT INVERTIEREN
  228. 1078 " ;
  229. 1080 "INVERT LDA BITPOS
  230. 1085 " EOR ($FB),Y
  231. 1090 " STA ($FB),Y
  232. 1095 " JMP ENDDOT
  233. 1100 "DOT0X BVC SET
  234. 1101 " ;
  235. 1102 " ;PUNKT ZURUECKSETZEN
  236. 1103 " ;
  237. 1105 " LDA BITPOS
  238. 1110 " EOR #$FF
  239. 1115 " AND ($FB),Y
  240. 1120 " STA ($FB),Y
  241. 1125 " JMP ENDDOT
  242. 1126 " ;
  243. 1127 " ;PUNKT SETZEN
  244. 1128 " ;
  245. 1130 "SET LDA BITPOS
  246. 1135 " ORA ($FB),Y
  247. 1140 " STA ($FB),Y
  248. 1145 "ENDDOT LDA #ENABLE
  249. 1150 " STA 1
  250. 1155 " CLI
  251. 1160 " RTS
  252. 1165 " ;**************************
  253. 1170 " ;
  254. 1175 " ; &PRINT
  255. 1180 " ;
  256. 1185 " ;**************************
  257. 1186 " ;USERPORT-INTERFACE DURCH GEEIGNTES
  258. 1187 " ;SETZEN DER PORTBAUSTEIN-REGISTER
  259. 1188 " ;INITIALISIEREN. BEI DRUCKERN AM SERIELLEN BUS MUSS
  260. 1189 " ;HIER EIN FILE AUF DEN DRUCKER EROEFFNET WERDEN.
  261. 1190 "HARDCOPY SEI
  262. 1195 " LDA #$FF
  263. 1200 " STA $DD03
  264. 1205 " LDA $DD02
  265. 1210 " ORA #4
  266. 1215 " STA $DD02
  267. 1220 " LDA $DD00
  268. 1225 " ORA #4
  269. 1230 " STA $DD00
  270. 1235 " LDA #$10
  271. 1240 " STA $DD0D
  272. 1245 " LDA $DD0D
  273. 1250 " CLI
  274. 1251 " ;STEUERCODES FUER EPSON RX-80 AUSGEBEN
  275. 1255 " LDX #5
  276. 1260 "HC0 LDA @TABLE1,X
  277. 1265 " JSR CWROUT
  278. 1270 " DEX
  279. 1275 " BPL HC0
  280. 1280 " LDA #<8192
  281. 1285 " LDY #>8192
  282. 1290 " STA $FB
  283. 1295 " STY $FC
  284. 1300 " LDA #0
  285. 1305 " STA $FD
  286. 1306 " ;STEUERCODES FUER NEUE GRAFIKZEILE AUSGEBEN
  287. 1310 "HC1 LDX #0
  288. 1315 " LDA @TABLE2,X
  289. 1320 " JSR CWROUT
  290. 1325 " INX
  291. 1330 " CPX #14
  292. 1335 " BNE HC1+2
  293. 1336 " ;EINE GRAFIKZEILE (8*800 DOTS) AUSGEBEN
  294. 1340 " LDX #0
  295. 1345 "HC2 JSR WROUT
  296. 1350 " INX
  297. 1355 " BNE HC2
  298. 1360 "HC3 JSR WROUT
  299. 1365 " INX
  300. 1370 " BNE HC3
  301. 1375 "HC4 JSR WROUT
  302. 1380 " INX
  303. 1385 " BNE HC4
  304. 1390 "HC5 JSR WROUT
  305. 1395 " INX
  306. 1400 " CPX #<XMAX
  307. 1405 " BNE HC5
  308. 1410 " INC $FD
  309. 1415 " LDA $FD
  310. 1420 " CMP #69
  311. 1425 " BNE HC1
  312. 1430 " RTS
  313. 1431 " ;ROM AUSBLENDEN
  314. 1435 "WROUT SEI
  315. 1440 " LDA #DISABLE
  316. 1445 " STA 1
  317. 1446 " ;ADRESSE DES AUSZUGEBENDEN PUNKTES BERECHNEN
  318. 1450 " CLC
  319. 1455 " LDA $FB
  320. 1460 " ADC #<$800
  321. 1465 " STA $FE
  322. 1470 " LDA $FC
  323. 1475 " ADC #>$800
  324. 1480 " STA $FF
  325. 1485 " LDY #0
  326. 1490 " LDA $FC
  327. 1495 " CMP #$C0
  328. 1500 " BCS WR1
  329. 1505 " LDA ($FB),Y
  330. 1510 " .BY $2C
  331. 1515 "WR1 LDA ($FE),Y
  332. 1520 " INC $FB
  333. 1525 " BNE WR2
  334. 1530 " INC $FC
  335. 1531 " ;ROM WIEDER EINBLENDEN
  336. 1535 "WR2 LDY #ENABLE
  337. 1540 " STY 1
  338. 1545 " CLI
  339. 1546 " ;GEBE ASCII-ZEICHEN IM ACCU AUS
  340. 1547 " ;BEI DRUCKERN MIT SERIELLER SCHNITTSTELLE
  341. 1548 " ;MUSS HIER 'JMP $FFD2' STEHEN
  342. 1549 " ;UND DANACH AUCH EIN 'RTS'
  343. 1550 "CWROUT STA $DD01
  344. 1555 " LDA $DD00
  345. 1560 " AND #$FB
  346. 1565 " STA $DD00
  347. 1570 " ORA #4
  348. 1575 " STA $DD00
  349. 1580 "WAIT LDA $DD0D
  350. 1585 " AND #$10
  351. 1590 " BEQ WAIT
  352. 1595 " CLC
  353. 1600 " RTS
  354. 1605 " ;**************************
  355. 1610 " ;
  356. 1615 " ; LINE-BEFEHLE
  357. 1620 " ;
  358. 1625 " ;**************************
  359. 1630 "LINE LDA #0
  360. 1635 " STA FLAG
  361. 1640 " LDA #0
  362. 1645 " STA LINETYP
  363. 1650 " JSR VALUE+3
  364. 1655 " STA X1
  365. 1660 " STY X1+1
  366. 1665 " JSR VALUE
  367. 1670 " STA Y1
  368. 1675 " STY Y1+1
  369. 1680 " JSR VALUE
  370. 1685 " STA X2
  371. 1690 " STY X2+1
  372. 1695 " JSR VALUE
  373. 1700 " STA Y2
  374. 1705 " STY Y2+1
  375. 1710 " LDX #1
  376. 1715 " LDY #0
  377. 1720 " SEC
  378. 1725 " LDA X2
  379. 1730 " SBC X1
  380. 1735 " STA XDIFF
  381. 1740 " LDA X2+1
  382. 1745 " SBC X1+1
  383. 1750 " STA XDIFF+1
  384. 1755 " BPL LI1
  385. 1760 " DEX
  386. 1765 " DEX
  387. 1770 " DEY
  388. 1775 " EOR #$FF
  389. 1780 " STA XDIFF+1
  390. 1785 " LDA XDIFF
  391. 1790 " EOR #$FF
  392. 1795 " STA XDIFF
  393. 1800 " INC XDIFF
  394. 1805 " BNE LI1
  395. 1810 " INC XDIFF+1
  396. 1815 "LI1 STX XSTEP
  397. 1820 " STY XSTEP+1
  398. 1825 " LDX #1
  399. 1830 " LDY #0
  400. 1835 " SEC
  401. 1840 " LDA Y2
  402. 1845 " SBC Y1
  403. 1850 " STA YDIFF
  404. 1855 " LDA Y2+1
  405. 1860 " SBC Y1+1
  406. 1865 " STA YDIFF+1
  407. 1870 " BPL LI2
  408. 1875 " DEX
  409. 1880 " DEX
  410. 1885 " DEY
  411. 1890 " EOR #$FF
  412. 1895 " STA YDIFF+1
  413. 1900 " LDA YDIFF
  414. 1905 " EOR #$FF
  415. 1910 " STA YDIFF
  416. 1915 " INC YDIFF
  417. 1920 " BNE LI2
  418. 1925 " INC YDIFF+1
  419. 1930 "LI2 STX YSTEP
  420. 1935 " STY YSTEP+1
  421. 1940 " LDY #0
  422. 1945 " LDA XDIFF
  423. 1950 " ORA XDIFF+1
  424. 1955 " BNE LI3
  425. 1960 " DEY
  426. 1965 "LI3 STY SUM
  427. 1970 " STY SUM+1
  428. 1975 "LI4 LDA X1
  429. 1980 " LDY X1+1
  430. 1985 " STA XVALUE
  431. 1990 " STY XVALUE+1
  432. 1995 " LDA Y1
  433. 2000 " LDY Y1+1
  434. 2005 " STA YVALUE
  435. 2010 " STY YVALUE+1
  436. 2015 " JSR SCANN
  437. 2020 " JSR WORKDOT
  438. 2025 " LDA X1
  439. 2030 " CMP X2
  440. 2035 " BNE LI5
  441. 2040 " LDA X1+1
  442. 2045 " CMP X2+1
  443. 2050 " BNE LI5
  444. 2055 " LDA Y1
  445. 2060 " CMP Y2
  446. 2065 " BNE LI5
  447. 2070 " LDA Y1+1
  448. 2075 " CMP Y2+1
  449. 2080 " BNE LI5
  450. 2085 " RTS
  451. 2090 "LI5 BIT SUM+1
  452. 2095 " BPL LI6
  453. 2100 " CLC
  454. 2105 " LDA Y1
  455. 2110 " ADC YSTEP
  456. 2115 " STA Y1
  457. 2120 " LDA Y1+1
  458. 2125 " ADC YSTEP+1
  459. 2130 " STA Y1+1
  460. 2135 " CLC
  461. 2140 " LDA SUM
  462. 2145 " ADC XDIFF
  463. 2150 " STA SUM
  464. 2155 " LDA SUM+1
  465. 2160 " ADC XDIFF+1
  466. 2165 " STA SUM+1
  467. 2170 " JMP LI4
  468. 2175 "LI6 CLC
  469. 2180 " LDA X1
  470. 2185 " ADC XSTEP
  471. 2190 " STA X1
  472. 2195 " LDA X1+1
  473. 2200 " ADC XSTEP+1
  474. 2205 " STA X1+1
  475. 2210 " SEC
  476. 2215 " LDA SUM
  477. 2220 " SBC YDIFF
  478. 2225 " STA SUM
  479. 2230 " LDA SUM+1
  480. 2235 " SBC YDIFF+1
  481. 2240 " STA SUM+1
  482. 2245 " JMP LI4
  483. 2250 "VALUE JSR $AEFD
  484. 2255 " JSR $AD8A
  485. 2260 " JSR $B7F7
  486. 2265 " LDA $14
  487. 2270 " LDY $15
  488. 2275 " RTS
  489. 2276 " ;FLAG SETZEN FUER MODIFIZIERTEN PUNKT- UND LINIEN-FUNKTIONEN
  490. 2280 "RESETDOT LDA #$40
  491. 2285 " JMP DOT+2
  492. 2290 "INVERTDOT LDA #$80
  493. 2295 " JMP DOT+2
  494. 2300 "RESETLINE LDA #$40
  495. 2305 " JMP LINE+2
  496. 2310 "INVERTLINE LDA #$80
  497. 2315 " JMP LINE+2
  498. 2320 " ;**************************
  499. 2325 " ;
  500. 2330 " ; &EXIT
  501. 2335 " ;
  502. 2340 " ;**************************
  503. 2341 " ;ZEIGER WIEDER 'GERADEBIEGEN'
  504. 2345 "EXIT LDY #$A7
  505. 2350 " LDA #$E4
  506. 2355 " STA $0308
  507. 2360 " STY $0309
  508. 2365 " SEC
  509. 2370 " JSR $FF99
  510. 2375 " STX $37
  511. 2380 " STY $38
  512. 2385 " JMP $E39A ;SYSTEM AUFRUFEN
  513. 2386 " ; TEXT-BEFEHLE, FLAG SETZEN
  514. 2390 "INVTEXT LDA #$80
  515. 2395 " .BY $2C
  516. 2400 "RESTEXT LDA #$40
  517. 2405 " .BY $2C
  518. 2410 "TEXT LDA #0
  519. 2415 " STA FLAG
  520. 2420 " JSR VALUE+3
  521. 2425 " STA X1
  522. 2430 " STY X1+1
  523. 2435 " JSR VALUE
  524. 2440 " STA Y1
  525. 2445 " STY Y1+1
  526. 2450 " JSR STRING
  527. 2455 " BNE TXT1
  528. 2460 " RTS
  529. 2465 "TXT1 STA LENGH
  530. 2470 " STY FLAG3
  531. 2475 "TXT2 LDY FLAG3
  532. 2480 " LDA ($64),Y
  533. 2485 " CMP #$20
  534. 2490 " BCC TXT3
  535. 2495 " CMP #$40
  536. 2500 " BCC TXT3+2
  537. 2505 " CMP #$60
  538. 2510 " BCS TXT3
  539. 2515 " AND #$1F
  540. 2520 " .BY $2C
  541. 2525 "TXT3 LDA #$20
  542. 2530 " STA 2
  543. 2535 " LDA #$1A
  544. 2540 " ASL 2
  545. 2545 " ROL
  546. 2550 " ASL 2
  547. 2555 " ROL
  548. 2560 " ASL 2
  549. 2565 " ROL
  550. 2570 " STA 3
  551. 2575 " SEI
  552. 2580 " LDA #$31
  553. 2585 " STA 1
  554. 2590 " LDY #7
  555. 2595 "TXT4 LDA (2),Y
  556. 2600 " STA $200,Y
  557. 2605 " DEY
  558. 2610 " BPL TXT4
  559. 2615 " LDA #ENABLE
  560. 2620 " STA 1
  561. 2625 " CLI
  562. 2630 " LDA #0
  563. 2635 " STA FLAG1
  564. 2640 "TXT5 LDA #7
  565. 2645 " STA FLAG2
  566. 2650 "TXT6 LDX FLAG2
  567. 2655 " LDA $200,X
  568. 2660 " LDX FLAG1
  569. 2665 " AND @BIT,X
  570. 2670 " BEQ TXT8
  571. 2675 " LDA X1
  572. 2680 " LDY X1+1
  573. 2685 " STA XVALUE
  574. 2690 " STY XVALUE+1
  575. 2695 " LDY Y1+1
  576. 2700 " LDA FLAG2
  577. 2705 " CLC
  578. 2710 " ADC Y1
  579. 2715 " STA $14
  580. 2720 " BCC TXT7
  581. 2725 " INY
  582. 2730 "TXT7 JSR WORKDOT
  583. 2735 "TXT8 DEC FLAG2
  584. 2740 " BPL TXT6
  585. 2745 " INC X1
  586. 2750 " BNE TXT9
  587. 2755 " INC X1+1
  588. 2760 "TXT9 INC FLAG1
  589. 2765 " LDX FLAG1
  590. 2770 " CPX #8
  591. 2775 " BNE TXT5
  592. 2780 " INC FLAG3
  593. 2785 " LDA FLAG3
  594. 2790 " CMP LENGH
  595. 2795 " BNE TXT10
  596. 2800 " RTS
  597. 2805 "TXT10 JMP TXT2
  598. 2810 "STRING JSR $AEFD
  599. 2815 " JSR $AD9E
  600. 2820 " JSR $B6A3
  601. 2825 " LDY #0
  602. 2830 " LDA ($64),Y
  603. 2835 " STA $63
  604. 2840 " INY
  605. 2845 " LDA ($64),Y
  606. 2850 " TAX
  607. 2855 " INY
  608. 2860 " LDA ($64),Y
  609. 2865 " STA $65
  610. 2870 " STX $64
  611. 2875 " LDY #0
  612. 2880 " LDA $63
  613. 2885 " RTS
  614. 2890 "SCANN BIT LINETYP
  615. 2895 " BMI SCA1
  616. 2900 " RTS
  617. 2905 "SCA1 LDX #$F0
  618. 2910 " STX FLAG
  619. 2915 " JSR WORKDOT
  620. 2920 " LDA Y1
  621. 2925 " LDY Y1+1
  622. 2930 " STA $14
  623. 2935 " BIT FLAG
  624. 2940 " BPL SCA2
  625. 2945 " PLA
  626. 2950 " PLA
  627. 2955 " RTS
  628. 2960 "SCA2 LDX #0
  629. 2965 " STX FLAG
  630. 2970 " RTS
  631. 2975 "SCANNLN LDA #$FF
  632. 2980 " JMP LINE+7
  633. 2985 " ;**************************
  634. 2990 " ;
  635. 2995 " ; D A T E N B E R E I C H
  636. 3000 " ;
  637. 3005 " ;**************************
  638. 3010 "BIT .BY 128 64 32 16 8 4 2 1
  639. 3015 "TABLE1 .BY 13 8 'A' 27 '8' 27
  640. 3020 "TABLE2 .BY 10 13 '       ' 27 '*' 1 XMAX
  641. 3025 "PROMPT .BY 'EPSON-SUPPORT  V1.7  ***' 13
  642. 3030 " .BY '(C)1984 BY ALEX DEL PINO' 13 0
  643. 3035 "STMTAB .BY 'CLEAR' 0
  644. 3040 " .BY 'DOT' 0
  645. 3045 " .BY 'RESETDOT' 0
  646. 3050 " .BY 'INVDOT' 0
  647. 3055 " .BY 'LINE' 0
  648. 3060 " .BY 'RESETLINE' 0
  649. 3065 " .BY 'INVLINE' 0
  650. 3070 " .BY 153 0
  651. 3075 " .BY 'EXIT' 0
  652. 3080 " .BY 'TEXT' 0
  653. 3085 " .BY 'INVTEXT' 0
  654. 3090 " .BY 'RESETTEXT' 0
  655. 3095 " .BY 'SCANLINE' 0 0
  656. 3100 "ENTRY .BY CLEAR-1 DOT-1 RESETDOT-1 INVERTDOT-1
  657. 3105 " .BY LINE-1 RESETLINE-1 INVERTLINE-1 HARDCOPY-1 EXIT-1
  658. 3110 " .BY TEXT-1 INVTEXT-1 RESTEXT-1 SCANNLN-1
  659. 3115 " .EN ;END OF SOURCE-FILE
  660.