home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 94xx / 9403a.d64 / assembler-bib. < prev    next >
Text File  |  1995-03-30  |  3KB  |  98 lines
  1. ;==============================
  2. ;=                            =
  3. ;=ZEICHENSATZ INITIALISIEREN  =
  4. ;=UND SETZEN (W) BY PIT       =
  5. ;=                            =
  6. ;==============================
  7.  
  8. :ZSIN   LDA #$1C   ;$1C STEHT FUER ADRESSE $3800
  9.         STA $D018  ;UND IN $D018 SCHREIBEN. ANHAND
  10.                    ;DIESER ADRESSE, "WEISS" DER
  11.                    ;VIC, WO ER DEN ├HARSET SUCHEN
  12.                    ;MUSS
  13.         LDA #$0F   ;FARBWERTE FUER FARBE ZWEI UND
  14.         STA $D022  ;DREI IN DIE BEIDEN ENTSPRECH-
  15.         LDA #$0C   ;ENDEN VIC-REGISTER SCHREIBEN
  16.         STA $D023  ;FARBE 3 MUSS IM ╞ARB-RAM
  17.                    ;GESETZT WERDEN
  18.         LDA #$18   ;MULTICOLOR EINSCHALTEN
  19.         STA $D016  ;
  20.         RTS        ;UND ZURUECK
  21.  
  22.  
  23. ;==============================
  24. ;=                            =
  25. ;=ZEICHENSATZ WIEDER          =
  26. ;=ZURUECKSETZEN (W) BY PIT    =
  27. ;=                            =
  28. ;==============================
  29.  
  30. :RESET  LDA #$C8   ;MULTICOLOR-REGISTER AUF
  31.         STA $D016  ;NORMALWERT ZURUECKSTELLEN
  32.         LDA #$15   ;NORMALEN ZEICHENSATZ
  33.         STA $D018  ;WIEDER EINSCHALTEN
  34.         JSR $E544  ;BILDSCHIRM KOMPLETT
  35.                    ;LOESCHEN
  36.         RTS        ;ZURUECK
  37.  
  38.  
  39. ;==============================
  40. ;=                            =
  41. ;=INTEGER-ZAHL AUSGEBEN       =
  42. ;=(W) BY PIT                  =
  43. ;=                            =
  44. ;==============================
  45.  
  46. :INTE  LDA #$00   ;ZAHL WIRD
  47.        STA $D6    ;AN AUSGEGE-
  48.        LDA #$00   ;BEN AN CURSOR
  49.        STA $D3    ;POSITION
  50.  
  51.        LDX #$00   ;LB
  52.        LDA #$00   ;HB
  53.        JSR $BDCD
  54.        RTS
  55.  
  56.  
  57. ;==============================
  58. ;=                            =
  59. ;=EINFACHE TEXTAUSGABE        =
  60. ;=(W) BY PIT                  =
  61. ;=                            =
  62. ;==============================
  63.  
  64. :TXTO  LDX #$00     ;
  65. :TXO2  LDA $0000,X  ;TEXTADRESSE (DASS KANN
  66.                     ;ZUM BEISPIEL AUCH EIN
  67.                     ;LABEL SEIN UND
  68.        JSR $FFD2    ;TEXT PER BETRIEBSSYSTEM
  69.                     ;AUSGEBEN
  70.        INX          ;ZAEHLER ERHOEHEN
  71.        CPX #$00     ;WENN ANZAHL DER BYTES 
  72.                     ;ERREICHT
  73.        BNE TXO2     ;
  74.        RTS          ;GEHT ES WIEDER ZURUECK
  75.  
  76.  
  77. ;==============================
  78. ;=                            =
  79. ;=STRINGAUSGABE (AM ENDE MUSS =
  80. ;=EIN NULLBYTE STEHEN (W) PIT =
  81. ;=                            =
  82. ;==============================
  83.  
  84. :STRI  LDA #$00   ;CURSOR SETZEN
  85.        STA $D6    ;(DIE BETRIEBSSYSTEM-
  86.        LDA #$00   ;ROUTINE BRAUCHT IN
  87.        STA $D3    ;DIESEM FALL NICHT 
  88.                   ;AUFGERUFEN ZU WERDEN
  89.  
  90.        LDA #$00   ;LB
  91.        LDY #$00   ;HB
  92.        JSR $AB1E  ;$ MUSS $00-BYTE AM ENDE HABEN
  93.        RTS
  94.  
  95.  
  96.  
  97.  
  98.