DENVBAS

CP/Mが動くハードが何種類も出来たが、それだけでは面白くない。

有り難いことに、インターネット上に様々なソフトがある。
そこでいくつかダウンロードして動かしてみた。

CPMUG#17 のDENVBAS

CATALOG.17には以下のとおり記載があり、CP/M対応ではない
----
17.3 16K DENVBAS.ASM DENVER TINY BASIC FROM DR. DOBBS
    NO CP/M I/O YET
----

てっとり速く、コンソール入出力だけCP/Mに対応。(他にもASMでアセンブル出来ないためENDM=>ENDMXと変更)

$ git diff
diff --git a/DENVBAS.ASM b/DENVBAS.ASM
index d303cb8..5242f7e 100644
--- a/DENVBAS.ASM
+++ b/DENVBAS.ASM
@@ -1,5 +1,35 @@
-       ORG     3
-; 
+; CP/M I/O
+;--CP/M interface---------------
+BDOS   EQU     5
+ORIGIN EQU     100H
+;
+       ORG     ORIGIN
+       JMP     STRT
+;
+INPUT:
+CIN:   PUSH    H
+       PUSH    D
+       PUSH    B
+       MVI     C,1
+       CALL    BDOS
+       POP     B
+       POP     D
+       POP     H
+       RET
+;
+COUT:  PUSH    H
+       PUSH    D
+       PUSH    B
+       PUSH    PSW
+       MOV     E,A
+       MVI     C,2
+       CALL    BDOS
+       POP     PSW
+       POP     B
+       POP     D
+       POP     H
+       RET
+;
 STAK   EQU     7100H
 ; 
 ; TINY BASIC INTERPRETER
@@ -410,10 +440,10 @@ TPI2:     IN      TAPU
        RZ      
        INX     H
        JMP     TPIN+2
-TVTI:  JMP     3F08H
+TVTI:  JMP     CIN
 TVTO:  PUSH    B
        MOV     C,A
-       CALL    3809H
+       CALL    COUT
        POP     B
        RET
 ; 
@@ -524,7 +554,7 @@ INMS:       DB      'I','N'+128
 RTMS:  DB      'RE','T'+128
        LXI     D,ENMS
        CALL    TST
-       JMP     ENDM
+       JMP     ENDMX
 ENMS:  DB      'EN','D'+128
        LXI     D,LSMS
        CALL    TST
@@ -560,7 +590,7 @@ LDMX:       CALL    TSTV
        JNC     DMER
        LXI     D,DMC2
        CALL    TST
-       JMP     LDMX:
+       JMP     LDMX
 DMC2:  DB      ','+128
        CALL    DONE
        JMP     NXT
@@ -1402,7 +1432,7 @@ MOFE:     MVI     L,80
        JMP     ERR1
 DZER:  MVI     L,85
        JMP     ERR1
-ENDM:  MVI     L,90
+ENDMX: MVI     L,90
        JMP     ERR1
 SUFE:  MVI     L,95
        JMP     ERR1
(END)

アセンブルは問題なく終了
>ASM DENVBAS
CP/M ASSEMBLER - VER 2.0
V0619 0EFF       MVI C,-1
0CE2
009H USE FACTOR
END OF ASSEMBLY

RunCPM Version 5.3 (CP/M 2.2 60K)

>LOAD DENVBAS

FIRST ADDRESS 0100
LAST  ADDRESS 0AFD
BYTES READ    09FE
RECORDS WRITTEN 14

予約語は以下のとおり。BASICの一方言と言える。FORはない。
LET、GOTO、GOSUB、PR、IF、IN、RET、END
LIST、RUN、CLEAR、TAPE、LOAD
DIM、SIZE、REM、CLRS
RND

なおTAPEやLOADは、テープからの入力でIN命令を使っている。ハードが対応してないので使えない。

>DENVBAS
>10 A=0
>20 PR A
>30 A=A+1
>40 IF A<10 GOTO 20
>50 END
>LIST
 10 A=0
 20 PR A
 30 A=A+1
 40 IF A<10 GOTO 20
 50 END
>RUN
0
1
2
3
4
5
6
7
8
9

90 AT 50
>

注意点は行番号が１バイトであること。実用的とは言えない。(いまさらTinyBasicで実用って何とも言えるが)。
ただしEOFが01Hであるので、行番号1は使えない。