mirror of https://github.com/red-prig/fpPS4.git
37 lines
936 B
Plaintext
37 lines
936 B
Plaintext
unit kern_psl;
|
|
|
|
{$mode ObjFPC}{$H+}
|
|
|
|
interface
|
|
|
|
//80 40 10 04 01
|
|
//SF:ZF:0:AF:0:PF:1:CF
|
|
|
|
const
|
|
PSL_C =$00000001; // carry bit
|
|
PSL_PF =$00000004; // parity bit
|
|
PSL_AF =$00000010; // bcd carry bit
|
|
PSL_Z =$00000040; // zero bit
|
|
PSL_N =$00000080; // negative bit
|
|
PSL_T =$00000100; // trace enable bit
|
|
PSL_I =$00000200; // interrupt enable bit
|
|
PSL_D =$00000400; // string instruction direction bit
|
|
PSL_V =$00000800; // overflow bit
|
|
PSL_IOPL=$00003000; // i/o privilege level
|
|
PSL_NT =$00004000; // nested task bit
|
|
PSL_RF =$00010000; // resume flag bit
|
|
PSL_AC =$00040000; // alignment checking
|
|
PSL_ID =$00200000; // identification bit
|
|
|
|
PSL_RESERVED_DEFAULT=$00000002;
|
|
|
|
PSL_KERNEL=PSL_RESERVED_DEFAULT;
|
|
PSL_USER =(PSL_RESERVED_DEFAULT or PSL_I);
|
|
|
|
PSL_USERCHANGE=(PSL_C or PSL_PF or PSL_AF or PSL_Z or PSL_N or PSL_T or PSL_D or PSL_V or PSL_NT or PSL_RF or PSL_AC or PSL_ID);
|
|
|
|
implementation
|
|
|
|
end.
|
|
|