RE-MANAGER.SRC
FILE INFORMATION
FILENAME(S): RE-MANAGER.SRC
FILE TYPE(S): SEQ
FILE SIZE: 7.7K
FIRST SEEN: 2025-11-02 16:39:22
APPEARS ON: 1 disk(s)
FILE HASH
3155a2309caa123d22c02a8a942152e2a1cf73b2fe142080fd28535bedab3f78
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RUN O THEK 9 87 | RE-MANAGER.SRC | SEQ | Treasure Chest - Plattfuss | 25 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 20 20 20 20 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 0D 3B 20 20 20 20 31 37 30 30 2F 31 |****.; 1700/1| 00000030: 37 35 30 20 52 41 4D 20 45 58 50 41 4E 53 49 4F |750 RAM EXPANSIO| 00000040: 4E 20 4D 41 4E 41 47 45 52 0D 3B 20 20 20 20 28 |N MANAGER.; (| 00000050: 43 29 31 39 38 37 20 42 59 20 49 4C 53 45 20 55 |C)1987 BY ILSE U| 00000060: 4E 44 20 52 55 44 4F 4C 46 20 57 4F 4C 46 0D 3B |ND RUDOLF WOLF.;| 00000070: 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ************| 00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000090: 2A 2A 2A 0D 20 20 20 20 20 20 20 20 20 2A 3D 20 |***. *= | 000000A0: 24 31 33 30 30 0D 52 45 43 52 45 47 20 20 20 3D |$1300.RECREG =| 000000B0: 20 24 44 46 30 30 20 3B 52 45 43 2D 52 45 47 49 | $DF00 ;REC-REGI| 000000C0: 53 54 45 52 20 42 41 53 49 53 41 44 52 2E 0D 44 |STER BASISADR..D| 000000D0: 4D 41 43 41 4C 4C 20 20 3D 20 24 46 46 35 30 20 |MACALL = $FF50 | 000000E0: 3B 4B 45 52 4E 41 4C 20 44 4D 41 2D 43 41 4C 4C |;KERNAL DMA-CALL| 000000F0: 0D 50 52 49 4D 4D 20 20 20 20 3D 20 24 46 46 37 |.PRIMM = $FF7| 00000100: 44 20 3B 54 45 58 54 20 41 55 53 47 45 42 45 4E |D ;TEXT AUSGEBEN| 00000110: 0D 4D 45 4D 54 4F 50 20 20 20 3D 20 24 31 32 31 |.MEMTOP = $121| 00000120: 30 20 3B 42 41 53 49 43 45 4E 44 45 0D 3B 2D 2D |0 ;BASICENDE.;--| 00000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000150: 2D 2D 2D 2D 2D 0D 3B 53 50 52 55 4E 47 4C 45 49 |-----.;SPRUNGLEI| 00000160: 53 54 45 20 28 41 4E 57 45 4E 44 55 4E 47 20 53 |STE (ANWENDUNG S| 00000170: 2E 20 42 45 47 4C 45 49 54 54 45 58 54 0D 3B 20 |. BEGLEITTEXT.; | 00000180: 20 42 5A 57 2E 20 4B 4F 4D 4D 45 4E 54 41 52 20 | BZW. KOMMENTAR | 00000190: 44 45 52 20 55 4E 54 45 52 50 52 4F 47 52 41 4D |DER UNTERPROGRAM| 000001A0: 4D 45 29 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |ME).;-----------| 000001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 53 54 41 |------------.STA| 000001D0: 53 48 42 20 20 20 4A 4D 50 20 42 41 53 49 43 20 |SHB JMP BASIC | 000001E0: 20 20 3B 53 59 53 34 38 36 34 0D 53 54 41 53 48 | ;SYS4864.STASH| 000001F0: 47 20 20 20 4A 4D 50 20 47 52 41 50 48 49 43 20 |G JMP GRAPHIC | 00000200: 3B 53 59 53 34 38 36 37 0D 53 54 41 53 48 53 20 |;SYS4867.STASHS | 00000210: 20 20 4A 4D 50 20 53 43 52 45 45 4E 20 20 3B 53 | JMP SCREEN ;S| 00000220: 59 53 34 38 37 30 0D 46 45 54 43 48 42 20 20 20 |YS4870.FETCHB | 00000230: 4A 4D 50 20 42 46 45 54 43 48 20 20 3B 53 59 53 |JMP BFETCH ;SYS| 00000240: 34 38 37 33 2C 4E 0D 46 54 45 43 48 47 20 20 20 |4873,N.FTECHG | 00000250: 4A 4D 50 20 47 46 45 54 43 48 20 20 3B 53 59 53 |JMP GFETCH ;SYS| 00000260: 34 38 37 36 2C 4D 2C 4E 0D 46 45 54 43 48 53 20 |4876,M,N.FETCHS | 00000270: 20 20 4A 4D 50 20 53 46 45 54 43 48 20 20 3B 53 | JMP SFETCH ;S| 00000280: 59 53 34 38 37 39 2C 4D 2C 4E 0D 46 53 42 41 4E |YS4879,M,N.FSBAN| 00000290: 4B 31 20 20 4A 4D 50 20 46 45 54 43 48 31 20 20 |K1 JMP FETCH1 | 000002A0: 3B 53 59 53 34 38 38 32 2C 4D 2C 45 58 50 42 0D |;SYS4882,M,EXPB.| 000002B0: 49 4E 49 54 20 20 20 20 20 4A 4D 50 20 52 45 53 |INIT JMP RES| 000002C0: 45 54 20 20 20 3B 53 59 53 34 38 38 35 0D 3B 4D |ET ;SYS4885.;M| 000002D0: 3A 20 31 3D 53 54 41 53 48 20 32 3D 46 45 54 43 |: 1=STASH 2=FETC| 000002E0: 48 20 33 3D 53 57 41 50 0D 3B 4E 3A 20 4E 55 4D |H 3=SWAP.;N: NUM| 000002F0: 4D 45 52 20 44 45 53 20 47 45 53 50 45 49 43 48 |MER DES GESPEICH| 00000300: 45 52 54 45 4E 20 50 52 4F 47 52 41 4D 4D 45 53 |ERTEN PROGRAMMES| 00000310: 0D 3B 45 58 50 42 3D 20 4E 55 4D 4D 45 52 20 44 |.;EXPB= NUMMER D| 00000320: 45 52 20 45 58 54 45 52 4E 45 4E 20 42 41 4E 4B |ER EXTERNEN BANK| 00000330: 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..;-------------| 00000340: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000350: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 20 20 20 20 |----------.; | 00000360: 20 20 42 41 53 49 43 50 52 4F 47 52 41 4D 4D 20 | BASICPROGRAMM | 00000370: 53 50 45 49 43 48 45 52 4E 0D 3B 2D 2D 2D 2D 2D |SPEICHERN.;-----| 00000380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000390: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000003A0: 2D 2D 0D 3B 54 45 53 54 20 4F 42 20 52 41 4D 43 |--.;TEST OB RAMC| 000003B0: 41 52 44 20 49 4E 53 54 41 4C 4C 49 45 52 54 20 |ARD INSTALLIERT | 000003C0: 49 53 54 0D 42 41 53 49 43 20 20 20 20 4A 53 52 |IST.BASIC JSR| 000003D0: 20 54 45 53 54 0D 3B 50 52 4F 47 52 41 4D 4D 4C | TEST.;PROGRAMML| 000003E0: 41 45 4E 47 45 20 42 45 52 45 43 48 4E 45 4E 0D |AENGE BERECHNEN.| 000003F0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 31 | LDA #$1| 00000400: 43 20 20 20 3B 53 54 41 52 54 41 44 52 2E 20 48 |C ;STARTADR. H| 00000410: 49 2D 42 59 54 45 0D 20 20 20 20 20 20 20 20 20 |I-BYTE. | 00000420: 53 54 41 20 48 49 4E 54 53 41 0D 20 20 20 20 20 |STA HINTSA. | 00000430: 20 20 20 20 53 45 43 0D 20 20 20 20 20 20 20 20 | SEC. | 00000440: 20 4C 44 41 20 4D 45 4D 54 4F 50 20 20 3B 42 41 | LDA MEMTOP ;BA| 00000450: 53 49 43 45 4E 44 45 20 4C 4F 2D 42 59 54 45 0D |SICENDE LO-BYTE.| 00000460: 20 20 20 20 20 20 20 20 20 53 42 43 20 23 24 30 | SBC #$0| 00000470: 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 4C |0. STA L| 00000480: 45 4E 4C 2C 58 20 20 3B 4C 41 45 4E 47 45 20 4C |ENL,X ;LAENGE L| 00000490: 4F 2D 42 59 54 45 0D 20 20 20 20 20 20 20 20 20 |O-BYTE. | 000004A0: 4C 44 41 20 4D 45 4D 54 4F 50 2B 31 3B 42 41 53 |LDA MEMTOP+1;BAS| 000004B0: 49 43 45 4E 44 45 20 48 49 2D 42 59 54 45 0D 20 |ICENDE HI-BYTE. | 000004C0: 20 20 20 20 20 20 20 20 53 42 43 20 48 49 4E 54 | SBC HINT| 000004D0: 53 41 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |SA. STA | 000004E0: 4C 45 4E 48 2C 58 20 20 3B 4C 41 45 4E 47 45 20 |LENH,X ;LAENGE | 000004F0: 48 49 2D 42 59 54 45 0D 20 20 20 20 20 20 20 20 |HI-BYTE. | 00000500: 20 4A 4D 50 20 46 52 45 52 41 4D 0D 3B 2D 2D 2D | JMP FRERAM.;---| 00000510: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000520: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000530: 2D 2D 2D 2D 0D 3B 20 20 20 20 20 20 20 20 48 49 |----.; HI| 00000540: 52 45 53 2D 47 52 41 46 49 4B 20 53 50 45 49 43 |RES-GRAFIK SPEIC| 00000550: 48 45 52 4E 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |HERN.;----------| 00000560: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000570: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 54 |-------------.;T| 00000580: 45 53 54 20 4F 42 20 52 41 4D 43 41 52 44 20 49 |EST OB RAMCARD I| 00000590: 4E 53 54 41 4C 4C 49 45 52 54 20 49 53 54 0D 47 |NSTALLIERT IST.G| 000005A0: 52 41 50 48 49 43 20 20 4A 53 52 20 54 45 53 54 |RAPHIC JSR TEST| 000005B0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 |. LDA #$| 000005C0: 34 30 3B 4C 41 45 4E 47 45 3D 38 30 30 30 20 42 |40;LAENGE=8000 B| 000005D0: 59 54 45 53 0D 20 20 20 20 20 20 20 20 20 53 54 |YTES. ST| 000005E0: 41 20 4C 45 4E 4C 2C 58 0D 20 20 20 20 20 20 20 |A LENL,X. | 000005F0: 20 20 4C 44 41 20 23 24 31 46 0D 20 20 20 20 20 | LDA #$1F. | 00000600: 20 20 20 20 53 54 41 20 4C 45 4E 48 2C 58 0D 20 | STA LENH,X. | 00000610: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 32 30 | LDA #$20| 00000620: 20 20 20 20 3B 53 54 41 52 54 41 44 52 2E 3D 38 | ;STARTADR.=8| 00000630: 31 39 32 0D 20 20 20 20 20 20 20 20 20 53 54 41 |192. STA| 00000640: 20 48 49 4E 54 53 41 0D 20 20 20 20 20 20 20 20 | HINTSA. | 00000650: 20 4A 4D 50 20 46 52 45 52 41 4D 0D 3B 2D 2D 2D | JMP FRERAM.;---| 00000660: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000680: 2D 2D 2D 2D 0D 3B 20 20 20 20 20 34 30 2D 5A 45 |----.; 40-ZE| 00000690: 49 43 48 45 4E 20 42 49 4C 44 53 43 48 49 52 4D |ICHEN BILDSCHIRM| 000006A0: 20 53 50 45 49 43 48 45 52 4E 0D 3B 2D 2D 2D 2D | SPEICHERN.;----| 000006B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000006C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000006D0: 2D 2D 2D 0D 3B 54 45 53 54 20 4F 42 20 52 41 4D |---.;TEST OB RAM| 000006E0: 43 41 52 44 20 49 4E 53 54 41 4C 4C 49 45 52 54 |CARD INSTALLIERT| 000006F0: 20 49 53 54 0D 53 43 52 45 45 4E 20 20 20 4A 53 | IST.SCREEN JS| 00000700: 52 20 54 45 53 54 0D 20 20 20 20 20 20 20 20 20 |R TEST. | 00000710: 4C 44 41 20 23 24 45 38 3B 4C 41 45 4E 47 45 3D |LDA #$E8;LAENGE=| 00000720: 31 30 30 30 20 42 59 54 45 53 0D 20 20 20 20 20 |1000 BYTES. | 00000730: 20 20 20 20 53 54 41 20 4C 45 4E 4C 2C 58 0D 20 | STA LENL,X. | 00000740: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 33 | LDA #$03| 00000750: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 4C 45 |. STA LE| 00000760: 4E 48 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 |NH,X. LD| 00000770: 41 20 23 24 30 34 20 20 20 20 3B 53 54 41 52 54 |A #$04 ;START| 00000780: 41 44 52 2E 3D 31 30 32 34 0D 20 20 20 20 20 20 |ADR.=1024. | 00000790: 20 20 20 53 54 41 20 48 49 4E 54 53 41 0D 0D 3B | STA HINTSA..;| 000007A0: 46 52 45 49 45 4E 20 53 50 45 49 43 48 45 52 50 |FREIEN SPEICHERP| 000007B0: 4C 41 54 5A 20 42 45 52 45 43 48 4E 45 4E 0D 46 |LATZ BERECHNEN.F| 000007C0: 52 45 52 41 4D 20 20 20 53 45 43 0D 20 20 20 20 |RERAM SEC. | 000007D0: 20 20 20 20 20 4C 44 41 20 46 52 45 45 0D 20 20 | LDA FREE. | 000007E0: 20 20 20 20 20 20 20 53 42 43 20 4C 45 4E 4C 2C | SBC LENL,| 000007F0: 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 46 |X. STA F| 00000800: 52 45 45 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |REE. LDA| 00000810: 20 46 52 45 45 2B 31 0D 20 20 20 20 20 20 20 20 | FREE+1. | 00000820: 20 53 42 43 20 4C 45 4E 48 2C 58 0D 20 20 20 20 | SBC LENH,X. | 00000830: 20 20 20 20 20 53 54 41 20 46 52 45 45 2B 31 0D | STA FREE+1.| 00000840: 20 20 20 20 20 20 20 20 20 42 43 43 20 46 55 4C | BCC FUL| 00000850: 4C 0D 3B 52 45 43 2D 52 45 47 49 53 54 45 52 20 |L.;REC-REGISTER | 00000860: 50 52 4F 47 52 41 4D 4D 49 45 52 45 4E 0D 3B 55 |PROGRAMMIEREN.;U| 00000870: 4E 44 20 44 4D 41 2D 5A 55 47 52 49 46 46 20 41 |ND DMA-ZUGRIFF A| 00000880: 55 53 46 55 45 48 52 45 4E 0D 20 20 20 20 20 20 |USFUEHREN. | 00000890: 20 20 20 4C 44 59 20 23 24 38 34 20 3B 43 4F 44 | LDY #$84 ;COD| 000008A0: 45 20 46 55 45 52 20 53 54 41 53 48 0D 20 20 20 |E FUER STASH. | 000008B0: 20 20 20 20 20 20 4A 53 52 20 53 45 54 44 4D 41 | JSR SETDMA| 000008C0: 0D 3B 4E 41 45 43 48 53 54 45 20 53 54 41 52 54 |.;NAECHSTE START| 000008D0: 41 44 52 45 53 53 45 20 42 45 52 45 43 48 4E 45 |ADRESSE BERECHNE| 000008E0: 4E 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 50 |N. LDX P| 000008F0: 52 47 43 4F 55 4E 54 0D 20 20 20 20 20 20 20 20 |RGCOUNT. | 00000900: 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 4C 44 | CLC. LD| 00000910: 41 20 4C 45 58 50 53 41 2C 58 0D 20 20 20 20 20 |A LEXPSA,X. | 00000920: 20 20 20 20 41 44 43 20 4C 45 4E 4C 2C 58 0D 20 | ADC LENL,X. | 00000930: 20 20 20 20 20 20 20 20 53 54 41 20 53 41 56 0D | STA SAV.| 00000940: 20 20 20 20 20 20 20 20 20 4C 44 41 20 48 45 58 | LDA HEX| 00000950: 50 53 41 2C 58 0D 20 20 20 20 20 20 20 20 20 41 |PSA,X. A| 00000960: 44 43 20 4C 45 4E 48 2C 58 0D 20 20 20 20 20 20 |DC LENH,X. | 00000970: 20 20 20 53 54 41 20 53 41 56 2B 31 0D 20 20 20 | STA SAV+1. | 00000980: 20 20 20 20 20 20 4A 53 52 20 50 52 49 4D 4D 0D | JSR PRIMM.| 00000990: 20 20 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 | .TEXT "| 000009A0: 47 45 53 50 45 49 43 48 45 52 54 20 23 22 0D 20 |GESPEICHERT #". | 000009B0: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 | .BYTE $0| 000009C0: 30 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 50 |0. JSR P| 000009D0: 52 47 4E 55 4D 0D 20 20 20 20 20 20 20 20 20 49 |RGNUM. I| 000009E0: 4E 58 0D 20 20 20 20 20 20 20 20 20 53 54 58 20 |NX. STX | 000009F0: 50 52 47 43 4F 55 4E 54 0D 20 20 20 20 20 20 20 |PRGCOUNT. | 00000A00: 20 20 4C 44 41 20 42 4E 4B 43 4F 55 4E 54 0D 20 | LDA BNKCOUNT. | 00000A10: 20 20 20 20 20 20 20 20 53 54 41 20 45 58 50 42 | STA EXPB| 00000A20: 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |,X. LDA | 00000A30: 53 41 56 0D 20 20 20 20 20 20 20 20 20 53 54 41 |SAV. STA| 00000A40: 20 4C 45 58 50 53 41 2C 58 0D 20 20 20 20 20 20 | LEXPSA,X. | 00000A50: 20 20 20 4C 44 41 20 53 41 56 2B 31 0D 20 20 20 | LDA SAV+1. | 00000A60: 20 20 20 20 20 20 53 54 41 20 48 45 58 50 53 41 | STA HEXPSA| 00000A70: 2C 58 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |,X. JSR | 00000A80: 50 52 49 4D 4D 0D 20 20 20 20 20 20 20 20 20 2E |PRIMM. .| 00000A90: 42 59 54 45 20 24 30 44 0D 20 20 20 20 20 20 20 |BYTE $0D. | 00000AA0: 20 20 2E 54 45 58 54 20 22 41 4B 54 55 45 4C 4C | .TEXT "AKTUELL| 00000AB0: 45 20 42 41 4E 4B 3D 22 0D 20 20 20 20 20 20 20 |E BANK=". | 00000AC0: 20 20 2E 42 59 54 45 20 24 30 30 0D 20 20 20 20 | .BYTE $00. | 00000AD0: 20 20 20 20 20 4A 4D 50 20 42 4E 4B 4E 55 4D 0D | JMP BNKNUM.| 00000AE0: 3B 57 45 4E 4E 20 41 4B 54 55 45 4C 4C 45 20 52 |;WENN AKTUELLE R| 00000AF0: 41 4D 43 41 52 44 2D 42 41 4E 4B 20 56 4F 4C 4C |AMCARD-BANK VOLL| 00000B00: 0D 46 55 4C 4C 20 20 20 20 20 43 4C 43 0D 20 20 |.FULL CLC. | 00000B10: 20 20 20 20 20 20 20 4C 44 41 20 42 4E 4B 43 4F | LDA BNKCO| 00000B20: 55 4E 54 0D 20 20 20 20 20 20 20 20 20 43 4D 50 |UNT. CMP| 00000B30: 20 53 49 5A 45 0D 20 20 20 20 20 20 20 20 20 42 | SIZE. B| 00000B40: 43 53 20 4F 56 45 52 46 4C 4F 57 0D 20 20 20 20 |CS OVERFLOW. | 00000B50: 20 20 20 20 20 4C 44 41 20 23 24 46 46 0D 20 20 | LDA #$FF. | 00000B60: 20 20 20 20 20 20 20 53 54 41 20 46 52 45 45 0D | STA FREE.| 00000B70: 20 20 20 20 20 20 20 20 20 53 54 41 20 46 52 45 | STA FRE| 00000B80: 45 2B 31 0D 20 20 20 20 20 20 20 20 20 4C 44 58 |E+1. LDX| 00000B90: 20 50 52 47 43 4F 55 4E 54 0D 20 20 20 20 20 20 | PRGCOUNT. | 00000BA0: 20 20 20 49 4E 43 20 42 4E 4B 43 4F 55 4E 54 0D | INC BNKCOUNT.| 00000BB0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 42 4E 4B | LDA BNK| 00000BC0: 43 4F 55 4E 54 0D 20 20 20 20 20 20 20 20 20 53 |COUNT. S| 00000BD0: 54 41 20 45 58 50 42 2C 58 0D 20 20 20 20 20 20 |TA EXPB,X. | 00000BE0: 20 20 20 4C 44 41 20 23 24 30 30 0D 20 20 20 20 | LDA #$00. | 00000BF0: 20 20 20 20 20 53 54 41 20 4C 45 58 50 53 41 2C | STA LEXPSA,| 00000C00: 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 48 |X. STA H| 00000C10: 45 58 50 53 41 2C 58 0D 20 20 20 20 20 20 20 20 |EXPSA,X. | 00000C20: 20 4A 4D 50 20 46 52 45 52 41 4D 0D 3B 57 45 4E | JMP FRERAM.;WEN| 00000C30: 4E 20 41 4C 4C 45 20 52 41 4D 43 41 52 44 2D 42 |N ALLE RAMCARD-B| 00000C40: 41 4E 4B 45 4E 20 56 4F 4C 4C 0D 4F 56 45 52 46 |ANKEN VOLL.OVERF| 00000C50: 4C 4F 57 20 4A 53 52 20 50 52 49 4D 4D 0D 20 20 |LOW JSR PRIMM. | 00000C60: 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 39 33 | .BYTE $93| 00000C70: 0D 20 20 20 20 20 20 20 20 20 2E 54 45 58 54 20 |. .TEXT | 00000C80: 22 4E 49 43 48 54 20 47 45 53 50 45 49 43 48 45 |"NICHT GESPEICHE| 00000C90: 52 54 20 57 45 49 4C 20 22 0D 20 20 20 20 20 20 |RT WEIL ". | 00000CA0: 20 20 20 2E 54 45 58 54 20 22 52 41 4D 43 41 52 | .TEXT "RAMCAR| 00000CB0: 44 20 56 4F 4C 4C 21 22 0D 20 20 20 20 20 20 20 |D VOLL!". | 00000CC0: 20 20 2E 42 59 54 45 20 24 30 44 2C 24 30 30 0D | .BYTE $0D,$00.| 00000CD0: 20 20 20 20 20 20 20 20 20 52 54 53 0D 3B 2D 2D | RTS.;--| 00000CE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000CF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000D00: 2D 2D 2D 2D 2D 0D 3B 20 20 47 45 53 50 45 49 43 |-----.; GESPEIC| 00000D10: 48 45 52 54 45 53 20 42 41 53 49 43 50 52 4F 47 |HERTES BASICPROG| 00000D20: 52 41 4D 4D 20 41 42 52 55 46 45 4E 0D 3B 2D 2D |RAMM ABRUFEN.;--| 00000D30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000D40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000D50: 2D 2D 2D 2D 2D 0D 42 46 45 54 43 48 20 20 20 54 |-----.BFETCH T| 00000D60: 41 58 20 20 20 20 20 20 20 20 20 20 3B 50 52 4F |AX ;PRO| 00000D70: 47 52 41 4D 4D 4E 55 4D 4D 45 52 0D 20 20 20 20 |GRAMMNUMMER. | 00000D80: 20 20 20 20 20 4A 53 52 20 53 45 54 42 4E 4B 31 | JSR SETBNK1| 00000D90: 35 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |5. LDA #| 00000DA0: 24 31 43 0D 20 20 20 20 20 20 20 20 20 53 54 41 |$1C. STA| 00000DB0: 20 48 49 4E 54 53 41 0D 20 20 20 20 20 20 20 20 | HINTSA. | 00000DC0: 20 4C 44 59 20 23 24 38 35 20 20 20 3B 4F 50 43 | LDY #$85 ;OPC| 00000DD0: 4F 44 45 20 46 55 45 52 20 46 45 54 43 48 0D 20 |ODE FUER FETCH. | 00000DE0: 20 20 20 20 20 20 20 20 4A 53 52 20 53 45 54 44 | JSR SETD| 00000DF0: 4D 41 20 3B 44 4D 41 2D 5A 55 47 52 49 46 46 0D |MA ;DMA-ZUGRIFF.| 00000E00: 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 34 46 | JSR $4F| 00000E10: 34 46 20 20 3B 5A 45 49 4C 45 4E 20 4E 45 55 20 |4F ;ZEILEN NEU | 00000E20: 42 49 4E 44 45 4E 0D 20 20 20 20 20 20 20 20 20 |BINDEN. | 00000E30: 4A 4D 50 20 24 34 46 38 32 20 20 3B 45 4E 44 41 |JMP $4F82 ;ENDA| 00000E40: 44 52 45 53 53 45 20 53 45 54 5A 45 4E 0D 3B 2D |DRESSE SETZEN.;-| 00000E50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000E60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000E70: 2D 2D 2D 2D 2D 2D 0D 3B 20 20 47 45 53 50 45 49 |------.; GESPEI| 00000E80: 43 48 45 52 54 45 20 48 49 52 45 53 2D 47 52 41 |CHERTE HIRES-GRA| 00000E90: 46 49 4B 20 41 42 52 55 46 45 4E 0D 3B 2D 2D 2D |FIK ABRUFEN.;---| 00000EA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000EB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000EC0: 2D 2D 2D 2D 0D 47 46 45 54 43 48 20 20 20 53 54 |----.GFETCH ST| 00000ED0: 58 20 53 41 56 20 3B 50 52 4F 47 52 41 4D 4D 4E |X SAV ;PROGRAMMN| 00000EE0: 55 4D 4D 45 52 20 52 45 54 54 45 4E 0D 20 20 20 |UMMER RETTEN. | 00000EF0: 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 20 20 | TAX. | 00000F00: 20 20 20 4C 44 41 20 4F 50 43 4F 44 45 2C 58 20 | LDA OPCODE,X | 00000F10: 3B 4D 4F 44 55 53 20 46 55 45 52 20 44 4D 41 2D |;MODUS FUER DMA-| 00000F20: 0D 20 20 20 20 20 20 20 20 20 54 41 59 20 20 20 |. TAY | 00000F30: 20 20 20 20 20 20 20 3B 5A 55 47 52 49 46 46 20 | ;ZUGRIFF | 00000F40: 53 50 45 49 43 48 45 52 4E 0D 20 20 20 20 20 20 |SPEICHERN. | 00000F50: 20 20 20 4C 44 41 20 23 24 32 30 0D 20 20 20 20 | LDA #$20. | 00000F60: 20 20 20 20 20 53 54 41 20 48 49 4E 54 53 41 0D | STA HINTSA.| 00000F70: 20 20 20 20 20 20 20 20 20 4C 44 58 20 53 41 56 | LDX SAV| 00000F80: 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 53 45 |. JMP SE| 00000F90: 54 44 4D 41 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |TDMA.;----------| 00000FA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000FB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 20 |-------------.; | 00000FC0: 20 20 20 47 45 53 50 45 49 43 48 45 52 54 45 4E | GESPEICHERTEN| 00000FD0: 20 42 49 4C 44 53 43 48 49 52 4D 20 41 42 52 55 | BILDSCHIRM ABRU| 00000FE0: 46 45 4E 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |FEN.;-----------| 00000FF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 53 46 45 |------------.SFE| 00001010: 54 43 48 20 20 20 53 54 58 20 53 41 56 20 3B 50 |TCH STX SAV ;P| 00001020: 52 4F 47 52 41 4D 4D 4E 55 4D 4D 45 52 20 52 45 |ROGRAMMNUMMER RE| 00001030: 54 54 45 4E 0D 20 20 20 20 20 20 20 20 20 54 41 |TTEN. TA| 00001040: 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 4F |X. LDA O| 00001050: 50 43 4F 44 45 2C 58 20 3B 4D 4F 44 55 53 20 46 |PCODE,X ;MODUS F| 00001060: 55 45 52 20 44 4D 41 2D 0D 20 20 20 20 20 20 20 |UER DMA-. | 00001070: 20 20 54 41 59 20 20 20 20 20 20 20 20 20 20 3B | TAY ;| 00001080: 5A 55 47 52 49 46 46 20 53 50 45 49 43 48 45 52 |ZUGRIFF SPEICHER| 00001090: 4E 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |N. LDA #| 000010A0: 24 30 34 0D 20 20 20 20 20 20 20 20 20 53 54 41 |$04. STA| 000010B0: 20 48 49 4E 54 53 41 0D 20 20 20 20 20 20 20 20 | HINTSA. | 000010C0: 20 4C 44 58 20 53 41 56 0D 20 20 20 20 20 20 20 | LDX SAV. | 000010D0: 20 20 4A 4D 50 20 53 45 54 44 4D 41 0D 0D 3B 52 | JMP SETDMA..;R| 000010E0: 45 43 2D 52 45 47 49 53 54 45 52 20 50 52 4F 47 |EC-REGISTER PROG| 000010F0: 52 41 4D 4D 49 45 52 49 45 52 45 4E 0D 53 45 54 |RAMMIERIEREN.SET| 00001100: 44 4D 41 20 20 20 4C 44 41 20 23 24 30 30 20 20 |DMA LDA #$00 | 00001110: 3B 43 31 32 38 20 41 44 52 2E 20 4C 4F 2D 42 59 |;C128 ADR. LO-BY| 00001120: 54 45 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |TE. STA | 00001130: 52 45 43 52 45 47 2B 32 0D 20 20 20 20 20 20 20 |RECREG+2. | 00001140: 20 20 4C 44 41 20 48 49 4E 54 53 41 3B 43 31 32 | LDA HINTSA;C12| 00001150: 38 20 41 44 52 2E 20 48 49 2D 42 59 54 45 0D 20 |8 ADR. HI-BYTE. | 00001160: 20 20 20 20 20 20 20 20 53 54 41 20 52 45 43 52 | STA RECR| 00001170: 45 47 2B 33 0D 20 20 20 20 20 20 20 20 20 4C 44 |EG+3. LD| 00001180: 41 20 4C 45 58 50 53 41 2C 58 3B 45 58 54 45 52 |A LEXPSA,X;EXTER| 00001190: 4E 45 20 41 44 52 2E 20 4C 4F 0D 20 20 20 20 20 |NE ADR. LO. | 000011A0: 20 20 20 20 53 54 41 20 52 45 43 52 45 47 2B 34 | STA RECREG+4| 000011B0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 48 45 |. LDA HE| 000011C0: 58 50 53 41 2C 58 0D 20 20 20 20 20 20 20 20 20 |XPSA,X. | 000011D0: 53 54 41 20 52 45 43 52 45 47 2B 35 3B 45 58 54 |STA RECREG+5;EXT| 000011E0: 45 52 4E 45 20 41 44 52 2E 20 48 49 0D 20 20 20 |ERNE ADR. HI. | 000011F0: 20 20 20 20 20 20 4C 44 41 20 45 58 50 42 2C 58 | LDA EXPB,X| 00001200: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 52 45 |. STA RE| 00001210: 43 52 45 47 2B 36 20 3B 45 58 54 45 4E 45 20 42 |CREG+6 ;EXTENE B| 00001220: 41 4E 4B 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |ANK. LDA| 00001230: 20 4C 45 4E 4C 2C 58 20 20 3B 50 52 4F 47 52 41 | LENL,X ;PROGRA| 00001240: 4D 4D 4C 41 45 4E 47 45 20 4C 4F 0D 20 20 20 20 |MMLAENGE LO. | 00001250: 20 20 20 20 20 53 54 41 20 52 45 43 52 45 47 2B | STA RECREG+| 00001260: 37 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 4C |7. LDA L| 00001270: 45 4E 48 2C 58 20 20 3B 50 52 4F 47 52 41 4D 4D |ENH,X ;PROGRAMM| 00001280: 4C 41 45 4E 47 45 20 48 49 0D 20 20 20 20 20 20 |LAENGE HI. | 00001290: 20 20 20 53 54 41 20 52 45 43 52 45 47 2B 38 0D | STA RECREG+8.| 000012A0: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 24 30 | LDX #$0| 000012B0: 30 20 20 20 20 3B 43 31 32 38 2D 42 41 4E 4B 20 |0 ;C128-BANK | 000012C0: 30 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 44 |0. JSR D| 000012D0: 4D 41 43 41 4C 4C 20 3B 44 4D 41 2D 5A 55 47 52 |MACALL ;DMA-ZUGR| 000012E0: 49 46 46 0D 53 45 54 42 4E 4B 31 35 20 4C 44 41 |IFF.SETBNK15 LDA| 000012F0: 20 23 24 30 30 0D 20 20 20 20 20 20 20 20 20 53 | #$00. S| 00001300: 54 41 20 24 46 46 30 30 20 20 20 20 3B 43 31 32 |TA $FF00 ;C12| 00001310: 38 20 42 41 4E 4B 20 31 35 0D 20 20 20 20 20 20 |8 BANK 15. | 00001320: 20 20 20 52 54 53 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D | RTS.;--------| 00001330: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001340: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D |---------------.| 00001350: 3B 20 20 53 54 41 53 48 2F 46 45 54 43 48 2F 53 |; STASH/FETCH/S| 00001360: 57 41 50 20 56 4F 4E 20 42 41 4E 4B 20 31 20 44 |WAP VON BANK 1 D| 00001370: 45 53 20 43 31 32 38 0D 3B 2D 2D 2D 2D 2D 2D 2D |ES C128.;-------| 00001380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001390: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000013A0: 0D 3B 50 41 52 41 4D 45 54 45 52 20 48 4F 4C 45 |.;PARAMETER HOLE| 000013B0: 4E 20 55 4E 44 20 54 45 53 54 45 4E 0D 3B 4F 42 |N UND TESTEN.;OB| 000013C0: 20 52 41 4D 43 41 52 44 20 49 4E 53 54 41 4C 4C | RAMCARD INSTALL| 000013D0: 49 45 52 54 20 49 53 54 0D 46 45 54 43 48 31 20 |IERT IST.FETCH1 | 000013E0: 20 20 53 54 41 20 4D 4F 44 55 53 20 3B 4D 4F 44 | STA MODUS ;MOD| 000013F0: 55 53 0D 20 20 20 20 20 20 20 20 20 53 54 58 20 |US. STX | 00001400: 53 41 56 20 20 20 3B 42 41 4E 4B 4E 55 4D 4D 45 |SAV ;BANKNUMME| 00001410: 52 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 54 |R. JSR T| 00001420: 45 53 54 0D 3B 4F 50 45 52 41 54 49 4F 4E 53 43 |EST.;OPERATIONSC| 00001430: 4F 44 45 20 45 52 4D 49 54 54 45 4C 4E 0D 47 45 |ODE ERMITTELN.GE| 00001440: 54 42 4E 4B 31 20 20 4C 44 41 20 4D 4F 44 55 53 |TBNK1 LDA MODUS| 00001450: 0D 20 20 20 20 20 20 20 20 20 54 41 58 0D 20 20 |. TAX. | 00001460: 20 20 20 20 20 20 20 4C 44 41 20 4F 50 43 4F 44 | LDA OPCOD| 00001470: 45 2C 58 0D 20 20 20 20 20 20 20 20 20 54 41 59 |E,X. TAY| 00001480: 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 53 41 |. LDX SA| 00001490: 56 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 53 |V. JSR S| 000014A0: 45 54 42 4E 4B 31 35 0D 0D 3B 52 45 43 2D 52 45 |ETBNK15..;REC-RE| 000014B0: 47 49 53 54 45 52 20 50 52 4F 47 52 41 4D 4D 49 |GISTER PROGRAMMI| 000014C0: 45 52 45 4E 0D 20 20 20 20 20 20 20 20 20 4C 44 |EREN. LD| 000014D0: 41 20 23 24 30 34 0D 20 20 20 20 20 20 20 20 20 |A #$04. | 000014E0: 53 54 41 20 52 45 43 52 45 47 2B 33 0D 20 20 20 |STA RECREG+3. | 000014F0: 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 0D 20 | LDA #$00. | 00001500: 20 20 20 20 20 20 20 20 53 54 41 20 52 45 43 52 | STA RECR| 00001510: 45 47 2B 32 0D 20 20 20 20 20 20 20 20 20 53 54 |EG+2. ST| 00001520: 41 20 52 45 43 52 45 47 2B 34 20 3B 45 58 50 53 |A RECREG+4 ;EXPS| 00001530: 41 20 4C 4F 57 2D 42 59 54 45 0D 20 20 20 20 20 |A LOW-BYTE. | 00001540: 20 20 20 20 53 54 41 20 52 45 43 52 45 47 2B 35 | STA RECREG+5| 00001550: 20 3B 45 58 50 53 41 20 48 49 47 48 2D 42 59 54 | ;EXPSA HIGH-BYT| 00001560: 45 0D 20 20 20 20 20 20 20 20 20 53 54 58 20 52 |E. STX R| 00001570: 45 43 52 45 47 2B 36 20 3B 45 58 50 42 0D 20 20 |ECREG+6 ;EXPB. | 00001580: 20 20 20 20 20 20 20 4C 44 41 20 23 24 46 46 20 | LDA #$FF | 00001590: 20 20 20 20 3B 36 34 32 35 35 20 42 59 54 45 53 | ;64255 BYTES| 000015A0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 52 45 |. STA RE| 000015B0: 43 52 45 47 2B 37 0D 20 20 20 20 20 20 20 20 20 |CREG+7. | 000015C0: 4C 44 41 20 23 24 46 41 0D 20 20 20 20 20 20 20 |LDA #$FA. | 000015D0: 20 20 53 54 41 20 52 45 43 52 45 47 2B 38 0D 3B | STA RECREG+8.;| 000015E0: 44 4D 41 2D 41 4E 46 4F 52 44 45 52 55 4E 47 20 |DMA-ANFORDERUNG | 000015F0: 46 55 45 52 20 43 31 32 38 2D 42 41 4E 4B 20 31 |FUER C128-BANK 1| 00001600: 0D 3B 49 4E 49 54 49 41 4C 49 53 49 45 52 45 4E |.;INITIALISIEREN| 00001610: 20 55 4E 44 20 42 45 46 45 48 4C 20 53 45 4E 44 | UND BEFEHL SEND| 00001620: 45 4E 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |EN. LDA | 00001630: 24 44 35 30 36 20 20 20 20 3B 52 43 52 20 44 45 |$D506 ;RCR DE| 00001640: 52 20 4D 4D 55 0D 20 20 20 20 20 20 20 20 20 4F |R MMU. O| 00001650: 52 41 20 23 25 31 31 30 30 30 30 30 30 0D 20 20 |RA #%11000000. | 00001660: 20 20 20 20 20 20 20 53 54 41 20 24 44 35 30 36 | STA $D506| 00001670: 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 24 |. LDX #$| 00001680: 30 31 20 20 20 20 20 3B 43 31 32 38 2D 42 41 4E |01 ;C128-BAN| 00001690: 4B 20 31 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |K 1. JSR| 000016A0: 20 44 4D 41 43 41 4C 4C 0D 20 20 20 20 20 20 20 | DMACALL. | 000016B0: 20 20 4A 53 52 20 53 45 54 42 4E 4B 31 35 20 3B | JSR SETBNK15 ;| 000016C0: 43 31 32 38 2D 42 41 4E 4B 20 31 35 0D 20 20 20 |C128-BANK 15. | 000016D0: 20 20 20 20 20 20 4C 44 41 20 24 44 35 30 36 0D | LDA $D506.| 000016E0: 20 20 20 20 20 20 20 20 20 41 4E 44 20 23 25 30 | AND #%0| 000016F0: 30 31 31 31 31 31 31 0D 20 20 20 20 20 20 20 20 |0111111. | 00001700: 20 53 54 41 20 24 44 35 30 36 0D 20 20 20 20 20 | STA $D506. | 00001710: 20 20 20 20 52 54 53 0D 0D 3B 50 52 4F 47 52 41 | RTS..;PROGRA| 00001720: 4D 4D 2F 42 41 4E 4B 2D 4E 55 4D 4D 45 52 20 41 |MM/BANK-NUMMER A| 00001730: 4E 5A 45 49 47 45 4E 0D 42 4E 4B 4E 55 4D 20 20 |NZEIGEN.BNKNUM | 00001740: 20 53 54 58 20 50 52 47 43 4F 55 4E 54 0D 20 20 | STX PRGCOUNT. | 00001750: 20 20 20 20 20 20 20 4C 44 41 20 42 4E 4B 43 4F | LDA BNKCO| 00001760: 55 4E 54 0D 20 20 20 20 20 20 20 20 20 42 50 4C |UNT. BPL| 00001770: 20 57 31 30 0D 50 52 47 4E 55 4D 20 20 20 53 54 | W10.PRGNUM ST| 00001780: 58 20 50 52 47 43 4F 55 4E 54 0D 20 20 20 20 20 |X PRGCOUNT. | 00001790: 20 20 20 20 54 58 41 0D 57 31 30 20 20 20 20 20 | TXA.W10 | 000017A0: 20 4C 44 58 20 23 24 33 30 0D 20 20 20 20 20 20 | LDX #$30. | 000017B0: 20 20 20 53 54 58 20 41 53 43 0D 4C 4F 4F 50 31 | STX ASC.LOOP1| 000017C0: 30 20 20 20 43 4D 50 20 23 24 30 41 0D 20 20 20 |0 CMP #$0A. | 000017D0: 20 20 20 20 20 20 42 4D 49 20 57 31 0D 20 20 20 | BMI W1. | 000017E0: 20 20 20 20 20 20 49 4E 43 20 41 53 43 0D 20 20 | INC ASC. | 000017F0: 20 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 | SEC. | 00001800: 20 20 20 20 53 42 43 20 23 24 30 41 0D 20 20 20 | SBC #$0A. | 00001810: 20 20 20 20 20 20 42 4E 45 20 4C 4F 4F 50 31 30 | BNE LOOP10| 00001820: 0D 57 31 20 20 20 20 20 20 20 4F 52 41 20 23 24 |.W1 ORA #$| 00001830: 33 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |30. STA | 00001840: 41 53 43 2B 31 0D 20 20 20 20 20 20 20 20 20 4C |ASC+1. L| 00001850: 44 58 20 23 24 30 30 0D 44 49 53 50 4C 41 59 20 |DX #$00.DISPLAY | 00001860: 20 4C 44 41 20 41 53 43 2C 58 0D 20 20 20 20 20 | LDA ASC,X. | 00001870: 20 20 20 20 4A 53 52 20 24 46 46 44 32 0D 20 20 | JSR $FFD2. | 00001880: 20 20 20 20 20 20 20 49 4E 58 0D 20 20 20 20 20 | INX. | 00001890: 20 20 20 20 43 50 58 20 23 24 30 32 0D 20 20 20 | CPX #$02. | 000018A0: 20 20 20 20 20 20 42 4E 45 20 44 49 53 50 4C 41 | BNE DISPLA| 000018B0: 59 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 50 |Y. LDX P| 000018C0: 52 47 43 4F 55 4E 54 0D 20 20 20 20 20 20 20 20 |RGCOUNT. | 000018D0: 20 52 54 53 0D 41 53 43 20 20 20 20 20 20 2E 42 | RTS.ASC .B| 000018E0: 59 54 45 20 24 33 30 2C 24 33 30 0D 0D 3B 54 45 |YTE $30,$30..;TE| 000018F0: 53 54 20 4F 42 20 52 41 4D 43 41 52 44 20 49 4E |ST OB RAMCARD IN| 00001900: 53 54 41 4C 4C 49 45 52 54 20 49 53 54 0D 54 45 |STALLIERT IST.TE| 00001910: 53 54 20 20 20 20 20 4A 53 52 20 53 45 54 42 4E |ST JSR SETBN| 00001920: 4B 31 35 0D 20 20 20 20 20 20 20 20 20 4C 44 58 |K15. LDX| 00001930: 20 50 52 47 43 4F 55 4E 54 0D 20 20 20 20 20 20 | PRGCOUNT. | 00001940: 20 20 20 4C 44 41 20 42 4E 4B 43 4F 55 4E 54 0D | LDA BNKCOUNT.| 00001950: 20 20 20 20 20 20 20 20 20 53 54 41 20 45 58 50 | STA EXP| 00001960: 42 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |B,X. LDA| 00001970: 20 23 24 31 43 0D 20 20 20 20 20 20 20 20 20 53 | #$1C. S| 00001980: 54 41 20 52 45 43 52 45 47 2B 35 0D 20 20 20 20 |TA RECREG+5. | 00001990: 20 20 20 20 20 4C 44 41 20 52 45 43 52 45 47 2B | LDA RECREG+| 000019A0: 35 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 |5. CMP #| 000019B0: 24 31 43 0D 20 20 20 20 20 20 20 20 20 42 45 51 |$1C. BEQ| 000019C0: 20 49 4E 53 54 41 4C 4C 0D 20 20 20 20 20 20 20 | INSTALL. | 000019D0: 20 20 4C 44 58 20 23 24 30 35 0D 20 20 20 20 20 | LDX #$05. | 000019E0: 20 20 20 20 4A 4D 50 20 24 34 44 33 46 20 3B 44 | JMP $4D3F ;D| 000019F0: 45 56 49 43 45 20 4E 4F 54 20 50 52 45 53 45 4E |EVICE NOT PRESEN| 00001A00: 54 0D 3B 54 45 53 54 20 57 45 4C 43 48 45 20 52 |T.;TEST WELCHE R| 00001A10: 41 4D 43 41 52 44 20 49 4E 53 54 41 4C 4C 49 45 |AMCARD INSTALLIE| 00001A20: 52 54 20 49 53 54 0D 49 4E 53 54 41 4C 4C 20 20 |RT IST.INSTALL | 00001A30: 4C 44 41 20 24 44 46 30 30 0D 20 20 20 20 20 20 |LDA $DF00. | 00001A40: 20 20 20 41 4E 44 20 23 25 30 30 30 31 30 30 30 | AND #%0001000| 00001A50: 30 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 52 |0. BNE R| 00001A60: 45 31 37 35 30 0D 52 45 31 37 30 30 20 20 20 4C |E1750.RE1700 L| 00001A70: 44 41 20 23 24 30 32 20 20 3B 52 41 4D 43 41 52 |DA #$02 ;RAMCAR| 00001A80: 44 20 31 37 30 30 0D 20 20 20 20 20 20 20 20 20 |D 1700. | 00001A90: 2E 42 59 54 45 20 24 32 43 0D 52 45 31 37 35 30 |.BYTE $2C.RE1750| 00001AA0: 20 20 20 4C 44 41 20 23 24 30 37 20 20 20 3B 52 | LDA #$07 ;R| 00001AB0: 41 4D 43 41 52 44 20 31 37 35 30 0D 20 20 20 20 |AMCARD 1750. | 00001AC0: 20 20 20 20 20 53 54 41 20 53 49 5A 45 0D 20 20 | STA SIZE. | 00001AD0: 20 20 20 20 20 20 20 52 54 53 0D 3B 2D 2D 2D 2D | RTS.;----| 00001AE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001AF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001B00: 2D 2D 2D 0D 3B 20 20 20 20 52 45 53 45 54 20 41 |---.; RESET A| 00001B10: 4C 4C 45 52 20 5A 41 45 48 4C 45 52 20 55 4E 44 |LLER ZAEHLER UND| 00001B20: 20 5A 45 49 47 45 52 0D 3B 2D 2D 2D 2D 2D 2D 2D | ZEIGER.;-------| 00001B30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001B40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001B50: 0D 52 45 53 45 54 20 20 20 20 4C 44 58 20 23 24 |.RESET LDX #$| 00001B60: 30 30 0D 20 20 20 20 20 20 20 20 20 54 58 41 0D |00. TXA.| 00001B70: 4E 55 4C 4C 20 20 20 20 20 53 54 41 20 50 52 47 |NULL STA PRG| 00001B80: 43 4F 55 4E 54 2C 58 0D 20 20 20 20 20 20 20 20 |COUNT,X. | 00001B90: 20 49 4E 58 0D 20 20 20 20 20 20 20 20 20 42 4E | INX. BN| 00001BA0: 45 20 4E 55 4C 4C 0D 20 20 20 20 20 20 20 20 20 |E NULL. | 00001BB0: 49 4E 43 20 4E 55 4C 4C 2B 32 0D 20 20 20 20 20 |INC NULL+2. | 00001BC0: 20 20 20 20 4C 44 59 20 4E 55 4C 4C 2B 32 0D 20 | LDY NULL+2. | 00001BD0: 20 20 20 20 20 20 20 20 43 50 59 20 23 24 31 38 | CPY #$18| 00001BE0: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 4E 55 |. BNE NU| 00001BF0: 4C 4C 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 |LL. LDY | 00001C00: 23 24 31 35 0D 20 20 20 20 20 20 20 20 20 53 54 |#$15. ST| 00001C10: 59 20 4E 55 4C 4C 2B 32 0D 20 20 20 20 20 20 20 |Y NULL+2. | 00001C20: 20 20 4C 44 59 20 23 24 46 46 0D 20 20 20 20 20 | LDY #$FF. | 00001C30: 20 20 20 20 53 54 59 20 46 52 45 45 0D 20 20 20 | STY FREE. | 00001C40: 20 20 20 20 20 20 53 54 59 20 46 52 45 45 2B 31 | STY FREE+1| 00001C50: 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 3B |. RTS..;| 00001C60: 54 45 4D 50 4F 52 41 45 52 45 20 53 50 45 49 43 |TEMPORAERE SPEIC| 00001C70: 48 45 52 0D 4F 50 43 4F 44 45 20 20 20 2E 42 59 |HER.OPCODE .BY| 00001C80: 54 45 20 24 30 30 2C 24 38 34 2C 24 38 35 2C 24 |TE $00,$84,$85,$| 00001C90: 38 36 0D 53 49 5A 45 20 20 20 20 20 2E 42 59 54 |86.SIZE .BYT| 00001CA0: 45 20 24 30 37 20 3B 42 41 4E 4B 45 4E 41 4E 5A |E $07 ;BANKENANZ| 00001CB0: 41 48 4C 2D 52 41 4D 43 41 52 44 0D 48 49 4E 54 |AHL-RAMCARD.HINT| 00001CC0: 53 41 20 20 20 2E 42 59 54 45 20 24 31 43 20 3B |SA .BYTE $1C ;| 00001CD0: 53 54 41 52 54 41 44 52 2E 20 48 49 2D 42 59 54 |STARTADR. HI-BYT| 00001CE0: 45 0D 4D 4F 44 55 53 20 20 20 20 2E 42 59 54 45 |E.MODUS .BYTE| 00001CF0: 20 24 30 31 20 3B 42 45 54 52 49 45 42 53 41 52 | $01 ;BETRIEBSAR| 00001D00: 54 0D 46 52 45 45 20 20 20 20 20 2E 42 59 54 45 |T.FREE .BYTE| 00001D10: 20 24 46 46 2C 24 46 46 3B 46 52 45 49 45 52 20 | $FF,$FF;FREIER | 00001D20: 53 50 45 49 43 48 45 52 0D 50 52 47 43 4F 55 4E |SPEICHER.PRGCOUN| 00001D30: 54 20 2E 42 59 54 45 20 24 30 30 20 3B 50 52 4F |T .BYTE $00 ;PRO| 00001D40: 47 52 41 4D 4D 4E 55 4D 4D 45 52 0D 42 4E 4B 43 |GRAMMNUMMER.BNKC| 00001D50: 4F 55 4E 54 20 2E 42 59 54 45 20 24 30 30 20 3B |OUNT .BYTE $00 ;| 00001D60: 42 41 4E 4B 4E 55 4D 4D 45 52 2D 52 41 4D 43 41 |BANKNUMMER-RAMCA| 00001D70: 52 44 0D 53 41 56 20 20 20 20 20 20 2E 42 59 54 |RD.SAV .BYT| 00001D80: 45 20 24 30 30 2C 24 30 30 20 3B 5A 57 49 53 43 |E $00,$00 ;ZWISC| 00001D90: 48 45 4E 53 50 45 49 43 48 45 52 0D 0D 3B 54 41 |HENSPEICHER..;TA| 00001DA0: 42 45 4C 4C 45 4E 20 46 55 45 52 20 46 45 54 43 |BELLEN FUER FETC| 00001DB0: 48 20 55 4E 44 20 53 57 41 50 0D 4C 45 4E 4C 20 |H UND SWAP.LENL | 00001DC0: 20 20 20 20 2E 42 59 54 45 20 24 30 30 20 3B 50 | .BYTE $00 ;P| 00001DD0: 52 4F 47 52 41 4D 4D 4C 41 45 4E 47 45 4E 0D 20 |ROGRAMMLAENGEN. | 00001DE0: 20 20 20 20 20 20 20 20 2A 3D 20 2A 2B 36 34 0D | *= *+64.| 00001DF0: 4C 45 4E 48 20 20 20 20 20 2E 42 59 54 45 20 24 |LENH .BYTE $| 00001E00: 30 30 0D 20 20 20 20 20 20 20 20 20 2A 3D 20 2A |00. *= *| 00001E10: 2B 36 34 0D 4C 45 58 50 53 41 20 20 20 2E 42 59 |+64.LEXPSA .BY| 00001E20: 54 45 20 24 30 30 20 3B 45 58 54 45 52 4E 45 20 |TE $00 ;EXTERNE | 00001E30: 53 54 41 52 54 41 44 52 2E 0D 20 20 20 20 20 20 |STARTADR.. | 00001E40: 20 20 20 2A 3D 20 2A 2B 36 34 0D 48 45 58 50 53 | *= *+64.HEXPS| 00001E50: 41 20 20 20 2E 42 59 54 45 20 24 30 30 0D 20 20 |A .BYTE $00. | 00001E60: 20 20 20 20 20 20 20 2A 3D 20 2A 2B 36 34 0D 45 | *= *+64.E| 00001E70: 58 50 42 20 20 20 20 20 2E 42 59 54 45 20 24 30 |XPB .BYTE $0| 00001E80: 30 20 3B 45 58 54 45 52 4E 45 20 42 41 4E 4B 4E |0 ;EXTERNE BANKN| 00001E90: 55 4D 4D 45 52 4E 0D 20 20 20 20 20 20 20 20 20 |UMMERN. | 00001EA0: 2A 3D 20 2A 2B 36 34 0D 0D 41 |*= *+64..A |
; *******************************.;
1700/1750 RAM EXPANSION MANAGER.; (
C)1987 BY ILSE UND RUDOLF WOLF.; ****
***************************. *=
$1300.RECREG = $DF00 ;REC-REGISTER BAS
ISADR..DMACALL = $FF50 ;KERNAL DMA-CALL
.PRIMM = $FF7D ;TEXT AUSGEBEN.MEMTOP
= $1210 ;BASICENDE.;------------------
---------------------.;SPRUNGLEISTE (ANW
ENDUNG S. BEGLEITTEXT.; BZW. KOMMENTAR
DER UNTERPROGRAMME).;-------------------
--------------------.STASHB JMP BASIC
;SYS4864.STASHG JMP GRAPHIC ;SYS4867
.STASHS JMP SCREEN ;SYS4870.FETCHB
JMP BFETCH ;SYS4873,N.FTECHG JMP GFET
CH ;SYS4876,M,N.FETCHS JMP SFETCH ;S
YS4879,M,N.FSBANK1 JMP FETCH1 ;SYS4882
,M,EXPB.INIT JMP RESET ;SYS4885.;M
: 1=STASH 2=FETCH 3=SWAP.;N: NUMMER DES
GESPEICHERTEN PROGRAMMES.;EXPB= NUMMER D
ER EXTERNEN BANK..;---------------------
------------------.; BASICPROGRAMM
SPEICHERN.;-----------------------------
----------.;TEST OB RAMCARD INSTALLIERT
IST.BASIC JSR TEST.;PROGRAMMLAENGE BE
RECHNEN. LDA #$1C ;STARTADR. H
I-BYTE. STA HINTSA. SEC.
LDA MEMTOP ;BASICENDE LO-BYTE.
SBC #$00. STA LENL,X ;
LAENGE LO-BYTE. LDA MEMTOP+1;BAS
ICENDE HI-BYTE. SBC HINTSA.
STA LENH,X ;LAENGE HI-BYTE.
JMP FRERAM.;---------------------------
------------.; HIRES-GRAFIK SPEIC
HERN.;----------------------------------
-----.;TEST OB RAMCARD INSTALLIERT IST.G
RAPHIC JSR TEST. LDA #$40;LAENG
E=8000 BYTES. STA LENL,X.
LDA #$1F. STA LENH,X.
LDA #$20 ;STARTADR.=8192. STA
HINTSA. JMP FRERAM.;-----------
----------------------------.; 40-ZE
ICHEN BILDSCHIRM SPEICHERN.;------------
---------------------------.;TEST OB RAM
CARD INSTALLIERT IST.SCREEN JSR TEST.
LDA #$E8;LAENGE=1000 BYTES.
STA LENL,X. LDA #$03.
STA LENH,X. LDA #$04 ;START
ADR.=1024. STA HINTSA..;FREIEN S
PEICHERPLATZ BERECHNEN.FRERAM SEC.
LDA FREE. SBC LENL,X.
STA FREE. LDA FREE+1.
SBC LENH,X. STA FREE+1.
BCC FULL.;REC-REGISTER PROGRAMMIEREN.;U
ND DMA-ZUGRIFF AUSFUEHREN. LDY #
$84 ;CODE FUER STASH. JSR SETDMA
.;NAECHSTE STARTADRESSE BERECHNEN.
LDX PRGCOUNT. CLC. LD
A LEXPSA,X. ADC LENL,X.
STA SAV. LDA HEXPSA,X. A
DC LENH,X. STA SAV+1. JS
R PRIMM. .TEXT "GESPEICHERT #".
.BYTE $00. JSR PRGNUM.
INX. STX PRGCOUNT.
LDA BNKCOUNT. STA EXPB,X.
LDA SAV. STA LEXPSA,X.
LDA SAV+1. STA HEXPSA,X.
JSR PRIMM. .BYTE $0D.
.TEXT "AKTUELLE BANK=". .BYTE
$00. JMP BNKNUM.;WENN AKTUELLE R
AMCARD-BANK VOLL.FULL CLC. L
DA BNKCOUNT. CMP SIZE. B
CS OVERFLOW. LDA #$FF. S
TA FREE. STA FREE+1. LDX
PRGCOUNT. INC BNKCOUNT.
LDA BNKCOUNT. STA EXPB,X.
LDA #$00. STA LEXPSA,X.
STA HEXPSA,X. JMP FRERAM.;WEN
N ALLE RAMCARD-BANKEN VOLL.OVERFLOW JSR
PRIMM. .BYTE $93. .TEXT
"NICHT GESPEICHERT WEIL ". .TEXT
"RAMCARD VOLL!". .BYTE $0D,$00.
RTS.;--------------------------
-------------.; GESPEICHERTES BASICPROG
RAMM ABRUFEN.;--------------------------
-------------.BFETCH TAX ;PRO
GRAMMNUMMER. JSR SETBNK15.
LDA #$1C. STA HINTSA.
LDY #$85 ;OPCODE FUER FETCH.
JSR SETDMA ;DMA-ZUGRIFF. JSR $4F
4F ;ZEILEN NEU BINDEN. JMP $4F8
2 ;ENDADRESSE SETZEN.;-----------------
----------------------.; GESPEICHERTE H
IRES-GRAFIK ABRUFEN.;-------------------
--------------------.GFETCH STX SAV ;P
ROGRAMMNUMMER RETTEN. TAX.
LDA OPCODE,X ;MODUS FUER DMA-.
TAY ;ZUGRIFF SPEICHERN.
LDA #$20. STA HINTSA.
LDX SAV. JMP SETDMA.;----------
-----------------------------.; GESPE
ICHERTEN BILDSCHIRM ABRUFEN.;-----------
----------------------------.SFETCH ST
X SAV ;PROGRAMMNUMMER RETTEN. TA
X. LDA OPCODE,X ;MODUS FUER DMA-
. TAY ;ZUGRIFF SPEICHER
N. LDA #$04. STA HINTSA.
LDX SAV. JMP SETDMA..;R
EC-REGISTER PROGRAMMIERIEREN.SETDMA LD
A #$00 ;C128 ADR. LO-BYTE. STA
RECREG+2. LDA HINTSA;C128 ADR. H
I-BYTE. STA RECREG+3. LD
A LEXPSA,X;EXTERNE ADR. LO. STA
RECREG+4. LDA HEXPSA,X.
STA RECREG+5;EXTERNE ADR. HI. LD
A EXPB,X. STA RECREG+6 ;EXTENE B
ANK. LDA LENL,X ;PROGRAMMLAENGE
LO. STA RECREG+7. LDA L
ENH,X ;PROGRAMMLAENGE HI. STA R
ECREG+8. LDX #$00 ;C128-BANK
0. JSR DMACALL ;DMA-ZUGRIFF.SETB
NK15 LDA #$00. STA $FF00 ;C12
8 BANK 15. RTS.;----------------
-----------------------.; STASH/FETCH/S
WAP VON BANK 1 DES C128.;---------------
------------------------.;PARAMETER HOLE
N UND TESTEN.;OB RAMCARD INSTALLIERT IST
.FETCH1 STA MODUS ;MODUS. STX
SAV ;BANKNUMMER. JSR TEST.;OPE
RATIONSCODE ERMITTELN.GETBNK1 LDA MODUS
. TAX. LDA OPCODE,X.
TAY. LDX SAV. JSR S
ETBNK15..;REC-REGISTER PROGRAMMIEREN.
LDA #$04. STA RECREG+3.
LDA #$00. STA RECREG+2.
STA RECREG+4 ;EXPSA LOW-BYTE.
STA RECREG+5 ;EXPSA HIGH-BYTE.
STX RECREG+6 ;EXPB. LDA #$FF
;64255 BYTES. STA RECREG+7.
LDA #$FA. STA RECREG+8.;
DMA-ANFORDERUNG FUER C128-BANK 1.;INITIA
LISIEREN UND BEFEHL SENDEN. LDA
$D506 ;RCR DER MMU. ORA #%110
00000. STA $D506. LDX #$
01 ;C128-BANK 1. JSR DMACALL
. JSR SETBNK15 ;C128-BANK 15.
LDA $D506. AND #%00111111.
STA $D506. RTS..;PROGRA
MM/BANK-NUMMER ANZEIGEN.BNKNUM STX PRG
COUNT. LDA BNKCOUNT. BPL
W10.PRGNUM STX PRGCOUNT. TXA.
W10 LDX #$30. STX ASC.LOOP1
0 CMP #$0A. BMI W1. IN
C ASC. SEC. SBC #$0A.
BNE LOOP10.W1 ORA #$30.
STA ASC+1. LDX #$00.DISPLAY
LDA ASC,X. JSR $FFD2. I
NX. CPX #$02. BNE DISPLA
Y. LDX PRGCOUNT. RTS.ASC
.BYTE $30,$30..;TEST OB RAMCARD IN
STALLIERT IST.TEST JSR SETBNK15.
LDX PRGCOUNT. LDA BNKCOUNT.
STA EXPB,X. LDA #$1C.
STA RECREG+5. LDA RECREG+
5. CMP #$1C. BEQ INSTALL
. LDX #$05. JMP $4D3F ;D
EVICE NOT PRESENT.;TEST WELCHE RAMCARD I
NSTALLIERT IST.INSTALL LDA $DF00.
AND #%00010000. BNE RE1750.RE
1700 LDA #$02 ;RAMCARD 1700.
.BYTE $2C.RE1750 LDA #$07 ;RAMCARD 1
750. STA SIZE. RTS.;----
-----------------------------------.;
RESET ALLER ZAEHLER UND ZEIGER.;-------
--------------------------------.RESET
LDX #$00. TXA.NULL STA PRG
COUNT,X. INX. BNE NULL.
INC NULL+2. LDY NULL+2.
CPY #$18. BNE NULL.
LDY #$15. STY NULL+2.
LDY #$FF. STY FREE. ST
Y FREE+1. RTS..;TEMPORAERE SPEIC
HER.OPCODE .BYTE $00,$84,$85,$86.SIZE
.BYTE $07 ;BANKENANZAHL-RAMCARD.HINT
SA .BYTE $1C ;STARTADR. HI-BYTE.MODUS
.BYTE $01 ;BETRIEBSART.FREE .BYTE
$FF,$FF;FREIER SPEICHER.PRGCOUNT .BYTE
$00 ;PROGRAMMNUMMER.BNKCOUNT .BYTE $00 ;
BANKNUMMER-RAMCARD.SAV .BYTE $00,$0
0 ;ZWISCHENSPEICHER..;TABELLEN FUER FETC
H UND SWAP.LENL .BYTE $00 ;PROGRAMML
AENGEN. *= *+64.LENH .BYTE $
00. *= *+64.LEXPSA .BYTE $00 ;
EXTERNE STARTADR.. *= *+64.HEXPS
A .BYTE $00. *= *+64.EXPB
.BYTE $00 ;EXTERNE BANKNUMMERN.
*= *+64..A
> CLICK IMAGE PREVIEW FOR FULL MODAL