LEHRGANG 12
FILE INFORMATION
FILENAME(S): LEHRGANG 12
FILE TYPE(S): PRG
FILE SIZE: 6.8K
FIRST SEEN: 2025-11-30 21:05:46
APPEARS ON: 1 disk(s)
FILE HASH
61bb4cae73d9a74c9364e9ee018c4986f71c45cf3ba77cc625623c00f8efb3ea
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CS TAPES PET 08 | LEHRGANG 12 | PRG | DuncanTwain | 10 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 1E 04 00 00 8F 20 23 23 23 20 53 59 4E 54 |....... ### SYNT|
00000010: 41 58 2D 4D 41 47 41 5A 49 4E 20 23 32 32 00 37 |AX-MAGAZIN #22.7|
00000020: 04 01 00 8F 20 23 23 23 20 20 20 20 4A 41 4E 55 |.... ### JANU|
00000030: 41 52 20 31 39 38 32 00 41 04 02 00 8F 20 23 23 |AR 1982.A.... ##|
00000040: 23 00 5E 04 03 00 8F 20 23 23 23 20 43 4F 50 59 |#.^.... ### COPY|
00000050: 52 49 47 48 54 20 28 43 29 20 31 39 38 31 00 79 |RIGHT (C) 1981.y|
00000060: 04 04 00 8F 20 23 23 23 20 42 59 20 45 4C 4D 41 |.... ### BY ELMA|
00000070: 52 20 43 4F 4D 50 41 4E 53 00 98 04 05 00 8F 20 |R COMPANS...... |
00000080: 23 23 23 20 20 20 20 43 41 52 4C 2D 53 43 48 55 |### CARL-SCHU|
00000090: 52 5A 2D 53 54 52 2E 33 00 B4 04 06 00 8F 20 23 |RZ-STR.3...... #|
000000A0: 23 23 20 20 20 20 37 35 35 30 20 52 41 53 54 41 |## 7550 RASTA|
000000B0: 54 54 20 31 00 BE 04 07 00 8F 20 23 23 23 00 CE |TT 1...... ###..|
000000C0: 04 08 00 97 35 39 34 36 38 2C 31 32 3A 9C 00 15 |....59468,12:...|
000000D0: 05 0A 00 55 24 B2 22 C5 C5 C5 C5 C5 C5 C5 C5 C5 |...U$.".........|
000000E0: C5 22 3A 4F 24 B2 22 A4 A4 A4 A4 A4 A4 A4 A4 A4 |.":O$.".........|
000000F0: 22 3A 49 24 B2 22 49 4E 50 55 54 2D 52 4F 55 54 |":I$."INPUT-ROUT|
00000100: 49 4E 45 22 3A 42 24 B2 22 20 42 49 4C 44 53 43 |INE":B$." BILDSC|
00000110: 48 49 52 4D 22 00 4F 05 65 00 83 31 36 39 2C 32 |HIRM".O.e..169,2|
00000120: 35 35 2C 31 33 33 2C 31 2C 31 36 39 2C 33 2C 31 |55,133,1,169,3,1|
00000130: 33 33 2C 32 2C 31 36 30 2C 30 2C 32 33 30 2C 31 |33,2,160,0,230,1|
00000140: 2C 32 30 38 2C 34 2C 32 33 30 2C 32 2C 34 38 00 |,208,4,230,2,48.|
00000150: 8C 05 66 00 83 31 34 2C 31 37 37 2C 31 2C 32 30 |..f..14,177,1,20|
00000160: 38 2C 32 34 34 2C 32 30 30 2C 31 37 37 2C 31 2C |8,244,200,177,1,|
00000170: 32 30 38 2C 32 33 37 2C 32 30 30 2C 31 37 37 2C |208,237,200,177,|
00000180: 31 2C 32 30 38 2C 32 33 32 2C 39 36 00 CF 05 C8 |1,208,232,96....|
00000190: 00 99 22 93 A4 A4 A4 22 3B 4F 24 3B 4F 24 3B 4F |.."....";O$;O$;O|
000001A0: 24 3B 4F 24 3A 99 22 12 53 59 4E 54 41 58 2D 4C |$;O$:.".SYNTAX-L|
000001B0: 45 48 52 47 41 4E 47 20 27 4D 41 53 43 48 49 4E |EHRGANG 'MASCHIN|
000001C0: 45 4E 53 50 52 41 43 48 45 27 20 28 31 32 29 00 |ENSPRACHE' (12).|
000001D0: F6 05 D2 00 99 22 A4 A4 A4 A4 A4 A4 A4 22 3B 4F |.....".......";O|
000001E0: 24 3A 99 22 12 33 2E 20 53 55 43 48 52 4F 55 54 |$:.".3. SUCHROUT|
000001F0: 49 4E 45 4E 20 22 00 26 06 DC 00 99 22 11 11 45 |INEN ".&...."..E|
00000200: 49 4E 20 47 4C 45 49 43 48 45 52 4D 41 53 53 45 |IN GLEICHERMASSE|
00000210: 4E 20 20 57 49 43 48 54 49 47 45 53 20 57 49 45 |N WICHTIGES WIE|
00000220: 20 48 41 45 55 2D 00 55 06 E6 00 99 22 11 46 49 | HAEU-.U....".FI|
00000230: 47 45 53 20 50 52 4F 42 4C 45 4D 20 53 54 45 4C |GES PROBLEM STEL|
00000240: 4C 45 4E 20 44 49 45 20 20 53 55 43 48 52 4F 55 |LEN DIE SUCHROU|
00000250: 54 49 4E 45 4E 00 84 06 F0 00 99 22 11 44 41 52 |TINEN......".DAR|
00000260: 2E 20 20 57 49 52 20 4C 45 52 4E 45 4E 20 49 4E |. WIR LERNEN IN|
00000270: 20 44 49 45 53 45 52 20 4C 45 4B 54 49 4F 4E 2C | DIESER LEKTION,|
00000280: 20 57 49 45 00 A8 06 FA 00 99 22 11 53 55 43 48 | WIE......".SUCH|
00000290: 52 4F 55 54 49 4E 45 4E 20 41 55 46 47 45 42 41 |ROUTINEN AUFGEBA|
000002A0: 55 54 20 53 49 4E 44 2E 00 D8 06 04 01 99 22 11 |UT SIND.......".|
000002B0: 11 44 45 52 20 56 4F 52 54 45 49 4C 20 56 4F 4E |.DER VORTEIL VON|
000002C0: 20 20 53 55 43 48 52 4F 55 54 49 4E 45 4E 2C 20 | SUCHROUTINEN, |
000002D0: 20 20 44 49 45 20 49 4E 00 07 07 0E 01 99 22 11 | DIE IN......".|
000002E0: 4D 41 53 43 48 49 4E 45 4E 53 50 52 41 43 48 45 |MASCHINENSPRACHE|
000002F0: 20 47 45 53 43 48 52 49 45 42 45 4E 20 53 49 4E | GESCHRIEBEN SIN|
00000300: 44 2C 20 20 49 53 54 00 36 07 18 01 99 22 11 49 |D, IST.6....".I|
00000310: 48 52 45 20 55 4D 20 45 49 4E 20 56 49 45 4C 46 |HRE UM EIN VIELF|
00000320: 41 43 48 45 53 20 28 43 41 20 46 41 4B 54 4F 52 |ACHES (CA FAKTOR|
00000330: 20 31 30 30 30 29 00 56 07 22 01 99 22 11 48 4F | 1000).V."..".HO|
00000340: 45 48 45 52 45 20 47 45 53 43 48 57 49 4E 44 49 |EHERE GESCHWINDI|
00000350: 47 4B 45 49 54 2E 00 72 07 2C 01 8C 3A 81 49 B2 |GKEIT..r.,..:.I.|
00000360: 30 A4 33 32 3A 87 58 3A 97 38 32 36 AA 49 2C 58 |0.32:.X:.826.I,X|
00000370: 3A 82 00 88 07 36 01 49 B2 31 3A 8D 35 30 30 30 |:....6.I.1:.5000|
00000380: 3A 8B 46 4C A7 32 30 30 00 B7 07 90 01 99 22 93 |:.FL.200......".|
00000390: 57 49 52 20 57 45 52 44 45 4E 20 44 45 4E 20 50 |WIR WERDEN DEN P|
000003A0: 52 49 4E 5A 49 50 49 45 4C 4C 45 4E 20 41 55 46 |RINZIPIELLEN AUF|
000003B0: 42 41 55 20 56 4F 4E 00 E6 07 9A 01 99 22 11 53 |BAU VON......".S|
000003C0: 55 43 48 52 4F 55 54 49 4E 45 4E 20 20 41 4E 20 |UCHROUTINEN AN |
000003D0: 45 49 4E 45 52 20 20 45 49 4E 46 41 43 48 45 4E |EINER EINFACHEN|
000003E0: 20 53 55 43 48 2D 00 00 08 A4 01 99 22 11 52 4F | SUCH-......".RO|
000003F0: 55 54 49 4E 45 20 53 54 55 44 49 45 52 45 4E 2E |UTINE STUDIEREN.|
00000400: 00 30 08 AE 01 99 22 11 11 57 49 52 20 57 4F 4C |.0...."..WIR WOL|
00000410: 4C 45 4E 20 44 45 4E 20 42 45 52 45 49 43 48 20 |LEN DEN BEREICH |
00000420: 20 24 30 34 30 30 20 42 49 53 20 24 38 30 30 30 | $0400 BIS $8000|
00000430: 00 5F 08 B8 01 99 22 11 4E 41 43 48 20 44 45 52 |._....".NACH DER|
00000440: 20 42 59 54 45 46 4F 4C 47 45 20 27 24 30 30 2D | BYTEFOLGE '$00-|
00000450: 24 30 30 2D 24 30 30 27 20 44 55 52 43 48 2D 00 |$00-$00' DURCH-.|
00000460: 8E 08 C2 01 99 22 11 53 55 43 48 45 4E 2E 57 49 |.....".SUCHEN.WI|
00000470: 52 20 53 55 43 48 45 4E 20 41 4C 53 4F 20 44 49 |R SUCHEN ALSO DI|
00000480: 45 20 41 44 52 45 53 53 45 20 44 45 53 2D 00 BD |E ADRESSE DES-..|
00000490: 08 CC 01 99 22 11 4A 45 4E 49 47 45 4E 20 53 50 |....".JENIGEN SP|
000004A0: 45 49 43 48 45 52 53 2C 20 20 20 44 45 53 53 45 |EICHERS, DESSE|
000004B0: 4E 20 49 4E 48 41 4C 54 20 20 55 4E 44 00 EC 08 |N INHALT UND...|
000004C0: D6 01 99 22 11 47 4C 45 49 43 48 5A 45 49 54 49 |...".GLEICHZEITI|
000004D0: 47 20 41 55 43 48 20 44 45 52 20 49 4E 48 41 4C |G AUCH DER INHAL|
000004E0: 54 20 44 45 52 20 42 45 49 44 45 4E 00 17 09 E0 |T DER BEIDEN....|
000004F0: 01 99 22 11 46 4F 4C 47 45 4E 44 45 4E 20 53 50 |..".FOLGENDEN SP|
00000500: 45 49 43 48 45 52 20 47 4C 45 49 43 48 20 4E 55 |EICHER GLEICH NU|
00000510: 4C 4C 20 49 53 54 2E 00 47 09 EA 01 99 22 11 11 |LL IST..G...."..|
00000520: 44 49 45 53 45 20 20 41 44 52 45 53 53 45 20 49 |DIESE ADRESSE I|
00000530: 53 54 20 20 44 49 45 20 45 4E 44 41 44 52 45 53 |ST DIE ENDADRES|
00000540: 53 45 20 20 44 45 53 00 76 09 F4 01 99 22 11 47 |SE DES.v....".G|
00000550: 45 52 41 44 45 20 49 4D 20 52 41 4D 20 53 54 45 |ERADE IM RAM STE|
00000560: 48 45 4E 44 45 4E 20 42 41 53 49 43 50 52 4F 47 |HENDEN BASICPROG|
00000570: 52 41 4D 4D 53 2E 00 8C 09 08 02 49 B2 32 3A 8D |RAMMS......I.2:.|
00000580: 35 30 30 30 3A 8B 46 4C A7 32 30 30 00 BB 09 58 |5000:.FL.200...X|
00000590: 02 99 22 93 57 49 52 20 42 45 4E 4F 45 54 49 47 |..".WIR BENOETIG|
000005A0: 45 4E 20 20 45 49 4E 45 4E 20 5A 41 45 48 4C 45 |EN EINEN ZAEHLE|
000005B0: 52 2C 20 20 44 45 52 20 56 4F 4E 00 EA 09 5D 02 |R, DER VON...].|
000005C0: 99 22 11 24 30 34 30 30 20 42 49 53 20 24 38 30 |.".$0400 BIS $80|
000005D0: 30 30 20 5A 41 45 48 4C 45 4E 20 4B 41 4E 4E 2E |00 ZAEHLEN KANN.|
000005E0: 44 45 52 20 49 4E 48 41 4C 54 00 19 0A 5E 02 99 |DER INHALT...^..|
000005F0: 22 11 44 45 53 20 53 50 45 49 43 48 45 52 53 2C |".DES SPEICHERS,|
00000600: 20 20 20 20 44 45 53 53 45 4E 20 41 44 52 45 53 | DESSEN ADRES|
00000610: 53 45 20 44 49 45 53 45 52 00 48 0A 62 02 99 22 |SE DIESER.H.b.."|
00000620: 11 5A 41 45 48 4C 45 52 20 41 4E 47 49 42 54 2C |.ZAEHLER ANGIBT,|
00000630: 20 20 57 49 52 44 20 41 55 46 20 20 44 45 4E 20 | WIRD AUF DEN |
00000640: 57 45 52 54 20 24 30 30 00 77 0A 67 02 99 22 11 |WERT $00.w.g..".|
00000650: 47 45 50 52 55 45 46 54 2E 20 20 49 53 54 20 44 |GEPRUEFT. IST D|
00000660: 45 52 20 49 4E 48 41 4C 54 20 55 4E 47 4C 45 49 |ER INHALT UNGLEI|
00000670: 43 48 20 24 30 30 2C 00 A6 0A 6C 02 99 22 11 53 |CH $00,...l..".S|
00000680: 4F 20 57 49 52 44 20 44 45 52 20 5A 41 45 48 4C |O WIRD DER ZAEHL|
00000690: 45 52 20 55 4D 20 45 49 4E 53 20 45 52 48 4F 45 |ER UM EINS ERHOE|
000006A0: 48 54 2E 49 53 54 00 D5 0A 76 02 99 22 11 45 52 |HT.IST...v..".ER|
000006B0: 20 47 4C 45 49 43 48 20 24 30 30 2C 53 4F 20 57 | GLEICH $00,SO W|
000006C0: 45 52 44 45 4E 20 41 55 43 48 20 44 49 45 20 42 |ERDEN AUCH DIE B|
000006D0: 45 49 44 45 4E 00 01 0B 80 02 99 22 11 46 4F 4C |EIDEN......".FOL|
000006E0: 47 45 4E 44 45 4E 20 53 50 45 49 43 48 45 52 20 |GENDEN SPEICHER |
000006F0: 41 55 46 20 24 30 30 20 47 45 50 52 55 45 46 54 |AUF $00 GEPRUEFT|
00000700: 2E 00 30 0B 8A 02 99 22 11 53 49 4E 44 20 53 49 |..0....".SIND SI|
00000710: 45 20 4E 49 43 48 54 20 42 45 49 44 45 20 4E 55 |E NICHT BEIDE NU|
00000720: 4C 4C 2C 20 53 4F 20 57 49 52 44 20 57 45 49 2D |LL, SO WIRD WEI-|
00000730: 00 5F 0B 94 02 99 22 11 54 45 52 47 45 53 55 43 |._....".TERGESUC|
00000740: 48 54 2C 20 20 41 4E 44 45 52 4E 46 41 4C 4C 53 |HT, ANDERNFALLS|
00000750: 20 57 49 52 44 20 44 49 45 20 53 55 43 48 45 00 | WIRD DIE SUCHE.|
00000760: 8E 0B 9E 02 99 22 11 41 42 47 45 42 52 4F 43 48 |.....".ABGEBROCH|
00000770: 45 4E 2E 20 4D 41 58 49 4D 41 4C 20 53 4F 4C 4C |EN. MAXIMAL SOLL|
00000780: 20 42 49 53 20 24 38 30 30 30 20 47 45 2D 00 A3 | BIS $8000 GE-..|
00000790: 0B A8 02 99 22 11 53 55 43 48 54 20 57 45 52 44 |....".SUCHT WERD|
000007A0: 45 4E 2E 00 B9 0B D0 02 49 B2 33 3A 8D 35 30 30 |EN......I.3:.500|
000007B0: 30 3A 8B 46 4C A7 34 30 30 00 EE 0B 20 03 99 22 |0:.FL.400... .."|
000007C0: 93 11 11 11 11 11 11 41 4C 53 20 5A 41 45 48 4C |.......ALS ZAEHL|
000007D0: 45 52 20 56 45 52 57 45 4E 44 45 4E 20 57 49 52 |ER VERWENDEN WIR|
000007E0: 20 20 44 49 45 20 53 50 45 49 43 48 45 52 00 1D | DIE SPEICHER..|
000007F0: 0C 25 03 99 22 11 24 30 31 2F 24 30 32 2E 20 45 |.%..".$01/$02. E|
00000800: 53 20 4D 55 45 53 53 45 4E 20 32 20 53 50 45 49 |S MUESSEN 2 SPEI|
00000810: 43 48 45 52 20 53 45 49 4E 2C 20 44 41 00 4C 0C |CHER SEIN, DA.L.|
00000820: 2A 03 99 22 11 44 49 45 20 41 44 52 45 53 53 45 |*..".DIE ADRESSE|
00000830: 4E 20 32 20 42 59 54 45 20 55 4D 46 41 53 53 45 |N 2 BYTE UMFASSE|
00000840: 4E 2E 20 57 49 52 20 57 41 45 48 2D 00 7B 0C 2F |N. WIR WAEH-.{./|
00000850: 03 99 22 11 4C 45 4E 20 5A 45 52 4F 50 41 47 45 |..".LEN ZEROPAGE|
00000860: 2D 53 50 45 49 43 48 45 52 2C 20 44 41 20 44 49 |-SPEICHER, DA DI|
00000870: 45 53 45 20 45 52 53 54 45 4E 53 00 AA 0C 34 03 |ESE ERSTENS...4.|
00000880: 99 22 11 53 43 48 4E 45 4C 4C 45 52 20 41 4E 53 |.".SCHNELLER ANS|
00000890: 50 52 45 43 48 42 41 52 20 53 49 4E 44 20 55 4E |PRECHBAR SIND UN|
000008A0: 44 20 5A 57 45 49 54 45 4E 53 00 D4 0C 3E 03 99 |D ZWEITENS...>..|
000008B0: 22 11 49 4E 44 49 52 45 4B 54 20 49 4E 44 49 5A |".INDIREKT INDIZ|
000008C0: 49 45 52 54 20 57 45 52 44 45 4E 20 4B 4F 45 4E |IERT WERDEN KOEN|
000008D0: 4E 45 4E 2E 00 EA 0C A2 03 49 B2 34 3A 8D 35 30 |NEN......I.4:.50|
000008E0: 30 30 3A 8B 46 4C A7 36 30 30 00 19 0D E8 03 99 |00:.FL.600......|
000008F0: 22 93 5A 55 45 52 53 54 20 4C 41 44 45 4E 20 57 |".ZUERST LADEN W|
00000900: 49 52 20 44 49 45 20 53 54 41 52 54 41 44 52 45 |IR DIE STARTADRE|
00000910: 53 53 45 20 4D 49 4E 55 53 00 48 0D F2 03 99 22 |SSE MINUS.H...."|
00000920: 11 31 20 49 4E 20 44 49 45 53 45 20 42 45 49 44 |.1 IN DIESE BEID|
00000930: 45 4E 20 53 50 45 49 43 48 45 52 2E 44 41 42 45 |EN SPEICHER.DABE|
00000940: 49 20 42 45 41 43 48 2D 00 77 0D FC 03 99 22 11 |I BEACH-.w....".|
00000950: 54 45 4E 20 57 49 52 20 44 49 45 20 52 45 49 48 |TEN WIR DIE REIH|
00000960: 45 4E 46 4F 4C 47 45 20 20 20 4E 49 45 44 45 52 |ENFOLGE NIEDER|
00000970: 57 45 52 54 49 47 2F 00 97 0D 06 04 99 22 11 48 |WERTIG/......".H|
00000980: 4F 45 48 45 52 57 45 52 54 49 47 20 28 4C 4F 57 |OEHERWERTIG (LOW|
00000990: 2F 48 49 47 48 29 3A 00 AD 0D 10 04 99 22 11 20 |/HIGH):......". |
000009A0: 20 20 20 20 20 4C 44 41 20 23 24 46 46 00 D1 0D | LDA #$FF...|
000009B0: 1A 04 99 22 11 20 20 20 20 20 20 53 54 41 20 24 |...". STA $|
000009C0: 30 31 20 20 20 24 46 46 20 4E 41 43 48 20 24 30 |01 $FF NACH $0|
000009D0: 31 00 E7 0D 24 04 99 22 11 20 20 20 20 20 20 4C |1...$..". L|
000009E0: 44 41 20 23 24 30 33 00 0B 0E 2E 04 99 22 11 20 |DA #$03......". |
000009F0: 20 20 20 20 20 53 54 41 20 24 30 32 20 20 20 24 | STA $02 $|
00000A00: 30 33 20 4E 41 43 48 20 24 30 32 00 3B 0E 38 04 |03 NACH $02.;.8.|
00000A10: 99 22 11 11 44 41 20 57 49 52 20 20 49 4E 44 49 |."..DA WIR INDI|
00000A20: 52 45 4B 54 20 49 4E 44 49 5A 49 45 52 54 20 20 |REKT INDIZIERT |
00000A30: 41 44 52 45 53 53 49 45 52 45 4E 00 64 0E 42 04 |ADRESSIEREN.d.B.|
00000A40: 99 22 11 57 4F 4C 4C 45 4E 2C 20 4C 41 44 45 4E |.".WOLLEN, LADEN|
00000A50: 20 57 49 52 20 44 41 53 20 59 52 20 4D 49 54 20 | WIR DAS YR MIT |
00000A60: 24 30 30 3A 00 7A 0E 4C 04 99 22 11 20 20 20 20 |$00:.z.L..". |
00000A70: 20 20 4C 44 59 20 23 24 30 30 00 90 0E 6A 04 49 | LDY #$00...j.I|
00000A80: B2 35 3A 8D 35 30 30 30 3A 8B 46 4C A7 38 30 30 |.5:.5000:.FL.800|
00000A90: 00 BF 0E B0 04 99 22 93 57 49 52 20 42 45 47 49 |......".WIR BEGI|
00000AA0: 4E 4E 45 4E 20 4E 55 4E 20 20 44 49 45 20 53 55 |NNEN NUN DIE SU|
00000AB0: 43 48 53 43 48 4C 45 49 46 45 20 20 4D 49 54 00 |CHSCHLEIFE MIT.|
00000AC0: EE 0E BA 04 99 22 11 44 45 4D 20 20 45 52 48 4F |.....".DEM ERHO|
00000AD0: 45 48 45 4E 20 20 44 45 52 20 20 41 44 52 45 53 |EHEN DER ADRES|
00000AE0: 53 45 20 49 4E 20 53 50 45 49 43 48 45 52 00 03 |SE IN SPEICHER..|
00000AF0: 0F C4 04 99 22 11 24 30 31 2F 24 30 32 20 55 4D |....".$01/$02 UM|
00000B00: 20 31 3A 00 30 0F CE 04 99 22 11 20 20 20 20 20 | 1:.0....". |
00000B10: 49 4E 43 20 24 30 31 20 20 20 45 52 48 4F 45 48 |INC $01 ERHOEH|
00000B20: 45 4E 20 44 45 53 20 4C 4F 57 2D 42 59 54 45 53 |EN DES LOW-BYTES|
00000B30: 00 4C 0F D8 04 99 22 11 20 20 20 B0 5F 42 4E 45 |.L....". ._BNE|
00000B40: 20 24 30 34 20 20 20 3D 20 30 20 3F 00 7C 0F E2 | $04 = 0 ?.|..|
00000B50: 04 99 22 20 20 20 DD 11 9D DD 20 49 4E 43 20 24 |.." .... INC $|
00000B60: 30 32 20 20 20 45 52 48 4F 45 48 45 4E 20 44 45 |02 ERHOEHEN DE|
00000B70: 53 20 48 49 47 48 2D 42 59 54 45 53 00 9C 0F EC |S HIGH-BYTES....|
00000B80: 04 99 22 20 20 20 DD 11 9D DD 20 42 4D 49 20 24 |.." .... BMI $|
00000B90: 2E 2E 20 20 20 3D 20 24 38 30 20 3F 00 AF 0F F6 |.. = $80 ?....|
00000BA0: 04 99 22 20 20 20 DD 11 9D AD C0 2E 2E 2E 2E 00 |.." ..........|
00000BB0: DE 0F FB 04 99 22 11 57 45 47 45 4E 20 42 4E 45 |.....".WEGEN BNE|
00000BC0: 20 57 49 52 44 20 20 24 30 32 20 4E 55 52 20 20 | WIRD $02 NUR |
00000BD0: 42 45 49 4D 20 41 55 46 54 52 45 54 45 4E 00 04 |BEIM AUFTRETEN..|
00000BE0: 10 00 05 99 22 11 45 49 4E 45 4C 45 48 52 47 41 |....".EINELEHRGA|
00000BF0: 4E 47 20 31 32 53 20 55 4D 20 31 20 45 52 48 4F |NG 12S UM 1 ERHO|
00000C00: 45 48 54 2E 00 33 10 0A 05 99 22 11 4D 49 54 20 |EHT..3....".MIT |
00000C10: 42 4D 49 20 53 50 52 49 4E 47 54 20 20 4D 41 4E |BMI SPRINGT MAN|
00000C20: 20 42 45 49 20 20 45 52 52 45 49 43 48 45 4E 20 | BEI ERREICHEN |
00000C30: 56 4F 4E 00 5E 10 14 05 99 22 11 24 38 30 30 30 |VON.^....".$8000|
00000C40: 20 41 4E 20 45 49 4E 45 20 53 54 45 4C 4C 45 2C | AN EINE STELLE,|
00000C50: 20 57 4F 20 52 54 53 20 53 54 45 48 54 2E 00 75 | WO RTS STEHT..u|
00000C60: 10 28 05 49 B2 36 3A 8D 35 30 30 30 3A 8B 46 4C |.(.I.6:.5000:.FL|
00000C70: A7 31 30 30 30 00 A8 10 78 05 99 22 93 11 11 11 |.1000...x.."....|
00000C80: 11 4E 55 4E 20 45 52 46 4F 4C 47 54 20 44 49 45 |.NUN ERFOLGT DIE|
00000C90: 20 41 42 46 52 41 47 45 2C 20 20 4F 42 20 44 45 | ABFRAGE, OB DE|
00000CA0: 52 20 49 4E 48 41 4C 54 00 D7 10 82 05 99 22 11 |R INHALT......".|
00000CB0: 44 45 53 20 53 50 45 49 43 48 45 52 53 2C 20 44 |DES SPEICHERS, D|
00000CC0: 45 53 53 45 4E 20 41 44 52 45 53 53 45 20 49 4E |ESSEN ADRESSE IN|
00000CD0: 20 24 30 31 2F 30 32 00 06 11 8C 05 99 22 11 53 | $01/02......".S|
00000CE0: 54 45 48 54 2C 20 47 4C 45 49 43 48 20 4E 55 4C |TEHT, GLEICH NUL|
00000CF0: 4C 20 49 53 54 2E 20 46 41 4C 4C 53 20 4E 45 49 |L IST. FALLS NEI|
00000D00: 4E 2C 20 45 52 2D 00 35 11 96 05 99 22 11 46 4F |N, ER-.5....".FO|
00000D10: 4C 47 54 20 44 45 52 20 53 50 52 55 4E 47 20 5A |LGT DER SPRUNG Z|
00000D20: 55 20 44 45 52 20 53 54 45 4C 4C 45 2C 20 20 57 |U DER STELLE, W|
00000D30: 4F 20 44 49 45 00 62 11 A0 05 99 22 11 41 44 52 |O DIE.b....".ADR|
00000D40: 45 53 53 45 20 49 4E 20 24 30 31 2F 30 32 20 49 |ESSE IN $01/02 I|
00000D50: 4E 4B 52 45 4D 45 4E 54 49 45 52 54 20 57 49 52 |NKREMENTIERT WIR|
00000D60: 44 2E 00 8C 11 AA 05 99 22 11 11 11 20 20 20 20 |D......."... |
00000D70: 20 20 4C 44 41 20 28 24 30 31 29 2C 59 20 20 42 | LDA ($01),Y B|
00000D80: 45 41 43 48 54 45 3A 20 59 3D 30 21 00 BA 11 B4 |EACHTE: Y=0!....|
00000D90: 05 99 22 11 20 20 20 20 20 20 42 4E 45 20 24 2E |..". BNE $.|
00000DA0: 2E 20 20 20 20 20 20 53 50 52 55 4E 47 20 5A 55 |. SPRUNG ZU|
00000DB0: 20 27 49 4E 43 20 24 30 31 27 00 D1 11 FA 05 49 | 'INC $01'.....I|
00000DC0: B2 37 3A 8D 35 30 30 30 3A 8B 46 4C A7 31 32 30 |.7:.5000:.FL.120|
00000DD0: 30 00 00 12 40 06 99 22 93 46 41 4C 4C 53 20 4A |0...@..".FALLS J|
00000DE0: 41 2C 20 47 45 48 54 53 20 57 45 49 54 45 52 20 |A, GEHTS WEITER |
00000DF0: 4D 49 54 20 44 45 4D 20 4E 41 43 48 46 4F 4C 2D |MIT DEM NACHFOL-|
00000E00: 00 18 12 4A 06 99 22 11 47 45 4E 44 45 4E 20 53 |...J..".GENDEN S|
00000E10: 50 45 49 43 48 45 52 3A 00 3D 12 54 06 99 22 11 |PEICHER:.=.T..".|
00000E20: 20 20 20 20 20 20 49 4E 59 20 20 20 20 20 20 20 | INY |
00000E30: 20 20 20 4A 45 54 5A 54 3A 20 59 3D 31 00 56 12 | JETZT: Y=1.V.|
00000E40: 5E 06 99 22 11 20 20 20 20 20 20 4C 44 41 20 28 |^..". LDA (|
00000E50: 24 30 31 29 2C 59 00 85 12 68 06 99 22 11 20 20 |$01),Y...h..". |
00000E60: 20 20 20 20 42 4E 45 20 24 2E 2E 20 20 20 20 20 | BNE $.. |
00000E70: 20 53 50 52 55 4E 47 20 5A 55 20 27 4C 44 59 20 | SPRUNG ZU 'LDY |
00000E80: 23 24 30 30 27 00 B4 12 72 06 99 22 11 46 41 4C |#$00'...r..".FAL|
00000E90: 4C 53 20 41 55 43 48 20 44 49 45 53 45 52 20 4E |LS AUCH DIESER N|
00000EA0: 55 4C 4C 20 49 53 54 2C 20 20 57 49 52 44 20 20 |ULL IST, WIRD |
00000EB0: 41 55 43 48 00 DE 12 77 06 99 22 11 4E 4F 43 48 |AUCH...w..".NOCH|
00000EC0: 20 44 45 52 20 44 52 49 54 54 45 20 53 50 45 49 | DER DRITTE SPEI|
00000ED0: 43 48 45 52 20 47 45 50 52 55 45 46 54 3A 00 03 |CHER GEPRUEFT:..|
00000EE0: 13 7C 06 99 22 11 20 20 20 20 20 20 49 4E 59 20 |.|..". INY |
00000EF0: 20 20 20 20 20 20 20 20 20 4A 45 54 5A 54 3A 20 | JETZT: |
00000F00: 59 3D 32 00 1C 13 86 06 99 22 11 20 20 20 20 20 |Y=2......". |
00000F10: 20 4C 44 41 20 28 24 30 31 29 2C 59 00 4B 13 90 | LDA ($01),Y.K..|
00000F20: 06 99 22 11 20 20 20 20 20 20 42 4E 45 20 24 2E |..". BNE $.|
00000F30: 2E 20 20 20 20 20 20 53 50 52 55 4E 47 20 5A 55 |. SPRUNG ZU|
00000F40: 20 27 4C 44 59 20 23 24 30 30 27 00 7A 13 9A 06 | 'LDY #$00'.z...|
00000F50: 99 22 11 55 4E 44 20 46 41 4C 4C 53 20 41 55 43 |.".UND FALLS AUC|
00000F60: 48 20 44 45 52 20 4E 55 4C 4C 20 49 53 54 2C 45 |H DER NULL IST,E|
00000F70: 52 46 4F 4C 47 54 20 44 45 52 00 A9 13 A4 06 99 |RFOLGT DER......|
00000F80: 22 11 20 20 20 20 20 20 52 54 53 20 20 20 20 20 |". RTS |
00000F90: 20 20 20 20 20 52 55 45 43 4B 53 50 52 55 4E 47 | RUECKSPRUNG|
00000FA0: 20 5A 55 20 42 41 53 49 43 00 C0 13 AE 06 49 B2 | ZU BASIC.....I.|
00000FB0: 38 3A 8D 35 30 30 30 3A 8B 46 4C A7 31 34 30 30 |8:.5000:.FL.1400|
00000FC0: 00 E5 13 08 07 99 22 93 4E 55 4E 20 4E 4F 43 48 |......".NUN NOCH|
00000FD0: 20 4D 41 4C 20 41 4C 4C 45 53 20 5A 55 53 41 4D | MAL ALLES ZUSAM|
00000FE0: 4D 45 4E 3A 11 00 0F 14 0D 07 99 22 20 20 20 20 |MEN:......." |
00000FF0: 20 20 4C 44 41 20 23 24 46 46 20 20 20 20 20 20 | LDA #$FF |
00001000: 53 54 41 52 54 41 44 52 20 3D 20 30 33 46 46 00 |STARTADR = 03FF.|
00001010: 23 14 12 07 99 22 20 20 20 20 20 20 53 54 41 20 |#...." STA |
00001020: 24 30 31 00 38 14 17 07 99 22 20 20 20 20 20 20 |$01.8...." |
00001030: 4C 44 41 20 23 24 30 33 00 4C 14 1C 07 99 22 20 |LDA #$03.L...." |
00001040: 20 20 20 20 20 53 54 41 20 24 30 32 00 73 14 21 | STA $02.s.!|
00001050: 07 99 22 20 20 B0 C0 C0 C0 4C 44 59 20 23 24 30 |.." ....LDY #$0|
00001060: 30 20 20 20 20 20 20 59 2C 20 53 54 41 52 54 20 |0 Y, START |
00001070: 3D 20 30 00 7D 14 22 07 99 22 20 20 DD 00 A5 14 |= 0.}.".." ....|
00001080: 26 07 99 22 20 20 DD B0 C0 C0 49 4E 43 20 24 30 |&.." ....INC $0|
00001090: 31 20 20 20 20 20 20 20 41 44 52 20 3D 20 41 44 |1 ADR = AD|
000010A0: 52 20 2B 20 31 00 C5 14 2B 07 99 22 20 20 DD DD |R + 1...+.." ..|
000010B0: B0 5F 42 4E 45 20 24 2E 2E 20 20 20 20 20 20 20 |._BNE $.. |
000010C0: 3D 20 30 20 3F 00 D9 14 30 07 99 22 20 20 DD DD |= 0 ?...0.." ..|
000010D0: DD 20 49 4E 43 20 24 30 32 00 FA 14 35 07 99 22 |. INC $02...5.."|
000010E0: 20 B0 DD DD DD 5F 42 4D 49 20 24 2E 2E 20 20 20 | ...._BMI $.. |
000010F0: 20 20 20 20 45 4E 44 45 20 3F 00 06 15 36 07 99 | ENDE ?...6..|
00001100: 22 20 DD DD DD DD 00 26 15 3A 07 99 22 20 DD DD |" .....&.:.." ..|
00001110: DD AD C0 4C 44 41 20 28 24 30 31 29 2C 59 20 20 |...LDA ($01),Y |
00001120: 20 59 20 3D 20 30 00 46 15 3F 07 99 22 20 DD DD | Y = 0.F.?.." ..|
00001130: AD C0 5F 42 4E 45 20 24 2E 2E 20 20 20 20 20 20 |.._BNE $.. |
00001140: 20 3D 20 30 20 3F 00 50 15 40 07 99 22 20 DD DD | = 0 ?.P.@.." ..|
00001150: 00 70 15 44 07 99 22 20 DD DD 20 20 20 49 4E 59 |.p.D.." .. INY|
00001160: 20 20 20 20 20 20 20 20 20 20 20 59 20 3D 20 31 | Y = 1|
00001170: 00 88 15 49 07 99 22 20 DD DD 20 20 20 4C 44 41 |...I.." .. LDA|
00001180: 20 28 24 30 31 29 2C 59 00 A8 15 4E 07 99 22 20 | ($01),Y...N.." |
00001190: DD AB C0 C0 5F 42 4E 45 20 24 2E 2E 20 20 20 20 |...._BNE $.. |
000011A0: 20 20 20 3D 20 30 20 3F 00 C8 15 53 07 99 22 20 | = 0 ?...S.." |
000011B0: DD DD 20 20 20 49 4E 59 20 20 20 20 20 20 20 20 |.. INY |
000011C0: 20 20 20 59 20 3D 20 32 00 E0 15 58 07 99 22 20 | Y = 2...X.." |
000011D0: DD DD 20 20 20 4C 44 41 20 28 24 30 31 29 2C 59 |.. LDA ($01),Y|
000011E0: 00 00 16 5D 07 99 22 20 DD AD C0 C0 5F 42 4E 45 |...].." ...._BNE|
000011F0: 20 24 2E 2E 20 20 20 20 20 20 20 3D 20 30 20 3F | $.. = 0 ?|
00001200: 00 1F 16 6C 07 99 22 20 AD C0 C0 C0 C0 52 54 53 |...l.." .....RTS|
00001210: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 45 00 | ENDE.|
00001220: 36 16 76 07 49 B2 39 3A 8D 35 30 30 30 3A 8B 46 |6.v.I.9:.5000:.F|
00001230: 4C A7 31 36 30 30 00 65 16 D0 07 99 22 93 4E 55 |L.1600.e....".NU|
00001240: 4E 20 45 49 4E 20 4B 4C 45 49 4E 45 52 20 50 52 |N EIN KLEINER PR|
00001250: 4F 42 45 4C 41 55 46 21 20 20 20 20 57 49 52 20 |OBELAUF! WIR |
00001260: 52 55 46 45 4E 00 94 16 D5 07 99 22 11 44 49 45 |RUFEN......".DIE|
00001270: 20 52 4F 55 54 49 4E 45 20 4D 49 54 20 53 59 53 | ROUTINE MIT SYS|
00001280: 20 38 32 36 20 41 55 46 20 55 4E 44 20 44 52 55 | 826 AUF UND DRU|
00001290: 43 4B 45 4E 00 C3 16 DA 07 99 22 11 44 41 4E 4E |CKEN......".DANN|
000012A0: 20 44 49 45 20 49 4E 20 24 30 31 2F 30 32 20 53 | DIE IN $01/02 S|
000012B0: 54 45 48 45 4E 44 45 20 41 44 52 45 53 53 45 20 |TEHENDE ADRESSE |
000012C0: 44 45 2D 00 F2 16 E4 07 99 22 11 5A 49 4D 41 4C |DE-......".ZIMAL|
000012D0: 20 41 55 53 3A 20 41 44 52 20 3D 20 50 45 45 4B | AUS: ADR = PEEK|
000012E0: 28 31 29 20 2B 20 32 35 36 2A 50 45 45 4B 28 32 |(1) + 256*PEEK(2|
000012F0: 29 2E 00 21 17 F8 07 99 22 11 44 41 4D 49 54 20 |)..!....".DAMIT |
00001300: 53 49 45 20 45 49 4E 20 47 45 46 55 45 48 4C 20 |SIE EIN GEFUEHL |
00001310: 42 45 4B 4F 4D 4D 45 4E 2C 20 57 49 45 20 46 49 |BEKOMMEN, WIE FI|
00001320: 58 00 50 17 02 08 99 22 11 44 41 53 20 47 45 48 |X.P....".DAS GEH|
00001330: 54 2C 20 20 20 4C 41 53 53 45 4E 20 57 49 52 20 |T, LASSEN WIR |
00001340: 44 45 4E 20 43 42 4D 20 57 41 45 48 52 45 4E 44 |DEN CBM WAEHREND|
00001350: 00 7F 17 07 08 99 22 11 44 45 4D 20 53 55 43 48 |......".DEM SUCH|
00001360: 45 4E 20 45 49 4E 45 4E 20 57 45 49 53 53 45 4E |EN EINEN WEISSEN|
00001370: 20 42 41 4C 4B 45 4E 20 41 55 46 20 44 45 4E 00 | BALKEN AUF DEN.|
00001380: 99 17 0C 08 99 22 11 42 49 4C 44 53 43 48 49 52 |.....".BILDSCHIR|
00001390: 4D 20 53 45 54 5A 45 4E 2E 00 BB 17 16 08 99 22 |M SETZEN......."|
000013A0: 11 11 53 49 4E 44 20 53 49 45 20 42 45 52 45 49 |..SIND SIE BEREI|
000013B0: 54 20 28 4A 2F 4E 29 20 3F 11 11 00 D1 17 2A 08 |T (J/N) ?.....*.|
000013C0: A1 58 24 3A 8B 58 24 B3 B1 22 4A 22 A7 32 30 39 |.X$:.X$.."J".209|
000013D0: 30 00 01 18 34 08 81 43 B2 30 A4 31 30 3A 81 57 |0...4..C.0.10:.W|
000013E0: B2 30 A4 34 30 30 AC B4 28 43 29 3A 82 57 3A 99 |.0.400..(C):.W:.|
000013F0: 22 91 20 20 20 9D 9D 9D 22 3B 31 30 AB 43 3A 82 |". ...";10.C:.|
00001400: 43 00 3D 18 3E 08 99 22 91 12 20 20 20 20 20 20 |C.=.>..".. |
00001410: 20 20 20 20 92 22 3A 9E 38 32 36 3A 99 22 91 41 | .":.826:.".A|
00001420: 44 52 20 3D 22 3B C2 28 31 29 AA 32 35 36 AC C2 |DR =";.(1).256..|
00001430: 28 32 29 3B 22 20 20 20 20 20 20 20 22 00 5B 18 |(2);" ".[.|
00001440: 48 08 99 22 11 53 43 48 4E 45 4C 4C 2C 20 4E 49 |H..".SCHNELL, NI|
00001450: 43 48 54 20 57 41 48 52 20 3F 21 00 73 18 52 08 |CHT WAHR ?!.s.R.|
00001460: 49 B2 31 30 3A 8D 35 30 30 30 3A 8B 46 4C A7 31 |I.10:.5000:.FL.1|
00001470: 38 30 30 00 A2 18 98 08 99 22 93 45 49 4E 45 20 |800......".EINE |
00001480: 20 45 52 53 54 45 20 20 4E 55 54 5A 41 4E 57 45 | ERSTE NUTZANWE|
00001490: 4E 44 55 4E 47 20 46 55 45 52 20 20 44 49 45 53 |NDUNG FUER DIES|
000014A0: 45 53 00 D1 18 AC 08 99 22 11 50 52 4F 47 52 41 |ES......".PROGRA|
000014B0: 4D 4D 20 49 53 54 20 44 49 45 20 42 45 52 45 43 |MM IST DIE BEREC|
000014C0: 48 4E 55 4E 47 20 20 44 45 52 20 4C 41 45 4E 47 |HNUNG DER LAENG|
000014D0: 45 00 00 19 B6 08 99 22 11 56 4F 4E 20 42 41 53 |E......".VON BAS|
000014E0: 49 43 2D 50 52 4F 47 52 41 4D 4D 45 4E 2E 45 49 |IC-PROGRAMMEN.EI|
000014F0: 4E 20 42 41 53 49 43 2D 50 52 4F 47 52 41 4D 4D |N BASIC-PROGRAMM|
00001500: 00 2F 19 C0 08 99 22 11 42 45 47 49 4E 4E 54 20 |./....".BEGINNT |
00001510: 53 54 45 54 53 20 42 45 49 20 24 30 34 30 30 3D |STETS BEI $0400=|
00001520: 31 30 32 34 20 20 55 4E 44 20 45 4E 44 45 54 00 |1024 UND ENDET.|
00001530: 5E 19 CA 08 99 22 11 4D 49 54 20 20 45 42 45 4E |^....".MIT EBEN|
00001540: 20 20 44 45 4D 20 20 53 50 45 49 43 48 45 52 2C | DEM SPEICHER,|
00001550: 20 20 57 4F 20 44 49 45 20 20 44 52 45 49 00 76 | WO DIE DREI.v|
00001560: 19 D4 08 99 22 11 4E 55 4C 4C 45 4E 20 42 45 47 |....".NULLEN BEG|
00001570: 49 4E 4E 45 4E 2E 00 9A 19 DE 08 99 22 11 11 57 |INNEN......."..W|
00001580: 49 52 20 57 55 45 52 44 45 4E 20 41 4C 53 4F 20 |IR WUERDEN ALSO |
00001590: 53 43 48 52 45 49 42 45 4E 3A 00 DA 19 E8 08 99 |SCHREIBEN:......|
000015A0: 22 11 20 20 31 2E 20 27 53 59 53 20 38 32 36 27 |". 1. 'SYS 826'|
000015B0: 22 3A 99 22 11 20 20 32 2E 20 27 50 52 49 4E 54 |":.". 2. 'PRINT|
000015C0: 20 50 45 45 4B 28 31 29 2B 32 35 36 2A 50 45 45 | PEEK(1)+256*PEE|
000015D0: 4B 28 32 29 2D 31 30 32 34 27 00 09 1A F2 08 99 |K(2)-1024'......|
000015E0: 22 11 55 4E 44 20 45 52 48 49 45 4C 54 45 4E 20 |".UND ERHIELTEN |
000015F0: 20 41 4C 53 20 45 52 47 45 42 4E 49 53 20 20 44 | ALS ERGEBNIS D|
00001600: 49 45 20 4C 41 45 4E 47 45 00 2E 1A F7 08 99 22 |IE LAENGE......"|
00001610: 11 44 45 53 20 42 41 53 49 43 2D 50 52 4F 47 52 |.DES BASIC-PROGR|
00001620: 41 4D 4D 45 53 20 49 4E 20 42 59 54 45 2E 00 46 |AMMES IN BYTE..F|
00001630: 1A 06 09 49 B2 31 31 3A 8D 35 30 30 30 3A 8B 46 |...I.11:.5000:.F|
00001640: 4C A7 32 30 30 30 00 5D 1A 60 09 99 22 93 41 55 |L.2000.].`..".AU|
00001650: 46 47 41 42 45 4E 20 3A 22 3A 99 55 24 00 8C 1A |FGABEN :":.U$...|
00001660: 6A 09 99 22 11 31 2E 20 42 45 52 45 43 48 4E 45 |j..".1. BERECHNE|
00001670: 4E 20 53 49 45 20 20 20 41 55 46 20 44 49 45 53 |N SIE AUF DIES|
00001680: 45 20 57 45 49 53 45 20 20 44 49 45 00 AF 1A 74 |E WEISE DIE...t|
00001690: 09 99 22 11 20 20 20 4C 41 45 4E 47 45 20 44 49 |..". LAENGE DI|
000016A0: 45 53 45 53 20 50 52 4F 47 52 41 4D 4D 53 2E 00 |ESES PROGRAMMS..|
000016B0: DE 1A 7E 09 99 22 11 32 2E 20 46 52 45 28 30 29 |..~..".2. FRE(0)|
000016C0: 20 42 45 52 55 45 43 4B 53 49 43 48 54 49 47 54 | BERUECKSICHTIGT|
000016D0: 20 41 55 43 48 20 44 45 4E 20 46 55 45 52 00 0D | AUCH DEN FUER..|
000016E0: 1B 88 09 99 22 11 20 20 20 56 41 52 49 41 42 4C |....". VARIABL|
000016F0: 45 4E 20 42 45 4E 4F 45 54 49 47 54 45 4E 20 53 |EN BENOETIGTEN S|
00001700: 50 45 49 43 48 45 52 50 4C 41 54 5A 2E 00 3C 1B |PEICHERPLATZ..<.|
00001710: 8D 09 99 22 11 20 20 20 4D 49 54 20 20 44 49 45 |...". MIT DIE|
00001720: 53 45 4D 20 20 20 4D 41 53 43 48 49 4E 45 4E 50 |SEM MASCHINENP|
00001730: 52 4F 47 52 41 4D 4D 20 20 55 4E 44 00 6B 1B 92 |ROGRAMM UND.k..|
00001740: 09 99 22 11 20 20 20 46 52 45 28 30 29 20 4B 4F |..". FRE(0) KO|
00001750: 45 4E 4E 45 4E 20 53 49 45 20 44 45 4E 20 46 55 |ENNEN SIE DEN FU|
00001760: 45 52 20 56 41 52 49 41 42 4C 45 00 98 1B 9C 09 |ER VARIABLE.....|
00001770: 99 22 11 20 20 20 42 45 4E 55 54 5A 54 45 4E 20 |.". BENUTZTEN |
00001780: 53 50 45 49 43 48 45 52 50 4C 41 54 5A 20 42 45 |SPEICHERPLATZ BE|
00001790: 53 54 49 4D 4D 45 4E 2E 00 C7 1B A6 09 99 22 11 |STIMMEN.......".|
000017A0: 33 2E 20 56 45 52 53 55 43 48 45 4E 20 53 49 45 |3. VERSUCHEN SIE|
000017B0: 20 4D 49 54 20 48 49 4C 46 45 20 44 45 52 20 49 | MIT HILFE DER I|
000017C0: 4E 54 45 52 4E 45 4E 00 F6 1B B0 09 99 22 11 20 |NTERNEN......". |
000017D0: 20 20 55 48 52 20 48 45 52 41 55 53 5A 55 46 49 | UHR HERAUSZUFI|
000017E0: 4E 44 45 4E 2C 20 57 49 45 20 53 43 48 4E 45 4C |NDEN, WIE SCHNEL|
000017F0: 4C 20 20 44 41 53 00 22 1C BA 09 99 22 11 20 20 |L DAS."....". |
00001800: 20 50 52 4F 47 52 41 4D 4D 20 49 53 54 20 5B 4B | PROGRAMM IST [K|
00001810: 42 59 54 45 20 50 52 4F 20 53 45 4B 55 4E 44 45 |BYTE PRO SEKUNDE|
00001820: 5D 2E 00 3A 1C CE 09 49 B2 31 32 3A 8D 35 30 30 |]..:...I.12:.500|
00001830: 30 3A 8B 46 4C A7 32 32 30 30 00 69 1C 28 0A 99 |0:.FL.2200.i.(..|
00001840: 22 93 34 2E 20 57 41 52 55 4D 20 57 49 52 44 20 |".4. WARUM WIRD |
00001850: 20 20 41 4C 53 20 53 54 41 52 54 41 44 52 45 53 | ALS STARTADRES|
00001860: 53 45 20 20 24 30 33 46 46 00 8E 1C 32 0A 99 22 |SE $03FF...2.."|
00001870: 11 20 20 20 55 4E 44 20 4E 49 43 48 54 20 24 30 |. UND NICHT $0|
00001880: 34 30 30 20 47 45 57 41 45 48 4C 54 20 3F 00 BD |400 GEWAEHLT ?..|
00001890: 1C 3C 0A 99 22 11 35 2E 20 57 41 4E 4E 20 57 49 |.<..".5. WANN WI|
000018A0: 52 44 20 44 45 52 20 53 50 45 49 43 48 45 52 20 |RD DER SPEICHER |
000018B0: 24 30 32 20 55 4D 20 31 20 20 45 52 2D 00 CF 1C |$02 UM 1 ER-...|
000018C0: 46 0A 99 22 11 20 20 20 48 4F 45 48 54 20 3F 00 |F..". HOEHT ?.|
000018D0: FE 1C 50 0A 99 22 11 36 2E 20 42 45 49 20 57 45 |..P..".6. BEI WE|
000018E0: 4C 43 48 45 52 20 A0 41 44 52 45 53 53 45 20 20 |LCHER .ADRESSE |
000018F0: 47 45 4E 41 55 20 20 45 52 46 4F 4C 47 54 00 2D |GENAU ERFOLGT.-|
00001900: 1D 5A 0A 99 22 11 20 20 20 53 50 41 45 54 45 53 |.Z..". SPAETES|
00001910: 54 45 4E 53 20 44 45 52 20 41 42 42 52 55 43 48 |TENS DER ABBRUCH|
00001920: 20 44 45 53 20 53 55 43 48 45 4E 53 3F 00 5C 1D | DES SUCHENS?.\.|
00001930: 64 0A 99 22 11 37 2E 20 57 41 52 55 4D 20 4C 41 |d..".7. WARUM LA|
00001940: 45 53 53 54 20 53 49 43 48 20 20 41 4C 53 20 5A |ESST SICH ALS Z|
00001950: 41 45 48 4C 45 52 A0 4E 49 43 48 54 00 89 1D 6E |AEHLER.NICHT...n|
00001960: 0A 99 22 11 20 20 20 45 49 4E 46 41 43 48 20 44 |..". EINFACH D|
00001970: 41 53 20 58 52 20 4F 44 45 52 20 59 52 20 56 45 |AS XR ODER YR VE|
00001980: 52 57 45 4E 44 45 4E 20 3F 00 B8 1D 78 0A 99 22 |RWENDEN ?...x.."|
00001990: 11 38 2E 20 44 49 45 20 20 49 4E 4E 45 52 53 54 |.8. DIE INNERST|
000019A0: 45 20 20 53 43 48 4C 45 49 46 45 20 20 42 45 47 |E SCHLEIFE BEG|
000019B0: 49 4E 4E 54 20 42 45 49 00 E7 1D 82 0A 99 22 11 |INNT BEI......".|
000019C0: 20 20 20 27 49 4E 43 20 24 30 31 27 2C 20 20 44 | 'INC $01', D|
000019D0: 49 45 20 42 45 49 44 45 4E 20 41 45 55 53 53 45 |IE BEIDEN AEUSSE|
000019E0: 52 45 4E 20 42 45 49 00 09 1E 8C 0A 99 22 11 20 |REN BEI......". |
000019F0: 20 20 27 4C 44 59 20 23 24 30 30 27 2E 20 57 41 | 'LDY #$00'. WA|
00001A00: 52 55 4D 20 44 41 53 20 3F 00 45 1E 96 0A 99 22 |RUM DAS ?.E...."|
00001A10: 11 11 1D 1D 2D 20 53 45 49 54 45 20 31 33 20 2D |....- SEITE 13 -|
00001A20: 20 20 3C 2B 3E 20 91 A4 A4 A4 A4 11 9D 9D 9D 9D | <+> ..........|
00001A30: 12 45 4E 44 45 92 20 3C 2D 3E 20 56 4F 4E 20 56 |.ENDE. <-> VON V|
00001A40: 4F 52 4E 45 22 00 55 1E F4 0B 8D 35 30 32 30 3A |ORNE".U....5020:|
00001A50: 91 46 4C 89 30 00 60 1E FE 0B 99 22 93 22 3A 80 |.FL.0.`....".":.|
00001A60: 00 72 1E 88 13 8F 20 55 4D 42 4C 41 45 54 54 45 |.r.... UMBLAETTE|
00001A70: 52 4E 00 BC 1E 92 13 99 22 13 11 11 11 11 11 11 |RN......".......|
00001A80: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001A90: 11 11 20 20 2D 20 53 45 49 54 45 22 3B 49 3B 22 |.. - SEITE";I;"|
00001AA0: 2D 20 20 3C 2B 3E 20 57 45 49 54 45 52 20 20 3C |- <+> WEITER <|
00001AB0: 2D 3E 20 5A 55 52 55 45 43 4B 22 3B 00 CE 1E 9C |-> ZURUECK";....|
00001AC0: 13 81 49 B2 30 A4 31 31 3A A1 58 24 3A 82 00 E2 |..I.0.11:.X$:...|
00001AD0: 1E A6 13 A1 58 24 3A 8B 58 24 B2 22 22 A7 35 30 |....X$:.X$."".50|
00001AE0: 33 30 00 F5 1E B0 13 8B 58 24 B2 22 2B 22 A7 46 |30......X$."+".F|
00001AF0: 4C B2 30 3A 8E 00 08 1F BA 13 8B 58 24 B2 22 2D |L.0:.......X$."-|
00001B00: 22 A7 46 4C B2 31 3A 8E 00 12 1F C4 13 89 35 30 |".FL.1:.......50|
00001B10: 33 30 00 00 00 |30... |
....... ### SYNTAX-MAGAZIN #22.7.... ###
JANUAR 1982.A.... ###.^.... ### COPY
RIGHT (C) 1981.Y.... ### BY ELMAR COMPAN
S...... ### CARL-SCHURZ-STR.3...... #
## 7550 RASTATT 1...... ###.N....5946
8,12:......U$."EEEEEEEEEE":O$.".........
":I$."INPUT-ROUTINE":B$." BILDSCHIRM".O.
E..169,255,133,1,169,3,133,2,160,0,230,1
,208,4,230,2,48...F..14,177,1,208,244,20
0,177,1,208,237,200,177,1,208,232,96.O.H
.."....";O$;O$;O$;O$:.".SYNTAX-LEHRGANG
'MASCHINENSPRACHE' (12)...R..".......";O
$:.".3. SUCHROUTINEN ".&...."..EIN GLEIC
HERMASSEN WICHTIGES WIE HAEU-.U....".FI
GES PROBLEM STELLEN DIE SUCHROUTINEN...
...".DAR. WIR LERNEN IN DIESER LEKTION,
WIE......".SUCHROUTINEN AUFGEBAUT SIND.
.X...."..DER VORTEIL VON SUCHROUTINEN,
DIE IN......".MASCHINENSPRACHE GESCHRI
EBEN SIND, IST.6....".IHRE UM EIN VIELF
ACHES (CA FAKTOR 1000).V."..".HOEHERE GE
SCHWINDIGKEIT..R.,..:.I.0.32:.X:.826.I,X
:....6.I.1:.5000:.FL.200......".WIR WERD
EN DEN PRINZIPIELLEN AUFBAU VON......".S
UCHROUTINEN AN EINER EINFACHEN SUCH-..
....".ROUTINE STUDIEREN..0...."..WIR WOL
LEN DEN BEREICH $0400 BIS $8000._....".
NACH DER BYTEFOLGE '$00-$00-$00' DURCH-.
..B..".SUCHEN.WIR SUCHEN ALSO DIE ADRESS
E DES-...L..".JENIGEN SPEICHERS, DESSE
N INHALT UND...V..".GLEICHZEITIG AUCH D
ER INHALT DER BEIDEN......".FOLGENDEN SP
EICHER GLEICH NULL IST..G...."..DIESE A
DRESSE IST DIE ENDADRESSE DES.V....".G
ERADE IM RAM STEHENDEN BASICPROGRAMMS...
...I.2:.5000:.FL.200...X..".WIR BENOETIG
EN EINEN ZAEHLER, DER VON...]..".$0400
BIS $8000 ZAEHLEN KANN.DER INHALT...^..
".DES SPEICHERS, DESSEN ADRESSE DIESE
R.H.B..".ZAEHLER ANGIBT, WIRD AUF DEN
WERT $00.W.G..".GEPRUEFT. IST DER INHAL
T UNGLEICH $00,...L..".SO WIRD DER ZAEHL
ER UM EINS ERHOEHT.IST.U.V..".ER GLEICH
$00,SO WERDEN AUCH DIE BEIDEN......".FOL
GENDEN SPEICHER AUF $00 GEPRUEFT..0...."
.SIND SIE NICHT BEIDE NULL, SO WIRD WEI-
._....".TERGESUCHT, ANDERNFALLS WIRD DI
E SUCHE......".ABGEBROCHEN. MAXIMAL SOLL
BIS $8000 GE-......".SUCHT WERDEN....P.
I.3:.5000:.FL.400... ..".......ALS ZAEHL
ER VERWENDEN WIR DIE SPEICHER...%..".$0
1/$02. ES MUESSEN 2 SPEICHER SEIN, DA.L.
*..".DIE ADRESSEN 2 BYTE UMFASSEN. WIR W
AEH-.{./..".LEN ZEROPAGE-SPEICHER, DA DI
ESE ERSTENS...4..".SCHNELLER ANSPRECHBAR
SIND UND ZWEITENS.T.>..".INDIREKT INDIZ
IERT WERDEN KOENNEN......I.4:.5000:.FL.6
00......".ZUERST LADEN WIR DIE STARTADRE
SSE MINUS.H....".1 IN DIESE BEIDEN SPEIC
HER.DABEI BEACH-.W....".TEN WIR DIE REIH
ENFOLGE NIEDERWERTIG/......".HOEHERWER
TIG (LOW/HIGH):......". LDA #$FF.Q.
...". STA $01 $FF NACH $01...$.."
. LDA #$03......". STA $02 $
03 NACH $02.;.8.."..DA WIR INDIREKT IND
IZIERT ADRESSIEREN.D.B..".WOLLEN, LADEN
WIR DAS YR MIT $00:.Z.L..". LDY #$
00...J.I.5:.5000:.FL.800......".WIR BEGI
NNEN NUN DIE SUCHSCHLEIFE MIT......".D
EM ERHOEHEN DER ADRESSE IN SPEICHER..
.D..".$01/$02 UM 1:.0.N..". INC $01
ERHOEHEN DES LOW-BYTES.L.X..". ._BNE
$04 = 0 ?.|...." .... INC $02 ERH
OEHEN DES HIGH-BYTES......" .... BMI $
.. = $80 ?......" ...............".W
EGEN BNE WIRD $02 NUR BEIM AUFTRETEN..
....".EINELEHRGANG 12S UM 1 ERHOEHT..3..
..".MIT BMI SPRINGT MAN BEI ERREICHEN
VON.^....".$8000 AN EINE STELLE, WO RTS
STEHT..U.(.I.6:.5000:.FL.1000...X.."....
.NUN ERFOLGT DIE ABFRAGE, OB DER INHALT
.W....".DES SPEICHERS, DESSEN ADRESSE IN
$01/02......".STEHT, GLEICH NULL IST. F
ALLS NEIN, ER-.5....".FOLGT DER SPRUNG Z
U DER STELLE, WO DIE.B. ..".ADRESSE IN
$01/02 INKREMENTIERT WIRD......."...
LDA ($01),Y BEACHTE: Y=0!......".
BNE $.. SPRUNG ZU 'INC $01'.Q...I
.7:.5000:.FL.1200...@..".FALLS JA, GEHTS
WEITER MIT DEM NACHFOL-...J..".GENDEN S
PEICHER:.=.T..". INY JETZT
: Y=1.V.^..". LDA ($01),Y...H..".
BNE $.. SPRUNG ZU 'LDY #$00'...
R..".FALLS AUCH DIESER NULL IST, WIRD
AUCH...W..".NOCH DER DRITTE SPEICHER GEP
RUEFT:...|..". INY JETZT:
Y=2......". LDA ($01),Y.K....".
BNE $.. SPRUNG ZU 'LDY #$00'.Z...
.".UND FALLS AUCH DER NULL IST,ERFOLGT D
ER......". RTS RUECKSPRUNG
ZU BASIC.....I.8:.5000:.FL.1400......".
NUN NOCH MAL ALLES ZUSAMMEN:......."
LDA #$FF STARTADR = 03FF.#...."
STA $01.8...." LDA #$03.L...."
STA $02.S.!.." ....LDY #$00 Y
, START = 0.}.".." ....&.." ....INC $0
1 ADR = ADR + 1.E.+.." ..._BNE $.
. = 0 ?.Y.0.." ... INC $02...5.."
...._BMI $.. ENDE ?...6.." .....&
.:.." .....LDA ($01),Y Y = 0.F.?.." ..
.._BNE $.. = 0 ?.P.@.." ...P.D.."
.. INY Y = 1...I.." .. LDA
($01),Y...N.." ...._BNE $.. = 0 ?
.H.S.." .. INY Y = 2...X.."
.. LDA ($01),Y...].." ...._BNE $..
= 0 ?...L.." .....RTS ENDE.
6.V.I.9:.5000:.FL.1600.E.P..".NUN EIN KL
EINER PROBELAUF! WIR RUFEN...U..".DIE
ROUTINE MIT SYS 826 AUF UND DRUCKEN.C.Z
..".DANN DIE IN $01/02 STEHENDE ADRESSE
DE-......".ZIMAL AUS: ADR = PEEK(1) + 25
6*PEEK(2)..!....".DAMIT SIE EIN GEFUEHL
BEKOMMEN, WIE FIX.P....".DAS GEHT, LAS
SEN WIR DEN CBM WAEHREND.....".DEM SUCH
EN EINEN WEISSEN BALKEN AUF DEN......".B
ILDSCHIRM SETZEN......."..SIND SIE BEREI
T (J/N) ?...Q.*..X$:.X$.."J".2090...4..C
.0.10:.W.0.400..(C):.W:.". ...";10.C:.
C.=.>..".. .":.826:.".ADR =";B(
1).256.B(2);" ".[.H..".SCHNELL, NI
CHT WAHR ?!.S.R.I.10:.5000:.FL.1800.....
.".EINE ERSTE NUTZANWENDUNG FUER DIES
ES.Q....".PROGRAMM IST DIE BERECHNUNG D
ER LAENGE......".VON BASIC-PROGRAMMEN.EI
N BASIC-PROGRAMM./....".BEGINNT STETS BE
I $0400=1024 UND ENDET.^.J..".MIT EBEN
DEM SPEICHER, WO DIE DREI.V.T..".NU
LLEN BEGINNEN......."..WIR WUERDEN ALSO
SCHREIBEN:.Z....". 1. 'SYS 826'":.". 2
. 'PRINT PEEK(1)+256*PEEK(2)-1024'......
".UND ERHIELTEN ALS ERGEBNIS DIE LAENG
E......".DES BASIC-PROGRAMMES IN BYTE..F
...I.11:.5000:.FL.2000.].`..".AUFGABEN :
":.U$...J..".1. BERECHNEN SIE AUF DIES
E WEISE DIE...T..". LAENGE DIESES PRO
GRAMMS....~..".2. FRE(0) BERUECKSICHTIGT
AUCH DEN FUER......". VARIABLEN BENOE
TIGTEN SPEICHERPLATZ..<....". MIT DIE
SEM MASCHINENPROGRAMM UND.K....". F
RE(0) KOENNEN SIE DEN FUER VARIABLE.....
.". BENUTZTEN SPEICHERPLATZ BESTIMMEN.
.G....".3. VERSUCHEN SIE MIT HILFE DER I
NTERNEN......". UHR HERAUSZUFINDEN, WI
E SCHNELL DAS."....". PROGRAMM IST [K
BYTE PRO SEKUNDE]..:.N.I.12:.5000:.FL.22
00.I.(..".4. WARUM WIRD ALS STARTADRES
SE $03FF...2..". UND NICHT $0400 GEWA
EHLT ?...<..".5. WANN WIRD DER SPEICHER
$02 UM 1 ER-.O.F..". HOEHT ?...P..".6
. BEI WELCHER ADRESSE GENAU ERFOLGT.-
.Z..". SPAETESTENS DER ABBRUCH DES SUC
HENS?.\.D..".7. WARUM LAESST SICH ALS Z
AEHLER NICHT...N..". EINFACH DAS XR OD
ER YR VERWENDEN ?...X..".8. DIE INNERST
E SCHLEIFE BEGINNT BEI......". 'INC
$01', DIE BEIDEN AEUSSEREN BEI......".
'LDY #$00'. WARUM DAS ?.E...."....- SE
ITE 13 - <+> ...........ENDE. <-> VON V
ORNE".U....5020:.FL.0.`....".":..R.... U
MBLAETTERN......".......................
.. - SEITE";I;"- <+> WEITER <-> ZURUE
CK";.N....I.0.11:.X$:.......X$:.X$."".50
30......X$."+".FL.0:.......X$."-".FL.1:.
...D..5030...
> CLICK IMAGE PREVIEW FOR FULL MODAL