🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.asm
Article #488

problem z przerwaniem 1ch

#488
From: KRUKERSradek
Date: Fri, 04 Aug 2006 22:47
92 lines
2402 bytes
Napisałem program który co jakiś czas ma wyświetlać wiadomość.Niewiem co
jest zle bo wcale tego nie robi.
Prosze o odpowiedz (proszę w odpowiedzi wysłać poprawiony cały kod i
wyjaśnienie, jeśli można)
program pisany pod asemblera tasm.



.MODEL SMALL
.STACK 256
.DATA

OLD_ADRES DD 00000000
LICZNIK DW 0000
BYTE_TIMER DB 00
MESSAGE DB 'MESSAGE','$'

.CODE

START:
 .386
 MOV AX,@DATA
 MOV DS,AX
 CALL INSTALL_TIMER

MAIN:
         CALL DELAY
         JMP MAIN


TIMER:
         CLI
         INC LICZNIK
         CMP LICZNIK,10
         JE  TIMER00
         JMP TIMER_RETURN
TIMER00:
         MOV BYTE_TIMER,01
         MOV LICZNIK,0000
         JMP TIMER_RETURN
TIMER_RETURN:
         STI
         IRET




DELAY PROC NEAR
DELAY_GO:
         CMP BYTE_TIMER,01
         JE  DELAY_RETURN
         JMP DELAY_GO
DELAY_RETURN:
         MOV BYTE_TIMER,00
         MOV AX,0900H
         LEA DX,MESSAGE
         INT 21H
         RET
DELAY ENDP




INSTALL_TIMER PROC NEAR

         MOV AX,351CH
         INT 21H
         MOV WORD PTR OLD_ADRES,BX
         MOV WORD PTR OLD_ADRES+2,ES

         MOV AX,251CH
         LEA DX,TIMER
         PUSH DS
         PUSH CS
         POP DS
         INT 21H
         POP DS
         RET
INSTALL_TIMER ENDP


UNINSTALL_TIMER PROC NEAR

         PUSH DS
         MOV AX,251CH
         LDS DX,OLD_ADRES
         INT 21H
         POP DS
         RET
UNINSTALL_TIMER ENDP

END START
Technical Details
Message-ID: <eb0iua$3dn$1@nemesis.news.tpi.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.nask.pl!news.nask.org.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.nask.pl!news.nask.org.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail
From: "KRUKERSradek" <krukersradek@wytnijto.o2.pl>
Newsgroups: pl.comp.lang.asm
Subject: problem z przerwaniem 1ch
Date: Sat, 5 Aug 2006 00:47:14 +0200
Organization: tp.internet - http://www.tpi.pl/
Lines: 95
Message-ID: <eb0iua$3dn$1@nemesis.news.tpi.pl>
NNTP-Posting-Host: bcz122.neoplus.adsl.tpnet.pl
X-Trace: nemesis.news.tpi.pl 1154731786 3511 83.27.241.122 (4 Aug 2006 22:49:46 GMT)
X-Complaints-To: usenet@tpi.pl
NNTP-Posting-Date: Fri, 4 Aug 2006 22:49:46 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit