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
|
******** mdouble.amp
!
! H'0f
15
! 200+H'0F
200+15
!
!XX .ASSIGNA Q'100
!! Definition:
! Definition:
! .MACRO GET X=100,Y,Z
! MOV #\X+H'0F,@B
! \Y
!\Z JMP @MAIN
!L\@ ADD #1,@HL
! MOV #0,@C \! Clear C
! ADD #2,@C
! ADD #\&XX, @C
! .ENDM
!
! NOP
NOP
!
!!Call:
!Call:
! GET 200,"ADD #1,@B", ENTRY
! MOV #200+H'0F,@B
MOV #200+15,@B
! ADD #1,@B
ADD #1,@B
!ENTRY JMP @MAIN
ENTRY: JMP @MAIN
!L00000 ADD #1,@HL
L00000: ADD #1,@HL
! MOV #0,@C
MOV #0,@C
! ADD #2,@C
ADD #2,@C
! ADD #\&XX, @C
ADD #64, @C
! .END
|
