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.
LDX #$15
LOOP:
LDA $0400,X
NOP $4C96,X
EOR $80,X
NOP #$4C
STA $0400,X
INX
BPL LOOP
; Get pulse
GETPULSE ldx #0
lda #16
GPULSE1 bit SKSTAT
beq GPULSE1
sta COLBK
GPULSE2 inx
bit SKSTAT
bne GPULSE2
lsr A
sta COLBK
rts
...
; Get bytes of data
GETBYTES jsr GETPULSE ; Go get pulse
cpx #20
bcs GETBYTES ; Still pilot tone, continue
cpx #8
bcc GB_EXIT ; Too narrow - exit
GB_NBYTE ldy #8 ; Init bit counter
lda #0 ; Init work byte
GB_NBIT pha ; Stack work byte
jsr GETPULSE ; Go get pulse
pla ; Unstack work byte
cpx #8
bcc GB_EXIT ; Too narrow - exit
cpx #43
bcs GB_EXIT ; Too wide - exit
cpx #20 ; Determine 0 or 1
ror A ; Place bit into work byte
dey ; Decrement bit counter
beq GB_BTOBUF ; If byte complete, go place to buffer
ldx #6 ; Delay
Od 1 do 38 z 38