New order.

This commit is contained in:
Steve Chamberlain
1995-08-01 02:39:21 +00:00
parent ec7b6fcf7f
commit b74e86ecf5
73 changed files with 208 additions and 435 deletions

View File

@ -28,69 +28,105 @@ Things-to-keep:
INC1.H INC1.H
INC2.H INC2.H
assign.asm assign.asm
assign.was assign.err
assign.out
condass.asm condass.asm
condass.was condass.err
condass.out
crash.asm crash.asm
crash.was crash.err
crash.out
crash1.asm crash1.asm
crash1.was crash1.err
crash1.out
crash2.asm crash2.asm
crash2.was crash2.err
crash2.out
data.asm data.asm
data.was data.err
data.out
exp.asm exp.asm
exp.was exp.err
exp.out
gasp.exp
include.asm include.asm
include.was include.err
include.out
listing.asm listing.asm
listing.was listing.err
listing.out
macro.asm macro.asm
macro.was macro.err
macro.out
mdouble.asm mdouble.asm
mdouble.was mdouble.err
mdouble.out
pl1.asm pl1.asm
pl1.was pl1.err
pl1.out
pl2.asm pl2.asm
pl2.was pl2.err
pl2.out
pl3.asm pl3.asm
pl3.was pl3.err
pl3.out
pl4.asm pl4.asm
pl4.was pl4.err
pl4.out
pl5.asm pl5.asm
pl5.was pl5.err
pl5.out
pl6.asm pl6.asm
pl6.was pl6.err
pl6.out
pl7.asm pl7.asm
pl7.was pl7.err
pl7.out
pl8.asm pl8.asm
pl8.was pl8.err
pl8.out
pr7583.asm
pr7583.err
pr7583.out
reg.asm reg.asm
reg.was reg.err
reg.out
rep.asm rep.asm
rep.was rep.err
rep.out
repeat.asm repeat.asm
repeat.was repeat.err
repeat.out
reperr.asm reperr.asm
reperr.was reperr.err
reperr.out
reperr1.asm reperr1.asm
reperr1.was reperr1.err
reperr1.out
reperr2.asm reperr2.asm
reperr2.was reperr2.err
reperr2.out
reperr3.asm reperr3.asm
reperr3.was reperr3.err
reperr3.out
sdata.asm sdata.asm
sdata.was sdata.err
sdata.out
sfunc.asm sfunc.asm
sfunc.was sfunc.err
sfunc.out
t1.asm t1.asm
t1.was t1.err
t1.out
t2.asm t2.asm
t2.was t2.err
t2.out
t3.asm t3.asm
t3.was t3.err
t3.out
while.asm while.asm
while.was while.err
while.out
Things-to-lose: Things-to-lose:

View File

@ -0,0 +1 @@
assign.asm:8 Can't find preprocessor variable bar.

View File

@ -1,4 +1,3 @@
******** assign.amp
! !
!foo: .ASSIGNC "hello" !foo: .ASSIGNC "hello"
@ -21,4 +20,3 @@
! !
! .END ! .END
assign.asm:8 Can't find preprocessor variable bar.

View File

View File

@ -1,4 +1,3 @@
******** condass.amp
! .AIF 1 EQ 1 ! .AIF 1 EQ 1
! OK ! OK
OK OK
@ -75,6 +74,7 @@
! .AENDI ! .AENDI
! .AIF "FOO" NE "BAR" ! .AIF "FOO" NE "BAR"
! OK ! OK
OK
! .AENDI ! .AENDI
! .AIF "FOO" EQ "FOO" ! .AIF "FOO" EQ "FOO"
! OK ! OK

View File

@ -0,0 +1 @@
crash.asm:18 Unreasonable expansion (-u turns off check).

View File

@ -1,4 +1,3 @@
******** crash.amp
! !
! Stuff to try and crash it ! Stuff to try and crash it
@ -3058,4 +3057,3 @@
! THERE ! THERE
THERE THERE
! bar ! bar
crash.asm:18 Unreasonable expansion (-u turns off check).

