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