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.
tya ;#0
org $2000
clc
scc:adw $1ff0 #10
rts
2000 18 CLC
2001 90 0b BCC $200e
2003 18 CLC
2004 ad f0 1f LDA $1ff0
2007 69 0a ADC #$0a
2009 8d f0 1f STA $1ff0
200c 90 03 BCC $2011
200e ee f1 1f INC $1ff1
2011 60 RTS
org $2000
clc
adw $1ff0 #10
rcc
rts
2000 18 CLC
2001 18 CLC
2002 ad f0 1f LDA $1ff0
2005 69 0a ADC #$0a
2007 8d f0 1f STA $1ff0
200a 90 03 BCC $200f
200c ee f1 1f INC $1ff1
200f 90 fb BCC $200c
2011 60 RTS
org $2000
clc
scc:adw $1ff0 #10 $1ff0
rts
2000 18 CLC
2001 90 11 BCC $2014
2003 18 CLC
2004 ad f0 1f LDA $1ff0
2007 69 0a ADC #$0a
2009 8d f0 1f STA $1ff0
200c ad f1 1f LDA $1ff1
200f 69 00 ADC #$00
2011 8d f1 1f STA $1ff1
2014 60 RTS
--- 5804,5823 ----
zm:='SCC';
hlp:=asm_mnemo(zm,old);
addResult(hlp, Result);
! {test_skipa;
! }
if mnemo[1]='S' then
zm:='DEC ' + tmp + '+1'
else
zm:='INC ' + tmp + '+1';
hlp:=asm_mnemo(zm,old);
+ test_skipa;
+
addResult(hlp, Result);
end else begin
if opty then begin
muffy:
Tak sobie myślę że przydałby się taki tutorial jak "ABC MADS'a" w stylu "Poradnika Programisy Atari" :).proc process_logic
is_on_map #$3030 #$3330
cpx #1
bne @+
process_logic_M0003
rts
@ write_action_name #A_CLEAR
rts
.endp
.proc synchro
lda COLPM2
cmp #1
bne synchr1
; PAL
lda #$90
jmp synchr2
synchr1 ; NTSC
lda #$7c
synchr2 cmp VCOUNT
bne synchr2
rts
.endp
.proc delay
ldy #30
@ synchro
dey
cpy #0
bne @-
rts
.endp
lda #0
jmp xxx
xxx: bne yyy
ldx #1
lda #0
stx gdzies
beq xxy
.array ndl 3 .byte
1, 2, 3
.enda
.array ndl [3] .byte
1, 2, 3
.enda
.segdef cart $8000 $4000
.segment cart
org $a000
qqq
lda 20
sta $d01a
cmp 20
beq *-2
jmp qqq
org $b000
rts
org $bffa
dta a($b000),0,%00000100,a($a000)
.endseg
mads cart.asm -o:cart.bin
opt f+
cart.asm (23) ERROR: Can't fill from higher ($C000) to lower memory location ($0000)
opt f+h-
.segdef cartridge $8000 $4000
.segment cartridge
org $a000
qqq
lda 20
sta $d01a
cmp 20
beq *-2
jmp qqq
org $b000
rts
org $bffa
dta a($b000),0,%00000100,a($a000)
.endseg
end
mads cart.asm -o:cart.bin -l:cart.lst
org $0000
cart.asm (24) ERROR: Can't fill from higher ($C000) to lower memory location ($0000)
.link 'blok.obx'
2000: A5 80 LDA $80
2002: D0 02 BNE $2006
2004: C6 81 DEC $81
2006: C6 80 DEC $80
2008: 00 BRK
dec licznik
bne gdzieś
dec licznik+1
bne gdzieś