library.lib

MOV R1,SP
MOV R2,5
SUB R1,R2
MOV R2,"Write"
MOV R6,[R1]
MOV R1,R6
EQ R1,R2
JZ R1,66
MOV R1,SP
MOV R2,4
SUB R1,R2
MOV R2,[R1]
ADD R1,1
MOV R3,[R1]
ADD R1,1
MOV R4,[R1]
MOV R5,5
PUSH R5
PUSH R2
PUSH R3
PUSH R4
PUSH R5
INT 7
POP R1
POP R2
POP R2
POP R2
POP R2
MOV R2,SP
MOV R3,1
SUB R2,R3
MOV [R2],R1
RET
MOV R2,"Read"
MOV R1,R6
EQ R1,R2
JZ R1,124
MOV R1,SP
MOV R2,4
SUB R1,R2
MOV R2,[R1]
ADD R1,1
MOV R3,[R1]
ADD R1,1
MOV R4,[R1]
MOV R5,7
PUSH R5
PUSH R2
PUSH R3
PUSH R4
PUSH R5
INT 6
POP R1
POP R2
POP R2
POP R2
POP R2
MOV R2,SP
MOV R3,1
SUB R2,R3
MOV [R2],R1
RET
MOV R2,"Exit"
MOV R1,R6
EQ R1,R2
JZ R1,182
MOV R1,SP
MOV R2,4
SUB R1,R2
MOV R2,[R1]
ADD R1,1
MOV R3,[R1]
ADD R1,1
MOV R4,[R1]
MOV R5,10
PUSH R5
PUSH R2
PUSH R3
PUSH R4
PUSH R5
INT 10
POP R1
POP R2
POP R2
POP R2
POP R2
MOV R2,SP
MOV R3,1
SUB R2,R3
MOV [R2],R1
RET
MOV R2, "Heapset"
MOV R1, R6
EQ R1, R2
JZ R1, 244
MOV R0, 1024
MOV R1, 1
MOV R2, 2047
GE R2, R0
JZ R2, 208
MOV [R0], -1
ADD R0, R1
MOV R2, 2047
JMP 196
MOV R0, 1024
MOV R1, 1032
MOV R2, 8
MOV R3, 2047
GE R3, R0
JZ R3, 230
MOV [R0], R1
ADD R0, R2
ADD R1, R2
MOV R3, 2047
JMP 216
MOV [2032], -1
MOV [2040], 1024
MOV R0, SP
MOV R1, 1
SUB R0, R1
MOV [R0], 0
RET
MOV R2, "Alloc"
MOV R1, R6
EQ R1, R2
JZ R1, 278
MOV R0, [2040]
MOV R1, -1
EQ R0, R1
JNZ R0, 268
MOV R0, [2040]
MOV R1, [R0]
MOV [2040], R1
MOV R1, R0
MOV R0, SP
MOV R2, 1
SUB R0, R2
MOV [R0], R1
RET
MOV R2, "Free"
MOV R1, R6
EQ R1, R2
JZ R1, 308
MOV R0, [2040]
MOV R1, SP
MOV R2, 4
SUB R1, R2
MOV R1, [R1]
MOV [2040], R1
MOV [R1], R0
MOV R0, SP
MOV R1, 1
SUB R0, R1
MOV [R0], 0
RET