๐Ÿš€ go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.pascal
Article #73

casl programing

#73
From: takeshi
Date: Thu, 18 Dec 1997 00:00
49 lines
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-mail

Show 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