オラはボケちまっただあ〜
no one
近頃オラはめっきりボケちまって全然ダメだあ～。
だけど、もちっとましな頃もあったでよ。
あんた方に理解出来ろとは言わない。
あんた方に解析出来ろとは言わない。
何のために何やってるかだけでいい。
知性とコードの腕に自信のあるPGが万一いたら読んでみない？
何のために何やってるかだけでいい、わかる？
特殊知識のいるコードじゃない、ごく一般常識のコードだよ。
ひっかけじゃない、ちゃんと動いてるEXEのサブルーチンだよ。
; ? ????? ? ? ?????
; in stk_a0,a1 ?????????
; stk_a2,a3 ???????
; out stk_a4,a5 ????????
; stk_a6,a7 ?????????
; ??????? = 0 ---> c
; > 0 ---> nc
; ??????? ---> z
; not ??????? ---> nz
???_?? proc far
push si
push di
mov di,offset stk_a4
xor ax,ax
stosw
stosw
stosw
stosw
mov di,stk_a0
mov si,stk_a1
mov ax,stk_a2
mov dx,stk_a3
or dx,dx
jz _4
mov cx,32
_0: shl di,1
rcl si,1
jc _1
loop _0
jmp _5
_1: rcr si,1
rcr di,1
mov stk_a4,di
mov stk_a5,si
xor di,di
xor si,si
_2: shl stk_a4,1
rcl stk_a5,1
rcl di,1
rcl si,1
cmp si,dx
jb _3
ja @f
cmp di,ax
jb _3
@@: sub di,ax
sbb si,dx
inc stk_a4
_3: loop _2
mov stk_a6,di
mov stk_a7,si
jmp _5
_4: or ax,ax
jz _6
mov bx,ax
mov ax,si
div bx
mov stk_a5,ax
mov ax,di
div bx
mov stk_a4,ax
mov stk_a6,dx
_5: cmp stk_a6,0
ja @f
cmp stk_a7,0
@@: pop di
pop si
clc
ret
_6: pop di
pop si
stc
ret
???_?? endp