1; GEOS KERNAL by Berkeley Softworks
2; reverse engineered by Maciej Witkowiak, Michael Steil
3;
4;
5
6.include "const.inc"
7.include "geossym.inc"
8.include "geosmac.inc"
9.include "config.inc"
10.include "gkernal.inc"
11.include "c64.inc"
12
13.global GetInlineDrwParms
14
15.segment "inline"
16
17GetInlineDrwParms:
18.ifdef bsw128
19	PopW r6
20.endif
21	PopW r5
22	PopW returnAddress
23.ifdef wheels_size
24	ldy #0
25@1:	iny
26	lda (returnAddress),y
27	sta r1H,y
28	cpy #6
29	bne @1
30.else
31	ldy #1
32	lda (returnAddress),Y
33	sta r2L
34	iny
35	lda (returnAddress),Y
36	sta r2H
37	iny
38	lda (returnAddress),Y
39	sta r3L
40	iny
41	lda (returnAddress),Y
42	sta r3H
43	iny
44	lda (returnAddress),Y
45	sta r4L
46	iny
47	lda (returnAddress),Y
48	sta r4H
49.endif
50	PushW r5
51.ifdef bsw128
52	PushW r6
53.endif
54	rts
55
56