home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 2 / FreeSoftwareCollection2pd199x-jp.img / kxc / ms_dos / amulet / amulet.asm next >
Assembly Source File  |  1990-06-14  |  1KB  |  77 lines
  1. ;================================================
  2. ;=　ＡＭＵＬＥＴ　ＯＦ　☆ＳＴＡＲ☆　ver 1.0   =
  3. ;=         programed by Ｋ.OKAMOTO :copy free   =
  4. ;================================================
  5. CODE    SEGMENT
  6.     ASSUME    CS:CODE,DS:CODE
  7.     ;
  8.     ORG    100H
  9.     ;
  10. START:    JMP    LOADER
  11.     ;
  12. MAIN:    MOV    AX,CS
  13.     MOV    DS,AX
  14.     MOV    DX,OFFSET MSG
  15.     MOV    AH,09H
  16.     INT    21H
  17.     ;
  18.     MOV    AX,4C01H
  19.     INT    21H
  20.     ;
  21.     IRET
  22.     ;
  23. S_VEC    DW    ?
  24.     DW    ?
  25.     ;
  26. MSG    DB    0DH,0AH
  27.     DB    '<< AMULET OF STAR ver 1.0 >>',0DH,0AH,0DH,0AH
  28.     DB    '☆あなたのＴＯＷＮＳは、暴走しました。',0DH,0AH
  29.     DB    '　　　回復を試みましたが保証はできません☆',0DH,0AH,'$'
  30.     ;
  31. LOADER:    MOV    AX,CS
  32.     MOV    DS,AX
  33.     ;
  34.     MOV    AX,3515H    ;未使用ベクトル見本をサンプリング／保存
  35.     INT    21H        ;ＩＮＴ１５は　ＣＰＵのリザ－ブ割り込み
  36.     MOV    S_VEC,BX
  37.     MOV    S_VEC+2,ES
  38.     ;
  39.     MOV    CX,0H        ;ＩＮＴ０ＨよりＩＮＴ０ＦＦＨまで・・
  40.     ;
  41. L_MAIN:    MOV    AL,CL
  42.     ;
  43.     MOV    AH,35H        ;ベクトルをサンプリング
  44.     INT    21H
  45.     ;
  46.     CMP    S_VEC,BX    ;未使用ベクトルか？
  47.     JNZ    SKIP
  48.     MOV    AX,ES
  49.     CMP    S_VEC+2,AX
  50.     JNZ    SKIP
  51.     ;
  52.     MOV    AL,CL        ;未使用ベクトルを横取りする
  53.     MOV    AH,25H
  54.     MOV    DX,OFFSET MAIN
  55.     INT    21H
  56.     ;
  57. SKIP:    CMP    CX,00FFH
  58.     JZ    OWARI
  59.     INC    CX
  60.     JMP    L_MAIN
  61.     ;
  62. OWARI:    MOV    DX,OFFSET MSG2
  63.     MOV    AH,09H
  64.     INT    21H
  65.     ;
  66.     MOV    DX,OFFSET LOADER    ;常駐終了
  67.     MOV    CL,4
  68.     SHR    DX,CL
  69.     INC    DX
  70.     MOV    AX,3100H
  71.     INT    21H
  72.     ;
  73. MSG2    DB    '☆ＯＲＡＣＬＥの御加護がありますように・・☆',0DH,0AH,'$'
  74.     ;
  75. CODE    ENDS
  76.     END    START
  77.