View File

View File

View File

@ -1,26 +0,0 @@
******** crash1.amp
!
!
! .MACRO foo a b c=a
! \a \b \c \d
! .ENDM
!
! foo 1 2
! 1 2 a \d
1 2 a \d
! foo 1 2 3 4
! foo 1
! 1 a \d
1 a \d
! foo
! a \d
a \d
!
!
! .END
crash1.asm:8 Too many positional arguments.

View File

View File

@ -1,4 +1,3 @@
******** crash2.amp
! !
!foo: .ASSIGNA 1 !foo: .ASSIGNA 1

View File

View File

@ -1,4 +1,3 @@
******** data.amp
! !
!foo .DATA 1,2,3 !foo .DATA 1,2,3

View File

@ -0,0 +1,7 @@
exp.asm:56 can't add two relocatable expressions
exp.asm:57 the * operator cannot take non-absolute arguments.
exp.asm:58 the / operator cannot take non-absolute arguments.
exp.asm:59 the | operator cannot take non-absolute arguments.
exp.asm:60 the & operator cannot take non-absolute arguments.
exp.asm:61 the ~ operator cannot take non-absolute arguments.
exp.asm:62 the * operator cannot take non-absolute arguments.

View File

@ -1,4 +1,3 @@
******** exp.amp
! !
!; test all ops !; test all ops
@ -123,10 +122,3 @@ space2:
! !
! .END ! .END
exp.asm:56 can't add two relocatable expressions
exp.asm:57 the * operator cannot take non-absolute arguments.
exp.asm:58 the / operator cannot take non-absolute arguments.
exp.asm:59 the | operator cannot take non-absolute arguments.
exp.asm:60 the & operator cannot take non-absolute arguments.
exp.asm:61 the ~ operator cannot take non-absolute arguments.
exp.asm:62 the * operator cannot take non-absolute arguments.

View File

View File

@ -1,4 +1,3 @@
******** include.amp
! HI ! HI
HI HI
! .INCLUDE "INC1.H" ! .INCLUDE "INC1.H"

View File

View File

@ -1,4 +1,3 @@
******** listing.amp
! !
! !
@ -27,4 +26,3 @@
.psize 123,23 .psize 123,23
! !
! .END ! .END
End of file not at start of line.

View File

View File

