1 REM-------------------- 2 REM- ASSEMBLER-KURS - 3 REM- TEIL 2 - 4 REM- - 5 REM- VON - 6 REM- - 7 REM- RALF TRABHARDT - 8 REM-------------------- 9 IFA>0THEN150 10 POKE53280,0:POKE53281,0:D=53272 20 PRINT"[147]":C=0:PRINTCHR$(142) 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 2" 110 PRINT"PROGRAMMIERT VON" 120 PRINT"RALF TRABHARDT" 130 GETA$:IFA$=" "THEN149 140 C=C+1:IFC=9THENC=0 145 FORI=1TO40:NEXTI 146 GOTO30 149 A=A+1:IFA=1THENLOAD"MC-ROUTINEN 2",8,1 150 SYS32841:POKED,(PEEK(D)AND240)OR14 151 PRINTCHR$(14):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 PRINTCHR$(14):PRINT"[147][155]":POKE53280,0:POKE53281,0 170 ONSEGOTO200,250,350,470,650,1100,750,830,900 180 SE=1:GOTO165 190 : 200 SYS32768 210 SE=SE+1:GOTO165 250 PRINT"[203]EINE [208]ANIK, HIER SPUKT ES NICHT !" 260 PRINT"[196]AS WAR NUR [211][208][213][203][201][155], DAS [193]SSEMBLER-" 270 PRINT"[211]PRITE ! (UNSER NEUES [203]URS-[205]ASKOTTCHEN)" 280 PRINT"[215]IE IHM ANZUMERKEN IST, HAT ER DEN" 290 PRINT"ERSTEN [212]EIL DIESES [203]URSES GUT VERKRAFTET"; 300 PRINT"UND FREUT SICH SCHON AUF DEN N[166]CHSTEN." 310 PRINT"[200]EUTE WIRD NICHT GEKLECKERT, SONDERN" 320 PRINT"GEKLOTZT. [197]S WARTEN GLEICH 15 NEUE " 330 PRINT"[194]EFEHLE AUF IHREN [197]INSATZ." 340 GOTO160 350 PRINT"[218]UERST EIN [194]EISPIEL:" 360 PRINT". [195]000 [193]0 05 [204][196][217] #$05" 370 PRINT". [195]002 8[195] 20 [196]0 [211][212][217] $[196]020 380 [153]". LEN005 8LEN 21 STR$0 (null)(null)(null) $STR$021 390 PRINT". [195]008 60 [210][212][211] " 400 PRINT"[203]ENNEN [211]IE DIE [215]IRKUNG DIESES " 410 PRINT"[208]ROGRAMMES ?" 420 PRINT"[210]ICHTIG ! [194]ILDSCHIRM UND [210]AHMEN WERDEN" 430 PRINT"GR[168]N." 440 PRINT"[197]S ENTSPRICHT ALSO DEM [194]EISPIELPRO-" 450 PRINT"GRAMM AUS DEM 1.[212]EIL DES [203]URSES." 460 GOTO160 470 PRINT"[206]UN EIN KLEINER [212]EST:" 480 PRINT"[194]ETRACHTEN [211]IE DAS FOLGENDE [208]ROGRAMM." 490 PRINT". [195]000 [193]2 0[193] [204][196][216] #$0[193] 500 [153]". LEN002 VAL8 RIGHT$(null)(null) 510 PRINT". [195]003 8[193] [212][216][193] 530 [153]". LEN004 LENATN STR$VAL(null) 540 PRINT". [195]005 [193]8 [212][193][217] 550 [153]". LEN006 88 STR$VAL(null) 560 PRINT". [195]007 88 [196][197][217] 570 [153]". LEN008 88 STR$VAL(null) 580 PRINT". [195]009 98 [212][217][193] 590 [153]". LEN00ATN 8STR$ 00 20 (null)(null)ATN $2000 600 PRINT". [195]00[196] 60 [210][212][211] 610 [153]"(null)ELCHER (null)ERT IST IM:" 611 [153]"1. ATNKKUMULATOR" 615 [153]"2. (null)-(null)EGISTER" 620 [153]"3. (null)-(null)EGISTER" 630 [153]"4. (null)PEICHERPLATZ $2000" 640 [137]160 650 [153]"RIGHT$N DEM ATNKKUMULATOR, DEM (null)-(null)EGISTER UND " 660 [153]"DER (null)PEICHERSTELLE $2000 STEHT DIE" 670 [153]"(null)AHL $08." 680 [153]"STR$AS (null)-(null)EGISTER ENTHSPC(LT DEN (null)ERT $0ATN." 690 [153]"STR$IESES (null)ROGRAMM WAR IN SEINER ASCORM " 700 [153]"NATNOTRLICH SINNLOS, ABER WENN (null)IE DAS" 710 [153]"RICHTIGE VALRGEBNIS HABEN, K(null)NNEN (null)IE " 720 [153]"GETROST DAVON AUSGEHEN, DA\ (null)IE DIESE" 730 [153]"NEUEN PEEKEFEHLE BEHERRSCHEN !" 740 [137]160 750 [153]"PEEKISHER LERNTEN (null)IE SCHON ZWEI" 760 [153]"ATNDRESSIERUNGSARTEN DES (null)STR$ATN-PEEKEFEHLS" 770 [153]"KENNEN :" 780 [153]"(null)STR$ATN #$00 UNMITTELBARE ATNDRESSIERUNG" 790 [153]"(null)STR$ATN $2000 ABSOLUTE ATNDRESSIERUNG" 800 [153]"STR$AS (null)- UND DAS (null)-(null)EGISTER BIETEN JEDOCH" 810 [153]"WEITERE (null)(null)GLICHKEITEN..." 820 [137]160 830 [153][163]46)"(null)STR$ATN $2000,(null) ABSOLUT (null)-INDIZIERT" 840 [153]"ODER (null)STR$ATN $2000,(null) ABSOLUT (null)-INDIZIERT" 850 [153]"STR$IESE ATNDRESSIERUNGART BEDEUTET, DA\" 860 [153]"NUN NICHT MEHR DER RIGHT$NHALT DER (null)PEICHER-" 870 [153]"STELLE $2000 IN DEN ATNKKU GELADEN WIRD," 880 [153]"SONDERN DER RIGHT$NHALT VON $2000+(null)-(null)EGISTER" 890 [153]"( B.Z.W $2000+(null) ). 891 PRINT"[193]UCH DAZU EIN [194]EISPIEL..." 895 GOTO160 900 PRINTTAB(9)"[204][196][216] #$03" 920 PRINTTAB(9)"[204][196][193] $2000,[216]" 930 PRINTTAB(9)"[211][212][193] $3000" 940 PRINT"[201]N [211]PEICHERSTELLE $3000 BEFINDET SICH " 950 PRINT"DANN DER [201]NHALT DER [193]DRESSE $2003." 960 PRINT"[196]IESES [208]ROGRAMMBEISPIEL L[166]\T SICH" 970 PRINT"IN [194]ASIC MIT [216]=3:[208][207][203][197]12288,[208][197][197][203](8192+[216])" 980 PRINT"AUSDR[168]CKEN." 990 PRINTTAB(48)"$2000 = 8192 ([196]EZIMAL)" 995 PRINTTAB(8)"$3000 = 12288 ([196]EZIMAL)" 1000 PRINT"[193]UCH DER [211][212][193]-[194]EFEHL KENNT DIESE NEUEN" 1010 PRINT"[193]DRESSIERUNGARTEN ( Z.[194].: [211][212][193] $2000,[216] " 1020 PRINT"ODER [211][212][193] $2000,[217] ). 1030 [153]"VALIN ATNNWENDUNGSGEBIET DER ABSOLUT (null)- ODER"; 1040 [153]"(null)- INDIZIERTEN ATNDRESSIERUNG FINDEN (null)IE" 1050 [153]"IN DER N(null)CHSTEN ASCOLGE, WENN WIR" 1060 [153]"(null)CHLEIFEN PROGRAMMIEREN." 1070 [153][163]50)"(null)SCHNOT\ BIS DANN..."; 1080 [137]160 1100 [153]"(null)SPC(HREND DER STR$VAL(null)-PEEKEFEHL ( (null)IE EBEN GE-" 1110 [153]"ZEIGT ) NUR EIN PEEKYTE BRAUCHT, BE-" 1120 [153]"N(null)TIGT DER STR$VALLEN-PEEKEFEHL MEHR ALS EIN " 1130 [153]"PEEKYTE, Z.B.:" 1135 [153]". LEN000 LENVAL 00 20 STR$VALLEN $2000" 1136 [153]". LEN002 60 (null)(null)(null)" 1140 [153]"(null)IE (null)IE SEHEN WIRD HIER NOCH (null)LATZ " 1150 [153]"FNOTR DIE (null)PEICHERSTELLE BEN(null)TIGT, AUF" 1160 [153]"DIE SICH DER PEEKEFEHL BEZIEHT." 1170 [137]160 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