[情報] 明天微處理機作業...

[Echanandy (遇見..心動..心痛..)]

.MODEL TINY
.CODE
.STARTUP
JMP SETUP

RNAME DB 'AX = ','BX = ','CX = ','DX = '
      DB 'SP = ','BP = ','SI = ','DI = '
      DB 'IP = ','FL = ','CS = ','DS = '
      DB 'ES = ','SS = '
INT40ADD DD ?
INT41ADD DD ?
INT01ADD DD ?
;11111111111111111111111
tron proc far
  push ax
  push bp
  mov bp,sp
  mov ax,[bp+8]
  or ah,01h
  mov [bp+8],ax
  pop bp
  pop ax
iret
tron endp
;11111111111111111111111111


;22222222222222222222222222
troff proc far
  push ax
  push bp
  mov bp,sp
  mov ax,[bp+8]
  and ah,0feh
  mov [bp+8],ax
  pop bp
  pop ax
iret
troff endp
;22222222222222222222222222

;33333333333333333333333333
DISP MACRO PAR1
  PUSH AX
  PUSH DX
  MOV DL,PAR1
  MOV AH,6
  INT 21H
  POP DX
  POP AX
  ENDM

CRLF MACRO
  DISP 13
  DISP 10
  ENDM
;///////////////////////


TRACE PROC FAR
  MOV BX,OFFSET RNAME
  CRLF
  CALL DREG
  POP AX
  PUSH AX
  CALL DREG
  mov ax,cx
  call dreg
  mov ax,dx
  call dreg
  mov ax,sp
  add ax,12
  call dreg
  mov ax,bp
  call dreg
  mov ax,si
  call dreg
  mov ax,di
  call dreg
  mov bp,sp
  mov ax,[bp]
  call dreg
  mov ax,[bp+4]
  call dreg
  mov ax,[bp+2]
  call dreg
  mov ax,ds
  call dreg
  mov ax,es
  call dreg
  mov ax,ss
  call dreg
  IRET
TRACE ENDP

dreg proc near uses cx
  mov cx,5
dreg1:
  disp cs:[bx]
  inc bx
  loop dreg1
  mov cx,4
dreg2:
  rol ax,1
  rol ax,1
  rol ax,1
  rol ax,1
  push ax
  and al,0fh
  .if al > 9
  add al,7
  .endif
  add al,30h
  disp al
  pop ax
  loop dreg2
  disp ' '
  ret
dreg endp


setup:
;****************************
  mov ax,cs
  mov ds,ax
  mov ax,3540h                 ;get int 40h address
  int 21h
  mov word ptr INT40ADD,BX
  mov word ptr INT40ADD+2,ES
;****************************

;****************************
  mov ax,3541h                 ;get int 41h address
  int 21h
  mov word ptr INT41ADD,BX
  mov word ptr INT41ADD+2,ES
;****************************
;****************************
  mov ax,3501h                 ;get int 01H address
  int 21h
  mov word ptr INT01ADD,BX
  mov word ptr INT01ADD+2,ES
;****************************
;////////////////////////////
;int 40h tron start address
  mov ax,2540h
  mov dx,offset TRON
  int 21h
;////////////////////////////
;////////////////////////////
;int 40h tron start address
  mov ax,2541h
  mov dx,offset TROFF
  int 21h
;////////////////////////////
;////////////////////////////
;int 40h tron start address
  mov ax,2501h
  mov dx,offset TRACE
  int 21h
;////////////////////////////
;  mov ax,3100h
;  mov dx,offset setup
;  shr dx,1
;  shr dx,1
;  shr dx,1
;  shr dx,1
;  inc dx
;  int 21h
;***************************
  INT 40H
  MOV AX,1
  MOV AX,2
  MOV AX,3
  MOV AX,4
  INT 41H
  INT 1H
  MOV AH,4CH
  INT 21H
  END

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 163.13.65.226
→ Aming91:應該是原本的那一個吧?!
→ Echanandy:是
→ Aming91:賞你個大M吧..哈哈..
→ Echanandy:感恩喔...