Skip to content

Commit 5091223

Browse files
author
honitos
committed
added some internal test codes
1 parent d97cb3b commit 5091223

2 files changed

Lines changed: 353 additions & 0 deletions

File tree

‎Sourcecodes/Amiblitz3/Tests/lesdebuglibtest.ab3‎

Lines changed: 117 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,117 @@
1+
; XTRA
2+
; Embedded .xtra Header
3+
;
4+
; General Info
5+
; -------------------------------------------------------
6+
; ExePath = "///Debug"
7+
; ExeFile = "REDDebugger"
8+
; CreateIcon = 0
9+
; Residents = "all.res,asmmacs.res"
10+
;
11+
; Compiler
12+
; -------------------------------------------------------
13+
; StringBuffer = 10240
14+
; MakeSmallest = 1
15+
; FuncOptimize = 1
16+
; Version = 3.9.7
17+
; NumberOfBuilds = 35
18+
;
19+
; Debugger
20+
; -------------------------------------------------------
21+
; CliArgs = ""
22+
; StackSize = 8191
23+
; RuntimeDebug = 1
24+
; DebugInfo = 0
25+
; CreateDbgFile = 0
26+
; OverflowCheck = 1
27+
; AssemblerCheck = 1
28+
; InterruptCheck = 1
29+
; AutoRun = 1
30+
;
31+
; Editor
32+
; -------------------------------------------------------
33+
; CursorLine = 23
34+
; CursorColumn = 33
35+
; LabelSearch = ""
36+
; LabelRemark = 0
37+
; LabelAll = 0
38+
; LabelCase = 0
39+
; LabelPosition = 0
40+
;
41+
; Blitz Objects
42+
; -------------------------------------------------------
43+
; Max File = 5
44+
; Max GadgetList = 50
45+
; Max Shape = 100
46+
; Max Bank = 5
47+
; Max MenuList = 50
48+
; Max GTList = 50
49+
; Max Palette = 4
50+
; Max BitMap = 10
51+
; Max Screen = 5
52+
; Max IntuiFont = 5
53+
; Max BlitzFont = 4
54+
; Max Window = 50
55+
; Max IconInfo = 1
56+
; Max MUIObject = 50
57+
; Max AsyncReq = 4
58+
; Max Req-Lib = 5
59+
; Max GTMenuList = 30
60+
; Max Console = 5
61+
; Max TCPSock = 5
62+
; Max Tape = 5
63+
; Max Sound = 10
64+
; Max MedModule = 8
65+
; Max Buffer = 10
66+
; Max Queue = 10
67+
; Max Sprite = 20
68+
; Max Module = 5
69+
; Max Slice = 10
70+
; Max Page = 4
71+
; Max CopList = 10
72+
; Max PTModule = 5
73+
; Max Anim = 10
74+
; Max NChunky = 50
75+
; Max Chunky = 20
76+
; Max Stencil = 5
77+
; Max XBSound = 10
78+
; /XTRA
79+
fsl.l = $406d498c
80+
;SetupLESDebug $40438966,True
81+
While fsl
82+
txt2.s = DetokenizeLine(fsl, False)
83+
;txt2.s = Peeks$(txt,32) ;fsl+9)
84+
NPrint Hex$(fsl)," ",Len(txt2), ": " ,txt2
85+
NPrint "********************************************************************************"
86+
fsl = Peek.l(fsl)
87+
MouseWait
88+
89+
Wend
90+
91+
92+
a$="halloleute"
93+
b$="------------------"
94+
c$=b$
95+
D_CheckNMove &a$,&b$,2
96+
D_CheckNMoveWord &a$,&c$,5
97+
NPrint b$
98+
NPrint c$
99+
NPrint c$ : Stop
100+
NPrint a$ : NPrint b$ :NPrint c$
101+
102+
b$="------------------"
103+
D_CheckNMoveA &a$,&b$,2
104+
NPrint b$
105+
106+
d.l = $123456
107+
NPrint GetHex$(d,3)
108+
NPrint GetHexAdr$(&d,3)
109+
110+
For i = 0 To 4 Step 2
111+
NPrint GetCustomReg(i)
112+
Next i
113+
NPrint ""
114+
NPrint GetCustomRegAdr("VPOSR")
115+
116+
End
117+

‎Sourcecodes/Amiblitz3/Tests/printlib_test.ab3‎

