1， L #Base_Tmp
L 4096
*I
T #App_Base_Int
NOP 0

2. L #App_Base_Int
T #App_Base_Word
NOP 0
3. A(
L #In_Int
L 0
<=I
)
JNB _001
L 0
ITB
T #App_S5T
_001: NOP 0
4. A(
L 3
L #Base_Tmp
==I
)
A(
L #In_Int
L 999
>=I
)
JNB _002
L 999
ITB
T #App_S5T
_002: NOP 0
5. L #In_Int
ITB
T #App_S5T
NOP 0
6. L #App_S5T
L #App_Base_Word
OW
T #App_S5T
NOP 0
7. L #App_S5T
T #Out_S5T
NOP 0