Compiler/code.asm at master · return-100/Compiler · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
.MODEL SMALL

.STACK 100H

.DATA

SZ DW ?
x2 DW ?
a3 DW ?
b3 DW ?
t1 DW ?
t2 DW ?

.CODE

OUP PROC

CMP AX, 0
JL LVL10
JMP LVL100

LVL10:
MOV BX, AX
MOV AH, 2
MOV DL, '-'
INT 21H
NEG BX
MOV AX, BX

LVL100:
MOV SZ, 0
CMP AX, 0
JE DO
LVL3:
MOV BX, 0
MOV CX, 0
MOV DX, 0
CMP AX, 0
JE LVL5
INC SZ
MOV CL, 10
DIV CL
MOV CL, AH
ADD CL, '0'
MOV AH, 0
MOV BX, AX
PUSH CX
MOV AX, BX
JMP LVL3
LVL5:
MOV BX, SZ
CMP BX, 0
JE GO
POP CX
MOV AH, 2
MOV DL, CL
INT 21H
DEC SZ
JMP LVL5
DO:
MOV AH, 2
MOV DL, '0'
INT 21H
GO:
RET

OUP ENDP

foo PROC

ret
INC x2
MOV AX, x2
PUSH AX

foo ENDP

main PROC

MOV AX, @DATA
MOV DS, AX
L1:
INC a3
CMP a3, 0
JE L3
JMP L2
L2:
DEC b3
JMP L1
L3:
MOV AX, b3
CALL OUP
MOV AH, 2
MOV DL, 0AH
INT 21H
MOV DL, 0DH
INT 21H
MOV AX, t1
MOV x2, AX
CALL foo
POP t2

main ENDP

END main