🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

Re: prosba o pomoc z programem

#2266
From: Andrzej Brunke
Date: Tue, 01 Jun 2010 20:31
74 lines
2481 bytes
to jest program napisany na laboratoriach sprawdzil by mi ktos czy
dobrze (lab3)?

LINK L : RDM, CT

EQU AX : R0
EQU CX : R1
EQU DX : R2
EQU BX : R3

EQU i_SP : R4
EQU i_BP : R5
EQU i_SI : R6
EQU i_DI : R7

EQU s_ES : R8
EQU CS : R9
EQU s_SS : R10
EQU s_DS : R11

EQU PC : R15
EQU RR : R14

EQU X : R12
EQU Y : R13

DW FFFFAh : 6200h \ PC + 16 * CS

ACCEPT CS : FFFFh
ACCEPT PC : Ah

/*
 * odczyt
 */
odczyt
{add X, X, 0000h;}
{add Y, CS, z;}

{push NZ, 3;}
{sll Y, Y;}
{sl.25 X, X;}
{rfct;}

{add Y, Y, PC;}

{add nil, Y, Z; OEY; EWL;}
{add nil, X, Z; OEY; EWH;}

{R; add RR, BUS_D; cjp RDM, cp;}

/*
 * dekodowanie
 */
{and X, RR, ff00h;}
{xor X, X, 6200h; load RM, FLAGS;}

{cjp RM_Z, execute;}
{cjp NOT RM_Z, koniec;}

/*
 * wykonanie rozkazu
 */
execute
{and RR, 0h;}
{add PC, PC, 1;}

{and PC, PC, FFFFh; load RM, FLAGS;}
{cjp NOT RM_Z, odczyt;}
{add CS, CS, 1;}

{cjp NZ, odczyt;}

koniec
{end;}
Technical Details
Message-ID: <c116189b-3857-4273-9c37-bbc21fddd091@q13g2000vbm.googlegroups.com>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!newsfeed.straub-nv.de!feeder.news-service.com!feeder3.cambriumusenet.nl!feed.tweaknews.nl!postnews.google.com!q13g2000vbm.googlegroups.com!not-for-mail
References: <93f03454-15d3-4f46-98fb-c91b9af3e3e1@e21g2000vbl.googlegroups.com> <htrv41$9e5$1@news.onet.pl> <9d5fa37f-826d-4245-814e-7b6308b04a2a@a39g2000prb.googlegroups.com> <6ab5ed9a-601c-45cd-8a03-a5c82fd9c895@r9g2000vbk.googlegroups.com> <hu1660$pcn$3@news.onet.pl> <0fab5ded-b30e-42e8-93f9-850387a5aff0@c13g2000vbr.googlegroups.com>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!newsfeed.straub-nv.de!feeder.news-service.com!feeder3.cambriumusenet.nl!feed.tweaknews.nl!postnews.google.com!q13g2000vbm.googlegroups.com!not-for-mail
From: Andrzej Brunke <andrzej.brunke@gmail.com>
Newsgroups: pl.comp.lang.asm
Subject: Re: prosba o pomoc z programem
Date: Tue, 1 Jun 2010 13:31:36 -0700 (PDT)
Organization: http://groups.google.com
Lines: 74
Message-ID: <c116189b-3857-4273-9c37-bbc21fddd091@q13g2000vbm.googlegroups.com>
References: <93f03454-15d3-4f46-98fb-c91b9af3e3e1@e21g2000vbl.googlegroups.com>  <htrv41$9e5$1@news.onet.pl> <9d5fa37f-826d-4245-814e-7b6308b04a2a@a39g2000prb.googlegroups.com>  <6ab5ed9a-601c-45cd-8a03-a5c82fd9c895@r9g2000vbk.googlegroups.com>  <hu1660$pcn$3@news.onet.pl> <0fab5ded-b30e-42e8-93f9-850387a5aff0@c13g2000vbr.googlegroups.com>
NNTP-Posting-Host: 80.48.154.19
Mime-Version: 1.0
X-Trace: posting.google.com 1275424296 17261 127.0.0.1 (1 Jun 2010 20:31:36 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Tue, 1 Jun 2010 20:31:36 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: q13g2000vbm.googlegroups.com; posting-host=80.48.154.19;  posting-account=2jhxiwoAAAC63gBTLCNVJnb0m4JdL4UW
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US)  AppleWebKit/532.5 (KHTML, like Gecko) Chrome/4.1.249.1064  Safari/532.5,gzip(gfe)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit