1 line
925 B
NASM
1 line
925 B
NASM
keep SYS6
|
|
|
|
****************************************************************
|
|
* ChemiGS *
|
|
****************************************************************
|
|
* (c) 1992-93 by Urs Hochstrasser *
|
|
* Buendtenweg 6 *
|
|
* 5105 AUENSTEIN (SWITZERLAND) *
|
|
****************************************************************
|
|
|
|
* Module Sys6: System 6 specific calls
|
|
|
|
mcopy Sys6.macros
|
|
|
|
CheckSystem start test for system 6
|
|
using Globals
|
|
clc
|
|
lda fSys5
|
|
beq isSys6
|
|
sec
|
|
pla return to previous caller if sys5
|
|
isSys6 anop
|
|
rts
|
|
end
|
|
|
|
HndlDiskInsert start
|
|
jsr CheckSystem
|
|
pha
|
|
pha
|
|
~HandleDiskInsert #$C000,#0
|
|
pla
|
|
pla
|
|
rts
|
|
end
|
|
|
|
*SetMinGrow start
|
|
* using Globals
|
|
* jsr CheckSystem
|
|
* ph4 #0
|
|
* ~GetAuxWindInfo gDataWin
|
|
* sta gToolErr
|
|
* pl4 WInfoPtr
|
|
* jsr Error
|
|
* move4 WInfoPtr,0
|
|
* ldy #$14
|
|
* lda #68
|
|
* sta [0],y
|
|
* iny
|
|
* iny
|
|
* lda #204
|
|
* sta [0],y
|
|
* rts
|
|
*WInfoPtr ds 4
|
|
* end
|