mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-02 06:20:55 +11:00
Compare commits
2 Commits
65f359bda4
...
792c781614
Author | SHA1 | Date | |
---|---|---|---|
|
792c781614 | ||
|
07f807edee |
2
blk/102
2
blk/102
@ -1,5 +1,5 @@
|
||||
152 LOAD ( extras )
|
||||
103 105 LOADR
|
||||
103 106 LOADR
|
||||
|
||||
: BROWSE
|
||||
100 _LIST
|
||||
|
27
blk/104
27
blk/104
@ -1,16 +1,13 @@
|
||||
( Line numbers for the user are 1-based, but in code, they're
|
||||
0-based. )
|
||||
( Cursor position in buffer. EDPOS/64 is line number )
|
||||
VARIABLE EDPOS
|
||||
: _bpos 64 * BLK( + ;
|
||||
: T 1- DUP EDPOS ! _bpos (print) CRLF ;
|
||||
: P
|
||||
EDPOS @ _bpos C<
|
||||
64 0 DO ( bpos c )
|
||||
DUP 0xd = IF DROP 0 THEN
|
||||
2DUP SWAP I + C!
|
||||
DUP IF DROP C< THEN
|
||||
LOOP
|
||||
2DROP
|
||||
BLK!!
|
||||
;
|
||||
|
||||
: _cpos BLK( + ;
|
||||
: _lpos 64 * _cpos ;
|
||||
: _pln ( lineno -- )
|
||||
DUP _lpos DUP 64 + SWAP DO ( lno )
|
||||
I EDPOS @ _cpos = IF '^' EMIT THEN
|
||||
I C@ DUP 0x20 < IF DROP 0x20 THEN
|
||||
EMIT
|
||||
LOOP ( lno )
|
||||
1+ . ;
|
||||
( user-facing lines are 1-based )
|
||||
: T 1- DUP 64 * EDPOS ! _pln ;
|
||||
|
21
blk/105
21
blk/105
@ -1,11 +1,16 @@
|
||||
: _mvln+ ( ln -- move ln 1 line further )
|
||||
DUP 14 > IF DROP EXIT THEN
|
||||
_bpos DUP 64 + 64 MOVE
|
||||
: P
|
||||
EDPOS @ _cpos C<
|
||||
64 0 DO ( bpos c )
|
||||
DUP 0xd = IF DROP 0 THEN
|
||||
2DUP SWAP I + C!
|
||||
DUP IF DROP C< THEN
|
||||
LOOP
|
||||
2DROP
|
||||
BLK!!
|
||||
;
|
||||
|
||||
: U
|
||||
15 EDPOS @ - 0 DO
|
||||
14 I - _mvln+
|
||||
LOOP
|
||||
P
|
||||
: _mvln+ ( ln -- move ln 1 line further )
|
||||
DUP 14 > IF DROP EXIT THEN
|
||||
_lpos DUP 64 + 64 MOVE
|
||||
;
|
||||
|
||||
|
2
blk/490
2
blk/490
@ -5,4 +5,4 @@ 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 "494 LOAD".
|
||||
with "498 LOAD".
|
||||
|
17
blk/492
17
blk/492
@ -1,16 +1 @@
|
||||
CODE KEY
|
||||
A 0x01 LDrn, ( @KEY )
|
||||
0x28 RSTn,
|
||||
L A LDrr, H 0 LDrn,
|
||||
HL PUSHqq,
|
||||
;CODE
|
||||
CODE EMIT
|
||||
BC POPqq, ( c == @DSP arg )
|
||||
chkPS,
|
||||
A 0x02 LDrn, ( @DSP )
|
||||
0x28 RSTn,
|
||||
;CODE
|
||||
CODE BYE
|
||||
HL 0 LDddnn,
|
||||
A 0x16 LDrn, ( @EXIT )
|
||||
0x28 RSTn,
|
||||
493 496 LOADR
|
||||
|
16
blk/493
Normal file
16
blk/493
Normal file
@ -0,0 +1,16 @@
|
||||
CODE KEY
|
||||
A 0x01 LDrn, ( @KEY )
|
||||
0x28 RSTn,
|
||||
L A LDrr, H 0 LDrn,
|
||||
HL PUSHqq,
|
||||
;CODE
|
||||
CODE EMIT
|
||||
BC POPqq, ( c == @DSP arg )
|
||||
chkPS,
|
||||
A 0x02 LDrn, ( @DSP )
|
||||
0x28 RSTn,
|
||||
;CODE
|
||||
CODE BYE
|
||||
HL 0 LDddnn,
|
||||
A 0x16 LDrn, ( @EXIT )
|
||||
0x28 RSTn,
|
7
blk/494
Normal file
7
blk/494
Normal file
@ -0,0 +1,7 @@
|
||||
CODE DCSTAT ( drv -- f )
|
||||
BC POPqq,
|
||||
chkPS,
|
||||
A 0x28 LDrn, ( @DCSTAT )
|
||||
0x28 RSTn,
|
||||
PUSHZ,
|
||||
;CODE
|
10
blk/495
Normal file
10
blk/495
Normal file
@ -0,0 +1,10 @@
|
||||
CODE RDSEC ( drv cylsec addr -- f )
|
||||
HL POPqq,
|
||||
DE POPqq,
|
||||
BC POPqq,
|
||||
chkPS,
|
||||
A 0x31 LDrn, ( @RDSEC )
|
||||
0x28 RSTn,
|
||||
PUSHZ,
|
||||
;CODE
|
||||
|
11
blk/496
Normal file
11
blk/496
Normal file
@ -0,0 +1,11 @@
|
||||
CODE WRSEC ( drv cylsec addr -- f )
|
||||
HL POPqq,
|
||||
DE POPqq,
|
||||
BC POPqq,
|
||||
chkPS,
|
||||
A 0x35 LDrn, ( @WRSEC )
|
||||
0x28 RSTn,
|
||||
PUSHZ,
|
||||
;CODE
|
||||
|
||||
|
16
blk/499
Normal file
16
blk/499
Normal file
@ -0,0 +1,16 @@
|
||||
: _err ABORT" FDerr" ;
|
||||
: _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 )
|
||||
DUP 39 > IF _err THEN
|
||||
256 * + ( cylsec )
|
||||
;
|
||||
: FD@! ( wref blk -- )
|
||||
1 DCSTAT NOT IF _err THEN
|
||||
4 * ( wr sec )
|
||||
4 0 DO ( wr sec )
|
||||
DUP I + _cylsec ( wr sec cs )
|
||||
I 256 * BLK( + ( wr sec cs addr )
|
||||
1 ROT ROT ( wr sec drv cs addr )
|
||||
4 PICK EXECUTE NOT IF _err THEN
|
||||
LOOP 2DROP ;
|
4
blk/500
Normal file
4
blk/500
Normal file
@ -0,0 +1,4 @@
|
||||
: FD@ ['] RDSEC SWAP FD@! ;
|
||||
: FD! ['] WRSEC SWAP FD@! ;
|
||||
: FD$ ['] FD@ BLK@* ! ['] FD! BLK!* ! ;
|
||||
|
@ -18,6 +18,7 @@ H@ 256 /MOD 2 PC! 2 PC!
|
||||
( Update LATEST )
|
||||
PC ORG @ 8 + !
|
||||
," CURRENT @ HERE ! "
|
||||
422 463 XPACKR ( core cmp print parse readln fmt )
|
||||
," : _ RDLN$ (ok) ; _ "
|
||||
422 470 XPACKR ( core cmp print parse readln fmt blk )
|
||||
499 500 XPACKR ( trs80.fs )
|
||||
," : _ BLK$ FD$ (ok) RDLN$ ; _ "
|
||||
H@ 256 /MOD 2 PC! 2 PC!
|
||||
|
Loading…
Reference in New Issue
Block a user