@ -1,4 +1,3 @@
******** macro.amp
! .MACRO SUM FROM=0, TO=9 ! .MACRO SUM FROM=0, TO=9
! ; \FROM \TO ! ; \FROM \TO
! MOV R\FROM,R10 ! MOV R\FROM,R10
@ -150,8 +149,8 @@
! COMM ! COMM
! bar ; this comment will get copied out ! bar ; this comment will get copied out
bar ; this comment will get copied out bar ; this comment will get copied out
! foo ! foo \; this one will get dropped
foo foo \; this one will get dropped
! BACK_SLASH_SET ! BACK_SLASH_SET
! MOV #"\",R0 ! MOV #"\",R0
MOV #"\",R0 MOV #"\",R0
@ -173,201 +172,4 @@
! PLUS1 R,R1 ! PLUS1 R,R1
! ADD #1,R1 ! ADD #1,R1
ADD #1,R1 ADD #1,R1
! .SDATA "R1" ! .SDATA "R1
.byte 82,49
!
! .MACRO SUM P1
! MOV R0,R10
! ADD R1,R10
! ADD R2,R10
! \P1
! ADD R3,R10
! .ENDM
!
! SUM .EXITM
! MOV R0,R10
MOV R0,R10
! ADD R1,R10
ADD R1,R10
! ADD R2,R10
ADD R2,R10
! .EXITM
!
! .MACRO foo bar=a default=b
! \bar
! \default
! bar
! default
! .ENDM
! foo default=dog bar=cat
! cat
cat
! dog
dog
! bar
bar
! default
default
! foo X Y
! X
X
! Y
Y
! bar
bar
! default
default
! foo
! a
a
! b
b
! bar
bar
! default
default
! foo bar=cat default=dog
! cat
cat
! dog
dog
! bar
bar
! default
default
!
!
! .MACRO foo bar
! HI
! HI \bar
! HI
! .ENDM
!
! foo 1
! HI
HI
! HI 1
HI 1
! HI
HI
! foo 123
! HI
HI
! HI 123
HI 123
! HI
HI
! foo 1 2 3 4
! foo
! HI
HI
! HI
HI
! HI
HI
!
!
! .MACRO PUSH Rn
! MOV.L \Rn,@-r15
! .ENDM
! PUSH R0
! MOV.L R0,@-r15
MOV.L R0,@-r15
! PUSH R1
! MOV.L R1,@-r15
MOV.L R1,@-r15
!
!
! .MACRO RES_STR STR, Rn
! MOV.L #str\@,\Rn
! BRA end_str\@
! NOP
!str\@ .SDATA "\STR"
! .ALIGN 2
!end_str\@
! .ENDM
!
! RES_STR "ONE",R0
! MOV.L #str00018,R0
MOV.L #str00018,R0
! BRA end_str00018
BRA end_str00018
! NOP
NOP
!str00018 .SDATA "ONE"
str00018: .byte 79,78,69
! .ALIGN 2
.align 2
!end_str00018
end_str00018:
! RES_STR "TWO",R1
! MOV.L #str00019,R1
MOV.L #str00019,R1
! BRA end_str00019
BRA end_str00019
! NOP
NOP
!str00019 .SDATA "TWO"
str00019: .byte 84,87,79
! .ALIGN 2
.align 2
!end_str00019
end_str00019:
! RES_STR "THREE",R2
! MOV.L #str00020,R2
MOV.L #str00020,R2
! BRA end_str00020
BRA end_str00020
! NOP
NOP
!str00020 .SDATA "THREE"
str00020: .byte 84,72,82,69,69
! .ALIGN 2
.align 2
!end_str00020
end_str00020:
!
!
!
! RES_STR STR=donkey Rn=R1
! MOV.L #str00021,R1
MOV.L #str00021,R1
! BRA end_str00021
BRA end_str00021
! NOP
NOP
!str00021 .SDATA "donkey"
str00021: .byte 100,111,110,107,101,121
! .ALIGN 2
.align 2
!end_str00021
end_str00021:
! RES_STR donkey,R1
! MOV.L #str00022,R1
MOV.L #str00022,R1
! BRA end_str00022
BRA end_str00022
! NOP
NOP
!str00022 .SDATA "donkey"
str00022: .byte 100,111,110,107,101,121
! .ALIGN 2
.align 2
!end_str00022
end_str00022:
! RES_STR donkey Rn=R1
! .END
macro.asm:70 Too many positional arguments.
macro.asm:98 Can't mix positional and keyword arguments.

View File

View File

@ -1,4 +1,27 @@
******** mdouble.amp !
! .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 ! H'0f
@ -34,8 +57,8 @@
ADD #1,@B ADD #1,@B
!ENTRY JMP @MAIN !ENTRY JMP @MAIN
ENTRY: JMP @MAIN ENTRY: JMP @MAIN
!L00000 ADD #1,@HL !L00001 ADD #1,@HL
L00000: ADD #1,@HL L00001: ADD #1,@HL
! MOV #0,@C ! MOV #0,@C
MOV #0,@C MOV #0,@C
! ADD #2,@C ! ADD #2,@C

View File

@ -0,0 +1 @@
END missing from end of file.

View File

@ -1,4 +1,3 @@
******** pl1.amp
! !
! .ALTERNATE ! .ALTERNATE
! !
@ -47,4 +46,4 @@
! !
!END missing from end of file. !

View File

View File

@ -1,4 +1,3 @@
******** pl2.amp
! !
! !

View File

View File

