SRC/RAMFLOPPY
FILE INFORMATION
FILENAME(S): SRC/RAMFLOPPY
FILE TYPE(S): SEQ
FILE SIZE: 3.7K
FIRST SEEN: 2025-11-02 16:39:22
APPEARS ON: 1 disk(s)
FILE HASH
0edd04db86ca2166dcdff9ccf368568c4a14514aeebbd6bfe924e1236b3629b9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RUN O THEK 9 87 | SRC/RAMFLOPPY | SEQ | Treasure Chest - Plattfuss | 12 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 20 20 20 20 20 20 20 20 20 44 45 52 20 56 44 |; DER VD| 00000010: 43 20 41 4C 53 20 52 41 4D 46 4C 4F 50 50 59 0D |C ALS RAMFLOPPY.| 00000020: 3B 20 20 20 20 28 43 29 31 39 38 36 20 42 59 20 |; (C)1986 BY | 00000030: 49 4C 53 45 20 55 2E 20 52 55 44 4F 4C 46 20 57 |ILSE U. RUDOLF W| 00000040: 4F 4C 46 0D 0D 20 20 20 20 20 20 20 20 20 2A 3D |OLF.. *=| 00000050: 20 24 31 33 30 30 0D 49 4E 44 45 58 20 20 20 20 | $1300.INDEX | 00000060: 3D 20 24 46 41 3B 5A 45 49 47 45 52 20 41 55 46 |= $FA;ZEIGER AUF| 00000070: 20 52 41 4D 41 44 52 45 53 53 45 0D 42 4C 4F 43 | RAMADRESSE.BLOC| 00000080: 4B 53 20 20 20 3D 20 24 46 43 0D 56 44 43 50 41 |KS = $FC.VDCPA| 00000090: 47 45 20 20 3D 20 24 46 44 0D 4D 4F 44 55 53 20 |GE = $FD.MODUS | 000000A0: 20 20 20 3D 20 24 46 45 20 20 20 3B 53 49 45 48 | = $FE ;SIEH| 000000B0: 45 20 42 45 47 4C 45 49 54 54 45 58 54 0D 54 45 |E BEGLEITTEXT.TE| 000000C0: 58 54 54 4F 50 20 20 3D 20 24 31 32 31 30 20 3B |XTTOP = $1210 ;| 000000D0: 45 4E 44 45 20 42 41 53 49 43 2D 54 45 58 54 0D |ENDE BASIC-TEXT.| 000000E0: 52 45 41 44 20 20 20 20 20 3D 20 24 43 44 44 38 |READ = $CDD8| 000000F0: 20 3B 56 44 43 2D 5A 55 47 52 49 46 46 20 4C 45 | ;VDC-ZUGRIFF LE| 00000100: 53 45 4E 0D 57 52 49 54 45 20 20 20 20 3D 20 24 |SEN.WRITE = $| 00000110: 43 44 43 43 20 3B 56 44 43 2D 5A 55 47 52 49 46 |CDCC ;VDC-ZUGRIF| 00000120: 46 20 53 43 48 52 45 49 42 45 4E 0D 0D 3B 54 52 |F SCHREIBEN..;TR| 00000130: 41 4E 53 46 45 52 20 41 55 53 20 52 41 4D 20 28 |ANSFER AUS RAM (| 00000140: 42 41 4E 4B 20 30 29 20 2D 3E 20 56 44 43 2D 52 |BANK 0) -> VDC-R| 00000150: 41 4D 0D 3B 53 54 41 52 54 20 4D 49 54 20 53 59 |AM.;START MIT SY| 00000160: 53 34 38 36 34 2C 48 49 42 59 54 45 2C 42 4C 4F |S4864,HIBYTE,BLO| 00000170: 43 4B 53 2C 4D 4F 44 55 53 0D 20 20 20 20 20 20 |CKS,MODUS. | 00000180: 20 20 20 3B 50 41 52 41 4D 45 54 45 52 20 48 4F | ;PARAMETER HO| 00000190: 4C 45 4E 20 55 4E 44 20 53 45 54 5A 45 4E 0D 52 |LEN UND SETZEN.R| 000001A0: 41 4D 56 44 43 20 20 20 53 54 41 20 49 4E 44 45 |AMVDC STA INDE| 000001B0: 58 2B 31 20 3B 48 49 42 59 54 45 2D 52 41 4D 41 |X+1 ;HIBYTE-RAMA| 000001C0: 44 52 45 53 53 45 0D 20 20 20 20 20 20 20 20 20 |DRESSE. | 000001D0: 53 54 58 20 42 4C 4F 43 4B 53 0D 20 20 20 20 20 |STX BLOCKS. | 000001E0: 20 20 20 20 53 54 59 20 4D 4F 44 55 53 0D 20 20 | STY MODUS. | 000001F0: 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 30 3B | LDY #$00;| 00000200: 4C 4F 2D 42 59 54 45 20 55 2E 20 42 59 54 45 5A |LO-BYTE U. BYTEZ| 00000210: 41 45 48 4C 45 52 0D 20 20 20 20 20 20 20 20 20 |AEHLER. | 00000220: 53 54 59 20 49 4E 44 45 58 0D 20 20 20 20 20 20 |STY INDEX. | 00000230: 20 20 20 4C 44 41 20 4D 4F 44 55 53 0D 20 20 20 | LDA MODUS. | 00000240: 20 20 20 20 20 20 43 4D 50 20 23 24 30 35 20 3B | CMP #$05 ;| 00000250: 20 56 44 43 2D 54 45 58 54 4D 4F 44 55 53 3F 0D | VDC-TEXTMODUS?.| 00000260: 20 20 20 20 20 20 20 20 20 42 4E 45 20 48 49 52 | BNE HIR| 00000270: 45 53 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 |ES. JMP | 00000280: 54 58 54 4D 4F 44 45 0D 48 49 52 45 53 20 20 20 |TXTMODE.HIRES | 00000290: 20 4C 44 58 20 23 24 31 39 0D 20 20 20 20 20 20 | LDX #$19. | 000002A0: 20 20 20 4C 44 41 20 24 44 36 30 30 20 3B 56 44 | LDA $D600 ;VD| 000002B0: 43 2D 56 45 52 53 49 4F 4E 20 54 45 53 54 45 4E |C-VERSION TESTEN| 000002C0: 0D 20 20 20 20 20 20 20 20 20 41 4E 44 20 23 25 |. AND #%| 000002D0: 30 30 30 30 30 31 31 31 0D 20 20 20 20 20 20 20 |00000111. | 000002E0: 20 20 42 4E 45 20 49 38 37 0D 20 20 20 20 20 20 | BNE I87. | 000002F0: 20 20 20 4C 44 41 20 23 24 38 30 0D 20 20 20 20 | LDA #$80. | 00000300: 20 20 20 20 20 2E 42 59 54 45 20 24 32 43 0D 49 | .BYTE $2C.I| 00000310: 38 37 20 20 20 20 20 20 4C 44 41 20 23 24 38 37 |87 LDA #$87| 00000320: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 57 52 |. JSR WR| 00000330: 49 54 45 20 20 3B 56 44 43 2D 47 52 41 46 49 4B |ITE ;VDC-GRAFIK| 00000340: 20 45 49 4E 0D 54 58 54 4D 4F 44 45 20 20 4A 53 | EIN.TXTMODE JS| 00000350: 52 20 53 45 54 41 44 52 0D 0D 20 20 20 20 20 20 |R SETADR.. | 00000360: 20 20 3B 54 52 41 4E 53 46 45 52 53 43 48 4C 45 | ;TRANSFERSCHLE| 00000370: 49 46 45 0D 4C 4F 4F 50 31 20 20 20 20 4C 44 41 |IFE.LOOP1 LDA| 00000380: 20 23 24 33 46 20 20 3B 42 41 4E 4B 20 30 20 45 | #$3F ;BANK 0 E| 00000390: 49 4E 53 43 48 41 4C 54 45 4E 0D 20 20 20 20 20 |INSCHALTEN. | 000003A0: 20 20 20 20 53 54 41 20 24 46 46 30 30 0D 20 20 | STA $FF00. | 000003B0: 20 20 20 20 20 20 20 4C 44 41 20 28 49 4E 44 45 | LDA (INDE| 000003C0: 58 29 2C 59 20 3B 44 41 54 45 4E 42 59 54 45 20 |X),Y ;DATENBYTE | 000003D0: 48 4F 4C 45 4E 0D 20 20 20 20 20 20 20 20 20 50 |HOLEN. P| 000003E0: 48 41 20 20 20 20 20 20 20 20 20 20 20 3B 55 4E |HA ;UN| 000003F0: 44 20 52 45 54 54 45 4E 0D 20 20 20 20 20 20 20 |D RETTEN. | 00000400: 20 20 4C 44 41 20 23 24 30 30 20 3B 42 41 4E 4B | LDA #$00 ;BANK| 00000410: 20 31 35 20 45 49 4E 53 43 48 41 4C 54 45 4E 0D | 15 EINSCHALTEN.| 00000420: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 46 46 | STA $FF| 00000430: 30 30 0D 20 20 20 20 20 20 20 20 20 50 4C 41 3B |00. PLA;| 00000440: 44 41 54 45 4E 42 59 54 45 20 56 4F 4D 20 53 54 |DATENBYTE VOM ST| 00000450: 41 50 45 4C 20 48 4F 4C 45 4E 0D 20 20 20 20 20 |APEL HOLEN. | 00000460: 20 20 20 20 4C 44 58 20 23 24 31 46 20 3B 44 41 | LDX #$1F ;DA| 00000470: 54 45 4E 52 45 47 49 53 54 45 52 0D 20 20 20 20 |TENREGISTER. | 00000480: 20 20 20 20 20 4A 53 52 20 57 52 49 54 45 0D 20 | JSR WRITE. | 00000490: 20 20 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 | INY. | 000004A0: 20 20 20 20 20 42 4E 45 20 4C 4F 4F 50 31 20 3B | BNE LOOP1 ;| 000004B0: 42 4C 4F 43 4B 20 46 45 52 54 49 47 3F 0D 20 20 |BLOCK FERTIG?. | 000004C0: 20 20 20 20 20 20 20 49 4E 43 20 49 4E 44 45 58 | INC INDEX| 000004D0: 2B 31 0D 20 20 20 20 20 20 20 20 20 44 45 43 20 |+1. DEC | 000004E0: 42 4C 4F 43 4B 53 0D 20 20 20 20 20 20 20 20 20 |BLOCKS. | 000004F0: 4C 44 58 20 42 4C 4F 43 4B 53 0D 20 20 20 20 20 |LDX BLOCKS. | 00000500: 20 20 20 20 42 4E 45 20 4C 4F 4F 50 31 20 3B 41 | BNE LOOP1 ;A| 00000510: 4C 4C 45 20 42 4C 4F 43 4B 53 20 46 45 52 54 49 |LLE BLOCKS FERTI| 00000520: 47 3F 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |G?. LDA | 00000530: 54 45 58 54 54 4F 50 0D 20 20 20 20 20 20 20 20 |TEXTTOP. | 00000540: 20 4C 44 58 20 54 45 58 54 54 4F 50 2B 31 0D 20 | LDX TEXTTOP+1. | 00000550: 20 20 20 20 20 20 20 20 4C 44 59 20 4D 4F 44 55 | LDY MODU| 00000560: 53 0D 20 20 20 20 20 20 20 20 20 43 50 59 20 23 |S. CPY #| 00000570: 24 30 34 0D 20 20 20 20 20 20 20 20 20 42 45 51 |$04. BEQ| 00000580: 20 4D 4F 44 45 34 0D 20 20 20 20 20 20 20 20 20 | MODE4. | 00000590: 53 54 41 20 54 45 58 54 45 4E 44 33 0D 20 20 20 |STA TEXTEND3. | 000005A0: 20 20 20 20 20 20 53 54 58 20 54 45 58 54 45 4E | STX TEXTEN| 000005B0: 44 33 2B 31 0D 20 20 20 20 20 20 20 20 20 52 54 |D3+1. RT| 000005C0: 53 0D 4D 4F 44 45 34 20 20 20 20 53 54 41 20 54 |S.MODE4 STA T| 000005D0: 45 58 54 45 4E 44 34 0D 20 20 20 20 20 20 20 20 |EXTEND4. | 000005E0: 20 53 54 58 20 54 45 58 54 45 4E 44 34 2B 31 0D | STX TEXTEND4+1.| 000005F0: 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 20 20 | RTS.. | 00000600: 20 20 20 20 20 20 20 3B 48 49 2D 42 59 54 45 20 | ;HI-BYTE | 00000610: 44 45 52 20 56 44 43 2D 41 44 52 45 53 53 45 20 |DER VDC-ADRESSE | 00000620: 53 45 54 5A 45 4E 0D 53 45 54 41 44 52 20 20 20 |SETZEN.SETADR | 00000630: 4C 44 41 20 4D 4F 44 55 53 0D 20 20 20 20 20 20 |LDA MODUS. | 00000640: 20 20 20 50 48 41 0D 20 20 20 20 20 20 20 20 20 | PHA. | 00000650: 43 4D 50 20 23 24 30 32 20 3B 49 53 54 20 45 53 |CMP #$02 ;IST ES| 00000660: 20 4D 4F 44 55 53 20 32 20 3F 0D 20 20 20 20 20 | MODUS 2 ?. | 00000670: 20 20 20 20 42 45 51 20 50 41 47 45 32 30 0D 20 | BEQ PAGE20. | 00000680: 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 30 34 | CMP #$04| 00000690: 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 50 41 |. BEQ PA| 000006A0: 47 45 32 30 0D 50 41 47 45 30 20 20 20 20 4C 44 |GE20.PAGE0 LD| 000006B0: 41 20 23 24 30 30 0D 20 20 20 20 20 20 20 20 20 |A #$00. | 000006C0: 2E 42 59 54 45 20 24 32 43 0D 50 41 47 45 32 30 |.BYTE $2C.PAGE20| 000006D0: 20 20 20 4C 44 41 20 23 24 32 30 0D 20 20 20 20 | LDA #$20. | 000006E0: 20 20 20 20 20 53 54 41 20 56 44 43 50 41 47 45 | STA VDCPAGE| 000006F0: 0D 20 20 20 20 20 20 20 20 20 50 4C 41 0D 20 20 |. PLA. | 00000700: 20 20 20 20 20 20 20 43 4D 50 20 23 24 30 35 20 | CMP #$05 | 00000710: 3B 49 53 54 20 45 53 20 4D 4F 44 55 53 20 35 20 |;IST ES MODUS 5 | 00000720: 3F 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 41 |?. BNE A| 00000730: 44 52 45 53 53 0D 43 48 45 43 4B 38 30 20 20 4C |DRESS.CHECK80 L| 00000740: 44 41 20 24 44 37 0D 20 20 20 20 20 20 20 20 20 |DA $D7. | 00000750: 42 4D 49 20 41 44 52 45 53 53 20 3B 4A 41 3A 38 |BMI ADRESS ;JA:8| 00000760: 30 20 5A 45 49 43 48 45 4E 0D 20 20 20 20 20 20 |0 ZEICHEN. | 00000770: 20 20 20 42 52 4B 0D 41 44 52 45 53 53 20 20 20 | BRK.ADRESS | 00000780: 4C 44 58 20 23 24 31 32 3B 41 44 52 45 53 53 2D |LDX #$12;ADRESS-| 00000790: 55 50 44 41 54 45 20 52 45 47 2E 3E 0D 20 20 20 |UPDATE REG.>. | 000007A0: 20 20 20 20 20 20 4C 44 41 20 56 44 43 50 41 47 | LDA VDCPAG| 000007B0: 45 20 3B 56 44 43 2D 52 41 4D 20 41 44 52 45 53 |E ;VDC-RAM ADRES| 000007C0: 53 45 3E 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |SE>. JSR| 000007D0: 20 57 52 49 54 45 0D 20 20 20 20 20 20 20 20 20 | WRITE. | 000007E0: 49 4E 58 20 20 20 20 20 20 3B 41 44 52 45 53 53 |INX ;ADRESS| 000007F0: 20 55 50 44 41 54 45 20 52 45 47 2E 3C 0D 20 20 | UPDATE REG.<. | 00000800: 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 20 | LDA #$00 | 00000810: 3B 56 44 43 2D 52 41 4D 20 41 44 52 45 53 53 45 |;VDC-RAM ADRESSE| 00000820: 3C 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 57 |<. JMP W| 00000830: 52 49 54 45 0D 0D 0D 3B 54 52 41 4E 53 46 45 52 |RITE...;TRANSFER| 00000840: 20 41 55 53 20 56 44 43 2D 52 41 4D 20 2D 3E 20 | AUS VDC-RAM -> | 00000850: 52 41 4D 20 28 42 41 4E 4B 20 30 29 0D 3B 53 54 |RAM (BANK 0).;ST| 00000860: 41 52 54 20 4D 49 54 20 53 59 53 35 30 30 30 2C |ART MIT SYS5000,| 00000870: 48 49 42 59 54 45 2C 42 4C 4F 43 4B 53 0D 56 44 |HIBYTE,BLOCKS.VD| 00000880: 43 52 41 4D 20 20 20 53 54 41 20 49 4E 44 45 58 |CRAM STA INDEX| 00000890: 2B 31 20 3B 48 49 2D 42 59 54 45 0D 20 20 20 20 |+1 ;HI-BYTE. | 000008A0: 20 20 20 20 20 53 54 58 20 42 4C 4F 43 4B 53 0D | STX BLOCKS.| 000008B0: 20 20 20 20 20 20 20 20 20 53 54 59 20 4D 4F 44 | STY MOD| 000008C0: 55 53 0D 20 20 20 20 20 20 20 20 20 3B 53 54 41 |US. ;STA| 000008D0: 52 54 41 44 52 2E 20 46 55 45 52 20 56 44 43 20 |RTADR. FUER VDC | 000008E0: 53 45 54 5A 45 4E 0D 20 20 20 20 20 20 20 20 20 |SETZEN. | 000008F0: 4C 44 59 20 23 24 30 30 3B 4C 4F 2D 42 59 54 45 |LDY #$00;LO-BYTE| 00000900: 20 55 2E 20 42 59 54 45 5A 41 45 48 4C 45 52 0D | U. BYTEZAEHLER.| 00000910: 20 20 20 20 20 20 20 20 20 53 54 59 20 49 4E 44 | STY IND| 00000920: 45 58 0D 20 20 20 20 20 20 20 20 20 54 59 41 0D |EX. TYA.| 00000930: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 46 46 | STA $FF| 00000940: 30 30 20 3B 42 41 4E 4B 20 31 35 20 45 49 4E 53 |00 ;BANK 15 EINS| 00000950: 43 48 41 4C 54 45 4E 0D 20 20 20 20 20 20 20 20 |CHALTEN. | 00000960: 20 4A 53 52 20 53 45 54 41 44 52 0D 0D 20 20 20 | JSR SETADR.. | 00000970: 20 20 20 20 20 20 3B 54 52 41 4E 53 46 45 52 53 | ;TRANSFERS| 00000980: 43 48 4C 45 49 46 45 0D 4C 4F 4F 50 32 20 20 20 |CHLEIFE.LOOP2 | 00000990: 20 4A 53 52 20 52 45 41 44 0D 20 20 20 20 20 20 | JSR READ. | 000009A0: 20 20 20 50 48 41 20 3B 44 41 54 45 4E 42 59 54 | PHA ;DATENBYT| 000009B0: 45 20 52 45 54 54 45 4E 0D 20 20 20 20 20 20 20 |E RETTEN. | 000009C0: 20 20 4C 44 41 20 23 24 33 46 20 3B 42 41 4E 4B | LDA #$3F ;BANK| 000009D0: 20 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 | 0. STA | 000009E0: 24 46 46 30 30 0D 20 20 20 20 20 20 20 20 20 50 |$FF00. P| 000009F0: 4C 41 20 3B 44 41 54 45 4E 42 59 54 45 20 56 4F |LA ;DATENBYTE VO| 00000A00: 4D 20 53 54 41 50 45 4C 20 48 4F 4C 45 4E 0D 20 |M STAPEL HOLEN. | 00000A10: 20 20 20 20 20 20 20 20 53 54 41 20 28 49 4E 44 | STA (IND| 00000A20: 45 58 29 2C 59 20 3B 49 4D 20 52 41 4D 20 53 50 |EX),Y ;IM RAM SP| 00000A30: 45 49 43 48 45 52 4E 0D 20 20 20 20 20 20 20 20 |EICHERN. | 00000A40: 20 4C 44 41 20 23 24 30 30 20 3B 42 41 4E 4B 20 | LDA #$00 ;BANK | 00000A50: 31 35 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |15. STA | 00000A60: 24 46 46 30 30 0D 20 20 20 20 20 20 20 20 20 49 |$FF00. I| 00000A70: 4E 59 20 20 20 20 20 20 20 20 20 20 3B 42 59 54 |NY ;BYT| 00000A80: 45 5A 41 45 48 4C 45 52 0D 20 20 20 20 20 20 20 |EZAEHLER. | 00000A90: 20 20 42 4E 45 20 4C 4F 4F 50 32 20 20 20 20 3B | BNE LOOP2 ;| 00000AA0: 42 4C 4F 43 4B 20 46 45 52 54 49 47 3F 0D 20 20 |BLOCK FERTIG?. | 00000AB0: 20 20 20 20 20 20 20 49 4E 43 20 49 4E 44 45 58 | INC INDEX| 00000AC0: 2B 31 0D 20 20 20 20 20 20 20 20 20 44 45 43 20 |+1. DEC | 00000AD0: 42 4C 4F 43 4B 53 0D 20 20 20 20 20 20 20 20 20 |BLOCKS. | 00000AE0: 4C 44 58 20 42 4C 4F 43 4B 53 0D 20 20 20 20 20 |LDX BLOCKS. | 00000AF0: 20 20 20 20 42 4E 45 20 4C 4F 4F 50 32 20 3B 41 | BNE LOOP2 ;A| 00000B00: 4C 4C 45 20 42 4C 4F 43 4B 53 20 46 45 52 54 49 |LLE BLOCKS FERTI| 00000B10: 47 3F 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 |G?. LDY | 00000B20: 4D 4F 44 55 53 0D 20 20 20 20 20 20 20 20 20 43 |MODUS. C| 00000B30: 50 59 20 23 24 30 35 0D 20 20 20 20 20 20 20 20 |PY #$05. | 00000B40: 20 42 45 51 20 52 45 41 44 59 0D 20 20 20 20 20 | BEQ READY. | 00000B50: 20 20 20 20 43 50 59 20 23 24 30 33 0D 20 20 20 | CPY #$03. | 00000B60: 20 20 20 20 20 20 42 43 43 20 52 45 41 44 59 0D | BCC READY.| 00000B70: 20 20 20 20 20 20 20 20 20 42 4E 45 20 4D 34 0D | BNE M4.| 00000B80: 20 20 20 20 20 20 20 20 20 4C 44 41 20 54 45 58 | LDA TEX| 00000B90: 54 45 4E 44 33 0D 20 20 20 20 20 20 20 20 20 4C |TEND3. L| 00000BA0: 44 58 20 54 45 58 54 45 4E 44 33 2B 31 0D 20 20 |DX TEXTEND3+1. | 00000BB0: 20 20 20 20 20 20 20 4A 4D 50 20 53 45 54 45 4E | JMP SETEN| 00000BC0: 44 0D 4D 34 20 20 20 20 20 20 20 4C 44 41 20 54 |D.M4 LDA T| 00000BD0: 45 58 54 45 4E 44 34 0D 20 20 20 20 20 20 20 20 |EXTEND4. | 00000BE0: 20 4C 44 58 20 54 45 58 54 45 4E 44 34 2B 31 0D | LDX TEXTEND4+1.| 00000BF0: 53 45 54 45 4E 44 20 20 20 53 54 41 20 54 45 58 |SETEND STA TEX| 00000C00: 54 54 4F 50 0D 20 20 20 20 20 20 20 20 20 53 54 |TTOP. ST| 00000C10: 58 20 54 45 58 54 54 4F 50 2B 31 0D 52 45 41 44 |X TEXTTOP+1.READ| 00000C20: 59 20 20 20 20 52 54 53 0D 0D 54 45 58 54 45 4E |Y RTS..TEXTEN| 00000C30: 44 33 20 2E 42 59 54 45 20 24 30 30 2C 24 30 30 |D3 .BYTE $00,$00| 00000C40: 0D 54 45 58 54 45 4E 44 34 20 2E 42 59 54 45 20 |.TEXTEND4 .BYTE | 00000C50: 24 30 30 2C 24 30 30 0D 0D 3B 56 44 43 20 49 4E |$00,$00..;VDC IN| 00000C60: 20 44 45 4E 20 54 45 58 54 4D 4F 44 55 53 20 49 | DEN TEXTMODUS I| 00000C70: 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 0D 3B 4B |NITIALISIEREN.;K| 00000C80: 41 4E 4E 20 4D 49 54 20 53 59 53 35 30 38 33 20 |ANN MIT SYS5083 | 00000C90: 47 45 54 52 45 4E 4E 54 20 56 4F 4D 0D 3B 48 41 |GETRENNT VOM.;HA| 00000CA0: 55 50 54 50 52 4F 47 52 41 4D 4D 20 41 55 46 47 |UPTPROGRAMM AUFG| 00000CB0: 45 52 55 46 45 4E 20 57 45 52 44 45 4E 0D 56 44 |ERUFEN WERDEN.VD| 00000CC0: 43 49 4E 49 54 20 20 4C 44 58 20 23 24 31 39 0D |CINIT LDX #$19.| 00000CD0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 44 36 | LDA $D6| 00000CE0: 30 30 0D 20 20 20 20 20 20 20 20 20 41 4E 44 20 |00. AND | 00000CF0: 23 25 30 30 30 30 30 31 31 31 0D 20 20 20 20 20 |#%00000111. | 00000D00: 20 20 20 20 42 4E 45 20 49 34 37 20 20 3B 56 44 | BNE I47 ;VD| 00000D10: 43 2D 56 45 52 53 49 4F 4E 20 54 45 53 54 45 4E |C-VERSION TESTEN| 00000D20: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 |. LDA #$| 00000D30: 34 30 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 |40. .BYT| 00000D40: 45 20 24 32 43 0D 49 34 37 20 20 20 20 20 20 4C |E $2C.I47 L| 00000D50: 44 41 20 23 24 34 37 0D 20 20 20 20 20 20 20 20 |DA #$47. | 00000D60: 20 4A 53 52 20 57 52 49 54 45 20 3B 56 44 43 2D | JSR WRITE ;VDC-| 00000D70: 54 45 58 54 4D 4F 44 55 53 20 45 49 4E 53 43 0D |TEXTMODUS EINSC.| 00000D80: 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 44 37 | LDA $D7| 00000D90: 20 3B 34 30 2F 38 30 2D 46 4C 41 47 20 4C 41 44 | ;40/80-FLAG LAD| 00000DA0: 45 4E 0D 20 20 20 20 20 20 20 20 20 42 4D 49 20 |EN. BMI | 00000DB0: 53 43 4E 38 30 20 3B 42 49 4C 44 46 4F 52 4D 41 |SCN80 ;BILDFORMA| 00000DC0: 54 20 54 45 53 54 45 4E 0D 20 20 20 20 20 20 20 |T TESTEN. | 00000DD0: 20 20 4A 53 52 20 24 43 44 32 43 20 3B 45 53 43 | JSR $CD2C ;ESC| 00000DE0: 20 58 0D 53 43 4E 38 30 20 20 20 20 4A 53 52 20 | X.SCN80 JSR | 00000DF0: 24 43 31 34 32 20 3B 53 43 4E 43 4C 52 0D 20 20 |$C142 ;SCNCLR. | 00000E00: 20 20 20 20 20 20 20 4C 44 41 20 24 44 37 0D 20 | LDA $D7. | 00000E10: 20 20 20 20 20 20 20 20 42 4D 49 20 49 4E 49 54 | BMI INIT| 00000E20: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 43 |. JSR $C| 00000E30: 44 32 43 20 3B 45 53 43 20 58 0D 49 4E 49 54 20 |D2C ;ESC X.INIT | 00000E40: 20 20 20 20 4A 4D 50 20 24 43 45 30 43 20 3B 5A | JMP $CE0C ;Z| 00000E50: 45 49 43 48 45 4E 53 41 54 5A 20 49 4E 20 44 45 |EICHENSATZ IN DE| 00000E60: 4E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |N. | 00000E70: 20 20 20 20 20 3B 56 44 43 20 4B 4F 50 49 45 52 | ;VDC KOPIER| 00000E80: 45 4E 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 20 20 20 20 |EN.......... | 00000E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000EA0: 20 20 20 20 20 20 20 20 20 20 20 3B 53 45 49 54 | ;SEIT| 00000EB0: 45 20 33 0D 0D 52 |E 3..R |
; DER VDC ALS RAMFLOPPY.; (C)
1986 BY ILSE U. RUDOLF WOLF.. *=
$1300.INDEX = $FA;ZEIGER AUF RAMADRE
SSE.BLOCKS = $FC.VDCPAGE = $FD.MODUS
= $FE ;SIEHE BEGLEITTEXT.TEXTTOP =
$1210 ;ENDE BASIC-TEXT.READ = $CDD8
;VDC-ZUGRIFF LESEN.WRITE = $CDCC ;VD
C-ZUGRIFF SCHREIBEN..;TRANSFER AUS RAM (
BANK 0) -> VDC-RAM.;START MIT SYS4864,HI
BYTE,BLOCKS,MODUS. ;PARAMETER HO
LEN UND SETZEN.RAMVDC STA INDEX+1 ;HIB
YTE-RAMADRESSE. STX BLOCKS.
STY MODUS. LDY #$00;LO-BYTE
U. BYTEZAEHLER. STY INDEX.
LDA MODUS. CMP #$05 ; VDC-TEX
TMODUS?. BNE HIRES. JMP
TXTMODE.HIRES LDX #$19. LDA $
D600 ;VDC-VERSION TESTEN. AND #%
00000111. BNE I87. LDA #
$80. .BYTE $2C.I87 LDA #$87
. JSR WRITE ;VDC-GRAFIK EIN.TXT
MODE JSR SETADR.. ;TRANSFERSCHLE
IFE.LOOP1 LDA #$3F ;BANK 0 EINSCHALT
EN. STA $FF00. LDA (INDE
X),Y ;DATENBYTE HOLEN. PHA
;UND RETTEN. LDA #$00 ;BANK
15 EINSCHALTEN. STA $FF00.
PLA;DATENBYTE VOM STAPEL HOLEN.
LDX #$1F ;DATENREGISTER. JSR
WRITE. INY. BNE LOOP1 ;
BLOCK FERTIG?. INC INDEX+1.
DEC BLOCKS. LDX BLOCKS.
BNE LOOP1 ;ALLE BLOCKS FERTIG?.
LDA TEXTTOP. LDX TEXTTOP+1.
LDY MODUS. CPY #$04.
BEQ MODE4. STA TEXTEND3.
STX TEXTEND3+1. RTS.MODE4
STA TEXTEND4. STX TEXTEND4+1.
RTS.. ;HI-BYTE DER VDC-
ADRESSE SETZEN.SETADR LDA MODUS.
PHA. CMP #$02 ;IST ES MODUS 2
?. BEQ PAGE20. CMP #$04
. BEQ PAGE20.PAGE0 LDA #$00.
.BYTE $2C.PAGE20 LDA #$20.
STA VDCPAGE. PLA. C
MP #$05 ;IST ES MODUS 5 ?. BNE A
DRESS.CHECK80 LDA $D7. BMI ADRE
SS ;JA:80 ZEICHEN. BRK.ADRESS
LDX #$12;ADRESS-UPDATE REG.>. LD
A VDCPAGE ;VDC-RAM ADRESSE>. JSR
WRITE. INX ;ADRESS UPDATE
REG.<. LDA #$00 ;VDC-RAM ADRESSE
<. JMP WRITE...;TRANSFER AUS VDC
-RAM -> RAM (BANK 0).;START MIT SYS5000,
HIBYTE,BLOCKS.VDCRAM STA INDEX+1 ;HI-B
YTE. STX BLOCKS. STY MOD
US. ;STARTADR. FUER VDC SETZEN.
LDY #$00;LO-BYTE U. BYTEZAEHLER.
STY INDEX. TYA.
STA $FF00 ;BANK 15 EINSCHALTEN.
JSR SETADR.. ;TRANSFERSCHLEIFE.
LOOP2 JSR READ. PHA ;DATENBYT
E RETTEN. LDA #$3F ;BANK 0.
STA $FF00. PLA ;DATENBYTE VO
M STAPEL HOLEN. STA (INDEX),Y ;I
M RAM SPEICHERN. LDA #$00 ;BANK
15. STA $FF00. INY
;BYTEZAEHLER. BNE LOOP2 ;
BLOCK FERTIG?. INC INDEX+1.
DEC BLOCKS. LDX BLOCKS.
BNE LOOP2 ;ALLE BLOCKS FERTIG?.
LDY MODUS. CPY #$05.
BEQ READY. CPY #$03. BC
C READY. BNE M4. LDA TEX
TEND3. LDX TEXTEND3+1. J
MP SETEND.M4 LDA TEXTEND4.
LDX TEXTEND4+1.SETEND STA TEXTTOP.
STX TEXTTOP+1.READY RTS..TEXTEN
D3 .BYTE $00,$00.TEXTEND4 .BYTE $00,$00.
.;VDC IN DEN TEXTMODUS INITIALISIEREN.;K
ANN MIT SYS5083 GETRENNT VOM.;HAUPTPROGR
AMM AUFGERUFEN WERDEN.VDCINIT LDX #$19.
LDA $D600. AND #%000001
11. BNE I47 ;VDC-VERSION TESTEN
. LDA #$40. .BYTE $2C.I4
7 LDA #$47. JSR WRITE ;VDC-
TEXTMODUS EINSC. LDA $D7 ;40/80-
FLAG LADEN. BMI SCN80 ;BILDFORMA
T TESTEN. JSR $CD2C ;ESC X.SCN80
JSR $C142 ;SCNCLR. LDA $D7.
BMI INIT. JSR $CD2C ;ESC
X.INIT JMP $CE0C ;ZEICHENSATZ IN DE
N. ;VDC KOPIEREN......
.... ;SEIT
E 3..R
> CLICK IMAGE PREVIEW FOR FULL MODAL