恭喜,你发布的帖子
发布于 2016-07-19 10:47:50
6楼
1段
TAR1 #T_AR1 // SAVE ADRESSREGISTER AR1
TAR2 #T_AR2 // SAVE ADRESSREGISTER AR2
2段
L P##OUT_ANY // START ADRESS OF ANY-POINTER
LAR2 // INTO AR2
L B#16#10 // ENTER SYNTAX-ID
T B [AR2,P#0.0] // INTO ANY-POINTE 0 BYTES
L #DAT_TYP
L W#16#0
<>I
JC NIL
L B#16#0
JU TYPE
A7d0: L #IN_V
T W [AR1,P#0.0]
END: NOP 0
5段
LAR1 #T_AR1 // RESTORE ADRESSREGISTER ADR1
LAR2 #T_AR2 // RESTORE ADRESSREGISTER ADR2
请填写推广理由:
分享
只看
楼主