several improvements
This commit is contained in:
@@ -159,7 +159,7 @@ var
|
||||
iclass: insclass; { true for escaped opcodes }
|
||||
dispat: array[insclass,byte] of dispatch;
|
||||
retsize:size; { holds size of last LFR }
|
||||
insr: mnem; { holds the instructionnumber }
|
||||
insr: mnem; { holds the instruction number }
|
||||
halted: boolean; { normally false }
|
||||
exitstatus:word; { parameter of MON 1 }
|
||||
ignmask:word; { ignore mask for traps }
|
||||
@@ -522,7 +522,7 @@ begin j:=0;
|
||||
end;
|
||||
|
||||
{---------------------------------------------------------------------------}
|
||||
{ Array indexing
|
||||
{ Array indexing }
|
||||
{---------------------------------------------------------------------------}
|
||||
|
||||
function arraycalc(c:adr):adr; { subscript calculation }
|
||||
|
||||
Reference in New Issue
Block a user