064
Heute, 19:24 Uhr
DL
Default Group and Edit
|
Da die V0.7.1 jetzt offiziell raus ist und die Zusammenstellung im One Rom Web nun einfach zu händeln ist hier mal mein kurzes Testprogramm für den KC87 und das Kombimodul (hab leider vergessen wie das mit dem Programmkopf ging)
| Quellcode: | .z80 ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - bank equ 0c000h ;ROM Bank Adresse ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - org 1000h ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - slot: ld de, txt ld c, 9 ;Textausgabe call 5 ;BOS aufruf inkey: ld c, 1 ;CONSI Eingabe eines Zeichens von CONST call 5 ;BOS aufruf cp 30h jr c, inkey cp 33h jr nc, inkey ld e, a ;Echo der Eingabe ld c, 2 ;CONSO Zeichenausgabe call 5 ;BOS aufruf and 3 ;uns interessiert nur 0 - 3 ld hl, bank ;Bankadresse laden ld l, a ;slot hinzu ld a, 0 ;bank 0 out 75h, a ;setzen di ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - reset: ;rbcp reset sequenz ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ld b, 14 ;Kurzversion vom Reset res1: ld a, (bank + 0aah) djnz res1 call pause ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - knock: ;die rbcp Knock sequenz ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ld a, (bank + '!') ld a, (bank + 'R') ld a, (bank + 'B') ld a, (bank + 'C') ld a, (bank + 'P') ld a, (bank + '!') call pause ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - selslot: ;Auswahl des aktiven flash slot nr in hl ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ld a, (bank + 02h) ;Gruppe 2 ld a, (bank + 02h) ;load slot aus rom in ram ld a, (bank + 00h) ;ramslot ld a, (hl) ;romslot aus eingabe call pause fin:ei ret ;... ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - pause: ;Päuschen, muß auch sein ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ld bc, 800h ; evtl noch optimieren? count4: ; 800h etwa 21ms dec bc ld a, b or c jr nz, count4 ret ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - txt:db "Slot:", 0 ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - .end
|
Man kann drei 512k Roms in ein Fire 32 flashen und mit dem Programm über das RBCP umschalten, d.h. es braucht dafür keine Jumper mehr. Das System in den drei ROMS sollte jeweils gleich sein, da live umgeschalten wird. Dieser Beitrag wurde am 09.08.2026 um 19:29 Uhr von DL editiert. |