Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.
Vanilla 1.1.4 jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.
BYTE WSYNC=$D40A
WSYNC=1
LDA #1
STA $D40A
BYTE A, COLBAK=$D01A, WSYNC=$D40A
A=1
COLBAK=A
WSYNC=A
BYTE COLBAK=$D01A, WSYNC=$D40A
COLBAK=1
WSYNC=1
SET $E=$2000
SET $491=$2000
PROC MAIN()
BYTE A, COLBAK=$D01A, WSYNC=$D40A
A=1
COLBAK=A
WSYNC=A
RETURN
;-------------------------------------------------------------------
2000: 00 BRK
2001: 4C 04 20 JMP $2004
2004: A0 01 LDY #$01
2006: 8C 00 20 STY $2000
2009: AD 00 20 LDA $2000
200C: 8D 1A D0 STA $D01A ;COLBK
200F: AD 00 20 LDA $2000
2012: 8D 0A D4 STA $D40A ;WSYNC
2015: 60 RTS
SET $E=$2000
SET $491=$2000
PROC MAIN()
BYTE COLBAK=$D01A, WSYNC=$D40A
COLBAK=1
WSYNC=1
RETURN
;-------------------------------------------------------------------
2000: 4C 03 20 JMP $2003
2003: A0 01 LDY #$01
2005: 8C 1A D0 STY $D01A ;COLBK
2008: 8C 0A D4 STY $D40A ;WSYNC
200B: 60 RTS
INCLUDE "D1:IOSTUFF.ACT"
SET $E=$2000
SET $491=$2000
DEFINE
RTI="$40",PHA="$48",PLA="$68",STA="$8D",LDAI="$A9"
; 48 PHA
; A9 DE LDA #$DE
; 8D 0A D4 STA $D40A ;WSYNC
; 8D 18 D0 STA $D018 ;COLPF2
; 68 PLA
; 40 RTI
BYTE ARRAY
DL=[
$70$70$70
$42$00$40 2 2 2 2 $F0 2 2 2 2 2
$70$70$70
$41$00$20
],
DLI=[PHA LDAI $DE STA $0A $D4 STA $18 $D0 PLA RTI]
BYTE
CH=$2FC,
NMIEN=$D40E
CARD
VDSLST=$200,
SDLSTL=$230
PROC MAIN()
SDLSTL=DL
VDSLST=DLI
NMIEN=$C0
WHILE CH=$FF DO OD
GRAPHICS(0)
RETURN
tdc 2 Aug 2012:
No jak już robić to dobrze i ładnie, a ja teraz niestety odpadam.Zbuti:
@tdc dokończysz sprawę po 8 latach?Księga Ulicy XIII:
Nieważne co piszą, byleby nie przekręcili kswywki.MADRAFi:
4. Kod zrodlowy jest chaotyczny, zawiera nikle komentarze nie tlumaczace zmiennych.MADRAFI:
Ja wprowadzam w blad? Gdzie i kiedy?MADRAFI:
PS. Skoro robisz kurs dla poczatkujacych to spodziewaj sie ze beda pytania na ktore odpowiadales juz wielokrotnie.MADRAFI:
Dalem do porownania kopd napisany przez zbyti vs twoj kod z ostatniej lekcji. Kazdy moze sobie ocenic go sam.DEFINE SaveTemps=[
$A2 $07 ; LDX #7
$B5 $C0 ; LOOP LDA $C0,X
$48 ; PHA
$B5 $A0 ; LDA $A0,X
$48 ; PHA
$B5 $80 ; LDA $80,X
$48 ; PHA
$B5 $A8 ; LDA $A8,X
$48 ; PHA
$CA ; DEX
$10 $F1 ; BPL LOOP
$A5 $D3 ; LDA $D3
$48 ; PHA
]
DEFINE GetTemps=[
$68 ; PLA
$85 $D3 ; STA $D3
$A2 $00 ; LDX #0
$68 ; LOOP PLA
$95 $A8 ; STA $A8,X
$68 ; PLA
$95 $80 ; STA $80,X
$68 ; PLA
$95 $A0 ; STA $A0,X
$68 ; PLA
$95 $C0 ; STA $C0,X
$E8 ; INX
$E0 $08 ; CPX #8
$D0 $EF ; BNE LOOP
]"