new.casl

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

START   
A1  DC  '1212'
D1	DC 3
D2 	DS 16
D3	DC	'555'
D4	DC 7
D5	DC 8
D6	DC 999
FFL DC  0  
FFF	DC  'AAAA'
	DC  STRLEN  
STRLEN DC -12
STR DC 'str'
STARTST
    LEA GR1, A1
	LEA GR3, #44A
	LEA GR0,#787

MYST  LEA GR1, D2
L3	LD GR0,#3,GR1
	ST GR0, D3
	ST GR0,#3,GR1

	LEA GR2,9
	LEA GR0,8,GR1
	LEA GR0,-5
	LEA GR1,18

	ADD GR0,D1,GR1
	
	LEA GR0,7
	SUB GR0,D1
	LEA GR3,18
	
	LEA GR4,#11
	AND GR4,D1

	LEA GR4,#11
	OR GR4,D1

	LEA GR4,#11
	EOR GR4,D1

	LEA GR0,8
	CPA GR0,D5
	CPA GR0,D6
	CPA GR0,D7
	
	CPL GR0,D6
	CPL GR0,D7
	LEA GR0,-6
	CPL GR0,D7
	
	LEA GR0,#F020
	SLA GR0,4
	LEA GR0,#7020
	SLA GR0,4

	LEA GR0,#F020
	SRA	GR0,4
	LEA GR0,#7020
	SRA GR0,4

	LEA GR0,#F020
	SRL GR0,4
	LEA GR0,#F020
	SLL GR0,4
	
	LEA GR1,8
	CPL GR1,D5
	JZE J2

	LEA GR4,#FFFF
J1	LEA GR0,#12
	LEA GR3,#FFFF
	JMP GEXIT
J2  LEA GR0,#34

	LEA GR4,#100
	PUSH #1234
	POP  GR1
	
	CALL FUNC
	LEA GR1,#8888
	JMP AAA
	
	LEA GR2,#9999
	
FUNC LEA GR0,#7777
	 RET	

AAA IN  STR,STRLEN 
	OUT STR,STRLEN
	
GEXIT	EXIT


EEE	LEA GR0,#2345
	CALL C1
	JMP MYIN
C1	LEA GR4,#FFFF
	PUSH #1234
	CALL C2
	POP GR3
	RET

C2	LEA GR0,0
	LEA GR3,3
	RET

MYIN	IN FFF,FFL
	OUT FFF,FFL
	EXIT


END