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.
odyniec1:
Kaz: no właśnie w wątku testowym udało mi się tak wstawić a tu nie (?). dzięki.;
; -------------------------------
; - tryb graficzny z programu -
; - PLAMA 256 col -
; -------------------------------
;
Graphics:MAC 1
LDX #96
LDA #12
STA 834,X
JSR 58454
LDA #3
STA 834,X
LDA #<SCRname
STA 836,X
LDA #>SCRname
STA 837,X
LDA #15
STA 840,X
LDA #12
STA 842,X
LDA #?1
STA 843,X
JSR 58454
END
;
ORG $3000
scrname:ASC "S:"
DFB 155
OPT %11000000
Scr.Adr:EQU $5010
GtiaCtl:EQU $D01B
Dliv:EQU $0200
DlPtrS:EQU $0230
nmien:EQU $D40E
wsync:EQU $D40A
;
; -- Display list
;
Dsp.List:DFB 112,112,112+128
DFB 15+64
DFW Scr.Adr
DFB 15,15,15,15,15,15,15
DFB 15,15,15,15,15,15,15,15
DFB 15,15,15,15,15,15,15,15
DFB 15,15,15,15,15,15,15,15
DFB 15,15,15,15,15,15,15,15
DFB 15,15,15,15,15,15,15,15
DFB 15,15,15,15,15,15,15,15
DFB 15,15,15,15,15,15,15,15
DFB 15,15,15,15,15,15,15,15
DFB 15,15,15,15,15,15,15,15
DFB 15,15,15,15,15,15,15,15
DFB 15,15,15,15,15,15,15,15
DFB 15,15,15,15,15,15
DFB 15+64
DFW Scr.Adr+$0FF0
DFB 15,15,15,15,15,15,15,15
DFB 15,15,15,15,15,15,15,15
DFB 15,15,15,15,15,15,15,15
DFB 15,15,15,15,15,15,15,15
DFB 15,15,15,15,15,15,15,15
DFB 15,15,15,15,15,15,15,15
DFB 15,15,15,15,15,15,15,15
DFB 15,15,15,15,15,15,15,15
DFB 15,15,15,15,15,15,15,15
DFB 15,15,15,15,15,15,15,15
DFB 15,15,15,15,15,15,15,15
DFB 15
DFB 65
DFW Dsp.List
;
; -- Wlaczenie przerwanie DL
;
run:.GRAPHICS 8
LDA #<Dsp.List
STA DlPtrS
LDA #>Dsp.List
STA DlPtrS+1
;
LDA #<DL.Int
STA Dliv
LDA #>Dl.Int
STA Dliv+1
;
LDA #192
STA Nmien
LDA #<Scr.Adr
STA 88
LDA #>Scr.Adr
STA 89
JMP *
;
; -- Procedura przerwanie DL
;
Dl.Int:PHA
TXA
PHA
LDX #194
LDA #%01000001
Loop@:DEX
BEQ Endlp
EOR #128
STA wsync
STA GtiaCtl
JMP Loop@
Endlp:LDA #1
STA GtiaCtl
PLA
TAX
PLA
RTI