［新連載］復活！ＴＩＮＹ ＢＡＳＩＣ
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第３８回］
●ＴＩＮＹ ＢＡＳＩＣのソースプログラムファイル！
以前からいろいろご購入いただいておりますお客様からメールをいただきました。
ＴＩＮＹ ＢＡＳＩＣのソースプログラムをみつけましたとのことで、リンク先を教えていただきました。
当連載で紹介しております雑誌記事コピーのＰＤＦもありますが、なんとＴＥＸＴ形式のソースプログラムファイルもダウンロードできます！
教えていただいたのはこちら（↓）のサイトです。
https://www.autometer.de/unix4fun/z80pack/ftp/altair/
そこの少し下の方
tinybasic-2.0.asm
がそのファイルです。
拡張子は．ａｓｍですが実体は．ｔｘｔと同じプレーンテキストですからメモ帳やＴｅｒａｐａｄで開けます。
ただ各行のエンドコードが０Ｄ０Ａではなくて０Ａになっているのでメモ帳で開くと改行してくれません。
Ｔｅｒａｐａｄなら問題なく開けます。
さらに同サイトをよく見てみましたら、ソースプログラムファイルだけではなくて、完全なアセンブルリスト（出力ファイル）までありました。
tinybasic-2.0.prn
おお。
これはこれは。
これを使わせていただければ、今までのようにちょっと読みにくいＰＤＦからのコピーではなくて、普通のテキストで読んでいただくことができます。
こんな感じです。
;
;*************************************************************
;
; WHAT FOLLOWS IS THE CODE TO EXECUTE DIRECT AND STATEMENT
; COMMANDS. CONTROL IS TRANSFERED TO THESE POINTS VIA THE
; COMMAND TABLE LOOKUP CODE OF 'DIRECT' AND 'EXEC' IN LAST
; SECTION. AFTER THE COMMAND IS EXECUTED, CONTROL IS
; TRANSFERED TO OTHERS SECTIONS AS FOLLOWS:
;
; FOR 'LIST', 'NEW', AND 'STOP': GO BACK TO 'RSTART'
; FOR 'RUN': GO EXECUTE THE FIRST STORED LINE IF ANY, ELSE
; GO BACK TO 'RSTART'.
; FOR 'GOTO' AND 'GOSUB': GO EXECUTE THE TARGET LINE.
; FOR 'RETURN' AND 'NEXT': GO BACK TO SAVED RETURN LINE.
; FOR ALL OTHERS: IF 'CURRENT' -> 0, GO TO 'RSTART', ELSE
; GO EXECUTE NEXT COMMAND. (THIS IS DONE IN 'FINISH'.)
;*************************************************************
;
; *** NEW *** STOP *** RUN (& FRIENDS) *** & GOTO ***
;
; 'NEW(CR)' SETS 'TXTUNF' TO POINT TO 'TXTBGN'
;
; 'STOP(CR)' GOES BACK TO 'RSTART'
;
; 'RUN(CR)' FINDS THE FIRST STORED LINE, STORE ITS ADDRESS (IN
; 'CURRENT'), AND START EXECUTE IT. NOTE THAT ONLY THOSE
; COMMANDS IN TAB2 ARE LEGAL FOR STORED PROGRAM.
;
; THERE ARE 3 MORE ENTRIES IN 'RUN':
; 'RUNNXL' FINDS NEXT LINE, STORES ITS ADDR. AND EXECUTES IT.
; 'RUNTSL' STORES THE ADDRESS OF THIS LINE AND EXECUTES IT.
; 'RUNSML' CONTINUES THE EXECUTION ON SAME LINE.
;
; 'GOTO EXPR(CR)' EVALUATES THE EXPRESSION, FIND THE TARGET
; LINE, AND JUMP TO 'RUNTSL' TO DO IT.
;
0132 CDC504 NEW: CALL ENDCHK ;*** NEW(CR) ***
0135 211708 LXI H,TXTBGN
0138 221508 SHLD TXTUNF
;
013B CDC504 STOP: CALL ENDCHK ;*** STOP(CR) ***
013E C3BA00 JMP RSTART
;
0141 CDC504 RUN: CALL ENDCHK ;*** RUN(CR) ***
0144 111708 LXI D,TXTBGN ;FIRST SAVED LINE
;
0147 210000 RUNNXL: LXI H,0 ;*** RUNNXL ***
014A CD4305 CALL FNDLP ;FIND WHATEVER LINE #
1
8080 MACRO ASSEMBLER, VER 3.0 ERRORS = 0
+ 13:28 11/10/2019
+ PAGE 7
014D DABA00 JC RSTART ;C:PASSED TXTUNF, QUIT
;
0150 EB RUNTSL: XCHG ;*** RUNTSL ***
0151 220108 SHLD CURRNT ;SET 'CURRENT'->LINE #
0154 EB XCHG
0155 13 INX D ;BUMP PASS LINE #
0156 13 INX D
;
0157 CD8706 RUNSML: CALL CHKIO ;*** RUNSML ***
015A 21C006 LXI H,TAB2-1 ;FIND COMMAND IN TAB2
015D C33E07 JMP EXEC ;AND EXECUTE IT
;
0160 DF GOTO: RST 3 ;*** GOTO EXPR ***
0161 D5 PUSH D ;SAVE FOR ERROR ROUTINE
0162 CDC504 CALL ENDCHK ;MUST FIND A CR
0165 CD3B05 CALL FNDLN ;FIND THE TARGET LINE
0168 C2A000 JNZ AHOW ;NO SUCH LINE #
016B F1 POP PSW ;CLEAR THE PUSH DE
016C C35001 JMP RUNTSL ;GO DO IT
|
さっそく有難く使わせていただこうと思ったのですが…。
さらによくよく見ましたら、昨年出力したばかりのリストのようです。
サイトを確認しますとどうやら個人の方がやってみえるサイトのようで、特に引用不可ということでもないようなのですが。
いや、でも、何十年も昔のものでしたらともかくとしてまだ一年も経っていないような出力したてのリストを黙って使わせていただくというのはいかがなものかと思ってしまいます。
ですので、やっぱりここは今まで通り雑誌からのＰＤＦをコピーしたものを使わせていただくことにいたします。
ちょっと読みにくいというところにつきましては、前記のリンクからきれいな出力リストをダウンロードしていただいて、それをご参照いただきますようお願いいたします。
気分としましては、やっぱりレトロなものを説明するにはレトロなものから引用するほうが似合っているように思います。
それはそれとしまして貴重な情報を教えていただいた広島県のＨ様には心から感謝申し上げます。
今後ともよろしくお願いいたします。
復活！ＴＩＮＹ ＢＡＳＩＣ［第３８回］
２０２０．７．１５ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る