Housekeeping on a few examples

This commit is contained in:
Devine Lu Linvega 2022-07-14 14:57:56 -07:00
parent c148f4da81
commit 982f0180e4
9 changed files with 27 additions and 27 deletions

View File

@ -217,7 +217,7 @@ JMP2r
( z = a ) ( z = a )
,&a LDR DUP ,&z STR ,&a LDR DUP ,&z STR
( a = z ^ t ^ (z >> 1) ^ (t << 1) ) ( a = z ^ t ^ (z >> 1) ^ (t << 1) )
DUP #10 SFT EOR SWP DUP #01 SFT EOR EOR DUP DUP ADD EOR SWP DUP #01 SFT EOR EOR
DUP ,&a STR DUP ,&a STR
JMP2r JMP2r

View File

@ -88,15 +88,15 @@ JMP2r
( load ) STH ,&y STR2 ,&x STR2 .line/y STZ2 .line/x STZ2 ( load ) STH ,&y STR2 ,&x STR2 .line/y STZ2 .line/x STZ2
,&x LDR2 .line/x LDZ2 SUB2 ;abs2 JSR2 .line/dx STZ2 ,&x LDR2 .line/x LDZ2 SUB2 ;abs2 JSR2 .line/dx STZ2
#0000 ,&y LDR2 .line/y LDZ2 SUB2 ;abs2 JSR2 SUB2 .line/dy STZ2 #0000 ,&y LDR2 .line/y LDZ2 SUB2 ;abs2 JSR2 SUB2 .line/dy STZ2
#ffff #00 .line/x LDZ2 ,&x LDR2 ;lts2 JSR2 #10 SFT2 ADD2 ,&sx STR2 #ffff #00 .line/x LDZ2 ,&x LDR2 ;lts2 JSR2 DUP2 ADD2 ADD2 ,&sx STR2
#ffff #00 .line/y LDZ2 ,&y LDR2 ;lts2 JSR2 #10 SFT2 ADD2 ,&sy STR2 #ffff #00 .line/y LDZ2 ,&y LDR2 ;lts2 JSR2 DUP2 ADD2 ADD2 ,&sy STR2
.line/dx LDZ2 .line/dy LDZ2 ADD2 .line/e1 STZ2 .line/dx LDZ2 .line/dy LDZ2 ADD2 .line/e1 STZ2
&loop &loop
.line/x LDZ2 DUP2 .Screen/x DEO2 [ LIT2 &x $2 ] EQU2 .line/x LDZ2 DUP2 .Screen/x DEO2 [ LIT2 &x $2 ] EQU2
.line/y LDZ2 DUP2 .Screen/y DEO2 [ LIT2 &y $2 ] EQU2 .line/y LDZ2 DUP2 .Screen/y DEO2 [ LIT2 &y $2 ] EQU2
STHkr .Screen/pixel DEO STHkr .Screen/pixel DEO
AND ,&end JCN AND ,&end JCN
.line/e1 LDZ2 #10 SFT2 DUP2 .line/e1 LDZ2 DUP2 ADD2 DUP2
.line/dy LDZ2 ;lts2 JSR2 ,&skipy JCN .line/dy LDZ2 ;lts2 JSR2 ,&skipy JCN
.line/e1 LDZ2 .line/dy LDZ2 ADD2 .line/e1 STZ2 .line/e1 LDZ2 .line/dy LDZ2 ADD2 .line/e1 STZ2
.line/x LDZ2 [ LIT2 &sx $2 ] ADD2 .line/x STZ2 .line/x LDZ2 [ LIT2 &sx $2 ] ADD2 .line/x STZ2

View File

