CENT'HARDCPY SRC
FILE INFORMATION
FILENAME(S): CENT'HARDCPY SRC
FILE TYPE(S): PRG
FILE SIZE: 5.2K
FIRST SEEN: 2025-10-20 00:37:11
APPEARS ON: 4 disk(s)
FILE HASH
2dfbd0b738e421616ccf6aa2a36b832853e0e11273a558bd8bbe307937430be1
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SEITE 1 RUECK | CENT'HARDCPY SRC | PRG | C64er, Treasure Chest - Holger | 20 | 8 | DOWNLOAD FILE |
| SEITE 1 RUECK | CENT'HARDCPY SRC | PRG | DuncanTwain | 20 | 8 | DOWNLOAD FILE |
| SEITE 1 RUECK | CENT'HARDCPY SRC | PRG | DuncanTwain | 20 | 8 | DOWNLOAD FILE |
| SEITE 1 RUECK | CENT'HARDCPY SRC | PRG | DuncanTwain | 20 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 0A 00 3B 2B 2B 2B 2B 2B 2B 2B 2B 2B |..'...;+++++++++| 00000010: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 00000020: 2B 2B 2B 2B 2B 2B 2B 00 4D 08 14 00 3B 2B 2B 2B |+++++++.M...;+++| 00000030: 2B 2B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |++ | 00000040: 20 20 20 20 20 20 20 20 2B 2B 2B 2B 2B 00 73 08 | +++++.s.| 00000050: 1E 00 3B 2B 2B 2B 2B 2B 20 48 41 52 44 43 4F 50 |..;+++++ HARDCOP| 00000060: 59 20 46 55 45 52 20 20 20 20 20 20 20 20 2B 2B |Y FUER ++| 00000070: 2B 2B 2B 00 99 08 28 00 3B 2B 2B 2B 2B 2B 20 43 |+++...(.;+++++ C| 00000080: 45 4E 54 52 4F 4E 49 43 53 20 44 52 55 43 4B 45 |ENTRONICS DRUCKE| 00000090: 52 20 20 20 2B 2B 2B 2B 2B 00 BF 08 32 00 3B 2B |R +++++...2.;+| 000000A0: 2B 2B 2B 2B 20 20 20 28 53 54 41 52 20 53 47 29 |++++ (STAR SG)| 000000B0: 20 20 20 20 20 20 20 20 20 20 2B 2B 2B 2B 2B 00 | +++++.| 000000C0: E5 08 3C 00 3B 2B 2B 2B 2B 2B 20 41 4D 20 55 53 |..<.;+++++ AM US| 000000D0: 45 52 2D 50 4F 52 54 20 20 20 20 20 20 20 20 20 |ER-PORT | 000000E0: 2B 2B 2B 2B 2B 00 0B 09 46 00 3B 2B 2B 2B 2B 2B |+++++...F.;+++++| 000000F0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 00000100: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 31 09 50 00 |+++++++++++.1.P.| 00000110: 3B 2B 2B 2B 2B 2B 20 20 20 20 20 20 20 20 20 20 |;+++++ | 00000120: 20 20 20 20 20 20 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B | ++++++++++| 00000130: 2B 00 57 09 5A 00 3B 2B 2B 2B 2B 2B 20 56 4F 4E |+.W.Z.;+++++ VON| 00000140: 20 20 20 20 20 20 20 20 20 20 20 20 2B 2B 2B 2B | ++++| 00000150: 2B 2B 2B 2B 2B 2B 2B 00 7D 09 64 00 3B 2B 2B 2B |+++++++.}.d.;+++| 00000160: 2B 2B 20 52 49 43 48 41 52 44 20 47 52 45 53 45 |++ RICHARD GRESE| 00000170: 4B 20 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 A3 09 |K +++++++++++...| 00000180: 6E 00 3B 2B 2B 2B 2B 2B 20 20 20 20 20 20 20 20 |n.;+++++ | 00000190: 20 20 20 20 20 20 20 20 2B 2B 2B 2B 2B 2B 2B 2B | ++++++++| 000001A0: 2B 2B 2B 00 C9 09 78 00 3B 2B 2B 2B 2B 2B 2B 2B |+++...x.;+++++++| 000001B0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 000001C0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 D4 09 82 00 2E 4C |+++++++++......L| 000001D0: 49 31 2C 33 00 E1 09 8C 00 2E 42 41 24 37 30 30 |I1,3......BA$700| 000001E0: 30 00 E7 09 96 00 3B 00 ED 09 A0 00 3B 00 13 0A |0.....;.....;...| 000001F0: AA 00 3B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |..;+++++++++++++| 00000200: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 00000210: 2B 2B 2B 00 39 0A B4 00 3B 41 55 53 52 45 43 48 |+++.9...;AUSRECH| 00000220: 4E 45 4E 20 44 45 52 20 20 20 20 20 2B 2B 2B 2B |NEN DER ++++| 00000230: 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 5F 0A BE 00 3B 53 |+++++++++._...;S| 00000240: 54 41 52 54 41 44 52 45 53 53 45 20 44 45 52 20 |TARTADRESSE DER | 00000250: 20 20 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 | +++++++++++++.| 00000260: 85 0A C8 00 3B 42 49 54 4D 41 50 2C 50 52 55 45 |....;BITMAP,PRUE| 00000270: 46 45 4E 20 20 20 20 20 2B 2B 2B 2B 2B 2B 2B 2B |FEN ++++++++| 00000280: 2B 2B 2B 2B 2B 00 AB 0A D2 00 3B 4F 42 20 47 52 |+++++.....;OB GR| 00000290: 41 50 48 49 43 20 45 49 4E 20 20 20 20 20 2B 2B |APHIC EIN ++| 000002A0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 D1 0A DC 00 |+++++++++++.....| 000002B0: 3B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |;+++++++++++++++| 000002C0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 000002D0: 2B 00 EF 0A E6 00 53 54 41 52 54 20 4C 44 41 24 |+.....START LDA$| 000002E0: 44 30 31 38 3B 42 49 54 53 20 31 32 2D 31 33 00 |D018;BITS 12-13.| 000002F0: 07 0B F0 00 20 41 4E 44 23 24 30 43 3B 44 45 52 |.... AND#$0C;DER| 00000300: 20 42 49 54 4D 41 50 00 1C 0B FA 00 20 41 53 4C | BITMAP..... ASL| 00000310: 3B 49 4E 53 20 48 49 2D 42 59 54 45 00 25 0B 04 |;INS HI-BYTE.%..| 00000320: 01 20 41 53 4C 00 2E 0B 0E 01 20 41 53 4C 00 37 |. ASL..... ASL.7| 00000330: 0B 18 01 20 41 53 4C 00 45 0B 22 01 20 53 54 41 |... ASL.E.". STA| 00000340: 4E 42 59 2B 32 00 6C 0B 2C 01 20 4C 44 41 24 44 |NBY+2.l.,. LDA$D| 00000350: 44 30 30 3B 42 49 54 53 31 34 2D 31 35 20 41 55 |D00;BITS14-15 AU| 00000360: 53 20 43 49 41 32 20 48 4F 4C 45 4E 00 75 0B 36 |S CIA2 HOLEN.u.6| 00000370: 01 20 4C 53 52 00 98 0B 40 01 20 52 4F 52 4E 42 |. LSR...@. RORNB| 00000380: 59 2B 32 3B 49 4E 53 20 48 49 2D 42 59 54 45 20 |Y+2;INS HI-BYTE | 00000390: 53 43 48 49 45 42 45 4E 00 A1 0B 4A 01 20 4C 53 |SCHIEBEN...J. LS| 000003A0: 52 00 AF 0B 54 01 20 52 4F 52 4E 42 59 2B 32 00 |R...T. RORNBY+2.| 000003B0: D9 0B 5E 01 20 4C 44 41 4E 42 59 2B 32 3B 42 49 |..^. LDANBY+2;BI| 000003C0: 54 53 20 31 2D 32 20 44 45 52 20 43 49 41 32 20 |TS 1-2 DER CIA2 | 000003D0: 4C 4F 57 2D 41 4B 54 49 56 00 0B 0C 68 01 20 45 |LOW-AKTIV...h. E| 000003E0: 4F 52 23 24 43 30 3B 44 45 53 48 41 4C 42 20 55 |OR#$C0;DESHALB U| 000003F0: 4D 4B 45 48 52 45 4E 20 4D 49 54 20 45 4F 52 20 |MKEHREN MIT EOR | 00000400: 23 25 31 31 30 30 20 30 30 30 30 00 41 0C 72 01 |#%1100 0000.A.r.| 00000410: 20 53 54 41 4E 42 59 2B 32 3B 55 4E 44 20 5A 55 | STANBY+2;UND ZU| 00000420: 52 55 43 4B 20 49 4E 53 20 48 49 2D 42 59 54 45 |RUCK INS HI-BYTE| 00000430: 20 44 45 53 20 42 49 54 4D 41 50 5A 45 49 47 45 | DES BITMAPZEIGE| 00000440: 52 00 4D 0C 7C 01 20 4C 44 41 23 30 30 00 78 0C |R.M.|. LDA#00.x.| 00000450: 86 01 20 53 54 41 4E 42 59 2B 31 3B 4C 4F 2D 42 |.. STANBY+1;LO-B| 00000460: 59 54 45 20 44 45 53 20 42 49 54 4D 41 50 5A 45 |YTE DES BITMAPZE| 00000470: 49 47 45 52 20 3D 20 30 00 AF 0C 90 01 20 4C 44 |IGER = 0..... LD| 00000480: 41 24 44 30 31 31 3B 42 49 54 35 3D 31 20 3D 3E |A$D011;BIT5=1 =>| 00000490: 48 49 2D 52 45 53 20 47 52 41 50 48 49 43 20 45 |HI-RES GRAPHIC E| 000004A0: 49 4E 3D 3E 20 41 55 53 44 52 55 43 4B 45 4E 00 |IN=> AUSDRUCKEN.| 000004B0: BB 0C 9A 01 20 41 4E 44 23 33 32 00 C9 0C A4 01 |.... AND#32.....| 000004C0: 20 42 4E 45 42 45 47 49 4E 00 F3 0C AE 01 20 52 | BNEBEGIN..... R| 000004D0: 54 53 3B 42 49 54 35 3D 30 20 3E 5A 55 52 55 43 |TS;BIT5=0 >ZURUC| 000004E0: 4B 20 49 4E 53 20 48 41 55 50 54 50 52 4F 47 52 |K INS HAUPTPROGR| 000004F0: 41 4D 4D 00 19 0D B8 01 3B 2B 2B 2B 2B 2B 2B 2B |AMM.....;+++++++| 00000500: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 00000510: 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 3F 0D C2 01 3B 48 |+++++++++.?...;H| 00000520: 41 55 50 54 50 52 4F 47 52 41 4D 4D 20 20 20 2B |AUPTPROGRAMM +| 00000530: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 |+++++++++++++++.| 00000540: 65 0D CC 01 3B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |e...;+++++++++++| 00000550: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 00000560: 2B 2B 2B 2B 2B 00 88 0D D6 01 42 45 47 49 4E 20 |+++++.....BEGIN | 00000570: 53 45 49 3B 49 4E 54 45 52 52 55 50 54 20 41 42 |SEI;INTERRUPT AB| 00000580: 53 43 48 41 4C 54 45 4E 00 AC 0D E0 01 20 4C 44 |SCHALTEN..... LD| 00000590: 41 23 24 33 35 3B 47 41 4E 5A 45 53 20 52 41 4D |A#$35;GANZES RAM| 000005A0: 20 42 49 53 20 41 55 46 20 49 2F 4F 00 C2 0D EA | BIS AUF I/O....| 000005B0: 01 20 53 54 41 30 31 3B 45 49 4E 42 4C 45 4E 44 |. STA01;EINBLEND| 000005C0: 45 4E 00 E6 0D F4 01 20 4C 44 41 23 24 46 46 3B |EN..... LDA#$FF;| 000005D0: 50 4F 52 54 20 42 20 43 49 41 32 20 41 55 46 20 |PORT B CIA2 AUF | 000005E0: 41 55 47 41 4E 47 00 F4 0D FE 01 20 53 54 41 24 |AUGANG..... STA$| 000005F0: 44 44 30 33 00 14 0E 08 02 20 4C 44 41 23 3C 28 |DD03..... LDA#<(| 00000600: 5A 45 41 42 53 54 2B 33 29 3B 45 4E 44 41 44 52 |ZEABST+3);ENDADR| 00000610: 45 53 53 45 00 29 0E 12 02 20 4C 44 59 23 3E 28 |ESSE.)... LDY#>(| 00000620: 5A 45 41 42 53 54 2B 33 29 00 39 0E 1C 02 20 53 |ZEABST+3).9... S| 00000630: 54 41 43 4F 4E 54 4C 2B 31 00 49 0E 26 02 20 53 |TACONTL+1.I.&. S| 00000640: 54 59 43 4F 4E 54 48 2B 31 00 69 0E 30 02 20 4C |TYCONTH+1.i.0. L| 00000650: 44 41 23 3C 28 5A 45 41 42 53 54 29 3B 53 54 41 |DA#<(ZEABST);STA| 00000660: 52 54 41 44 52 45 53 53 45 00 A7 0E 3A 02 20 4C |RTADRESSE...:. L| 00000670: 44 59 23 3E 28 5A 45 41 42 53 54 29 3B 44 45 52 |DY#>(ZEABST);DER| 00000680: 20 42 59 54 45 46 4F 4C 47 45 20 46 55 45 52 20 | BYTEFOLGE FUER | 00000690: 5A 45 49 4C 45 4E 41 42 53 54 41 4E 44 20 38 2F |ZEILENABSTAND 8/| 000006A0: 37 32 20 49 4E 43 48 00 DB 0E 44 02 20 4A 53 52 |72 INCH...D. JSR| 000006B0: 53 54 52 4F 55 54 3B 42 59 54 45 46 4F 4C 47 45 |STROUT;BYTEFOLGE| 000006C0: 20 41 55 46 20 50 41 52 41 4C 4C 45 4C 2D 50 4F | AUF PARALLEL-PO| 000006D0: 52 54 20 41 55 53 47 45 42 45 4E 00 FC 0E 4E 02 |RT AUSGEBEN...N.| 000006E0: 20 4C 44 41 23 32 35 3B 32 35 20 5A 45 49 4C 45 | LDA#25;25 ZEILE| 000006F0: 4E 2A 34 30 20 53 50 41 4C 54 45 4E 00 0A 0F 58 |N*40 SPALTEN...X| 00000700: 02 20 53 54 41 5A 45 49 4C 45 00 19 0F 62 02 5A |. STAZEILE...b.Z| 00000710: 45 49 20 4C 44 41 23 34 30 00 28 0F 6C 02 20 53 |EI LDA#40.(.l. S| 00000720: 54 41 53 50 41 4C 54 45 00 50 0F 76 02 53 50 41 |TASPALTE.P.v.SPA| 00000730: 20 4C 44 41 23 38 3B 38 20 42 59 54 45 20 49 4E | LDA#8;8 BYTE IN| 00000740: 20 4A 45 44 45 4D 20 4B 41 45 53 54 43 48 45 4E | JEDEM KAESTCHEN| 00000750: 00 5C 0F 80 02 20 53 54 41 42 59 5A 00 69 0F 8A |.\... STABYZ.i..| 00000760: 02 42 59 20 4C 44 59 23 38 00 90 0F 94 02 4E 42 |.BY LDY#8.....NB| 00000770: 59 20 4C 44 41 24 36 30 30 30 3B 42 59 54 45 20 |Y LDA$6000;BYTE | 00000780: 41 55 53 20 42 49 54 4D 41 50 20 48 4F 4C 45 4E |AUS BITMAP HOLEN| 00000790: 00 C8 0F 9E 02 4C 4F 4F 50 20 4C 44 58 23 30 31 |.....LOOP LDX#01| 000007A0: 3B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |;+++++++++++++++| 000007B0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 000007C0: 2B 2B 2B 2B 2B 2B 2B 2B 00 E7 0F A8 02 4C 4F 4F |++++++++.....LOO| 000007D0: 20 52 4F 4C 3B 42 49 54 20 4E 52 2E 58 20 49 4E | ROL;BIT NR.X IN| 000007E0: 53 20 43 41 52 52 59 00 F0 0F B2 02 20 44 45 58 |S CARRY..... DEX| 000007F0: 00 24 10 BC 02 20 42 4E 45 4C 4F 4F 3B 2B 2B 2B |.$... BNELOO;+++| 00000800: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 00000810: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 00000820: 2B 2B 2B 2B 00 55 10 C6 02 53 54 20 52 4F 4C 53 |++++.U...ST ROLS| 00000830: 43 48 4C 3B 43 41 52 52 59 20 49 4E 53 20 41 4B |CHL;CARRY INS AK| 00000840: 54 55 45 4C 4C 45 20 42 59 54 45 20 45 49 4E 46 |TUELLE BYTE EINF| 00000850: 55 45 47 45 4E 00 8B 10 D0 02 20 49 4E 43 4E 42 |UEGEN..... INCNB| 00000860: 59 2B 31 3B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |Y+1;++++++++++++| 00000870: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 00000880: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 AC 10 DA 02 |+++++++++++.....| 00000890: 20 42 4E 45 57 45 3B 42 49 54 4D 41 50 5A 45 49 | BNEWE;BITMAPZEI| 000008A0: 47 45 52 20 45 52 48 4F 45 48 45 4E 00 E2 10 E4 |GER ERHOEHEN....| 000008B0: 02 20 49 4E 43 4E 42 59 2B 32 3B 2B 2B 2B 2B 2B |. INCNBY+2;+++++| 000008C0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 000008D0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 000008E0: 2B 2B 00 03 11 EE 02 57 45 20 44 45 59 3B 53 43 |++.....WE DEY;SC| 000008F0: 48 4F 4E 20 38 20 42 49 54 20 5A 55 53 41 4D 4D |HON 8 BIT ZUSAMM| 00000900: 45 4E 3F 00 2A 11 F8 02 20 42 4E 45 4E 42 59 3B |EN?.*... BNENBY;| 00000910: 4E 45 49 4E 20 3E 4E 41 45 43 48 53 54 45 53 20 |NEIN >NAECHSTES | 00000920: 42 59 54 45 20 48 4F 4C 45 4E 00 4C 11 02 03 20 |BYTE HOLEN.L... | 00000930: 49 4E 43 4C 4F 4F 50 2B 31 3B 4E 41 45 43 48 53 |INCLOOP+1;NAECHS| 00000940: 54 45 20 42 49 54 53 50 41 4C 54 45 00 55 11 0C |TE BITSPALTE.U..| 00000950: 03 20 53 45 43 00 93 11 16 03 20 4C 44 41 4E 42 |. SEC..... LDANB| 00000960: 59 2B 31 3B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |Y+1;++++++++++++| 00000970: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 00000980: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 00000990: 2B 2B 2B 00 CE 11 20 03 20 53 42 43 23 38 3B 42 |+++... . SBC#8;B| 000009A0: 49 54 4D 41 50 5A 45 49 47 45 52 20 41 55 46 20 |ITMAPZEIGER AUF | 000009B0: 42 59 54 45 20 4E 52 2E 31 20 44 45 52 20 4E 41 |BYTE NR.1 DER NA| 000009C0: 45 43 48 53 54 45 4E 20 53 50 41 4C 54 45 00 E3 |ECHSTEN SPALTE..| 000009D0: 11 2A 03 20 53 54 41 4E 42 59 2B 31 3B 53 45 54 |.*. STANBY+1;SET| 000009E0: 5A 45 4E 00 F1 11 34 03 20 4C 44 41 4E 42 59 2B |ZEN...4. LDANBY+| 000009F0: 32 00 FD 11 3E 03 20 53 42 43 23 30 30 00 33 12 |2...>. SBC#00.3.| 00000A00: 48 03 20 53 54 41 4E 42 59 2B 32 3B 2B 2B 2B 2B |H. STANBY+2;++++| 00000A10: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 00000A20: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 00000A30: 2B 2B 2B 00 6B 12 52 03 20 49 4E 43 53 54 2B 31 |+++.k.R. INCST+1| 00000A40: 3B 5A 45 49 47 45 52 20 41 55 46 20 41 4B 54 55 |;ZEIGER AUF AKTU| 00000A50: 45 4C 4C 45 53 20 42 59 54 45 20 49 4D 20 41 55 |ELLES BYTE IM AU| 00000A60: 53 47 41 42 45 53 54 52 49 4E 47 00 83 12 5C 03 |SGABESTRING...\.| 00000A70: 20 42 4E 45 57 45 31 3B 20 20 20 45 52 48 4F 45 | BNEWE1; ERHOE| 00000A80: 48 45 4E 00 B8 12 66 03 20 49 4E 43 53 54 2B 32 |HEN...f. INCST+2| 00000A90: 3B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |;+++++++++++++++| 00000AA0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 00000AB0: 2B 2B 2B 2B 2B 2B 2B 2B 00 EA 12 70 03 57 45 31 |++++++++...p.WE1| 00000AC0: 20 44 45 43 42 59 5A 3B 41 4C 4C 45 20 38 20 42 | DECBYZ;ALLE 8 B| 00000AD0: 59 54 45 20 44 45 53 20 4B 41 45 53 54 43 48 45 |YTE DES KAESTCHE| 00000AE0: 4E 53 20 46 45 52 54 49 47 3F 00 02 13 7A 03 20 |NS FERTIG?...z. | 00000AF0: 42 4E 45 42 59 3B 4E 45 49 4E 3D 3E 53 50 52 55 |BNEBY;NEIN=>SPRU| 00000B00: 4E 47 00 2F 13 84 03 20 4C 44 41 23 30 31 3B 31 |NG./... LDA#01;1| 00000B10: 2E 42 49 54 53 50 41 4C 54 45 20 44 45 52 20 4E |.BITSPALTE DER N| 00000B20: 41 45 43 48 53 54 45 4E 20 53 50 41 4C 54 45 00 |AECHSTEN SPALTE.| 00000B30: 3E 13 8E 03 20 53 54 41 4C 4F 4F 50 2B 31 00 6F |>... STALOOP+1.o| 00000B40: 13 98 03 20 43 4C 43 3B 2B 2B 2B 2B 2B 2B 2B 2B |... CLC;++++++++| 00000B50: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 00000B60: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 |+++++++++++++++.| 00000B70: AA 13 A2 03 20 4C 44 41 4E 42 59 2B 31 3B 42 49 |.... LDANBY+1;BI| 00000B80: 54 4D 41 50 5A 45 49 47 45 52 20 41 55 46 20 31 |TMAPZEIGER AUF 1| 00000B90: 2E 42 59 54 45 20 44 45 52 20 4E 41 45 43 48 53 |.BYTE DER NAECHS| 00000BA0: 54 45 4E 20 53 50 41 4C 54 45 00 BD 13 AC 03 20 |TEN SPALTE..... | 00000BB0: 41 44 43 23 38 3B 53 54 45 4C 4C 45 4E 00 CB 13 |ADC#8;STELLEN...| 00000BC0: B6 03 20 53 54 41 4E 42 59 2B 31 00 D9 13 C0 03 |.. STANBY+1.....| 00000BD0: 20 4C 44 41 4E 42 59 2B 32 00 E5 13 CA 03 20 41 | LDANBY+2..... A| 00000BE0: 44 43 23 30 30 00 1B 14 D4 03 20 53 54 41 4E 42 |DC#00..... STANB| 00000BF0: 59 2B 32 3B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |Y+2;++++++++++++| 00000C00: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 00000C10: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 38 14 DE 03 |+++++++++++.8...| 00000C20: 20 44 45 43 53 50 41 4C 54 45 3B 5A 45 49 4C 45 | DECSPALTE;ZEILE| 00000C30: 20 46 45 52 54 49 47 3F 00 5A 14 E8 03 20 42 4E | FERTIG?.Z... BN| 00000C40: 45 53 50 41 3B 4E 45 49 4E 20 3E 4E 45 41 43 48 |ESPA;NEIN >NEACH| 00000C50: 53 54 45 20 53 50 41 4C 54 45 00 96 14 F2 03 20 |STE SPALTE..... | 00000C60: 4C 44 41 23 3C 28 5A 45 41 42 53 54 29 3B 2B 2B |LDA#<(ZEABST);++| 00000C70: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 00000C80: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 00000C90: 2B 2B 2B 2B 2B 2B 00 CB 14 FC 03 20 4C 44 59 23 |++++++..... LDY#| 00000CA0: 3E 28 5A 45 41 42 53 54 29 3B 47 52 41 50 48 49 |>(ZEABST);GRAPHI| 00000CB0: 43 2D 45 49 4E 53 43 48 41 4C 54 53 45 51 55 45 |C-EINSCHALTSEQUE| 00000CC0: 4E 5A 20 53 43 48 49 43 4B 45 4E 00 ED 14 06 04 |NZ SCHICKEN.....| 00000CD0: 20 53 54 41 43 4F 4E 54 4C 2B 31 3B 28 56 4F 52 | STACONTL+1;(VOR| 00000CE0: 20 4A 45 44 45 52 20 5A 45 49 4C 45 29 00 FD 14 | JEDER ZEILE)...| 00000CF0: 10 04 20 53 54 59 43 4F 4E 54 48 2B 31 00 10 15 |.. STYCONTH+1...| 00000D00: 1A 04 20 4C 44 41 23 3C 28 45 49 4E 53 43 48 29 |.. LDA#<(EINSCH)| 00000D10: 00 23 15 24 04 20 4C 44 59 23 3E 28 45 49 4E 53 |.#.$. LDY#>(EINS| 00000D20: 43 48 29 00 5B 15 2E 04 20 4A 53 52 53 54 52 4F |CH).[... JSRSTRO| 00000D30: 55 54 3B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |UT;+++++++++++++| 00000D40: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 00000D50: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 71 15 38 04 |+++++++++++.q.8.| 00000D60: 20 4C 44 41 23 3C 28 53 43 48 4C 2B 24 31 34 30 | LDA#<(SCHL+$140| 00000D70: 29 00 A0 15 42 04 20 53 54 41 43 4F 4E 54 4C 2B |)...B. STACONTL+| 00000D80: 31 3B 5A 55 53 41 4D 4D 45 4E 47 45 53 54 45 4C |1;ZUSAMMENGESTEL| 00000D90: 4C 54 45 20 47 52 41 50 48 49 43 5A 45 49 4C 45 |LTE GRAPHICZEILE| 00000DA0: 00 B6 15 4C 04 20 4C 44 41 23 3E 28 53 43 48 4C |...L. LDA#>(SCHL| 00000DB0: 2B 24 31 34 30 29 00 DA 15 56 04 20 53 54 41 43 |+$140)...V. STAC| 00000DC0: 4F 4E 54 48 2B 31 3B 41 55 46 20 45 49 4E 4D 41 |ONTH+1;AUF EINMA| 00000DD0: 4C 20 41 55 53 47 45 42 45 4E 00 EB 15 60 04 20 |L AUSGEBEN...`. | 00000DE0: 4C 44 41 23 3C 28 53 43 48 4C 29 00 F8 15 6A 04 |LDA#<(SCHL)...j.| 00000DF0: 20 53 54 41 53 54 2B 31 00 09 16 74 04 20 4C 44 | STAST+1...t. LD| 00000E00: 59 23 3E 28 53 43 48 4C 29 00 16 16 7E 04 20 53 |Y#>(SCHL)...~. S| 00000E10: 54 59 53 54 2B 32 00 4D 16 88 04 20 4A 53 52 53 |TYST+2.M... JSRS| 00000E20: 54 52 4F 55 54 3B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |TROUT;++++++++++| 00000E30: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 00000E40: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 82 16 |+++++++++++++...| 00000E50: 92 04 20 4C 44 41 23 31 33 3B 52 45 54 55 52 4E |.. LDA#13;RETURN| 00000E60: 20 41 55 46 20 44 52 55 43 4B 45 52 20 53 43 48 | AUF DRUCKER SCH| 00000E70: 49 43 4B 45 4E 20 28 4E 45 55 45 20 5A 45 49 4C |ICKEN (NEUE ZEIL| 00000E80: 45 29 00 8F 16 9C 04 20 4A 53 52 43 4F 55 54 00 |E)..... JSRCOUT.| 00000E90: B1 16 A6 04 20 44 45 43 5A 45 49 4C 45 3B 41 4C |.... DECZEILE;AL| 00000EA0: 4C 45 20 5A 45 49 4C 45 4E 20 46 45 52 54 49 47 |LE ZEILEN FERTIG| 00000EB0: 3F 00 D0 16 B0 04 20 42 4E 45 5A 45 3B 4E 45 49 |?..... BNEZE;NEI| 00000EC0: 4E 3E 4E 41 45 43 48 53 54 45 20 5A 45 49 4C 45 |N>NAECHSTE ZEILE| 00000ED0: 00 F6 16 BA 04 20 4C 44 41 23 24 33 37 3B 42 41 |..... LDA#$37;BA| 00000EE0: 53 49 43 2B 4B 45 52 4E 41 4C 20 45 49 4E 53 43 |SIC+KERNAL EINSC| 00000EF0: 48 41 4C 54 45 4E 00 01 17 C4 04 20 53 54 41 30 |HALTEN..... STA0| 00000F00: 31 00 17 17 CE 04 20 43 4C 49 3B 49 52 51 20 5A |1..... CLI;IRQ Z| 00000F10: 55 4C 41 53 53 45 4E 00 20 17 D8 04 20 52 54 53 |ULASSEN. ... RTS| 00000F20: 00 46 17 E2 04 3B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |.F...;++++++++++| 00000F30: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 00000F40: 2B 2B 2B 2B 2B 2B 00 6C 17 EC 04 3B 53 54 52 4F |++++++.l...;STRO| 00000F50: 55 54 2D 41 55 53 47 41 42 45 20 45 49 4E 45 53 |UT-AUSGABE EINES| 00000F60: 20 20 20 20 2B 2B 2B 2B 2B 2B 2B 2B 00 92 17 F6 | ++++++++....| 00000F70: 04 3B 42 45 4C 49 45 42 49 47 20 4C 41 4E 47 45 |.;BELIEBIG LANGE| 00000F80: 4E 20 53 54 52 49 4E 47 53 20 2B 2B 2B 2B 2B 2B |N STRINGS ++++++| 00000F90: 2B 2B 00 B8 17 00 05 3B 41 55 46 20 50 41 52 41 |++.....;AUF PARA| 00000FA0: 4C 4C 45 4C 50 4F 52 54 20 20 20 20 20 20 20 20 |LLELPORT | 00000FB0: 2B 2B 2B 2B 2B 2B 2B 2B 00 DE 17 0A 05 3B 20 20 |++++++++.....; | 00000FC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000FD0: 20 20 20 20 20 20 2B 2B 2B 2B 2B 2B 2B 2B 00 04 | ++++++++..| 00000FE0: 18 14 05 3B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |...;++++++++++++| 00000FF0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 00001000: 2B 2B 2B 2B 00 2F 18 1E 05 53 54 52 4F 55 54 20 |++++./...STROUT | 00001010: 53 54 59 4C 41 44 45 2B 32 3B 48 49 2D 42 59 54 |STYLADE+2;HI-BYT| 00001020: 45 20 44 45 52 20 53 54 41 52 54 41 44 52 2E 00 |E DER STARTADR..| 00001030: 4D 18 28 05 20 53 54 41 4C 41 44 45 2B 31 3B 4C |M.(. STALADE+1;L| 00001040: 4F 2D 42 59 54 45 20 20 2D 2D 22 2D 2D 00 75 18 |O-BYTE --"--.u.| 00001050: 32 05 4C 41 44 45 20 4C 44 41 24 32 30 30 30 3B |2.LADE LDA$2000;| 00001060: 42 59 54 45 20 44 45 53 20 53 54 52 49 4E 47 20 |BYTE DES STRING | 00001070: 48 4F 4C 45 4E 00 94 18 3C 05 20 4A 53 52 43 4F |HOLEN...<. JSRCO| 00001080: 55 54 3B 41 55 46 20 50 4F 52 54 20 41 55 53 47 |UT;AUF PORT AUSG| 00001090: 45 42 45 4E 00 B3 18 46 05 20 49 4E 43 4C 41 44 |EBEN...F. INCLAD| 000010A0: 45 2B 31 3B 5A 45 49 47 45 52 20 45 52 48 4F 45 |E+1;ZEIGER ERHOE| 000010B0: 48 45 4E 00 BF 18 50 05 20 42 4E 45 57 45 32 00 |HEN...P. BNEWE2.| 000010C0: CE 18 5A 05 20 49 4E 43 4C 41 44 45 2B 32 00 E0 |..Z. INCLADE+2..| 000010D0: 18 64 05 57 45 32 20 4C 44 41 4C 41 44 45 2B 32 |.d.WE2 LDALADE+2| 000010E0: 00 1A 19 6E 05 43 4F 4E 54 48 20 43 4D 50 23 24 |...n.CONTH CMP#$| 000010F0: 34 31 3B 48 49 2D 42 59 54 45 20 44 45 52 20 41 |41;HI-BYTE DER A| 00001100: 4B 54 2E 20 41 44 52 45 53 53 45 3D 48 49 2D 42 |KT. ADRESSE=HI-B| 00001110: 28 45 4E 44 41 44 52 2E 29 3F 00 34 19 78 05 20 |(ENDADR.)?.4.x. | 00001120: 42 4E 45 4C 41 44 45 3B 4E 45 49 4E 20 3E 57 45 |BNELADE;NEIN >WE| 00001130: 49 54 45 52 00 66 19 82 05 20 4C 44 41 4C 41 44 |ITER.f... LDALAD| 00001140: 45 2B 31 3B 4C 4F 2D 42 59 54 45 20 44 45 52 20 |E+1;LO-BYTE DER | 00001150: 41 44 52 45 53 53 45 3D 4C 4F 2D 42 28 45 4E 44 |ADRESSE=LO-B(END| 00001160: 41 44 52 2E 29 3F 00 77 19 8C 05 43 4F 4E 54 4C |ADR.)?.w...CONTL| 00001170: 20 43 4D 50 23 36 34 00 91 19 96 05 20 42 4D 49 | CMP#64..... BMI| 00001180: 4C 41 44 45 3B 4E 45 49 4E 20 3E 57 45 49 54 45 |LADE;NEIN >WEITE| 00001190: 52 00 B4 19 A0 05 20 52 54 53 3B 5A 55 52 55 45 |R..... RTS;ZURUE| 000011A0: 43 4B 20 49 4E 53 20 48 41 55 50 54 50 52 4F 47 |CK INS HAUPTPROG| 000011B0: 52 41 4D 4D 00 C2 19 AA 05 5A 45 20 4A 4D 50 5A |RAMM.....ZE JMPZ| 000011C0: 45 49 00 E5 19 B4 05 3B 2D 2D 2D 2D 2D 2D 2D 2D |EI.....;--------| 000011D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000011E0: 2D 2D 2D 2D 2D 00 2A 1A BE 05 45 49 4E 53 43 48 |-----.*...EINSCH| 000011F0: 20 2E 42 59 32 37 2C 31 30 33 2C 35 2C 36 34 2C | .BY27,103,5,64,| 00001200: 31 3B 53 45 51 55 45 4E 5A 20 5A 55 4D 20 45 49 |1;SEQUENZ ZUM EI| 00001210: 4E 53 43 48 41 4C 54 45 4E 20 44 45 53 20 47 52 |NSCHALTEN DES GR| 00001220: 41 50 48 49 43 4D 4F 44 55 53 00 58 1A C8 05 5A |APHICMODUS.X...Z| 00001230: 45 41 42 53 54 20 2E 42 59 32 37 2C 36 35 2C 38 |EABST .BY27,65,8| 00001240: 3B 5A 45 49 4C 45 4E 41 42 53 54 41 4E 44 20 38 |;ZEILENABSTAND 8| 00001250: 2F 37 32 20 49 4E 43 48 00 7E 1A D2 05 3B 2B 2B |/72 INCH.~...;++| 00001260: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 00001270: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 A2 |++++++++++++++..| 00001280: 1A DC 05 43 4F 55 54 20 53 54 41 24 44 44 30 31 |...COUT STA$DD01| 00001290: 3B 44 41 54 45 4E 20 41 55 46 20 4C 45 49 54 55 |;DATEN AUF LEITU| 000012A0: 4E 47 00 BD 1A E6 05 20 4C 44 41 24 44 44 30 44 |NG..... LDA$DD0D| 000012B0: 3B 49 43 52 20 4C 4F 45 53 43 48 45 4E 00 CC 1A |;ICR LOESCHEN...| 000012C0: F0 05 20 4C 44 41 24 44 44 30 30 3B 00 ED 1A FA |.. LDA$DD00;....| 000012D0: 05 20 41 4E 44 23 24 46 42 3B 50 41 32 20 28 53 |. AND#$FB;PA2 (S| 000012E0: 54 52 4F 42 45 29 2D 53 49 47 4E 41 4C 00 FB 1A |TROBE)-SIGNAL...| 000012F0: 04 06 20 53 54 41 24 44 44 30 30 00 16 1B 0E 06 |.. STA$DD00.....| 00001300: 20 4F 52 41 23 30 34 3B 3D 3E 5A 45 49 43 48 45 | ORA#04;=>ZEICHE| 00001310: 4E 20 46 55 45 52 00 37 1B 18 06 20 53 54 41 24 |N FUER.7... STA$| 00001320: 44 44 30 30 3B 27 44 41 54 41 20 41 55 46 20 4C |DD00;'DATA AUF L| 00001330: 45 49 54 55 4E 47 27 00 4F 1B 22 06 20 4C 44 41 |EITUNG'.O.". LDA| 00001340: 23 24 31 30 3B 46 4C 41 47 32 2D 42 55 53 59 00 |#$10;FLAG2-BUSY.| 00001350: 6C 1B 2C 06 57 41 52 54 45 20 42 49 54 24 44 44 |l.,.WARTE BIT$DD| 00001360: 30 44 3B 42 55 53 59 20 4C 4F 57 3F 00 82 1B 36 |0D;BUSY LOW?...6| 00001370: 06 20 42 45 51 57 41 52 54 45 3B 2B 3E 20 4E 45 |. BEQWARTE;+> NE| 00001380: 49 4E 00 8B 1B 40 06 20 52 54 53 00 B0 1B 4A 06 |IN...@. RTS...J.| 00001390: 3B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |;+++++++++++++++| 000013A0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 000013B0: 00 D5 1B 54 06 3B 20 20 20 56 41 52 49 41 42 4C |...T.; VARIABL| 000013C0: 45 4E 20 20 20 20 20 20 20 2B 2B 2B 2B 2B 2B 2B |EN +++++++| 000013D0: 2B 2B 2B 2B 2B 00 FA 1B 5E 06 3B 2B 2B 2B 2B 2B |+++++...^.;+++++| 000013E0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 000013F0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 16 1C 68 06 5A |++++++++++...h.Z| 00001400: 45 49 4C 45 20 4E 4F 50 3B 5A 45 49 4C 45 4E 5A |EILE NOP;ZEILENZ| 00001410: 41 45 48 4C 45 52 00 34 1C 72 06 53 50 41 4C 54 |AEHLER.4.r.SPALT| 00001420: 45 20 4E 4F 50 3B 53 50 41 4C 54 45 4E 5A 41 45 |E NOP;SPALTENZAE| 00001430: 48 4C 45 52 00 61 1C 7C 06 42 59 5A 20 4E 4F 50 |HLER.a.|.BYZ NOP| 00001440: 3B 42 59 54 45 5A 41 45 48 4C 45 52 20 46 55 45 |;BYTEZAEHLER FUE| 00001450: 52 20 4A 45 44 45 53 20 4B 41 45 53 54 43 48 45 |R JEDES KAESTCHE| 00001460: 4E 00 86 1C 86 06 3B 2B 2B 2B 2B 2B 2B 2B 2B 2B |N.....;+++++++++| 00001470: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 00001480: 2B 2B 2B 2B 2B 2B 00 B4 1C 90 06 53 43 48 4C 20 |++++++.....SCHL | 00001490: 4E 4F 50 3B 41 4E 46 41 4E 47 20 44 45 53 20 41 |NOP;ANFANG DES A| 000014A0: 55 53 5A 55 47 45 42 45 4E 44 45 4E 20 53 54 52 |USZUGEBENDEN STR| 000014B0: 49 4E 47 53 00 00 00 |INGS... |
..'...;++++++++++++++++++++++++++++++++.
M...;+++++ +++++.S.
..;+++++ HARDCOPY FUER +++++...(.
;+++++ CENTRONICS DRUCKER +++++...2.;+
++++ (STAR SG) +++++...<.;+++
++ AM USER-PORT +++++...F.;+++++
+++++++++++++++++++++++++++.1.P.;+++++
+++++++++++.W.Z.;+++++ VON
+++++++++++.}.D.;+++++ RICHA
RD GRESEK +++++++++++...N.;+++++
+++++++++++.I.X.;+++++++++++++++
+++++++++++++++++.T....LI1,3......BA$700
0.....;... .;.....;+++++++++++++++++++++
+++++++++++.9...;AUSRECHNEN DER ++++
+++++++++._...;STARTADRESSE DER ++++++
+++++++...H.;BITMAP,PRUEFEN ++++++++
+++++...R.;OB GRAPHIC EIN ++++++++++
+++.Q...;+++++++++++++++++++++++++++++++
+.....START LDA$D018;BITS 12-13..... AND
#$0C;DER BITMAP..... ASL;INS HI-BYTE.%..
. ASL..... ASL.7... ASL.E.". STANBY+2.L.
,. LDA$DD00;BITS14-15 AUS CIA2 HOLEN.U.6
. LSR...@. RORNBY+2;INS HI-BYTE SCHIEBEN
...J. LSR...T. RORNBY+2.Y.^. LDANBY+2;BI
TS 1-2 DER CIA2 LOW-AKTIV...H. EOR#$C0;D
ESHALB UMKEHREN MIT EOR #%1100 0000.A.R.
STANBY+2;UND ZURUCK INS HI-BYTE DES BIT
MAPZEIGER.M.|. LDA#00.X... STANBY+1;LO-B
YTE DES BITMAPZEIGER = 0..... LDA$D011;B
IT5=1 =>HI-RES GRAPHIC EIN=> AUSDRUCKEN.
.... AND#32.I... BNEBEGIN..... RTS;BIT5=
0 >ZURUCK INS HAUPTPROGRAMM.....;+++++++
+++++++++++++++++++++++++.?.B.;HAUPTPROG
RAMM ++++++++++++++++.E.L.;+++++++++++
+++++++++++++++++++++...V.BEGIN SEI;INTE
RRUPT ABSCHALTEN..... LDA#$35;GANZES RAM
BIS AUF I/O.B... STA01;EINBLENDEN.....
LDA#$FF;PORT B CIA2 AUF AUGANG..... STA$
DD03..... LDA#<(ZEABST+3);ENDADRESSE.)..
. LDY#>(ZEABST+3).9... STACONTL+1.I.&. S
TYCONTH+1.I.0. LDA#<(ZEABST);STARTADRESS
E...:. LDY#>(ZEABST);DER BYTEFOLGE FUER
ZEILENABSTAND 8/72 INCH...D. JSRSTROUT;B
YTEFOLGE AUF PARALLEL-PORT AUSGEBEN...N.
LDA#25;25 ZEILEN*40 SPALTEN...X. STAZEI
LE...B.ZEI LDA#40.(.L. STASPALTE.P.V.SPA
LDA#8;8 BYTE IN JEDEM KAESTCHEN.\... ST
ABYZ.I...BY LDY#8.....NBY LDA$6000;BYTE
AUS BITMAP HOLEN.H...LOOP LDX#01;+++++++
++++++++++++++++++++++++++++++++.....LOO
ROL;BIT NR.X INS CARRY..... DEX.$... BN
ELOO;+++++++++++++++++++++++++++++++++++
++++.U.F.ST ROLSCHL;CARRY INS AKTUELLE B
YTE EINFUEGEN...P. INCNBY+1;++++++++++++
+++++++++++++++++++++++++++...Z. BNEWE;B
ITMAPZEIGER ERHOEHEN..... INCNBY+2;+++++
++++++++++++++++++++++++++++++++++.....W
E DEY;SCHON 8 BIT ZUSAMMEN?.*... BNENBY;
NEIN >NAECHSTES BYTE HOLEN.L... INCLOOP+
1;NAECHSTE BITSPALTE.U... SEC..... LDANB
Y+1;++++++++++++++++++++++++++++++++++++
+++++++++++.N. . SBC#8;BITMAPZEIGER AUF
BYTE NR.1 DER NAECHSTEN SPALTE...*. STAN
BY+1;SETZEN...4. LDANBY+2...>. SBC#00.3.
H. STANBY+2;++++++++++++++++++++++++++++
+++++++++++.K.R. INCST+1;ZEIGER AUF AKTU
ELLES BYTE IM AUSGABESTRING...\. BNEWE1;
ERHOEHEN...F. INCST+2;+++++++++++++++
++++++++++++++++++++++++...P.WE1 DECBYZ;
ALLE 8 BYTE DES KAESTCHENS FERTIG?...Z.
BNEBY;NEIN=>SPRUNG./... LDA#01;1.BITSPAL
TE DER NAECHSTEN SPALTE.>... STALOOP+1.O
... CLC;++++++++++++++++++++++++++++++++
+++++++..... LDANBY+1;BITMAPZEIGER AUF 1
.BYTE DER NAECHSTEN SPALTE..... ADC#8;ST
ELLEN.K... STANBY+1.Y... LDANBY+2...J. A
DC#00...T. STANBY+2;++++++++++++++++++++
+++++++++++++++++++.8... DECSPALTE;ZEILE
FERTIG?.Z... BNESPA;NEIN >NEACHSTE SPAL
TE..... LDA#<(ZEABST);++++++++++++++++++
++++++++++++++++++++++.K... LDY#>(ZEABST
);GRAPHIC-EINSCHALTSEQUENZ SCHICKEN.....
STACONTL+1;(VOR JEDER ZEILE)..... STYCO
NTH+1..... LDA#<(EINSCH).#.$. LDY#>(EINS
CH).[... JSRSTROUT;+++++++++++++++++++++
+++++++++++++++++++.Q.8. LDA#<(SCHL+$140
). .B. STACONTL+1;ZUSAMMENGESTELLTE GRAP
HICZEILE...L. LDA#>(SCHL+$140).Z.V. STAC
ONTH+1;AUF EINMAL AUSGEBEN...`. LDA#<(SC
HL)...J. STAST+1...T. LDY#>(SCHL)...~. S
TYST+2.M... JSRSTROUT;++++++++++++++++++
+++++++++++++++++++++..... LDA#13;RETURN
AUF DRUCKER SCHICKEN (NEUE ZEILE).....
JSRCOUT..... DECZEILE;ALLE ZEILEN FERTIG
?.P... BNEZE;NEIN>NAECHSTE ZEILE..... LD
A#$37;BASIC+KERNAL EINSCHALTEN...D. STA0
1...N. CLI;IRQ ZULASSEN. .X. RTS.F...;++
++++++++++++++++++++++++++++++.L...;STRO
UT-AUSGABE EINES ++++++++.....;BELIEB
IG LANGEN STRINGS ++++++++.....;AUF PARA
LLELPORT ++++++++.....;
++++++++.....;++++++++++++
++++++++++++++++++++./...STROUT STYLADE+
2;HI-BYTE DER STARTADR..M.(. STALADE+1;L
O-BYTE --"--.U.2.LADE LDA$2000;BYTE DES
STRING HOLEN...<. JSRCOUT;AUF PORT AUSG
EBEN...F. INCLADE+1;ZEIGER ERHOEHEN...P.
BNEWE2.N.Z. INCLADE+2...D.WE2 LDALADE+2
...N.CONTH CMP#$41;HI-BYTE DER AKT. ADRE
SSE=HI-B(ENDADR.)?.4.X. BNELADE;NEIN >WE
ITER.F... LDALADE+1;LO-BYTE DER ADRESSE=
LO-B(ENDADR.)?.W...CONTL CMP#64..... BMI
LADE;NEIN >WEITER... . RTS;ZURUECK INS H
AUPTPROGRAMM.B...ZE JMPZEI.....;--------
---------------------.*...EINSCH .BY27,1
03,5,64,1;SEQUENZ ZUM EINSCHALTEN DES GR
APHICMODUS.X.H.ZEABST .BY27,65,8;ZEILENA
BSTAND 8/72 INCH.~.R.;++++++++++++++++++
++++++++++++++.....COUT STA$DD01;DATEN A
UF LEITUNG..... LDA$DD0D;ICR LOESCHEN.L.
.. LDA$DD00;..... AND#$FB;PA2 (STROBE)-S
IGNAL..... STA$DD00..... ORA#04;=>ZEICHE
N FUER.7... STA$DD00;'DATA AUF LEITUNG'.
O.". LDA#$10;FLAG2-BUSY.L.,.WARTE BIT$DD
0D;BUSY LOW?...6. BEQWARTE;+> NEIN...@.
RTS...J.;+++++++++++++++++++++++++++++++
.U.T.; VARIABLEN ++++++++++++...
^.;+++++++++++++++++++++++++++++++...H.Z
EILE NOP;ZEILENZAEHLER.4.R.SPALTE NOP;SP
ALTENZAEHLER.A.|.BYZ NOP;BYTEZAEHLER FUE
R JEDES KAESTCHEN.....;+++++++++++++++++
++++++++++++++.....SCHL NOP;ANFANG DES A
USZUGEBENDEN STRINGS...
> CLICK IMAGE PREVIEW FOR FULL MODAL