test.csl

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

START  ;This is a Test
A1 DS 121
A2 DS 1212
LAIN DS 10
LANUMBER DS 1
LAOUT DS 10
A3 DC -21
A4 DC '34'
A5 DC #200
A6 DC '1212121'
   DC A6
   DC  STRLEN  
A8 DC 1
   DC  2
   DC  3
FFF	DC  'AAAA'
LD GR1, A1
LEA GR1, A1
LABELLD   LD GR4, A6, GR3
LEA GR2, 12
LABELST  ST GR1, 1, 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
CALL FUNC


JMP LABPUSH   

LABPUSH  
    PUSH 2, GR1
    PUSH #123
POP GR3
LA2 IN LAIN, LANUMBER
LA3 OUT LAIN, LANUMBER

EXIT

FUNC LEA GR0, 1
     RET
END