@@ 49,7 49,7 @@ BRK
06 "Turye $1
01 "n =file-new "New $1
- 01 "r =file-rename "Rename $1
+ 01 "r =trap "Rename $1
01 "o =file-open "Open $1
01 "s =file-save "Save $1
01 "e =file-export "Export $1
@@ 281,11 281,9 @@ JMP2r
( load ) #00 SWP ADD2 LDAk
( mask ) #01 [ #07 STHr #07 AND SUB #40 SFT ] SFT
.Mouse/state DEI #01 GTH ,&erase JCN
- ORA ROT ROT STA ;redraw JSR2 #02 ;draw-state JSR2 JMP2r
+ ORA ROT ROT STA ;redraw JSR2 #02 ;draw-state JMP2
&erase
- #ff EOR AND ROT ROT STA ;redraw #02 ;draw-state JSR2 JSR2
-
-JMP2r
+ #ff EOR AND ROT ROT STA ;redraw JSR2 #02 ;draw-state JMP2
@move-up ( -- ) .glyph LDZ #10 SUB ;select-glyph JMP2
@move-down ( -- ) .glyph LDZ #10 ADD ;select-glyph JMP2
@@ 518,12 516,6 @@ JMP2r
JMP2r
-@file-rename ( -- )
-
- ;trap JSR2
-
-JMP2r
-
@file-open ( -- )
;clear-screen JSR2
@@ 577,13 569,6 @@ JMP2r
@snarf-txt ".snarf $1
-@edit-cut ( -- )
-
- ,edit-copy JSR
- ,edit-erase JSR
-
-JMP2r
-
@edit-copy ( -- )
;snarf-txt .File/name DEO2
@@ 602,6 587,10 @@ JMP2r
JMP2
+@edit-cut ( -- )
+
+ ,edit-copy JSR
+
@edit-erase ( -- )
;get-selection JSR2 #0020 ;mclr JSR2
@@ 640,17 629,15 @@ JMP2
@edit-shift-left ( -- )
- #10 ;edit-shift/dir STA
- ,edit-shift JSR
-
-JMP2r
+ #10 ,edit-shift JMP
@edit-shift-right ( -- )
- #01 ;edit-shift/dir STA
+ #01
@edit-shift ( dir -- )
+ ,&dir STR
;get-selection JSR2 STH2
#1000
&loop
@@ 669,7 656,7 @@ JMP2
(
@|stdlib )
-@fhex ( short* -- ) SWP ,&b JSR &b DUP #04 SFT ,&c JSR &c #0f AND DUP #09 GTH #27 MUL ADD #30 ADD ,fchr JSR JMP2r
+@fhex ( short* -- ) SWP ,&b JSR &b DUP #04 SFT ,&c JSR &c #0f AND DUP #09 GTH #27 MUL ADD #30 ADD
@fchr ( chr -- ) ,&b STR #0001 .File/length DEO2 ;&b .File/write DEO2 JMP2r &b $1
@fstr ( str* -- ) DUP2 ;slen JSR2 .File/length DEO2 .File/write DEO2 JMP2r
@mcpy ( src* dst* len* -- ) SWP2 STH2 OVR2 ADD2 SWP2 &loop LDAk STH2kr STA INC2r INC2 GTH2k ,&loop JCN POP2 POP2 POP2r JMP2r