Rooba
/
ReC98
mirror of https://github.com/nmlgc/ReC98.git
1
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity
ReC98/libs/BorlandC/mbjmsjis.asm

46 lines
641 B
NASM
Raw Normal View History

[Reduction] #464: mbcjmstojis "Multi-byte-character-<something>-shift-to-JIS"?
2014-09-04 17:24:14 +00:00
public __mbcjmstojis
[JWasm move] Don't use the DIST/CALLMODEL constants for procedures and labels Once you've actually found the right syntax that makes the assembler just use the default call type of the current memory model for both procedures (where it's just "PROC" without anything else) and labels (where it's "LABEL PROC"), these constants become completely unneccessary, even with TASM.
2014-11-05 17:20:02 +00:00
__mbcjmstojis proc
[Reduction] #464: mbcjmstojis "Multi-byte-character-<something>-shift-to-JIS"?
2014-09-04 17:24:14 +00:00
@@c = word ptr 2 + dPtrSize
push bp
mov bp, sp
push si
push di
mov ax, [bp+@@c]
cmp ah, 81h
jb short @@_invalid_jms
cmp ah, 0A0h
jb short @@_ok_H
cmp ah, 0E0h
jb short @@_invalid_jms
cmp ah, 0F0h
jnb short @@_invalid_jms
@@_ok_H:
cmp al, 40h
jb short @@_invalid_jms
cmp al, 0FDh
jnb short @@_invalid_jms
cmp al, 7Fh
jz short @@_invalid_jms
cmp al, 80h
adc al, 61h
jb short @@_1
sub al, 0A2h
[Maintenance] Fix any whitespace issues in our own code
2015-09-07 13:44:02 +00:00
@@_1:
[Reduction] #464: mbcjmstojis "Multi-byte-character-<something>-shift-to-JIS"?
2014-09-04 17:24:14 +00:00
rcl ah, 1
and ah, 7Fh
add ax, 1F21h
jmp short @@_rts
@@_invalid_jms:
xor ax, ax
[Maintenance] Fix any whitespace issues in our own code
2015-09-07 13:44:02 +00:00
@@_rts:
[Reduction] #464: mbcjmstojis "Multi-byte-character-<something>-shift-to-JIS"?
2014-09-04 17:24:14 +00:00
pop di
pop si
pop bp
ret
__mbcjmstojis endp