/ Go64! / Go64_1998-11_1998_CSW_Side_A.d64 / rAMcARD_SRC

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;*******|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 00 3b |********|******.;|
|00000030| 2a 20 35 2d 6d 69 6e 7d | 74 69 67 65 20 57 41 56 |* 5-min}|tige WAV|
|00000040| 73 20 61 75 66 20 65 69 | 6e 65 6d 20 43 36 34 20 |s auf ei|nem C64 |
|00000050| 61 62 73 70 69 65 6c 65 | 6e 20 3f 20 48 61 21 20 |abspiele|n ? Ha! |
|00000060| 48 61 21 20 48 61 21 20 | 2a 00 3b 2a 20 53 69 6c |Ha! Ha! |*.;* Sil|
|00000070| 65 6e 74 20 57 61 72 72 | 69 6f 72 20 70 72 65 73 |ent Warr|ior pres|
|00000080| 65 6e 74 73 20 52 45 55 | 2d 57 41 56 2d 50 6c 61 |ents REU|-WAV-Pla|
|00000090| 79 65 72 20 56 31 20 20 | 20 20 20 20 20 20 20 20 |yer V1  |        |
|000000a0| 20 20 20 20 2a 00 3b 2a | 2a 2a 2a 2a 2a 2a 2a 2a |    *.;*|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000d0| 2a 2a 2a 2a 00 3b 50 72 | 6f 6a 65 63 74 20 73 74 |****.;Pr|oject st|
|000000e0| 61 72 74 65 64 20 61 74 | 20 33 31 2f 30 31 2f 39 |arted at| 31/01/9|
|000000f0| 38 00 3b 52 61 6d 45 78 | 2d 50 41 52 54 00 2e 54 |8.;RamEx|-PART..T|
|00000100| 59 50 45 20 32 00 2e 44 | 4e 41 4d 45 20 53 43 50 |YPE 2..D|NAME SCP|
|00000110| 55 2d 52 61 6d 43 61 72 | 64 2e 64 72 76 00 3b 4e |U-RamCar|d.drv.;N|
|00000120| 61 6d 65 20 64 65 72 20 | 61 73 73 65 6d 62 6c 69 |ame der |assembli|
|00000130| 65 72 74 65 6e 20 44 61 | 74 65 69 00 2e 4e 41 4d |erten Da|tei..NAM|
|00000140| 45 20 52 61 6d 45 78 44 | 72 69 76 65 72 5f 56 31 |E RamExD|river_V1|
|00000150| 2e 30 00 00 2e 53 54 41 | 52 54 20 24 32 66 30 30 |.0...STA|RT $2f00|
|00000160| 20 20 20 20 20 20 3b 61 | 62 73 6f 6c 75 74 65 20 |      ;a|bsolute |
|00000170| 44 61 74 65 6e 61 64 72 | 65 73 73 65 00 3b 5f 5f |Datenadr|esse.;__|
|00000180| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 52 6f |________|______Ro|
|00000190| 75 74 2d 4c 69 73 74 5f | 5f 5f 5f 5f 5f 5f 5f 5f |ut-List_|________|
|000001a0| 5f 5f 5f 5f 5f 00 4a 4d | 50 20 50 55 54 42 59 54 |_____.JM|P PUTBYT|
|000001b0| 45 3b 20 24 32 66 30 30 | 20 53 63 68 72 65 69 62 |E; $2f00| Schreib|
|000001c0| 74 20 65 69 6e 20 42 79 | 74 65 20 69 6e 20 64 69 |t ein By|te in di|
|000001d0| 65 20 52 45 55 00 4a 4d | 50 20 47 45 54 42 59 54 |e REU.JM|P GETBYT|
|000001e0| 45 3b 20 24 32 66 30 33 | 20 4c 69 65 73 74 20 65 |E; $2f03| Liest e|
|000001f0| 69 6e 20 42 79 74 65 20 | 76 6f 6e 20 64 65 72 20 |in Byte |von der |
|00000200| 52 45 55 00 4a 4d 50 20 | 49 4e 49 54 50 55 54 3b |REU.JMP |INITPUT;|
|00000210| 20 24 32 66 30 36 20 62 | 65 72 65 69 74 65 74 20 | $2f06 b|ereitet |
|00000220| 64 61 73 20 53 63 68 72 | 65 69 62 65 6e 20 69 6e |das Schr|eiben in|
|00000230| 20 64 69 65 20 52 45 55 | 20 76 6f 72 00 4a 4d 50 | die REU| vor.JMP|
|00000240| 20 49 4e 49 54 47 45 54 | 3b 20 24 32 66 30 39 20 | INITGET|; $2f09 |
|00000250| 62 65 72 65 69 74 65 74 | 20 64 61 73 20 4c 65 73 |bereitet| das Les|
|00000260| 65 6e 20 76 6f 72 20 28 | 77 65 6c 63 68 65 20 42 |en vor (|welche B|
|00000270| 7b 6e 6b 65 20 65 74 63 | 2e 29 00 4a 4d 50 20 52 |{nke etc|.).JMP R|
|00000280| 45 41 44 42 4c 4f 43 4b | 3b 20 24 32 66 30 63 20 |EADBLOCK|; $2f0c |
|00000290| 6c 69 65 73 74 20 65 69 | 6e 65 6e 20 44 61 74 65 |liest ei|nen Date|
|000002a0| 6e 62 6c 6f 63 6b 20 28 | 54 3d 24 38 30 30 30 2c |nblock (|T=$8000,|
|000002b0| 53 3d 24 38 30 30 31 29 | 00 4a 4d 50 20 49 4e 49 |S=$8001)|.JMP INI|
|000002c0| 54 49 4e 50 55 54 20 20 | 3b 20 24 32 66 30 66 20 |TINPUT  |; $2f0f |
|000002d0| 62 65 72 65 69 74 65 74 | 20 64 69 65 20 50 61 72 |bereitet| die Par|
|000002e0| 61 6d 65 74 65 72 61 62 | 66 72 61 67 65 20 76 6f |ameterab|frage vo|
|000002f0| 72 00 4a 4d 50 20 43 48 | 4b 46 4f 52 49 4e 50 55 |r.JMP CH|KFORINPU|
|00000300| 54 3b 20 24 32 66 31 32 | 20 74 65 73 74 65 74 20 |T; $2f12| testet |
|00000310| 61 75 66 20 6c 65 67 61 | 6c 65 20 45 69 6e 67 61 |auf lega|le Einga|
|00000320| 62 65 6e 00 00 2e 42 6c | 6f 63 6b 20 31 31 00 00 |ben...Bl|ock 11..|
|00000330| 3b 5f 5f 5f 5f 5f 5f 56 | 41 52 73 20 26 20 43 4f |;______V|ARs & CO|
|00000340| 4e 53 54 73 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |NSTs____|________|
|00000350| 5f 5f 5f 5f 5f 5f 5f 5f | 00 66 69 72 73 74 62 61 |________|.firstba|
|00000360| 6e 6b 3b 20 65 72 73 74 | 65 20 62 65 6e 75 74 7a |nk; erst|e benutz|
|00000370| 62 61 72 65 20 52 45 55 | 2d 42 41 4e 4b 00 2e 42 |bare REU|-BANK..B|
|00000380| 59 54 45 20 34 00 6c 61 | 73 74 62 61 6e 6b 3b 20 |YTE 4.la|stbank; |
|00000390| 6c 65 74 7a 74 65 20 62 | 65 6e 75 74 7a 62 61 72 |letzte b|enutzbar|
|000003a0| 65 20 52 45 55 2d 42 41 | 4e 4b 00 2e 42 59 54 45 |e REU-BA|NK..BYTE|
|000003b0| 20 36 00 63 75 72 72 65 | 6e 74 62 61 6e 6b 3b 20 | 6.curre|ntbank; |
|000003c0| 61 6b 74 75 65 6c 6c 65 | 20 52 45 55 2d 42 41 4e |aktuelle| REU-BAN|
|000003d0| 4b 00 2e 42 59 54 45 20 | 34 00 62 61 6e 6b 61 64 |K..BYTE |4.bankad|
|000003e0| 72 3b 20 61 6b 74 75 65 | 6c 6c 65 20 50 6f 73 69 |r; aktue|lle Posi|
|000003f0| 74 69 6f 6e 20 69 6e 20 | 64 65 72 20 53 70 65 69 |tion in |der Spei|
|00000400| 63 68 65 72 62 61 6e 6b | 00 2e 57 4f 52 44 20 30 |cherbank|..WORD 0|
|00000410| 00 64 61 74 61 65 6e 64 | 5f 62 61 6e 6b 3b 20 6c |.dataend|_bank; l|
|00000420| 65 74 7a 74 65 20 42 41 | 4e 4b 20 69 6e 20 64 69 |etzte BA|NK in di|
|00000430| 65 20 44 61 74 65 6e 20 | 67 65 6c 61 64 65 6e 20 |e Daten |geladen |
|00000440| 77 75 72 64 65 00 2e 42 | 59 54 45 20 36 00 64 61 |wurde..B|YTE 6.da|
|00000450| 74 61 65 6e 64 5f 61 64 | 72 3b 6c 65 74 7a 74 65 |taend_ad|r;letzte|
|00000460| 73 20 44 61 74 65 6e 62 | 79 74 65 20 69 6e 20 6c |s Datenb|yte in l|
|00000470| 65 74 7a 74 65 72 20 42 | 41 4e 4b 00 2e 57 4f 52 |etzter B|ANK..WOR|
|00000480| 44 20 36 35 30 30 30 00 | 66 6c 69 70 66 6c 6f 70 |D 65000.|flipflop|
|00000490| 00 2e 42 59 54 45 20 30 | 3b 20 77 65 63 68 73 65 |..BYTE 0|; wechse|
|000004a0| 6c 74 20 7a 77 69 73 63 | 68 65 6e 20 30 20 26 31 |lt zwisc|hen 0 &1|
|000004b0| 20 66 7d 72 20 6c 6f 77 | 2f 68 69 67 68 2d 6e 69 | f}r low|/high-ni|
|000004c0| 62 62 6c 65 00 54 5a 5f | 67 65 74 3b 20 41 6e 7a |bble.TZ_|get; Anz|
|000004d0| 61 68 6c 20 54 61 6b 74 | 7a 79 6b 6c 65 6e 20 64 |ahl Takt|zyklen d|
|000004e0| 65 72 20 47 65 74 2d 52 | 6f 75 74 69 6e 65 00 2e |er Get-R|outine..|
|000004f0| 42 79 74 65 20 37 36 00 | 00 3b 6f 62 69 67 65 20 |Byte 76.|.;obige |
|00000500| 41 6e 67 61 62 65 20 77 | 69 72 64 20 7a 75 72 20 |Angabe w|ird zur |
|00000510| 42 65 72 65 63 68 6e 75 | 6e 67 20 64 65 72 20 6d |Berechnu|ng der m|
|00000520| 61 78 69 6d 61 6c 65 6e | 20 53 61 6d 70 6c 65 66 |aximalen| Samplef|
|00000530| 72 65 71 75 65 6e 7a 00 | 3b 62 65 6e 7c 74 69 67 |requenz.|;ben|tig|
|00000540| 74 00 00 2e 42 4c 4f 43 | 4b 20 36 00 00 3b 52 65 |t...BLOC|K 6..;Re|
|00000550| 71 75 65 73 74 65 72 74 | 65 78 74 65 20 62 65 69 |questert|exte bei|
|00000560| 20 50 72 6f 67 72 61 6d | 6d 73 74 61 72 74 00 3b | Program|mstart.;|
|00000570| 57 65 6e 6e 20 65 69 6e | 20 54 65 78 74 20 6e 75 |Wenn ein| Text nu|
|00000580| 72 20 61 75 73 20 30 2d | 42 79 74 65 73 20 62 65 |r aus 0-|Bytes be|
|00000590| 73 74 65 68 74 20 77 69 | 72 64 20 64 69 65 20 41 |steht wi|rd die A|
|000005a0| 62 66 72 61 67 65 20 7d | 62 65 72 73 70 72 75 6e |bfrage }|bersprun|
|000005b0| 67 65 6e 00 00 3b 54 65 | 78 74 20 31 20 28 24 32 |gen..;Te|xt 1 ($2|
|000005c0| 66 33 30 29 00 2e 42 59 | 54 45 20 22 46 69 72 73 |f30)..BY|TE "Firs|
|000005d0| 74 20 66 72 65 65 20 36 | 34 6b 20 62 61 6e 6b 3a |t free 6|4k bank:|
|000005e0| 22 2c 30 2c 30 2c 30 2c | 30 2c 30 2c 30 2c 30 2c |",0,0,0,|0,0,0,0,|
|000005f0| 30 2c 30 2c 30 2c 30 2c | 30 20 3b 41 44 52 20 32 |0,0,0,0,|0 ;ADR 2|
|00000600| 66 33 30 00 3b 54 65 78 | 74 20 32 20 28 24 32 66 |f30.;Tex|t 2 ($2f|
|00000610| 35 30 29 00 2e 42 59 54 | 45 20 22 4c 61 73 74 20 |50)..BYT|E "Last |
|00000620| 66 72 65 65 20 36 34 6b | 20 62 61 6e 6b 3a 22 2c |free 64k| bank:",|
|00000630| 30 2c 30 2c 30 2c 30 2c | 30 2c 30 2c 30 2c 30 2c |0,0,0,0,|0,0,0,0,|
|00000640| 30 2c 30 2c 30 2c 30 2c | 30 3b 41 44 52 20 32 66 |0,0,0,0,|0;ADR 2f|
|00000650| 35 30 00 3b 54 65 78 74 | 20 33 20 28 24 32 66 37 |50.;Text| 3 ($2f7|
|00000660| 30 29 00 2e 42 4c 4f 43 | 4b 20 33 32 2c 30 00 00 |0)..BLOC|K 32,0..|
|00000670| 66 69 72 73 74 62 61 6e | 6b 66 72 65 65 00 2e 42 |firstban|kfree..B|
|00000680| 79 74 65 20 30 00 6c 61 | 73 74 62 61 6e 6b 66 72 |yte 0.la|stbankfr|
|00000690| 65 65 00 2e 42 79 74 65 | 20 30 00 00 6e 6f 63 70 |ee..Byte| 0..nocp|
|000006a0| 75 5f 74 78 74 00 2e 42 | 59 54 45 20 22 4e 6f 20 |u_txt..B|YTE "No |
|000006b0| 53 43 50 55 21 20 54 72 | 79 20 6f 74 68 65 72 20 |SCPU! Tr|y other |
|000006c0| 64 72 69 76 65 72 21 22 | 2c 30 2c 30 2c 30 2c 30 |driver!"|,0,0,0,0|
|000006d0| 2c 30 2c 31 00 6e 6f 72 | 63 31 5f 74 78 74 00 2e |,0,1.nor|c1_txt..|
|000006e0| 42 59 54 45 20 22 4e 6f | 20 52 61 6d 43 61 72 64 |BYTE "No| RamCard|
|000006f0| 20 64 65 74 65 63 74 65 | 64 20 21 22 2c 30 2c 30 | detecte|d !",0,0|
|00000700| 2c 30 2c 30 2c 30 2c 30 | 2c 30 2c 30 2c 30 2c 30 |,0,0,0,0|,0,0,0,0|
|00000710| 2c 31 00 00 66 69 72 73 | 74 42 70 72 65 73 65 6e |,1..firs|tBpresen|
|00000720| 74 00 2e 42 79 74 65 20 | 30 00 6c 61 73 74 42 70 |t..Byte |0.lastBp|
|00000730| 72 65 73 65 6e 74 00 2e | 42 79 74 65 20 30 00 00 |resent..|Byte 0..|
|00000740| 64 61 74 61 62 79 74 65 | 3d 24 32 38 30 30 3b 20 |databyte|=$2800; |
|00000750| 61 6b 74 75 65 6c 6c 65 | 73 20 44 61 74 65 6e 62 |aktuelle|s Datenb|
|00000760| 79 74 65 00 64 61 74 61 | 65 6e 64 3d 24 32 38 30 |yte.data|end=$280|
|00000770| 33 3b 20 3d 31 20 77 65 | 6e 6e 20 6c 65 74 7a 74 |3; =1 we|nn letzt|
|00000780| 65 73 20 42 79 74 65 20 | 67 65 6c 61 64 65 6e 00 |es Byte |geladen.|
|00000790| 64 69 73 6b 65 72 72 6f | 72 3d 24 32 38 32 34 3b |diskerro|r=$2824;|
|000007a0| 3e 30 20 77 65 6e 6e 20 | 64 69 73 6b 65 72 72 6f |>0 wenn |diskerro|
|000007b0| 72 00 72 65 75 66 75 6c | 6c 3d 24 32 38 30 32 3b |r.reuful|l=$2802;|
|000007c0| 20 6c 65 74 7a 74 65 73 | 20 42 79 74 65 20 69 6e | letztes| Byte in|
|000007d0| 20 6c 65 74 7a 74 65 72 | 20 42 61 6e 6b 20 62 65 | letzter| Bank be|
|000007e0| 73 63 68 72 69 65 62 65 | 6e 2c 20 64 61 6e 6e 20 |schriebe|n, dann |
|000007f0| 31 00 53 74 61 73 68 52 | 41 4d 3d 24 63 32 63 38 |1.StashR|AM=$c2c8|
|00000800| 3b 20 43 6f 6d 70 2d 3e | 52 45 55 00 46 65 74 63 |; Comp->|REU.Fetc|
|00000810| 68 52 41 4d 3d 24 63 32 | 63 62 3b 20 52 45 55 2d |hRAM=$c2|cb; REU-|
|00000820| 3e 43 6f 6d 70 00 6e 75 | 6d 31 3d 24 32 38 31 37 |>Comp.nu|m1=$2817|
|00000830| 20 3b 49 6e 74 65 67 65 | 72 77 65 72 74 65 20 64 | ;Intege|rwerte d|
|00000840| 65 72 20 31 2e 20 62 69 | 73 20 33 2e 20 55 73 65 |er 1. bi|s 3. Use|
|00000850| 72 65 69 6e 67 61 62 65 | 00 6e 75 6d 32 3d 24 32 |reingabe|.num2=$2|
|00000860| 38 31 39 00 6e 75 6d 33 | 3d 24 32 38 31 62 00 69 |819.num3|=$281b.i|
|00000870| 6e 70 75 74 65 72 72 6f | 72 3d 24 32 38 31 64 3b |nputerro|r=$281d;|
|00000880| 20 3d 31 2c 20 77 65 6e | 6e 20 45 69 6e 67 61 62 | =1, wen|n Eingab|
|00000890| 65 6e 20 66 65 68 6c 65 | 72 68 61 66 74 00 72 61 |en fehle|rhaft.ra|
|000008a0| 6d 5f 6b 62 3d 24 32 38 | 31 65 20 3b 67 65 73 61 |m_kb=$28|1e ;gesa|
|000008b0| 6d 74 65 20 52 61 6d 45 | 78 2d 4b 61 70 61 7a 69 |mte RamE|x-Kapazi|
|000008c0| 74 7b 74 00 66 72 65 65 | 5f 6b 62 3d 24 32 38 32 |t{t.free|_kb=$282|
|000008d0| 30 20 3b 66 7d 72 20 44 | 69 67 69 73 20 6e 75 74 |0 ;f}r D|igis nut|
|000008e0| 7a 62 61 72 65 20 52 61 | 6d 2d 4b 61 70 61 7a 69 |zbare Ra|m-Kapazi|
|000008f0| 74 7b 74 00 00 3b 2a 2a | 2a 2a 2a 00 47 45 54 42 |t{t..;**|***.GETB|
|00000900| 59 54 45 20 3b 68 6f 6c | 74 20 65 69 6e 20 42 79 |YTE ;hol|t ein By|
|00000910| 74 65 20 61 75 73 20 64 | 65 72 20 52 61 6d 43 61 |te aus d|er RamCa|
|00000920| 72 64 00 3b 2a 2a 2a 2a | 2a 00 3b 44 61 20 64 65 |rd.;****|*.;Da de|
|00000930| 72 20 50 6c 61 79 65 72 | 20 75 72 73 70 72 7d 6e |r Player| urspr}n|
|00000940| 67 6c 69 63 68 20 6e 75 | 72 20 66 7d 72 20 64 69 |glich nu|r f}r di|
|00000950| 65 20 52 45 55 20 6b 6f | 6e 7a 69 70 69 65 72 74 |e REU ko|nzipiert|
|00000960| 20 77 61 72 20 6d 75 7e | 74 65 20 62 65 69 20 64 | war mu~|te bei d|
|00000970| 65 72 00 3b 52 61 6d 2d | 43 61 72 64 2d 56 65 72 |er.;Ram-|Card-Ver|
|00000980| 73 69 6f 6e 20 64 69 65 | 20 56 65 72 77 61 6c 74 |sion die| Verwalt|
|00000990| 75 6e 67 20 76 6f 6e 20 | 36 34 6b 2d 42 7b 6e 6b |ung von |64k-B{nk|
|000009a0| 65 6e 20 62 65 69 62 65 | 68 61 6c 74 65 6e 20 77 |en beibe|halten w|
|000009b0| 65 72 64 65 6e 00 3b 44 | 69 65 20 32 34 42 69 74 |erden.;D|ie 24Bit|
|000009c0| 20 44 61 74 65 6e 61 64 | 72 65 73 73 65 20 6d 69 | Datenad|resse mi|
|000009d0| 74 20 64 65 72 20 64 69 | 65 20 52 61 6d 43 61 72 |t der di|e RamCar|
|000009e0| 64 20 61 6e 67 65 73 70 | 72 6f 63 68 65 6e 20 77 |d angesp|rochen w|
|000009f0| 69 72 64 20 73 65 74 7a | 74 00 3b 73 69 63 68 20 |ird setz|t.;sich |
|00000a00| 61 75 73 20 64 65 72 20 | 42 61 6e 6b 6e 75 6d 6d |aus der |Banknumm|
|00000a10| 65 72 20 28 68 69 67 68 | 62 79 74 65 29 2c 20 44 |er (high|byte), D|
|00000a20| 61 74 65 6e 61 64 72 65 | 73 73 65 20 68 69 67 68 |atenadre|sse high|
|00000a30| 20 28 6d 69 64 62 79 74 | 65 29 00 3b 75 6e 64 20 | (midbyt|e).;und |
|00000a40| 6c 6f 77 62 79 74 65 20 | 64 65 72 20 44 61 74 65 |lowbyte |der Date|
|00000a50| 6e 61 64 72 65 73 73 65 | 20 28 6c 6f 77 62 79 74 |nadresse| (lowbyt|
|00000a60| 65 29 20 7a 75 73 61 6d | 6d 65 6e 00 00 4c 44 58 |e) zusam|men..LDX|
|00000a70| 20 62 61 6e 6b 61 64 72 | 20 3b 6c 6f 77 62 79 74 | bankadr| ;lowbyt|
|00000a80| 65 20 44 61 74 65 6e 61 | 64 72 65 73 73 65 00 4c |e Datena|dresse.L|
|00000a90| 44 59 20 62 61 6e 6b 61 | 64 72 2b 31 20 3b 68 69 |DY banka|dr+1 ;hi|
|00000aa0| 67 68 62 79 74 65 20 44 | 61 74 65 6e 61 64 72 65 |ghbyte D|atenadre|
|00000ab0| 73 73 65 00 4c 44 41 20 | 63 75 72 72 65 6e 74 62 |sse.LDA |currentb|
|00000ac0| 61 6e 6b 20 3b 42 61 6e | 6b 6e 75 6d 65 72 00 53 |ank ;Ban|knumer.S|
|00000ad0| 54 58 20 6c 6f 77 31 00 | 53 54 59 20 6d 69 64 31 |TX low1.|STY mid1|
|00000ae0| 00 53 54 41 20 68 69 67 | 68 31 00 00 2e 42 59 54 |.STA hig|h1...BYT|
|00000af0| 45 20 24 61 66 20 3b 53 | 43 50 55 20 4c 44 41 20 |E $af ;S|CPU LDA |
|00000b00| 6c 6f 6e 67 00 6c 6f 77 | 31 00 2e 42 79 74 65 20 |long.low|1..Byte |
|00000b10| 30 00 6d 69 64 31 00 2e | 42 79 74 65 20 30 00 68 |0.mid1..|Byte 0.h|
|00000b20| 69 67 68 31 00 2e 42 79 | 74 65 20 30 00 00 53 54 |igh1..By|te 0..ST|
|00000b30| 41 20 24 32 38 30 30 3b | 20 42 79 74 65 20 61 75 |A $2800;| Byte au|
|00000b40| 73 20 52 61 6d 43 61 72 | 64 2d 3e 20 24 32 38 30 |s RamCar|d-> $280|
|00000b50| 30 00 00 49 4e 43 20 62 | 61 6e 6b 61 64 72 20 3b |0..INC b|ankadr ;|
|00000b60| 41 64 72 65 73 73 65 2b | 31 20 28 61 75 66 20 6e |Adresse+|1 (auf n|
|00000b70| 7b 63 68 73 74 65 73 20 | 44 61 74 65 6e 62 79 74 |{chstes |Datenbyt|
|00000b80| 65 20 76 6f 72 72 7d 63 | 6b 65 6e 29 00 42 4e 45 |e vorr}c|ken).BNE|
|00000b90| 20 6e 6f 74 5f 68 69 67 | 68 31 00 49 4e 43 20 62 | not_hig|h1.INC b|
|00000ba0| 61 6e 6b 61 64 72 2b 31 | 00 6e 6f 74 5f 68 69 67 |ankadr+1|.not_hig|
|00000bb0| 68 31 00 00 4c 44 41 20 | 62 61 6e 6b 61 64 72 20 |h1..LDA |bankadr |
|00000bc0| 3b 54 65 73 74 65 2c 20 | 6c 65 74 7a 74 65 73 20 |;Teste, |letztes |
|00000bd0| 42 79 74 65 20 73 63 68 | 6f 6e 20 67 65 6c 65 73 |Byte sch|on geles|
|00000be0| 65 6e 20 77 75 72 64 65 | 00 43 4d 50 20 64 61 74 |en wurde|.CMP dat|
|00000bf0| 61 65 6e 64 5f 61 64 72 | 00 42 45 51 20 64 61 74 |aend_adr|.BEQ dat|
|00000c00| 61 65 6e 64 5f 63 68 6b | 20 3b 77 65 6e 6e 20 4c |aend_chk| ;wenn L|
|00000c10| 6f 77 62 79 74 65 20 67 | 6c 65 69 63 68 20 2d 3e |owbyte g|leich ->|
|00000c20| 20 48 69 67 68 62 79 74 | 65 73 20 74 65 73 74 65 | Highbyt|es teste|
|00000c30| 6e 00 00 45 78 31 00 4c | 44 41 20 62 61 6e 6b 61 |n..Ex1.L|DA banka|
|00000c40| 64 72 3b 54 65 73 74 65 | 20 61 75 66 20 42 65 67 |dr;Teste| auf Beg|
|00000c50| 69 6e 6e 20 65 69 6e 65 | 72 20 6e 65 75 65 6e 20 |inn eine|r neuen |
|00000c60| 42 61 6e 6b 00 42 45 51 | 20 64 6f 5f 68 69 67 68 |Bank.BEQ| do_high|
|00000c70| 20 3b 48 69 67 68 62 79 | 74 65 20 63 68 65 63 6b | ;Highby|te check|
|00000c80| 65 6e 00 52 54 53 00 3b | 2d 2d 2d 2d 2d 2d 2d 00 |en.RTS.;|-------.|
|00000c90| 64 6f 5f 68 69 67 68 00 | 3b 2d 2d 2d 2d 2d 2d 2d |do_high.|;-------|
|00000ca0| 00 4c 44 41 20 62 61 6e | 6b 61 64 72 2b 31 00 42 |.LDA ban|kadr+1.B|
|00000cb0| 4e 45 20 45 78 69 74 67 | 65 74 3b 20 77 65 6e 6e |NE Exitg|et; wenn|
|00000cc0| 20 6b 65 69 6e 20 42 61 | 6e 6b 65 6e 64 65 2d 3e | kein Ba|nkende->|
|00000cd0| 20 41 62 62 72 75 63 68 | 00 00 49 4e 43 20 63 75 | Abbruch|..INC cu|
|00000ce0| 72 72 65 6e 74 62 61 6e | 6b 20 3b 61 6e 73 6f 6e |rrentban|k ;anson|
|00000cf0| 73 74 65 6e 20 65 72 68 | 7c 68 65 20 42 61 6e 6b |sten erh||he Bank|
|00000d00| 6e 75 6d 6d 65 72 00 52 | 54 53 00 00 3b 2d 2d 2d |nummer.R|TS..;---|
|00000d10| 2d 2d 2d 2d 2d 2d 2d 2d | 00 64 61 74 61 65 6e 64 |--------|.dataend|
|00000d20| 5f 63 68 6b 3b 00 3b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |_chk;.;-|--------|
|00000d30| 2d 2d 00 4c 44 41 20 62 | 61 6e 6b 61 64 72 2b 31 |--.LDA b|ankadr+1|
|00000d40| 00 43 4d 50 20 64 61 74 | 61 65 6e 64 5f 61 64 72 |.CMP dat|aend_adr|
|00000d50| 2b 31 00 42 45 51 20 41 | 64 72 65 71 75 61 6c 3b |+1.BEQ A|drequal;|
|00000d60| 20 44 61 74 65 6e 61 64 | 72 65 73 73 65 20 66 7d | Datenad|resse f}|
|00000d70| 72 20 41 62 62 72 75 63 | 68 20 65 72 72 65 69 63 |r Abbruc|h erreic|
|00000d80| 68 74 2c 20 74 65 73 74 | 65 20 61 75 66 20 42 61 |ht, test|e auf Ba|
|00000d90| 6e 6b 00 42 4e 45 20 45 | 78 31 00 00 3b 2d 2d 2d |nk.BNE E|x1..;---|
|00000da0| 2d 2d 2d 00 45 78 69 74 | 67 65 74 00 3b 2d 2d 2d |---.Exit|get.;---|
|00000db0| 2d 2d 2d 00 52 54 53 00 | 00 3b 2d 2d 2d 2d 2d 2d |---.RTS.|.;------|
|00000dc0| 2d 00 41 64 72 65 71 75 | 61 6c 20 3b 64 69 65 73 |-.Adrequ|al ;dies|
|00000dd0| 65 20 52 6f 75 74 69 6e | 65 20 77 69 72 64 20 61 |e Routin|e wird a|
|00000de0| 75 66 67 65 72 75 66 65 | 6e 2c 20 77 65 6e 6e 20 |ufgerufe|n, wenn |
|00000df0| 64 69 65 20 61 6b 74 75 | 65 6c 6c 65 20 42 61 6e |die aktu|elle Ban|
|00000e00| 6b 61 64 72 65 73 73 65 | 00 20 20 20 20 20 20 20 |kadresse|.       |
|00000e10| 20 3b 6d 69 74 20 64 65 | 72 20 44 61 74 65 6e 2d | ;mit de|r Daten-|
|00000e20| 45 6e 64 65 61 64 72 65 | 73 73 65 20 7d 62 65 72 |Endeadre|sse }ber|
|00000e30| 65 69 6e 73 74 69 6d 6d | 74 00 3b 2d 2d 2d 2d 2d |einstimm|t.;-----|
|00000e40| 2d 2d 00 4c 44 41 20 63 | 75 72 72 65 6e 74 62 61 |--.LDA c|urrentba|
|00000e50| 6e 6b 20 3b 74 65 73 74 | 65 2c 20 6f 62 20 61 75 |nk ;test|e, ob au|
|00000e60| 63 68 20 64 69 65 20 61 | 6b 74 75 65 6c 6c 65 20 |ch die a|ktuelle |
|00000e70| 42 61 6e 6b 20 6d 69 74 | 20 64 65 72 20 44 61 74 |Bank mit| der Dat|
|00000e80| 65 6e 2d 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |en-.    |        |
|00000e90| 20 20 20 3b 65 6e 64 62 | 61 6e 6b 20 7d 62 65 72 |   ;endb|ank }ber|
|00000ea0| 65 69 6e 73 74 69 6d 6d | 74 00 43 4d 50 20 64 61 |einstimm|t.CMP da|
|00000eb0| 74 61 65 6e 64 5f 62 61 | 6e 6b 00 42 4e 45 20 45 |taend_ba|nk.BNE E|
|00000ec0| 78 31 00 4c 44 41 20 23 | 31 20 20 20 20 3b 62 65 |x1.LDA #|1    ;be|
|00000ed0| 69 20 5d 62 65 72 65 69 | 6e 73 74 69 6d 6d 75 6e |i ]berei|nstimmun|
|00000ee0| 67 00 53 54 41 20 64 61 | 74 61 65 6e 64 3b 20 44 |g.STA da|taend; D|
|00000ef0| 61 74 65 6e 65 6e 64 65 | 20 65 72 72 65 69 63 68 |atenende| erreich|
|00000f00| 74 00 42 4e 45 20 45 78 | 31 20 20 20 20 3b 6a 75 |t.BNE Ex|1    ;ju|
|00000f10| 6d 70 20 61 6c 77 61 79 | 73 00 00 3b 2a 2a 2a 2a |mp alway|s..;****|
|00000f20| 2a 2a 00 50 55 54 42 59 | 54 45 20 3b 73 63 68 72 |**.PUTBY|TE ;schr|
|00000f30| 65 69 62 65 20 65 69 6e | 20 42 79 74 65 20 69 6e |eibe ein| Byte in|
|00000f40| 20 64 69 65 20 52 61 6d | 43 61 72 64 00 3b 2a 2a | die Ram|Card.;**|
|00000f50| 2a 2a 2a 2a 00 00 4c 44 | 58 20 62 61 6e 6b 61 64 |****..LD|X bankad|
|00000f60| 72 20 3b 44 61 74 65 6e | 61 64 72 65 73 73 65 20 |r ;Daten|adresse |
|00000f70| 6c 6f 77 00 4c 44 59 20 | 62 61 6e 6b 61 64 72 2b |low.LDY |bankadr+|
|00000f80| 31 20 3b 44 61 74 65 6e | 61 64 72 65 73 73 65 20 |1 ;Daten|adresse |
|00000f90| 68 69 67 68 00 4c 44 41 | 20 63 75 72 72 65 6e 74 |high.LDA| current|
|00000fa0| 62 61 6e 6b 20 3b 42 61 | 6e 6b 6e 75 6d 6d 65 72 |bank ;Ba|nknummer|
|00000fb0| 00 53 54 58 20 6c 6f 77 | 32 00 53 54 59 20 6d 69 |.STX low|2.STY mi|
|00000fc0| 64 32 00 53 54 41 20 68 | 69 67 68 32 20 3b 32 34 |d2.STA h|igh2 ;24|
|00000fd0| 42 69 74 20 41 64 72 65 | 73 73 65 20 65 72 7a 65 |Bit Adre|sse erze|
|00000fe0| 75 67 65 6e 00 00 4c 44 | 41 20 24 32 38 30 30 20 |ugen..LD|A $2800 |
|00000ff0| 3b 44 61 74 65 6e 62 79 | 74 65 20 68 6f 6c 65 6e |;Datenby|te holen|
|00001000| 00 00 2e 42 79 74 65 20 | 24 38 66 20 3b 53 43 50 |...Byte |$8f ;SCP|
|00001010| 55 20 42 65 66 65 68 6c | 3a 20 53 54 41 20 6c 6f |U Befehl|: STA lo|
|00001020| 6e 67 00 6c 6f 77 32 00 | 2e 42 79 74 65 20 30 00 |ng.low2.|.Byte 0.|
|00001030| 6d 69 64 32 00 2e 42 79 | 74 65 20 30 00 68 69 67 |mid2..By|te 0.hig|
|00001040| 68 32 00 2e 42 79 74 65 | 20 30 20 3b 69 6e 20 53 |h2..Byte| 0 ;in S|
|00001050| 43 50 55 2d 52 61 6d 20 | 73 70 65 69 63 68 65 72 |CPU-Ram |speicher|
|00001060| 6e 00 00 49 4e 43 20 62 | 61 6e 6b 61 64 72 00 42 |n..INC b|ankadr.B|
|00001070| 45 51 20 49 6e 63 70 62 | 61 6e 6b 68 20 3b 44 61 |EQ Incpb|ankh ;Da|
|00001080| 74 65 6e 61 64 72 65 73 | 73 65 20 65 72 68 7c 68 |tenadres|se erh|h|
|00001090| 65 6e 00 00 53 6b 69 70 | 67 67 00 00 73 6b 69 70 |en..Skip|gg..skip|
|000010a0| 63 32 00 4c 44 41 20 62 | 61 6e 6b 61 64 72 00 42 |c2.LDA b|ankadr.B|
|000010b0| 4e 45 20 45 78 69 74 70 | 75 74 3b 20 42 61 6e 6b |NE Exitp|ut; Bank|
|000010c0| 2d 45 6e 64 65 20 65 72 | 72 65 69 63 68 74 00 4c |-Ende er|reicht.L|
|000010d0| 44 41 20 62 61 6e 6b 61 | 64 72 2b 31 00 42 4e 45 |DA banka|dr+1.BNE|
|000010e0| 20 45 78 69 74 70 75 74 | 00 00 4c 44 41 20 63 75 | Exitput|..LDA cu|
|000010f0| 72 72 65 6e 74 62 61 6e | 6b 20 3b 74 65 73 74 65 |rrentban|k ;teste|
|00001100| 2c 20 6f 62 20 61 6b 74 | 75 65 6c 6c 65 20 42 61 |, ob akt|uelle Ba|
|00001110| 6e 6b 20 3d 20 44 61 74 | 65 6e 2d 45 6e 64 62 61 |nk = Dat|en-Endba|
|00001120| 6e 6b 00 43 4d 50 20 6c | 61 73 74 62 61 6e 6b 00 |nk.CMP l|astbank.|
|00001130| 42 4e 45 20 49 6e 63 62 | 61 6e 6b 20 3b 77 65 6e |BNE Incb|ank ;wen|
|00001140| 6e 20 6c 65 74 7a 74 65 | 20 42 61 6e 6b 20 6e 6f |n letzte| Bank no|
|00001150| 63 68 20 6e 69 63 68 74 | 20 65 72 72 65 69 63 68 |ch nicht| erreich|
|00001160| 74 00 00 4c 44 41 20 23 | 31 20 3b 46 6c 61 67 20 |t..LDA #|1 ;Flag |
|00001170| 66 7d 72 20 52 61 6d 45 | 78 20 66 75 6c 6c 00 53 |f}r RamE|x full.S|
|00001180| 54 41 20 72 65 75 66 75 | 6c 6c 00 00 42 4e 45 20 |TA reufu|ll..BNE |
|00001190| 45 78 69 74 70 75 74 3b | 20 6a 6d 70 20 61 6c 77 |Exitput;| jmp alw|
|000011a0| 61 79 73 00 00 49 6e 63 | 62 61 6e 6b 00 49 4e 43 |ays..Inc|bank.INC|
|000011b0| 20 63 75 72 72 65 6e 74 | 62 61 6e 6b 20 3b 61 75 | current|bank ;au|
|000011c0| 66 20 6e 7b 63 68 73 74 | 65 20 52 41 4d 2d 42 61 |f n{chst|e RAM-Ba|
|000011d0| 6e 6b 20 76 6f 72 72 7d | 63 6b 65 6e 00 00 45 78 |nk vorr}|cken..Ex|
|000011e0| 69 74 70 75 74 00 52 54 | 53 00 00 49 6e 63 70 62 |itput.RT|S..Incpb|
|000011f0| 61 6e 6b 68 00 00 49 4e | 43 20 62 61 6e 6b 61 64 |ankh..IN|C bankad|
|00001200| 72 2b 31 00 4a 4d 50 20 | 53 6b 69 70 67 67 00 00 |r+1.JMP |Skipgg..|
|00001210| 3b 2a 2a 2a 2a 2a 00 49 | 4e 49 54 50 55 54 3b 20 |;*****.I|NITPUT; |
|00001220| 42 65 72 65 69 74 65 74 | 20 64 61 73 20 53 63 68 |Bereitet| das Sch|
|00001230| 72 65 69 62 65 6e 20 69 | 6e 20 64 69 65 20 52 61 |reiben i|n die Ra|
|00001240| 6d 43 61 72 64 20 76 6f | 72 00 3b 2a 2a 2a 2a 2a |mCard vo|r.;*****|
|00001250| 00 00 4c 44 41 20 66 69 | 72 73 74 62 61 6e 6b 00 |..LDA fi|rstbank.|
|00001260| 53 54 41 20 63 75 72 72 | 65 6e 74 62 61 6e 6b 20 |STA curr|entbank |
|00001270| 3b 61 6b 74 75 65 6c 6c | 65 20 44 61 74 65 6e 62 |;aktuell|e Datenb|
|00001280| 61 6e 6b 3d 20 65 72 73 | 74 65 20 66 72 65 69 65 |ank= ers|te freie|
|00001290| 20 44 61 74 65 6e 62 61 | 6e 6b 00 4c 44 41 20 23 | Datenba|nk.LDA #|
|000012a0| 30 00 53 54 41 20 72 65 | 75 66 75 6c 6c 00 4c 44 |0.STA re|ufull.LD|
|000012b0| 41 20 23 30 20 20 20 20 | 20 20 20 3b 44 61 74 65 |A #0    |   ;Date|
|000012c0| 6e 61 64 72 65 73 73 65 | 3d 30 20 28 42 61 6e 6b |nadresse|=0 (Bank|
|000012d0| 62 65 67 69 6e 6e 29 00 | 53 54 41 20 62 61 6e 6b |beginn).|STA bank|
|000012e0| 61 64 72 00 53 54 41 20 | 62 61 6e 6b 61 64 72 2b |adr.STA |bankadr+|
|000012f0| 31 00 00 52 54 53 00 00 | 3b 2a 2a 2a 2a 2a 00 49 |1..RTS..|;*****.I|
|00001300| 4e 49 54 47 45 54 20 3b | 62 65 72 65 69 74 65 74 |NITGET ;|bereitet|
|00001310| 20 64 61 73 20 4c 65 73 | 65 6e 20 76 6f 6e 20 64 | das Les|en von d|
|00001320| 65 72 20 52 61 6d 43 61 | 72 64 20 76 6f 72 00 3b |er RamCa|rd vor.;|
|00001330| 2a 2a 2a 2a 2a 00 00 4c | 44 41 20 23 30 00 53 54 |*****..L|DA #0.ST|
|00001340| 41 20 64 61 74 61 65 6e | 64 00 53 54 41 20 62 61 |A dataen|d.STA ba|
|00001350| 6e 6b 61 64 72 20 3b 44 | 61 74 65 6e 61 64 72 65 |nkadr ;D|atenadre|
|00001360| 73 73 65 20 30 30 00 53 | 54 41 20 62 61 6e 6b 61 |sse 00.S|TA banka|
|00001370| 64 72 2b 31 00 4c 44 41 | 20 66 69 72 73 74 62 61 |dr+1.LDA| firstba|
|00001380| 6e 6b 20 3b 61 6b 74 75 | 65 6c 6c 65 20 42 61 6e |nk ;aktu|elle Ban|
|00001390| 6b 3d 65 72 73 74 65 20 | 44 61 74 65 6e 62 61 6e |k=erste |Datenban|
|000013a0| 6b 00 53 54 41 20 63 75 | 72 72 65 6e 74 62 61 6e |k.STA cu|rrentban|
|000013b0| 6b 00 00 52 54 53 00 00 | 3b 2a 2a 2a 2a 2a 2a 2a |k..RTS..|;*******|
|000013c0| 00 52 45 41 44 42 4c 4f | 43 4b 20 3b 6c 69 65 73 |.READBLO|CK ;lies|
|000013d0| 74 20 65 69 6e 65 6e a0 | 44 69 73 6b 2d 42 6c 6f |t einen.|Disk-Blo|
|000013e0| 63 6b 2c 20 66 6f 6c 67 | 74 20 64 65 72 20 42 6c |ck, folg|t der Bl|
|000013f0| 6f 63 6b 76 65 72 6b 65 | 74 74 75 6e 67 00 3b 2a |ockverke|ttung.;*|
|00001400| 2a 2a 2a 2a 2a 2a 00 4c | 44 41 20 23 30 00 53 54 |******.L|DA #0.ST|
|00001410| 41 20 64 69 73 6b 65 72 | 72 6f 72 00 4c 44 58 20 |A disker|ror.LDX |
|00001420| 24 38 30 30 30 20 3b 54 | 72 61 63 6b 20 64 65 73 |$8000 ;T|rack des|
|00001430| 20 6c 65 74 7a 74 65 6e | 20 44 61 74 65 6e 62 6c | letzten| Datenbl|
|00001440| 6f 63 6b 73 00 4c 44 59 | 20 24 38 30 30 31 20 3b |ocks.LDY| $8001 ;|
|00001450| 53 65 63 74 6f 72 20 64 | 65 73 20 6c 65 74 7a 74 |Sector d|es letzt|
|00001460| 65 6e 20 44 61 74 65 6e | 62 6c 6f 63 6b 73 00 53 |en Daten|blocks.S|
|00001470| 54 58 20 24 34 00 53 54 | 59 20 24 35 00 4c 44 58 |TX $4.ST|Y $5.LDX|
|00001480| 20 23 3c 24 38 30 30 30 | 3b 50 75 66 66 65 72 00 | #<$8000|;Puffer.|
|00001490| 4c 44 59 20 23 3e 24 38 | 30 30 30 00 53 54 58 20 |LDY #>$8|000.STX |
|000014a0| 24 61 00 53 54 59 20 24 | 62 00 4a 53 52 20 24 63 |$a.STY $|b.JSR $c|
|000014b0| 31 65 34 20 3b 52 45 41 | 44 20 6c 69 65 73 74 20 |1e4 ;REA|D liest |
|000014c0| 64 65 6e 20 53 65 6b 74 | 6f 72 00 00 54 58 41 20 |den Sekt|or..TXA |
|000014d0| 3b 62 65 69 20 44 69 73 | 6b 65 72 72 6f 72 20 61 |;bei Dis|kerror a|
|000014e0| 62 62 72 65 63 68 65 6e | 00 42 4e 45 20 45 72 72 |bbrechen|.BNE Err|
|000014f0| 6f 72 00 53 54 58 20 24 | 32 38 30 33 20 3b 64 61 |or.STX $|2803 ;da|
|00001500| 74 61 65 6e 64 3d 30 00 | 4c 44 41 20 24 38 30 30 |taend=0.|LDA $800|
|00001510| 30 20 3b 62 65 69 20 44 | 61 74 65 69 65 6e 64 65 |0 ;bei D|ateiende|
|00001520| 20 61 62 62 72 65 63 68 | 65 6e 00 42 45 51 20 53 | abbrech|en.BEQ S|
|00001530| 74 6f 70 72 65 61 64 00 | 52 54 53 00 00 45 72 72 |topread.|RTS..Err|
|00001540| 6f 72 00 53 54 41 20 64 | 69 73 6b 65 72 72 6f 72 |or.STA d|iskerror|
|00001550| 00 52 54 53 00 00 53 74 | 6f 70 72 65 61 64 00 4c |.RTS..St|opread.L|
|00001560| 44 41 20 23 31 00 53 54 | 41 20 24 32 38 30 33 20 |DA #1.ST|A $2803 |
|00001570| 3b 64 61 74 61 65 6e 64 | 3d 31 00 52 54 53 00 00 |;dataend|=1.RTS..|
|00001580| 3b 2a 2a 2a 2a 2a 2a 00 | 49 4e 49 54 49 4e 50 55 |;******.|INITINPU|
|00001590| 54 20 3b 62 65 72 65 69 | 74 65 74 20 64 69 65 20 |T ;berei|tet die |
|000015a0| 55 73 65 72 65 69 6e 67 | 61 62 65 20 76 6f 72 2c |Usereing|abe vor,|
|000015b0| 20 73 74 65 6c 6c 74 20 | 47 72 7c 7e 65 20 64 65 | stellt |Gr|~e de|
|000015c0| 72 20 52 61 6d 43 61 72 | 64 20 66 65 73 74 00 3b |r RamCar|d fest.;|
|000015d0| 2a 2a 2a 2a 2a 2a 00 53 | 45 49 00 4c 44 59 20 24 |******.S|EI.LDY $|
|000015e0| 31 00 4c 44 41 20 23 35 | 35 00 53 54 41 20 24 31 |1.LDA #5|5.STA $1|
|000015f0| 20 3b 49 4f 20 62 65 72 | 65 69 63 68 20 65 69 6e | ;IO ber|eich ein|
|00001600| 62 6c 65 6e 64 65 6e 00 | 4c 44 41 20 24 64 32 37 |blenden.|LDA $d27|
|00001610| 64 20 3b 4e 75 6d 6d 65 | 72 20 64 65 72 20 31 2e |d ;Numme|r der 1.|
|00001620| 20 36 34 6b 2d 42 61 6e | 6b 00 53 54 41 20 6e 75 | 64k-Ban|k.STA nu|
|00001630| 6d 31 00 53 54 41 20 66 | 69 72 73 74 42 70 72 65 |m1.STA f|irstBpre|
|00001640| 73 65 6e 74 00 4c 44 41 | 20 24 64 32 37 66 20 3b |sent.LDA| $d27f ;|
|00001650| 4e 75 6d 6d 65 72 20 64 | 65 72 20 6c 65 74 7a 74 |Nummer d|er letzt|
|00001660| 65 6e 20 36 34 6b 2d 42 | 61 6e 6b 00 53 54 41 20 |en 64k-B|ank.STA |
|00001670| 6e 75 6d 32 00 53 54 41 | 20 6c 61 73 74 42 70 72 |num2.STA| lastBpr|
|00001680| 65 73 65 6e 74 00 4c 44 | 41 20 24 64 30 62 63 20 |esent.LD|A $d0bc |
|00001690| 3b 42 79 74 65 20 7a 75 | 72 20 5d 62 65 72 70 72 |;Byte zu|r ]berpr|
|000016a0| 7d 66 75 6e 67 20 6f 62 | 20 53 43 50 55 20 65 6e |}fung ob| SCPU en|
|000016b0| 61 62 6c 65 64 00 41 4e | 44 20 23 31 32 38 00 53 |abled.AN|D #128.S|
|000016c0| 54 59 20 24 31 20 3b 67 | 65 73 61 6d 74 65 73 20 |TY $1 ;g|esamtes |
|000016d0| 52 61 6d 20 77 69 65 64 | 65 72 20 65 69 6e 62 6c |Ram wied|er einbl|
|000016e0| 65 6e 64 65 6e 00 43 4c | 49 00 00 43 4d 50 20 23 |enden.CL|I..CMP #|
|000016f0| 31 32 38 00 42 45 51 20 | 73 74 6f 63 6b 5f 63 36 |128.BEQ |stock_c6|
|00001700| 34 20 3b 6f 72 69 67 69 | 6e 61 6c 20 43 36 34 20 |4 ;origi|nal C64 |
|00001710| 6f 68 6e 65 20 53 43 50 | 55 20 66 65 73 74 67 65 |ohne SCP|U festge|
|00001720| 73 74 65 6c 6c 74 00 00 | 4c 44 41 20 6e 75 6d 31 |stellt..|LDA num1|
|00001730| 00 42 45 51 20 6e 6f 5f | 72 61 6d 63 61 72 64 20 |.BEQ no_|ramcard |
|00001740| 3b 6b 65 69 6e 65 20 52 | 61 6d 43 61 72 64 20 66 |;keine R|amCard f|
|00001750| 65 73 74 67 65 73 74 65 | 6c 6c 74 00 52 54 53 00 |estgeste|llt.RTS.|
|00001760| 3b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 00 6e 6f 5f 72 61 |;*******|**.no_ra|
|00001770| 6d 63 61 72 64 00 3b 2a | 2a 2a 2a 2a 2a 2a 2a 2a |mcard.;*|********|
|00001780| 00 00 3b 45 69 6e 67 61 | 62 65 74 65 78 74 65 20 |..;Einga|betexte |
|00001790| 64 75 63 68 20 46 65 68 | 6c 65 72 74 65 78 74 20 |duch Feh|lertext |
|000017a0| 65 72 73 65 74 7a 65 6e | 00 00 4c 44 58 20 23 24 |ersetzen|..LDX #$|
|000017b0| 35 30 00 4c 44 59 20 23 | 24 32 66 00 53 54 58 20 |50.LDY #|$2f.STX |
|000017c0| 24 34 3b 41 64 72 65 73 | 73 65 20 54 65 78 74 31 |$4;Adres|se Text1|
|000017d0| 00 53 54 59 20 24 35 00 | 00 4c 44 59 20 23 30 00 |.STY $5.|.LDY #0.|
|000017e0| 54 59 41 00 00 74 6c 6f | 6f 70 32 00 00 53 54 41 |TYA..tlo|op2..STA|
|000017f0| 20 28 24 34 29 2c 79 00 | 49 4e 59 00 43 50 59 20 | ($4),y.|INY.CPY |
|00001800| 23 33 32 00 42 4e 45 20 | 74 6c 6f 6f 70 32 3b 46 |#32.BNE |tloop2;F|
|00001810| 65 68 6c 65 72 74 65 78 | 74 20 65 69 6e 62 6c 65 |ehlertex|t einble|
|00001820| 6e 64 65 6e 00 00 4c 44 | 58 20 23 3c 6e 6f 72 63 |nden..LD|X #<norc|
|00001830| 31 5f 74 78 74 20 3b 41 | 64 72 65 73 73 65 20 6e |1_txt ;A|dresse n|
|00001840| 65 75 65 72 20 54 65 78 | 74 31 00 4c 44 59 20 23 |euer Tex|t1.LDY #|
|00001850| 3e 6e 6f 72 63 31 5f 74 | 78 74 00 53 54 58 20 24 |>norc1_t|xt.STX $|
|00001860| 32 00 53 54 59 20 24 33 | 00 4c 44 58 20 23 24 33 |2.STY $3|.LDX #$3|
|00001870| 30 00 4c 44 59 20 23 24 | 32 66 00 53 54 58 20 24 |0.LDY #$|2f.STX $|
|00001880| 34 3b 41 64 72 65 73 73 | 65 20 54 65 78 74 31 00 |4;Adress|e Text1.|
|00001890| 53 54 59 20 24 35 00 00 | 4c 44 59 20 23 30 00 00 |STY $5..|LDY #0..|
|000018a0| 74 6c 6f 6f 70 33 00 4c | 44 41 20 28 24 32 29 2c |tloop3.L|DA ($2),|
|000018b0| 79 00 53 54 41 20 28 24 | 34 29 2c 79 00 49 4e 59 |y.STA ($|4),y.INY|
|000018c0| 00 43 50 59 20 23 33 32 | 00 42 4e 45 20 74 6c 6f |.CPY #32|.BNE tlo|
|000018d0| 6f 70 33 3b 46 65 68 6c | 65 72 74 65 78 74 20 65 |op3;Fehl|ertext e|
|000018e0| 69 6e 62 6c 65 6e 64 65 | 6e 00 00 52 54 53 00 3b |inblende|n..RTS.;|
|000018f0| 2a 2a 2a 2a 2a 2a 2a 2a | 00 73 74 6f 63 6b 5f 63 |********|.stock_c|
|00001900| 36 34 3b 20 6b 65 69 6e | 65 20 53 43 50 55 20 65 |64; kein|e SCPU e|
|00001910| 72 6b 61 6e 6e 74 00 3b | 2a 2a 2a 2a 2a 2a 2a 2a |rkannt.;|********|
|00001920| 00 00 3b 45 69 6e 67 61 | 62 65 74 65 78 74 20 64 |..;Einga|betext d|
|00001930| 75 72 63 68 20 46 65 68 | 6c 65 72 74 65 78 74 20 |urch Feh|lertext |
|00001940| 65 72 73 65 74 7a 65 6e | 00 00 4c 44 41 20 23 30 |ersetzen|..LDA #0|
|00001950| 00 53 54 41 20 24 32 66 | 35 30 20 3b 6b 65 69 6e |.STA $2f|50 ;kein|
|00001960| 65 6e 20 54 65 78 74 32 | 20 61 6e 7a 65 69 67 65 |en Text2| anzeige|
|00001970| 6e 00 00 4c 44 58 20 23 | 3c 6e 6f 63 70 75 5f 74 |n..LDX #|<nocpu_t|
|00001980| 78 74 20 3b 41 64 72 65 | 73 73 65 20 6e 65 75 65 |xt ;Adre|sse neue|
|00001990| 72 20 54 65 78 74 31 00 | 4c 44 59 20 23 3e 6e 6f |r Text1.|LDY #>no|
|000019a0| 63 70 75 5f 74 78 74 00 | 53 54 58 20 24 32 00 53 |cpu_txt.|STX $2.S|
|000019b0| 54 59 20 24 33 00 4c 44 | 58 20 23 24 33 30 00 4c |TY $3.LD|X #$30.L|
|000019c0| 44 59 20 23 24 32 66 00 | 53 54 58 20 24 34 3b 41 |DY #$2f.|STX $4;A|
|000019d0| 64 72 65 73 73 65 20 54 | 65 78 74 31 00 53 54 59 |dresse T|ext1.STY|
|000019e0| 20 24 35 00 00 4c 44 59 | 20 23 30 00 00 74 6c 6f | $5..LDY| #0..tlo|
|000019f0| 6f 70 00 4c 44 41 20 28 | 24 32 29 2c 79 00 53 54 |op.LDA (|$2),y.ST|
|00001a00| 41 20 28 24 34 29 2c 79 | 00 49 4e 59 00 43 50 59 |A ($4),y|.INY.CPY|
|00001a10| 20 23 33 32 00 42 4e 45 | 20 74 6c 6f 6f 70 20 3b | #32.BNE| tloop ;|
|00001a20| 46 65 68 6c 65 72 74 65 | 78 74 20 65 69 6e 62 6c |Fehlerte|xt einbl|
|00001a30| 65 6e 64 65 6e 00 52 54 | 53 00 00 3b 2a 2a 2a 2a |enden.RT|S..;****|
|00001a40| 2a 2a 2a 2a 2a 00 43 48 | 4b 46 4f 52 49 4e 50 55 |*****.CH|KFORINPU|
|00001a50| 54 3b 20 74 65 73 74 65 | 74 20 6e 61 63 68 20 55 |T; teste|t nach U|
|00001a60| 73 65 72 65 69 6e 67 61 | 62 65 20 64 69 65 20 47 |sereinga|be die G|
|00001a70| 7d 6c 74 69 67 6b 65 69 | 74 20 64 65 72 20 57 65 |}ltigkei|t der We|
|00001a80| 72 74 65 00 3b 2a 2a 2a | 2a 2a 2a 2a 2a 2a 00 4c |rte.;***|******.L|
|00001a90| 44 41 20 24 32 66 35 30 | 20 3b 31 2e 42 79 74 65 |DA $2f50| ;1.Byte|
|00001aa0| 20 54 65 78 74 32 00 42 | 45 51 20 69 5f 65 72 72 | Text2.B|EQ i_err|
|00001ab0| 6f 72 3b 6b 65 69 6e 65 | 20 53 43 50 55 20 2d 3e |or;keine| SCPU ->|
|00001ac0| 61 62 62 72 65 63 68 65 | 6e 00 00 4c 44 58 20 6e |abbreche|n..LDX n|
|00001ad0| 75 6d 31 20 3b 45 69 6e | 67 61 62 65 6e 20 61 6c |um1 ;Ein|gaben al|
|00001ae0| 73 20 42 61 6e 6b 6e 75 | 6d 6d 65 72 6e 20 7d 62 |s Banknu|mmern }b|
|00001af0| 65 72 6e 65 68 6d 65 6e | 00 4c 44 59 20 6e 75 6d |ernehmen|.LDY num|
|00001b00| 32 00 53 54 58 20 66 69 | 72 73 74 62 61 6e 6b 00 |2.STX fi|rstbank.|
|00001b10| 53 54 59 20 6c 61 73 74 | 62 61 6e 6b 00 00 3b 2d |STY last|bank..;-|
|00001b20| 2d 3e 20 73 74 65 6c 6c | 65 20 62 65 6e 75 74 7a |-> stell|e benutz|
|00001b30| 74 65 20 52 41 4d 2d 47 | 72 7c 7e 65 20 66 65 73 |te RAM-G|r|~e fes|
|00001b40| 74 20 3c 2d 2d 00 4c 44 | 41 20 6e 75 6d 32 00 53 |t <--.LD|A num2.S|
|00001b50| 45 43 00 53 42 43 20 6e | 75 6d 31 00 53 54 41 20 |EC.SBC n|um1.STA |
|00001b60| 24 32 00 49 4e 43 20 24 | 32 00 4c 44 41 20 23 36 |$2.INC $|2.LDA #6|
|00001b70| 34 00 53 54 41 20 24 34 | 00 4c 44 58 20 23 32 00 |4.STA $4|.LDX #2.|
|00001b80| 4c 44 59 20 23 34 00 4a | 53 52 20 24 63 31 36 30 |LDY #4.J|SR $c160|
|00001b90| 20 3b 4d 75 6c 74 69 70 | 6c 79 20 38 42 69 74 00 | ;Multip|ly 8Bit.|
|00001ba0| 00 4c 44 41 20 24 32 00 | 53 54 41 20 66 72 65 65 |.LDA $2.|STA free|
|00001bb0| 5f 6b 62 20 3b 62 65 72 | 65 63 68 6e 65 74 65 20 |_kb ;ber|echnete |
|00001bc0| 66 72 65 69 65 20 52 61 | 6d 2d 4b 61 70 61 7a 69 |freie Ra|m-Kapazi|
|00001bd0| 74 7b 74 20 73 70 65 69 | 63 68 65 72 6e 00 4c 44 |t{t spei|chern.LD|
|00001be0| 41 20 24 33 00 53 54 41 | 20 66 72 65 65 5f 6b 62 |A $3.STA| free_kb|
|00001bf0| 2b 31 00 00 3b 2d 2d 3e | 20 73 74 65 6c 6c 65 20 |+1..;-->| stelle |
|00001c00| 76 6f 72 68 61 6e 64 65 | 6e 65 20 52 41 4d 2d 47 |vorhande|ne RAM-G|
|00001c10| 72 7c 7e 65 20 66 65 73 | 74 20 3c 2d 2d 00 53 45 |r|~e fes|t <--.SE|
|00001c20| 43 00 4c 44 41 20 6c 61 | 73 74 42 70 72 65 73 65 |C.LDA la|stBprese|
|00001c30| 6e 74 00 53 42 43 20 66 | 69 72 73 74 42 70 72 65 |nt.SBC f|irstBpre|
|00001c40| 73 65 6e 74 00 53 54 41 | 20 24 32 00 49 4e 43 20 |sent.STA| $2.INC |
|00001c50| 24 32 20 3b 65 72 6d 69 | 74 74 6c 65 20 41 6e 7a |$2 ;ermi|ttle Anz|
|00001c60| 61 68 6c 20 36 34 6b 2d | 42 7b 6e 6b 65 00 00 4c |ahl 64k-|B{nke..L|
|00001c70| 44 41 20 23 36 34 00 53 | 54 41 20 24 34 00 4c 44 |DA #64.S|TA $4.LD|
|00001c80| 58 20 23 32 00 4c 44 59 | 20 23 34 00 4a 53 52 20 |X #2.LDY| #4.JSR |
|00001c90| 24 63 31 36 30 20 3b 4d | 75 6c 74 69 70 6c 79 20 |$c160 ;M|ultiply |
|00001ca0| 38 42 69 74 00 00 4c 44 | 58 20 24 32 00 4c 44 59 |8Bit..LD|X $2.LDY|
|00001cb0| 20 24 33 00 00 53 54 58 | 20 72 61 6d 5f 6b 62 00 | $3..STX| ram_kb.|
|00001cc0| 53 54 59 20 72 61 6d 5f | 6b 62 2b 31 00 00 4c 44 |STY ram_|kb+1..LD|
|00001cd0| 41 20 6e 75 6d 31 00 43 | 4d 50 20 66 69 72 73 74 |A num1.C|MP first|
|00001ce0| 42 70 72 65 73 65 6e 74 | 00 42 43 43 20 69 5f 65 |Bpresent|.BCC i_e|
|00001cf0| 72 72 6f 72 20 3b 77 65 | 6e 6e 20 45 69 6e 67 61 |rror ;we|nn Einga|
|00001d00| 62 65 20 6b 6c 65 69 6e | 65 72 20 62 65 72 65 63 |be klein|er berec|
|00001d10| 68 6e 65 74 65 72 20 57 | 65 72 74 2d 3e 45 69 6e |hneter W|ert->Ein|
|00001d20| 67 61 62 65 66 65 68 6c | 65 72 00 4c 44 41 20 6e |gabefehl|er.LDA n|
|00001d30| 75 6d 32 00 43 4d 50 20 | 6c 61 73 74 42 70 72 65 |um2.CMP |lastBpre|
|00001d40| 73 65 6e 74 00 42 43 43 | 20 6f 6b 00 42 45 51 20 |sent.BCC| ok.BEQ |
|00001d50| 6f 6b 00 4a 4d 50 20 69 | 5f 65 72 72 6f 72 20 00 |ok.JMP i|_error .|
|00001d60| 00 6f 6b 00 3b 77 65 6e | 6e 20 45 69 6e 67 61 62 |.ok.;wen|n Eingab|
|00001d70| 65 20 67 72 7c 7e 65 72 | 20 62 65 72 65 63 68 6e |e gr|~er| berechn|
|00001d80| 65 74 65 72 20 57 65 72 | 74 2d 3e 45 69 6e 67 61 |eter Wer|t->Einga|
|00001d90| 62 65 66 65 68 6c 65 72 | 00 00 4c 44 41 20 6e 75 |befehler|..LDA nu|
|00001da0| 6d 32 00 43 4d 50 20 6e | 75 6d 31 00 42 43 43 20 |m2.CMP n|um1.BCC |
|00001db0| 69 5f 65 72 72 6f 72 20 | 3b 77 65 6e 6e 20 6c 65 |i_error |;wenn le|
|00001dc0| 74 7a 74 65 20 42 61 6e | 6b 3c 65 72 73 74 65 72 |tzte Ban|k<erster|
|00001dd0| 20 42 61 6e 6b 20 2d 3e | 46 65 68 6c 65 72 00 00 | Bank ->|Fehler..|
|00001de0| 52 54 53 00 00 3b 2d 2d | 2d 2d 2d 2d 00 69 5f 65 |RTS..;--|----.i_e|
|00001df0| 72 72 6f 72 3b 20 64 69 | 65 73 65 20 52 6f 75 74 |rror; di|ese Rout|
|00001e00| 69 6e 65 20 77 69 72 64 | 20 62 65 69 20 75 6e 67 |ine wird| bei ung|
|00001e10| 7d 6c 74 69 67 65 6e 20 | 45 69 6e 67 61 62 65 77 |}ltigen |Eingabew|
|00001e20| 65 72 74 65 6e 20 6f 64 | 65 72 20 6e 69 63 68 74 |erten od|er nicht|
|00001e30| 00 3b 20 20 20 20 20 20 | 20 67 65 66 75 6e 64 65 |.;      | gefunde|
|00001e40| 6e 65 6d 20 52 61 6d 20 | 61 75 66 67 65 72 75 66 |nem Ram |aufgeruf|
|00001e50| 65 6e 00 3b 2d 2d 2d 2d | 2d 2d 00 4c 44 41 20 23 |en.;----|--.LDA #|
|00001e60| 31 00 53 54 41 20 69 6e | 70 75 74 65 72 72 6f 72 |1.STA in|puterror|
|00001e70| 00 00 52 54 53 00 00 3b | 2d 20 45 6e 64 20 4f 66 |..RTS..;|- End Of|
|00001e80| 20 46 69 6c 65 20 2d 00 | 00                      | File -.|.       |
+--------+-------------------------+-------------------------+--------+--------+