_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

ASSEMBLER-BIB.

FILE INFORMATION

FILENAME(S): ASSEMBLER-BIB.

FILE TYPE(S): SEQ

FILE SIZE: 2.6K

FIRST SEEN: 2025-11-30 01:13:15

APPEARS ON: 1 disk(s)

FILE HASH

4ebadeb5719a9d95970c67e548c1707723de3a6b6b949168cf0f06a554ab58d6

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
10403 SEITE A ASSEMBLER-BIB. SEQ C64er 25 4 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 3B 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |;===============|
00000010: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 0D  |===============.|
00000020: 3B 3D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |;=              |
00000030: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 3D 0D  |              =.|
00000040: 3B 3D 5A 45 49 43 48 45  4E 53 41 54 5A 20 49 4E  |;=ZEICHENSATZ IN|
00000050: 49 54 49 41 4C 49 53 49  45 52 45 4E 20 20 3D 0D  |ITIALISIEREN  =.|
00000060: 3B 3D 55 4E 44 20 53 45  54 5A 45 4E 20 28 57 29  |;=UND SETZEN (W)|
00000070: 20 42 59 20 50 49 54 20  20 20 20 20 20 20 3D 0D  | BY PIT       =.|
00000080: 3B 3D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |;=              |
00000090: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 3D 0D  |              =.|
000000A0: 3B 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |;===============|
000000B0: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 0D  |===============.|
000000C0: 0D 3A 5A 53 49 4E 20 20  20 4C 44 41 20 23 24 31  |.:ZSIN   LDA #$1|
000000D0: 43 20 20 20 3B 24 31 43  20 53 54 45 48 54 20 46  |C   ;$1C STEHT F|
000000E0: 55 45 52 20 41 44 52 45  53 53 45 20 24 33 38 30  |UER ADRESSE $380|
000000F0: 30 0D 20 20 20 20 20 20  20 20 53 54 41 20 24 44  |0.        STA $D|
00000100: 30 31 38 20 20 3B 55 4E  44 20 49 4E 20 24 44 30  |018  ;UND IN $D0|
00000110: 31 38 20 53 43 48 52 45  49 42 45 4E 2E 20 41 4E  |18 SCHREIBEN. AN|
00000120: 48 41 4E 44 0D 20 20 20  20 20 20 20 20 20 20 20  |HAND.           |
00000130: 20 20 20 20 20 20 20 20  3B 44 49 45 53 45 52 20  |        ;DIESER |
00000140: 41 44 52 45 53 53 45 2C  20 22 57 45 49 53 53 22  |ADRESSE, "WEISS"|
00000150: 20 44 45 52 0D 20 20 20  20 20 20 20 20 20 20 20  | DER.           |
00000160: 20 20 20 20 20 20 20 20  3B 56 49 43 2C 20 57 4F  |        ;VIC, WO|
00000170: 20 45 52 20 44 45 4E 20  C3 48 41 52 53 45 54 20  | ER DEN .HARSET |
00000180: 53 55 43 48 45 4E 0D 20  20 20 20 20 20 20 20 20  |SUCHEN.         |
00000190: 20 20 20 20 20 20 20 20  20 20 3B 4D 55 53 53 0D  |          ;MUSS.|
000001A0: 20 20 20 20 20 20 20 20  4C 44 41 20 23 24 30 46  |        LDA #$0F|
000001B0: 20 20 20 3B 46 41 52 42  57 45 52 54 45 20 46 55  |   ;FARBWERTE FU|
000001C0: 45 52 20 46 41 52 42 45  20 5A 57 45 49 20 55 4E  |ER FARBE ZWEI UN|
000001D0: 44 0D 20 20 20 20 20 20  20 20 53 54 41 20 24 44  |D.        STA $D|
000001E0: 30 32 32 20 20 3B 44 52  45 49 20 49 4E 20 44 49  |022  ;DREI IN DI|
000001F0: 45 20 42 45 49 44 45 4E  20 45 4E 54 53 50 52 45  |E BEIDEN ENTSPRE|
00000200: 43 48 2D 0D 20 20 20 20  20 20 20 20 4C 44 41 20  |CH-.        LDA |
00000210: 23 24 30 43 20 20 20 3B  45 4E 44 45 4E 20 56 49  |#$0C   ;ENDEN VI|
00000220: 43 2D 52 45 47 49 53 54  45 52 20 53 43 48 52 45  |C-REGISTER SCHRE|
00000230: 49 42 45 4E 0D 20 20 20  20 20 20 20 20 53 54 41  |IBEN.        STA|
00000240: 20 24 44 30 32 33 20 20  3B 46 41 52 42 45 20 33  | $D023  ;FARBE 3|
00000250: 20 4D 55 53 53 20 49 4D  20 C6 41 52 42 2D 52 41  | MUSS IM .ARB-RA|
00000260: 4D 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |M.              |
00000270: 20 20 20 20 20 3B 47 45  53 45 54 5A 54 20 57 45  |     ;GESETZT WE|
00000280: 52 44 45 4E 0D 20 20 20  20 20 20 20 20 4C 44 41  |RDEN.        LDA|
00000290: 20 23 24 31 38 20 20 20  3B 4D 55 4C 54 49 43 4F  | #$18   ;MULTICO|
000002A0: 4C 4F 52 20 45 49 4E 53  43 48 41 4C 54 45 4E 0D  |LOR EINSCHALTEN.|
000002B0: 20 20 20 20 20 20 20 20  53 54 41 20 24 44 30 31  |        STA $D01|
000002C0: 36 20 20 3B 0D 20 20 20  20 20 20 20 20 52 54 53  |6  ;.        RTS|
000002D0: 20 20 20 20 20 20 20 20  3B 55 4E 44 20 5A 55 52  |        ;UND ZUR|
000002E0: 55 45 43 4B 0D 0D 0D 3B  3D 3D 3D 3D 3D 3D 3D 3D  |UECK...;========|
000002F0: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000300: 3D 3D 3D 3D 3D 3D 0D 3B  3D 20 20 20 20 20 20 20  |======.;=       |
00000310: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000320: 20 20 20 20 20 3D 0D 3B  3D 5A 45 49 43 48 45 4E  |     =.;=ZEICHEN|
00000330: 53 41 54 5A 20 57 49 45  44 45 52 20 20 20 20 20  |SATZ WIEDER     |
00000340: 20 20 20 20 20 3D 0D 3B  3D 5A 55 52 55 45 43 4B  |     =.;=ZURUECK|
00000350: 53 45 54 5A 45 4E 20 28  57 29 20 42 59 20 50 49  |SETZEN (W) BY PI|
00000360: 54 20 20 20 20 3D 0D 3B  3D 20 20 20 20 20 20 20  |T    =.;=       |
00000370: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000380: 20 20 20 20 20 3D 0D 3B  3D 3D 3D 3D 3D 3D 3D 3D  |     =.;========|
00000390: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
000003A0: 3D 3D 3D 3D 3D 3D 0D 0D  3A 52 45 53 45 54 20 20  |======..:RESET  |
000003B0: 4C 44 41 20 23 24 43 38  20 20 20 3B 4D 55 4C 54  |LDA #$C8   ;MULT|
000003C0: 49 43 4F 4C 4F 52 2D 52  45 47 49 53 54 45 52 20  |ICOLOR-REGISTER |
000003D0: 41 55 46 0D 20 20 20 20  20 20 20 20 53 54 41 20  |AUF.        STA |
000003E0: 24 44 30 31 36 20 20 3B  4E 4F 52 4D 41 4C 57 45  |$D016  ;NORMALWE|
000003F0: 52 54 20 5A 55 52 55 45  43 4B 53 54 45 4C 4C 45  |RT ZURUECKSTELLE|
00000400: 4E 0D 20 20 20 20 20 20  20 20 4C 44 41 20 23 24  |N.        LDA #$|
00000410: 31 35 20 20 20 3B 4E 4F  52 4D 41 4C 45 4E 20 5A  |15   ;NORMALEN Z|
00000420: 45 49 43 48 45 4E 53 41  54 5A 0D 20 20 20 20 20  |EICHENSATZ.     |
00000430: 20 20 20 53 54 41 20 24  44 30 31 38 20 20 3B 57  |   STA $D018  ;W|
00000440: 49 45 44 45 52 20 45 49  4E 53 43 48 41 4C 54 45  |IEDER EINSCHALTE|
00000450: 4E 0D 20 20 20 20 20 20  20 20 4A 53 52 20 24 45  |N.        JSR $E|
00000460: 35 34 34 20 20 3B 42 49  4C 44 53 43 48 49 52 4D  |544  ;BILDSCHIRM|
00000470: 20 4B 4F 4D 50 4C 45 54  54 0D 20 20 20 20 20 20  | KOMPLETT.      |
00000480: 20 20 20 20 20 20 20 20  20 20 20 20 20 3B 4C 4F  |             ;LO|
00000490: 45 53 43 48 45 4E 0D 20  20 20 20 20 20 20 20 52  |ESCHEN.        R|
000004A0: 54 53 20 20 20 20 20 20  20 20 3B 5A 55 52 55 45  |TS        ;ZURUE|
000004B0: 43 4B 0D 0D 0D 3B 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |CK...;==========|
000004C0: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
000004D0: 3D 3D 3D 3D 0D 3B 3D 20  20 20 20 20 20 20 20 20  |====.;=         |
000004E0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000004F0: 20 20 20 3D 0D 3B 3D 49  4E 54 45 47 45 52 2D 5A  |   =.;=INTEGER-Z|
00000500: 41 48 4C 20 41 55 53 47  45 42 45 4E 20 20 20 20  |AHL AUSGEBEN    |
00000510: 20 20 20 3D 0D 3B 3D 28  57 29 20 42 59 20 50 49  |   =.;=(W) BY PI|
00000520: 54 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |T               |
00000530: 20 20 20 3D 0D 3B 3D 20  20 20 20 20 20 20 20 20  |   =.;=         |
00000540: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000550: 20 20 20 3D 0D 3B 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |   =.;==========|
00000560: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000570: 3D 3D 3D 3D 0D 0D 3A 49  4E 54 45 20 20 4C 44 41  |====..:INTE  LDA|
00000580: 20 23 24 30 30 20 20 20  3B 5A 41 48 4C 20 57 49  | #$00   ;ZAHL WI|
00000590: 52 44 0D 20 20 20 20 20  20 20 53 54 41 20 24 44  |RD.       STA $D|
000005A0: 36 20 20 20 20 3B 41 4E  20 41 55 53 47 45 47 45  |6    ;AN AUSGEGE|
000005B0: 2D 0D 20 20 20 20 20 20  20 4C 44 41 20 23 24 30  |-.       LDA #$0|
000005C0: 30 20 20 20 3B 42 45 4E  20 41 4E 20 43 55 52 53  |0   ;BEN AN CURS|
000005D0: 4F 52 0D 20 20 20 20 20  20 20 53 54 41 20 24 44  |OR.       STA $D|
000005E0: 33 20 20 20 20 3B 50 4F  53 49 54 49 4F 4E 0D 0D  |3    ;POSITION..|
000005F0: 20 20 20 20 20 20 20 4C  44 58 20 23 24 30 30 20  |       LDX #$00 |
00000600: 20 20 3B 4C 42 0D 20 20  20 20 20 20 20 4C 44 41  |  ;LB.       LDA|
00000610: 20 23 24 30 30 20 20 20  3B 48 42 0D 20 20 20 20  | #$00   ;HB.    |
00000620: 20 20 20 4A 53 52 20 24  42 44 43 44 0D 20 20 20  |   JSR $BDCD.   |
00000630: 20 20 20 20 52 54 53 0D  0D 0D 3B 3D 3D 3D 3D 3D  |    RTS...;=====|
00000640: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000650: 3D 3D 3D 3D 3D 3D 3D 3D  3D 0D 3B 3D 20 20 20 20  |=========.;=    |
00000660: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000670: 20 20 20 20 20 20 20 20  3D 0D 3B 3D 45 49 4E 46  |        =.;=EINF|
00000680: 41 43 48 45 20 54 45 58  54 41 55 53 47 41 42 45  |ACHE TEXTAUSGABE|
00000690: 20 20 20 20 20 20 20 20  3D 0D 3B 3D 28 57 29 20  |        =.;=(W) |
000006A0: 42 59 20 50 49 54 20 20  20 20 20 20 20 20 20 20  |BY PIT          |
000006B0: 20 20 20 20 20 20 20 20  3D 0D 3B 3D 20 20 20 20  |        =.;=    |
000006C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000006D0: 20 20 20 20 20 20 20 20  3D 0D 3B 3D 3D 3D 3D 3D  |        =.;=====|
000006E0: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
000006F0: 3D 3D 3D 3D 3D 3D 3D 3D  3D 0D 0D 3A 54 58 54 4F  |=========..:TXTO|
00000700: 20 20 4C 44 58 20 23 24  30 30 20 20 20 20 20 3B  |  LDX #$00     ;|
00000710: 0D 3A 54 58 4F 32 20 20  4C 44 41 20 24 30 30 30  |.:TXO2  LDA $000|
00000720: 30 2C 58 20 20 3B 54 45  58 54 41 44 52 45 53 53  |0,X  ;TEXTADRESS|
00000730: 45 20 28 44 41 53 53 20  4B 41 4E 4E 0D 20 20 20  |E (DASS KANN.   |
00000740: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000750: 20 3B 5A 55 4D 20 42 45  49 53 50 49 45 4C 20 41  | ;ZUM BEISPIEL A|
00000760: 55 43 48 20 45 49 4E 0D  20 20 20 20 20 20 20 20  |UCH EIN.        |
00000770: 20 20 20 20 20 20 20 20  20 20 20 20 3B 4C 41 42  |            ;LAB|
00000780: 45 4C 20 53 45 49 4E 20  55 4E 44 0D 20 20 20 20  |EL SEIN UND.    |
00000790: 20 20 20 4A 53 52 20 24  46 46 44 32 20 20 20 20  |   JSR $FFD2    |
000007A0: 3B 54 45 58 54 20 50 45  52 20 42 45 54 52 49 45  |;TEXT PER BETRIE|
000007B0: 42 53 53 59 53 54 45 4D  0D 20 20 20 20 20 20 20  |BSSYSTEM.       |
000007C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 3B 41 55  |             ;AU|
000007D0: 53 47 45 42 45 4E 0D 20  20 20 20 20 20 20 49 4E  |SGEBEN.       IN|
000007E0: 58 20 20 20 20 20 20 20  20 20 20 3B 5A 41 45 48  |X          ;ZAEH|
000007F0: 4C 45 52 20 45 52 48 4F  45 48 45 4E 0D 20 20 20  |LER ERHOEHEN.   |
00000800: 20 20 20 20 43 50 58 20  23 24 30 30 20 20 20 20  |    CPX #$00    |
00000810: 20 3B 57 45 4E 4E 20 41  4E 5A 41 48 4C 20 44 45  | ;WENN ANZAHL DE|
00000820: 52 20 42 59 54 45 53 20  0D 20 20 20 20 20 20 20  |R BYTES .       |
00000830: 20 20 20 20 20 20 20 20  20 20 20 20 20 3B 45 52  |             ;ER|
00000840: 52 45 49 43 48 54 0D 20  20 20 20 20 20 20 42 4E  |REICHT.       BN|
00000850: 45 20 54 58 4F 32 20 20  20 20 20 3B 0D 20 20 20  |E TXO2     ;.   |
00000860: 20 20 20 20 52 54 53 20  20 20 20 20 20 20 20 20  |    RTS         |
00000870: 20 3B 47 45 48 54 20 45  53 20 57 49 45 44 45 52  | ;GEHT ES WIEDER|
00000880: 20 5A 55 52 55 45 43 4B  0D 0D 0D 3B 3D 3D 3D 3D  | ZURUECK...;====|
00000890: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
000008A0: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 0D 3B 3D 20 20 20  |==========.;=   |
000008B0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000008C0: 20 20 20 20 20 20 20 20  20 3D 0D 3B 3D 53 54 52  |         =.;=STR|
000008D0: 49 4E 47 41 55 53 47 41  42 45 20 28 41 4D 20 45  |INGAUSGABE (AM E|
000008E0: 4E 44 45 20 4D 55 53 53  20 3D 0D 3B 3D 45 49 4E  |NDE MUSS =.;=EIN|
000008F0: 20 4E 55 4C 4C 42 59 54  45 20 53 54 45 48 45 4E  | NULLBYTE STEHEN|
00000900: 20 28 57 29 20 50 49 54  20 3D 0D 3B 3D 20 20 20  | (W) PIT =.;=   |
00000910: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000920: 20 20 20 20 20 20 20 20  20 3D 0D 3B 3D 3D 3D 3D  |         =.;====|
00000930: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000940: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 0D 0D 3A 53 54 52  |==========..:STR|
00000950: 49 20 20 4C 44 41 20 23  24 30 30 20 20 20 3B 43  |I  LDA #$00   ;C|
00000960: 55 52 53 4F 52 20 53 45  54 5A 45 4E 0D 20 20 20  |URSOR SETZEN.   |
00000970: 20 20 20 20 53 54 41 20  24 44 36 20 20 20 20 3B  |    STA $D6    ;|
00000980: 28 44 49 45 20 42 45 54  52 49 45 42 53 53 59 53  |(DIE BETRIEBSSYS|
00000990: 54 45 4D 2D 0D 20 20 20  20 20 20 20 4C 44 41 20  |TEM-.       LDA |
000009A0: 23 24 30 30 20 20 20 3B  52 4F 55 54 49 4E 45 20  |#$00   ;ROUTINE |
000009B0: 42 52 41 55 43 48 54 20  49 4E 0D 20 20 20 20 20  |BRAUCHT IN.     |
000009C0: 20 20 53 54 41 20 24 44  33 20 20 20 20 3B 44 49  |  STA $D3    ;DI|
000009D0: 45 53 45 4D 20 46 41 4C  4C 20 4E 49 43 48 54 20  |ESEM FALL NICHT |
000009E0: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
000009F0: 20 20 20 3B 41 55 46 47  45 52 55 46 45 4E 20 5A  |   ;AUFGERUFEN Z|
00000A00: 55 20 57 45 52 44 45 4E  0D 0D 20 20 20 20 20 20  |U WERDEN..      |
00000A10: 20 4C 44 41 20 23 24 30  30 20 20 20 3B 4C 42 0D  | LDA #$00   ;LB.|
00000A20: 20 20 20 20 20 20 20 4C  44 59 20 23 24 30 30 20  |       LDY #$00 |
00000A30: 20 20 3B 48 42 0D 20 20  20 20 20 20 20 4A 53 52  |  ;HB.       JSR|
00000A40: 20 24 41 42 31 45 20 20  3B 24 20 4D 55 53 53 20  | $AB1E  ;$ MUSS |
00000A50: 24 30 30 2D 42 59 54 45  20 41 4D 20 45 4E 44 45  |$00-BYTE AM ENDE|
00000A60: 20 48 41 42 45 4E 0D 20  20 20 20 20 20 20 52 54  | HABEN.       RT|
00000A70: 53 0D 0D 0D 0D 0D 20                              |S.....          |
;==============================.;=      
                      =.;=ZEICHENSATZ IN
ITIALISIEREN  =.;=UND SETZEN (W) BY PIT 
      =.;=                            =.
;==============================..:ZSIN  
 LDA #$1C   ;$1C STEHT FUER ADRESSE $380
0.        STA $D018  ;UND IN $D018 SCHRE
IBEN. ANHAND.                   ;DIESER 
ADRESSE, "WEISS" DER.                   
;VIC, WO ER DEN CHARSET SUCHEN.         
          ;MUSS.        LDA #$0F   ;FARB
WERTE FUER FARBE ZWEI UND.        STA $D
022  ;DREI IN DIE BEIDEN ENTSPRECH-.    
    LDA #$0C   ;ENDEN VIC-REGISTER SCHRE
IBEN.        STA $D023  ;FARBE 3 MUSS IM
 FARB-RAM.                   ;GESETZT WE
RDEN.        LDA #$18   ;MULTICOLOR EINS
CHALTEN.        STA $D016  ;.        RTS
        ;UND ZURUECK...;================
==============.;=                       
     =.;=ZEICHENSATZ WIEDER          =.;
=ZURUECKSETZEN (W) BY PIT    =.;=       
                     =.;================
==============..:RESET  LDA #$C8   ;MULT
ICOLOR-REGISTER AUF.        STA $D016  ;
NORMALWERT ZURUECKSTELLEN.        LDA #$
15   ;NORMALEN ZEICHENSATZ.        STA $
D018  ;WIEDER EINSCHALTEN.        JSR $E
544  ;BILDSCHIRM KOMPLETT.              
     ;LOESCHEN.        RTS        ;ZURUE
CK...;==============================.;= 
                           =.;=INTEGER-Z
AHL AUSGEBEN       =.;=(W) BY PIT       
           =.;=                         
   =.;==============================..:I
NTE  LDA #$00   ;ZAHL WIRD.       STA $D
6    ;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  ;TEXTADRESS
E (DASS KANN.                    ;ZUM BE
ISPIEL AUCH EIN.                    ;LAB
EL SEIN UND.       JSR $FFD2    ;TEXT PE
R BETRIEBSSYSTEM.                    ;AU
SGEBEN.       INX          ;ZAEHLER ERHO
EHEN.       CPX #$00     ;WENN ANZAHL DE
R BYTES .                    ;ERREICHT. 
      BNE TXO2     ;.       RTS         
 ;GEHT ES WIEDER ZURUECK...;============
==================.;=                   
         =.;=STRINGAUSGABE (AM ENDE MUSS
 =.;=EIN NULLBYTE STEHEN (W) PIT =.;=   
                         =.;============
==================..:STRI  LDA #$00   ;C
URSOR SETZEN.       STA $D6    ;(DIE BET
RIEBSSYSTEM-.       LDA #$00   ;ROUTINE 
BRAUCHT IN.       STA $D3    ;DIESEM FAL
L NICHT .                  ;AUFGERUFEN Z
U WERDEN..       LDA #$00   ;LB.       L
DY #$00   ;HB.       JSR $AB1E  ;$ MUSS 
$00-BYTE AM ENDE HABEN.       RTS..... 
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL