您当前位置: 圣才学习网首页 >> IT类 >> 编程技术库

DOS汇编源码系列教程——basload

扫码手机阅读
用圣才电子书APP或微信扫一扫,在手机上阅读本文,也可分享给你的朋友。
评论(0
来源:网络 作者:未知
这个都是过去DOS时代的汇编源码,虽然已经过去了,但是对于学习汇编还是有帮助的,汇编语言只是程序员一门基础语言,大多人掌握即可,不一定要深入研究.......
      PAGE  ,132
      TITLE  CALC
CGROUP      GROUP  CODESEG
CODESEG    SEGMENT PARA PUBLIC 'CODE'
      ASSUME CS:CGROUP,DS:CGROUP,ES:CGROUP
      PUBLIC CALC
      ORG   100H
CALC      PROC  FAR
      JMP   START
;---------------------------------------------------------------------;
;                   ;
;         DATA AREA           ;
;                   ;
;---------------------------------------------------------------------;
      DB   'INTERRUPT NUMBER ='
INT_NUMBER   DB   61h
SCREEN_HANDLE DW   0001h
MESSAGE    DB   'PEMATH is not resident',13,10
MESSAGE_LEN  EQU   $-MESSAGE
TAG      DB   'PEMATH'
TAG_LEN    EQU   $-TAG
;---------------------------------------------------------------------;
;                   ;
;         CODE AREA           ;
;                   ;
;---------------------------------------------------------------------;
START:
;---------------------------------------------------------------------;
;  TEST FOR PRESENCE OF CALCULATOR           ;
;---------------------------------------------------------------------;
      SUB   AX,AX
      MOV   ES,AX
      SUB   BH,BH
      MOV   BL,INT_NUMBER
      SHL   BX,1
      SHL   BX,1
      MOV   DI,ES:[BX]
      MOV   ES,ES:[BX+2]
      ADD   DI,4
      LEA   SI,TAG
      MOV   CX,TAG_LEN
   REPE CMPSB
      JE   CALL_CALC
      MOV   BX,SCREEN_HANDLE
      MOV   CX,MESSAGE_LEN
      LEA   DX,MESSAGE
      MOV   AH,40h
      INT   21h
      JMP   SHORT CALC_EXIT
;---------------------------------------------------------------------;
;  CALL CALCULATOR               ;
;---------------------------------------------------------------------;
CALL_CALC:
      MOV   AL,INT_NUMBER
      MOV   BYTE PTR INT_CODE,AL
      DB   0CDh   ; INT
INT_CODE:
      DB   00h
      NOP
      NOP
CALC_EXIT:
      INT   20h
CALC      ENDP
CODESEG    ENDS
      END   CALC
 

小编工资已与此挂钩!一一分钱!求打赏↓ ↓ ↓

如果你喜欢本文章,请赐赏:

已赐赏的人
最新评论(共0条)评论一句