home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
94xx
/
9403a.d64
/
assembler-bib.
< prev
next >
Wrap
Text File
|
1995-03-30
|
3KB
|
98 lines
;==============================
;= =
;=ZEICHENSATZ INITIALISIEREN =
;=UND SETZEN (W) BY PIT =
;= =
;==============================
:ZSIN LDA #$1C ;$1C STEHT FUER ADRESSE $3800
STA $D018 ;UND IN $D018 SCHREIBEN. ANHAND
;DIESER ADRESSE, "WEISS" DER
;VIC, WO ER DEN ├HARSET SUCHEN
;MUSS
LDA #$0F ;FARBWERTE FUER FARBE ZWEI UND
STA $D022 ;DREI IN DIE BEIDEN ENTSPRECH-
LDA #$0C ;ENDEN VIC-REGISTER SCHREIBEN
STA $D023 ;FARBE 3 MUSS IM ╞ARB-RAM
;GESETZT WERDEN
LDA #$18 ;MULTICOLOR EINSCHALTEN
STA $D016 ;
RTS ;UND ZURUECK
;==============================
;= =
;=ZEICHENSATZ WIEDER =
;=ZURUECKSETZEN (W) BY PIT =
;= =
;==============================
:RESET LDA #$C8 ;MULTICOLOR-REGISTER AUF
STA $D016 ;NORMALWERT ZURUECKSTELLEN
LDA #$15 ;NORMALEN ZEICHENSATZ
STA $D018 ;WIEDER EINSCHALTEN
JSR $E544 ;BILDSCHIRM KOMPLETT
;LOESCHEN
RTS ;ZURUECK
;==============================
;= =
;=INTEGER-ZAHL AUSGEBEN =
;=(W) BY PIT =
;= =
;==============================
:INTE LDA #$00 ;ZAHL WIRD
STA $D6 ;AN AUSGEGE-
LDA #$00 ;BEN AN CURSOR
STA $D3 ;POSITION
LDX #$00 ;LB
LDA #$00 ;HB
JSR $BDCD
RTS
;==============================
;= =
;=EINFACHE TEXTAUSGABE =
;=(W) BY PIT =
;= =
;==============================
:TXTO LDX #$00 ;
:TXO2 LDA $0000,X ;TEXTADRESSE (DASS KANN
;ZUM BEISPIEL AUCH EIN
;LABEL SEIN UND
JSR $FFD2 ;TEXT PER BETRIEBSSYSTEM
;AUSGEBEN
INX ;ZAEHLER ERHOEHEN
CPX #$00 ;WENN ANZAHL DER BYTES
;ERREICHT
BNE TXO2 ;
RTS ;GEHT ES WIEDER ZURUECK
;==============================
;= =
;=STRINGAUSGABE (AM ENDE MUSS =
;=EIN NULLBYTE STEHEN (W) PIT =
;= =
;==============================
:STRI LDA #$00 ;CURSOR SETZEN
STA $D6 ;(DIE BETRIEBSSYSTEM-
LDA #$00 ;ROUTINE BRAUCHT IN
STA $D3 ;DIESEM FALL NICHT
;AUFGERUFEN ZU WERDEN
LDA #$00 ;LB
LDY #$00 ;HB
JSR $AB1E ;$ MUSS $00-BYTE AM ENDE HABEN
RTS