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 $1000
ldy $d40b
bne *-3
loop tya
jsr parS
lda #0
ror @
sta ($58),y
iny
bne loop
loop2
lda #32
and $14
cmp #1
lda $022f
and #$fc
adc #1
sta $d400
bcc loop2
parS ldx #-1 ;0
;parS dta {ldx #}
par1 inx
par2 lsr @ ;asl @
bcs par1
bne par2
txa
lsr @
rts
par1 asl @
parS asl @
beq ret
dta {beq}
par2 asl @
bcc par2
bmi par1
beq ret
asl @
eor #$80
bne par2
ret rts
eor #$40
bne par2
clc
reg equ $ff
parS sta reg
:4 asl @
eor reg
sta reg
:2 asl @
eor reg
sta reg
asl @
eor reg
asl @
rts
reg equ $ff
parS sta reg
lda #0
par1 eor reg
asl reg
bne par1
asl @
rts
subvar10 equ 0
v equ $ff
parS
parity cmp #0
beq endp
IFT subvar10>1
bpl plus
sbc #$80
beq endp+1
dta {ldx #}
EIF
plus dta {ldx #} ; #0
inx
ploop inx
sta v
sbc #1
and v
bne ploop
txa
endp lsr @
rts
sta p
asl
eor p
and #b10101010
adc #b01100110
and #b10001000
adc #b01111000
p equ $ff
parS sta p
asl
eor p
and #%10101010
adc #%01100110
and #%10001000
adc #%01111000
rts
v equ $ff
parS
parity
tax
lsr @
beq endp+2
sec
ploop inx
sta v
sbc #1
and v
bne ploop
endp txa
lsr @
rts
Od 1 do 33 z 33