aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-02-27 18:35:13 -05:00
parent 8e4e15fa56
commit 72eb4943cb
1853 changed files with 35514 additions and 9441 deletions
Download patch file Download diff file Expand all files Collapse all files

155
Task/Execute-Computer-Zero/M2000-Interpreter/execute-computer-zero.m2000 Normal file
View file

@ -0,0 +1,155 @@
module Execute_Computer_Zero{
global byte MEM[31]=0XFF, PC=0
module ZERO (program$, f=-2, showrun, skipreadcode){
Enum Commands {
NOP=0X0, LDA=0X20, STA=0X40, ADD=0X60, SUB=0X80, BRZ=0XA0, JMP=0XC0, STP=0XE0
}
if skipreadcode then goto cont1
PC<=0
dim code$()
var crlf=chr$(13)+chr$(10) ' CRLF
var prname$="Program #1"
program$=replace$(chr$(9)," ", program$)
program$=replace$(",",crlf, program$)
program$=ucase$(filter$(program$, "()."))
code$()=piece$(program$, crlf)
document source$
for I=0 to len(code$())-1
tok$=trim$(LeftPart$(trim$(code$(I))+" ", " "))
part$=trim$(RightPart$(trim$(code$(I))+" 0", " "))
val=val(part$) MOD 32
ch$=left$(tok$,1)
c=0
if ch$="#" then
prname$=mid$(trim$(code$(I)), 2)
continue
end if
tok$=filter$(tok$, "+-_x!@#$%^&*/|><")
if ch$>="0" and ch$<="9" then
val=int(val(tok$)) mod 256
source$ =" "+hex$(PC, 1)+" "+hex$(val,1)+crlf
else.if tok$="" then
continue
else.if valid(eval(tok$)) then
c=eval(tok$)
source$ =" "+hex$(PC, 1)+" "+tok$+" "+hex$(val,1)+crlf
end if
MEM[PC]<=c+VAL
PC++
next
Print #f, "Program Name:";prname$
Print #f, source$;
Print #f, "Program Length ";PC;"bytes"
PC<=0
cont1:
byte A=0, ADDR=0
structure Accumulator {
{ A as Byte, Overflow as Byte
}
R as Integer
}
Accumulator AC
CM=STP
if showrun then Print #f, "PC MEM COM ADDR AC"
do
if inkey$=" " then Print "Break": exit
A=MEM[PC]
ADDR=A MOD 32
CM=A-ADDR
if showrun then Print #f, Hex$(PC,1);" ";hex$(A,1);" ";EVAL$(CM);" ";hex$(ADDR, 1);" ";Hex$(AC|A, 1)
select case CM
case NOP
PC++ : PC|MOD 32
case LDA
AC|R=MEM[ADDR]:PC++ : PC|MOD 32
case STA
MEM[ADDR]<=AC|A : PC++ : PC|MOD 32
case ADD
AC|R=AC|R+MEM[ADDR]:PC++ : PC|MOD 32
case SUB
AC|R=uint(AC|R-MEM[ADDR]): PC++ : PC|MOD 32
case BRZ
{
if AC|A then
PC++ : PC|MOD 32
if showrun then Print #f, "NON ZERO - CONTINUE"
else
PC<=A MOD 32
if showrun then Print #f, "BRANCH TO ";PC
end if
}
case JMP
PC<=A MOD 32:if showrun then Print #f, "JUMP TO ";PC
case STP
exit
end select
always
if skipreadcode else
Print #f, "STOP AT ";hex$(PC,1)
Print #f, "RESULT:";AC|A;"|0x";hex$(AC|A, 1)
Print #f, "NEGATIVE:"; IF$(AC|A>126->"1","0")
Print #f, "OVERFLOW:"; IF$(AC|Overflow>0->"1","0")
Print #f
end if
}
Flush
Data {
#add 2
LDA 3, ADD 4, STP 0, 2, 2
}
Data {#fibonacci
LDA 14, STA 15, ADD 13, STA 14,
LDA 15, STA 13, LDA 16, SUB 17,
BRZ 11, STA 16, JMP 0, LDA 14,
STP 0, 1, 1, 0 , 8, 1
}
Data {#8*7
LDA 12, ADD 10, STA 12, LDA 11, SUB 13,
STA 11, BRZ 8, JMP 0, LDA 12, STP 0,
8, 7, 0, 1
}
Data {#linkedList
LDA 13, ADD 15, STA 5, ADD 16, STA 7, NOP 0, STA 14, NOP 0
, BRZ 11, STA 15, JMP 0, LDA 14, STP 0, LDA 0, 0, 28
, 1, 0, 0, 0, 6, 0, 2, 26
, 5, 20, 3, 30, 1, 22, 4, 24
}
Data { #0-255
LDA 3, SUB 4, STP 0, 0, 255
}
Data {#0-1
LDA 3, SUB 4, STP 0, 0, 1
}
Data {#1+255
LDA 3, ADD 4, STP 0, 1, 255
}
filename="run01.txt"
open filename for wide output as #d
while not empty
Zero letter$, d, false, false
end while
Zero { #prisoner
NOP 0, NOP 0, STP 0, 0, LDA 3, SUB 29, BRZ 18, LDA 3
, STA 29, BRZ 14, LDA 1, ADD 31, STA 1, JMP 2, LDA 0, ADD 31
, STA 0, JMP 2, LDA 3, STA 29, LDA 1, ADD 30, ADD 3, STA 1
, LDA 0, ADD 30, ADD 3, STA 0, JMP 2, 0, 1, 3
}, d, false, false
Enum Action {cooperate=0UB, defect}
byte AcA
PM=defect
for i=1 to 5
Print #d, "Round ";i;" ";field$(eval$(PM), 10);
PC++
mem[PC]<=pm
IF PM=cooperate THEN PM++ ELSE PM--
PC++
Zero {}, d, false, true
Read AcA
Print #d, "Player:";mem[0], " Computer:";mem[1]
next
close #d
if filename<>"" then win dir$+filename
}
Execute_Computer_Zero