2020-06-12 00:07:59 -04:00
|
|
|
#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
|
2020-06-12 00:23:57 -04:00
|
|
|
#xC2 #x06 #x00 ; JP NZ, $0006
|
2020-06-12 00:07:59 -04:00
|
|
|
#x10 ; STOP
|
|
|
|
|
)))
|
|
|
|
|
|
|
|
|
|
(provide (all-defined-out))
|
|
|
|
|
|
