Преглед изворни кода

trs80: adapt recipe to single stage xcomp

pull/102/head
Virgil Dupras пре 4 година
родитељ
комит
a8e8204eba
8 измењених фајлова са 9 додато и 12 уклоњено
  1. +1
    -2
      blk/490
  2. +1
    -1
      blk/492
  3. +0
    -1
      blk/498
  4. +1
    -1
      blk/499
  5. +1
    -1
      blk/500
  6. +1
    -1
      recipes/trs80/Makefile
  7. +3
    -3
      recipes/trs80/README.md
  8. +1
    -2
      recipes/trs80/xcomp.fs

+ 1
- 2
blk/490 Прегледај датотеку

@@ -4,8 +4,7 @@ Support code for the TRS-80 recipe. Contains drivers for the
keyboard, video and floppy. At the moment, they are thin layer
over the drivers provided by TRSDOS' SVC.

Load the Z80 words with "492 LOAD" and the high level part
with "498 LOAD".
Load with "492 LOAD".

There is also the RECV program at B502 and the XCOMP unit at
B504

+ 1
- 1
blk/492 Прегледај датотеку

@@ -1 +1 @@
1 5 LOADR+
1 8 LOADR+

+ 0
- 1
blk/498 Прегледај датотеку

@@ -1 +0,0 @@
1 2 LOADR+

+ 1
- 1
blk/499 Прегледај датотеку

@@ -1,4 +1,4 @@
: _err ABORT" FDerr" ;
: _err LIT" FDerr" ERR ;
: _cylsec ( sec -- cs, return sector/cylinder for given secid )
( 4 256b sectors per block, 10 sec per cyl, 40 cyl max )
10 /MOD ( sec cyl )


+ 1
- 1
blk/500 Прегледај датотеку

@@ -2,6 +2,6 @@
: FD! ['] @WRSEC SWAP FD@! ;
: FD$ ['] FD@ BLK@* ! ['] FD! BLK!* ! ;

: _err ABORT" *CLerr" ;
: _err LIT" *CLerr" ERR ;
: *CL< 0 BEGIN DROP 0x0238 @GET UNTIL ;
: *CL> 0x0238 @PUT NOT IF _err THEN ;

+ 1
- 1
recipes/trs80/Makefile Прегледај датотеку

@@ -1,4 +1,4 @@
TARGET = stage1.bin
TARGET = os.bin
EDIR = ../../emul
STAGE = $(EDIR)/stage



+ 3
- 3
recipes/trs80/README.md Прегледај датотеку

@@ -67,10 +67,10 @@ kind of reception! You're gonna feel real badass about it too...

* `_` is `CLEAR+ENTER`.

## Building the stage 1
## Building the binary

You can start the process by building the stage 1 binary. Running `make` in
this folder will yield a `stage1.bin` file. You'll need it later.
You can build the binary to send to the TRS-80 with `make`, which will yield
`os.bin`. You'll need it later.

## Testing serial communication



+ 1
- 2
recipes/trs80/xcomp.fs Прегледај датотеку

@@ -7,14 +7,13 @@ RS_ADDR 0x80 - CONSTANT RAMSTART

0x3000 BIN( !
282 LOAD ( boot.z80 )
492 LOAD ( trs80.z80 )
393 LOAD ( xcomp core low )
492 LOAD ( trs80 )
420 LOAD ( xcomp core high )
(entry) _
( Update LATEST )
PC ORG @ 8 + !
," CURRENT @ HERE ! "
499 500 XPACKR ( trs80.fs )
( 0x0a == NLPTR. TRS-80 wants CR-only newlines )
," : _ ['] CR 0x0a RAM+ ! BLK$ FD$ (ok) RDLN$ ; _ "
ORG @ 256 /MOD 2 PC! 2 PC!


Loading…
Откажи
Сачувај