home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8610b.d64 / vg-print.src (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  3KB  |  89 lines
  1. 50 SYS9*4096
  2. 100 ;
  3. 110 ;
  4. 120 ;
  5. 130 ;VIZAWRITE GRAFIKPRINT
  6. 140 ;    VERSION 3.0
  7. 150 ;
  8. 160 ;(C) 1986 MARKT&TECHNIK
  9. 170 ;
  10. 180 ;     WRITTEN BY
  11. 190 ;     RALF LENZ
  12. 200 ;   AM LANDGRABEN 12
  13. 210 ;  4290 BOCHOLT-BARLO
  14. 220 ;
  15. 230 .OPT OO
  16. 240 ;
  17. 250 *= $0365;STARTADRESSE DES PROGRAMMS
  18. 260 ;
  19. 270 PRINT  = $F1CA;AUSGABE EINES ZEICHENS
  20. 280 GRAPHCODE = $A8;CODE FUER GRAFIK
  21. 290 CR = $0D;CARRIAGE RETURN 
  22. 300 ;
  23. 310 INIT       LDA #<NEWOUT;OUTPUTVEKTOR AUF
  24. 320            STA $0326;EIGENE ROUTINE VERSTELLEN
  25. 330            LDA #>NEWOUT
  26. 340            STA $0327
  27. 350            RTS
  28. 360 ;
  29. 370 NEWOUT     PHA;ZU DRUCKENDES BYTE AUF STAPEL
  30. 380            LDA $9A;PRUEFEN, OB AUSGABE AUF DRUCKER
  31. 390            CMP #4
  32. 400            BNE NOPRINTER;AUSGABE NICHT AUF DRUCKER
  33. 410            PLA;DRUCKBYTE ZURUECKHOLEN
  34. 420            CMP #GRAPHCODE;PRUEFEN, OB GRAFIKZEILE
  35. 430            BNE NOGRAPHIK;NORMALER TEXTAUSDRUCK
  36. 440            STY YZW;Y-REGISTER ZWISCHENSPEICHERN
  37. 450            LDY #0
  38. 460            STY FLAG;FLAG FUER NIBBLE
  39. 470 BIN320     LDA TABELLE1,Y;DRUCKER AUF 320 BINAER-
  40. 480            JSR PRINT;DATEN EINSTELLEN
  41. 490            INY
  42. 500            CPY #5
  43. 510            BNE BIN320
  44. 520            LDY YZW;Y-REGISTER ZURUECKHOLEN
  45. 530            LDA #<GRAPHOUT;OUTPUTVEKTOR ERNEUT
  46. 540            STA $0326;VERSTELLEN FUER AUSGABE VON
  47. 550            LDA #>GRAPHOUT;GRAFIK
  48. 560            STA $0327;OUTPUTVEKTOR ERNEUT VERSTELLEN
  49. 570 EXIT       CLC
  50. 580            RTS
  51. 590 NOPRINTER  PLA;DRUCKBYTE ZURUECKHOLEN
  52. 600 NOGRAPHIC  JMP PRINT;NORMALE OUTPUT-ROUTINE
  53. 610 ;
  54. 620 GRAPHOUT   CMP #GRAPHCODE;PRUEFEN, OB ZEILENENDE
  55. 630            BNE G1
  56. 640            CLC;ENDE DER GRAFIKZEILE ERREICHT.
  57. 650            JMP INIT;OUTPUT-VEKTOR ZURUECKSTELLEN
  58. 660 G1         CMP #63;PRUEFEN, OB ILLEGALER CODE (0-63)
  59. 670            BCC EXIT
  60. 680            AND #%00001111;NUR UNTERES NIBBLE VERWENDEN
  61. 690            PHA; UND AUF STAPEL
  62. 700            LDA FLAG;OBERES ODER UNTERES NIBBLE
  63. 710            BNE NIBBLE2
  64. 720 ;
  65. 730 NIBBLE1    INC FLAG;FLAG=1
  66. 740            PLA;NIBBLE ZURUECKHOLEN
  67. 750            STA STORE;UND ZWISCHENSPEICHERN
  68. 760            CLC
  69. 770            RTS
  70. 780 ;
  71. 790 NIBBLE2    DEC FLAG;FLAG=0
  72. 800            PLA;NIBBLE ZURUECKHOLEN
  73. 810            ASL;UND UM 4 BIT NACH LINKS SCHIEBEN
  74. 820            ASL:ASL:ASL
  75. 830            ORA STORE;VERKNUEPFEN MIT UNTEREM NIBBLE
  76. 840            JSR PRINT;UND AUSGEBEN
  77. 850            RTS
  78. 860 ;
  79. 870 YZW        .BYTE 00;ZWISCHENSPEICHER FUER Y-REGISTER
  80. 880 TABELLE1   .BYTE $1B;ESCAPE SENDEN
  81. 881 .BYTE $2A;'*' FUER 8-NADEL-BITMUSTER-MODUS
  82. 882 .BYTE $06;MODUS 0-6 ANWAEHLEN,HIER 6 VOREINGESTELLT
  83. 883 .BYTE $40,$01;320-PUNKTE-DICHTE
  84. 890 STORE      .BYTE 00;SPEICHER FUER GRAFIKBYTE
  85. 900 FLAG       .BYTE 00;FLAG FUER OBERES/UNTERES NIBBLE
  86. 910 ;
  87. 920 ;
  88. 930 ;
  89.