test.casl

来自「这是一个软件水平资格考试中使用的CASL汇编语言的编译器,实现文件中包括一个编译」· CASL 代码 · 共 38 行

START

A1 DS 121
A2 DS 1212
A3 DC 2121
A4 DC '34'
A5 DC #200
A6 DC '1212121'
LABELLD
    LD GR4, A6, GR3
LEA GR2, 12, GR1
LABELST 
    ST GR1, 1211, GR2
ADD GR1, 34
SUB GR2, 56
AND GR1, 12, GR2
OR GR2, 12, GR3
EOR GR3, 12, GR4
CPA GR1, 1, GR2
CPL GR2, 223, GR4
SLA GR1, 123, GR1
SRA GR2, 121, GR3
SLL GR3, 1, GR2
SRL GR4, 2, GR2
JMP 2, GR3
JPZ 3
JMI 2, GR1
JNZ 23, GR1
JZE 23, GR0
PUSH 2, GR1
POP GR3
CALL 12, GR4
JMP LABELST
RET
LA1 EXIT
LA2 IN LAIN, LANUMBER
LA3 OUT LAOUT, LANUMBER
END