12MASCHIENEN
FILE INFORMATION
FILENAME(S): 12MASCHIENEN
FILE TYPE(S): PRG
FILE SIZE: 6.8K
FIRST SEEN: 2025-11-30 21:23:28
APPEARS ON: 1 disk(s)
FILE HASH
efe8e20eb9d095476e3f8cf6cda8d9ec79560809d6e7ee34dd7a964c570a6896
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 15 1 | 12MASCHIENEN | PRG | DuncanTwain | 9 | 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 C4 |TT 1...... ###..|
000000C0: 04 08 00 9C 00 0B 05 0A 00 55 24 B2 22 C5 C5 C5 |.........U$."...|
000000D0: C5 C5 C5 C5 C5 C5 C5 22 3A 4F 24 B2 22 A4 A4 A4 |.......":O$."...|
000000E0: A4 A4 A4 A4 A4 A4 22 3A 49 24 B2 22 49 4E 50 55 |......":I$."INPU|
000000F0: 54 2D 52 4F 55 54 49 4E 45 22 3A 42 24 B2 22 20 |T-ROUTINE":B$." |
00000100: 42 49 4C 44 53 43 48 49 52 4D 22 00 45 05 65 00 |BILDSCHIRM".E.e.|
00000110: 83 31 36 39 2C 32 35 35 2C 31 33 33 2C 31 2C 31 |.169,255,133,1,1|
00000120: 36 39 2C 33 2C 31 33 33 2C 32 2C 31 36 30 2C 30 |69,3,133,2,160,0|
00000130: 2C 32 33 30 2C 31 2C 32 30 38 2C 34 2C 32 33 30 |,230,1,208,4,230|
00000140: 2C 32 2C 34 38 00 82 05 66 00 83 31 34 2C 31 37 |,2,48...f..14,17|
00000150: 37 2C 31 2C 32 30 38 2C 32 34 34 2C 32 30 30 2C |7,1,208,244,200,|
00000160: 31 37 37 2C 31 2C 32 30 38 2C 32 33 37 2C 32 30 |177,1,208,237,20|
00000170: 30 2C 31 37 37 2C 31 2C 32 30 38 2C 32 33 32 2C |0,177,1,208,232,|
00000180: 39 36 00 C5 05 C8 00 99 22 93 A4 A4 A4 22 3B 4F |96......"....";O|
00000190: 24 3B 4F 24 3B 4F 24 3B 4F 24 3A 99 22 12 53 59 |$;O$;O$;O$:.".SY|
000001A0: 4E 54 41 58 2D 4C 45 48 52 47 41 4E 47 20 27 4D |NTAX-LEHRGANG 'M|
000001B0: 41 53 43 48 49 4E 45 4E 53 50 52 41 43 48 45 27 |ASCHINENSPRACHE'|
000001C0: 20 28 31 32 29 00 EC 05 D2 00 99 22 A4 A4 A4 A4 | (12)......"....|
000001D0: A4 A4 A4 22 3B 4F 24 3A 99 22 12 33 2E 20 53 55 |...";O$:.".3. SU|
000001E0: 43 48 52 4F 55 54 49 4E 45 4E 20 22 00 1C 06 DC |CHROUTINEN "....|
000001F0: 00 99 22 11 11 45 49 4E 20 47 4C 45 49 43 48 45 |.."..EIN GLEICHE|
00000200: 52 4D 41 53 53 45 4E 20 20 57 49 43 48 54 49 47 |RMASSEN WICHTIG|
00000210: 45 53 20 57 49 45 20 48 41 45 55 2D 00 4B 06 E6 |ES WIE HAEU-.K..|
00000220: 00 99 22 11 46 49 47 45 53 20 50 52 4F 42 4C 45 |..".FIGES PROBLE|
00000230: 4D 20 53 54 45 4C 4C 45 4E 20 44 49 45 20 20 53 |M STELLEN DIE S|
00000240: 55 43 48 52 4F 55 54 49 4E 45 4E 00 7A 06 F0 00 |UCHROUTINEN.z...|
00000250: 99 22 11 44 41 52 2E 20 20 57 49 52 20 4C 45 52 |.".DAR. WIR LER|
00000260: 4E 45 4E 20 49 4E 20 44 49 45 53 45 52 20 4C 45 |NEN IN DIESER LE|
00000270: 4B 54 49 4F 4E 2C 20 57 49 45 00 9E 06 FA 00 99 |KTION, WIE......|
00000280: 22 11 53 55 43 48 52 4F 55 54 49 4E 45 4E 20 41 |".SUCHROUTINEN A|
00000290: 55 46 47 45 42 41 55 54 20 53 49 4E 44 2E 00 CE |UFGEBAUT SIND...|
000002A0: 06 04 01 99 22 11 11 44 45 52 20 56 4F 52 54 45 |...."..DER VORTE|
000002B0: 49 4C 20 56 4F 4E 20 20 53 55 43 48 52 4F 55 54 |IL VON SUCHROUT|
000002C0: 49 4E 45 4E 2C 20 20 20 44 49 45 20 49 4E 00 FD |INEN, DIE IN..|
000002D0: 06 0E 01 99 22 11 4D 41 53 43 48 49 4E 45 4E 53 |....".MASCHINENS|
000002E0: 50 52 41 43 48 45 20 47 45 53 43 48 52 49 45 42 |PRACHE GESCHRIEB|
000002F0: 45 4E 20 53 49 4E 44 2C 20 20 49 53 54 00 2C 07 |EN SIND, IST.,.|
00000300: 18 01 99 22 11 49 48 52 45 20 55 4D 20 45 49 4E |...".IHRE UM EIN|
00000310: 20 56 49 45 4C 46 41 43 48 45 53 20 28 43 41 20 | VIELFACHES (CA |
00000320: 46 41 4B 54 4F 52 20 31 30 30 30 29 00 4C 07 22 |FAKTOR 1000).L."|
00000330: 01 99 22 11 48 4F 45 48 45 52 45 20 47 45 53 43 |..".HOEHERE GESC|
00000340: 48 57 49 4E 44 49 47 4B 45 49 54 2E 00 68 07 2C |HWINDIGKEIT..h.,|
00000350: 01 8C 3A 81 49 B2 30 A4 33 32 3A 87 58 3A 97 38 |..:.I.0.32:.X:.8|
00000360: 32 36 AA 49 2C 58 3A 82 00 7E 07 36 01 49 B2 31 |26.I,X:..~.6.I.1|
00000370: 3A 8D 35 30 30 30 3A 8B 46 4C A7 32 30 30 00 AD |:.5000:.FL.200..|
00000380: 07 90 01 99 22 93 57 49 52 20 57 45 52 44 45 4E |....".WIR WERDEN|
00000390: 20 44 45 4E 20 50 52 49 4E 5A 49 50 49 45 4C 4C | DEN PRINZIPIELL|
000003A0: 45 4E 20 41 55 46 42 41 55 20 56 4F 4E 00 DC 07 |EN AUFBAU VON...|
000003B0: 9A 01 99 22 11 53 55 43 48 52 4F 55 54 49 4E 45 |...".SUCHROUTINE|
000003C0: 4E 20 20 41 4E 20 45 49 4E 45 52 20 20 45 49 4E |N AN EINER EIN|
000003D0: 46 41 43 48 45 4E 20 53 55 43 48 2D 00 F6 07 A4 |FACHEN SUCH-....|
000003E0: 01 99 22 11 52 4F 55 54 49 4E 45 20 53 54 55 44 |..".ROUTINE STUD|
000003F0: 49 45 52 45 4E 2E 00 26 08 AE 01 99 22 11 11 57 |IEREN..&...."..W|
00000400: 49 52 20 57 4F 4C 4C 45 4E 20 44 45 4E 20 42 45 |IR WOLLEN DEN BE|
00000410: 52 45 49 43 48 20 20 24 30 34 30 30 20 42 49 53 |REICH $0400 BIS|
00000420: 20 24 38 30 30 30 00 55 08 B8 01 99 22 11 4E 41 | $8000.U....".NA|
00000430: 43 48 20 44 45 52 20 42 59 54 45 46 4F 4C 47 45 |CH DER BYTEFOLGE|
00000440: 20 27 24 30 30 2D 24 30 30 2D 24 30 30 27 20 44 | '$00-$00-$00' D|
00000450: 55 52 43 48 2D 00 84 08 C2 01 99 22 11 53 55 43 |URCH-......".SUC|
00000460: 48 45 4E 2E 57 49 52 20 53 55 43 48 45 4E 20 41 |HEN.WIR SUCHEN A|
00000470: 4C 53 4F 20 44 49 45 20 41 44 52 45 53 53 45 20 |LSO DIE ADRESSE |
00000480: 44 45 53 2D 00 B3 08 CC 01 99 22 11 4A 45 4E 49 |DES-......".JENI|
00000490: 47 45 4E 20 53 50 45 49 43 48 45 52 53 2C 20 20 |GEN SPEICHERS, |
000004A0: 20 44 45 53 53 45 4E 20 49 4E 48 41 4C 54 20 20 | DESSEN INHALT |
000004B0: 55 4E 44 00 E2 08 D6 01 99 22 11 47 4C 45 49 43 |UND......".GLEIC|
000004C0: 48 5A 45 49 54 49 47 20 41 55 43 48 20 44 45 52 |HZEITIG AUCH DER|
000004D0: 20 49 4E 48 41 4C 54 20 44 45 52 20 42 45 49 44 | INHALT DER BEID|
000004E0: 45 4E 00 0D 09 E0 01 99 22 11 46 4F 4C 47 45 4E |EN......".FOLGEN|
000004F0: 44 45 4E 20 53 50 45 49 43 48 45 52 20 47 4C 45 |DEN SPEICHER GLE|
00000500: 49 43 48 20 4E 55 4C 4C 20 49 53 54 2E 00 3D 09 |ICH NULL IST..=.|
00000510: EA 01 99 22 11 11 44 49 45 53 45 20 20 41 44 52 |..."..DIESE ADR|
00000520: 45 53 53 45 20 49 53 54 20 20 44 49 45 20 45 4E |ESSE IST DIE EN|
00000530: 44 41 44 52 45 53 53 45 20 20 44 45 53 00 6C 09 |DADRESSE DES.l.|
00000540: F4 01 99 22 11 47 45 52 41 44 45 20 49 4D 20 52 |...".GERADE IM R|
00000550: 41 4D 20 53 54 45 48 45 4E 44 45 4E 20 42 41 53 |AM STEHENDEN BAS|
00000560: 49 43 50 52 4F 47 52 41 4D 4D 53 2E 00 82 09 08 |ICPROGRAMMS.....|
00000570: 02 49 B2 32 3A 8D 35 30 30 30 3A 8B 46 4C A7 32 |.I.2:.5000:.FL.2|
00000580: 30 30 00 B1 09 58 02 99 22 93 57 49 52 20 42 45 |00...X..".WIR BE|
00000590: 4E 4F 45 54 49 47 45 4E 20 20 45 49 4E 45 4E 20 |NOETIGEN EINEN |
000005A0: 5A 41 45 48 4C 45 52 2C 20 20 44 45 52 20 56 4F |ZAEHLER, DER VO|
000005B0: 4E 00 E0 09 5D 02 99 22 11 24 30 34 30 30 20 42 |N...]..".$0400 B|
000005C0: 49 53 20 24 38 30 30 30 20 5A 41 45 48 4C 45 4E |IS $8000 ZAEHLEN|
000005D0: 20 4B 41 4E 4E 2E 44 45 52 20 49 4E 48 41 4C 54 | KANN.DER INHALT|
000005E0: 00 0F 0A 5E 02 99 22 11 44 45 53 20 53 50 45 49 |...^..".DES SPEI|
000005F0: 43 48 45 52 53 2C 20 20 20 20 44 45 53 53 45 4E |CHERS, DESSEN|
00000600: 20 41 44 52 45 53 53 45 20 44 49 45 53 45 52 00 | ADRESSE DIESER.|
00000610: 3E 0A 62 02 99 22 11 5A 41 45 48 4C 45 52 20 41 |>.b..".ZAEHLER A|
00000620: 4E 47 49 42 54 2C 20 20 57 49 52 44 20 41 55 46 |NGIBT, WIRD AUF|
00000630: 20 20 44 45 4E 20 57 45 52 54 20 24 30 30 00 6D | DEN WERT $00.m|
00000640: 0A 67 02 99 22 11 47 45 50 52 55 45 46 54 2E 20 |.g..".GEPRUEFT. |
00000650: 20 49 53 54 20 44 45 52 20 49 4E 48 41 4C 54 20 | IST DER INHALT |
00000660: 55 4E 47 4C 45 49 43 48 20 24 30 30 2C 00 9C 0A |UNGLEICH $00,...|
00000670: 6C 02 99 22 11 53 4F 20 57 49 52 44 20 44 45 52 |l..".SO WIRD DER|
00000680: 20 5A 41 45 48 4C 45 52 20 55 4D 20 45 49 4E 53 | ZAEHLER UM EINS|
00000690: 20 45 52 48 4F 45 48 54 2E 49 53 54 00 CB 0A 76 | ERHOEHT.IST...v|
000006A0: 02 99 22 11 45 52 20 47 4C 45 49 43 48 20 24 30 |..".ER GLEICH $0|
000006B0: 30 2C 53 4F 20 57 45 52 44 45 4E 20 41 55 43 48 |0,SO WERDEN AUCH|
000006C0: 20 44 49 45 20 42 45 49 44 45 4E 00 F7 0A 80 02 | DIE BEIDEN.....|
000006D0: 99 22 11 46 4F 4C 47 45 4E 44 45 4E 20 53 50 45 |.".FOLGENDEN SPE|
000006E0: 49 43 48 45 52 20 41 55 46 20 24 30 30 20 47 45 |ICHER AUF $00 GE|
000006F0: 50 52 55 45 46 54 2E 00 26 0B 8A 02 99 22 11 53 |PRUEFT..&....".S|
00000700: 49 4E 44 20 53 49 45 20 4E 49 43 48 54 20 42 45 |IND SIE NICHT BE|
00000710: 49 44 45 20 4E 55 4C 4C 2C 20 53 4F 20 57 49 52 |IDE NULL, SO WIR|
00000720: 44 20 57 45 49 2D 00 55 0B 94 02 99 22 11 54 45 |D WEI-.U....".TE|
00000730: 52 47 45 53 55 43 48 54 2C 20 20 41 4E 44 45 52 |RGESUCHT, ANDER|
00000740: 4E 46 41 4C 4C 53 20 57 49 52 44 20 44 49 45 20 |NFALLS WIRD DIE |
00000750: 53 55 43 48 45 00 84 0B 9E 02 99 22 11 41 42 47 |SUCHE......".ABG|
00000760: 45 42 52 4F 43 48 45 4E 2E 20 4D 41 58 49 4D 41 |EBROCHEN. MAXIMA|
00000770: 4C 20 53 4F 4C 4C 20 42 49 53 20 24 38 30 30 30 |L SOLL BIS $8000|
00000780: 20 47 45 2D 00 99 0B A8 02 99 22 11 53 55 43 48 | GE-......".SUCH|
00000790: 54 20 57 45 52 44 45 4E 2E 00 AF 0B D0 02 49 B2 |T WERDEN......I.|
000007A0: 33 3A 8D 35 30 30 30 3A 8B 46 4C A7 34 30 30 00 |3:.5000:.FL.400.|
000007B0: E4 0B 20 03 99 22 93 11 11 11 11 11 11 41 4C 53 |.. ..".......ALS|
000007C0: 20 5A 41 45 48 4C 45 52 20 56 45 52 57 45 4E 44 | ZAEHLER VERWEND|
000007D0: 45 4E 20 57 49 52 20 20 44 49 45 20 53 50 45 49 |EN WIR DIE SPEI|
000007E0: 43 48 45 52 00 13 0C 25 03 99 22 11 24 30 31 2F |CHER...%..".$01/|
000007F0: 24 30 32 2E 20 45 53 20 4D 55 45 53 53 45 4E 20 |$02. ES MUESSEN |
00000800: 32 20 53 50 45 49 43 48 45 52 20 53 45 49 4E 2C |2 SPEICHER SEIN,|
00000810: 20 44 41 00 42 0C 2A 03 99 22 11 44 49 45 20 41 | DA.B.*..".DIE A|
00000820: 44 52 45 53 53 45 4E 20 32 20 42 59 54 45 20 55 |DRESSEN 2 BYTE U|
00000830: 4D 46 41 53 53 45 4E 2E 20 57 49 52 20 57 41 45 |MFASSEN. WIR WAE|
00000840: 48 2D 00 71 0C 2F 03 99 22 11 4C 45 4E 20 5A 45 |H-.q./..".LEN ZE|
00000850: 52 4F 50 41 47 45 2D 53 50 45 49 43 48 45 52 2C |ROPAGE-SPEICHER,|
00000860: 20 44 41 20 44 49 45 53 45 20 45 52 53 54 45 4E | DA DIESE ERSTEN|
00000870: 53 00 A0 0C 34 03 99 22 11 53 43 48 4E 45 4C 4C |S...4..".SCHNELL|
00000880: 45 52 20 41 4E 53 50 52 45 43 48 42 41 52 20 53 |ER ANSPRECHBAR S|
00000890: 49 4E 44 20 55 4E 44 20 5A 57 45 49 54 45 4E 53 |IND UND ZWEITENS|
000008A0: 00 CA 0C 3E 03 99 22 11 49 4E 44 49 52 45 4B 54 |...>..".INDIREKT|
000008B0: 20 49 4E 44 49 5A 49 45 52 54 20 57 45 52 44 45 | INDIZIERT WERDE|
000008C0: 4E 20 4B 4F 45 4E 4E 45 4E 2E 00 E0 0C A2 03 49 |N KOENNEN......I|
000008D0: B2 34 3A 8D 35 30 30 30 3A 8B 46 4C A7 36 30 30 |.4:.5000:.FL.600|
000008E0: 00 0F 0D E8 03 99 22 93 5A 55 45 52 53 54 20 4C |......".ZUERST L|
000008F0: 41 44 45 4E 20 57 49 52 20 44 49 45 20 53 54 41 |ADEN WIR DIE STA|
00000900: 52 54 41 44 52 45 53 53 45 20 4D 49 4E 55 53 00 |RTADRESSE MINUS.|
00000910: 3E 0D F2 03 99 22 11 31 20 49 4E 20 44 49 45 53 |>....".1 IN DIES|
00000920: 45 20 42 45 49 44 45 4E 20 53 50 45 49 43 48 45 |E BEIDEN SPEICHE|
00000930: 52 2E 44 41 42 45 49 20 42 45 41 43 48 2D 00 6D |R.DABEI BEACH-.m|
00000940: 0D FC 03 99 22 11 54 45 4E 20 57 49 52 20 44 49 |....".TEN WIR DI|
00000950: 45 20 52 45 49 48 45 4E 46 4F 4C 47 45 20 20 20 |E REIHENFOLGE |
00000960: 4E 49 45 44 45 52 57 45 52 54 49 47 2F 00 8D 0D |NIEDERWERTIG/...|
00000970: 06 04 99 22 11 48 4F 45 48 45 52 57 45 52 54 49 |...".HOEHERWERTI|
00000980: 47 20 28 4C 4F 57 2F 48 49 47 48 29 3A 00 A3 0D |G (LOW/HIGH):...|
00000990: 10 04 99 22 11 20 20 20 20 20 20 4C 44 41 20 23 |...". LDA #|
000009A0: 24 46 46 00 C7 0D 1A 04 99 22 11 20 20 20 20 20 |$FF......". |
000009B0: 20 53 54 41 20 24 30 31 20 20 20 24 46 46 20 4E | STA $01 $FF N|
000009C0: 41 43 48 20 24 30 31 00 DD 0D 24 04 99 22 11 20 |ACH $01...$..". |
000009D0: 20 20 20 20 20 4C 44 41 20 23 24 30 33 00 01 0E | LDA #$03...|
000009E0: 2E 04 99 22 11 20 20 20 20 20 20 53 54 41 20 24 |...". STA $|
000009F0: 30 32 20 20 20 24 30 33 20 4E 41 43 48 20 24 30 |02 $03 NACH $0|
00000A00: 32 00 31 0E 38 04 99 22 11 11 44 41 20 57 49 52 |2.1.8.."..DA WIR|
00000A10: 20 20 49 4E 44 49 52 45 4B 54 20 49 4E 44 49 5A | INDIREKT INDIZ|
00000A20: 49 45 52 54 20 20 41 44 52 45 53 53 49 45 52 45 |IERT ADRESSIERE|
00000A30: 4E 00 5A 0E 42 04 99 22 11 57 4F 4C 4C 45 4E 2C |N.Z.B..".WOLLEN,|
00000A40: 20 4C 41 44 45 4E 20 57 49 52 20 44 41 53 20 59 | LADEN WIR DAS Y|
00000A50: 52 20 4D 49 54 20 24 30 30 3A 00 70 0E 4C 04 99 |R MIT $00:.p.L..|
00000A60: 22 11 20 20 20 20 20 20 4C 44 59 20 23 24 30 30 |". LDY #$00|
00000A70: 00 86 0E 6A 04 49 B2 35 3A 8D 35 30 30 30 3A 8B |...j.I.5:.5000:.|
00000A80: 46 4C A7 38 30 30 00 B5 0E B0 04 99 22 93 57 49 |FL.800......".WI|
00000A90: 52 20 42 45 47 49 4E 4E 45 4E 20 4E 55 4E 20 20 |R BEGINNEN NUN |
00000AA0: 44 49 45 20 53 55 43 48 53 43 48 4C 45 49 46 45 |DIE SUCHSCHLEIFE|
00000AB0: 20 20 4D 49 54 00 E4 0E BA 04 99 22 11 44 45 4D | MIT......".DEM|
00000AC0: 20 20 45 52 48 4F 45 48 45 4E 20 20 44 45 52 20 | ERHOEHEN DER |
00000AD0: 20 41 44 52 45 53 53 45 20 49 4E 20 53 50 45 49 | ADRESSE IN SPEI|
00000AE0: 43 48 45 52 00 F9 0E C4 04 99 22 11 24 30 31 2F |CHER......".$01/|
00000AF0: 24 30 32 20 55 4D 20 31 3A 00 26 0F CE 04 99 22 |$02 UM 1:.&...."|
00000B00: 11 20 20 20 20 20 49 4E 43 20 24 30 31 20 20 20 |. INC $01 |
00000B10: 45 52 48 4F 45 48 45 4E 20 44 45 53 20 4C 4F 57 |ERHOEHEN DES LOW|
00000B20: 2D 42 59 54 45 53 00 42 0F D8 04 99 22 11 20 20 |-BYTES.B....". |
00000B30: 20 B0 5F 42 4E 45 20 24 30 34 20 20 20 3D 20 30 | ._BNE $04 = 0|
00000B40: 20 3F 00 72 0F E2 04 99 22 20 20 20 DD 11 9D DD | ?.r...." ....|
00000B50: 20 49 4E 43 20 24 30 32 20 20 20 45 52 48 4F 45 | INC $02 ERHOE|
00000B60: 48 45 4E 20 44 45 53 20 48 49 47 48 2D 42 59 54 |HEN DES HIGH-BYT|
00000B70: 45 53 00 92 0F EC 04 99 22 20 20 20 DD 11 9D DD |ES......" ....|
00000B80: 20 42 4D 49 20 24 2E 2E 20 20 20 3D 20 24 38 30 | BMI $.. = $80|
00000B90: 20 3F 00 A5 0F F6 04 99 22 20 20 20 DD 11 9D AD | ?......" ....|
00000BA0: C0 2E 2E 2E 2E 00 D4 0F FB 04 99 22 11 57 45 47 |...........".WEG|
00000BB0: 45 4E 20 42 4E 45 20 57 49 52 44 20 20 24 30 32 |EN BNE WIRD $02|
00000BC0: 20 4E 55 52 20 20 42 45 49 4D 20 41 55 46 54 52 | NUR BEIM AUFTR|
00000BD0: 45 54 45 4E 00 FA 0F 00 05 99 22 11 45 49 4E 45 |ETEN......".EINE|
00000BE0: 53 20 55 45 42 45 52 4C 41 55 46 53 20 55 4D 20 |S UEBERLAUFS UM |
00000BF0: 31 20 45 52 48 4F 45 48 54 2E 00 29 10 0A 05 99 |1 ERHOEHT..)....|
00000C00: 22 11 4D 49 54 20 42 4D 49 20 53 50 52 49 4E 47 |".MIT BMI SPRING|
00000C10: 54 20 20 4D 41 4E 20 42 45 49 20 20 45 52 52 45 |T MAN BEI ERRE|
00000C20: 49 43 48 45 4E 20 56 4F 4E 00 54 10 14 05 99 22 |ICHEN VON.T...."|
00000C30: 11 24 38 30 30 30 20 41 4E 20 45 49 4E 45 20 53 |.$8000 AN EINE S|
00000C40: 54 45 4C 4C 45 2C 20 57 4F 20 52 54 53 20 53 54 |TELLE, WO RTS ST|
00000C50: 45 48 54 2E 00 6B 10 28 05 49 B2 36 3A 8D 35 30 |EHT..k.(.I.6:.50|
00000C60: 30 30 3A 8B 46 4C A7 31 30 30 30 00 9E 10 78 05 |00:.FL.1000...x.|
00000C70: 99 22 93 11 11 11 11 4E 55 4E 20 45 52 46 4F 4C |.".....NUN ERFOL|
00000C80: 47 54 20 44 49 45 20 41 42 46 52 41 47 45 2C 20 |GT DIE ABFRAGE, |
00000C90: 20 4F 42 20 44 45 52 20 49 4E 48 41 4C 54 00 CD | OB DER INHALT..|
00000CA0: 10 82 05 99 22 11 44 45 53 20 53 50 45 49 43 48 |....".DES SPEICH|
00000CB0: 45 52 53 2C 20 44 45 53 53 45 4E 20 41 44 52 45 |ERS, DESSEN ADRE|
00000CC0: 53 53 45 20 49 4E 20 24 30 31 2F 30 32 00 FC 10 |SSE IN $01/02...|
00000CD0: 8C 05 99 22 11 53 54 45 48 54 2C 20 47 4C 45 49 |...".STEHT, GLEI|
00000CE0: 43 48 20 4E 55 4C 4C 20 49 53 54 2E 20 46 41 4C |CH NULL IST. FAL|
00000CF0: 4C 53 20 4E 45 49 4E 2C 20 45 52 2D 00 2B 11 96 |LS NEIN, ER-.+..|
00000D00: 05 99 22 11 46 4F 4C 47 54 20 44 45 52 20 53 50 |..".FOLGT DER SP|
00000D10: 52 55 4E 47 20 5A 55 20 44 45 52 20 53 54 45 4C |RUNG ZU DER STEL|
00000D20: 4C 45 2C 20 20 57 4F 20 44 49 45 00 58 11 A0 05 |LE, WO DIE.X...|
00000D30: 99 22 11 41 44 52 45 53 53 45 20 49 4E 20 24 30 |.".ADRESSE IN $0|
00000D40: 31 2F 30 32 20 49 4E 4B 52 45 4D 45 4E 54 49 45 |1/02 INKREMENTIE|
00000D50: 52 54 20 57 49 52 44 2E 00 82 11 AA 05 99 22 11 |RT WIRD.......".|
00000D60: 11 11 20 20 20 20 20 20 4C 44 41 20 28 24 30 31 |.. LDA ($01|
00000D70: 29 2C 59 20 20 42 45 41 43 48 54 45 3A 20 59 3D |),Y BEACHTE: Y=|
00000D80: 30 21 00 B0 11 B4 05 99 22 11 20 20 20 20 20 20 |0!......". |
00000D90: 42 4E 45 20 24 2E 2E 20 20 20 20 20 20 53 50 52 |BNE $.. SPR|
00000DA0: 55 4E 47 20 5A 55 20 27 49 4E 43 20 24 30 31 27 |UNG ZU 'INC $01'|
00000DB0: 00 C7 11 FA 05 49 B2 37 3A 8D 35 30 30 30 3A 8B |.....I.7:.5000:.|
00000DC0: 46 4C A7 31 32 30 30 00 F6 11 40 06 99 22 93 46 |FL.1200...@..".F|
00000DD0: 41 4C 4C 53 20 4A 41 2C 20 47 45 48 54 53 20 57 |ALLS JA, GEHTS W|
00000DE0: 45 49 54 45 52 20 4D 49 54 20 44 45 4D 20 4E 41 |EITER MIT DEM NA|
00000DF0: 43 48 46 4F 4C 2D 00 0E 12 4A 06 99 22 11 47 45 |CHFOL-...J..".GE|
00000E00: 4E 44 45 4E 20 53 50 45 49 43 48 45 52 3A 00 33 |NDEN SPEICHER:.3|
00000E10: 12 54 06 99 22 11 20 20 20 20 20 20 49 4E 59 20 |.T..". INY |
00000E20: 20 20 20 20 20 20 20 20 20 4A 45 54 5A 54 3A 20 | JETZT: |
00000E30: 59 3D 31 00 4C 12 5E 06 99 22 11 20 20 20 20 20 |Y=1.L.^..". |
00000E40: 20 4C 44 41 20 28 24 30 31 29 2C 59 00 7B 12 68 | LDA ($01),Y.{.h|
00000E50: 06 99 22 11 20 20 20 20 20 20 42 4E 45 20 24 2E |..". BNE $.|
00000E60: 2E 20 20 20 20 20 20 53 50 52 55 4E 47 20 5A 55 |. SPRUNG ZU|
00000E70: 20 27 4C 44 59 20 23 24 30 30 27 00 AA 12 72 06 | 'LDY #$00'...r.|
00000E80: 99 22 11 46 41 4C 4C 53 20 41 55 43 48 20 44 49 |.".FALLS AUCH DI|
00000E90: 45 53 45 52 20 4E 55 4C 4C 20 49 53 54 2C 20 20 |ESER NULL IST, |
00000EA0: 57 49 52 44 20 20 41 55 43 48 00 D4 12 77 06 99 |WIRD AUCH...w..|
00000EB0: 22 11 4E 4F 43 48 20 44 45 52 20 44 52 49 54 54 |".NOCH DER DRITT|
00000EC0: 45 20 53 50 45 49 43 48 45 52 20 47 45 50 52 55 |E SPEICHER GEPRU|
00000ED0: 45 46 54 3A 00 F9 12 7C 06 99 22 11 20 20 20 20 |EFT:...|..". |
00000EE0: 20 20 49 4E 59 20 20 20 20 20 20 20 20 20 20 4A | INY J|
00000EF0: 45 54 5A 54 3A 20 59 3D 32 00 12 13 86 06 99 22 |ETZT: Y=2......"|
00000F00: 11 20 20 20 20 20 20 4C 44 41 20 28 24 30 31 29 |. LDA ($01)|
00000F10: 2C 59 00 41 13 90 06 99 22 11 20 20 20 20 20 20 |,Y.A....". |
00000F20: 42 4E 45 20 24 2E 2E 20 20 20 20 20 20 53 50 52 |BNE $.. SPR|
00000F30: 55 4E 47 20 5A 55 20 27 4C 44 59 20 23 24 30 30 |UNG ZU 'LDY #$00|
00000F40: 27 00 70 13 9A 06 99 22 11 55 4E 44 20 46 41 4C |'.p....".UND FAL|
00000F50: 4C 53 20 41 55 43 48 20 44 45 52 20 4E 55 4C 4C |LS AUCH DER NULL|
00000F60: 20 49 53 54 2C 45 52 46 4F 4C 47 54 20 44 45 52 | IST,ERFOLGT DER|
00000F70: 00 9F 13 A4 06 99 22 11 20 20 20 20 20 20 52 54 |......". RT|
00000F80: 53 20 20 20 20 20 20 20 20 20 20 52 55 45 43 4B |S RUECK|
00000F90: 53 50 52 55 4E 47 20 5A 55 20 42 41 53 49 43 00 |SPRUNG ZU BASIC.|
00000FA0: B6 13 AE 06 49 B2 38 3A 8D 35 30 30 30 3A 8B 46 |....I.8:.5000:.F|
00000FB0: 4C A7 31 34 30 30 00 DB 13 08 07 99 22 93 4E 55 |L.1400......".NU|
00000FC0: 4E 20 4E 4F 43 48 20 4D 41 4C 20 41 4C 4C 45 53 |N NOCH MAL ALLES|
00000FD0: 20 5A 55 53 41 4D 4D 45 4E 3A 11 00 05 14 0D 07 | ZUSAMMEN:......|
00000FE0: 99 22 20 20 20 20 20 20 4C 44 41 20 23 24 46 46 |." LDA #$FF|
00000FF0: 20 20 20 20 20 20 53 54 41 52 54 41 44 52 20 3D | STARTADR =|
00001000: 20 30 33 46 46 00 19 14 12 07 99 22 20 20 20 20 | 03FF......" |
00001010: 20 20 53 54 41 20 24 30 31 00 2E 14 17 07 99 22 | STA $01......"|
00001020: 20 20 20 20 20 20 4C 44 41 20 23 24 30 33 00 42 | LDA #$03.B|
00001030: 14 1C 07 99 22 20 20 20 20 20 20 53 54 41 20 24 |...." STA $|
00001040: 30 32 00 69 14 21 07 99 22 20 20 B0 C0 C0 C0 4C |02.i.!.." ....L|
00001050: 44 59 20 23 24 30 30 20 20 20 20 20 20 59 2C 20 |DY #$00 Y, |
00001060: 53 54 41 52 54 20 3D 20 30 00 73 14 22 07 99 22 |START = 0.s.".."|
00001070: 20 20 DD 00 9B 14 26 07 99 22 20 20 DD B0 C0 C0 | ....&.." ....|
00001080: 49 4E 43 20 24 30 31 20 20 20 20 20 20 20 41 44 |INC $01 AD|
00001090: 52 20 3D 20 41 44 52 20 2B 20 31 00 BB 14 2B 07 |R = ADR + 1...+.|
000010A0: 99 22 20 20 DD DD B0 5F 42 4E 45 20 24 2E 2E 20 |." ..._BNE $.. |
000010B0: 20 20 20 20 20 20 3D 20 30 20 3F 00 CF 14 30 07 | = 0 ?...0.|
000010C0: 99 22 20 20 DD DD DD 20 49 4E 43 20 24 30 32 00 |." ... INC $02.|
000010D0: F0 14 35 07 99 22 20 B0 DD DD DD 5F 42 4D 49 20 |..5.." ...._BMI |
000010E0: 24 2E 2E 20 20 20 20 20 20 20 45 4E 44 45 20 3F |$.. ENDE ?|
000010F0: 00 FC 14 36 07 99 22 20 DD DD DD DD 00 1C 15 3A |...6.." .......:|
00001100: 07 99 22 20 DD DD DD AD C0 4C 44 41 20 28 24 30 |.." .....LDA ($0|
00001110: 31 29 2C 59 20 20 20 59 20 3D 20 30 00 3C 15 3F |1),Y Y = 0.<.?|
00001120: 07 99 22 20 DD DD AD C0 5F 42 4E 45 20 24 2E 2E |.." ...._BNE $..|
00001130: 20 20 20 20 20 20 20 3D 20 30 20 3F 00 46 15 40 | = 0 ?.F.@|
00001140: 07 99 22 20 DD DD 00 66 15 44 07 99 22 20 DD DD |.." ...f.D.." ..|
00001150: 20 20 20 49 4E 59 20 20 20 20 20 20 20 20 20 20 | INY |
00001160: 20 59 20 3D 20 31 00 7E 15 49 07 99 22 20 DD DD | Y = 1.~.I.." ..|
00001170: 20 20 20 4C 44 41 20 28 24 30 31 29 2C 59 00 9E | LDA ($01),Y..|
00001180: 15 4E 07 99 22 20 DD AB C0 C0 5F 42 4E 45 20 24 |.N.." ...._BNE $|
00001190: 2E 2E 20 20 20 20 20 20 20 3D 20 30 20 3F 00 BE |.. = 0 ?..|
000011A0: 15 53 07 99 22 20 DD DD 20 20 20 49 4E 59 20 20 |.S.." .. INY |
000011B0: 20 20 20 20 20 20 20 20 20 59 20 3D 20 32 00 D6 | Y = 2..|
000011C0: 15 58 07 99 22 20 DD DD 20 20 20 4C 44 41 20 28 |.X.." .. LDA (|
000011D0: 24 30 31 29 2C 59 00 F6 15 5D 07 99 22 20 DD AD |$01),Y...].." ..|
000011E0: C0 C0 5F 42 4E 45 20 24 2E 2E 20 20 20 20 20 20 |.._BNE $.. |
000011F0: 20 3D 20 30 20 3F 00 15 16 6C 07 99 22 20 AD C0 | = 0 ?...l.." ..|
00001200: C0 C0 C0 52 54 53 20 20 20 20 20 20 20 20 20 20 |...RTS |
00001210: 20 45 4E 44 45 00 2C 16 76 07 49 B2 39 3A 8D 35 | ENDE.,.v.I.9:.5|
00001220: 30 30 30 3A 8B 46 4C A7 31 36 30 30 00 5B 16 D0 |000:.FL.1600.[..|
00001230: 07 99 22 93 4E 55 4E 20 45 49 4E 20 4B 4C 45 49 |..".NUN EIN KLEI|
00001240: 4E 45 52 20 50 52 4F 42 45 4C 41 55 46 21 20 20 |NER PROBELAUF! |
00001250: 20 20 57 49 52 20 52 55 46 45 4E 00 8A 16 D5 07 | WIR RUFEN.....|
00001260: 99 22 11 44 49 45 20 52 4F 55 54 49 4E 45 20 4D |.".DIE ROUTINE M|
00001270: 49 54 20 53 59 53 20 38 32 36 20 41 55 46 20 55 |IT SYS 826 AUF U|
00001280: 4E 44 20 44 52 55 43 4B 45 4E 00 B9 16 DA 07 99 |ND DRUCKEN......|
00001290: 22 11 44 41 4E 4E 20 44 49 45 20 49 4E 20 24 30 |".DANN DIE IN $0|
000012A0: 31 2F 30 32 20 53 54 45 48 45 4E 44 45 20 41 44 |1/02 STEHENDE AD|
000012B0: 52 45 53 53 45 20 44 45 2D 00 E8 16 E4 07 99 22 |RESSE DE-......"|
000012C0: 11 5A 49 4D 41 4C 20 41 55 53 3A 20 41 44 52 20 |.ZIMAL AUS: ADR |
000012D0: 3D 20 50 45 45 4B 28 31 29 20 2B 20 32 35 36 2A |= PEEK(1) + 256*|
000012E0: 50 45 45 4B 28 32 29 2E 00 17 17 F8 07 99 22 11 |PEEK(2).......".|
000012F0: 44 41 4D 49 54 20 53 49 45 20 45 49 4E 20 47 45 |DAMIT SIE EIN GE|
00001300: 46 55 45 48 4C 20 42 45 4B 4F 4D 4D 45 4E 2C 20 |FUEHL BEKOMMEN, |
00001310: 57 49 45 20 46 49 58 00 46 17 02 08 99 22 11 44 |WIE FIX.F....".D|
00001320: 41 53 20 47 45 48 54 2C 20 20 20 4C 41 53 53 45 |AS GEHT, LASSE|
00001330: 4E 20 57 49 52 20 44 45 4E 20 43 42 4D 20 57 41 |N WIR DEN CBM WA|
00001340: 45 48 52 45 4E 44 00 75 17 07 08 99 22 11 44 45 |EHREND.u....".DE|
00001350: 4D 20 53 55 43 48 45 4E 20 45 49 4E 45 4E 20 57 |M SUCHEN EINEN W|
00001360: 45 49 53 53 45 4E 20 42 41 4C 4B 45 4E 20 41 55 |EISSEN BALKEN AU|
00001370: 46 20 44 45 4E 00 8F 17 0C 08 99 22 11 42 49 4C |F DEN......".BIL|
00001380: 44 53 43 48 49 52 4D 20 53 45 54 5A 45 4E 2E 00 |DSCHIRM SETZEN..|
00001390: B1 17 16 08 99 22 11 11 53 49 4E 44 20 53 49 45 |....."..SIND SIE|
000013A0: 20 42 45 52 45 49 54 20 28 4A 2F 4E 29 20 3F 11 | BEREIT (J/N) ?.|
000013B0: 11 00 C7 17 2A 08 A1 58 24 3A 8B 58 24 B3 B1 22 |....*..X$:.X$.."|
000013C0: 4A 22 A7 32 30 39 30 00 F7 17 34 08 81 43 B2 30 |J".2090...4..C.0|
000013D0: A4 31 30 3A 81 57 B2 30 A4 34 30 30 AC B4 28 43 |.10:.W.0.400..(C|
000013E0: 29 3A 82 57 3A 99 22 91 20 20 20 9D 9D 9D 22 3B |):.W:.". ...";|
000013F0: 31 30 AB 43 3A 82 43 00 33 18 3E 08 99 22 91 12 |10.C:.C.3.>.."..|
00001400: 20 20 20 20 20 20 20 20 20 20 92 22 3A 9E 38 32 | .":.82|
00001410: 36 3A 99 22 91 41 44 52 20 3D 22 3B C2 28 31 29 |6:.".ADR =";.(1)|
00001420: AA 32 35 36 AC C2 28 32 29 3B 22 20 20 20 20 20 |.256..(2);" |
00001430: 20 20 22 00 51 18 48 08 99 22 11 53 43 48 4E 45 | ".Q.H..".SCHNE|
00001440: 4C 4C 2C 20 4E 49 43 48 54 20 57 41 48 52 20 3F |LL, NICHT WAHR ?|
00001450: 21 00 69 18 52 08 49 B2 31 30 3A 8D 35 30 30 30 |!.i.R.I.10:.5000|
00001460: 3A 8B 46 4C A7 31 38 30 30 00 98 18 98 08 99 22 |:.FL.1800......"|
00001470: 93 45 49 4E 45 20 20 45 52 53 54 45 20 20 4E 55 |.EINE ERSTE NU|
00001480: 54 5A 41 4E 57 45 4E 44 55 4E 47 20 46 55 45 52 |TZANWENDUNG FUER|
00001490: 20 20 44 49 45 53 45 53 00 C7 18 AC 08 99 22 11 | DIESES......".|
000014A0: 50 52 4F 47 52 41 4D 4D 20 49 53 54 20 44 49 45 |PROGRAMM IST DIE|
000014B0: 20 42 45 52 45 43 48 4E 55 4E 47 20 20 44 45 52 | BERECHNUNG DER|
000014C0: 20 4C 41 45 4E 47 45 00 F6 18 B6 08 99 22 11 56 | LAENGE......".V|
000014D0: 4F 4E 20 42 41 53 49 43 2D 50 52 4F 47 52 41 4D |ON BASIC-PROGRAM|
000014E0: 4D 45 4E 2E 45 49 4E 20 42 41 53 49 43 2D 50 52 |MEN.EIN BASIC-PR|
000014F0: 4F 47 52 41 4D 4D 00 25 19 C0 08 99 22 11 42 45 |OGRAMM.%....".BE|
00001500: 47 49 4E 4E 54 20 53 54 45 54 53 20 42 45 49 20 |GINNT STETS BEI |
00001510: 24 30 34 30 30 3D 31 30 32 34 20 20 55 4E 44 20 |$0400=1024 UND |
00001520: 45 4E 44 45 54 00 54 19 CA 08 99 22 11 4D 49 54 |ENDET.T....".MIT|
00001530: 20 20 45 42 45 4E 20 20 44 45 4D 20 20 53 50 45 | EBEN DEM SPE|
00001540: 49 43 48 45 52 2C 20 20 57 4F 20 44 49 45 20 20 |ICHER, WO DIE |
00001550: 44 52 45 49 00 6C 19 D4 08 99 22 11 4E 55 4C 4C |DREI.l....".NULL|
00001560: 45 4E 20 42 45 47 49 4E 4E 45 4E 2E 00 90 19 DE |EN BEGINNEN.....|
00001570: 08 99 22 11 11 57 49 52 20 57 55 45 52 44 45 4E |.."..WIR WUERDEN|
00001580: 20 41 4C 53 4F 20 53 43 48 52 45 49 42 45 4E 3A | ALSO SCHREIBEN:|
00001590: 00 D0 19 E8 08 99 22 11 20 20 31 2E 20 27 53 59 |......". 1. 'SY|
000015A0: 53 20 38 32 36 27 22 3A 99 22 11 20 20 32 2E 20 |S 826'":.". 2. |
000015B0: 27 50 52 49 4E 54 20 50 45 45 4B 28 31 29 2B 32 |'PRINT PEEK(1)+2|
000015C0: 35 36 2A 50 45 45 4B 28 32 29 2D 31 30 32 34 27 |56*PEEK(2)-1024'|
000015D0: 00 FF 19 F2 08 99 22 11 55 4E 44 20 45 52 48 49 |......".UND ERHI|
000015E0: 45 4C 54 45 4E 20 20 41 4C 53 20 45 52 47 45 42 |ELTEN ALS ERGEB|
000015F0: 4E 49 53 20 20 44 49 45 20 4C 41 45 4E 47 45 00 |NIS DIE LAENGE.|
00001600: 24 1A F7 08 99 22 11 44 45 53 20 42 41 53 49 43 |$....".DES BASIC|
00001610: 2D 50 52 4F 47 52 41 4D 4D 45 53 20 49 4E 20 42 |-PROGRAMMES IN B|
00001620: 59 54 45 2E 00 3C 1A 06 09 49 B2 31 31 3A 8D 35 |YTE..<...I.11:.5|
00001630: 30 30 30 3A 8B 46 4C A7 32 30 30 30 00 53 1A 60 |000:.FL.2000.S.`|
00001640: 09 99 22 93 41 55 46 47 41 42 45 4E 20 3A 22 3A |..".AUFGABEN :":|
00001650: 99 55 24 00 82 1A 6A 09 99 22 11 31 2E 20 42 45 |.U$...j..".1. BE|
00001660: 52 45 43 48 4E 45 4E 20 53 49 45 20 20 20 41 55 |RECHNEN SIE AU|
00001670: 46 20 44 49 45 53 45 20 57 45 49 53 45 20 20 44 |F DIESE WEISE D|
00001680: 49 45 00 A5 1A 74 09 99 22 11 20 20 20 4C 41 45 |IE...t..". LAE|
00001690: 4E 47 45 20 44 49 45 53 45 53 20 50 52 4F 47 52 |NGE DIESES PROGR|
000016A0: 41 4D 4D 53 2E 00 D4 1A 7E 09 99 22 11 32 2E 20 |AMMS....~..".2. |
000016B0: 46 52 45 28 30 29 20 42 45 52 55 45 43 4B 53 49 |FRE(0) BERUECKSI|
000016C0: 43 48 54 49 47 54 20 41 55 43 48 20 44 45 4E 20 |CHTIGT AUCH DEN |
000016D0: 46 55 45 52 00 03 1B 88 09 99 22 11 20 20 20 56 |FUER......". V|
000016E0: 41 52 49 41 42 4C 45 4E 20 42 45 4E 4F 45 54 49 |ARIABLEN BENOETI|
000016F0: 47 54 45 4E 20 53 50 45 49 43 48 45 52 50 4C 41 |GTEN SPEICHERPLA|
00001700: 54 5A 2E 00 32 1B 8D 09 99 22 11 20 20 20 4D 49 |TZ..2....". MI|
00001710: 54 20 20 44 49 45 53 45 4D 20 20 20 4D 41 53 43 |T DIESEM MASC|
00001720: 48 49 4E 45 4E 50 52 4F 47 52 41 4D 4D 20 20 55 |HINENPROGRAMM U|
00001730: 4E 44 00 61 1B 92 09 99 22 11 20 20 20 46 52 45 |ND.a....". FRE|
00001740: 28 30 29 20 4B 4F 45 4E 4E 45 4E 20 53 49 45 20 |(0) KOENNEN SIE |
00001750: 44 45 4E 20 46 55 45 52 20 56 41 52 49 41 42 4C |DEN FUER VARIABL|
00001760: 45 00 8E 1B 9C 09 99 22 11 20 20 20 42 45 4E 55 |E......". BENU|
00001770: 54 5A 54 45 4E 20 53 50 45 49 43 48 45 52 50 4C |TZTEN SPEICHERPL|
00001780: 41 54 5A 20 42 45 53 54 49 4D 4D 45 4E 2E 00 BD |ATZ BESTIMMEN...|
00001790: 1B A6 09 99 22 11 33 2E 20 56 45 52 53 55 43 48 |....".3. VERSUCH|
000017A0: 45 4E 20 53 49 45 20 4D 49 54 20 48 49 4C 46 45 |EN SIE MIT HILFE|
000017B0: 20 44 45 52 20 49 4E 54 45 52 4E 45 4E 00 EC 1B | DER INTERNEN...|
000017C0: B0 09 99 22 11 20 20 20 55 48 52 20 48 45 52 41 |...". UHR HERA|
000017D0: 55 53 5A 55 46 49 4E 44 45 4E 2C 20 57 49 45 20 |USZUFINDEN, WIE |
000017E0: 53 43 48 4E 45 4C 4C 20 20 44 41 53 00 18 1C BA |SCHNELL DAS....|
000017F0: 09 99 22 11 20 20 20 50 52 4F 47 52 41 4D 4D 20 |..". PROGRAMM |
00001800: 49 53 54 20 5B 4B 42 59 54 45 20 50 52 4F 20 53 |IST [KBYTE PRO S|
00001810: 45 4B 55 4E 44 45 5D 2E 00 30 1C CE 09 49 B2 31 |EKUNDE]..0...I.1|
00001820: 32 3A 8D 35 30 30 30 3A 8B 46 4C A7 32 32 30 30 |2:.5000:.FL.2200|
00001830: 00 5F 1C 28 0A 99 22 93 34 2E 20 57 41 52 55 4D |._.(..".4. WARUM|
00001840: 20 57 49 52 44 20 20 20 41 4C 53 20 53 54 41 52 | WIRD ALS STAR|
00001850: 54 41 44 52 45 53 53 45 20 20 24 30 33 46 46 00 |TADRESSE $03FF.|
00001860: 84 1C 32 0A 99 22 11 20 20 20 55 4E 44 20 4E 49 |..2..". UND NI|
00001870: 43 48 54 20 24 30 34 30 30 20 47 45 57 41 45 48 |CHT $0400 GEWAEH|
00001880: 4C 54 20 3F 00 B3 1C 3C 0A 99 22 11 35 2E 20 57 |LT ?...<..".5. W|
00001890: 41 4E 4E 20 57 49 52 44 20 44 45 52 20 53 50 45 |ANN WIRD DER SPE|
000018A0: 49 43 48 45 52 20 24 30 32 20 55 4D 20 31 20 20 |ICHER $02 UM 1 |
000018B0: 45 52 2D 00 C5 1C 46 0A 99 22 11 20 20 20 48 4F |ER-...F..". HO|
000018C0: 45 48 54 20 3F 00 F4 1C 50 0A 99 22 11 36 2E 20 |EHT ?...P..".6. |
000018D0: 42 45 49 20 57 45 4C 43 48 45 52 20 A0 41 44 52 |BEI WELCHER .ADR|
000018E0: 45 53 53 45 20 20 47 45 4E 41 55 20 20 45 52 46 |ESSE GENAU ERF|
000018F0: 4F 4C 47 54 00 23 1D 5A 0A 99 22 11 20 20 20 53 |OLGT.#.Z..". S|
00001900: 50 41 45 54 45 53 54 45 4E 53 20 44 45 52 20 41 |PAETESTENS DER A|
00001910: 42 42 52 55 43 48 20 44 45 53 20 53 55 43 48 45 |BBRUCH DES SUCHE|
00001920: 4E 53 3F 00 52 1D 64 0A 99 22 11 37 2E 20 57 41 |NS?.R.d..".7. WA|
00001930: 52 55 4D 20 4C 41 45 53 53 54 20 53 49 43 48 20 |RUM LAESST SICH |
00001940: 20 41 4C 53 20 5A 41 45 48 4C 45 52 A0 4E 49 43 | ALS ZAEHLER.NIC|
00001950: 48 54 00 7F 1D 6E 0A 99 22 11 20 20 20 45 49 4E |HT...n..". EIN|
00001960: 46 41 43 48 20 44 41 53 20 58 52 20 4F 44 45 52 |FACH DAS XR ODER|
00001970: 20 59 52 20 56 45 52 57 45 4E 44 45 4E 20 3F 00 | YR VERWENDEN ?.|
00001980: AE 1D 78 0A 99 22 11 38 2E 20 44 49 45 20 20 49 |..x..".8. DIE I|
00001990: 4E 4E 45 52 53 54 45 20 20 53 43 48 4C 45 49 46 |NNERSTE SCHLEIF|
000019A0: 45 20 20 42 45 47 49 4E 4E 54 20 42 45 49 00 DD |E BEGINNT BEI..|
000019B0: 1D 82 0A 99 22 11 20 20 20 27 49 4E 43 20 24 30 |....". 'INC $0|
000019C0: 31 27 2C 20 20 44 49 45 20 42 45 49 44 45 4E 20 |1', DIE BEIDEN |
000019D0: 41 45 55 53 53 45 52 45 4E 20 42 45 49 00 FF 1D |AEUSSEREN BEI...|
000019E0: 8C 0A 99 22 11 20 20 20 27 4C 44 59 20 23 24 30 |...". 'LDY #$0|
000019F0: 30 27 2E 20 57 41 52 55 4D 20 44 41 53 20 3F 00 |0'. WARUM DAS ?.|
00001A00: 3B 1E 96 0A 99 22 11 11 1D 1D 2D 20 53 45 49 54 |;...."....- SEIT|
00001A10: 45 20 31 33 20 2D 20 20 3C 2B 3E 20 91 A4 A4 A4 |E 13 - <+> ....|
00001A20: A4 11 9D 9D 9D 9D 12 45 4E 44 45 92 20 3C 2D 3E |.......ENDE. <->|
00001A30: 20 56 4F 4E 20 56 4F 52 4E 45 22 00 4B 1E F4 0B | VON VORNE".K...|
00001A40: 8D 35 30 32 30 3A 91 46 4C 89 30 00 56 1E FE 0B |.5020:.FL.0.V...|
00001A50: 99 22 93 22 3A 80 00 68 1E 88 13 8F 20 55 4D 42 |.".":..h.... UMB|
00001A60: 4C 41 45 54 54 45 52 4E 00 B2 1E 92 13 99 22 13 |LAETTERN......".|
00001A70: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001A80: 11 11 11 11 11 11 11 11 20 20 2D 20 53 45 49 54 |........ - SEIT|
00001A90: 45 22 3B 49 3B 22 2D 20 20 3C 2B 3E 20 57 45 49 |E";I;"- <+> WEI|
00001AA0: 54 45 52 20 20 3C 2D 3E 20 5A 55 52 55 45 43 4B |TER <-> ZURUECK|
00001AB0: 22 3B 00 C4 1E 9C 13 81 49 B2 30 A4 31 31 3A A1 |";......I.0.11:.|
00001AC0: 58 24 3A 82 00 D8 1E A6 13 A1 58 24 3A 8B 58 24 |X$:.......X$:.X$|
00001AD0: B2 22 22 A7 35 30 33 30 00 EB 1E B0 13 8B 58 24 |."".5030......X$|
00001AE0: B2 22 2B 22 A7 46 4C B2 30 3A 8E 00 FE 1E BA 13 |."+".FL.0:......|
00001AF0: 8B 58 24 B2 22 2D 22 A7 46 4C B2 31 3A 8E 00 08 |.X$."-".FL.1:...|
00001B00: 1F C4 13 89 35 30 33 30 00 00 00 32 42 20 |....5030...2B |
....... ### SYNTAX-MAGAZIN #22.7.... ###
JANUAR 1982.A.... ###.^.... ### COPY
RIGHT (C) 1981.Y.... ### BY ELMAR COMPAN
S...... ### CARL-SCHURZ-STR.3...... #
## 7550 RASTATT 1...... ###.D........
.U$."EEEEEEEEEE":O$.".........":I$."INPU
T-ROUTINE":B$." BILDSCHIRM".E.E..169,255
,133,1,169,3,133,2,160,0,230,1,208,4,230
,2,48...F..14,177,1,208,244,200,177,1,20
8,237,200,177,1,208,232,96.E.H.."....";O
$;O$;O$;O$:.".SYNTAX-LEHRGANG 'MASCHINEN
SPRACHE' (12)...R..".......";O$:.".3. SU
CHROUTINEN "......"..EIN GLEICHERMASSEN
WICHTIGES WIE HAEU-.K....".FIGES PROBLE
M STELLEN DIE SUCHROUTINEN.Z....".DAR.
WIR LERNEN IN DIESER LEKTION, WIE......
".SUCHROUTINEN AUFGEBAUT SIND..N...."..D
ER VORTEIL VON SUCHROUTINEN, DIE IN..
....".MASCHINENSPRACHE GESCHRIEBEN SIND,
IST.,....".IHRE UM EIN VIELFACHES (CA
FAKTOR 1000).L."..".HOEHERE GESCHWINDIGK
EIT..H.,..:.I.0.32:.X:.826.I,X:..~.6.I.1
:.5000:.FL.200......".WIR WERDEN DEN PRI
NZIPIELLEN AUFBAU VON......".SUCHROUTINE
N AN EINER EINFACHEN SUCH-......".ROUT
INE STUDIEREN..&...."..WIR WOLLEN DEN BE
REICH $0400 BIS $8000.U....".NACH DER B
YTEFOLGE '$00-$00-$00' DURCH-...B..".SUC
HEN.WIR SUCHEN ALSO DIE ADRESSE DES-...L
..".JENIGEN SPEICHERS, DESSEN INHALT
UND...V..".GLEICHZEITIG AUCH DER INHALT
DER BEIDEN......".FOLGENDEN SPEICHER GLE
ICH NULL IST..=...."..DIESE ADRESSE IST
DIE ENDADRESSE DES.L....".GERADE IM R
AM STEHENDEN BASICPROGRAMMS......I.2:.50
00:.FL.200...X..".WIR BENOETIGEN EINEN
ZAEHLER, DER VON...]..".$0400 BIS $8000
ZAEHLEN KANN.DER INHALT...^..".DES SPEI
CHERS, DESSEN ADRESSE DIESER.>.B..".Z
AEHLER ANGIBT, WIRD AUF DEN WERT $00.M
.G..".GEPRUEFT. IST DER INHALT UNGLEICH
$00,...L..".SO WIRD DER ZAEHLER UM EINS
ERHOEHT.IST.K.V..".ER GLEICH $00,SO WER
DEN AUCH DIE BEIDEN......".FOLGENDEN SPE
ICHER AUF $00 GEPRUEFT..&....".SIND SIE
NICHT BEIDE NULL, SO WIRD WEI-.U....".TE
RGESUCHT, ANDERNFALLS WIRD DIE SUCHE...
...".ABGEBROCHEN. MAXIMAL SOLL BIS $8000
GE-......".SUCHT WERDEN....P.I.3:.5000:
.FL.400... ..".......ALS ZAEHLER VERWEND
EN WIR DIE SPEICHER...%..".$01/$02. ES
MUESSEN 2 SPEICHER SEIN, DA.B.*..".DIE A
DRESSEN 2 BYTE UMFASSEN. WIR WAEH-.Q./..
".LEN ZEROPAGE-SPEICHER, DA DIESE ERSTEN
S. .4..".SCHNELLER ANSPRECHBAR SIND UND
ZWEITENS.J.>..".INDIREKT INDIZIERT WERDE
N KOENNEN......I.4:.5000:.FL.600......".
ZUERST LADEN WIR DIE STARTADRESSE MINUS.
>....".1 IN DIESE BEIDEN SPEICHER.DABEI
BEACH-.M....".TEN WIR DIE REIHENFOLGE
NIEDERWERTIG/......".HOEHERWERTIG (LOW/H
IGH):......". LDA #$FF.G....".
STA $01 $FF NACH $01...$..". LDA
#$03......". STA $02 $03 NACH $0
2.1.8.."..DA WIR INDIREKT INDIZIERT AD
RESSIEREN.Z.B..".WOLLEN, LADEN WIR DAS Y
R MIT $00:.P.L..". LDY #$00...J.I.5
:.5000:.FL.800......".WIR BEGINNEN NUN
DIE SUCHSCHLEIFE MIT......".DEM ERHOEH
EN DER ADRESSE IN SPEICHER...D..".$01/
$02 UM 1:.&.N..". INC $01 ERHOEHEN
DES LOW-BYTES.B.X..". ._BNE $04 = 0
?.R...." .... INC $02 ERHOEHEN DES
HIGH-BYTES......" .... BMI $.. = $80
?......" ..........T....".WEGEN BNE W
IRD $02 NUR BEIM AUFTRETEN......".EINE
S UEBERLAUFS UM 1 ERHOEHT..)....".MIT BM
I SPRINGT MAN BEI ERREICHEN VON.T...."
.$8000 AN EINE STELLE, WO RTS STEHT..K.(
.I.6:.5000:.FL.1000...X..".....NUN ERFOL
GT DIE ABFRAGE, OB DER INHALT.M....".DE
S SPEICHERS, DESSEN ADRESSE IN $01/02...
...".STEHT, GLEICH NULL IST. FALLS NEIN,
ER-.+....".FOLGT DER SPRUNG ZU DER STEL
LE, WO DIE.X. ..".ADRESSE IN $01/02 INK
REMENTIERT WIRD......."... LDA ($01
),Y BEACHTE: Y=0!......". BNE $..
SPRUNG ZU 'INC $01'.G...I.7:.5000:.
FL.1200...@..".FALLS JA, GEHTS WEITER MI
T DEM NACHFOL-...J..".GENDEN SPEICHER:.3
.T..". INY JETZT: Y=1.L.^.
.". LDA ($01),Y.{.H..". BNE $.
. SPRUNG ZU 'LDY #$00'...R..".FALLS
AUCH DIESER NULL IST, WIRD AUCH.T.W..
".NOCH DER DRITTE SPEICHER GEPRUEFT:...|
..". INY JETZT: Y=2......"
. LDA ($01),Y.A....". BNE $..
SPRUNG ZU 'LDY #$00'.P....".UND FAL
LS AUCH DER NULL IST,ERFOLGT DER......".
RTS RUECKSPRUNG ZU BASIC.
....I.8:.5000:.FL.1400......".NUN NOCH M
AL ALLES ZUSAMMEN:......." LDA #$FF
STARTADR = 03FF......" STA $0
1......" LDA #$03.B...." STA $
02.I.!.." ....LDY #$00 Y, START =
0.S.".." ....&.." ....INC $01 AD
R = ADR + 1...+.." ..._BNE $.. =
0 ?.O.0.." ... INC $02...5.." ...._BMI
$.. ENDE ?...6.." .......:.." ....
.LDA ($01),Y Y = 0.<.?.." ...._BNE $..
= 0 ?.F.@.." ...F.D.." .. INY
Y = 1.~.I.." .. LDA ($01),Y..
.N.." ...._BNE $.. = 0 ?...S.." ..
INY Y = 2.V.X.." .. LDA (
$01),Y...].." ...._BNE $.. = 0 ?..
.L.." .....RTS ENDE.,.V.I.9:.5
000:.FL.1600.[.P..".NUN EIN KLEINER PROB
ELAUF! WIR RUFEN...U..".DIE ROUTINE M
IT SYS 826 AUF UND DRUCKEN...Z..".DANN D
IE IN $01/02 STEHENDE ADRESSE DE-......"
.ZIMAL AUS: ADR = PEEK(1) + 256*PEEK(2).
......".DAMIT SIE EIN GEFUEHL BEKOMMEN,
WIE FIX.F....".DAS GEHT, LASSEN WIR DE
N CBM WAEHREND.U....".DEM SUCHEN EINEN W
EISSEN BALKEN AUF DEN......".BILDSCHIRM
SETZEN......."..SIND SIE BEREIT (J/N) ?.
..G.*..X$:.X$.."J".2090...4..C.0.10:.W.0
.400..(C):.W:.". ...";10.C:.C.3.>.."..
.":.826:.".ADR =";B(1).256.B(2
);" ".Q.H..".SCHNELL, NICHT WAHR ?
!.I.R.I.10:.5000:.FL.1800......".EINE E
RSTE NUTZANWENDUNG FUER DIESES.G....".
PROGRAMM IST DIE BERECHNUNG DER LAENGE.
.....".VON BASIC-PROGRAMMEN.EIN BASIC-PR
OGRAMM.%....".BEGINNT STETS BEI $0400=10
24 UND ENDET.T.J..".MIT EBEN DEM SPE
ICHER, WO DIE DREI.L.T..".NULLEN BEGIN
NEN......."..WIR WUERDEN ALSO SCHREIBEN:
.P....". 1. 'SYS 826'":.". 2. 'PRINT P
EEK(1)+256*PEEK(2)-1024'......".UND ERHI
ELTEN ALS ERGEBNIS DIE LAENGE.$....".D
ES BASIC-PROGRAMMES IN BYTE..<...I.11:.5
000:.FL.2000.S.`..".AUFGABEN :":.U$...J.
.".1. BERECHNEN SIE AUF DIESE WEISE D
IE...T..". LAENGE DIESES PROGRAMMS..T.
~..".2. FRE(0) BERUECKSICHTIGT AUCH DEN
FUER......". VARIABLEN BENOETIGTEN SPE
ICHERPLATZ..2....". MIT DIESEM MASC
HINENPROGRAMM UND.A....". FRE(0) KOEN
NEN SIE DEN FUER VARIABLE......". BENU
TZTEN SPEICHERPLATZ BESTIMMEN.......".3.
VERSUCHEN SIE MIT HILFE DER INTERNEN...
...". UHR HERAUSZUFINDEN, WIE SCHNELL
DAS......". PROGRAMM IST [KBYTE PRO S
EKUNDE]..0.N.I.12:.5000:.FL.2200._.(..".
4. WARUM WIRD ALS STARTADRESSE $03FF.
..2..". UND NICHT $0400 GEWAEHLT ?...<
..".5. WANN WIRD DER SPEICHER $02 UM 1
ER-.E.F..". HOEHT ?...P..".6. BEI WELC
HER ADRESSE GENAU ERFOLGT.#.Z..". S
PAETESTENS DER ABBRUCH DES SUCHENS?.R.D.
.".7. WARUM LAESST SICH ALS ZAEHLER NIC
HT..N..". EINFACH DAS XR ODER YR VERW
ENDEN ?...X..".8. DIE INNERSTE SCHLEIF
E BEGINNT BEI......". 'INC $01', DIE
BEIDEN AEUSSEREN BEI......". 'LDY #$0
0'. WARUM DAS ?.;...."....- SEITE 13 -
<+> ...........ENDE. <-> VON VORNE".K...
.5020:.FL.0.V....".":..H.... UMBLAETTERN
......"......................... - SEIT
E";I;"- <+> WEITER <-> ZURUECK";.D....
I.0.11:.X$:..X....X$:.X$."".5030......X$
."+".FL.0:.......X$."-".FL.1:....D..5030
...2B
> CLICK IMAGE PREVIEW FOR FULL MODAL