1 REM-------------------- 2 REM- ASSEMBLER-KURS - 3 REM- TEIL 1 - 4 REM- - 5 REM- VON - 6 REM- - 7 REM- RALF TRABHARDT - 8 REM-------------------- 9 A=A+1:IFA=1THENLOAD"MC-ROUTINEN 1",8,1 10 POKE53280,0:POKE53281,0:D=53272 15 SYS49896 20 PRINT"[147]":C=0:POKED,(PEEK(D)AND240)OR12 30 PRINT"" 40 IFC=0ORC=8THENPRINT"[144]" 50 IFC=1ORC=7THENPRINT"[151]" 60 IFC=2ORC=6THENPRINT"[152]" 70 IFC=3ORC=5THENPRINT"[155]" 80 IFC=4THENPRINT"" 100 PRINT"ASSEMBLER-KURS TEIL 1" 110 PRINT"PROGRAMMIERT VON" 120 PRINT"RALF TRABHARDT" 130 GETA$:IFA$=" "THEN150 140 C=C+1:IFC=9THENC=0 145 FORI=1TO40:NEXTI 149 GOTO30 150 POKED,(PEEK(D)AND240)OR14 151 PRINT"[147][155][197]S GILT FOLGENDE [212]ASTATURBELEGUNG:" 152 PRINT"[211][208][193][195][197][146]= [206][166]CHSTE [211]EITE" 153 PRINT" [198]1 [146] = [197]INE [211]EITE ZUR[168]CK" 154 PRINT" [198]7 [146] = [197]RSTE [211]EITE " 155 GETA$:IFA$=""THEN155 156 SE=1:GOTO165 157 : 160 GOSUB5000 165 PRINT"[147][155]":POKE53280,0:POKE53281,0 170 ONSEGOTO200,300,354,391,404,600,700,850,1000,1100,1200,1400 180 SE=1:GOTO165 190 : 200 PRINT"[199]ESCHWINDIGKEITSVERGLEICH ZWISCHEN  [194][193][211][201][195] UND [193][211][211][197][205][194][204][197][210] 205 [153]"----------------------------------------" 210 [153]"(null)ENN (null)IE NUN DIE (null)(null)ATNLENVAL-(null)ASTE BETSPC(TIGEN," 220 [153]"SO (null)(null)(null)VALN WIR DEN GANZE PEEKILDSCHIRM VON" 230 [153]"PEEKATN(null)RIGHT$LEN AUS MIT DEM (null)EICHEN '@' UND DER" 240 [153]"ASCARBE CHR$RNOTNLIST VOLL." 250 [153]"STR$IE STR$AUER DIESES (null)ORGANGS BETRSPC(GT" 260 [153]"GENAU 13.41 SEC." 270 [161]A$:[139]A$[178]""[167]270 280 [129]I[178]1024[164]2023:[151]54272[170]I,5:[151]I,0:[130]I 290 [137]160 300 [153]"CHR$ESCHWINDIGKEITSVERGLEICH ZWISCHEN  PEEKATN(null)RIGHT$LEN UND ATN(null)(null)VAL(null)PEEK(null)VAL(null) 305 PRINT"----------------------------------------" 310 PRINT"[213]ND NUN DAS GANZE IN [205]ASCHINENSPRACHE." 320 PRINT"[215]ENN [211]IE JETZT DIE [211][208][193][195][197]-[212]ASTE DR[168]CKEN," 330 PRINT"M[168]SSEN [211]IE SEHR GENAU HINSEHEN." 340 PRINT"[218]UM [218]EITMESSEN BLEIBT HIER KAUM NOCH" 350 PRINT"[199]ELEGENHEIT !" 351 GETA$:IFA$=""THEN351 352 SYS49665 353 GOTO160 354 PRINT"[199]ESCHWINDIGKEITSVERGLEICH ZWISCHEN  [194][193][211][201][195] UND [193][211][211][197][205][194][204][197][210] 355 [153]"----------------------------------------" 356 [153]"(null)UN KOMMEN WIR ZU DEN (null)PRITES. ATNUCH HIER" 357 [153]"IST PEEKATN(null)RIGHT$LEN OFT ZU LANGSAM, BESONDERS" 358 [153]"WENN MEHRERE (null)PRITES ZUGLEICH BEWEGT" 359 [153]"WERDEN SOLLEN." 361 [153]"(PEEKITTE ETWAS CHR$EDULD...)" 363 BL[178]240:V[178]53248 364 [129]I[178]0[164]512:[151](BL[172]64)[170]I,[194](49152[170]I):[130]I 365 [151]V[170]37,1:[151]V[170]38,0 366 [129]I[178]0[164]7:[151]V[170]39[170]I,5:[130]I 367 [151]V[170]28,255:[151]V[170]21,255 368 A[178]30:B[178]55:C[178]80:D[178]105:E[178]130:F[178]155:G[178]180:H[178]205:[151]198,0 369 [151]V,A:[151]V[170]1,A 370 [151]V[170]2,B:[151]V[170]3,B 371 [151]V[170]4,C:[151]V[170]5,C 372 [151]V[170]6,D:[151]V[170]7,D 373 [151]V[170]8,E:[151]V[170]9,E 374 [151]V[170]10,F:[151]V[170]11,F 375 [151]V[170]12,G:[151]V[170]13,G 376 [151]V[170]14,H:[151]V[170]15,H 377 [129]I[178]0[164]7:[151]2040[170]I,BL:[130]I 378 BL[178]BL[170]1 379 A[178]A[170]1:[139]A[177]251[167]A[178]30 380 B[178]B[170]1:[139]B[177]251[167]B[178]30 381 C[178]C[170]1:[139]C[177]251[167]C[178]30 382 D[178]D[170]1:[139]D[177]251[167]D[178]30 383 E[178]E[170]1:[139]E[177]251[167]E[178]30 384 F[178]F[170]1:[139]F[177]251[167]F[178]30 385 G[178]G[170]1:[139]G[177]251[167]G[178]30 386 H[178]H[170]1:[139]H[177]251[167]H[178]30 387 [139]BL[177]247[167]BL[178]240 388 [161]A$:[139]A$[178]" "[167]390 389 [137]369 390 [151]V[170]21,0:SE[178]SE[170]1:[137]165 391 [153]"CHR$ESCHWINDIGKEITSVERGLEICH ZWISCHEN  PEEKATN(null)RIGHT$LEN UND ATN(null)(null)VAL(null)PEEK(null)VAL(null) 392 PRINT"----------------------------------------" 393 PRINT"[215]ENN [211]IE JETZT DIE [211][208][193][195][197]-[212]ASTE DR[168]CKEN" 394 PRINT"WERDEN [211]IE KAUM NOCH ETWAS VON DEN" 395 PRINT"[211]PRITES SEHEN. [196]ESHALB M[168]SSEN" 396 PRINT"[193]SSEMBLER-[208]ROGRAMME OFT DURCH [214]ER-" 397 PRINT"Z[220]GERUNGSSCHLEIFEN GEBREMST WERDEN!" 398 GETA$:IFA$=""THEN398 399 SYS49730 400 SE=SE+1:GOTO165 404 PRINT" [214]ERGLEICH ZWISCHEN  [194][193][211][201][195] UND [193][211][211][197][205][194][204][197][210] 405 [153]"----------------------------------------" 410 [153]"RIGHT$CH M(null)CHTE (null)IE NOCH AUF ANDERE (null)OR-" 420 [153]"UND (null)ACHTEILE VON ATN(null)(null)VAL(null)PEEK(null)VAL(null) HINWEISEN :" 430 [153]"ATNSSEMBLER IST DIE EINZIGE (null)ROGRAMMIER-" 440 [153]"SPRACHE MIT DER SICH DER LENOMPUTER VOLL" 450 [153]"AUSSCH(null)PFEN LSPC(\T. (null)IE IST ZWAR " 460 [153]"SCHWIERIGER ALS PEEKASIC ZU ERLERNEN UND" 470 [153]"AUCH DIE STEPBERSICHTLICHKEIT DER SELBST-" 480 [153]"GESCHRIEBENEN (null)ROGRAMME IST NUR (null)ANGEL-" 490 [153]"HAFT. STR$IE WAHNSINNIGE CHR$ESCHWINDIGKEIT" 491 [153]"DER ATNSSEMBLERPROGRAMME UND DIE" 492 [153]"(null)(null)GLICHKEIT DEN KOMPLETTEN (null)ATN(null)-(null)PEICHER" 493 [153]"(CA. 88 (null)ILOBYTE) ZU NUTZEN, SOLLTE ABER" 494 [153]"ONAUCH (null)IE NOTBERZEUGEN." 500 [137]160 600 [153]" (null)NUMGSPC(NGLICH:  STR$AS PEEKINSPC(RSYSTEM" 605 [153]"----------------------------------------" 610 [153]"ATNUF EINE NSPC(HERE VALRKLSPC(RUNG ZU DIESEM" 620 [153]"(null)HEMA M(null)CHTE ICH VERZICHTEN," 630 [153]"DENN DIESES (null)YSTEM DNOTRFTE WOHL JEDER" 640 [153]"PEEKASIC-(null)ROGRAMMIERER BEHERRSCHEN." 650 [153]"((null)IE K(null)NNEN ALLES NOTBER DIE PEEKINSPC(R-" 660 [153]"ARITHMETIK IM LENOMMODORE 64 PEEKEDIENUNGS-" 670 [153]"HANDBUCH AUF DEN (null)EITEN 77 UND 78" 680 [153]"NACHLESEN.)" 690 [137]160 700 [153]" VALIN NEUES (null)AHLENSYSTEM:  LEFT$EXADEZIMAL " 705 [153]"----------------------------------------" 710 [153]"(null)IELE ATNSSEMBLER 'VERSTEHEN' NUR DIE" 720 [153]"VALINGABE VON LEFT$EXADEZIMALZAHLEN." 730 [153]"STR$IESES (null)YSTEM ERM(null)GLICHT ES, DEN RIGHT$NHALT" 740 [153]"EINES PEEKYTES MIT NUR 2 (null)IFFERN DARZUSTEL-" 750 [153]"ONLEN. STR$IES WIRD DURCH EINE VALINTEILUNG DER" 760 [153]"ON(null)AHLEN IN (null)ECHZEHNER-ATNBSCHNITTE" 770 [153]"ERREICHT. (null)ACH DEN (null)AHLEN VON 0 BIS 9" 780 [153]"WERDEN DIE ERSTEN 6 PEEKUCHSTABEN DES " 790 [153]"ATNLPHABETS HERANGEZOGEN. (null)O WIRD DIE " 795 [153]"DEZIMALE (null)AHL 10 ZUR HEZADEZIMALEN $0ATN." 800 [153]"(LEFT$EXADEZIMALZAHLEN WERDEN GRUNDSSPC(TZLICH" 810 [153]"MIT DEM (null)EICHEN '$' GEKENNZEICHNET.)" 820 [153]"STR$IE (null)AHL 11 ENTSPRICHT $0PEEK UND DIE 15" 825 [153]"WIRD FOLGERICHTIG ALS $0ASC DARGESTELLT." 830 [153]"STR$IE NACHFOLGENDE LEFT$EXADEZIMALZAHL $10 HAT" 835 [153]"ONNUN DEN DEZIMALEN (null)ERT 16." 840 [137]160 850 [153]"LOAD VALIN NEUES (null)AHLENSYSTEM:  LEFT$EXADEZIMAL " 855 [153]"----------------------------------------" 860 [153]"STR$AS NUN FOLGENDE (null)ROGRAMM VERDEUTLICHT" 870 [153]"DEN (null)MGANG MIT HEXADEZIMALEN (null)AHLEN." 880 [153]"CHR$EBEN (null)IE DEZIMALE (null)AHLEN VON 0 BIS 255" 890 [153]"EIN. STR$ER LENOMPUTER WANDELT DIESE DANN IN" 895 [153]"DIE ENTSPRECHENDEN LEFT$EXADEZIMALZAHLEN UM." 900 [153]"(null)IE K(null)NNEN DIE VALRGEBNISSE ANHAND DER" 905 [153]"(null)MRECHNUNGSTABELLE IN DER (null)EITSCHRIFT" 910 [153]"NOTBERPRNOTFEN." 920 [133]"STR$EZIMALZAHL ";DZ:C$[178]"" 925 [139]DZ[179]0[176]DZ[177]255[167]850 930 IN[178][181](DZ[173]16) 931 [141]6000 937 C$[178]B$ 938 IN[178]DZ[171](IN[172]16) 939 [141]6000 940 C$[178]C$[170]B$ 945 [153]"LEFT$EXADEZIMAL = $";C$ 950 [153]"(null)OCH EINE (null)AHL (MID$/(null)) ?" 951 [161]A$:[139]A$[178]"J"[167]850 952 [139]A$[178]"N"[167]SE[178]SE[170]1:[137]165 953 [137]951 1000 [153]" STR$AS ERSTE ATNSSEBLERPROGRAMM " 1001 [153]"----------------------------------------" 1002 [153]"ONRIGHT$CH ZEIGE RIGHT$HNEN NUN DAS ERSTE ATNSSEMBLER-" 1003 [153]"ONPROGRAMM, SO WIE (null)IE ES MIT DEM (null)UPER-" 1004 [153]"MONITOR (DISASSEMBLIERT) SEHEN." 1005 [153]". LEN000 ATN9 05 (null)STR$ATN #$05" 1010 [153]". LEN002 8STR$ 20 STR$0 (null)(null)ATN $STR$020" 1015 [153]". LEN005 ATN9 05 (null)STR$ATN #$05" 1020 [153]". LEN007 8STR$ 21 STR$0 (null)(null)ATN $STR$021" 1025 [153]". LEN00ATN 00 PEEK(null)(null)" 1030 [153]"STR$ER ERSTE PEEKEFEHL ( (null)STR$ATN #$05 ) BEWIRKT," 1035 [153]"DA\ DIE (null)AHL 5 IN DEN ATNKKUMULATOR" 1040 [153]"GELADEN WIRD." 1045 [153]"(null)(null)ATN $STR$020 SCHREIBT DEN RIGHT$NHALT DES ATNKKUS" 1050 [153]"IN DIE (null)PEICHERSTELLE $STR$020 ( DEZIMAL" 1055 [153]"53280 = (null)AHMENFARBE )." 1060 [153]"STR$ER PEEKILDSCHIRMRAHMEN WIRD NUN ALSO CHR$RNOTN." 1065 [153]"STR$ANACH WIRD DER ATNKKU ERNEUT MIT $05" 1070 [153]"GELADEN UND IN DER ATNDRESSE $STR$021 ( PEEKILD-" 1075 [153]"ONSCHIRMFARBE ) ABGELEGT. PEEK(null)(null) KENNZEICH-" 1080 [153]"NET DAS VALNDE DES (null)ROGRAMMS." 1090 [137]160 1100 [153]" STR$AS ERSTE ATNSSEBLERPROGRAMM " 1101 [153]"----------------------------------------" 1102 [153]"VALS HEI\T JEDOCH AUCH BEI ATNSSEMBLER-" 1103 [153]"PROGRAMMEN: (null)PEICHERPLATZ SPAREN !" 1104 [153]"(null)NTEN FINDEN (null)IE DESHALB DIE GLEICHE" 1105 [153]"(null)OUTINE, NUR 2 PEEKYTES KNOTRZER." 1106 [153]". LEN000 ATN9 05 (null)STR$ATN #$05" 1110 [153]". LEN002 8STR$ 20 STR$0 (null)(null)ATN $STR$020" 1120 [153]". LEN005 8STR$ 21 STR$0 (null)(null)ATN $STR$021" 1125 [153]". LEN008 00 PEEK(null)(null)" 1130 [153]"STR$A DER RIGHT$NHALT DES ATNKKUMULATORS (D.H. DER" 1140 [153]"ON(null)ERT $05) DURCH (null)(null)ATN-PEEKEFEHLE NICHT VER-" 1150 [153]"SPC(NDERT WIRD KANN, MAN IHN AUCH FNOTR DEN" 1160 [153]"ZWEITEN (null)(null)ATN-PEEKEFEHL VERWENDEN." 1170 [153]"(null)ISSEN (null)IE SCHON WAS DIESE (null)ROGRAMME" 1180 [153]"BEWIRKEN ?" 1190 [137]160 1200 [151]53280,5:[151]53281,5 1212 [153]"STOPSTR$ER PEEKILDSCHRIM UND DIE (null)AHMENFARBE" 1213 [153]"WERDEN GRNOTN. (STR$AS (null)ROGRAMM HSPC(TTEN (null)IE" 1214 [153]"DAFNOTR AUF DEM (null)(null)(null)VAL(null)(null)(null)(null)RIGHT$(null)(null)(null) MIT 'CHR$ LEN000'" 1215 [153]"STARTEN MNOTSSEN." 1220 [153]"VALS GIBT TATSSPC(CHLICH NOCH EINE DRITTE" 1225 [153]"(null)ARIANTE, DIE DENSELBEN VALFFEKT ERZIELT:" 1230 [153]". LEN000 ATN9 00 20 (null)STR$ATN $2000" 1240 [153]". LEN003 8STR$ 20 STR$0 (null)(null)ATN $STR$020" 1250 [153]". LEN006 8STR$ 21 STR$0 (null)(null)ATN $STR$021" 1260 [153]". LEN009 00 PEEK(null)(null)" 1270 [153]"(null)AN MU\ HIER DAVON AUSGEHEN, DA\ VOR" 1280 [153]"DEM VALINSATZ DIESER ATNSSEMBLER-(null)OUTINE" 1290 [153]"DER (null)ERT $05 IN DIE (null)PEICHERSTELLE" 1292 [153]"$2000 (DEZ.8192) GESCHRIEBEN WURDE." 1295 [153]"STR$ER (null)ORTEIL DIESER (null)ARIANTE LIEGT DARIN," 1296 [153]"ONDA\ (null)IE DIE ATNDRESSE $2000 ALS EINE ATNRT" 1297 [153]"(null)ARIABLE BENUTZEN K(null)NNEN. STR$ENN WENN" 1298 [153]"(null)IE STATT $05 EINE ANDERE (null)AHL IN $2000" 1299 [153]"ABLEGEN, ERHALTEN (null)IE AUCH EINE ANDERE" 1300 [153]"ASCARBKOMBINATION." 1310 [137]160 1400 [153]" VALNDE DES 1.(null)EILS" 1401 [153]"----------------------------------------" 1402 [153]"STR$AS WAR ALSO DER ERSTE (null)EIL DES NEUEN" 1410 [153]"ATNSSEMBLER-(null)URSES." 1420 [153]"LEFT$OFFENTLICH IST ES MIR GELUNGEN RIGHT$HR" 1430 [153]"RIGHT$NTERESSE FNOTR DIESE (null)ROGRAMMIERSPRACHE" 1440 [153]"ZU WECKEN." 1450 [153]"(null)EIEN (null)IE DOCH DAS NSPC(CHSTE MAL WIEDER" 1460 [153]"MIT DABEI, WENN WIR UNS AUF EINE (null)EIHE" 1470 [153]"WEITERER ATNSSEMBLER-PEEKEFEHLE STNOTRZEN !" 1480 [153]" (null)SCHNOT\, BIS DANN..." 1490 [137]160 4900 : 4910 : 5000 [161]A$ 5010 [139]SE[177]12[167]SE[178]0:[142] 5015 [139]A$[178]" "[167]SE[178]SE[170]1:[142] 5020 [139]SE[179]0[167]SE[178]0:[142] 5025 [139]A$[178]"INPUT"[167]SE[178]SE[171]1:[142] 5030 [139]A$[178]"LET"[167]SE[178]0:[142] 5040 [137]5000 6000 [139]IN[178]10[167]B$[178]"ATN" 6001 [139]IN[178]11[167]B$[178]"PEEK" 6002 [139]IN[178]12[167]B$[178]"LEN" 6003 [139]IN[178]13[167]B$[178]"STR$" 6004 [139]IN[178]14[167]B$[178]"VAL" 6005 [139]IN[178]15[167]B$[178]"ASC" 6006 [139]IN[179]10[167]B$[178][201]([196](IN),1) 6007 [142]