45 lines
522 B
Text
45 lines
522 B
Text
******** 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
|