run, Assembly - rextester

run

;nasm 2.11.08

.MODEL TINY
.CODE
ORG 100H
START:JMP INIT

TEMPAX DW ?
TEMPBX DW ?
TEMPCX DW ?
TEMPDX DW ?
TEMPSI DW ?
TEMPDI DW ?
TEMPDS DW ?
TEMPES DW ?
SAVEINT08 DD ?

MYINT08: MOV CS:TEMPAX,AX
MOV CS:TEMPBX,BX
MOV CS:TEMPCX,CX
MOV CS:TEMPDX,DX
MOV CS:TEMPSI,SI
MOV CS:TEMPDI,DI
MOV CS:TEMPDS,DS
MOV CS:TEMPES,ES

MOV AH,02H
INT 1AH
MOV AX,0B800H
MOV ES,AX

MOV DI,3984
MOV BL,02
UP1:
  ROL CH,1
  ROL CH,1
  ROL CH,1
  ROL CH,1

MOV AL,CH
AND AL,0FH
ADD AL,30H
MOV AH,17H
MOV ES:[DI],AX
INC DI
INC DI
DEC BL
JNZ UP1

MOV AL,':'
MOV AH,94H
MOV ES:[DI],AX

INC DI
INC DI

MOV BL,02
UP2:
 ROL CL,1
ROL CL,1
ROL CL,1
ROL CL,1
MOV AL,CL
AND AL,0FH
ADD AL,30H
MOV AH,17H
MOV ES:[DI],AX
INC DI
INC DI
DEC BL
JNZ UP2

MOV AL,':'
MOV AH,94H
MOV ES:[DI],AX

INC DI
INC DI

MOV BL,02
UP3:
 ROL DH,1
 ROL DH,1
 ROL DH,1
 ROL DH,1

MOV AL,DH
AND AL,0FH
ADD AL,30H
MOV AH,17H
MOV ES:[DI],AX
INC DI
INC DI
DEC BL
JNZ UP3

MOV AX,CS:TEMPAX
MOV BX,CS:TEMPBX
MOV CX,CS:TEMPCX
MOV DX,CS:TEMPDX
MOV SI,CS:TEMPSI
MOV DI,CS:TEMPDI
MOV DS,CS:TEMPDS
MOV ES,CS:TEMPES

JMP CS:SAVEINT08
INIT:
MOV AH,35H
MOV AL,08H
INT 21H

MOV WORD PTR SAVEINT08,BX
MOV WORD PTR SAVEINT08+2,ES
MOV AH,25H
MOV AL,08H
LEA DX,MYINT08
INT 21H

MOV AH,31H
LEA DX,INIT
INT 21H
END START


run \| edit \| history \| help	0