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.
org $2000
DIRECTION .enum
LEFT = 0
RIGTH
.end
main
jmp start
object .local
init
mva #DIRECTION.RIGTH direction
rts
direction
dta $00
.end
start
jsr object.init
stop
jmp stop
init
; mva #DIRECTION.RIGHT direction
lda #DIRECTION.RIGHT
sta direction2
rts
direction2
dta $00
direction
dta $00
init
mva #DIRECTION.RIGTH direction
rts
org $2000
DIRECTION .enum
LEFT = 0
RIGTH
.end
main
jmp start
object .local
direction
dta $00
init
mva #DIRECTION.RIGTH direction
rts
.end
start
jsr object.init
stop
jmp stop
org $2000
DIRECTION .enum
LEFT = 0
RIGTH
.end
main
jmp start
object .local
init
mva #DIRECTION.RIGTH object.direction
rts
direction
dta $00
.end
start
jsr object.init
stop
jmp stop
org $2000
nop
lmb #1
test
lda temp
lmb #0
nop
temp
lda test
org $2000
nop
lmb #1
.local common
test
lda :common.temp
.endl
lmb #2
.local common
nop
temp
lda :common.test
.endl
Od 1 do 21 z 21