Lines changed: 236 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,236 @@
1+
; XTRA
2+
; Embedded .xtra Header
3+
;
4+
; General Info
5+
; -------------------------------------------------------
6+
; ExePath = ""
7+
; ExeFile = ""
8+
; CreateIcon = 1
9+
; Residents = ""
10+
;
11+
; Compiler
12+
; -------------------------------------------------------
13+
; StringBuffer = 10240
14+
; MakeSmallest = 0
15+
; FuncOptimize = 0
16+
; Version = 0.0.0
17+
; NumberOfBuilds = 26
18+
;
19+
; Debugger
20+
; -------------------------------------------------------
21+
; CliArgs = ""
22+
; StackSize = 8191
23+
; RuntimeDebug = 1
24+
; DebugInfo = 0
25+
; CreateDbgFile = 0
26+
; OverflowCheck = 0
27+
; AssemblerCheck = 0
28+
; InterruptCheck = 1
29+
; AutoRun = 1
30+
;
31+
; Editor
32+
; -------------------------------------------------------
33+
; CursorLine = 157
34+
; CursorColumn = 4
35+
; LabelSearch = "test2end"
36+
; LabelRemark = 0
37+
; LabelAll = 1
38+
; LabelCase = 0
39+
; LabelPosition = 0
40+
;
41+
; Blitz Objects
42+
; -------------------------------------------------------
43+
; Max File = 5
44+
; Max GadgetList = 5
45+
; Max Shape = 100
46+
; Max Bank = 5
47+
; Max MenuList = 5
48+
; Max GTList = 20
49+
; Max Palette = 4
50+
; Max BitMap = 10
51+
; Max Screen = 5
52+
; Max IntuiFont = 5
53+
; Max BlitzFont = 4
54+
; Max Window = 20
55+
; Max IconInfo = 1
56+
; Max MUIObject = 50
57+
; Max AsyncReq = 4
58+
; Max Req-Lib = 5
59+
; Max GTMenuList = 5
60+
; Max Console = 5
61+
; Max TCPSock = 5
62+
; Max Tape = 5
63+
; Max Sound = 10
64+
; Max MedModule = 8
65+
; Max Buffer = 10
66+
; Max Queue = 10
67+
; Max Sprite = 20
68+
; Max Module = 5
69+
; Max Slice = 10
70+
; Max Page = 4
71+
; Max CopList = 10
72+
; Max PTModule = 5
73+
; Max Anim = 10
74+
; Max NChunky = 50
75+
; Max Chunky = 20
76+
; Max Stencil = 5
77+
; Max XBSound = 10
78+
; /XTRA
79+
MOVE.l #test1start-#test1end,D0
80+
MOVE.l #test2start-#test2end,D1
81+
PutReg d0,tmpd0.l
82+
PutReg d1,tmpd1.l
83+
NPrint tmpd0,tmpd1
84+
85+
MOVE.l #string,A0
86+
ADD.w #24,a0
87+
MOVE.l #1234,D0
88+
MOVE.w #8,d1
89+
BSR JL_0_A0E
90+
PutReg a0,tmpa0.l
91+
NPrint Peek$(?string)
92+
NPrint Peek$(tmpa0)
93+
End
94+
95+
96+
JL_0_A0E: ; d0: value, d1: counter
97+
DIVU #$A,D0
98+
SWAP D0
99+
ORI.w #$30,D0 ; "0": convert digit to ascii
100+
MOVE.b D0,-(A0)
101+
CLR.w D0
102+
SWAP D0
103+
DBF D1,JL_0_A0E
104+
105+
JL_0_9F8:
106+
CMPI.b #"0",(A0)+
107+
BEQ.w JL_0_9F8
108+
109+
TST.b -(A0)
110+
BEQ.w JL_0_A08
111+
RTS
112+
JL_0_A08:
113+
MOVE.b #"0",-(A0)
114+
115+
RTS
116+
117+
string: Ds.b 24;"111111111111111111111111",0
118+
Ds.b 0
119+
120+
121+
test1start:
122+
Ds.b 40
123+
Dc.b $85,$F8,$00,$00 ;....
124+
Dc.b $00,$A8,$00,$09 ;....
125+
Dc.b $00,$02,$01,$DD ;....
126+
Dc.b $14,$00 ;..
127+
Dc.b $00 ;.
128+
Dc.b "(8"
129+
Dc.b $04 ;.
130+
Dc.b $00 ;.
131+
Dc.b "(%4",0
132+
Dc.b "(",0
133+
Dc.b "@"
134+
Dc.b $8A ;.
135+
Dc.b $C7,$23,$05 ;.#.
136+
Dc.b $00,$3C,$DE ;.<.
137+
Dc.b $0B ;.
138+
Dc.b "k:",0
139+
Dc.b "9"
140+
Dc.b $B1,$A2 ;..
141+
Dc.b $BC,$2F ;./
142+
Dc.b $00,$36,$8E,$1B ;.6..
143+
Dc.b $C9,$BF ;..
144+
Dc.b $00,$32 ;.2
145+
Dc.b $E3,$5F ;._
146+
Dc.b "?2",0
147+
Dc.b "/"
148+
Dc.b $B5,$E6,$20,$F5 ;.. .
149+
Dc.b $00,$2C,$91,$84 ;.,..
150+
Dc.b $E7,$2A ;.*
151+
Dc.b $00,$28,$E8,$D4 ;.(..
152+
Dc.b $A5,$10 ;..
153+
Dc.b $00,$25 ;.%
154+
Dc.b $BA,$43 ;.C
155+
Dc.b $B7,$40 ;.@
156+
Dc.b $00,$22,$95,$02 ;."..
157+
Dc.b $F9,$00,$00,$1E ;....
158+
Dc.b $EE ;.
159+
Dc.b "k(",0,0
160+
Dc.b 27
161+
Dc.b $BE,$BC,$20,$00 ;.. .
162+
Dc.b $00,$18,$98,$96 ;....
163+
Dc.b $80,$00,$00,$14 ;....
164+
Dc.b $F4,$24,$00,$00 ;.$..
165+
Dc.b $00,$11 ;..
166+
Dc.b $C3,$50,$00,$00 ;.P..
167+
Dc.b $00,$0E ;..
168+
Dc.b $9C,$40,$00,$00 ;.@..
169+
Dc.b $00,$0A,$FA,$00 ;....
170+
Ds.w 1
171+
Dc.b $00,$07,$C8,$00 ;....
172+
Ds.w 1
173+
Dc.b $00,$04,$A0,$00 ;....
174+
Ds.w 1
175+
test1end:
176+
177+
test2start:
178+
L_0_926:
179+
Dc.b $00,$01,$80,$00 ;....
180+
Ds.w 1
181+
Dc.b $FF,$FD,$CC,$CC ;....
182+
Dc.b $CC,$CD,$FF,$FA ;....
183+
Dc.b "?"
184+
Dc.b $D7 ;.
185+
Dc.b 10,"="
186+
Dc.b $FF,$F7,$83 ;...
187+
Dc.b $12,$6E,$98 ;.n.
188+
Dc.b $FF,$F3,$D1,$B7 ;....
189+
Dc.b $17,$59,$FF,$F0 ;.Y..
190+
Dc.b $A7,$C5 ;..
191+
Dc.b $AC,$47,$FF,$ED ;.G..
192+
Dc.b $86,$37,$BD,$06 ;.7..
193+
Dc.b $FF,$E9,$D6,$BF ;....
194+
Dc.b $94,$D6,$FF,$E6 ;....
195+
Dc.b $AB ;.
196+
Dc.b $CC,$77,$12 ;.w.
197+
Dc.b $FF,$E3 ;..
198+
Dc.b $89 ;.
199+
Dc.b "p_A"
200+
Dc.b $FF,$DF,$DB,$E6 ;....
201+
Dc.b $FE,$CF,$FF,$DC ;....
202+
Dc.b $AF,$EB,$FF,$0C ;....
203+
Dc.b $FF,$D9,$8C,$BC ;....
204+
Dc.b $CC,$09,$FF,$D5 ;....
205+
Dc.b $E1,$2E ;..
206+
Dc.b $13,$42,$FF,$D2 ;.B..
207+
Dc.b $B4,$24 ;.$
208+
Dc.b "?5"
209+
Dc.b $FF,$CF,$90 ;...
210+
Dc.b $1D,$7C,$F7 ;.|.
211+
Dc.b $FF,$CB,$E6,$95 ;....
212+
Dc.b $94,$BF,$FF,$C8 ;....
213+
Dc.b $B8,$77 ;.w
214+
Dc.b $AA,$32,$FF,$C5 ;.2..
215+
Dc.b $93,$92,$EE,$8F ;....
216+
Dc.b $FF,$C1,$EC ;...
217+
Dc.b $1E ;.
218+
Dc.b "J~"
219+
Dc.b $FF,$BE,$BC,$E5 ;....
220+
Dc.b 8,"e"
221+
Dc.b $FF,$BB,$97,$1D ;....
222+
Dc.b $A0,$50,$FF,$B7 ;.P..
223+
Dc.b $F1,$C9,$00,$81 ;....
224+
Dc.b $FF,$B4 ;..
225+
Dc.b $C1,$6D,$9A,$01 ;.m..
226+
Dc.b $FF,$B1,$9A,$BE ;....
227+
Dc.b $14,$CD,$FF,$AD ;....
228+
Dc.b $F7,$96,$87,$AE ;....
229+
Dc.b $FF,$AA,$C6,$12 ;....
230+
Dc.b $06,$25,$FF,$A7 ;.%..
231+
Dc.b $9E,$74,$D1,$B8 ;.t..
232+
Dc.b $FF,$A3,$FD,$87 ;....
233+
Dc.b $B5 ;.
234+
Dc.b $F3 ;.
235+
test2end:
236+
End

0 commit comments

Comments
 (0)