home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FreeWare Collection 2
/
FreeSoftwareCollection2pd199x-jp.img
/
kxc
/
ms_dos
/
amulet
/
amulet.asm
next >
Wrap
Assembly Source File
|
1990-06-14
|
1KB
|
77 lines
;================================================
;= AMULET OF ☆STAR☆ ver 1.0 =
;= programed by K.OKAMOTO :copy free =
;================================================
CODE SEGMENT
ASSUME CS:CODE,DS:CODE
;
ORG 100H
;
START: JMP LOADER
;
MAIN: MOV AX,CS
MOV DS,AX
MOV DX,OFFSET MSG
MOV AH,09H
INT 21H
;
MOV AX,4C01H
INT 21H
;
IRET
;
S_VEC DW ?
DW ?
;
MSG DB 0DH,0AH
DB '<< AMULET OF STAR ver 1.0 >>',0DH,0AH,0DH,0AH
DB '☆あなたのTOWNSは、暴走しました。',0DH,0AH
DB ' 回復を試みましたが保証はできません☆',0DH,0AH,'$'
;
LOADER: MOV AX,CS
MOV DS,AX
;
MOV AX,3515H ;未使用ベクトル見本をサンプリング/保存
INT 21H ;INT15は CPUのリザ-ブ割り込み
MOV S_VEC,BX
MOV S_VEC+2,ES
;
MOV CX,0H ;INT0HよりINT0FFHまで・・
;
L_MAIN: MOV AL,CL
;
MOV AH,35H ;ベクトルをサンプリング
INT 21H
;
CMP S_VEC,BX ;未使用ベクトルか?
JNZ SKIP
MOV AX,ES
CMP S_VEC+2,AX
JNZ SKIP
;
MOV AL,CL ;未使用ベクトルを横取りする
MOV AH,25H
MOV DX,OFFSET MAIN
INT 21H
;
SKIP: CMP CX,00FFH
JZ OWARI
INC CX
JMP L_MAIN
;
OWARI: MOV DX,OFFSET MSG2
MOV AH,09H
INT 21H
;
MOV DX,OFFSET LOADER ;常駐終了
MOV CL,4
SHR DX,CL
INC DX
MOV AX,3100H
INT 21H
;
MSG2 DB '☆ORACLEの御加護がありますように・・☆',0DH,0AH,'$'
;
CODE ENDS
END START