jsdoでMK-80 その7

概要

jsdoでMK-80やってみた。
アセンブルして、メモリーへロードするまで、自動化した。
サイコロやってみた。乱数のアルゴリズムを変更した。

サンプルコード

求めておいた乱数をテーブルから、引くようにした。

keyinput　   EQU　0216H
showsegdata  EQU  01C0H
led0         EQU  83F4H  
led3         EQU  83F7H
ORG 8200H

start:
    mvi a, 00h
    sta led0

start1:
    lda point
    inr a
    cpi 0fh
    jnc  jmp
start2:    
    sta point
    mvi b, 00h
    mov c, a
    lxi H, table
    dad b
    mov a, M
    sta led3
    call showsegdata
    call keyinput
    jmp start1
jmp:
    mvi a, 00h
    jmp start2

table:
    db 1, 3, 3, 5
    db 4, 2, 6, 4
    db 2, 1, 3, 6
    db 2, 6, 3, 3
point:
    db 2

成果物

使い方

run click
run2 click
8 2 0 0 adrset
run

以上