MORE LINES.ASCII
FILE INFORMATION
FILENAME(S): MORE LINES.ASCII
FILE TYPE(S): SEQ
FILE SIZE: 7.6K
FIRST SEEN: 2025-11-30 01:13:05
APPEARS ON: 1 disk(s)
FILE HASH
abfe3b98303e5afe4e1417f762c04075c62a5594aa4568644369ba96cb4bea4e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10303 SEITE B | MORE LINES.ASCII | SEQ | C64er | 14 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 31 30 30 20 20 20 20 20 20 20 20 4F 52 47 |..100 ORG| 00000010: 20 24 31 33 30 30 20 3B 53 54 41 52 54 20 3D 20 | $1300 ;START = | 00000020: 34 38 36 34 0D 31 31 30 20 20 20 20 20 20 20 20 |4864.110 | 00000030: 4A 4D 50 20 49 4E 49 54 20 20 3B 41 45 4E 44 45 |JMP INIT ;AENDE| 00000040: 52 20 45 44 49 54 4F 52 2E 0D 31 32 30 20 20 20 |R EDITOR..120 | 00000050: 20 20 20 20 20 4A 4D 50 20 4C 49 4E 45 20 20 3B | JMP LINE ;| 00000060: 57 41 48 4C 45 20 23 20 5A 45 49 4C 45 4E 2E 0D |WAHLE # ZEILEN..| 00000070: 31 33 30 20 20 20 20 20 20 20 20 4A 4D 50 20 4B |130 JMP K| 00000080: 41 52 53 45 54 3B 4D 41 43 48 20 5A 45 49 43 48 |ARSET;MACH ZEICH| 00000090: 45 4E 53 41 54 5A 2E 0D 31 34 30 20 49 4E 49 54 |ENSATZ..140 INIT| 000000A0: 20 20 20 53 45 49 0D 31 35 30 20 20 20 20 20 20 | SEI.150 | 000000B0: 20 20 4C 44 41 20 23 24 32 30 20 20 3B 53 45 54 | LDA #$20 ;SET| 000000C0: 5A 45 20 56 41 52 49 41 42 4C 45 4E 0D 31 36 30 |ZE VARIABLEN.160| 000000D0: 20 20 20 20 20 20 20 20 53 54 41 20 24 33 30 20 | STA $30 | 000000E0: 20 20 3B 53 54 41 52 54 20 4E 41 43 48 0D 31 37 | ;START NACH.17| 000000F0: 30 20 20 20 20 20 20 20 20 53 54 41 20 24 33 32 |0 STA $32| 00000100: 20 20 20 3B 24 32 30 30 30 2E 0D 31 38 30 20 20 | ;$2000..180 | 00000110: 20 20 20 20 20 20 53 54 41 20 24 33 34 0D 31 39 | STA $34.19| 00000120: 30 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 |0 LDY #$0| 00000130: 30 0D 32 30 30 20 20 20 20 20 20 20 20 53 54 59 |0.200 STY| 00000140: 20 24 32 46 0D 32 31 30 20 20 20 20 20 20 20 20 | $2F.210 | 00000150: 53 54 59 20 24 33 31 0D 32 32 30 20 20 20 20 20 |STY $31.220 | 00000160: 20 20 20 53 54 59 20 24 33 33 0D 32 33 30 20 20 | STY $33.230 | 00000170: 20 20 20 20 20 20 53 54 59 20 24 46 42 0D 32 34 | STY $FB.24| 00000180: 30 20 20 20 20 20 20 20 20 53 54 59 20 24 46 44 |0 STY $FD| 00000190: 0D 32 35 30 20 20 20 20 20 20 20 20 4C 44 41 20 |.250 LDA | 000001A0: 23 24 43 30 0D 32 36 30 20 20 20 20 20 20 20 20 |#$C0.260 | 000001B0: 53 54 41 20 24 46 43 0D 32 37 30 20 20 20 20 20 |STA $FC.270 | 000001C0: 20 20 20 53 54 41 20 24 46 45 0D 32 38 30 20 20 | STA $FE.280 | 000001D0: 20 20 20 20 20 20 53 54 41 20 24 46 46 30 33 20 | STA $FF03 | 000001E0: 3B 49 2F 4F 20 41 55 53 2E 0D 32 39 30 20 20 20 |;I/O AUS..290 | 000001F0: 20 20 20 20 20 4C 44 58 20 23 24 33 46 20 20 3B | LDX #$3F ;| 00000200: 4B 4F 50 49 45 52 20 24 43 30 30 30 0D 33 30 30 |KOPIER $C000.300| 00000210: 20 20 20 20 20 20 20 20 4A 53 52 20 43 4F 50 59 | JSR COPY| 00000220: 43 20 3B 42 49 53 20 24 46 45 46 46 2E 0D 33 31 |C ;BIS $FEFF..31| 00000230: 30 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 |0 LDY #$0| 00000240: 35 20 20 3B 4B 4F 50 49 45 52 20 24 46 46 30 35 |5 ;KOPIER $FF05| 00000250: 0D 33 32 30 20 20 20 20 20 20 20 20 4A 53 52 20 |.320 JSR | 00000260: 43 4F 50 59 42 20 3B 42 49 53 20 24 46 46 46 46 |COPYB ;BIS $FFFF| 00000270: 0D 33 33 30 20 20 20 20 20 20 20 20 4C 44 58 20 |.330 LDX | 00000280: 23 24 30 31 20 20 20 3B 41 45 4E 44 45 52 20 4B |#$01 ;AENDER K| 00000290: 45 52 4E 41 4C 0D 33 34 30 20 4C 32 20 20 20 20 |ERNAL.340 L2 | 000002A0: 20 4C 44 41 20 4E 45 57 31 2C 58 20 3B 55 4E 44 | LDA NEW1,X ;UND| 000002B0: 0D 33 35 30 20 20 20 20 20 20 20 20 53 54 41 20 |.350 STA | 000002C0: 24 43 31 35 46 2C 58 3B 42 41 53 49 43 20 56 45 |$C15F,X;BASIC VE| 000002D0: 43 54 4F 52 53 2E 0D 33 36 30 20 20 20 20 20 20 |CTORS..360 | 000002E0: 20 20 53 54 41 20 24 43 34 34 44 2C 58 0D 33 37 | STA $C44D,X.37| 000002F0: 30 20 20 20 20 20 20 20 20 4C 44 41 20 4E 45 57 |0 LDA NEW| 00000300: 32 2C 58 0D 33 38 30 20 20 20 20 20 20 20 20 53 |2,X.380 S| 00000310: 54 41 20 24 43 31 36 39 2C 58 0D 33 39 30 20 20 |TA $C169,X.390 | 00000320: 20 20 20 20 20 20 53 54 41 20 24 43 34 35 33 2C | STA $C453,| 00000330: 58 0D 34 30 30 20 20 20 20 20 20 20 20 4C 44 41 |X.400 LDA| 00000340: 20 4E 45 57 33 2C 58 0D 34 31 30 20 20 20 20 20 | NEW3,X.410 | 00000350: 20 20 20 53 54 41 20 24 43 41 33 37 2C 58 0D 34 | STA $CA37,X.4| 00000360: 32 30 20 20 20 20 20 20 20 20 4C 44 41 20 4E 45 |20 LDA NE| 00000370: 57 34 2C 58 0D 34 33 30 20 20 20 20 20 20 20 20 |W4,X.430 | 00000380: 53 54 41 20 24 43 42 37 41 2C 58 0D 34 34 30 20 |STA $CB7A,X.440 | 00000390: 20 20 20 20 20 20 20 53 54 41 20 24 43 42 38 42 | STA $CB8B| 000003A0: 2C 58 0D 34 35 30 20 20 20 20 20 20 20 20 53 54 |,X.450 ST| 000003B0: 41 20 24 43 42 38 45 2C 58 0D 34 36 30 20 20 20 |A $CB8E,X.460 | 000003C0: 20 20 20 20 20 53 54 41 20 24 43 42 39 42 2C 58 | STA $CB9B,X| 000003D0: 0D 34 37 30 20 20 20 20 20 20 20 20 4C 44 41 20 |.470 LDA | 000003E0: 4E 45 57 35 2C 58 0D 34 38 30 20 20 20 20 20 20 |NEW5,X.480 | 000003F0: 20 20 53 54 41 20 24 30 33 32 34 2C 58 20 3B 45 | STA $0324,X ;E| 00000400: 49 4E 46 55 48 52 0D 34 39 30 20 20 20 20 20 20 |INFUHR.490 | 00000410: 20 20 4C 44 41 20 4E 45 57 36 2C 58 0D 35 30 30 | LDA NEW6,X.500| 00000420: 20 20 20 20 20 20 20 20 53 54 41 20 24 30 33 32 | STA $032| 00000430: 36 2C 58 20 3B 41 55 53 46 55 48 52 0D 35 31 30 |6,X ;AUSFUHR.510| 00000440: 20 20 20 20 20 20 20 20 4C 44 41 20 4E 45 57 37 | LDA NEW7| 00000450: 2C 58 0D 35 32 30 20 20 20 20 20 20 20 20 53 54 |,X.520 ST| 00000460: 41 20 24 30 33 33 41 2C 58 20 3B 54 41 53 54 45 |A $033A,X ;TASTE| 00000470: 4E 0D 35 33 30 20 20 20 20 20 20 20 20 4C 44 41 |N.530 LDA| 00000480: 20 4E 45 57 38 2C 58 0D 35 34 30 20 20 20 20 20 | NEW8,X.540 | 00000490: 20 20 20 53 54 41 20 24 30 33 30 32 2C 58 20 3B | STA $0302,X ;| 000004A0: 42 41 53 49 43 20 5A 45 49 4C 45 4E 0D 35 35 30 |BASIC ZEILEN.550| 000004B0: 20 20 20 20 20 20 20 20 4C 44 41 20 4E 45 57 39 | LDA NEW9| 000004C0: 2C 58 0D 35 36 30 20 20 20 20 20 20 20 20 53 54 |,X.560 ST| 000004D0: 41 20 24 30 33 30 38 2C 58 20 3B 42 41 53 49 43 |A $0308,X ;BASIC| 000004E0: 20 42 45 46 45 48 4C 45 4E 0D 35 37 30 20 20 20 | BEFEHLEN.570 | 000004F0: 20 20 20 20 20 44 45 58 0D 35 38 30 20 20 20 20 | DEX.580 | 00000500: 20 20 20 20 42 50 4C 20 4C 32 0D 35 39 30 20 20 | BPL L2.590 | 00000510: 20 20 20 20 20 20 4C 44 41 20 23 24 46 46 0D 36 | LDA #$FF.6| 00000520: 30 30 20 20 20 20 20 20 20 20 53 54 41 20 24 43 |00 STA $C| 00000530: 31 36 43 0D 36 31 30 20 20 20 20 20 20 20 20 53 |16C.610 S| 00000540: 54 41 20 24 43 31 38 37 0D 36 32 30 20 20 20 20 |TA $C187.620 | 00000550: 20 20 20 20 53 54 41 20 24 43 34 35 36 0D 36 33 | STA $C456.63| 00000560: 30 20 20 20 20 20 20 20 20 53 54 41 20 24 43 34 |0 STA $C4| 00000570: 38 39 0D 36 34 30 20 20 20 20 20 20 20 20 53 54 |89.640 ST| 00000580: 41 20 24 43 35 32 32 0D 36 35 30 20 20 20 20 20 |A $C522.650 | 00000590: 20 20 20 4C 44 41 20 23 24 32 30 20 20 20 20 3B | LDA #$20 ;| 000005A0: 33 32 2A 38 3D 32 35 36 0D 36 36 30 20 20 20 20 |32*8=256.660 | 000005B0: 20 20 20 20 53 54 41 20 24 43 41 33 35 20 20 20 | STA $CA35 | 000005C0: 3B 4C 49 4E 4B 20 5A 45 49 4C 45 4E 2E 0D 36 37 |;LINK ZEILEN..67| 000005D0: 30 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 43 |0 LDA #$C| 000005E0: 43 20 20 20 20 3B 4B 4F 50 49 45 52 0D 36 38 30 |C ;KOPIER.680| 000005F0: 20 20 20 20 20 20 20 20 53 54 41 20 24 46 42 20 | STA $FB | 00000600: 20 20 20 20 3B 57 49 4E 44 4F 57 0D 36 39 30 20 | ;WINDOW.690 | 00000610: 20 20 20 20 20 20 20 4C 44 41 20 23 24 37 32 20 | LDA #$72 | 00000620: 20 20 20 3B 52 4F 55 54 49 4E 45 2E 0D 37 30 30 | ;ROUTINE..700| 00000630: 20 20 20 20 20 20 20 20 4C 44 58 20 23 3C 57 49 | LDX #<WI| 00000640: 4E 44 4F 57 0D 37 31 30 20 20 20 20 20 20 20 20 |NDOW.710 | 00000650: 4C 44 59 20 23 3E 57 49 4E 44 4F 57 0D 37 32 30 |LDY #>WINDOW.720| 00000660: 20 20 20 20 20 20 20 20 4A 53 52 20 43 4F 50 59 | JSR COPY| 00000670: 41 0D 37 33 30 20 20 20 20 20 20 20 20 4C 44 41 |A.730 LDA| 00000680: 20 23 24 44 37 20 20 20 20 3B 4B 4F 50 49 45 52 | #$D7 ;KOPIER| 00000690: 0D 37 34 30 20 20 20 20 20 20 20 20 53 54 41 20 |.740 STA | 000006A0: 24 46 42 20 20 20 20 20 3B 43 48 41 52 0D 37 35 |$FB ;CHAR.75| 000006B0: 30 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 36 |0 LDA #$6| 000006C0: 37 20 20 20 20 3B 52 4F 55 54 49 4E 45 2E 0D 37 |7 ;ROUTINE..7| 000006D0: 36 30 20 20 20 20 20 20 20 20 4C 44 58 20 23 3C |60 LDX #<| 000006E0: 43 48 41 52 0D 37 37 30 20 20 20 20 20 20 20 20 |CHAR.770 | 000006F0: 4C 44 59 20 23 3E 43 48 41 52 0D 37 38 30 20 20 |LDY #>CHAR.780 | 00000700: 20 20 20 20 20 20 4A 53 52 20 43 4F 50 59 41 0D | JSR COPYA.| 00000710: 37 39 30 20 20 20 20 20 20 20 20 4C 44 41 20 23 |790 LDA #| 00000720: 3C 52 50 4C 4F 54 20 3B 41 45 4E 44 45 52 0D 38 |<RPLOT ;AENDER.8| 00000730: 30 30 20 20 20 20 20 20 20 20 53 54 41 20 43 48 |00 STA CH| 00000740: 41 52 2B 24 36 32 3B 43 48 41 52 0D 38 31 30 20 |AR+$62;CHAR.810 | 00000750: 20 20 20 20 20 20 20 4C 44 41 20 23 3E 52 50 4C | LDA #>RPL| 00000760: 4F 54 20 3B 52 4F 55 54 49 4E 45 0D 38 32 30 20 |OT ;ROUTINE.820 | 00000770: 20 20 20 20 20 20 20 53 54 41 20 43 48 41 52 2B | STA CHAR+| 00000780: 24 36 33 3B 53 4F 20 44 41 53 53 0D 38 33 30 20 |$63;SO DASS.830 | 00000790: 20 20 20 20 20 20 20 4C 44 41 20 23 3C 52 41 4D | LDA #<RAM| 000007A0: 20 20 20 3B 44 45 4E 20 4E 45 55 45 0D 38 34 30 | ;DEN NEUE.840| 000007B0: 20 20 20 20 20 20 20 20 53 54 41 20 43 48 41 52 | STA CHAR| 000007C0: 2B 24 37 39 3B 52 41 4D 2D 4B 45 52 4E 41 4C 0D |+$79;RAM-KERNAL.| 000007D0: 38 35 30 20 20 20 20 20 20 20 20 4C 44 41 20 23 |850 LDA #| 000007E0: 3E 52 41 4D 20 20 20 3B 41 4E 47 45 53 50 52 4F |>RAM ;ANGESPRO| 000007F0: 43 48 45 4E 0D 38 36 30 20 20 20 20 20 20 20 20 |CHEN.860 | 00000800: 53 54 41 20 43 48 41 52 2B 24 37 41 3B 57 49 52 |STA CHAR+$7A;WIR| 00000810: 44 2E 0D 38 37 30 20 20 20 20 20 20 20 20 4C 44 |D..870 LD| 00000820: 41 20 23 24 34 43 0D 38 38 30 20 20 20 20 20 20 |A #$4C.880 | 00000830: 20 20 53 54 41 20 43 48 41 52 2B 24 38 43 0D 38 | STA CHAR+$8C.8| 00000840: 39 30 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 |90 LDA #$| 00000850: 36 33 0D 39 30 30 20 20 20 20 20 20 20 20 53 54 |63.900 ST| 00000860: 41 20 43 48 41 52 2B 24 38 44 0D 39 31 30 20 20 |A CHAR+$8D.910 | 00000870: 20 20 20 20 20 20 4C 44 41 20 23 24 36 38 0D 39 | LDA #$68.9| 00000880: 32 30 20 20 20 20 20 20 20 20 53 54 41 20 43 48 |20 STA CH| 00000890: 41 52 2B 24 38 45 0D 39 33 30 20 20 20 20 20 20 |AR+$8E.930 | 000008A0: 20 20 4C 44 41 20 23 24 43 35 20 20 20 20 3B 4B | LDA #$C5 ;K| 000008B0: 4F 50 49 45 52 0D 39 34 30 20 20 20 20 20 20 20 |OPIER.940 | 000008C0: 20 53 54 41 20 24 46 42 20 20 20 20 20 3B 49 46 | STA $FB ;IF| 000008D0: 0D 39 35 30 20 20 20 20 20 20 20 20 4C 44 41 20 |.950 LDA | 000008E0: 23 24 35 32 20 20 20 20 3B 52 4F 55 54 49 4E 45 |#$52 ;ROUTINE| 000008F0: 0D 39 36 30 20 20 20 20 20 20 20 20 4C 44 58 20 |.960 LDX | 00000900: 23 3C 49 46 0D 39 37 30 20 20 20 20 20 20 20 20 |#<IF.970 | 00000910: 4C 44 59 20 23 3E 49 46 0D 39 38 30 20 20 20 20 |LDY #>IF.980 | 00000920: 20 20 20 20 4A 53 52 20 43 4F 50 59 41 0D 39 39 | JSR COPYA.99| 00000930: 30 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 32 |0 LDA #$2| 00000940: 43 0D 31 30 30 30 20 20 20 20 20 20 20 20 53 54 |C.1000 ST| 00000950: 41 20 49 46 2B 24 32 45 20 20 3B 42 45 49 20 4E |A IF+$2E ;BEI N| 00000960: 45 55 45 0D 31 30 31 30 20 20 20 20 20 20 20 20 |EUE.1010 | 00000970: 4C 44 41 20 23 3C 4E 45 57 43 4F 32 3B 42 41 53 |LDA #<NEWCO2;BAS| 00000980: 49 43 0D 31 30 32 30 20 20 20 20 20 20 20 20 53 |IC.1020 S| 00000990: 54 41 20 49 46 2B 24 35 39 20 20 3B 42 45 46 45 |TA IF+$59 ;BEFE| 000009A0: 48 4C 45 4E 0D 31 30 33 30 20 20 20 20 20 20 20 |HLEN.1030 | 000009B0: 20 4C 44 41 20 23 3E 4E 45 57 43 4F 32 3B 4D 55 | LDA #>NEWCO2;MU| 000009C0: 53 53 20 41 55 43 48 0D 31 30 34 30 20 20 20 20 |SS AUCH.1040 | 000009D0: 20 20 20 20 53 54 41 20 49 46 2B 24 35 41 20 20 | STA IF+$5A | 000009E0: 3B 44 49 45 20 49 46 0D 31 30 35 30 20 20 20 20 |;DIE IF.1050 | 000009F0: 20 20 20 20 4C 44 41 20 23 24 34 43 20 20 20 20 | LDA #$4C | 00000A00: 3B 52 4F 55 54 49 4E 45 0D 31 30 36 30 20 20 20 |;ROUTINE.1060 | 00000A10: 20 20 20 20 20 53 54 41 20 49 46 2B 24 35 42 20 | STA IF+$5B | 00000A20: 20 3B 47 45 41 45 4E 44 45 52 54 0D 31 30 37 30 | ;GEAENDERT.1070| 00000A30: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 39 44 | LDA #$9D| 00000A40: 20 20 20 20 3B 57 45 52 44 45 4E 2E 0D 31 30 38 | ;WERDEN..108| 00000A50: 30 20 20 20 20 20 20 20 20 53 54 41 20 49 46 2B |0 STA IF+| 00000A60: 24 35 43 0D 31 30 39 30 20 20 20 20 20 20 20 20 |$5C.1090 | 00000A70: 4C 44 41 20 23 24 35 32 0D 31 31 30 30 20 20 20 |LDA #$52.1100 | 00000A80: 20 20 20 20 20 53 54 41 20 49 46 2B 24 35 44 0D | STA IF+$5D.| 00000A90: 31 31 31 30 20 20 20 20 20 20 20 20 4A 53 52 20 |1110 JSR | 00000AA0: 54 41 42 4C 45 53 20 3B 5A 45 49 4C 45 4E 41 44 |TABLES ;ZEILENAD| 00000AB0: 44 52 45 53 53 45 2E 0D 31 31 32 30 20 20 20 20 |DRESSE..1120 | 00000AC0: 20 20 20 20 4C 44 41 20 23 24 30 30 20 20 20 3B | LDA #$00 ;| 00000AD0: 52 4F 4D 20 45 49 4E 0D 31 31 33 30 20 20 20 20 |ROM EIN.1130 | 00000AE0: 20 20 20 20 53 54 41 20 24 46 46 30 30 0D 31 31 | STA $FF00.11| 00000AF0: 34 30 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 |40 LDA #$| 00000B00: 30 36 20 20 20 3B 42 49 53 20 24 32 30 30 30 0D |06 ;BIS $2000.| 00000B10: 31 31 35 30 20 20 20 20 20 20 20 20 53 54 41 20 |1150 STA | 00000B20: 24 44 35 30 36 20 20 3B 42 41 4E 4B 31 3D 42 41 |$D506 ;BANK1=BA| 00000B30: 4E 4B 30 2E 0D 31 31 36 30 20 20 20 20 20 20 20 |NK0..1160 | 00000B40: 20 4C 44 58 20 23 24 30 36 20 20 20 3B 48 4F 4C | LDX #$06 ;HOL| 00000B50: 45 20 41 4E 5A 41 48 4C 0D 31 31 37 30 20 20 20 |E ANZAHL.1170 | 00000B60: 20 20 20 20 20 4A 53 52 20 24 43 44 44 41 20 20 | JSR $CDDA | 00000B70: 3B 5A 45 49 4C 45 4E 2E 0D 31 31 38 30 20 20 20 |;ZEILEN..1180 | 00000B80: 20 20 20 20 20 43 4C 49 0D 31 31 39 30 20 4C 49 | CLI.1190 LI| 00000B90: 4E 45 20 20 20 4C 44 58 20 23 24 30 36 20 20 20 |NE LDX #$06 | 00000BA0: 20 20 20 3B 53 45 54 5A 45 0D 31 32 30 30 20 20 | ;SETZE.1200 | 00000BB0: 20 20 20 20 20 20 4A 53 52 20 24 43 44 43 43 20 | JSR $CDCC | 00000BC0: 20 20 20 20 3B 53 43 48 49 52 4D 0D 31 32 31 30 | ;SCHIRM.1210| 00000BD0: 20 20 20 20 20 20 20 20 53 54 41 20 57 49 4E 44 | STA WIND| 00000BE0: 4F 57 2B 24 31 34 3B 55 4E 44 0D 31 32 32 30 20 |OW+$14;UND.1220 | 00000BF0: 20 20 20 20 20 20 20 53 54 41 20 57 49 4E 44 4F | STA WINDO| 00000C00: 57 2B 24 33 33 3B 57 49 4E 44 4F 57 0D 31 32 33 |W+$33;WINDOW.123| 00000C10: 30 20 20 20 20 20 20 20 20 54 41 59 20 20 20 20 |0 TAY | 00000C20: 20 20 20 20 20 20 20 3B 5A 55 20 44 45 4D 0D 31 | ;ZU DEM.1| 00000C30: 32 34 30 20 20 20 20 20 20 20 20 44 45 59 20 20 |240 DEY | 00000C40: 20 20 20 20 20 20 20 20 20 3B 4E 45 55 45 0D 31 | ;NEUE.1| 00000C50: 32 35 30 20 20 20 20 20 20 20 20 53 54 59 20 24 |250 STY $| 00000C60: 45 44 20 20 20 20 20 20 20 3B 41 4E 5A 41 48 4C |ED ;ANZAHL| 00000C70: 0D 31 32 36 30 20 20 20 20 20 20 20 20 4A 53 52 |.1260 JSR| 00000C80: 20 52 41 4D 20 20 20 20 20 20 20 3B 5A 45 49 4C | RAM ;ZEIL| 00000C90: 45 4E 2E 0D 31 32 37 30 20 20 20 20 20 20 20 20 |EN..1270 | 00000CA0: 4A 53 52 20 24 43 41 32 34 0D 31 32 38 30 20 20 |JSR $CA24.1280 | 00000CB0: 20 20 20 20 20 20 4A 4D 50 20 24 41 38 34 35 20 | JMP $A845 | 00000CC0: 20 20 20 20 3B 52 4F 4D 20 45 49 4E 2E 0D 31 32 | ;ROM EIN..12| 00000CD0: 39 30 20 52 41 4D 20 20 20 20 50 48 41 20 20 20 |90 RAM PHA | 00000CE0: 20 20 20 20 20 20 20 20 3B 52 41 4D 20 45 49 4E | ;RAM EIN| 00000CF0: 2E 0D 31 33 30 30 20 20 20 20 20 20 20 20 4C 44 |..1300 LD| 00000D00: 41 20 23 24 33 30 0D 31 33 31 30 20 20 20 20 20 |A #$30.1310 | 00000D10: 20 20 20 4A 4D 50 20 24 41 38 34 38 0D 31 33 32 | JMP $A848.132| 00000D20: 30 20 49 4E 20 20 20 20 20 4A 53 52 20 52 41 4D |0 IN JSR RAM| 00000D30: 20 20 20 20 3B 49 4E 50 55 54 2D 56 45 43 54 4F | ;INPUT-VECTO| 00000D40: 52 0D 31 33 33 30 20 20 20 20 20 20 20 20 4A 53 |R.1330 JS| 00000D50: 52 20 24 45 46 30 36 20 20 3B 5A 45 49 47 54 20 |R $EF06 ;ZEIGT | 00000D60: 4A 45 54 5A 54 20 41 55 46 0D 31 33 34 30 20 20 |JETZT AUF.1340 | 00000D70: 20 20 20 20 20 20 4A 4D 50 20 24 41 38 34 35 20 | JMP $A845 | 00000D80: 20 3B 52 41 4D 2D 4B 45 52 4E 41 4C 2E 0D 31 33 | ;RAM-KERNAL..13| 00000D90: 35 30 20 4F 55 54 20 20 20 20 4A 53 52 20 52 41 |50 OUT JSR RA| 00000DA0: 4D 20 20 20 20 3B 4E 45 55 45 20 52 41 4D 0D 31 |M ;NEUE RAM.1| 00000DB0: 33 36 30 20 20 20 20 20 20 20 20 4A 53 52 20 24 |360 JSR $| 00000DC0: 45 46 37 39 20 20 3B 4F 55 54 50 55 54 2D 56 45 |EF79 ;OUTPUT-VE| 00000DD0: 43 54 4F 52 2E 0D 31 33 37 30 20 20 20 20 20 20 |CTOR..1370 | 00000DE0: 20 20 4A 4D 50 20 24 41 38 34 35 0D 31 33 38 30 | JMP $A845.1380| 00000DF0: 20 4B 41 52 20 20 20 20 4A 53 52 20 52 41 4D 20 | KAR JSR RAM | 00000E00: 20 20 20 3B 54 41 53 54 45 4E 2D 52 4F 55 54 0D | ;TASTEN-ROUT.| 00000E10: 31 33 39 30 20 20 20 20 20 20 20 20 4A 53 52 20 |1390 JSR | 00000E20: 24 43 35 45 31 20 20 3B 4E 55 54 5A 54 20 41 55 |$C5E1 ;NUTZT AU| 00000E30: 43 48 0D 31 34 30 30 20 20 20 20 20 20 20 20 4A |CH.1400 J| 00000E40: 4D 50 20 24 41 38 34 35 20 20 3B 44 41 53 20 4E |MP $A845 ;DAS N| 00000E50: 45 55 45 20 52 41 4D 2E 0D 31 34 31 30 20 4E 45 |EUE RAM..1410 NE| 00000E60: 57 31 20 20 20 44 41 54 20 54 45 58 54 4C 20 20 |W1 DAT TEXTL | 00000E70: 3B 4E 45 55 45 20 44 41 54 41 27 53 0D 31 34 32 |;NEUE DATA'S.142| 00000E80: 30 20 4E 45 57 32 20 20 20 44 41 54 20 54 45 58 |0 NEW2 DAT TEX| 00000E90: 54 48 20 20 3B 46 55 52 20 44 45 4E 0D 31 34 33 |TH ;FUR DEN.143| 00000EA0: 30 20 4E 45 57 33 20 20 20 44 41 54 20 4C 49 4E |0 NEW3 DAT LIN| 00000EB0: 4B 2D 31 20 3B 52 41 4D 2D 45 44 49 54 4F 52 2E |K-1 ;RAM-EDITOR.| 00000EC0: 0D 31 34 34 30 20 4E 45 57 34 20 20 20 44 41 54 |.1440 NEW4 DAT| 00000ED0: 20 4C 49 4E 4B 0D 31 34 35 30 20 4E 45 57 35 20 | LINK.1450 NEW5 | 00000EE0: 20 20 44 41 54 20 49 4E 0D 31 34 36 30 20 4E 45 | DAT IN.1460 NE| 00000EF0: 57 36 20 20 20 44 41 54 20 4F 55 54 0D 31 34 37 |W6 DAT OUT.147| 00000F00: 30 20 4E 45 57 37 20 20 20 44 41 54 20 4B 41 52 |0 NEW7 DAT KAR| 00000F10: 0D 31 34 38 30 20 4E 45 57 38 20 20 20 44 41 54 |.1480 NEW8 DAT| 00000F20: 20 4E 45 57 42 41 53 0D 31 34 39 30 20 4E 45 57 | NEWBAS.1490 NEW| 00000F30: 39 20 20 20 44 41 54 20 4E 45 57 43 4F 4D 0D 31 |9 DAT NEWCOM.1| 00000F40: 35 30 30 20 4E 45 57 42 41 53 20 4C 44 58 20 23 |500 NEWBAS LDX #| 00000F50: 24 46 46 20 20 3B 42 41 53 49 43 20 5A 45 49 4C |$FF ;BASIC ZEIL| 00000F60: 45 4E 2D 0D 31 35 31 30 20 20 20 20 20 20 20 20 |EN-.1510 | 00000F70: 53 54 58 20 24 33 43 20 20 20 3B 4C 45 53 45 20 |STX $3C ;LESE | 00000F80: 56 45 43 54 4F 52 0D 31 35 32 30 20 20 20 20 20 |VECTOR.1520 | 00000F90: 20 20 20 4A 53 52 20 24 34 46 39 33 20 3B 47 45 | JSR $4F93 ;GE| 00000FA0: 41 4E 44 45 52 54 0D 31 35 33 30 20 20 20 20 20 |ANDERT.1530 | 00000FB0: 20 20 20 53 54 58 20 24 33 44 20 20 20 3B 53 4F | STX $3D ;SO| 00000FC0: 20 44 41 53 20 41 55 43 48 0D 31 35 34 30 20 20 | DAS AUCH.1540 | 00000FD0: 20 20 20 20 20 20 53 54 59 20 24 33 45 20 20 20 | STY $3E | 00000FE0: 3B 44 49 52 45 4B 54 20 45 49 4E 47 41 42 45 4E |;DIREKT EINGABEN| 00000FF0: 0D 31 35 35 30 20 20 20 20 20 20 20 20 4A 53 52 |.1550 JSR| 00001000: 20 24 30 33 38 30 20 3B 4D 49 54 20 4E 45 55 45 | $0380 ;MIT NEUE| 00001010: 0D 31 35 36 30 20 20 20 20 20 20 20 20 54 41 58 |.1560 TAX| 00001020: 20 20 20 20 20 20 20 3B 42 45 46 45 48 4C 45 4E | ;BEFEHLEN| 00001030: 20 45 52 4B 41 4E 54 0D 31 35 37 30 20 20 20 20 | ERKANT.1570 | 00001040: 20 20 20 20 42 45 51 20 4E 45 57 42 41 53 3B 57 | BEQ NEWBAS;W| 00001050: 45 52 44 45 4E 2E 0D 31 35 38 30 20 20 20 20 20 |ERDEN..1580 | 00001060: 20 20 20 42 43 43 20 4E 55 4D 42 45 52 0D 31 35 | BCC NUMBER.15| 00001070: 39 30 20 20 20 20 20 20 20 20 4A 53 52 20 24 34 |90 JSR $4| 00001080: 33 30 41 0D 31 36 30 30 20 20 20 20 20 20 20 20 |30A.1600 | 00001090: 4A 53 52 20 24 30 33 38 36 0D 31 36 31 30 20 20 |JSR $0386.1610 | 000010A0: 20 20 20 20 20 20 4A 4D 50 20 4E 45 57 43 4F 31 | JMP NEWCO1| 000010B0: 3B 44 45 52 20 41 4E 44 45 52 55 4E 47 2E 0D 31 |;DER ANDERUNG..1| 000010C0: 36 32 30 20 4E 55 4D 42 45 52 20 4A 4D 50 20 24 |620 NUMBER JMP $| 000010D0: 34 44 45 32 0D 31 36 33 30 20 4E 45 57 43 4F 4D |4DE2.1630 NEWCOM| 000010E0: 20 4A 53 52 20 24 30 33 38 30 0D 31 36 34 30 20 | JSR $0380.1640 | 000010F0: 4E 45 57 43 4F 31 20 4A 53 52 20 4E 45 57 43 4F |NEWCO1 JSR NEWCO| 00001100: 32 0D 31 36 35 30 20 20 20 20 20 20 20 20 4A 4D |2.1650 JM| 00001110: 50 20 24 34 41 46 36 0D 31 36 36 30 20 4E 45 57 |P $4AF6.1660 NEW| 00001120: 43 4F 32 20 43 4D 50 20 23 24 38 42 20 20 3B 4E |CO2 CMP #$8B ;N| 00001130: 45 55 45 20 49 46 2D 42 45 46 45 48 4C 0D 31 36 |EUE IF-BEFEHL.16| 00001140: 37 30 20 20 20 20 20 20 20 20 42 45 51 20 4E 49 |70 BEQ NI| 00001150: 46 0D 31 36 38 30 20 20 20 20 20 20 20 20 43 4D |F.1680 CM| 00001160: 50 20 23 24 45 30 20 20 3B 4E 45 55 45 20 43 48 |P #$E0 ;NEUE CH| 00001170: 41 52 2D 42 45 46 45 48 4C 0D 31 36 39 30 20 20 |AR-BEFEHL.1690 | 00001180: 20 20 20 20 20 20 42 45 51 20 4E 43 48 41 52 0D | BEQ NCHAR.| 00001190: 31 37 30 30 20 20 20 20 20 20 20 20 43 4D 50 20 |1700 CMP | 000011A0: 23 24 46 45 20 20 3B 45 49 4E 20 24 46 45 20 42 |#$FE ;EIN $FE B| 000011B0: 45 46 45 48 4C 3F 0D 31 37 31 30 20 20 20 20 20 |EFEHL?.1710 | 000011C0: 20 20 20 42 45 51 20 4E 57 49 4E 31 0D 31 37 32 | BEQ NWIN1.172| 000011D0: 30 20 20 20 20 20 20 20 20 4A 4D 50 20 24 35 33 |0 JMP $53| 000011E0: 31 41 20 3B 41 4C 54 45 20 42 45 46 45 48 4C 45 |1A ;ALTE BEFEHLE| 000011F0: 4E 2E 0D 31 37 33 30 20 4E 57 49 4E 31 20 20 4A |N..1730 NWIN1 J| 00001200: 53 52 20 24 30 33 38 30 0D 31 37 34 30 20 20 20 |SR $0380.1740 | 00001210: 20 20 20 20 20 43 4D 50 20 23 24 31 41 20 20 3B | CMP #$1A ;| 00001220: 43 4F 44 45 20 24 46 45 2B 24 31 41 0D 31 37 35 |CODE $FE+$1A.175| 00001230: 30 20 20 20 20 20 20 20 20 42 45 51 20 4E 57 49 |0 BEQ NWI| 00001240: 4E 32 20 3B 3D 57 49 4E 44 4F 57 2D 42 45 46 45 |N2 ;=WINDOW-BEFE| 00001250: 48 4C 0D 31 37 36 30 20 20 20 20 20 20 20 20 4A |HL.1760 J| 00001260: 53 52 20 24 30 33 38 36 0D 31 37 37 30 20 20 20 |SR $0386.1770 | 00001270: 20 20 20 20 20 4A 4D 50 20 24 34 42 39 37 20 3B | JMP $4B97 ;| 00001280: 41 4C 54 45 20 24 46 45 2D 42 45 46 45 48 4C 45 |ALTE $FE-BEFEHLE| 00001290: 0D 31 37 38 30 20 4E 57 49 4E 32 20 20 4A 53 52 |.1780 NWIN2 JSR| 000012A0: 20 24 30 33 38 30 20 3B 44 41 53 20 4E 45 55 45 | $0380 ;DAS NEUE| 000012B0: 0D 31 37 39 30 20 20 20 20 20 20 20 20 4A 4D 50 |.1790 JMP| 000012C0: 20 57 49 4E 44 4F 57 3B 57 49 4E 44 4F 57 2D 42 | WINDOW;WINDOW-B| 000012D0: 45 46 45 48 4C 2E 0D 31 38 30 30 20 4E 43 48 41 |EFEHL..1800 NCHA| 000012E0: 52 20 20 4A 53 52 20 24 30 33 38 30 20 3B 44 41 |R JSR $0380 ;DA| 000012F0: 53 20 4E 45 55 45 0D 31 38 31 30 20 20 20 20 20 |S NEUE.1810 | 00001300: 20 20 20 4A 4D 50 20 43 48 41 52 20 20 3B 43 48 | JMP CHAR ;CH| 00001310: 41 52 2D 42 45 46 45 48 4C 2E 0D 31 38 32 30 20 |AR-BEFEHL..1820 | 00001320: 4E 49 46 20 20 20 20 4A 53 52 20 24 30 33 38 30 |NIF JSR $0380| 00001330: 20 3B 44 41 53 20 4E 45 55 45 0D 31 38 33 30 20 | ;DAS NEUE.1830 | 00001340: 20 20 20 20 20 20 20 4A 4D 50 20 49 46 20 20 20 | JMP IF | 00001350: 20 3B 49 46 2D 42 45 46 45 48 4C 2E 0D 31 38 34 | ;IF-BEFEHL..184| 00001360: 30 20 52 50 4C 4F 54 20 20 4A 53 52 20 52 41 4D |0 RPLOT JSR RAM| 00001370: 20 20 20 3B 50 4C 4F 54 2D 56 45 43 54 4F 52 0D | ;PLOT-VECTOR.| 00001380: 31 38 35 30 20 20 20 20 20 20 20 20 4A 4D 50 20 |1850 JMP | 00001390: 24 46 46 46 30 20 3B 4E 55 54 5A 54 20 41 55 43 |$FFF0 ;NUTZT AUC| 000013A0: 48 20 52 41 4D 2E 0D 31 38 36 30 20 43 4F 50 59 |H RAM..1860 COPY| 000013B0: 41 20 20 53 54 41 20 24 46 43 20 20 20 3B 53 45 |A STA $FC ;SE| 000013C0: 54 5A 45 20 43 4F 50 59 0D 31 38 37 30 20 20 20 |TZE COPY.1870 | 000013D0: 20 20 20 20 20 53 54 58 20 24 46 44 20 20 20 3B | STX $FD ;| 000013E0: 41 44 44 52 45 53 53 45 4E 2E 0D 31 38 38 30 20 |ADDRESSEN..1880 | 000013F0: 20 20 20 20 20 20 20 53 54 59 20 24 46 45 0D 31 | STY $FE.1| 00001400: 38 39 30 20 20 20 20 20 20 20 20 4C 44 59 20 23 |890 LDY #| 00001410: 24 30 30 0D 31 39 30 30 20 43 4F 50 59 42 20 20 |$00.1900 COPYB | 00001420: 4C 44 58 20 23 24 30 31 20 20 20 3B 31 20 42 4C |LDX #$01 ;1 BL| 00001430: 4F 43 4B 0D 31 39 31 30 20 43 4F 50 59 43 20 20 |OCK.1910 COPYC | 00001440: 4C 44 41 20 28 24 46 42 29 2C 59 3B 4B 4F 50 49 |LDA ($FB),Y;KOPI| 00001450: 45 52 0D 31 39 32 30 20 20 20 20 20 20 20 20 53 |ER.1920 S| 00001460: 54 41 20 28 24 46 44 29 2C 59 3B 58 20 42 4C 4F |TA ($FD),Y;X BLO| 00001470: 43 4B 45 4E 2E 0D 31 39 33 30 20 20 20 20 20 20 |CKEN..1930 | 00001480: 20 20 49 4E 59 0D 31 39 34 30 20 20 20 20 20 20 | INY.1940 | 00001490: 20 20 42 4E 45 20 43 4F 50 59 43 0D 31 39 35 30 | BNE COPYC.1950| 000014A0: 20 20 20 20 20 20 20 20 49 4E 43 20 24 46 43 0D | INC $FC.| 000014B0: 31 39 36 30 20 20 20 20 20 20 20 20 49 4E 43 20 |1960 INC | 000014C0: 24 46 45 0D 31 39 37 30 20 20 20 20 20 20 20 20 |$FE.1970 | 000014D0: 44 45 58 0D 31 39 38 30 20 20 20 20 20 20 20 20 |DEX.1980 | 000014E0: 42 4E 45 20 43 4F 50 59 43 0D 31 39 39 30 20 20 |BNE COPYC.1990 | 000014F0: 20 20 20 20 20 20 52 54 53 0D 32 30 30 30 20 54 | RTS.2000 T| 00001500: 41 42 4C 45 53 20 4C 44 58 20 23 24 30 30 20 20 |ABLES LDX #$00 | 00001510: 20 3B 45 52 5A 45 55 47 0D 32 30 31 30 20 20 20 | ;ERZEUG.2010 | 00001520: 20 20 20 20 20 54 58 41 20 20 20 20 20 20 20 20 | TXA | 00001530: 3B 54 41 42 45 4C 4C 45 4E 0D 32 30 32 30 20 20 |;TABELLEN.2020 | 00001540: 20 20 20 20 20 20 54 41 59 20 20 20 20 20 20 20 | TAY | 00001550: 20 3B 4D 49 54 20 44 45 4E 0D 32 30 33 30 20 54 | ;MIT DEN.2030 T| 00001560: 41 42 31 20 20 20 50 48 41 20 20 20 20 20 20 20 |AB1 PHA | 00001570: 20 3B 4C 4F 57 20 55 4E 44 20 48 49 47 48 0D 32 | ;LOW UND HIGH.2| 00001580: 30 34 30 20 20 20 20 20 20 20 20 54 59 41 20 20 |040 TYA | 00001590: 20 20 20 20 20 20 3B 41 44 44 52 45 53 53 45 4E | ;ADDRESSEN| 000015A0: 0D 32 30 35 30 20 20 20 20 20 20 20 20 53 54 41 |.2050 STA| 000015B0: 20 54 45 58 54 48 2C 58 3B 56 4F 4E 20 44 45 4D | TEXTH,X;VON DEM| 000015C0: 20 53 54 41 52 54 0D 32 30 36 30 20 20 20 20 20 | START.2060 | 000015D0: 20 20 20 50 4C 41 20 20 20 20 20 20 20 20 3B 56 | PLA ;V| 000015E0: 4F 4E 20 42 49 53 20 5A 55 0D 32 30 37 30 20 20 |ON BIS ZU.2070 | 000015F0: 20 20 20 20 20 20 53 54 41 20 54 45 58 54 4C 2C | STA TEXTL,| 00001600: 58 3B 32 35 36 20 5A 45 49 4C 45 4E 2E 0D 32 30 |X;256 ZEILEN..20| 00001610: 38 30 20 20 20 20 20 20 20 20 43 4C 43 0D 32 30 |80 CLC.20| 00001620: 39 30 20 20 20 20 20 20 20 20 41 44 43 20 23 24 |90 ADC #$| 00001630: 32 38 0D 32 31 30 30 20 20 20 20 20 20 20 20 42 |28.2100 B| 00001640: 43 43 20 54 41 42 32 0D 32 31 31 30 20 20 20 20 |CC TAB2.2110 | 00001650: 20 20 20 20 49 4E 59 0D 32 31 32 30 20 54 41 42 | INY.2120 TAB| 00001660: 32 20 20 20 49 4E 58 0D 32 31 33 30 20 20 20 20 |2 INX.2130 | 00001670: 20 20 20 20 42 4E 45 20 54 41 42 31 0D 32 31 34 | BNE TAB1.214| 00001680: 30 20 20 20 20 20 20 20 20 52 54 53 0D 32 31 35 |0 RTS.215| 00001690: 30 20 4B 41 52 53 45 54 20 53 54 41 20 24 46 42 |0 KARSET STA $FB| 000016A0: 0D 32 31 36 30 20 20 20 20 20 20 20 20 43 4D 50 |.2160 CMP| 000016B0: 20 23 24 31 31 3B 54 45 53 54 20 5A 45 49 43 48 | #$11;TEST ZEICH| 000016C0: 45 4E 4C 41 4E 47 45 0D 32 31 37 30 20 20 20 20 |ENLANGE.2170 | 000016D0: 20 20 20 20 42 43 43 20 4B 41 52 31 0D 32 31 38 | BCC KAR1.218| 000016E0: 30 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 32 |0 LDA #$2| 000016F0: 30 3B 2B 33 32 20 49 46 20 4C 3E 31 36 0D 32 31 |0;+32 IF L>16.21| 00001700: 39 30 20 20 20 20 20 20 20 20 44 41 54 20 24 32 |90 DAT $2| 00001710: 43 0D 32 32 30 30 20 4B 41 52 31 20 20 20 4C 44 |C.2200 KAR1 LD| 00001720: 41 20 23 24 31 30 3B 2B 31 36 20 49 46 20 4C 3C |A #$10;+16 IF L<| 00001730: 3D 31 36 0D 32 32 31 30 20 20 20 20 20 20 20 20 |=16.2210 | 00001740: 53 45 43 0D 32 32 32 30 20 20 20 20 20 20 20 20 |SEC.2220 | 00001750: 53 42 43 20 24 46 42 20 3B 41 4E 5A 41 48 4C 20 |SBC $FB ;ANZAHL | 00001760: 4C 45 45 52 45 0D 32 32 33 30 20 20 20 20 20 20 |LEERE.2230 | 00001770: 20 20 53 54 41 20 24 46 44 20 3B 50 49 58 45 4C | STA $FD ;PIXEL| 00001780: 5A 45 49 4C 45 2E 0D 32 32 34 30 20 20 20 20 20 |ZEILE..2240 | 00001790: 20 20 20 4C 44 41 20 24 46 42 20 3B 37 2D 4C 20 | LDA $FB ;7-L | 000017A0: 4D 4F 44 20 38 20 4B 41 52 42 59 54 0D 32 32 35 |MOD 8 KARBYT.225| 000017B0: 30 20 20 20 20 20 20 20 20 41 4E 44 20 23 24 30 |0 AND #$0| 000017C0: 37 3B 4E 49 43 48 54 20 4B 4F 50 49 45 52 45 4E |7;NICHT KOPIEREN| 000017D0: 2E 0D 32 32 36 30 20 20 20 20 20 20 20 20 45 4F |..2260 EO| 000017E0: 52 20 23 24 30 37 0D 32 32 37 30 20 20 20 20 20 |R #$07.2270 | 000017F0: 20 20 20 53 54 41 20 24 46 43 0D 32 32 38 30 20 | STA $FC.2280 | 00001800: 20 20 20 20 20 20 20 4C 53 52 20 24 46 42 20 3B | LSR $FB ;| 00001810: 4C 41 4E 47 45 2F 38 0D 32 32 39 30 20 20 20 20 |LANGE/8.2290 | 00001820: 20 20 20 20 4C 53 52 20 24 46 42 0D 32 33 30 30 | LSR $FB.2300| 00001830: 20 20 20 20 20 20 20 20 4C 53 52 20 24 46 42 0D | LSR $FB.| 00001840: 32 33 31 30 20 20 20 20 20 20 20 20 4C 44 41 20 |2310 LDA | 00001850: 23 24 30 30 20 20 20 20 3B 53 54 41 52 54 20 5A |#$00 ;START Z| 00001860: 45 49 43 48 45 4E 0D 32 33 32 30 20 20 20 20 20 |EICHEN.2320 | 00001870: 20 20 20 53 54 41 20 53 4F 55 52 43 45 2B 31 3B | STA SOURCE+1;| 00001880: 53 41 54 5A 20 49 4D 20 52 4F 4D 2E 0D 32 33 33 |SATZ IM ROM..233| 00001890: 30 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 44 |0 LDA #$D| 000018A0: 30 0D 32 33 34 30 20 20 20 20 20 20 20 20 53 54 |0.2340 ST| 000018B0: 41 20 53 4F 55 52 43 45 2B 32 0D 32 33 35 30 20 |A SOURCE+2.2350 | 000018C0: 4B 41 52 32 20 20 20 4C 44 41 20 23 24 31 46 20 |KAR2 LDA #$1F | 000018D0: 20 20 3B 56 44 43 20 44 41 54 41 52 45 47 20 33 | ;VDC DATAREG 3| 000018E0: 31 0D 32 33 36 30 20 20 20 20 20 20 20 20 53 54 |1.2360 ST| 000018F0: 41 20 24 44 36 30 30 20 20 3B 5A 55 4D 20 44 41 |A $D600 ;ZUM DA| 00001900: 54 41 20 41 4E 44 45 52 4E 0D 32 33 37 30 20 20 |TA ANDERN.2370 | 00001910: 20 20 20 20 20 20 4C 44 41 20 24 46 43 0D 32 33 | LDA $FC.23| 00001920: 38 30 20 20 20 20 20 20 20 20 53 54 41 20 24 46 |80 STA $F| 00001930: 45 0D 32 33 39 30 20 20 20 20 20 20 20 20 49 4E |E.2390 IN| 00001940: 43 20 24 46 45 0D 32 34 30 30 20 20 20 20 20 20 |C $FE.2400 | 00001950: 20 20 4C 44 59 20 23 24 30 30 0D 32 34 31 30 20 | LDY #$00.2410 | 00001960: 4B 41 52 33 20 20 20 53 54 41 20 24 46 46 30 33 |KAR3 STA $FF03| 00001970: 20 20 3B 5A 45 49 43 48 45 4E 52 4F 4D 20 45 49 | ;ZEICHENROM EI| 00001980: 4E 2E 0D 32 34 32 30 20 53 4F 55 52 43 45 20 4C |N..2420 SOURCE L| 00001990: 44 41 20 24 44 30 30 30 2C 59 3B 48 4F 4C 45 20 |DA $D000,Y;HOLE | 000019A0: 42 59 54 45 2E 0D 32 34 33 30 20 20 20 20 20 20 |BYTE..2430 | 000019B0: 20 20 4C 44 58 20 23 24 30 30 20 20 20 3B 49 2F | LDX #$00 ;I/| 000019C0: 4F 20 45 49 4E 2E 0D 32 34 34 30 20 20 20 20 20 |O EIN..2440 | 000019D0: 20 20 20 53 54 58 20 24 46 46 30 30 0D 32 34 35 | STX $FF00.245| 000019E0: 30 20 20 20 20 20 20 20 20 4C 44 58 20 24 46 42 |0 LDX $FB| 000019F0: 0D 32 34 36 30 20 20 20 20 20 20 20 20 42 4E 45 |.2460 BNE| 00001A00: 20 4B 41 52 34 0D 32 34 37 30 20 20 20 20 20 20 | KAR4.2470 | 00001A10: 20 20 4A 53 52 20 24 43 44 43 46 20 20 3B 53 45 | JSR $CDCF ;SE| 00001A20: 54 5A 20 42 59 54 45 0D 32 34 38 30 20 20 20 20 |TZ BYTE.2480 | 00001A30: 20 20 20 20 44 45 43 20 24 46 45 20 20 20 20 3B | DEC $FE ;| 00001A40: 42 59 54 45 20 57 45 47 4C 41 53 53 45 4E 3F 0D |BYTE WEGLASSEN?.| 00001A50: 32 34 39 30 20 20 20 20 20 20 20 20 42 4D 49 20 |2490 BMI | 00001A60: 4B 41 52 35 20 20 20 3B 4A 55 4D 50 20 3D 20 4E |KAR5 ;JUMP = N| 00001A70: 4F 2E 0D 32 35 30 30 20 20 20 20 20 20 20 20 49 |O..2500 I| 00001A80: 4E 59 20 20 20 20 20 20 20 20 3B 42 59 54 45 20 |NY ;BYTE | 00001A90: 57 45 47 4C 41 53 53 45 4E 2E 0D 32 35 31 30 20 |WEGLASSEN..2510 | 00001AA0: 20 20 20 20 20 20 20 42 4E 45 20 4B 41 52 35 0D | BNE KAR5.| 00001AB0: 32 35 32 30 20 4B 41 52 34 20 20 20 4A 53 52 20 |2520 KAR4 JSR | 00001AC0: 24 43 44 43 46 20 20 3B 42 59 54 45 20 58 20 4D |$CDCF ;BYTE X M| 00001AD0: 41 48 4C 0D 32 35 33 30 20 20 20 20 20 20 20 20 |AHL.2530 | 00001AE0: 44 45 58 20 20 20 20 20 20 20 20 3B 4B 4F 50 49 |DEX ;KOPI| 00001AF0: 45 52 45 4E 2E 0D 32 35 34 30 20 20 20 20 20 20 |EREN..2540 | 00001B00: 20 20 42 4E 45 20 4B 41 52 34 0D 32 35 35 30 20 | BNE KAR4.2550 | 00001B10: 20 20 20 20 20 20 20 44 45 43 20 24 46 45 20 20 | DEC $FE | 00001B20: 20 3B 53 45 54 5A 20 45 58 54 52 41 20 42 59 54 | ;SETZ EXTRA BYT| 00001B30: 45 3F 0D 32 35 36 30 20 20 20 20 20 20 20 20 42 |E?.2560 B| 00001B40: 50 4C 20 4B 41 52 35 20 20 20 3B 4E 4F 20 3D 20 |PL KAR5 ;NO = | 00001B50: 4A 55 4D 50 2E 0D 32 35 37 30 20 20 20 20 20 20 |JUMP..2570 | 00001B60: 20 20 4A 53 52 20 24 43 44 43 46 20 20 3B 53 45 | JSR $CDCF ;SE| 00001B70: 54 5A 20 45 58 54 52 41 20 42 59 54 45 0D 32 35 |TZ EXTRA BYTE.25| 00001B80: 38 30 20 4B 41 52 35 20 20 20 49 4E 59 0D 32 35 |80 KAR5 INY.25| 00001B90: 39 30 20 20 20 20 20 20 20 20 43 50 59 20 23 24 |90 CPY #$| 00001BA0: 30 38 20 20 20 3B 41 4C 4C 45 20 42 59 54 45 53 |08 ;ALLE BYTES| 00001BB0: 0D 32 36 30 30 20 20 20 20 20 20 20 20 42 4E 45 |.2600 BNE| 00001BC0: 20 4B 41 52 33 20 20 20 3B 46 45 52 54 49 47 3F | KAR3 ;FERTIG?| 00001BD0: 0D 32 36 31 30 20 20 20 20 20 20 20 20 4C 44 59 |.2610 LDY| 00001BE0: 20 24 46 44 0D 32 36 32 30 20 20 20 20 20 20 20 | $FD.2620 | 00001BF0: 20 42 45 51 20 4B 41 52 36 0D 32 36 33 30 20 20 | BEQ KAR6.2630 | 00001C00: 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 20 20 | LDA #$00 | 00001C10: 20 3B 53 45 54 5A 20 59 20 4D 41 48 4C 0D 32 36 | ;SETZ Y MAHL.26| 00001C20: 34 30 20 20 20 20 20 20 20 20 4A 53 52 20 24 43 |40 JSR $C| 00001C30: 44 43 41 20 20 3B 4C 45 45 52 20 42 59 54 45 2E |DCA ;LEER BYTE.| 00001C40: 0D 32 36 35 30 20 20 20 20 20 20 20 20 44 45 59 |.2650 DEY| 00001C50: 0D 32 36 36 30 20 20 20 20 20 20 20 20 42 45 51 |.2660 BEQ| 00001C60: 20 4B 41 52 36 0D 32 36 37 30 20 20 20 20 20 20 | KAR6.2670 | 00001C70: 20 20 54 59 41 0D 32 36 38 30 20 20 20 20 20 20 | TYA.2680 | 00001C80: 20 20 4C 44 58 20 23 24 31 45 0D 32 36 39 30 20 | LDX #$1E.2690 | 00001C90: 20 20 20 20 20 20 20 4A 53 52 20 24 43 44 43 43 | JSR $CDCC| 00001CA0: 0D 32 37 30 30 20 4B 41 52 36 20 20 20 4C 44 41 |.2700 KAR6 LDA| 00001CB0: 20 23 24 30 38 20 20 20 20 3B 53 45 54 5A 45 20 | #$08 ;SETZE | 00001CC0: 50 4F 49 4E 54 45 52 0D 32 37 31 30 20 20 20 20 |POINTER.2710 | 00001CD0: 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 | CLC | 00001CE0: 3B 5A 55 20 44 45 4D 0D 32 37 32 30 20 20 20 20 |;ZU DEM.2720 | 00001CF0: 20 20 20 20 41 44 43 20 53 4F 55 52 43 45 2B 31 | ADC SOURCE+1| 00001D00: 3B 4E 41 43 48 53 54 45 4E 0D 32 37 33 30 20 20 |;NACHSTEN.2730 | 00001D10: 20 20 20 20 20 20 53 54 41 20 53 4F 55 52 43 45 | STA SOURCE| 00001D20: 2B 31 3B 5A 45 49 43 48 45 4E 2E 0D 32 37 34 30 |+1;ZEICHEN..2740| 00001D30: 20 20 20 20 20 20 20 20 4C 44 41 20 53 4F 55 52 | LDA SOUR| 00001D40: 43 45 2B 32 0D 32 37 35 30 20 20 20 20 20 20 20 |CE+2.2750 | 00001D50: 20 41 44 43 20 23 24 30 30 0D 32 37 36 30 20 20 | ADC #$00.2760 | 00001D60: 20 20 20 20 20 20 53 54 41 20 53 4F 55 52 43 45 | STA SOURCE| 00001D70: 2B 32 0D 32 37 37 30 20 20 20 20 20 20 20 20 43 |+2.2770 C| 00001D80: 4D 50 20 23 24 45 30 20 20 20 20 3B 41 4C 4C 45 |MP #$E0 ;ALLE| 00001D90: 20 5A 45 49 43 48 45 4E 0D 32 37 38 30 20 20 20 | ZEICHEN.2780 | 00001DA0: 20 20 20 20 20 42 4E 45 20 4B 41 52 32 20 20 20 | BNE KAR2 | 00001DB0: 20 3B 53 43 48 4F 4E 20 46 45 52 54 49 47 3F 0D | ;SCHON FERTIG?.| 00001DC0: 32 37 39 30 20 20 20 20 20 20 20 20 52 54 53 0D |2790 RTS.| 00001DD0: 32 38 30 30 20 54 45 58 54 4C 20 20 44 41 54 20 |2800 TEXTL DAT | 00001DE0: 24 30 30 0D 32 38 31 30 20 54 45 58 54 48 20 20 |$00.2810 TEXTH | 00001DF0: 44 45 46 20 54 45 58 54 4C 2B 32 35 36 0D 32 38 |DEF TEXTL+256.28| 00001E00: 32 30 20 4C 49 4E 4B 20 20 20 44 45 46 20 54 45 |20 LINK DEF TE| 00001E10: 58 54 48 2B 32 35 36 0D 32 38 33 30 20 57 49 4E |XTH+256.2830 WIN| 00001E20: 44 4F 57 20 44 45 46 20 4C 49 4E 4B 2B 33 32 0D |DOW DEF LINK+32.| 00001E30: 32 38 34 30 20 43 48 41 52 20 20 20 44 45 46 20 |2840 CHAR DEF | 00001E40: 57 49 4E 44 4F 57 2B 24 36 39 0D 32 38 35 30 20 |WINDOW+$69.2850 | 00001E50: 49 46 20 20 20 20 20 44 45 46 20 43 48 41 52 2B |IF DEF CHAR+| 00001E60: 24 38 46 0D 0A 52 45 41 44 59 2E 0D 0A 0D |$8F..READY.... |
..100 ORG $1300 ;START = 4864.110
JMP INIT ;AENDER EDITOR..120
JMP LINE ;WAHLE # ZEILEN..130
JMP KARSET;MACH ZEICHENSATZ..140 INIT
SEI.150 LDA #$20 ;SETZE VARIA
BLEN.160 STA $30 ;START NACH.17
0 STA $32 ;$2000..180 ST
A $34.190 LDY #$00.200 STY
$2F.210 STY $31.220 STY $
33.230 STY $FB.240 STY $FD
.250 LDA #$C0.260 STA $FC.
270 STA $FE.280 STA $FF03
;I/O AUS..290 LDX #$3F ;KOPIER $
C000.300 JSR COPYC ;BIS $FEFF..31
0 LDY #$05 ;KOPIER $FF05.320
JSR COPYB ;BIS $FFFF.330 LDX
#$01 ;AENDER KERNAL.340 L2 LDA NEW
1,X ;UND.350 STA $C15F,X;BASIC VE
CTORS..360 STA $C44D,X.370
LDA NEW2,X.380 STA $C169,X.390
STA $C453,X.400 LDA NEW3,X.
410 STA $CA37,X.420 LDA NE
W4,X.430 STA $CB7A,X.440 S
TA $CB8B,X.450 STA $CB8E,X.460
STA $CB9B,X.470 LDA NEW5,X.4
80 STA $0324,X ;EINFUHR.490
LDA NEW6,X.500 STA $0326,X ;AUS
FUHR.510 LDA NEW7,X.520 ST
A $033A,X ;TASTEN.530 LDA NEW8,X.
540 STA $0302,X ;BASIC ZEILEN.550
LDA NEW9,X.560 STA $0308,
X ;BASIC BEFEHLEN.570 DEX.580
BPL L2.590 LDA #$FF.600
STA $C16C.610 STA $C187.620
STA $C456.630 STA $C489.640
STA $C522.650 LDA #$20 ;
32*8=256.660 STA $CA35 ;LINK ZE
ILEN..670 LDA #$CC ;KOPIER.680
STA $FB ;WINDOW.690 L
DA #$72 ;ROUTINE..700 LDX #<WI
NDOW.710 LDY #>WINDOW.720
JSR COPYA.730 LDA #$D7 ;KOPIER
.740 STA $FB ;CHAR.750
LDA #$67 ;ROUTINE..760 LDX #<
CHAR.770 LDY #>CHAR.780 JS
R COPYA.790 LDA #<RPLOT ;AENDER.8
00 STA CHAR+$62;CHAR.810 L
DA #>RPLOT ;ROUTINE.820 STA CHAR+
$63;SO DASS.830 LDA #<RAM ;DEN
NEUE.840 STA CHAR+$79;RAM-KERNAL.
850 LDA #>RAM ;ANGESPROCHEN.860
STA CHAR+$7A;WIRD..870 LD
A #$4C.880 STA CHAR+$8C.890
LDA #$63.900 STA CHAR+$8D.910
LDA #$68.920 STA CHAR+$8E.9
30 LDA #$C5 ;KOPIER.940
STA $FB ;IF.950 LDA #$52
;ROUTINE.960 LDX #<IF.970
LDY #>IF.980 JSR COPYA.990
LDA #$2C.1000 STA IF+$2E ;BEI N
EUE.1010 LDA #<NEWCO2;BASIC.1020
STA IF+$59 ;BEFEHLEN.1030
LDA #>NEWCO2;MUSS AUCH.1040 STA
IF+$5A ;DIE IF.1050 LDA #$4C
;ROUTINE.1060 STA IF+$5B ;GEAEND
ERT.1070 LDA #$9D ;WERDEN..108
0 STA IF+$5C.1090 LDA #$52
.1100 STA IF+$5D.1110 JSR
TABLES ;ZEILENADDRESSE..1120 LDA
#$00 ;ROM EIN.1130 STA $FF00.11
40 LDA #$06 ;BIS $2000.1150
STA $D506 ;BANK1=BANK0..1160
LDX #$06 ;HOLE ANZAHL.1170 JSR
$CDDA ;ZEILEN..1180 CLI.1190 LI
NE LDX #$06 ;SETZE.1200 JS
R $CDCC ;SCHIRM.1210 STA WIND
OW+$14;UND.1220 STA WINDOW+$33;WI
NDOW.1230 TAY ;ZU DEM.1
240 DEY ;NEUE.1250
STY $ED ;ANZAHL.1260 JSR
RAM ;ZEILEN..1270 JSR $CA2
4.1280 JMP $A845 ;ROM EIN..12
90 RAM PHA ;RAM EIN..1300
LDA #$30.1310 JMP $A848.132
0 IN JSR RAM ;INPUT-VECTOR.1330
JSR $EF06 ;ZEIGT JETZT AUF.1340
JMP $A845 ;RAM-KERNAL..1350 OUT
JSR RAM ;NEUE RAM.1360 JSR $
EF79 ;OUTPUT-VECTOR..1370 JMP $A
845.1380 KAR JSR RAM ;TASTEN-ROUT.
1390 JSR $C5E1 ;NUTZT AUCH.1400
JMP $A845 ;DAS NEUE RAM..1410 NE
W1 DAT TEXTL ;NEUE DATA'S.1420 NEW2
DAT TEXTH ;FUR DEN.1430 NEW3 DAT LIN
K-1 ;RAM-EDITOR..1440 NEW4 DAT LINK.14
50 NEW5 DAT IN.1460 NEW6 DAT OUT.147
0 NEW7 DAT KAR.1480 NEW8 DAT NEWBAS.
1490 NEW9 DAT NEWCOM.1500 NEWBAS LDX #
$FF ;BASIC ZEILEN-.1510 STX $3C
;LESE VECTOR.1520 JSR $4F93 ;GE
ANDERT.1530 STX $3D ;SO DAS AUC
H.1540 STY $3E ;DIREKT EINGABEN
.1550 JSR $0380 ;MIT NEUE.1560
TAX ;BEFEHLEN ERKANT.1570
BEQ NEWBAS;WERDEN..1580 BCC N
UMBER.1590 JSR $430A.1600
JSR $0386.1610 JMP NEWCO1;DER AND
ERUNG..1620 NUMBER JMP $4DE2.1630 NEWCOM
JSR $0380.1640 NEWCO1 JSR NEWCO2.1650
JMP $4AF6.1660 NEWCO2 CMP #$8B ;N
EUE IF-BEFEHL.1670 BEQ NIF.1680
CMP #$E0 ;NEUE CHAR-BEFEHL.1690
BEQ NCHAR.1700 CMP #$FE ;E
IN $FE BEFEHL?.1710 BEQ NWIN1.172
0 JMP $531A ;ALTE BEFEHLEN..1730
NWIN1 JSR $0380.1740 CMP #$1A ;
CODE $FE+$1A.1750 BEQ NWIN2 ;=WIN
DOW-BEFEHL.1760 JSR $0386.1770
JMP $4B97 ;ALTE $FE-BEFEHLE.1780 NW
IN2 JSR $0380 ;DAS NEUE.1790 JMP
WINDOW;WINDOW-BEFEHL..1800 NCHAR JSR $
0380 ;DAS NEUE.1810 JMP CHAR ;CH
AR-BEFEHL..1820 NIF JSR $0380 ;DAS NE
UE.1830 JMP IF ;IF-BEFEHL..184
0 RPLOT JSR RAM ;PLOT-VECTOR.1850
JMP $FFF0 ;NUTZT AUCH RAM..1860 COPY
A STA $FC ;SETZE COPY.1870 STX
$FD ;ADDRESSEN..1880 STY $FE.1
890 LDY #$00.1900 COPYB LDX #$01
;1 BLOCK.1910 COPYC LDA ($FB),Y;KOPI
ER.1920 STA ($FD),Y;X BLOCKEN..19
30 INY.1940 BNE COPYC.1950
INC $FC.1960 INC $FE.1970
DEX.1980 BNE COPYC.1990
RTS.2000 TABLES LDX #$00 ;ERZEUG
.2010 TXA ;TABELLEN.2020
TAY ;MIT DEN.2030 TAB1 PH
A ;LOW UND HIGH.2040 TYA
;ADDRESSEN.2050 STA TEXTH,X
;VON DEM START.2060 PLA ;V
ON BIS ZU.2070 STA TEXTL,X;256 ZE
ILEN..2080 CLC.2090 ADC #$
28.2100 BCC TAB2.2110 INY.
2120 TAB2 INX.2130 BNE TAB1.214
0 RTS.2150 KARSET STA $FB.2160
CMP #$11;TEST ZEICHENLANGE.2170
BCC KAR1.2180 LDA #$20;+32 IF
L>16.2190 DAT $2C.2200 KAR1 LD
A #$10;+16 IF L<=16.2210 SEC.2220
SBC $FB ;ANZAHL LEERE.2230
STA $FD ;PIXELZEILE..2240 LDA $
FB ;7-L MOD 8 KARBYT.2250 AND #$0
7;NICHT KOPIEREN..2260 EOR #$07.2
270 STA $FC.2280 LSR $FB ;
LANGE/8.2290 LSR $FB.2300
LSR $FB.2310 LDA #$00 ;START Z
EICHEN.2320 STA SOURCE+1;SATZ IM
ROM..2330 LDA #$D0.2340 ST
A SOURCE+2.2350 KAR2 LDA #$1F ;VDC D
ATAREG 31.2360 STA $D600 ;ZUM DA
TA ANDERN.2370 LDA $FC.2380
STA $FE.2390 INC $FE.2400
LDY #$00.2410 KAR3 STA $FF03 ;ZEICH
ENROM EIN..2420 SOURCE LDA $D000,Y;HOLE
BYTE..2430 LDX #$00 ;I/O EIN..2
440 STX $FF00.2450 LDX $FB
.2460 BNE KAR4.2470 JSR $C
DCF ;SETZ BYTE.2480 DEC $FE ;
BYTE WEGLASSEN?.2490 BMI KAR5 ;
JUMP = NO..2500 INY ;BYTE
WEGLASSEN..2510 BNE KAR5.2520 KAR
4 JSR $CDCF ;BYTE X MAHL.2530
DEX ;KOPIEREN..2540 BNE KA
R4.2550 DEC $FE ;SETZ EXTRA BYT
E?.2560 BPL KAR5 ;NO = JUMP..25
70 JSR $CDCF ;SETZ EXTRA BYTE.25
80 KAR5 INY.2590 CPY #$08 ;AL
LE BYTES.2600 BNE KAR3 ;FERTIG?
.2610 LDY $FD.2620 BEQ KAR
6.2630 LDA #$00 ;SETZ Y MAHL.26
40 JSR $CDCA ;LEER BYTE..2650
DEY.2660 BEQ KAR6.2670
TYA.2680 LDX #$1E.2690 J
SR $CDCC.2700 KAR6 LDA #$08 ;SETZE
POINTER.2710 CLC ;ZU DEM.
2720 ADC SOURCE+1;NACHSTEN.2730
STA SOURCE+1;ZEICHEN..2740
LDA SOURCE+2.2750 ADC #$00.2760
STA SOURCE+2.2770 CMP #$E0
;ALLE ZEICHEN.2780 BNE KAR2
;SCHON FERTIG?.2790 RTS.2800 TEX
TL DAT $00.2810 TEXTH DEF TEXTL+256.28
20 LINK DEF TEXTH+256.2830 WINDOW DEF
LINK+32.2840 CHAR DEF WINDOW+$69.2850
IF DEF CHAR+$8F..READY....
> CLICK IMAGE PREVIEW FOR FULL MODAL