@ -35,13 +35,13 @@ BRK
STH2k #0000 EQU2 ,&flip-x JCN STH2k #0000 EQU2 ,&flip-x JCN
STH2kr [ LIT2 &hit-hor $2 ] EQU2 ,&flip-x JCN STH2kr [ LIT2 &hit-hor $2 ] EQU2 ,&flip-x JCN
&no-x &no-x
STH2r [ #00 .dvd/dx LDZ ] #10 SFT2 ADD2 #ffff ADD2 .dvd/x STZ2 STH2r [ #00 .dvd/dx LDZ ] DUP2 ADD2 ADD2 #ffff ADD2 .dvd/x STZ2
( y ) ( y )
.dvd/y LDZ2 .dvd/y LDZ2
STH2k #0000 EQU2 ,&flip-y JCN STH2k #0000 EQU2 ,&flip-y JCN
STH2kr [ LIT2 &hit-ver $2 ] EQU2 ,&flip-y JCN STH2kr [ LIT2 &hit-ver $2 ] EQU2 ,&flip-y JCN
&no-y &no-y
STH2r [ #00 .dvd/dy LDZ ] #10 SFT2 ADD2 #ffff ADD2 .dvd/y STZ2 STH2r [ #00 .dvd/dy LDZ ] DUP2 ADD2 ADD2 #ffff ADD2 .dvd/y STZ2
#01 ,draw-dvd JSR #01 ,draw-dvd JSR
BRK BRK

View File

@ -168,7 +168,7 @@ JMP2r
LITr 00 LITr 00
#0800 #0800
&loop &loop
#00 OVR #10 SFT2 ;&mask ADD2 LDA2 [ LIT2 &origin $2 ] #00 OVR DUP2 ADD2 ;&mask ADD2 LDA2 [ LIT2 &origin $2 ]
ROT ADD STH ADD STHr ;get-cell JSR2 STH ADDr ROT ADD STH ADD STHr ;get-cell JSR2 STH ADDr
INC GTHk ,&loop JCN INC GTHk ,&loop JCN
POP2 POP2
@ -187,11 +187,11 @@ JMP2r
#00 .Screen/auto DEO #00 .Screen/auto DEO
#4000 #4000
&ver &ver
#00 OVR #10 SFT2 .anchor/y LDZ2 ADD2 .Screen/y DEO2 #00 OVR DUP2 ADD2 .anchor/y LDZ2 ADD2 .Screen/y DEO2
STHk STHk
#4000 #4000
&hor &hor
#00 OVR #10 SFT2 .anchor/x LDZ2 ADD2 .Screen/x DEO2 #00 OVR DUP2 ADD2 .anchor/x LDZ2 ADD2 .Screen/x DEO2
DUP STHkr ;get-cell JSR2 INC .Screen/pixel DEO DUP STHkr ;get-cell JSR2 INC .Screen/pixel DEO
INC GTHk ,&hor JCN INC GTHk ,&hor JCN
POP2 POP2

View File

@ -30,7 +30,7 @@ BRK
@on-frame ( -> ) @on-frame ( -> )
.Controller/button DEI .Controller/button DEI
DUP #00 NEQ ,&continue JCN DUP ,&continue JCN
POP BRK POP BRK
&continue &continue
( clear ) ( clear )

View File

@ -201,7 +201,7 @@ JMP2r
@transform ( xy cell -- cell ) @transform ( xy cell -- cell )
DUP #00 NEQ ,&no-null JCN NIP NIP JMP2r &no-null DUP ,&no-null JCN NIP NIP JMP2r &no-null
DUP #03 NEQ ,&no-head JCN POP POP2 #02 JMP2r &no-head DUP #03 NEQ ,&no-head JCN POP POP2 #02 JMP2r &no-head
DUP #02 NEQ ,&no-tail JCN POP POP2 #01 JMP2r &no-tail DUP #02 NEQ ,&no-tail JCN POP POP2 #01 JMP2r &no-tail
DUP #01 NEQ ,&no-cond JCN POP DUP #01 NEQ ,&no-cond JCN POP

View File

@ -118,7 +118,7 @@ JMP2r
;selector-icn .Screen/addr DEO2 ;selector-icn .Screen/addr DEO2
STHkr .Screen/sprite DEO STHkr .Screen/sprite DEO
.Screen/y DEI2 #0008 ADD2 .Screen/y DEO2 .Screen/y DEI2k #0008 ADD2 ROT DEO2
.selection LDZ GET-NOTE STHr ,draw-byte JSR .selection LDZ GET-NOTE STHr ,draw-byte JSR
JMP2r JMP2r

View File

@ -131,7 +131,7 @@ BRK
( y ) .modpad-frame/y LDZ2 SUB2 #24 SFT2 NIP STH ( y ) .modpad-frame/y LDZ2 SUB2 #24 SFT2 NIP STH
( x ) .modpad-frame/x LDZ2 SUB2 #04 SFT2 ( x ) .modpad-frame/x LDZ2 SUB2 #04 SFT2
( lookup ) STHr ADD #10 SFT2 ;keypad/ops ADD2 LDA2 JSR2 ( lookup ) STHr ADD DUP2 ADD2 ;keypad/ops ADD2 LDA2 JSR2
;draw-bitpad JSR2 ;draw-bitpad JSR2
#00 .Mouse/state DEO POP2 #00 .Mouse/state DEO POP2
@ -141,7 +141,7 @@ BRK
POP2 POP2
.input-frame/x LDZ2 SUB2 #03 SFT2 NIP .input-frame/x LDZ2 SUB2 #03 SFT2 NIP
DUP #00 NEQ ,&no-push JCN DUP ,&no-push JCN
;do-push JSR2 &no-push ;do-push JSR2 &no-push
DUP #01 NEQ ,&no-pop JCN DUP #01 NEQ ,&no-pop JCN
;do-pop JSR2 &no-pop ;do-pop JSR2 &no-pop
@ -183,7 +183,7 @@ JMP2r
@push ( value* -- ) @push ( value* -- )
( store ) .stack/length LDZ #10 SFT .stack/items ADD STZ2 ( store ) .stack/length LDZ DUP ADD .stack/items ADD STZ2
( INCZ ) .stack/length LDZk INC SWP STZ ( INCZ ) .stack/length LDZk INC SWP STZ
( reset ) #0000 .input/value STZ2 ( reset ) #0000 .input/value STZ2
#00 ;draw-input JSR2 #00 ;draw-input JSR2
@ -193,8 +193,8 @@ JMP2r
@pop ( -- value* ) @pop ( -- value* )
.stack/length LDZ #01 SUB #10 SFT .stack/items ADD LDZ2 .stack/length LDZ #01 SUB DUP ADD .stack/items ADD LDZ2
( clear ) #0000 [ .stack/length LDZ #01 SUB #10 SFT .stack/items ADD ] STZ2 ( clear ) #0000 [ .stack/length LDZ #01 SUB DUP ADD .stack/items ADD ] STZ2
( DECZ ) .stack/length LDZk #01 SUB SWP STZ ( DECZ ) .stack/length LDZk #01 SUB SWP STZ
#01 ;draw-input JSR2 #01 ;draw-input JSR2
;draw-stack JSR2 ;draw-stack JSR2
@ -396,7 +396,7 @@ JMP2r
.input-frame/x LDZ2 #0018 ADD2 .Screen/x DEO2 .input-frame/x LDZ2 #0018 ADD2 .Screen/x DEO2
#00 OVR #30 SFT2 .input-frame/y LDZ2 ADD2 #004c SUB2 .Screen/y DEO2 #00 OVR #30 SFT2 .input-frame/y LDZ2 ADD2 #004c SUB2 .Screen/y DEO2
( color ) DUP #08 .stack/length LDZ SUB #01 SUB GTH STH ( color ) DUP #08 .stack/length LDZ SUB #01 SUB GTH STH
( value ) DUP #10 SFT .stack/items ADD [ #10 .stack/length LDZ #10 SFT SUB SUB ] LDZ2 ( value ) DUP DUP ADD .stack/items ADD [ #10 .stack/length LDZ DUP ADD SUB SUB ] LDZ2
STHr ;draw-number JSR2 STHr ;draw-number JSR2
INC GTHk ,&loop JCN INC GTHk ,&loop JCN
POP2 POP2

View File

@ -144,15 +144,15 @@ JMP2r
( load ) STH ,&y STR2 ,&x STR2 .line/y STZ2 .line/x STZ2 ( load ) STH ,&y STR2 ,&x STR2 .line/y STZ2 .line/x STZ2
,&x LDR2 .line/x LDZ2 SUB2 ;abs2 JSR2 .line/dx STZ2 ,&x LDR2 .line/x LDZ2 SUB2 ;abs2 JSR2 .line/dx STZ2
#0000 ,&y LDR2 .line/y LDZ2 SUB2 ;abs2 JSR2 SUB2 .line/dy STZ2 #0000 ,&y LDR2 .line/y LDZ2 SUB2 ;abs2 JSR2 SUB2 .line/dy STZ2
#ffff #00 .line/x LDZ2 ,&x LDR2 ;lts2 JSR2 #10 SFT2 ADD2 ,&sx STR2 #ffff #00 .line/x LDZ2 ,&x LDR2 ;lts2 JSR2 DUP2 ADD2 ADD2 ,&sx STR2
#ffff #00 .line/y LDZ2 ,&y LDR2 ;lts2 JSR2 #10 SFT2 ADD2 ,&sy STR2 #ffff #00 .line/y LDZ2 ,&y LDR2 ;lts2 JSR2 DUP2 ADD2 ADD2 ,&sy STR2
.line/dx LDZ2 .line/dy LDZ2 ADD2 .line/e1 STZ2 .line/dx LDZ2 .line/dy LDZ2 ADD2 .line/e1 STZ2
&loop &loop
.line/x LDZ2 DUP2 .Screen/x DEO2 [ LIT2 &x $2 ] EQU2 .line/x LDZ2 DUP2 .Screen/x DEO2 [ LIT2 &x $2 ] EQU2
.line/y LDZ2 DUP2 .Screen/y DEO2 [ LIT2 &y $2 ] EQU2 .line/y LDZ2 DUP2 .Screen/y DEO2 [ LIT2 &y $2 ] EQU2
STHkr .Screen/pixel DEO STHkr .Screen/pixel DEO
AND ,&end JCN AND ,&end JCN
.line/e1 LDZ2 #10 SFT2 DUP2 .line/e1 LDZ2 DUP2 ADD2 DUP2
.line/dy LDZ2 ;lts2 JSR2 ,&skipy JCN .line/dy LDZ2 ;lts2 JSR2 ,&skipy JCN
.line/e1 LDZ2 .line/dy LDZ2 ADD2 .line/e1 STZ2 .line/e1 LDZ2 .line/dy LDZ2 ADD2 .line/e1 STZ2
.line/x LDZ2 [ LIT2 &sx $2 ] ADD2 .line/x STZ2 .line/x LDZ2 [ LIT2 &sx $2 ] ADD2 .line/x STZ2
@ -172,12 +172,12 @@ JMP2r
#3c00 #3c00
&loop &loop
( dots ) ( dots )
#00 OVR #10 SFT2 ;table ADD2 LDA2 #00 OVR DUP2 ADD2 ;table ADD2 LDA2
#0018 ;circle JSR2 #0018 ;circle JSR2
.Screen/x DEO2 .Screen/y DEO2 #01 .Screen/pixel DEO .Screen/x DEO2 .Screen/y DEO2 #01 .Screen/pixel DEO
( markers ) ( markers )
DUP #05 ;mod JSR2 ,&no-marker JCN DUP #05 ;mod JSR2 ,&no-marker JCN
#00 OVR #10 SFT2 ;table ADD2 LDA2 #00 OVR DUP2 ADD2 ;table ADD2 LDA2
STH2k #0018 ;circle JSR2 SWP2 STH2k #0018 ;circle JSR2 SWP2
STH2r #001c ;circle JSR2 SWP2 STH2r #001c ;circle JSR2 SWP2
#01 ;draw-line JSR2 #01 ;draw-line JSR2
@ -189,14 +189,14 @@ JMP2r
@make-needles ( -- ) @make-needles ( -- )
[ #00 .DateTime/second DEI #1e ADD #3c ;mod JSR2 ] #10 SFT2 ;table ADD2 LDA2 [ #00 .DateTime/second DEI #1e ADD #3c ;mod JSR2 ] DUP2 ADD2 ;table ADD2 LDA2
#00a0 ,circle JSR .needles/zx STZ2 .needles/zy STZ2 #00a0 ,circle JSR .needles/zx STZ2 .needles/zy STZ2
[ #00 .DateTime/second DEI ] #10 SFT2 ;table ADD2 LDA2 [ #00 .DateTime/second DEI ] DUP2 ADD2 ;table ADD2 LDA2
#0020 ,circle JSR .needles/sx STZ2 .needles/sy STZ2 #0020 ,circle JSR .needles/sx STZ2 .needles/sy STZ2
[ #00 .DateTime/minute DEI ] #10 SFT2 ;table ADD2 LDA2 [ #00 .DateTime/minute DEI ] DUP2 ADD2 ;table ADD2 LDA2
#0022 ,circle JSR .needles/mx STZ2 .needles/my STZ2 #0022 ,circle JSR .needles/mx STZ2 .needles/my STZ2
[ #00 .DateTime/hour DEI #0c ;mod JSR2 #20 SFTk NIP ADD ] [ #00 .DateTime/hour DEI #0c ;mod JSR2 #20 SFTk NIP ADD ]
( minute offset ) [ #00 .DateTime/minute DEI #0f DIV ADD2 ] #10 SFT2 ;table ADD2 LDA2 ( minute offset ) [ #00 .DateTime/minute DEI #0f DIV ADD2 ] DUP2 ADD2 ;table ADD2 LDA2
#002a ,circle JSR .needles/hx STZ2 .needles/hy STZ2 #002a ,circle JSR .needles/hx STZ2 .needles/hy STZ2
JMP2r JMP2r