RRAMM.SRC

FILE INFORMATION

FILENAME(S): RRAMM.SRC

FILE TYPE(S): PRG

FILE SIZE: 2K

FIRST SEEN: 2025-11-30 01:13:02

APPEARS ON: 2 disk(s)

FILE HASH

a80c130a2d6335bd4eda218ecfd3ba70845bb131b7caceb1b8ec89873c8823b4

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10108 SEITE A	RRAMM.SRC	PRG	C64er	29	7	DOWNLOAD FILE
10108 SEITE A	RRAMM.SRC	PRG	BrainSkull, Sammlung	29	7	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F E6 1F 5A 00 2E 4C  49 20 31 2C 34 2C 37 00  |....Z..LI 1,4,7.|
00000010: FB 1F 64 00 20 2E 45 51  50 52 4F 5A 50 4F 52 54  |..d. .EQPROZPORT|
00000020: 3D 24 30 31 00 0E 20 6E  00 20 2E 45 51 43 48 52  |=$01.. n. .EQCHR|
00000030: 47 45 54 3D 24 37 33 00  21 20 78 00 20 2E 45 51  |GET=$73.! x. .EQ|
00000040: 43 48 52 47 4F 54 3D 24  37 39 00 30 20 82 00 20  |CHRGOT=$79.0 .. |
00000050: 2E 45 51 50 43 3D 24 37  41 00 41 20 8C 00 20 2E  |.EQPC=$7A.A .. .|
00000060: 45 51 48 49 4C 46 3D 24  42 30 00 56 20 96 00 20  |EQHILF=$B0.V .. |
00000070: 2E 45 51 46 52 4D 4E 55  4D 3D 24 41 44 38 41 00  |.EQFRMNUM=$AD8A.|
00000080: 6B 20 A0 00 20 2E 45 51  43 48 4B 4B 4F 4D 3D 24  |k .. .EQCHKKOM=$|
00000090: 41 45 46 44 00 80 20 AA  00 20 2E 45 51 53 59 4E  |AEFD.. .. .EQSYN|
000000A0: 54 41 58 3D 24 41 46 30  38 00 98 20 B4 00 20 2E  |TAX=$AF08.. .. .|
000000B0: 45 51 47 45 54 42 59 54  4B 4F 4D 3D 24 42 37 46  |EQGETBYTKOM=$B7F|
000000C0: 31 00 AD 20 BE 00 20 2E  45 51 47 45 54 41 44 52  |1.. .. .EQGETADR|
000000D0: 3D 24 42 37 46 37 00 C3  20 C8 00 20 2E 45 51 43  |=$B7F7.. .. .EQC|
000000E0: 4F 4D 4D 41 4E 44 3D 24  44 46 30 31 00 D8 20 D2  |OMMAND=$DF01.. .|
000000F0: 00 20 2E 45 51 43 36 34  41 44 52 3D 24 44 46 30  |. .EQC64ADR=$DF0|
00000100: 32 00 ED 20 E6 00 20 2E  45 51 52 41 4D 41 44 52  |2.. .. .EQRAMADR|
00000110: 3D 24 44 46 30 34 00 00  21 FA 00 20 2E 45 51 42  |=$DF04..!.. .EQB|
00000120: 41 4E 4B 3D 24 44 46 30  36 00 17 21 04 01 20 2E  |ANK=$DF06..!.. .|
00000130: 45 51 42 4C 4F 43 4B 4C  45 4E 3D 24 44 46 30 37  |EQBLOCKLEN=$DF07|
00000140: 00 30 21 18 01 20 2E 45  51 41 44 52 43 4F 4E 54  |.0!.. .EQADRCONT|
00000150: 52 4F 4C 3D 24 44 46 30  41 00 36 21 22 01 3B 00  |ROL=$DF0A.6!".;.|
00000160: 44 21 2C 01 20 2E 42 41  24 30 33 33 43 00 4A 21  |D!,. .BA$033C.J!|
00000170: 36 01 3B 00 5E 21 40 01  52 52 41 4D 4D 20 4A 53  |6.;.^!@.RRAMM JS|
00000180: 52 43 48 4B 4B 4F 4D 00  7A 21 4A 01 20 42 45 51  |RCHKKOM.z!J. BEQ|
00000190: 52 45 41 44 59 3B 20 4E  49 43 48 54 53 20 46 4F  |READY; NICHTS FO|
000001A0: 4C 47 54 00 80 21 4F 01  3B 00 9E 21 54 01 20 4C  |LGT..!O.;..!T. L|
000001B0: 44 59 23 24 30 30 3B 20  45 58 45 43 2D 50 41 52  |DY#$00; EXEC-PAR|
000001C0: 41 4D 45 54 45 52 3F 00  AD 21 5E 01 20 4C 44 41  |AMETER?..!^. LDA|
000001D0: 28 50 43 29 2C 59 00 BA  21 68 01 20 42 4D 49 45  |(PC),Y..!h. BMIE|
000001E0: 58 45 43 00 C0 21 6D 01  3B 00 E3 21 72 01 50 41  |XEC..!m.;..!r.PA|
000001F0: 52 31 55 32 20 4A 53 52  46 52 4D 4E 55 4D 3B 20  |R1U2 JSRFRMNUM; |
00000200: 41 4E 5A 41 48 4C 20 42  59 54 45 53 00 F2 21 7C  |ANZAHL BYTES..!||
00000210: 01 20 4A 53 52 47 45 54  41 44 52 00 03 22 86 01  |. JSRGETADR.."..|
00000220: 20 53 54 59 42 4C 4F 43  4B 4C 45 4E 00 16 22 90  | STYBLOCKLEN..".|
00000230: 01 20 53 54 41 42 4C 4F  43 4B 4C 45 4E 2B 31 00  |. STABLOCKLEN+1.|
00000240: 25 22 9A 01 20 4A 53 52  43 48 4B 4B 4F 4D 00 3F  |%".. JSRCHKKOM.?|
00000250: 22 A4 01 20 4A 53 52 46  52 4D 4E 55 4D 3B 20 43  |".. JSRFRMNUM; C|
00000260: 36 34 2D 53 54 41 52 54  00 4E 22 AE 01 20 4A 53  |64-START.N".. JS|
00000270: 52 47 45 54 41 44 52 00  5D 22 B8 01 20 53 54 59  |RGETADR.]".. STY|
00000280: 43 36 34 41 44 52 00 6E  22 C2 01 20 53 54 41 43  |C64ADR.n".. STAC|
00000290: 36 34 41 44 52 2B 31 00  7D 22 CC 01 20 4A 53 52  |64ADR+1.}".. JSR|
000002A0: 43 48 52 47 4F 54 00 99  22 D6 01 20 42 45 51 52  |CHRGOT..".. BEQR|
000002B0: 45 41 44 59 3B 20 4E 49  43 48 54 53 20 46 4F 4C  |EADY; NICHTS FOL|
000002C0: 47 54 00 9F 22 DB 01 3B  00 B4 22 E0 01 50 41 52  |GT.."..;.."..PAR|
000002D0: 33 55 34 20 4A 53 52 43  48 4B 4B 4F 4D 00 CE 22  |3U4 JSRCHKKOM.."|
000002E0: EA 01 20 4A 53 52 46 52  4D 4E 55 4D 3B 20 52 41  |.. JSRFRMNUM; RA|
000002F0: 4D 4F 46 46 53 45 54 00  DD 22 F4 01 20 4A 53 52  |MOFFSET..".. JSR|
00000300: 47 45 54 41 44 52 00 EC  22 FE 01 20 53 54 59 52  |GETADR..".. STYR|
00000310: 41 4D 41 44 52 00 FD 22  08 02 20 53 54 41 52 41  |AMADR..".. STARA|
00000320: 4D 41 44 52 2B 31 00 18  23 12 02 20 4A 53 52 47  |MADR+1..#.. JSRG|
00000330: 45 54 42 59 54 4B 4F 4D  3B 20 42 41 4E 4B 4E 52  |ETBYTKOM; BANKNR|
00000340: 2E 00 25 23 1C 02 20 53  54 58 42 41 4E 4B 00 34  |..%#.. STXBANK.4|
00000350: 23 26 02 20 4A 53 52 43  48 52 47 4F 54 00 50 23  |#&. JSRCHRGOT.P#|
00000360: 30 02 20 42 45 51 52 45  41 44 59 3B 20 4E 49 43  |0. BEQREADY; NIC|
00000370: 48 54 53 20 46 4F 4C 47  54 00 56 23 35 02 3B 00  |HTS FOLGT.V#5.;.|
00000380: 76 23 3A 02 50 41 52 35  20 4A 53 52 47 45 54 42  |v#:.PAR5 JSRGETB|
00000390: 59 54 4B 4F 4D 3B 20 41  55 54 4F 4C 4F 41 44 00  |YTKOM; AUTOLOAD.|
000003A0: 7F 23 44 02 20 54 58 41  00 97 23 4E 02 20 42 45  |.#D. TXA..#N. BE|
000003B0: 51 4D 31 3B 20 4E 55 4C  4C 20 3D 3E 20 41 55 53  |QM1; NULL => AUS|
000003C0: 00 A7 23 58 02 20 4C 44  41 43 4F 4D 4D 41 4E 44  |..#X. LDACOMMAND|
000003D0: 00 BE 23 62 02 20 4F 52  41 23 24 32 30 3B 20 3C  |..#b. ORA#$20; <|
000003E0: 3E 30 20 3D 20 41 4E 00  C9 23 6C 02 20 42 4E 45  |>0 = AN..#l. BNE|
000003F0: 4D 32 00 DB 23 76 02 4D  31 20 4C 44 41 43 4F 4D  |M2..#v.M1 LDACOM|
00000400: 4D 41 4E 44 00 E8 23 80  02 20 41 4E 44 23 24 44  |MAND..#.. AND#$D|
00000410: 46 00 FA 23 8A 02 4D 32  20 53 54 41 43 4F 4D 4D  |F..#..M2 STACOMM|
00000420: 41 4E 44 00 09 24 94 02  20 4A 53 52 43 48 52 47  |AND..$.. JSRCHRG|
00000430: 4F 54 00 25 24 9E 02 20  42 45 51 52 45 41 44 59  |OT.%$.. BEQREADY|
00000440: 3B 20 4E 49 43 48 54 53  20 46 4F 4C 47 54 00 2B  |; NICHTS FOLGT.+|
00000450: 24 A3 02 3B 00 53 24 A8  02 50 41 52 36 20 4A 53  |$..;.S$..PAR6 JS|
00000460: 52 47 45 54 42 59 54 4B  4F 4D 3B 20 41 44 52 45  |RGETBYTKOM; ADRE|
00000470: 53 53 2D 4B 4F 4E 54 52  4F 4C 4C 45 00 5C 24 B2  |SS-KONTROLLE.\$.|
00000480: 02 20 54 58 41 00 69 24  BC 02 20 41 4E 44 23 24  |. TXA.i$.. AND#$|
00000490: 30 33 00 72 24 C6 02 20  43 4C 43 00 8C 24 D0 02  |03.r$.. CLC..$..|
000004A0: 20 52 4F 52 3B 20 4E 41  43 48 20 42 49 54 20 36  | ROR; NACH BIT 6|
000004B0: 20 55 2E 20 37 00 95 24  DA 02 20 52 4F 52 00 9E  | U. 7..$.. ROR..|
000004C0: 24 E4 02 20 52 4F 52 00  B1 24 EE 02 20 53 54 41  |$.. ROR..$.. STA|
000004D0: 41 44 52 43 4F 4E 54 52  4F 4C 00 B7 24 F3 02 3B  |ADRCONTROL..$..;|
000004E0: 00 C5 24 F8 02 52 45 41  44 59 20 52 54 53 00 CB  |..$..READY RTS..|
000004F0: 24 02 03 3B 00 E7 24 0C  03 45 58 45 43 20 4C 44  |$..;..$..EXEC LD|
00000500: 58 23 24 30 30 3B 20 45  52 52 4F 52 46 4C 41 47  |X#$00; ERRORFLAG|
00000510: 00 FA 24 16 03 20 43 4D  50 23 24 39 33 3B 20 4C  |..$.. CMP#$93; L|
00000520: 4F 41 44 00 05 25 20 03  20 42 4E 45 4D 33 00 1C  |OAD..% . BNEM3..|
00000530: 25 2A 03 20 4C 44 58 23  24 38 31 3B 20 3D 3E 20  |%*. LDX#$81; => |
00000540: 46 45 54 43 48 00 31 25  34 03 4D 33 20 43 4D 50  |FETCH.1%4.M3 CMP|
00000550: 23 24 39 34 3B 20 53 41  56 45 00 3C 25 3E 03 20  |#$94; SAVE.<%>. |
00000560: 42 4E 45 4D 34 00 53 25  48 03 20 4C 44 58 23 24  |BNEM4.S%H. LDX#$|
00000570: 38 30 3B 20 3D 3E 20 53  54 41 53 48 00 68 25 52  |80; => STASH.h%R|
00000580: 03 4D 34 20 43 4D 50 23  24 38 37 3B 20 52 45 41  |.M4 CMP#$87; REA|
00000590: 44 00 73 25 5C 03 20 42  4E 45 4D 35 00 89 25 66  |D.s%\. BNEM5..%f|
000005A0: 03 20 4C 44 58 23 24 38  32 3B 20 3D 3E 20 53 57  |. LDX#$82; => SW|
000005B0: 41 50 00 94 25 70 03 4D  35 20 54 58 41 00 B6 25  |AP..%p.M5 TXA..%|
000005C0: 7A 03 20 42 45 51 45 52  52 4F 52 3B 20 46 45 48  |z. BEQERROR; FEH|
000005D0: 4C 45 52 2C 20 57 45 4E  4E 20 4E 49 43 48 54 00  |LER, WENN NICHT.|
000005E0: BC 25 7F 03 3B 00 DA 25  84 03 20 53 54 58 48 49  |.%..;..%.. STXHI|
000005F0: 4C 46 3B 20 4B 4F 4D 4D  41 4E 44 4F 20 4D 45 52  |LF; KOMMANDO MER|
00000600: 4B 45 4E 00 E9 25 8E 03  20 4A 53 52 43 48 52 47  |KEN..%.. JSRCHRG|
00000610: 45 54 00 02 26 98 03 20  42 45 51 4D 36 3B 20 4E  |ET..&.. BEQM6; N|
00000620: 49 43 48 54 53 20 46 4F  4C 47 54 00 17 26 A2 03  |ICHTS FOLGT..&..|
00000630: 50 41 52 20 4A 53 52 47  45 54 42 59 54 4B 4F 4D  |PAR JSRGETBYTKOM|
00000640: 00 39 26 AC 03 4D 36 20  4C 44 41 50 52 4F 5A 50  |.9&..M6 LDAPROZP|
00000650: 4F 52 54 3B 20 53 54 41  54 55 53 20 4D 45 52 4B  |ORT; STATUS MERK|
00000660: 45 4E 00 42 26 B6 03 20  50 48 41 00 4B 26 C0 03  |EN.B&.. PHA.K&..|
00000670: 20 53 45 49 00 51 26 C5  03 3B 00 68 26 CA 03 20  | SEI.Q&..;.h&.. |
00000680: 43 50 58 23 24 30 30 3B  20 4E 55 52 20 52 41 4D  |CPX#$00; NUR RAM|
00000690: 3F 00 73 26 D4 03 20 42  4E 45 4D 37 00 7C 26 DE  |?.s&.. BNEM7.|&.|
000006A0: 03 20 54 58 41 00 97 26  E8 03 4D 37 20 43 50 58  |. TXA..&..M7 CPX|
000006B0: 23 24 30 31 3B 20 42 41  53 49 43 20 41 55 53 3F  |#$01; BASIC AUS?|
000006C0: 00 A2 26 F2 03 20 42 4E  45 4D 38 00 AF 26 FC 03  |..&.. BNEM8..&..|
000006D0: 20 41 4E 44 23 24 46 45  00 CA 26 06 04 4D 38 20  | AND#$FE..&..M8 |
000006E0: 43 50 58 23 24 30 32 3B  20 4B 45 52 4E 45 4C 20  |CPX#$02; KERNEL |
000006F0: 41 4E 3F 00 D5 26 10 04  20 42 4E 45 4D 39 00 E2  |AN?..&.. BNEM9..|
00000700: 26 1A 04 20 41 4E 44 23  24 46 44 00 FF 26 24 04  |&.. AND#$FD..&$.|
00000710: 4D 39 20 43 50 58 23 24  30 33 3B 20 43 48 41 52  |M9 CPX#$03; CHAR|
00000720: 2D 52 4F 4D 20 41 4E 3F  00 0B 27 2E 04 20 42 4E  |-ROM AN?..'.. BN|
00000730: 45 4D 31 30 00 18 27 38  04 20 41 4E 44 23 24 46  |EM10..'8. AND#$F|
00000740: 42 00 1E 27 3D 04 3B 00  3F 27 42 04 4D 31 30 20  |B..'=.;.?'B.M10 |
00000750: 53 54 41 50 52 4F 5A 50  4F 52 54 3B 20 4E 45 55  |STAPROZPORT; NEU|
00000760: 45 20 43 4F 4E 46 49 47  00 4F 27 4C 04 20 4C 44  |E CONFIG.O'L. LD|
00000770: 41 43 4F 4D 4D 41 4E 44  00 64 27 56 04 20 41 4E  |ACOMMAND.d'V. AN|
00000780: 44 23 24 37 43 3B 20 41  43 54 49 4F 4E 00 71 27  |D#$7C; ACTION.q'|
00000790: 60 04 20 4F 52 41 48 49  4C 46 00 81 27 6A 04 20  |`. ORAHILF..'j. |
000007A0: 53 54 41 43 4F 4D 4D 41  4E 44 00 87 27 6F 04 3B  |STACOMMAND..'o.;|
000007B0: 00 9D 27 74 04 20 50 4C  41 3B 20 41 4C 54 45 20  |..'t. PLA; ALTE |
000007C0: 43 4F 4E 46 49 47 00 AE  27 7E 04 20 53 54 41 50  |CONFIG..'~. STAP|
000007D0: 52 4F 5A 50 4F 52 54 00  B7 27 88 04 20 43 4C 49  |ROZPORT..'.. CLI|
000007E0: 00 CE 27 92 04 20 4A 4D  50 43 48 52 47 4F 54 3B  |..'.. JMPCHRGOT;|
000007F0: 20 46 45 52 54 49 47 00  D4 27 9C 04 3B 00 E8 27  | FERTIG..'..;..'|
00000800: A6 04 45 52 52 4F 52 20  4A 4D 50 53 59 4E 54 41  |..ERROR JMPSYNTA|
00000810: 58 00 EE 27 B0 04 3B 00  00 00                    |X..'..;...      |

X...Z..LI 1,4,7...D. .EQPROZPORT=$01.. N
. .EQCHRGET=$73.! X. .EQCHRGOT=$79.0 .. 
.EQPC=$7A.A .. .EQHILF=$B0.V .. .EQFRMNU
M=$AD8A.K  . .EQCHKKOM=$AEFD.. .. .EQSYN
TAX=$AF08.. .. .EQGETBYTKOM=$B7F1.. .. .
EQGETADR=$B7F7.C H. .EQCOMMAND=$DF01.X R
. .EQC64ADR=$DF02.. .. .EQRAMADR=$DF04..
!.. .EQBANK=$DF06..!.. .EQBLOCKLEN=$DF07
.0!.. .EQADRCONTROL=$DF0A.6!".;.D!,. .BA
$033C.J!6.;.^!@.RRAMM JSRCHKKOM.Z!J. BEQ
READY; NICHTS FOLGT..!O.;..!T. LDY#$00; 
EXEC-PARAMETER?..!^. LDA(PC),Y..!H. BMIE
XEC..!M.;..!R.PAR1U2 JSRFRMNUM; ANZAHL B
YTES..!|. JSRGETADR..".. STYBLOCKLEN..".
. STABLOCKLEN+1.%".. JSRCHKKOM.?".. JSRF
RMNUM; C64-START.N".. JSRGETADR.]".. STY
C64ADR.N"B. STAC64ADR+1.}"L. JSRCHRGOT..
"V. BEQREADY; NICHTS FOLGT.."..;.."..PAR
3U4 JSRCHKKOM.N".. JSRFRMNUM; RAMOFFSET.
.".. JSRGETADR..".. STYRAMADR..".. STARA
MADR+1..#.. JSRGETBYTKOM; BANKNR..%#.. S
TXBANK.4#&. JSRCHRGOT.P#0. BEQREADY; NIC
HTS FOLGT.V#5.;.V#:.PAR5 JSRGETBYTKOM; A
UTOLOAD.#D. TXA..#N. BEQM1; NULL => AUS
..#X. LDACOMMAND..#B. ORA#$20; <>0 = AN.
I#L. BNEM2..#V.M1 LDACOMMAND..#.. AND#$D
F..#..M2 STACOMMAND..$.. JSRCHRGOT.%$.. 
BEQREADY; NICHTS FOLGT.+$..;.S$..PAR6 JS
RGETBYTKOM; ADRESS-KONTROLLE.\$.. TXA.I$
.. AND#$03.R$F. CLC..$P. ROR; NACH BIT 6
 U. 7..$Z. ROR..$.. ROR..$.. STAADRCONTR
OL..$..;.E$..READY RTS.K$..;..$..EXEC LD
X#$00; ERRORFLAG..$.. CMP#$93; LOAD..% .
 BNEM3..%*. LDX#$81; => FETCH.1%4.M3 CMP
#$94; SAVE.<%>. BNEM4.S%H. LDX#$80; => S
TASH.H%R.M4 CMP#$87; READ.S%\. BNEM5..%F
. LDX#$82; => SWAP..%P.M5 TXA..%Z. BEQER
ROR; FEHLER, WENN NICHT..%.;.Z%.. STXHI
LF; KOMMANDO MERKEN..%.. JSRCHRGET..&.. 
BEQM6; NICHTS FOLGT..&..PAR JSRGETBYTKOM
.9&..M6 LDAPROZPORT; STATUS MERKEN.B&.. 
PHA.K&.. SEI.Q&E.;.H&J. CPX#$00; NUR RAM
?.S&T. BNEM7.|&.. TXA..&..M7 CPX#$01; BA
SIC AUS?..&.. BNEM8..&.. AND#$FE.J&..M8 
CPX#$02; KERNEL AN?.U&.. BNEM9..&.. AND#
$FD..&$.M9 CPX#$03; CHAR-ROM AN?..'.. BN
EM10..'8. AND#$FB..'=.;.?'B.M10 STAPROZP
ORT; NEUE CONFIG.O'L. LDACOMMAND.D'V. AN
D#$7C; ACTION.Q'`. ORAHILF..'J. STACOMMA
ND..'O.;..'T. PLA; ALTE CONFIG..'~. STAP
ROZPORT..'.. CLI.N'.. JMPCHRGOT; FERTIG.
T'..;..'..ERROR JMPSYNTAX..'..;...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL