шедевр для БК0010 - фигура Лиссажу

Гражданин Maslowski выложил в канальчике Telegramm программу

.title sincos
.psect code
.=.+1000
;*********************************************
loop:
mov #11., r1
jsr r5, sincos
sin1: .word 0
cos1: .word 32000.
mov #13., r1
jsr r5, sincos
sin2: .word 0
cos2: .word 32000.
jsr pc, point
br loop
;*********************************************
sincos:
mov (r5)+, r0 ; sin
swab r0
movb r0, r0
sub r0, (r5)
mov (r5), r0 ; cos
swab r0
movb r0, r0
add r0, -(r5)
sob r1, sincos
add #4, r5
rts r5
;*********************************************
point:
mov r0, r1
mov sin1, r2
bic #177774, r0
bic #177400, r1
bic #377, r2
bis r2, r1
asr r1
asr r1
bisb tab(r0), 60040(r1)
rts pc
;*********************************************
tab: .byte 2,10,40,200
.end

скачать