@ -1,4 +1,3 @@
******** pl3.amp
! .ALTERNATE ! .ALTERNATE
! !
@ -14,13 +13,13 @@
!lab1: DATA.L lab2 !lab1: DATA.L lab2
LL0001: .long LL0002 LL0001: .long LL0002
!lab2: SDATA "An example" !lab2: SDATA "An example"
LL0002: .byte 34,65,110,32,101,120,97,109,112,108,101,34 LL0002: .byte 65,110,32,101,120,97,109,112,108,101
! foo "using LOCAL" ! foo "using LOCAL"
! LOCAL lab1, lab2 ! LOCAL lab1, lab2
!lab1: DATA.L lab2 !lab1: DATA.L lab2
LL0003: .long LL0004 LL0003: .long LL0004
!lab2: SDATA "using LOCAL" !lab2: SDATA "using LOCAL"
LL0004: .byte 34,117,115,105,110,103,32,76,79,67,65,76,34 LL0004: .byte 117,115,105,110,103,32,76,79,67,65,76
! !
!! test of LOCAL directive !! test of LOCAL directive

View File

View File

@ -1,4 +1,3 @@
******** pl4.amp
! .ALTERNATE ! .ALTERNATE
!! test of macro substitution around &s !! test of macro substitution around &s
! test of macro substitution around &s ! test of macro substitution around &s

View File

View File

@ -1,4 +1,3 @@
******** pl5.amp
!! test of literal text operator !! test of literal text operator
! test of literal text operator ! test of literal text operator
! .ALTERNATE ! .ALTERNATE
@ -13,19 +12,19 @@
! !
! foop this< is a <string> with angle brackets> ! foop this< is a <string> with angle brackets>
! SDATA "this" ! SDATA "this"
.byte 34,116,104,105,115,34 .byte 116,104,105,115
! SDATA " is a <string> with angle brackets" ! SDATA " is a <string> with angle brackets"
.byte 34,32,105,115,32,97,32,60,115,116,114,105,110,103,62,32,119,105,116,104,32,97,110,103,108,101,32,98,114,97,99,107,101,116,115,34 .byte 32,105,115,32,97,32,60,115,116,114,105,110,103,62,32,119,105,116,104,32,97,110,103,108,101,32,98,114,97,99,107,101,116,115
! foop this< is a string with spaces> ! foop this< is a string with spaces>
! SDATA "this" ! SDATA "this"
.byte 34,116,104,105,115,34 .byte 116,104,105,115
! SDATA " is a string with spaces" ! SDATA " is a string with spaces"
.byte 34,32,105,115,32,97,32,115,116,114,105,110,103,32,119,105,116,104,32,115,112,97,99,101,115,34 .byte 32,105,115,32,97,32,115,116,114,105,110,103,32,119,105,116,104,32,115,112,97,99,101,115
! foop this < is a string with a !>> ! foop this < is a string with a !>>
! SDATA "this" ! SDATA "this"
.byte 34,116,104,105,115,34 .byte 116,104,105,115
! SDATA " is a string with a >" ! SDATA " is a string with a >"
.byte 34,32,105,115,32,97,32,115,116,114,105,110,103,32,119,105,116,104,32,97,32,62,34 .byte 32,105,115,32,97,32,115,116,114,105,110,103,32,119,105,116,104,32,97,32,62
! !
! !

View File

View File

