88 lines
1.3 KiB
Text
88 lines
1.3 KiB
Text
|
******** pl3.amp
|
||
|
|
! .ALTERNATE
|
||
|
|
!
|
||
|
|
|
||
|
|
!foo MACRO string
|
||
|
|
! LOCAL lab1, lab2
|
||
|
|
!lab1: DATA.L lab2
|
||
|
|
!lab2: SDATA string
|
||
|
|
! ENDM
|
||
|
|
!
|
||
|
|
|
||
|
|
! foo "An example"
|
||
|
|
! LOCAL lab1, lab2
|
||
|
|
!lab1: DATA.L lab2
|
||
|
|
LL0001: .long LL0002
|
||
|
|
!lab2: SDATA "An example"
|
||
|
|
LL0002: .byte 34,65,110,32,101,120,97,109,112,108,101,34
|
||
|
|
! foo "using LOCAL"
|
||
|
|
! LOCAL lab1, lab2
|
||
|
|
!lab1: DATA.L lab2
|
||
|
|
LL0003: .long LL0004
|
||
|
|
!lab2: SDATA "using LOCAL"
|
||
|
|
LL0004: .byte 34,117,115,105,110,103,32,76,79,67,65,76,34
|
||
|
|
!
|
||
|
|
|
||
|
|
!! test of LOCAL directive
|
||
|
|
! test of LOCAL directive
|
||
|
|
!
|
||
|
|
|
||
|
|
!chk_err MACRO limit
|
||
|
|
! LOCAL skip !! frob
|
||
|
|
! LOCAL zap,dog,barf
|
||
|
|
!barf: cmp ax,limit !! check value against
|
||
|
|
! !! limit
|
||
|
|
! jle skip !! skip call if OK
|
||
|
|
!skip: call error
|
||
|
|
! foo dog
|
||
|
|
! zap dog
|
||
|
|
! nop
|
||
|
|
! ENDM
|
||
|
|
!
|
||
|
|
|
||
|
|
! chk_err 5
|
||
|
|
! LOCAL skip
|
||
|
|
! LOCAL zap,dog,barf
|
||
|
|
!barf: cmp ax,5
|
||
|
|
LL0008: cmp ax,5
|
||
|
|
!
|
||
|
|
! jle skip
|
||
|
|
jle LL0005
|
||
|
|
!skip: call error
|
||
|
|
LL0005: call error
|
||
|
|
! foo dog
|
||
|
|
! LOCAL lab1, lab2
|
||
|
|
!lab1: DATA.L lab2
|
||
|
|
LL0009: .long LL000a
|
||
|
|
!lab2: SDATA dog
|
||
|
|
LL000a: .byte 76,76,48,48,48,55
|
||
|
|
! zap dog
|
||
|
|
LL0006 LL0007
|
||
|
|
! nop
|
||
|
|
nop
|
||
|
|
! chk_err 10
|
||
|
|
! LOCAL skip
|
||
|
|
! LOCAL zap,dog,barf
|
||
|
|
!barf: cmp ax,10
|
||
|
|
LL000e: cmp ax,10
|
||
|
|
!
|
||
|
|
! jle skip
|
||
|
|
jle LL000b
|
||
|
|
!skip: call error
|
||
|
|
LL000b: call error
|
||
|
|
! foo dog
|
||
|
|
! LOCAL lab1, lab2
|
||
|
|
!lab1: DATA.L lab2
|
||
|
|
LL000f: .long LL0010
|
||
|
|
!lab2: SDATA dog
|
||
|
|
LL0010: .byte 76,76,48,48,48,100
|
||
|
|
! zap dog
|
||
|
|
LL000c LL000d
|
||
|
|
! nop
|
||
|
|
nop
|
||
|
|
!
|
||
|
|
|
||
|
|
!
|
||
|
|
|
||
|
|
! END
|