zybino/tests.rkt

#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))