3.csl

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

START   
A1 DC  '1212'
;	LEA GR1,#33 #KK
;	LEAGR0,#45
    LEA GR1, A1
	LEA GR3,#44A;HAHA

	LEA GR0, #787

MYST	LD GR1,#7
L3	LD GR0,#3,GR1
;	                           ;                asdfsadf
	ST 	GR0,D3
	ST GR0,3,GR1
	
	LEA GR2,9
;DAS33333	LEA GR3,D1		

;AAAEC
	LEA GR0,8,GR1
	
	LEA GR0,-5
	LEA GR1,18
	;	ADD GR0,D1
	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
;	JMI J2
;	JNZ J2
;	JPZ J1
;	JMP 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

D1	DC 3
D2 	DS 16
D3	DC	'555'
D4	DC 7
D5	DC 8
D6	DC 999
D7  DC -5
D8  DC -6
D9  DC -7

STRLEN DC 12
STR DC 'str 4 output999999999'

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
FFL DC  0  
FFF	DC  'AAAA'

	DC  STRLEN
;	DC  UNKNOW
;	DS  6000066666666666666
	DS  65300
;	DS  60000
;FFF	DC  "AAAA"
    
	END 
;	DC 5
;	DS 3
;	LEA GR3,#JJ