Changeset 182 for branches/virtualcpu4/Forms
- Timestamp:
- Apr 13, 2019, 1:32:32 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/virtualcpu4/Forms/UFormMain.pas
r181 r182 159 159 LabelPrintLoop := IP; 160 160 DataPrefix8; LoadMem(R3, R1); 161 DataPrefix8; Output(0, R3);161 AddrPrefix8; DataPrefix8; Output(0, R3); 162 162 Increment(R1); 163 163 Decrement(R2); … … 199 199 200 200 // Read keyboard and print to console 201 Loadi(R1, 100);201 Loadi(R1, 0); 202 202 LabelConsole := IP; 203 203 Increment(R1); 204 Loadi(R2, $ 100);204 Loadi(R2, $ff); 205 205 DataPrefix8; StoreMem(R2, R1); 206 DataPrefix8; Input(R2, 0);207 DataPrefix8; Output(0, R2);206 AddrPrefix8; DataPrefix8; Input(R2, 0); 207 AddrPrefix8; DataPrefix8; Output(0, R2); 208 208 Jump(LabelConsole); 209 209
Note:
See TracChangeset
for help on using the changeset viewer.