TINIDISK

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

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

CPMUG011  TINIDISK

アセンブルは問題なく終了
-------------------------
F>ASM TINIDISK
CP/M ASSEMBLER - VER 2.0
2000
00AH USE FACTOR
END OF ASSEMBLY

RunCPM Version 5.3 (CP/M 2.2 60K)

F>LOAD TINIDISK

FIRST ADDRESS 0100
LAST  ADDRESS 0AB8
BYTES READ    0985
RECORDS WRITTEN 14

F>TINIDISK

SHERRY BROTHERS TINY BASIC VER. 3.1

OK
>10 FOR X=0 TO 10
>20   PRINT X
>30 NEXT X
>LIST
  10 FOR X=0 TO 10
  20 PRINT X
  30 NEXT X

OK
>RUN
     0
     1
     2
     3
     4
     5
     6
     7
     8
     9
    10

OK
>SAVE TESTPG

OK
>BYE

RunCPM Version 5.3 (CP/M 2.2 60K)

F>dir
F: STARTREK TBI : TESTPG   TBI : TINIDISK ASM : TINIDISK COM
F: TINIDISK DOC : TINIDISK HEX : TINIDISK PRN

感想
ベースは有名なWANGのPalo Alto Tiny BASIC(この時すでにCOPYLEFTになってる)

;*                  TINY BASIC FOR INTEL 8080
;*                      VERSION 1.0
;*                    BY LI-CHEN WANG
;*                     10 JUNE, 1976 
;*                       @COPYLEFT 
;*                  ALL WRONGS RESERVED

面白いのは、もともとのWANGのTINY BASICはRST1〜7をサブルーチンの代わりに使用し、インタープリタを小さくしているため、CP/Mでは変更が必要となる。通常ならCALLに置き換えてアセンブルし直すのだが、このプログラムでは、なんと初期化でRST1〜7を上書きしている。
(なのでRST7を使用するDDTでのデバッグは出来ない)

                ; RESTART TABLE
 0A50            ORG 0A50H
                RSTBL:
 0A50 E3               XTHL           ;*** TSTC OR RST 1 *** 
 0A51 EF               RST  5         ;IGNORE BLANKS AND 
 0A52 BE               CMP  M         ;TEST CHARACTER
 0A53 C32F01           JMP  TC1       ;REST OF THIS IS AT TC1
                ;* 
 000E =         CRLF: EQU 0EH ;EXECUTE TIME LOCATION OF THIS INSTRUCTION.
 0A56 3E0D       MVI  A,0DH     ;*** CRLF ***
                ;* 
 0A58 F5               PUSH PSW       ;*** OUTC OR RST 2 *** 
 0A59 3AC009           LDA  OCSW      ;PRINT CHARACTER ONLY
 0A5C B7               ORA  A         ;IFF OCSW SWITCH IS ON
 0A5D C35D09           JMP  OC2       ;REST OF THIS IS AT OC2
                ;* 
 0A60 CD1606           CALL EXPR2     ;*** EXPR OR RST 3 *** 
 0A63 E5               PUSH H         ;EVALUATE AN EXPRESION 
 0A64 C3D205           JMP  EXPR1     ;REST OF IT IS AT EXPR1
 0A67 57               DB   'W' 
                ;* 
 0A68 7C               MOV  A,H       ;*** COMP OR RST 4 *** 
 0A69 BA               CMP  D         ;COMPARE HL WITH DE
 0A6A C0               RNZ            ;RETURN CORRECT C AND
 0A6B 7D               MOV  A,L       ;Z FLAGS 
 0A6C BB               CMP  E         ;BUT OLD A IS LOST 
 0A6D C9               RET
 0A6E 414E             DB   'AN'
                ;* 
 0028 =         SS1: EQU 28H ;EXECUTE TIME LOCATION OF THIS INSTRUCTION.
 0A70 1A         LDAX D         ;*** IGNBLK/RST 5 ***
 0A71 FE20             CPI  40Q       ;IGNORE BLANKS 
 0A73 C0               RNZ            ;IN TEXT (WHERE DE->)
 0A74 13               INX  D         ;AND RETURN THE FIRST
 0A75 C32800           JMP  SS1       ;NON-BLANK CHAR. IN A
                ;* 
 0A78 F1               POP  PSW       ;*** FINISH/RST 6 ***
 0A79 CDCD07           CALL FIN       ;CHECK END OF COMMAND
 0A7C C3E007           JMP  QWHAT     ;PRINT "WHAT?" IFF WRONG
 0A7F 47               DB   'G' 
                ;* 
 0A80 EF               RST  5         ;*** TSTV OR RST 7 *** 
 0A81 D640             SUI  100Q      ;TEST VARIABLES
 0A83 D8               RC             ;C:NOT A VARIABLE
 0A84 C30301           JMP  TSTV1     ;JUMP AROUND RESERVED AREA
                ; ROUTINE TO COPY RESTART TABLE INTO LOW MEMORY
 0008 =         RST1: EQU 8 ;LOCATION FIRST REATART ROUTINE
                
 0040 =         EOT: EQU 40H ;LAST LOC TO BE FILLED
                
 0AA0            ORG 0AA0H
 0AA0 210800    NINIT: LXI H,RST1  ;POINT TO BEGINNING OF MODEL TABLE
 0AA3 11500A     LXI D,RSTBL
 0AA6 1A        NXT: LDAX D
 0AA7 77         MOV M,A
 0AA8 23         INX H
 0AA9 13         INX D
 0AAA 3E40       MVI A,EOT
 0AAC BD         CMP L
 0AAD C2A60A     JNZ NXT
 0AB0 21FF09     LXI H,INIT
 0AB3 220101     SHLD START+1
 0AB6 C30001     JMP START
 0F00                  ORG  0F00H
 0F00 =         TXTEND EQU  $         ;TEXT SAVE AREA ENDS 
 0F00           VARBGN DS   2*27      ;VARIABLE @(0)
 0F36                  DS   1         ;EXTRA BYTE FOR BUFFER
 0F37           BUFFER DS   80        ;INPUT BUFFER
 0F87 =         BUFEND EQU  $         ;BUFFER ENDS
 0F87                  DS   40        ;EXTRA BYTES FOR STACK
 0FAF =         STKLMT EQU  $         ;TOP LIMIT FOR STACK
 2000                  ORG  2000H
 2000 =         STACK  EQU  $         ;STACK STARTS HERE
 2000                  END

 

コマンド
-------
LIST,RUN,NEW,LOAD,SAVE,BYE

文
--------
NEXT,LET,OUT,POKE,WAIT,IF
GOTO,GOSUB,RETURN
REM,FOR,INPUT,PRINT,STOP

関数
--------
RND,INP,PEEK,USR,ABS,SIZE