@ -1,4 +1,3 @@
******** pl6.amp
! .ALTERNATE ! .ALTERNATE
!! test of expression operator !! test of expression operator
! test of expression operator ! test of expression operator
@ -8,44 +7,44 @@
! ENDM ! ENDM
! define "1","99%of100" ! notice % within string ! define "1","99%of100" ! notice % within string
! SDATA "1" ! SDATA "1"
.byte 34,49,34 .byte 49
! SDATA "99%of100" ! SDATA "99%of100"
.byte 34,57,57,37,111,102,49,48,48,34 .byte 57,57,37,111,102,49,48,48
! define %1 + 2, "=3" ! define %1 + 2, "=3"
! SDATA "3" ! SDATA 3
.byte 34,51,34 .byte 51
! SDATA "=3" ! SDATA "=3"
.byte 34,61,51,34 .byte 61,51
! !
! !
! define % 1 + 2 %3+4 ! define % 1 + 2 %3+4
! SDATA "3" ! SDATA 3
.byte 34,51,34 .byte 51
! SDATA "7" ! SDATA 7
.byte 34,55,34 .byte 55
! !
! define %3*4-2 <=10> ! define %3*4-2 <=10>
! SDATA "10" ! SDATA 10
.byte 34,49,48,34 .byte 49,48
! SDATA "=10" ! SDATA "=10"
.byte 34,61,49,48,34 .byte 61,49,48
! !
! define %3*4-2 5 ! define %3*4-2 5
! SDATA "10" ! SDATA 10
.byte 34,49,48,34 .byte 49,48
! SDATA 5 ! SDATA 5
.byte 53 .byte 53
! !
! define %1 + 2,<is equal to %1 + 2, right?> ! define %1 + 2,<is equal to %1 + 2, right?>
! SDATA "3" ! SDATA 3
.byte 34,51,34 .byte 51
! SDATA "is equal to %1 + 2, right?" ! SDATA "is equal to %1 + 2, right?"
.byte 34,105,115,32,101,113,117,97,108,32,116,111,32,37,49,32,43,32,50,44,32,114,105,103,104,116,63,34 .byte 105,115,32,101,113,117,97,108,32,116,111,32,37,49,32,43,32,50,44,32,114,105,103,104,116,63
! !
! ! has no effect ! ! has no effect

View File

@ -0,0 +1 @@
END missing from end of file.

View File

@ -1,4 +1,3 @@
******** pl7.amp
! .ALTERNATE ! .ALTERNATE
!! test of string operators !! test of string operators
! test of string operators ! test of string operators
@ -10,12 +9,12 @@
! SDATA one" way to get "spaces ! SDATA one" way to get "spaces
.byte 111,110,101,34,32,119,97,121,32,116,111,32,103,101,116,32,34,115,112,97,99,101,115 .byte 111,110,101,34,32,119,97,121,32,116,111,32,103,101,116,32,34,115,112,97,99,101,115
! SDATA "0" ! SDATA "0"
.byte 34,48,34 .byte 48
! define "lot's! of <special>,chars%", 0 ! define "lot's! of <special>,chars%", 0
! SDATA "lot's of <special>,chars%" ! SDATA "lot's of <special>,chars%"
.byte 34,108,111,116,39,115,32,111,102,32,60,115,112,101,99,105,97,108,62,44,99,104,97,114,115,37,34 .byte 108,111,116,39,115,32,111,102,32,60,115,112,101,99,105,97,108,62,44,99,104,97,114,115,37
! SDATA "0" ! SDATA "0"
.byte 34,48,34 .byte 48
! !
! !
@ -24,4 +23,4 @@
! !
!END missing from end of file. !

View File

View File

@ -0,0 +1,33 @@
!
! .ALTERNATE
! SDATA %1+2+3
.byte 37,49,43,50,43,51,32
! SDATA "5"
.byte 53
!
!
!
! MACRO foo
! SDATA "HI" !! this will go
! SDATA "THERE ! this will stay
! ENDM
!
! foo
! SDATA "HI"
.byte 72,73
! SDATA "THERE ! this will stay
.byte 84,72,69,82,69,9,32,116,104,105,115,32,119,105,108,108,32,115,116,97,121
!
!
! SDATA <!<this is <a wacky> example!>!!>
.byte 60,116,104,105,115,32,105,115,32,60,97,32,119,97,99,107,121,62,32,101,120,97,109,112,108,101,62,33
! SDATA "<this is <a wacky> example>!"
.byte 60,116,104,105,115,32,105,115,32,60,97,32,119,97,99,107,121,62,32,101,120,97,109,112,108,101,62,34
! END

