d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added NIP optimisations

This commit is contained in:
Andrew Alderwick 2021-08-15 21:25:58 +01:00
parent be360ffc1e
commit 93dae917fb
9 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
projects/examples/demos/darena.tal
View File

@ -261,7 +261,7 @@ JMP2r
#ff #ff
JMP2r JMP2r
&found &found
SWP POP ( remove loop limit ) NIP ( remove loop limit )
DUP ;&src_i LDA NEQ ,&end JCN ( check if result is the same as index ) DUP ;&src_i LDA NEQ ,&end JCN ( check if result is the same as index )
POP #ff POP #ff
JMP2r JMP2r

2
projects/examples/demos/drum-rack.tal
View File

@ -9,7 +9,7 @@
%4** { #20 SFT2 } %4// { #02 SFT2 } %4** { #20 SFT2 } %4// { #02 SFT2 }
%8** { #30 SFT2 } %8// { #03 SFT2 } %8** { #30 SFT2 } %8// { #03 SFT2 }
%TOB { SWP POP } %TOS { #00 SWP } %TOB { NIP } %TOS { #00 SWP }
%RTN { JMP2r } %RTN { JMP2r }
%MOD { DUP2 / * - } %MOD { DUP2 / * - }
%LTS2 { #8000 ++ SWP2 #8000 ++ >> } %GTS2 { #8000 ++ SWP2 #8000 ++ << } %LTS2 { #8000 ++ SWP2 #8000 ++ >> } %GTS2 { #8000 ++ SWP2 #8000 ++ << }

8
projects/examples/demos/life.tal
View File

@ -9,7 +9,7 @@
%++ { ADD2 } %-- { SUB2 } %** { MUL2 } %// { DIV2 } %++ { ADD2 } %-- { SUB2 } %** { MUL2 } %// { DIV2 }
%<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 } %<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 }
%TOS { #00 SWP } %TOB { SWP POP } %TOS { #00 SWP } %TOB { NIP }
%RTN { JMP2r } %MOD { DUP2 / * - } %RTN { JMP2r } %MOD { DUP2 / * - }
%MOD8 { #07 AND } %MOD2 { #01 AND } %MOD8 { #07 AND } %MOD2 { #01 AND }
%SFL { #40 SFT SFT } %SFL { #40 SFT SFT }
@ -20,8 +20,8 @@
%BANK1 { #8000 } %BANK2 { #a000 } %BANK1 { #8000 } %BANK2 { #a000 }
%GET-SIZE { WIDTH TOS 8// HEIGHT TOS ** } %GET-SIZE { WIDTH TOS 8// HEIGHT TOS ** }
%GET-ITERATORS { SWP2k POP SWP POP } %GET-ITERATORS { SWP2k POP NIP }
%GET-ITER { OVR2 SWP POP OVR SWP } %GET-ITER { OVR2 NIP OVR SWP }
( devices ) ( devices )
@ -226,7 +226,7 @@ RTN
@get-cell ( x y -- cell ) @get-cell ( x y -- cell )
DUP2 ,get-index JSR LDA DUP2 ,get-index JSR LDA
SWP POP SWP NIP SWP
MOD8 MOD8
SFT MOD2 SFT MOD2

10
projects/examples/demos/musictracker.tal
View File

@ -135,10 +135,10 @@ RTN
;clear-notes JSR2 ;clear-notes JSR2
( get note ) ( get note )
#0e .Mouse/y DEI2 .trkframe/y1 LDZ2 SUB2 SWP POP #08 DIV SUB #0e .Mouse/y DEI2 .trkframe/y1 LDZ2 SUB2 NIP #08 DIV SUB
.Mouse/state DEI #10 NEQ ,&no-erase JCN POP #00 &no-erase .Mouse/state DEI #10 NEQ ,&no-erase JCN POP #00 &no-erase
( edit note ) ( edit note )
TRACK #00 .Mouse/x DEI2 .trkframe/x1 LDZ2 SUB2 SWP POP #08 DIV ADD2 STA TRACK #00 .Mouse/x DEI2 .trkframe/x1 LDZ2 SUB2 NIP #08 DIV ADD2 STA
( release ) #00 .Mouse/state DEO ( release ) #00 .Mouse/state DEO
;draw-notes JSR2 ;draw-notes JSR2
@ -147,7 +147,7 @@ BRK
@touch-chn ( -- ) @touch-chn ( -- )
;clear-notes JSR2 ;clear-notes JSR2
( save ) .Mouse/y DEI2 .chnframe/y1 LDZ2 SUB2 SWP POP #08 DIV #01 SUB .track/active STZ ( save ) .Mouse/y DEI2 .chnframe/y1 LDZ2 SUB2 NIP #08 DIV #01 SUB .track/active STZ
( release ) #00 .Mouse/state DEO ( release ) #00 .Mouse/state DEO
;draw-channels JSR2 ;draw-channels JSR2
;draw-notes JSR2 ;draw-notes JSR2
@ -157,7 +157,7 @@ BRK
@touch-ctl ( -- ) @touch-ctl ( -- )
.Mouse/x DEI2 .ctlframe/x1 LDZ2 SUB2 8-- 8// SWP POP #02 DIV .Mouse/x DEI2 .ctlframe/x1 LDZ2 SUB2 8-- 8// NIP #02 DIV
DUP ,&no-a JCN DUP ,&no-a JCN
.Audio0/adsr .track/active LDZ #10 MUL ADD DEI .Audio0/adsr .track/active LDZ #10 MUL ADD DEI
#10 .Mouse/state DEI #10 EQU #e0 MUL ADD ADD #10 .Mouse/state DEI #10 EQU #e0 MUL ADD ADD
@ -278,7 +278,7 @@ RTN
;font_hex .Screen/addr DEO2 ;font_hex .Screen/addr DEO2
#0000 #0100 #0000 #0100
&loop &loop
OVR2 SWP POP #02 DIV #0f AND ,&skip JCN OVR2 NIP #02 DIV #0f AND ,&skip JCN
OVR2 .trkframe/x1 LDZ2 ADD2 .Screen/x DEO2 OVR2 .trkframe/x1 LDZ2 ADD2 .Screen/x DEO2
.trkframe/y1 LDZ2 #0010 SUB2 .Screen/y DEO2 .trkframe/y1 LDZ2 #0010 SUB2 .Screen/y DEO2
#02 .Screen/sprite DEO #02 .Screen/sprite DEO

2
projects/examples/demos/neralie.tal
View File

@ -123,7 +123,7 @@
.lines/x2 LDZ2 .lines/x1 LDZ2 DUP2 .neralie/x STZ2 SUB2 .neralie/w STZ2 .lines/x2 LDZ2 .lines/x1 LDZ2 DUP2 .neralie/x STZ2 SUB2 .neralie/w STZ2
.lines/y2 LDZ2 .lines/y1 LDZ2 DUP2 .neralie/y STZ2 SUB2 .neralie/h STZ2 .lines/y2 LDZ2 .lines/y1 LDZ2 DUP2 .neralie/y STZ2 SUB2 .neralie/h STZ2
;neralie/n4 SWP POP .neralie/n0123 LDZ2 ;neralie/n4 NIP .neralie/n0123 LDZ2
DUP2 ;&h JSR2 DUP2 ;&h JSR2
;&next JSR2 #0001 .Screen/x DEO2 .neralie/y LDZ2 #0003 SUB2 .Screen/y DEO2 ,digit JSR ;&next JSR2 #0001 .Screen/x DEO2 .neralie/y LDZ2 #0003 SUB2 .Screen/y DEO2 ,digit JSR
DUP2 ;&v JSR2 DUP2 ;&v JSR2

8
projects/examples/demos/theme.tal
View File

@ -79,22 +79,22 @@ BRK
DUP2 #0010 NEQ2 ,&no-touch-red JCN DUP2 #0010 NEQ2 ,&no-touch-red JCN
.Mouse/x DEI2 .window/x1 LDZ2 #0060 ADD2 LTH2 ,&no-touch-red JCN .Mouse/x DEI2 .window/x1 LDZ2 #0060 ADD2 LTH2 ,&no-touch-red JCN
.Mouse/x DEI2 .window/x1 LDZ2 #009c ADD2 GTH2 ,&no-touch-red JCN .Mouse/x DEI2 .window/x1 LDZ2 #009c ADD2 GTH2 ,&no-touch-red JCN
( get new value ) .Mouse/x DEI2 .window/x1 LDZ2 SUB2 #0060 SUB2 4// SWP POP ;theme/r1 #00 .selection LDZ ADD2 STA ( get new value ) .Mouse/x DEI2 .window/x1 LDZ2 SUB2 #0060 SUB2 4// NIP ;theme/r1 #00 .selection LDZ ADD2 STA
&no-touch-red &no-touch-red
DUP2 #0020 NEQ2 ,&no-touch-green JCN DUP2 #0020 NEQ2 ,&no-touch-green JCN
.Mouse/x DEI2 .window/x1 LDZ2 #0060 ADD2 LTH2 ,&no-touch-green JCN .Mouse/x DEI2 .window/x1 LDZ2 #0060 ADD2 LTH2 ,&no-touch-green JCN
.Mouse/x DEI2 .window/x1 LDZ2 #009c ADD2 GTH2 ,&no-touch-green JCN .Mouse/x DEI2 .window/x1 LDZ2 #009c ADD2 GTH2 ,&no-touch-green JCN
( get new value ) .Mouse/x DEI2 .window/x1 LDZ2 SUB2 #0060 SUB2 4// SWP POP ;theme/g1 #00 .selection LDZ ADD2 STA ( get new value ) .Mouse/x DEI2 .window/x1 LDZ2 SUB2 #0060 SUB2 4// NIP ;theme/g1 #00 .selection LDZ ADD2 STA
&no-touch-green &no-touch-green
DUP2 #0030 NEQ2 ,&no-touch-blue JCN DUP2 #0030 NEQ2 ,&no-touch-blue JCN
.Mouse/x DEI2 .window/x1 LDZ2 #0060 ADD2 LTH2 ,&no-touch-blue JCN .Mouse/x DEI2 .window/x1 LDZ2 #0060 ADD2 LTH2 ,&no-touch-blue JCN
.Mouse/x DEI2 .window/x1 LDZ2 #009c ADD2 GTH2 ,&no-touch-blue JCN .Mouse/x DEI2 .window/x1 LDZ2 #009c ADD2 GTH2 ,&no-touch-blue JCN
( get new value ) .Mouse/x DEI2 .window/x1 LDZ2 SUB2 #0060 SUB2 4// SWP POP ;theme/b1 #00 .selection LDZ ADD2 STA ( get new value ) .Mouse/x DEI2 .window/x1 LDZ2 SUB2 #0060 SUB2 4// NIP ;theme/b1 #00 .selection LDZ ADD2 STA
&no-touch-blue &no-touch-blue
DUP2 #0040 NEQ2 ,&no-touch-radio JCN DUP2 #0040 NEQ2 ,&no-touch-radio JCN
.Mouse/x DEI2 .window/x1 LDZ2 #0050 ADD2 LTH2 ,&no-touch-radio JCN .Mouse/x DEI2 .window/x1 LDZ2 #0050 ADD2 LTH2 ,&no-touch-radio JCN
.Mouse/x DEI2 .window/x1 LDZ2 #008c ADD2 GTH2 ,&no-touch-radio JCN .Mouse/x DEI2 .window/x1 LDZ2 #008c ADD2 GTH2 ,&no-touch-radio JCN
.Mouse/x DEI2 .window/x1 LDZ2 SUB2 #0050 SUB2 STEP8 2// #0008 DIV2 SWP POP .selection STZ .Mouse/x DEI2 .window/x1 LDZ2 SUB2 #0050 SUB2 STEP8 2// #0008 DIV2 NIP .selection STZ
&no-touch-radio &no-touch-radio
POP2 POP2

2
projects/examples/devices/console.lib.tal
View File

@ -75,7 +75,7 @@ RTN
RTN RTN
&digit &digit
SWP POP NIP
DUP .number/started LDZ ORA #02 JCN DUP .number/started LDZ ORA #02 JCN
POP JMP2r POP JMP2r
LIT '0 ADD .Console/write DEO LIT '0 ADD .Console/write DEO

2
projects/examples/gui/label.tal
View File

@ -94,7 +94,7 @@ RTN
&loop &loop
( incr ) #0001 ADD2 OVR2 OVR2 ADD2 ( incr ) #0001 ADD2 OVR2 OVR2 ADD2
LDA ,&loop JCN LDA ,&loop JCN
SWP2 POP2 NIP2
RTN RTN

4
projects/software/asma.tal
View File

@ -370,7 +370,7 @@
( tree-offset* token-routine-ptr* / end* ) ( tree-offset* token-routine-ptr* / end* )
STH2r ;asma/token STA2 STH2r ;asma/token STA2
SWP2 POP2 LDA2 NIP2 LDA2
JMP2 ( tail call ) JMP2 ( tail call )
&not-found ( tree-offset* dummy* / end* ) &not-found ( tree-offset* dummy* / end* )
@ -523,7 +523,7 @@
&flush ( ptr* -- start-of-buffer* ) &flush ( ptr* -- start-of-buffer* )
;asma-write-buffer SUB2k ( ptr* start* len* ) ;asma-write-buffer SUB2k ( ptr* start* len* )
;asma/flush-fn LDA2 JSR2 ;asma/flush-fn LDA2 JSR2
SWP2 POP2 ( start* ) NIP2 ( start* )
,&after-flush JMP ,&after-flush JMP
@asma-output [ &ptr $2 &offset $2 &filename $2 ] @asma-output [ &ptr $2 &offset $2 &filename $2 ]