NEW
  AUTO 3,1
*/--------------------------------------
* # LoadStkObj
* Load a file in AUX memory (Stock Objects)
*  PUSHW = PATH (Handled by....
*  PUSHB = MODE  ...
*  PUSHB = TYPE  ...
*  PUSHW = AUXTYPE ...FOpen)
* ## RETURN VALUE
*  Y,A = File Length
*  X = hMem of Loaded Object in AUX mem
*\--------------------------------------
K.LoadStkObj	jsr K.LoadFile0			... ending \0
				bcs .99
				
				stx .90+1
				sty .81+1				Save File Len
				sta .82+1

				iny
				bne .1
				inc						+1 for ending 0

.1				jsr MEM.MoveToAux		X = AUX hMem
				bcs .9

.81				ldy #$ff				and file len in Y,A
.82				lda #$ff
*				clc
				rts

.9				pha
.90				lda #$ff				SELF MODIFIED
				jsr K.freemem
				pla
				sec
.99				rts
*/--------------------------------------
* # GetStkObj
* ## C
* `int *ptr getstkobj (short int hStkObj);`
* ## ASM
* `lda hStkObj`
* `>SYSCALL GetStkObj`
* ## RETURN VALUE
*  CC : success
*   X = hMem
*   Y,A = ptr
*  CS : error
*   A = EC
*\--------------------------------------
K.GetStkObj		tax						hMem for CopyToMain
				
				jsr MEM.GetMemByID
				
				ldy #S.MEM.LEN
				lda (ZPMemMgrSPtr),y
				pha
				iny
				lda (ZPMemMgrSPtr),y
				ply						YA = Len

				jmp MEM.CopyToMain
*--------------------------------------
MAN
SAVE usr/src/sys/kernel.s.stkobj
LOAD usr/src/sys/kernel.s
ASM