                SPTͼļɣSPTͼļĴӡ

    ǿûԵĸЧԼϵͳӿڹ淶صر
˴ӡͬʱfoxbaseĽӿڹܣʹfoxbaseͼδӡܣ
ʹǱݿϵͳɫ١
    LQ-1600KӡΪ˵:
    ͼδӡʽָʽΪ
ţӣá
ָУʾͼѡ񣬶ʾͼռõΪȷ
ԣΪΪ1
  ڴӡһַɴӡģʽ£
ӡʱΪӡĻλ,һй룬Ϊֽڣӡĳ
еڴλΪ޵ãеͼ֮ӡԶصı
ʽ¡
ΪʹͼڳͿıϱԭӦѡܶȴӡ(
ûֲҵ)
    ӡڴӡͼʱҪתɴӡģʽʾӡ
תùϵãӣУṩҷתͰתﵽĿģΪʹӡ
ϰ߻Ӧ䷴ʾ̣ΪӣУԹ涨ΪɫΪɫ
ӡΪɫΪɫ෴

                ʵ       
;sptp.asm
;˳Ϊfoxbaseһͼκ
;ʹLQ 1600K ͼδӡ
;ͼθʽ:Super Star.
;SPTͼҷת,ת90,󷴰ʾ,ɴ
;ͼ
.model tiny
.code
        org 00h
start:
        jmp bg
file    db 50 dup(0)
wth     dw 0
lenth   dw 0
handle  dw 0
mdv     db 0
hdv     db 0
npos    dw 0
buff    db 3 dup(0)
bg:
_cts proc far
        push cs
        pop es
        mov si,bx
        lea di,file
        mov cx,50
        cld
        repz movsb
;Foxbasewith 
;еõļ
        xor si,si
        push cs
        pop ds
        mov ah,3dh
        mov al,0;ֻ
        lea dx,file
        int 21h;ļ
        mov handle,ax
        ;ļ
        mov ah,42h
        mov al,0
        mov bx,handle
        xor cx,cx
        mov dx,22h
        int 21h
        ;õǰļλ
        mov ah,3fh
        mov bx,handle
        mov cx,2
        lea dx,wth
        int 21h
        ;ͼεĿ
        mov ah,42h
        mov al,0
        mov bx,handle
        xor cx,cx
        mov dx,24h
        int 21h
        ;õǰļλ
        mov ah,3fh
        mov bx,handle
        mov cx,2
        lea dx,lenth
        int 21h
        ;ͼεĸ߶
        mov ah,42h
        mov al,0
        mov bx,handle
        xor cx,cx
        mov dx,40h
        int 21h
        ;õǰļλ
        xor dx,dx
        mov ax,lenth
        mov bx,256
        div bx
        mov mdv,dl;
        mov hdv,al;
        xor dx,dx
        mov ax,wth
        mov bx,8
        div bx
        sub ax,3
        mov npos,ax;
        mov ah,1
        xor dx,dx
        int 17h
print_bytes:
        xor dx,dx
        mov ax,wth
        mov bx,24
        div bx
        mov bp,ax;
rpt:
        mov bx,lenth;
        mov ah,0
        ;DOSĴӡ
        mov al,1bh;
        xor dx,dx
        int 17h
        ;
        xor ah,ah
        mov al,2ah
        ;ͼηʽ
        int 17h
        xor ah,ah
        mov al,39
        ;趨ܶ24
        int 17h
        xor ah,ah
        mov al,mdv;()
        int 17h
        xor ah,ah
        mov al,hdv;()
        int 17h
pt:
        push bx
        mov ah,3fh
        mov bx,handle
        mov cx,3
        lea dx,buff
        ;ֽڵ
        int 21h
        mov ah,42h
        mov al,1
        mov bx,handle
        xor cx,cx
        mov dx,npos
        int 21h
        ;λ
        mov ah,0
        mov al,buff
        xor dx,dx
        int 17h
        xor ah,ah
        mov al,buff+1
        int 17h
        xor ah,ah
        mov al,buff+2
        int 17h
        pop bx
        dec bx
        jnz pt
        xor ah,ah
        mov al,1bh
        int 17h
        xor ah,ah
        mov al,4ah
        int 17h
        xor ah,ah
        mov al,24
        int 17h;
        xor ah,ah
        mov al,13
        int 17h;س
        mov ah,42h
        mov al,0
        mov bx,handle
        xor cx,cx
        mov dx,40h
        add si,3
        add dx,si
        int 21h
        ;õǰļλ
        dec bp
        jz cont2
        jmp far ptr rpt
cont2:
        mov ah,3eh
        mov bx,handle
        int 21h;رļ
        ret
_cts endp
ends
end start

     ˳sptp.comļ,ٸsptp.bin,ʹload sptp
foxbaseʹcall sptp with SPTͼļ еá
    ע⣺ʹӡ֮ǰ˺ϵͳĴӡΪ
ȡˣж϶ʹӣУͼδӡڼغϵͳ֮ǰȱ
жڵôжʱֱ˵ַɡ
