Article View: fj.lang.pascal
Article #73casl programing
From: takeshi
Date: Thu, 18 Dec 1997 00:00
Date: Thu, 18 Dec 1997 00:00
49 lines
3007 bytes
3007 bytes
ๅญฆๆ กใฎ่ชฒ้กใงไปฅไธใฎใใใชCASLใใญใฐใฉใ ใไธใใใใใฎใงใใใ
ใตใใซใผใใณใINPUTใใฎใจใใใใใใใใใพใใใ2่ก็ฎใฎPUSHใง
IN1ใในใฟใใฏใซๅ
ฅใใใใฆใใใฎใงใใใใINPUTใใฎไธญใงใฏใใใ
ใฉใไฝฟใใฎใใใๅใใใพใใใใฉใชใใๅใใใพใใใงใใใใใ
[่ชฒ้ก]
(1)ๅ
ฅๅใๅใไปใใๅ
ฅๅใใใ10้ฒๆฐใ2้ฒๆฐใซๅคๆใใใตใใซใผใใณ
ใINPUTใใไฝๆใใใๅ
ฅๅใใใ10้ฒๆฐใฏ32767๏ฝ-32768ใฎ็ฏๅฒใซใใใ
(2)ใซๆฐใฎ็ฉใๆฑใใใตใใซใผใใณใMULTใใไฝๆใใใใชใผใใผใใญใผใฏ
ใใ็ก่ฆใใฆ่ฏใใ
(3)ไธใใใใ2้ฒๆฐใ10้ฒๆฐใซๅคๆใใๅบๅใใใตใใซใผใใณใOUTPUTใ
ใใใไฝๆใใใ
(4)ไธ่จ(1)ใฎใตใใซใผใใณใง2ใคใฎ2้ฒๆฐใๅ
ฅๅใใ(2)ใฎใตใใซใผใใณใง
ใใใใใใฎ็ฉใๆฑใใ(3)ใฎใตใใซใผใใณใงๅบๅใใใกใคใณใซใผใใณใฏ
ใใๆฌกใฎ้ใใงใใใใใใจๆดๅๆงใฎๅใใใตใใซใผใใณใจใใใใ
MAIN START
NEXT PUSH IN1 ๏ผๅ
ฅๅ็ตๆใๅ
ฅใใฆใใใ็ชๅฐ
CALL INPUT
POP GR0ใใใใใ๏ผในใฟใใฏใฎใดใๆ้คใใใใใ
LEA GR1,0
CPA GR1,IN1
JZE FINใใใใใใ๏ผๆๅใฎๅ
ฅๅใ๏ผใชใ็ตไบ
PUSH IN2ใใใใใใ๏ผๅ
ฅๅ็ตๆใๅ
ฅใใฆใใใ็ชๅฐ
CALL INPUT
POP GR0ใใใใใ๏ผในใฟใใฏใฎใดใๆ้คใใใใใใ
LD GR1,IN1
PUSH 0,GR1ใใใใ๏ผ่ขซไนๆฐใในใฟใใฏใธ
LD GR1,IN2ใใใ
PUSH 0,GR1ใใใใ๏ผไนๆฐใในใฟใใฏใธ
PUSH PRODใใใใ๏ผไน็ฎ็ตๆใๆ ผ็ดใใฆใใใ็ชๅฐ
CALL MULT
POP GR0ใใใใใ๏ผในใฟใใฏใฎใดใๆ้คใใใใใใใใ
POP GR0ใใใใใ๏ผในใฟใใฏใฎใดใๆ้คใใใใใ
POP GR0ใใใใใ๏ผในใฟใใฏใฎใดใๆ้คใใใใใ
LD GR1,PROD
PUSH 0,GR1ใใใใ๏ผๅบๅใใใใผใฟใในใฟใใฏใธ
CALL OUTPUT
POP GR0ใใใใใใ๏ผในใฟใใฏใฎใดใๆ้คใใใใใ
JMP NEXT
FIN EXIT
IN1 DS 1
IN2 DS 1
PROD DS 1
END
*******************************************************************
ๅคง้ชๅคงๅญฆๅบ็คๅทฅๅญฆ้จๆ
ๅ ฑ็งๅญฆ็ง
ๅๅทๆญฆๅฟ
son-yt@po.twin.ne.jp
****************************************************
Technical Details
Message-ID:
<67bcn3$ee3$1@news.twin.ne.jp>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailShow Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS X-Google-Thread: ff90a,1e206960117e9f0c,start X-Google-Attributes: gidff90a,public From: "takeshi" <son-yt@po.twin.ne.jp> Subject: casl programing Date: 1997/12/18 Message-ID: <67bcn3$ee3$1@news.twin.ne.jp> X-Deja-AN: 299346500 Content-Transfer-Encoding: 7bit Mime-Version: 1.0 Content-Type: text/plain; charset="iso-2022-jp" X-MimeOLE: Produced By Microsoft MimeOLE V4.71.1712.3 Organization: Twin Internet(Kinki Computer Consultant Co.,Ltd.) Newsgroups: fj.lang.pascal