|
Last change
on this file since 71 was
67,
checked in by mulligan, 10 years ago
|
|
DJNZ instruction finished.
|
|
File size:
412 bytes
|
| Line | |
|---|
| 1 | open "Bit.ml";; |
|---|
| 2 | open "Nibble.ml";; |
|---|
| 3 | open "Byte.ml";; |
|---|
| 4 | open "Byte7.ml";; |
|---|
| 5 | open "Word.ml";; |
|---|
| 6 | |
|---|
| 7 | module type 8051_SERIES = |
|---|
| 8 | sig |
|---|
| 9 | type bit |
|---|
| 10 | type nibble |
|---|
| 11 | type byte |
|---|
| 12 | type byte7 |
|---|
| 13 | type word |
|---|
| 14 | |
|---|
| 15 | type processor_status |
|---|
| 16 | type program_counter |
|---|
| 17 | |
|---|
| 18 | type asm_instruction |
|---|
| 19 | type program = asm_instruction list |
|---|
| 20 | type bit_instruction = byte |
|---|
| 21 | |
|---|
| 22 | val power_up: processor_status |
|---|
| 23 | val next: program_counter -> processor_status -> |
|---|
| 24 | end;; |
|---|
Note: See
TracBrowser
for help on using the repository browser.
