mirror of
https://github.com/vxunderground/MalwareSourceCode.git
synced 2024-12-30 06:55:27 +00:00
272 lines
7.4 KiB
NASM
272 lines
7.4 KiB
NASM
|
|
|||
|
|
title Display Registers
|
|||
|
|
page 65,131
|
|||
|
|
include struct.mac
|
|||
|
|
;
|
|||
|
|
; regdisp.asm
|
|||
|
|
;
|
|||
|
|
; Displays all the 8086 registers on the right side of the screen.
|
|||
|
|
; The registers are sampled and displayed roughly 18 times per second.
|
|||
|
|
; Toggle on and off by holding down both shift keys.
|
|||
|
|
; To use with the monochromatic monitor, DISP_BUFFER should be equated
|
|||
|
|
; to 0B000H. In addition, the code in 'outchar' that is involved in
|
|||
|
|
; waiting for horizontal retrace to write a character can be removed.
|
|||
|
|
; This program is loaded into memory and stays resident. It is activated by
|
|||
|
|
; each clock tick (about 18/sec) and is a cpu hog (at least with the
|
|||
|
|
; graphics monitor; about 40% of the cpu is consumed when using the
|
|||
|
|
; graphics monitor due mainly to the busy waits used in writing to the
|
|||
|
|
; screen).
|
|||
|
|
;
|
|||
|
|
; Installation:
|
|||
|
|
; masm regdisp;
|
|||
|
|
; link regdisp; (should get 'No STACK segment' message)
|
|||
|
|
; exe2bin regdisp
|
|||
|
|
; copy regdisp.bin regdisp.com
|
|||
|
|
;
|
|||
|
|
DISP_BUFFER equ 0B000H
|
|||
|
|
LINE_SIZE equ 19
|
|||
|
|
ON equ 049 ; 254 is alternate
|
|||
|
|
OFF equ 032 ; 250
|
|||
|
|
RED equ 4
|
|||
|
|
GREEN equ 2
|
|||
|
|
BLUE equ 1
|
|||
|
|
|
|||
|
|
xx STRUC
|
|||
|
|
s_di dw ?
|
|||
|
|
s_si dw ?
|
|||
|
|
s_es dw ?
|
|||
|
|
s_ds dw ?
|
|||
|
|
s_dx dw ?
|
|||
|
|
s_cx dw ?
|
|||
|
|
s_bx dw ?
|
|||
|
|
s_ax dw ?
|
|||
|
|
s_sp dw ?
|
|||
|
|
s_bp dw ?
|
|||
|
|
s_pc dw ?
|
|||
|
|
s_cs dw ?
|
|||
|
|
s_fl dw ?
|
|||
|
|
xx ends
|
|||
|
|
|
|||
|
|
REGOUT MACRO LINE, REG_NAME, REG_VAL, ATT
|
|||
|
|
.xlist
|
|||
|
|
mov si,offset REG_NAME
|
|||
|
|
mov di,160*LINE - LINE_SIZE*2
|
|||
|
|
mov bh,ATT
|
|||
|
|
call w_label
|
|||
|
|
mov si,offset rptr
|
|||
|
|
mov dx,REG_VAL
|
|||
|
|
call w_bits
|
|||
|
|
.list
|
|||
|
|
endm
|
|||
|
|
|
|||
|
|
ERASE MACRO LINE
|
|||
|
|
.xlist
|
|||
|
|
mov cx,LINE_SIZE
|
|||
|
|
mov di,160*LINE - LINE_SIZE*2
|
|||
|
|
rep stosw
|
|||
|
|
.list
|
|||
|
|
endm
|
|||
|
|
|
|||
|
|
abs segment at 0
|
|||
|
|
zero proc far
|
|||
|
|
zero endp
|
|||
|
|
abs ends
|
|||
|
|
|
|||
|
|
cseg segment
|
|||
|
|
org 100H
|
|||
|
|
assume cs:cseg
|
|||
|
|
assume ds:cseg
|
|||
|
|
start proc near
|
|||
|
|
jmp initial
|
|||
|
|
;
|
|||
|
|
; data block for display
|
|||
|
|
|
|||
|
|
d_fl db 'FL:'
|
|||
|
|
d_si db 'SI:'
|
|||
|
|
d_di db 'DI:'
|
|||
|
|
d_ss db 'SS:'
|
|||
|
|
d_es db 'ES:'
|
|||
|
|
d_ds db 'DS:'
|
|||
|
|
d_sp db 'SP:'
|
|||
|
|
d_bp db 'BP:'
|
|||
|
|
d_dx db 'DX:'
|
|||
|
|
d_cx db 'CX:'
|
|||
|
|
d_bx db 'BX:'
|
|||
|
|
d_ax db 'AX:'
|
|||
|
|
display_cs equ $
|
|||
|
|
db 'CS:'
|
|||
|
|
display_pc equ $
|
|||
|
|
db 'PC:'
|
|||
|
|
rptr db RED,RED,RED,RED
|
|||
|
|
db RED+GREEN,RED+GREEN,RED+GREEN,RED+GREEN
|
|||
|
|
db RED,RED,RED,RED
|
|||
|
|
db RED+GREEN,RED+GREEN,RED+GREEN,RED+GREEN
|
|||
|
|
fts db 0
|
|||
|
|
display_flag db 0
|
|||
|
|
|
|||
|
|
intr equ $
|
|||
|
|
sti
|
|||
|
|
push bp
|
|||
|
|
mov bp,sp
|
|||
|
|
add bp,8
|
|||
|
|
push bp ; contents of sp before interrupt
|
|||
|
|
push ax
|
|||
|
|
push bx
|
|||
|
|
push cx
|
|||
|
|
push dx
|
|||
|
|
push ds
|
|||
|
|
push es
|
|||
|
|
push si
|
|||
|
|
push di
|
|||
|
|
mov bp,sp
|
|||
|
|
push cs
|
|||
|
|
pop ds ; address the data
|
|||
|
|
; mov al,020H
|
|||
|
|
; out 020H,al
|
|||
|
|
cld
|
|||
|
|
mov ax,40H ; BIOS data area
|
|||
|
|
mov es,ax
|
|||
|
|
mov cx,es:[17H] ; KB_FLAG
|
|||
|
|
and cl,11B
|
|||
|
|
xor cl,11B
|
|||
|
|
.if z ; left and right shift keys pressed
|
|||
|
|
cmp fts,0
|
|||
|
|
jnz once_already
|
|||
|
|
xor display_flag,1 ; toggle the display flag
|
|||
|
|
.if nz
|
|||
|
|
call set_up
|
|||
|
|
.endif
|
|||
|
|
mov fts,1 ; set the flag
|
|||
|
|
jmp once_already
|
|||
|
|
.endif
|
|||
|
|
mov fts,0 ; reset the flag
|
|||
|
|
once_already:
|
|||
|
|
.ifs display_flag,1
|
|||
|
|
jmp exit
|
|||
|
|
.endif
|
|||
|
|
testloc equ $
|
|||
|
|
mov ax,DISP_BUFFER ; display buffer address
|
|||
|
|
mov es,ax ; setup for STOSW
|
|||
|
|
|
|||
|
|
REGOUT 1,display_pc,[bp].s_pc,BLUE
|
|||
|
|
REGOUT 2,display_cs,[bp].s_cs,BLUE+GREEN
|
|||
|
|
REGOUT 3,d_ss,ss,BLUE+GREEN
|
|||
|
|
REGOUT 4,d_es,[bp].s_es,BLUE+GREEN
|
|||
|
|
REGOUT 5,d_ds,[bp].s_ds,BLUE+GREEN
|
|||
|
|
REGOUT 6,d_sp,[bp].s_sp,RED
|
|||
|
|
REGOUT 7,d_bp,[bp].s_bp,RED
|
|||
|
|
REGOUT 8,d_si,[bp].s_si,GREEN
|
|||
|
|
REGOUT 9,d_di,[bp].s_di,GREEN
|
|||
|
|
REGOUT 10,d_ax,[bp].s_ax,BLUE+RED
|
|||
|
|
REGOUT 11,d_bx,[bp].s_bx,BLUE+RED
|
|||
|
|
REGOUT 12,d_cx,[bp].s_cx,BLUE+RED
|
|||
|
|
REGOUT 13,d_dx,[bp].s_dx,BLUE+RED
|
|||
|
|
REGOUT 14,d_fl,[bp].s_fl,BLUE
|
|||
|
|
|
|||
|
|
exit: pop di
|
|||
|
|
pop si
|
|||
|
|
pop es
|
|||
|
|
pop ds
|
|||
|
|
pop dx
|
|||
|
|
pop cx
|
|||
|
|
pop bx
|
|||
|
|
pop ax
|
|||
|
|
pop bp ;dummy
|
|||
|
|
pop bp
|
|||
|
|
jmploc: jmp zero
|
|||
|
|
;
|
|||
|
|
;
|
|||
|
|
; output character and attribute in bx to word at es:[di]. dx, ax are destroyed.
|
|||
|
|
; di is incremented by 2
|
|||
|
|
outchar:
|
|||
|
|
push dx
|
|||
|
|
mov dx,03DAH
|
|||
|
|
if disp_buffer-0b000H ; test for graphics buffer
|
|||
|
|
in al,dx
|
|||
|
|
.ifc al,8 ; if in the midst of vertical retrace, do the write
|
|||
|
|
.repeat
|
|||
|
|
in al,dx ; wait for partial horiz retrace to finish
|
|||
|
|
test al,1
|
|||
|
|
.until z
|
|||
|
|
.repeat
|
|||
|
|
in al,dx ; wait for start of horiz or vert retrace
|
|||
|
|
test al,9
|
|||
|
|
.until nz
|
|||
|
|
.endif
|
|||
|
|
endif
|
|||
|
|
mov ax,bx
|
|||
|
|
stosw
|
|||
|
|
pop dx
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
w_label:
|
|||
|
|
mov cx,3
|
|||
|
|
.repeat
|
|||
|
|
mov bl,[si]
|
|||
|
|
call outchar
|
|||
|
|
inc si
|
|||
|
|
.until loop
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
w_bits:
|
|||
|
|
mov cx,16
|
|||
|
|
.repeat
|
|||
|
|
shl dx,1
|
|||
|
|
.if c
|
|||
|
|
mov bl,ON
|
|||
|
|
.else
|
|||
|
|
mov bl,OFF
|
|||
|
|
.endif
|
|||
|
|
mov bh,[si]
|
|||
|
|
call outchar
|
|||
|
|
inc si
|
|||
|
|
.until loop
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
set_up:
|
|||
|
|
mov ax,DISP_BUFFER ; display buffer address
|
|||
|
|
mov es,ax
|
|||
|
|
mov ax,700H+' ' ; blank out display buffer
|
|||
|
|
|
|||
|
|
ERASE 1
|
|||
|
|
ERASE 2
|
|||
|
|
ERASE 3
|
|||
|
|
ERASE 4
|
|||
|
|
ERASE 5
|
|||
|
|
ERASE 6
|
|||
|
|
ERASE 7
|
|||
|
|
ERASE 8
|
|||
|
|
ERASE 9
|
|||
|
|
ERASE 10
|
|||
|
|
ERASE 11
|
|||
|
|
ERASE 12
|
|||
|
|
ERASE 13
|
|||
|
|
ERASE 14
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
initial:
|
|||
|
|
push ds
|
|||
|
|
xor ax,ax
|
|||
|
|
mov ds,ax ; address interrupt vectors
|
|||
|
|
mov si,ds:[20H] ; pickup TIMER interrupt values
|
|||
|
|
mov cx,ds:[22H]
|
|||
|
|
mov ds,cx ; entry to interrupt code
|
|||
|
|
mov bx,cs:testloc
|
|||
|
|
.if <word ptr [si+testloc-intr]> e bx
|
|||
|
|
pop ds
|
|||
|
|
int 20H ; exit
|
|||
|
|
.endif
|
|||
|
|
pop ds
|
|||
|
|
mov word ptr jmploc+1,si
|
|||
|
|
mov word ptr jmploc+3,cx
|
|||
|
|
mov dx,offset intr
|
|||
|
|
mov ax,2508H ; setup new timer call
|
|||
|
|
int 21H
|
|||
|
|
mov dx,offset initial
|
|||
|
|
int 27H ; terminal and stay resident
|
|||
|
|
start endp
|
|||
|
|
cseg ends
|
|||
|
|
end start
|
|||
|
|
|
|||
|
|
|
|||
|
|
|