#11 Article 176 Posted at 1987/06/11 04:09:40 by NOZOMU (MAP041) [PRG.NL2]
Subject: NEDI for 98+MASM ｿﾉ5
add ax,ax ;*32
mov dx,ax
add ax,ax ;*64
add ax,dx ;*96
add si,ax
mov al,[bx+si]
mov ah,0
pop si
pop dx
pop cx
pop bx
pop bp
ret 6
point endp
;--------------------------------------
;
; int logical_pset(x,y,c,logical_page)
;
; int x,y,c,*logical_page
;
;--------------------------------------
logical_pset proc near
push bp
mov bp,sp
push bx
push cx
push dx
push si
mov si,[bp+10] ;&logical_page
mov bx,[bp+6] ;y
mov cx,[bp+4] ;x
mov ax,cx ;x
add ax,ax ;*2
add ax,ax ;*4
add ax,ax ;*8
add ax,ax ;*16
add ax,ax ;*32
mov dx,ax
add ax,ax ;*64
add ax,dx ;*96
add si,ax
mov al,[bp+8] ;c
mov [bx+si],al
pop si
pop dx
pop cx
pop bx
pop bp
ret 8
logical_pset endp
;--------------------------------------
illegal_option_message db 'そんなオプション使えないっちゃ。',0dh,0ah,'$'
request_file_name db 'ファイルネームを付けるっちゃ。',0dh,0ah,'$'
error_message db '何だかエラーが起きたみたいだっちゃ。',0dh,0ah,'$'
load_message db 1bh,'[2Jロードするファイルネームを入れるっちゃ。 :','$'
save_message db 1bh,'[2Jセーブするファイルネームを入れるっちゃ。 :','$'
cls db 1bh,'[2J','$'
xp dw 0
yp dw 0
xw dw 0
yw dw 0
counter dw 0
length_ dw 0
colour dw 0
next_colour dw 0
public gray
gray db 0
pattern db 00000000b
db 00000000b
db 00000000b
db 00000000b
db 00000000b
db 00000000b
db 10001000b
db 00000000b
db 10001000b
db 00000000b
db 10001000b
db 00000000b
db 10001000b
db 00100010b
db 10001000b
db 00100010b
db 10001000b
db 00100010b
db 10101010b
db 00100010b
db 10101010b
db 00100010b
db 10101010b
db 00100010b
db 10101010b
db 01010101b
db 10101010b
db 01010101b
db 10101010b
db 01010101b
db 11101110b
db 01010101b
db 11101110b
db 01010101b
db 11101110b
db 01010101b
db 11101110b
db 10111011b
db 11101110b
db 10111011b
db 11101110b
db 10111011b
db 11111111b
db 11111111b
db 11111111b
db 11111111b
db 11111111b
db 11111111b
db 00000000b
db 00000000b
db 00000000b
db 00000000b
db 11111111b
db 11111111b
color db 00000000b
db 00000000b
db 00000000b
db 00000000b
db 00000000b
db 00000000b
db 11111111b
db 11111111b
db 00000000b
db 00000000b
db 00000000b
db 00000000b
db 00000000b
db 00000000b
db 11111111b
db 11111111b
db 00000000b
db 00000000b
db 11111111b
db 11111111b
db 11111111b
db 11111111b
db 00000000b
db 00000000b
db 00000000b
db 00000000b
db 00000000b
db 00000000b
db 11111111b
db 11111111b
db 11111111b
db 11111111b
db 00000000b
db 00000000b
db 11111111b
db 11111111b
db 00000000b
db 00000000b
db 11111111b
db 11111111b
db 11111111b
db 11111111b
db 11111111b
db 11111111b
db 11111111b
db 11111111b
db 11111111b
db 11111111b
db 10101010b
db 01010101b
db 10101010b
db 01010101b
db 10101010b
db 01010101b
logical_page db 16000 dup (0)
write_buffer label byte
read_buffer db 8000 dup (0)
file_name db 64 dup (0)
templete db 62,63 dup (0)
prog ends
end start