View File

@ -1,34 +0,0 @@
******** pl8.amp
!
! .ALTERNATE
! SDATA %1+2+3
.byte 34,54,34
! SDATA "5"
.byte 34,53,34
!
!
!
! MACRO foo
! SDATA "HI" !! this will go
! SDATA "THERE ! this will stay
! ENDM
!
! foo
! SDATA "HI"
.byte 34,72,73,34
! SDATA "THERE ! this will stay
.byte 34,84,72,69,82,69,9,32,116,104,105,115,32,119,105,108,108,32,115,116,97,121,34
!
!
! SDATA <!<this is <a wacky> example!>!!>
.byte 34,60,116,104,105,115,32,105,115,32,60,97,32,119,97,99,107,121,62,32,101,120,97,109,112,108,101,62,33,34
! SDATA "<this is <a wacky> example>!"
.byte 34,60,116,104,105,115,32,105,115,32,60,97,32,119,97,99,107,121,62,32,101,120,97,109,112,108,101,62,34,34
! END

View File

@ -0,0 +1,3 @@
.sdata "v1.0000"
.end

View File

View File

@ -0,0 +1,5 @@
!
! .sdata "v1.0000"
.byte 118,49,46,48,48,48,48
! .end

View File

View File

@ -1,4 +1,3 @@
******** reg.amp
! !
! !

View File

View File

@ -1,4 +1,3 @@
******** rep.amp
! .AREPEAT 5 ! .AREPEAT 5
! FIVE ! FIVE
! .AREPEAT 2 ! .AREPEAT 2

View File

View File

@ -1,4 +1,3 @@
******** repeat.amp
! !
! .AREPEAT 10 ! .AREPEAT 10

View File

@ -0,0 +1 @@
END missing from end of file.

View File

@ -0,0 +1,5 @@
!
! .REPEAT 10
.REPEAT 10
!

View File

@ -1,6 +0,0 @@
******** reperr.amp
!
! .REPEAT 10
.REPEAT 10
!.END missing from end of file.

View File

@ -0,0 +1 @@
End of file whilst inside AREPEAT, started on line 3.

View File

@ -0,0 +1,5 @@
!
! .AREPEAT 10
! .END
!

View File

@ -1,6 +0,0 @@
******** reperr1.amp
!
! .AREPEAT 10
! .END
!End of file whilst inside .AREPEAT, started on line 3.

View File

@ -0,0 +1 @@
reperr2.asm:4 AENDR without a AREPEAT.

View File

@ -1,4 +1,3 @@
******** reperr2.amp
! !
! .AREPEAT 5 ! .AREPEAT 5
@ -13,4 +12,3 @@
! .AENDR ! .AENDR
! .AENDR ! .AENDR
! .END ! .END
reperr2.asm:4 AENDR without a AREPEAT.

View File

@ -0,0 +1,6 @@
reperr3.asm:14 AENDR without a AREPEAT.
reperr3.asm:16 AENDR without a AREPEAT.
reperr3.asm:17 AENDR without a AREPEAT.
reperr3.asm:18 AENDR without a AREPEAT.
reperr3.asm:19 AENDR without a AREPEAT.
reperr3.asm:20 AENDR without a AREPEAT.

View File

@ -1,4 +1,3 @@
******** reperr3.amp
! .AREPEAT 4 ! .AREPEAT 4
! .AREPEAT 4 ! .AREPEAT 4
! .AREPEAT 4 ! .AREPEAT 4
@ -2034,9 +2033,3 @@
! .AENDR ! .AENDR
! .AENDR ! .AENDR
! .END ! .END
reperr3.asm:14 AENDR without a AREPEAT.
reperr3.asm:16 AENDR without a AREPEAT.
reperr3.asm:17 AENDR without a AREPEAT.
reperr3.asm:18 AENDR without a AREPEAT.
reperr3.asm:19 AENDR without a AREPEAT.
reperr3.asm:20 AENDR without a AREPEAT.

