home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / 85xx / 8512.d64 / bsp.-quelltext (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  60 lines
  1. 30 .EQ ZEICHEN = $FC ;VARIABLEN VEREINBAREN
  2. 40 .EQ TEXTLO = $FA
  3. 50 .EQ TEXTHI = $FB
  4. 60 .EQ CHROUT = $FFD2
  5. 70 .EQ GET = $FFE4
  6. 80 ;
  7. 90 .BA $9000 ;STARTADRESSE=$9000
  8. 100 ;
  9. 110 LOOP JSRGET;AUF EINGABE WARTEN
  10. 120  BEQLOOP;WENN UNGLEICH 0 DANN WEITER
  11. 130 ;
  12. 140  STAZEICHEN;UND MERKEN
  13. 150  LDX#00;INDEXREGISTER X MIT 0 VORBELEGEN
  14. 160 LOOP1 LDATASTENTAB,X;ERSTES ZEICHEN AUS TABELLE HOLEN
  15. 170  CMPZEICHEN;UND MIT ZEICHEN VERGLEICHEN
  16. 180  BEQLOOP1END;WENN GLEICH DANN FERTIG
  17. 190  CMP#"#";SONST MIT ENDEZEICHEN VERGLEICHEN
  18. 200  BEQLOOP;BEI UEBEREINSTIMMUNG WIEDER AN DEN ANFANG
  19. 210  INX;SONST X-REGISTER UM 1 ERHOEEN
  20. 220  BNELOOP1;UND MIT NAECHSTEM ZEICHEN VERGLEICHEN
  21. 230 ;
  22. 240 LOOP1END LDAFUNKTABHI,X;ABHAENGIG VOM X-REGISTER HI-BYTE -1 DER ANZU-
  23. 250  PHA;SPRINGENDEN FUNKTION HOLEN UND AUF DEN STACK
  24. 260  LDAFUNKTABLO,X;DAS GLEICHE FUR DAS LO-BYTE
  25. 270  PHA
  26. 280  RTS;AN DIESER STELLE WIRD ZUR FUNKTION VERZWEIGT
  27. 290 ;
  28. 300 TASTE1 LDX#<(TEXT1);LO-BYTE STARTADRESSE DES 1.TEXTES INS X-REGISTER
  29. 310  LDY#>(TEXT1);HI-BYTE STARTADRESSE DES 1.TEXTES INS Y-REGISTER
  30. 320  JMPAUSGABE;TEXT AUSGEBEN
  31. 330 TASTE2 LDX#<(TEXT2);DAS GLEICHE FUER DEN 2.TEXT
  32. 340  LDY#>(TEXT2)
  33. 350  JMPAUSGABE
  34. 360 ;
  35. 370 TASTE3 RTS;BEI DIESER TASTE IN DEN BASICINTERPRETER VERZW.
  36. 380 ;
  37. 390 AUSGABE STXTEXTLO;LO-BYTE DES AUSGEWAEHLTEN TEXTES MERKEN
  38. 400  STYTEXTHI;DAS GLEICHE FUER DAS HI-BYTE
  39. 410 LOOPAUS LDY#00;Y-REGISTER MIT NULL VORBELEGEN
  40. 420  LDA(TEXTLO),Y;UND DEN AKKU MIT DEM ERSTEN ZEICHEN LADEN
  41. 430  CMP#"#";IST DAS ENDE SCHON ERREICHT?
  42. 440  BEQLOOPAUSE;WENN JA DANN FERTIG
  43. 450  JSRCHROUT;SONST ZEICHEN AUSGEBEN
  44. 460  INCTEXTLO;UND DEN ZEIGER TEXTLO UND HI UM 1 ERHOEEN
  45. 470  BNELOOPAUS
  46. 480  INCTEXTHI
  47. 490  JMPLOOPAUS
  48. 500 LOOPAUSE JMPLOOP;HIER WIRD WIEDER AN DEN ANFANG (EINGABE) VERZW.
  49. 510 ;
  50. 520 TASTENTAB .TX"123#"
  51. 530 ;
  52. 540 FUNKTABHI .BY>(TASTE1-1),>(TASTE2-1),>(TASTE3-1)
  53. 550 FUNKTABLO .BY<(TASTE1-1),<(TASTE2-1),<(TASTE3-1)
  54. 560 ;
  55. 570 TEXT1 .TX"DIES IST DER ERSTE TEXT"
  56. 580  .BY13,"#"
  57. 590 ;
  58. 600 TEXT2 .TX"DIES IST DER ZWEITE TEXT"
  59. 610  .BY13,"#"
  60.