68 lines
667 B
Text
68 lines
667 B
Text
!
|
|
|
|
! .MACRO HI
|
|
! A
|
|
! \! this is hidden
|
|
! B
|
|
! ! this is not
|
|
! C
|
|
! .ENDM
|
|
! Hello
|
|
Hello
|
|
! HI
|
|
! A
|
|
A
|
|
!
|
|
! B
|
|
B
|
|
! ! this is not
|
|
! this is not
|
|
! C
|
|
C
|
|
! Emily
|
|
Emily
|
|
!
|
|
!
|
|
|
|
! 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
|
|
!L00001 ADD #1,@HL
|
|
L00001: ADD #1,@HL
|
|
! MOV #0,@C
|
|
MOV #0,@C
|
|
! ADD #2,@C
|
|
ADD #2,@C
|
|
! ADD #\&XX, @C
|
|
ADD #64, @C
|
|
! .END
|