View File

@ -0,0 +1,3 @@
sdata.asm:19 Character code in string must be absolute expression.
sdata.asm:19 Missing > for character code.
END missing from end of file.

View File

@ -1,4 +1,3 @@
******** sdata.amp
! !
! !
@ -20,7 +19,7 @@
! .SDATA "SHOULD NOT FAIL" "HERE" ! .SDATA "SHOULD NOT FAIL" "HERE"
.byte 83,72,79,85,76,68,32,78,79,84,32,70,65,73,76,72,69,82,69 .byte 83,72,79,85,76,68,32,78,79,84,32,70,65,73,76,72,69,82,69
! .SDATA "SHOULD FAIL" foo "HERE" ! .SDATA "SHOULD FAIL" foo "HERE"
.byte 83,72,79,85,76,68,32,70,65,73,76,102,111,111,72,69,82,69 .byte 83,72,79,85,76,68,32,70,65,73,76,102,111,111,32,34,72,69,82,69,34,32
! !
! .SDATAB 8,"BOINK" ! .SDATAB 8,"BOINK"
@ -45,8 +44,8 @@
.byte 34,66,66,66,34 .byte 34,66,66,66,34
.byte 34,66,66,66,34 .byte 34,66,66,66,34
! .SDATAB 2,"AABB"<H'07> ! .SDATAB 2,"AABB"<H'07>
.byte 65,65,66,66,7 .byte 65,65,66,66,0
.byte 65,65,66,66,7 .byte 65,65,66,66,0
! !
! !
@ -57,4 +56,4 @@ a1: .byte 72,73,0
a2: .byte 2,72,73 a2: .byte 2,72,73
!a3: .SDATA "HI" !a3: .SDATA "HI"
a3: .byte 72,73 a3: .byte 72,73
!END missing from end of file. !

View File

View File

View File

@ -1,50 +0,0 @@
******** sfunc.amp
!
! .MACRO RESERVE_STR P1=0 P2
! .SDATA .SUBSTR("ABCDEFG",\P1,\P2)
! .ENDM
!
! RESERVE_STR 2,2
! .SDATA .SUBSTR("ABCDEFG",2,2)
.byte 67,68
! RESERVE_STR ,3
! .SDATA .SUBSTR("ABCDEFG",0,3)
.byte 65,66,67
!
!
! .MACRO FIND_STR P1
! .DATA.W .INSTR("ABCDEFG","\P1", 0)
! .ENDM
!
! FIND_STR CDE
! .DATA.W .INSTR("ABCDEFG","CDE", 0)
.short 2
! FIND_STR H
! .DATA.W .INSTR("ABCDEFG","H", 0)
.short -1
!
! .MACRO RESERVE_LENGTH P1
! .ALIGN 4
! .SRES .LEN("\P1")
! .ENDM
!
! RESERVE_LENGTH ABCDEF
! .ALIGN 4
.align 4
! .SRES .LEN("ABCDEF")
.space 24
! RESERVE_LENGTH ABC
! .ALIGN 4
.align 4
! .SRES .LEN("ABC")
.space 12
!
! .END

View File

View File

@ -1,4 +1,3 @@
******** t1.amp
! !
! test for eof in middle of line ! test for eof in middle of line

View File

View File

@ -1,4 +1,3 @@
******** t2.amp
! !
! !

View File

@ -0,0 +1 @@
END missing from end of file.

View File

@ -1,4 +1,3 @@
******** t3.amp
! !
! test base convertions ! test base convertions
@ -23,4 +22,4 @@
FOOD'136BAR FOOD'136BAR
! FOOH'88BAR ! FOOH'88BAR
FOOH'88BAR FOOH'88BAR
!.END missing from end of file. !

View File

View File

@ -1,4 +1,3 @@
******** while.amp
! donkey ! donkey
donkey donkey
!bar .ASSIGNA 0 !bar .ASSIGNA 0