Thread View: fj.lang.pascal
2 messages
2 total messages
Started by takeshi
Thu, 18 Dec 1997 00:00
casl programing
Author: 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
****************************************************
Re: casl programing
Author: A.Asano
Date: Fri, 19 Dec 1997 00:00
Date: Fri, 19 Dec 1997 00:00
33 lines
1945 bytes
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