|
123456789101112131415161718 |
- #lang racket
- (require "vm.rkt")
-
- (define (test-loop)
- (run-vm #x0000 #x0160 8
- '(#x26 #x01 ; LD H, $01
- #x2E #x61 ; LD L, $60
- #x3E #x05 ; LD A, $05
- #x77 ; LD (HL), A
- #x2C ; INC L
- #x3D ; DEC A
- #xFE #x00 ; CP $00
- #xC2 #x06 #x00 ; JP NZ, $0006
- #x10 ; STOP
- )))
-
- (provide (all-defined-out))
-
|