LTCD_070816.ISO
This commit is contained in:
Terry A. Davis authored and minexew committed
1 parent
d14bbc24f9
commit
0e9364ff4c
506 files changed
+157705
-41812
No files matched your search
@@ -0,0 +1,391 @@
|
||||
void InitSysGlbls()
|
||||
{
|
||||
|
||||
sys_timer=0;
|
||||
sys_jiffies=0;
|
||||
rnd_SEED = 93186752;
|
||||
time_stamp_freq=2676302000; //give reasonable value
|
||||
time_stamp_kHz_freq=time_stamp_freq/1000;
|
||||
sys_cur_focus_task=Fs;
|
||||
sys_update_screen_tss=NULL;
|
||||
MemSet(sema_irqs,0,NUM_IRQ_SEMAS*sizeof(sema));
|
||||
MemSet(sema_irq_busy,0,NUM_IRQ_SEMAS*sizeof(sema));
|
||||
num_spawned_users=0;
|
||||
compiled_lines=0;
|
||||
compiled_functions=0;
|
||||
ext[EXT_IRQ00]=&SimpleTimerIrq;
|
||||
StrCpy(sys_temp_filename,"HOME/Temp.TXZ");
|
||||
|
||||
sys_macro_queue.next=&sys_macro_queue;
|
||||
sys_macro_queue.last=&sys_macro_queue;
|
||||
|
||||
mouse_evt_time=0;
|
||||
kbd_evt_time=0;
|
||||
kbdmouse_fifo=NewU1Fifo(128);
|
||||
|
||||
MemSet(&sys_put_key_queue,0,sizeof(KeyDevStruct));
|
||||
sys_put_key_queue.next=&sys_put_key_queue;
|
||||
sys_put_key_queue.last=&sys_put_key_queue;
|
||||
AddKeyDev(&InputFilterPutKey,&InputFilterPutS,0x40000000);
|
||||
AddKeyDev(&RawCrtPutKey,&RawCrtPutS,0x60000000);
|
||||
|
||||
macro_util_tss=NULL;
|
||||
ip_inhibit_win_operations=FALSE;
|
||||
local_time_offset=0;
|
||||
|
||||
ltcd_base=NULL;
|
||||
ltdc_hash_table=NULL;
|
||||
sysdbg0=0; sysdbg1=0;
|
||||
sysdbg2=0; sysdbg3=0;
|
||||
progress1=0; progress2=0;
|
||||
progress3=0; progress4=0;
|
||||
|
||||
default_iso_name="::/Temp/CDDVD.ISO";
|
||||
|
||||
#exe {
|
||||
I1 *buf;
|
||||
LTDate ltdt;
|
||||
buf=PmtStr("Start-up Accnt(ENTER will prompt):","");
|
||||
ExePrintF("sys_startup_account=\"%s\";\r\n",buf);
|
||||
Free(buf);
|
||||
ltdt=GetCurTimeLTDate;
|
||||
ExePrintF("sys_compile_time=0x%X;\r\n",ltdt);
|
||||
buf=PmtStr("Disk Cache Size, gets rounded-up funny, (ENTER will use default of %s Bytes):","0x8000000");
|
||||
ExePrintF("LTDCInitCache(%s);",buf);
|
||||
Free(buf);
|
||||
}
|
||||
}
|
||||
|
||||
void AddModuleHash(I1 *name,U8 base)
|
||||
{
|
||||
SysHashEntry *temph;
|
||||
temph=MAllocZ(sizeof(SysHashEntry));
|
||||
temph->type=HTT_MODULE|HTT_PUBLIC;
|
||||
temph->use_cnt=0;
|
||||
temph->user_data0=base;
|
||||
temph->source_link=NULL;
|
||||
temph->str=NewStr(name);
|
||||
AddSysHashEntry(temph,Fs->hash_table);
|
||||
}
|
||||
|
||||
|
||||
void AddOsMapSymbols()
|
||||
{
|
||||
SysHashEntry *temph;
|
||||
I1 *sptr;
|
||||
U1 *ptr;
|
||||
U4 *dd;
|
||||
U8 type;
|
||||
I8 i,code;
|
||||
code=sys_boot_base;
|
||||
AddModuleHash("/LT/OSMain/OS",code);
|
||||
ptr=sys_boot_header_base;
|
||||
while ((type=*ptr++)!=EIE_END) { //PASS 1
|
||||
dd=ptr;
|
||||
ptr+=4;
|
||||
i=*dd;
|
||||
sptr=ptr;
|
||||
ptr+=StrLen(sptr)+1;
|
||||
if (type<=EIE_LIT_EXPORT) {
|
||||
temph=MAllocZ(sizeof(SysHashEntry));
|
||||
temph->type=HTT_SYS_SYMBOL;
|
||||
temph->use_cnt=0;
|
||||
temph->user_data0=i+code;
|
||||
temph->source_link=NULL;
|
||||
temph->str=NewStr(sptr);
|
||||
AddSysHashEntry(temph,Fs->hash_table);
|
||||
} else if (type<EIE_MAIN) {
|
||||
} else if (type==EIE_MAIN) {
|
||||
} else if (type==EIE_ABSOLUTE_ADDRESS) {
|
||||
ptr+=i*sizeof(U4);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
U1 *Load(I1 *filename,BoolU4 no_abs=FALSE)
|
||||
{
|
||||
I1 *fbuf;
|
||||
U1 *code,*ptr,etype,*bb;
|
||||
I1 *sptr,*absname;
|
||||
U2 *ww;
|
||||
U4 *dd;
|
||||
U8 *qq,size,cnt;
|
||||
BinFileHeaderStruct *bfh;
|
||||
I8 i,j,n;
|
||||
SysHashEntry *temph,*saved_hash_ptr=NULL;
|
||||
ClassStruct *tempc;
|
||||
GlblVarStruct *tempg;
|
||||
fbuf=DefaultExtension(filename,"BIZ");
|
||||
if (!(bfh=ReadFile(fbuf,&size))) {
|
||||
Free(fbuf);
|
||||
return NULL;
|
||||
}
|
||||
code=bfh+sizeof(BinFileHeaderStruct);
|
||||
|
||||
if (ArcCheckSum(bfh,bfh->file_size)!=LT_XSUM)
|
||||
throw(EXCEPT_ARC_XSUM);
|
||||
|
||||
absname=AbsoluteFileName(fbuf);
|
||||
Free(fbuf);
|
||||
fbuf=NewStr(absname);
|
||||
RemoveLastSeg(fbuf,".");
|
||||
if (fbuf[1]==':' && StrLen(fbuf)>2)
|
||||
AddModuleHash(fbuf+2,code);
|
||||
Free(fbuf);
|
||||
|
||||
ptr=bfh+bfh->header_offset;
|
||||
while ((etype=*ptr++)!=EIE_END) { //PASS 1
|
||||
dd=ptr;
|
||||
ptr+=sizeof(U4);
|
||||
i=*dd;
|
||||
sptr=ptr;
|
||||
ptr+=StrLen(sptr)+1;
|
||||
if (etype<=EIE_LIT_EXPORT) {
|
||||
temph=MAllocZ(sizeof(SysHashEntry));
|
||||
temph->str=NewStr(sptr);
|
||||
temph->type=HTT_SYS_SYMBOL;
|
||||
temph->use_cnt=0;
|
||||
n=StrLen(absname);
|
||||
temph->source_link=MAlloc(n+4);
|
||||
StrCpy(temph->source_link,"FI:");
|
||||
StrCat(temph->source_link,absname);
|
||||
if (etype==EIE_LIT_EXPORT)
|
||||
temph->user_data0=i;
|
||||
else
|
||||
temph->user_data0=i+code;
|
||||
AddSysHashEntry(temph,Fs->hash_table);
|
||||
} else if (etype<EIE_MAIN) {
|
||||
if (*sptr)
|
||||
saved_hash_ptr=FindLocalHash(sptr,HTT_ALL);
|
||||
if (!saved_hash_ptr)
|
||||
coutln SysText("ST_UNRESOLVED_REFERENCE"),sptr;
|
||||
else {
|
||||
bb=code+i;
|
||||
ww=code+i;
|
||||
dd=code+i;
|
||||
qq=code+i;
|
||||
if (saved_hash_ptr->type & HTT_FUNCTION) {
|
||||
tempc=saved_hash_ptr;
|
||||
if (etype & 1)
|
||||
i=tempc->executable_address;
|
||||
else
|
||||
i=tempc->executable_address-code;
|
||||
} else if (saved_hash_ptr->type & HTT_GLBL_VAR) {
|
||||
tempg=saved_hash_ptr;
|
||||
if (etype & 1)
|
||||
i=tempg->data_address;
|
||||
else
|
||||
i=tempg->data_address-code;
|
||||
} else {
|
||||
if (etype & 1)
|
||||
i=saved_hash_ptr->user_data0;
|
||||
else
|
||||
i=saved_hash_ptr->user_data0-code;
|
||||
}
|
||||
if (etype<=EIE_LIT_U1)
|
||||
*bb=i+*bb;
|
||||
else if (etype<=EIE_LIT_U2)
|
||||
*ww=i+*ww;
|
||||
else if (etype<=EIE_LIT_U4)
|
||||
*dd=i+*dd;
|
||||
else if (etype<=EIE_LIT_U8)
|
||||
*qq=i+*qq;
|
||||
}
|
||||
} else if (etype==EIE_ABSOLUTE_ADDRESS) {
|
||||
if (no_abs)
|
||||
ptr+=i*sizeof(U4);
|
||||
else {
|
||||
cnt=i;
|
||||
for (j=0;j<cnt;j++) {
|
||||
dd=ptr;
|
||||
ptr+=sizeof(U4);
|
||||
dd=code+*dd;
|
||||
*dd+=code;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
ptr=bfh+bfh->header_offset;
|
||||
while ((etype=*ptr++)!=EIE_END) { //PASS 2
|
||||
dd=ptr;
|
||||
ptr+=sizeof(U4);
|
||||
i=*dd;
|
||||
sptr=ptr;
|
||||
ptr+=StrLen(sptr)+1;
|
||||
if (etype<=EIE_LIT_EXPORT) {
|
||||
} else if (etype<EIE_MAIN) {
|
||||
} else if (etype==EIE_MAIN) {
|
||||
Call(i+code);
|
||||
} else if (etype==EIE_ABSOLUTE_ADDRESS) {
|
||||
ptr+=sizeof(U4)*i;
|
||||
}
|
||||
}
|
||||
Free(absname);
|
||||
return bfh;
|
||||
}
|
||||
|
||||
void InitTimer()
|
||||
{
|
||||
OutP(0x43,0x34);
|
||||
OutP(0x40,SYS_TIMER0_PERIOD);
|
||||
OutP(0x40,SYS_TIMER0_PERIOD>>8);
|
||||
}
|
||||
|
||||
void InitIrqs()
|
||||
{ //Init 8259
|
||||
OutP(0x20,0x11); //IW1
|
||||
OutP(0xA0,0x11); //IW1
|
||||
PortNop;
|
||||
OutP(0x21,0x20); //IW2
|
||||
OutP(0xA1,0x28); //IW2
|
||||
PortNop;
|
||||
OutP(0x21,0x04); //IW3
|
||||
OutP(0xA1,0x02); //IW3
|
||||
PortNop;
|
||||
OutP(0x21,0x0D); //IW4
|
||||
OutP(0xA1,0x09); //IW4
|
||||
PortNop;
|
||||
OutP(0x21,0x24); //Mask
|
||||
OutP(0xA1,0x37);
|
||||
PortNop;
|
||||
}
|
||||
|
||||
GrBitMap *GrBitMapNew(U8 type,U8 width,U8 height,TssStruct *tss=NULL)
|
||||
{ //This only allows widths which are divisible by 8
|
||||
GrBitMap *result;
|
||||
if (!tss) tss=Fs;
|
||||
result=MAllocZ(sizeof(GrBitMap),tss);
|
||||
result->win_tss=tss;
|
||||
result->mem_tss=tss;
|
||||
result->type=type;
|
||||
result->width=width;
|
||||
result->internal_width=(width+7)&~7;
|
||||
result->height=height;
|
||||
result->left_margin=0;
|
||||
result->right_margin=width;
|
||||
result->top_margin=0;
|
||||
result->bottom_margin=height;
|
||||
switch (type) {
|
||||
case BMT_COLOR4:
|
||||
result->plane_size=(result->internal_width*result->height)>>3;
|
||||
result->body=MAllocZ(result->plane_size<<2,tss);
|
||||
break;
|
||||
case BMT_MONO:
|
||||
result->plane_size=(result->internal_width*result->height)>>3;
|
||||
result->body=MAllocZ(result->plane_size,tss);
|
||||
break;
|
||||
default:
|
||||
throw(EXCEPT_GRAPHICS,1);
|
||||
}
|
||||
result->pen_width=1;
|
||||
result->r=MAllocZ(16<<3,tss);
|
||||
result->r[0].u4[1]=1;
|
||||
result->r[5].u4[1]=1;
|
||||
result->r[10].u4[1]=1;
|
||||
result->r[15].u4[1]=1;
|
||||
result->speedline_scale=0.04;
|
||||
result->bitmap_signature=BMS_SIGNATURE;
|
||||
return result;
|
||||
}
|
||||
|
||||
void InitGraphics()
|
||||
{
|
||||
dc_col=0;
|
||||
dc_flags=0;
|
||||
dc_cursor_blink=0;
|
||||
|
||||
grfont=sys_font_8x8;
|
||||
//TODO free old allocated stuff
|
||||
grbase2=GrBitMapNew(BMT_COLOR4,GR_WIDTH+128,GR_HEIGHT+32);
|
||||
grbase2->left_margin=64;
|
||||
grbase2->right_margin=GR_WIDTH+grbase2->left_margin;
|
||||
grbase2->top_margin=16;
|
||||
grbase2->bottom_margin=grbase2->height-16;
|
||||
grbase2->flags|=BMF_SCREEN_BITMAP;
|
||||
vga_image=MAlloc(GR_WIDTH*GR_HEIGHT>>1);
|
||||
textbase=MAlloc(GR_WIDTH/FONT_WIDTH*(GR_HEIGHT/FONT_HEIGHT)<<2);
|
||||
|
||||
|
||||
Gs->grbase=GrBitMapNew(BMT_COLOR4,GR_WIDTH,GR_HEIGHT);
|
||||
Gs->grbase->flags|=BMF_SCREEN_BITMAP;
|
||||
GrClear2(Gs->grbase);
|
||||
|
||||
gr_merge_base=GrBitMapNew(BMT_COLOR4,GR_WIDTH,GR_HEIGHT);
|
||||
gr_merge_base->flags|=BMF_SCREEN_BITMAP;
|
||||
|
||||
OutP(VGA_SC_INDEX,VGA_MAP_MASK);
|
||||
OutP(VGA_SC_DATA,0x0F);
|
||||
|
||||
MemSet(0xA0000,0,GR_HEIGHT*GR_WIDTH>>3);
|
||||
}
|
||||
|
||||
asm {CP_REBOOT:}
|
||||
void Reboot()
|
||||
{
|
||||
U2 *d=0x472;
|
||||
Cli;
|
||||
if (mp_cnt>1) {
|
||||
MPHalt;
|
||||
BusyWait(100);
|
||||
}
|
||||
*d=0;
|
||||
OutP(0x70,0x8F);
|
||||
OutP(0x71,0x00);
|
||||
OutP(0x70,0x00);
|
||||
OutP(0x92,InP(0x92)|1);
|
||||
Hlt;
|
||||
}
|
||||
|
||||
asm {CP_OS_MAIN:}
|
||||
void OsMain()
|
||||
{
|
||||
U8 i,j;
|
||||
adam_tss=Fs;
|
||||
StrCpy(Fs->task_descriptor2,"Adam Task CPU#0");
|
||||
StrCpy(Fs->task_descriptor,Fs->task_descriptor2);
|
||||
reverse_bits_table=MAllocZ(256);
|
||||
for (i=0;i<256;i++)
|
||||
for (j=0;j<8;j++)
|
||||
if (Bt(&i,7-j))
|
||||
Bts(reverse_bits_table+i,j);
|
||||
set_bits_table=MAllocZ(256);
|
||||
for (i=0;i<256;i++)
|
||||
for (j=0;j<8;j++)
|
||||
if (Bt(&i,j))
|
||||
set_bits_table[i]++;
|
||||
ext=MAllocZ(EXT_TABLE_SIZE*sizeof(void *));
|
||||
ctrl_alt_letter_routines=MAllocZ(26*sizeof(void *));
|
||||
InitGraphics();
|
||||
InitSysTask;
|
||||
AddOsMapSymbols;
|
||||
InitSysGlbls;
|
||||
//Before this point use $LK,"Sound","MN:Sound"$() and $LK,"BusyWait","MN:BusyWait"$()
|
||||
//to debug. After this point, use $LK,"DbgNum","MN:DbgNum"$()
|
||||
LoadSysStrs;
|
||||
|
||||
MPInit;
|
||||
InitTimer;
|
||||
InitIrqs;
|
||||
coutln "Enable IRQ's";
|
||||
SetFlags(SYS_NORMAL_RFLAGS);
|
||||
Preempt(ON);
|
||||
time_stamp_start=GetTimeStamp;
|
||||
sys_timer_start=ReadSysTimer;
|
||||
|
||||
coutln "InitAllBlkDevs";
|
||||
InitAllBlkDevs;
|
||||
coutln "Select Default Drive";
|
||||
SelectDefaultDrive;
|
||||
cout "Loading Compiler...";
|
||||
Cd("/LT/Compiler");
|
||||
Load("Compiler");
|
||||
coutln "Done";
|
||||
CallExtStr("AdamStartUpFile");
|
||||
//Continues here $LK,"AdamStartUpFile","FF:::/LT/Compiler/CmpMain.CPZ,AdamStartUpFile"$
|
||||
ContinueServantTask; //Never to return
|
||||
}
|
||||
|
||||
asm { ALIGN 16,0x90
|
||||
SYS_CS_SIZE::}
|
||||
|
||||
Reference in new issue
Block a user