๐Ÿš€ go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

2 total messages Started by takeshi Thu, 18 Dec 1997 00:00
casl programing
#73
Author: 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
****************************************************
Re: casl programing
#74
Author: A.Asano
Date: Fri, 19 Dec 1997 00:00
33 lines
1945 bytes
  In article <67bcn3$ee3$1@news.twin.ne.jp>, son-yt@po.twin.ne.jp says...
   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

ไธๅ‹‰ๅผทใงใ€็”ณใ—่จณใ‚ใ‚Šใพใ›ใ‚“ใŒใ€ใ“ใ‚Œใฃใฆใ€๏ผฐ๏ผก๏ผณ๏ผฃ๏ผก๏ผฌ๏ผŸ
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads