File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change 1+ org 32768
2+ __START_PROGRAM:
3+ di
4+ push ix
5+ push iy
6+ exx
7+ push hl
8+ exx
9+ ld hl , 0
10+ add hl , sp
11+ ld (__CALL_BACK__) , hl
12+ ei
13+ ld hl , 1
14+ push hl
15+ call _test
16+ ld hl , 0
17+ ld b , h
18+ ld c , l
19+ __END_PROGRAM:
20+ di
21+ ld hl , (__CALL_BACK__)
22+ ld sp , hl
23+ exx
24+ pop hl
25+ exx
26+ pop iy
27+ pop ix
28+ ei
29+ ret
30+ __CALL_BACK__:
31+ DEFW 0
32+ _test:
33+ push ix
34+ ld ix , 0
35+ add ix , sp
36+ ld l , (ix + 4 )
37+ ld h , (ix + 5 )
38+ push hl
39+ xor a
40+ pop hl
41+ ld (hl) , a
42+ _test__leave:
43+ ld sp , ix
44+ pop ix
45+ exx
46+ pop hl
47+ ex ( sp ) , hl
48+ exx
49+ ret
50+ ZXBASIC_USER_DATA:
51+ _a:
52+ DEFW __LABEL0
53+ _a.__DATA__.__PTR__:
54+ DEFW _a.__DATA__
55+ _a.__DATA__:
56+ DEFB 00h
57+ DEFB 00h
58+ DEFB 00h
59+ DEFB 00h
60+ DEFB 00h
61+ DEFB 00h
62+ __LABEL0:
63+ DEFW 0000h
64+ DEFB 01h
65+ ; Defines DATA END --> HEAP size is 0
66+ ZXBASIC_USER_DATA_END:
67+ ; Defines USER DATA Length in bytes
68+ ZXBASIC_USER_DATA_LEN EQU ZXBASIC_USER_DATA_END - ZXBASIC_USER_DATA
69+ END
Original file line number Diff line number Diff line change 1+
2+ DIM a (5 ) as UByte
3+
4+ REM parameter 'a' clashes with that of the array above
5+ Sub test (a as UInteger )
6+ POKE a, 0
7+ End Sub
8+
9+ test (1 )
10+
You can’t perform that action at this time.
0 commit comments