diff options
| author | Syndamia <kamen@syndamia.com> | 2022-09-24 21:47:48 +0300 |
|---|---|---|
| committer | Syndamia <kamen@syndamia.com> | 2022-09-24 21:47:48 +0300 |
| commit | 8ebb762435ee28acfa6021d1d6380b9b553ba2ff (patch) | |
| tree | 0c870ef59d0439bf66582c4f75f2cdf8374ae926 /MOS6502.lisp | |
| parent | f1dc5c51237458f523d22c84bf07a1f39f91af75 (diff) | |
| download | PVC-8ebb762435ee28acfa6021d1d6380b9b553ba2ff.tar PVC-8ebb762435ee28acfa6021d1d6380b9b553ba2ff.tar.gz PVC-8ebb762435ee28acfa6021d1d6380b9b553ba2ff.zip | |
Fixed up *CPU* indentation
Diffstat (limited to 'MOS6502.lisp')
| -rw-r--r-- | MOS6502.lisp | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/MOS6502.lisp b/MOS6502.lisp index e04c562..98fb8d9 100644 --- a/MOS6502.lisp +++ b/MOS6502.lisp @@ -7,12 +7,14 @@ ;;; needs a value, gets ready to read it from the next address and do something ;;; ;;; The implementation uses closures for the internal registers. -(defparameter *CPU* (let ((PC 0) (AC 0) (X 0) (Y 0) (SR 0) (SP 0)) #'(lambda () - (let ((mval (nth PC *M*))) - (if (eql mval +OP_BRK+) - () - (if (eql mval +OP_ORAxi+) - ())))))) +(defparameter *CPU* + (let ((PC 0) (AC 0) (X 0) (Y 0) (SR 0) (SP 0)) + #'(lambda () + (let ((mval (nth PC *M*))) + (if (eql mval +OP_BRK+) + () + (if (eql mval +OP_ORAxi+) + ())))))) ;;; External memory, where the zero page, stack and general purpose memory resides ;;; Another file has to implement it. |