Removed etc/

This commit is contained in:
neauoire 2022-04-03 10:43:13 -07:00
parent 0dc0f633c7
commit 5a5ec674b4
2 changed files with 4 additions and 550 deletions

View File

@ -19,5 +19,7 @@ else
gcc -std=c89 -D_POSIX_C_SOURCE=199309L -DDEBUG -Wall -Wno-unknown-pragmas -Wpedantic -Wshadow -Wextra -Werror=implicit-int -Werror=incompatible-pointer-types -Werror=int-conversion -Wvla -g -Og -fsanitize=address -fsanitize=undefined src/uxn.c src/devices/system.c src/devices/file.c src/devices/datetime.c src/uxncli.c -o bin/uxncli gcc -std=c89 -D_POSIX_C_SOURCE=199309L -DDEBUG -Wall -Wno-unknown-pragmas -Wpedantic -Wshadow -Wextra -Werror=implicit-int -Werror=incompatible-pointer-types -Werror=int-conversion -Wvla -g -Og -fsanitize=address -fsanitize=undefined src/uxn.c src/devices/system.c src/devices/file.c src/devices/datetime.c src/uxncli.c -o bin/uxncli
fi fi
echo "Running.." echo "Done."
uxnasm etc/repl.tal bin/repl.rom && bin/uxn11 bin/repl.rom
# echo "Running.."
# uxnasm etc/repl.tal bin/repl.rom && bin/uxn11 bin/repl.rom

View File

@ -1,548 +0,0 @@
( REPL )
|00 @System &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2
|10 @Console &vector $2 &read $1 &pad $5 &write $1
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|80 @Controller &vector $2 &button $1 &key $1
|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &chord $1
|a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
|0000
@input $80
@token $40
@p &ptr $2 &len $2
@l &ptr $2
|0100 ( -> )
( theme )
#0f5f .System/r DEO2
#0fcd .System/g DEO2
#0fa3 .System/b DEO2
#15 .Screen/auto DEO
( vectors )
;on-button .Controller/vector DEO2
( load prefabs )
;prefabs/play-note-txt ;add-label JSR2
;prefabs/draw-line-txt ;add-label JSR2
;prefabs/list-files-txt ;add-label JSR2
;prefabs/load-file-txt ;add-label JSR2
( draw )
#01 ;draw-input JSR2
#01 ;draw-stack JSR2
#01 ;draw-program JSR2
#01 ;draw-labels JSR2
;draw-status JSR2
#010e DEO
BRK
@on-button ( -> )
.Controller/key DEI
[ #0d ] EQUk NIP ,&validate JCN
[ #08 ] EQUk NIP ,&erase JCN
[ #20 ] LTHk NIP ,&end JCN
[ #7e ] GTHk NIP ,&end JCN
;input ;slen JSR2 NIP #80 LTH ,&append JCN
&end
POP
BRK
&append ( char -> ) #00 ;draw-input JSR2 ;input ;sput JSR2 #01 ;draw-input JSR2 BRK
&erase ( char -> ) #00 ;draw-input JSR2 ;input ;spop JSR2 #01 ;draw-input JSR2 BRK
&validate ( char -> ) #00 ;draw-input JSR2 ;input ;sput JSR2 ;input ;parse JSR2 ;input #0080 ;mclr JSR2 BRK
@parse ( addr* -- )
#00 ;draw-stack JSR2
&while
LDAk #20 GTH ,&no-space JCN
;do-token JSR2
,&continue JMP
&no-space
LDAk ;token ;sput JSR2
&continue
INC2 LDAk ,&while JCN
POP2
#01 ;draw-program JSR2
( set return )
;&end ;write-litshort JSR2 #2c ;write-byte JSR2
( time to evaluate program )
( borrow wst ) #ff .System/wst DEO
;dst JMP2
&end
( released wst ) #00 .System/wst DEO
#01 ;draw-stack JSR2
;dst .p/len LDZ2 #0004 ADD2 ;mclr JSR2
#0000 .p/len STZ2
#0000 .p/ptr STZ2
JMP2r
@do-token ( -- )
;token LDAk LIT '# NEQ ,&no-lithex JCN
DUP2 INC2 ;do-lithex JSR2 ,&end JMP
&no-lithex
DUP2 ;is-opcode JSR2 #00 EQU ,&no-opcode JCN
DUP2 ;find-opcode JSR2 ;write-byte JSR2
&no-opcode
&end
POP2
;token #0040 ;mclr JSR2
JMP2r
@is-opcode ( string* -- flag )
DUP2 ;opcodes/brk ,scmp3 JSR ,find-opcode/on-brk JCN
@find-opcode ( name* -- byte )
STH2
#2000
&loop
#00 OVR #03 MUL ;opcodes ADD2 STH2kr ,scmp3 JSR ,&on-found JCN
INC GTHk ,&loop JCN
POP2 POP2r #00
JMP2r
&on-found NIP STH2r ,find-mode JSR ADD JMP2r
&on-brk POP2 #01 JMP2r
@find-mode ( mode* -- byte )
LITr 00
;opcodes OVR2 ,scmp3 JSR #70 SFT STH ADDr
INC2 INC2 INC2
LDAk #00 EQU ,&end JCN
&while
LDAk LIT '2 EQU #50 SFT STH ADDr
LDAk LIT 'r EQU #60 SFT STH ADDr
LDAk LIT 'k EQU #70 SFT STH ADDr
INC2 LDAk ,&while JCN
&end
POP2 STHr
JMP2r
@scmp3 ( a[3]* b[3]* -- flag )
LDA2k STH2 INC2 INC2 SWP2
LDA2k STH2 INC2 INC2 EQU2r
LDA STH LDA STH EQUr
ANDr STHr
JMP2r
@add-label ( label* -- )
#aaaa .l/ptr LDZ2 ;labels ADD2 STA2
.l/ptr LDZ2k INC2 INC2 ROT STZ2
DUP2
.l/ptr LDZ2 ;labels ADD2 ;scpy JSR2
;slen JSR2 INC2 STH2
.l/ptr LDZ2k STH2r ADD2 ROT STZ2
#0a18 DEO
JMP2r
@do-lithex ( t* -- )
DUP2 ;slen JSR2 #0004 EQU2 ,&on-short JCN
DUP2 ;slen JSR2 #0002 EQU2 ,&on-byte JCN
;err/lithx ;print-err JMP2
&on-short ;sshort JSR2 ;write-litshort JMP2
&on-byte ;sbyte JSR2 ;write-litbyte JMP2
@write-litbyte ( byte -- )
( LITk ) #80 SWP ,write-short JMP
@write-litshort ( short* -- )
( LIT2k ) #a0 ,write-byte JSR
@write-short ( short -- )
SWP ,write-byte JSR
@write-byte ( byte -- )
;dst .p/ptr LDZ2 STH2k ADD2 STA
INC2r STH2kr .p/ptr STZ2
STH2r .p/len STZ2
JMP2r
( drawing )
@draw-status ( -- )
.Screen/width DEI2 #0060 SUB2 .Screen/x DEO2
.Screen/height DEI2 #0010 SUB2 .Screen/y DEO2
.l/ptr LDZ2 #01 ;draw-short JSR2
LIT '/ #01 ;draw-char JSR2
#0000 ;labels SUB2 #01 ;draw-short JSR2
JMP2r
@draw-labels ( color -- )
POP
#0020 .Screen/x DEO2
#00d0 .Screen/y DEO2
;symbols-txt #02 ;draw-str JSR2
.Screen/y DEI2k #0010 ADD2 ROT DEO2
;labels
&while
DUP2 INC2 INC2 #01 ;draw-str JSR2
.Screen/x DEI2k #0008 ADD2 ROT DEO2
;scap JSR2 INC2 LDA2k #0000 NEQ2 ,&while JCN
POP2
JMP2r
@draw-input ( color -- )
STH
( flower )
#0010 .Screen/x DEO2
#0020 .Screen/y DEO2
;flowers-icn #00 ;input ;slen JSR2 ADD #06 DIVk MUL SUB #50 SFT2 ADD2 .Screen/addr DEO2
#81 .Screen/sprite DEO
#00 .Screen/sprite DEO
;prompt-txt #02 ;draw-str JSR2
;input #01 STHkr MUL ;draw-str JSR2
LIT '_ #03 STHr MUL ;draw-char JSR2
JMP2r
@draw-stack ( color -- )
( highlight last item )
STH
( position )
#0020 .Screen/x DEO2
#0050 .Screen/y DEO2
;stack-txt #02 ;draw-str JSR2
#ffff LDA #ff00 STHr ,draw-memory JSR
JMP2r
@draw-program ( color -- )
STH
#0020 .Screen/x DEO2
#0090 .Screen/y DEO2
;program-txt #02 ;draw-str JSR2
#10 ;dst STHr ,draw-memory JSR
JMP2r
@draw-memory ( length addr* color -- )
STH
,&addr STR2
.Screen/x DEI2 ,&anchor STR2
#00
&loop
DUP #07 AND ,&no-lb JCN
[ LIT2 &anchor $2 ] .Screen/x DEO2
.Screen/y DEI2k #0010 ADD2 ROT DEO2
&no-lb
#00 OVR [ LIT2 &addr $2 ] ADD2 LDA #01 STHkr MUL ,draw-byte JSR
.Screen/x DEI2k #0008 ADD2 ROT DEO2
INC GTHk ,&loop JCN
POP2
POPr
JMP2r
@draw-short ( short* color -- )
STH SWP STHkr ,draw-byte JSR STHr
@draw-byte ( byte color -- )
STH DUP #04 SFT STHkr ,draw-hex JSR #0f AND STHr
@draw-hex ( char color -- )
SWP #0f AND [ DUP #09 GTH #07 MUL ADD #30 ADD ] SWP
@draw-char ( char color -- )
SWP #20 SUB #00 SWP #40 SFT2 ;font ADD2 .Screen/addr DEO2
.Screen/sprite DEO
JMP2r
@draw-str ( text* color -- )
STH
&while
LDAk STHkr ,draw-char JSR
INC2 LDAk ,&while JCN
POP2
POPr
JMP2r
( utils )
@slen ( str* -- len* )
DUP2 ,scap JSR SWP2 SUB2
JMP2r
@scap ( str* -- end* )
LDAk #00 NEQ JMP JMP2r
&while INC2 LDAk ,&while JCN
JMP2r
@sput ( char str* -- )
,scap JSR STA
JMP2r
@spop ( str* -- )
LDAk ,&no-null JCN
POP2 JMP2r &no-null
#00 ROT ROT ,scap JSR #0001 SUB2 STA
JMP2r
@scat ( src* dst* -- )
DUP2 ,slen JSR ADD2
@scpy ( src* dst* -- )
STH2
&while
LDAk STH2kr STA INC2r
INC2 LDAk ,&while JCN
POP2
#00 STH2r STA
JMP2r
@chex ( char -- value )
DUP #2f GTH OVR #3a LTH AND ,&number JCN
DUP #60 GTH OVR #67 LTH AND ,&lc JCN
POP #00
JMP2r
&number #30 SUB JMP2r
&lc #57 SUB JMP2r
@mclr ( addr* len* -- )
OVR2 ADD2 SWP2
&loop
STH2k #00 STH2r STA
INC2 GTH2k ,&loop JCN
POP2 POP2
JMP2r
@print ( short* -- )
&short ( short* -- ) SWP ,&byte JSR
&byte ( byte -- ) DUP #04 SFT ,&char JSR
&char ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO
JMP2r
@sshort ( str* -- short* )
INC2k INC2 ,sbyte JSR STH
,sbyte JSR STHr
JMP2r
@sbyte ( str* -- byte )
LDAk ,chex JSR STH
INC2 LDA ,chex JSR
STHr #40 SFT ADD
JMP2r
@print-err ( token* err* -- )
LIT '! .Console/write DEO
SWP2 ,print-str JSR #2018 DEO
@print-str ( str* -- )
&while
LDAk #18 DEO
INC2 LDAk ,&while JCN
POP2
JMP2r
( assets )
@prompt-txt "Do 20 $1
@stack-txt "Stack 20 $1
@program-txt "Program 20 $1
@symbols-txt "Symbols 20 $1
@opcodes
"LIT "INC "POP "DUP "NIP "SWP "OVR "ROT
"EQU "NEQ "GTH "LTH "JMP "JCN "JSR "STH
"LDZ "STZ "LDR "STR "LDA "STA "DEI "DEO
"ADD "SUB "MUL "DIV "AND "ORA "EOR "SFT
&brk "BRK
@err
&lithx "LITHX $1 &label "LABEL $1 &token "TOKEN $1 &reslv "RESLV $1
( prefabs )
@prefabs
&play-note-txt "play-note $1
&draw-line-txt "draw-line $1
&list-files-txt "list-files $1
&load-file-txt "load-file $1
@flowers-icn ( by elioat )
0000 0020 1408 0810 40a0 4205 0200 40a0
0810 103c 7e7e 3c18 4205 0234 7e7e 3c18
0000 0020 100c 0818 0040 a042 0522 5024
0008 083c 7e7e 3c18 0a04 002c 7e7e 3c18
0000 0000 0000 000c 0000 0000 0000 0000
1c10 083c 7e7e 3c18 0000 002c 7e7e 3c18
0000 0000 0000 0004 0000 0000 0002 0502
0810 103c 7e7e 3c18 0000 0034 7e7e 3c18
0000 0000 0000 0010 0000 0000 0020 5225
080c 083c 7e7e 3c18 0200 002c 7e7e 3c18
0000 0000 0800 1800 0000 040a 2450 240a
1010 103c 7e7e 3c18 0400 0034 7e7e 3c18
@font ( msx816 )
0000 0000 0000 0000 0000 0000 0000 0000
0000 0020 2020 2020 2020 0000 2020 0000
0000 006c 6c24 4800 0000 0000 0000 0000
0000 0044 44fe 4444 4444 44fe 4444 0000
0000 1010 7c92 9290 7c12 9292 7c10 1000
0000 0040 a0a2 4408 1020 448a 0a04 0000
0000 0070 8888 8850 2050 8a84 8c72 0000
0000 0030 3010 2000 0000 0000 0000 0000
0000 0004 0808 1010 1010 1008 0804 0000
0000 0040 2020 1010 1010 1020 2040 0000
0000 0000 0000 1054 3854 1000 0000 0000
0000 0000 0010 1010 fe10 1010 0000 0000
0000 0000 0000 0000 0000 0030 3010 2000
0000 0000 0000 0000 fe00 0000 0000 0000
0000 0000 0000 0000 0000 0000 3030 0000
0000 0004 0404 0808 0810 1010 2020 0000
( numbers )
0000 0038 4482 8292 9292 8282 4438 0000
0000 0010 3050 1010 1010 1010 1038 0000
0000 0038 4482 8202 0c30 4080 80fe 0000
0000 0038 4482 0204 3804 0282 4438 0000
0000 0004 0c14 1424 2444 44fe 0404 0000
0000 00fc 8080 80b8 c402 0282 4438 0000
0000 0038 4482 80b8 c482 8282 4438 0000
0000 00fe 8284 0808 1010 1010 1010 0000
0000 0038 4482 8244 3844 8282 4438 0000
0000 0038 4482 8282 463a 0282 4438 0000
0000 0000 0000 3030 0000 0030 3000 0000
0000 0000 0000 3030 0000 0030 3010 2000
0000 0000 0408 1020 4020 1008 0400 0000
0000 0000 0000 00fe 0000 fe00 0000 0000
0000 0000 4020 1008 0408 1020 4000 0000
0000 0038 4482 8202 0c10 1000 1010 0000
0000 0038 4482 0262 9292 9292 926c 0000
0000 0010 2844 8282 8282 fe82 8282 0000
0000 00f8 8482 8284 f884 8282 84f8 0000
0000 0038 4482 8080 8080 8082 4438 0000
0000 00f8 4442 4242 4242 4242 44f8 0000
0000 00fe 8080 8080 fc80 8080 80fe 0000
0000 00fe 8080 8080 fc80 8080 8080 0000
0000 0038 4482 8080 8e82 8282 463a 0000
0000 0082 8282 8282 fe82 8282 8282 0000
0000 0038 1010 1010 1010 1010 1038 0000
0000 000e 0404 0404 0404 0484 8870 0000
0000 0082 8488 90a0 c0a0 9088 8482 0000
0000 0040 4040 4040 4040 4040 407e 0000
0000 0082 c6aa 9292 8282 8282 8282 0000
0000 0082 c2a2 a292 928a 8a86 8282 0000
0000 0038 4482 8282 8282 8282 4438 0000
0000 00f8 8482 8282 84f8 8080 8080 0000
0000 0038 4482 8282 8282 bac6 443a 0000
0000 00f8 8482 8284 f890 8884 8482 0000
0000 0038 4482 8040 3804 0282 4438 0000
0000 00fe 1010 1010 1010 1010 1010 0000
0000 0082 8282 8282 8282 8282 827c 0000
0000 0082 8282 8282 8282 8244 2810 0000
0000 0082 8282 8282 9292 aaaa 4444 0000
0000 0082 8282 4428 1028 4482 8282 0000
0000 0082 8282 4428 1010 1010 1010 0000
0000 00fe 0202 0408 1020 4080 80fe 0000
0000 001c 1010 1010 1010 1010 101c 0000
0000 0082 4428 10fe 1010 fe10 1010 0000
0000 0070 1010 1010 1010 1010 1070 0000
0000 0010 2844 8200 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 00fe 0000
0000 0060 6020 1000 0000 0000 0000 0000
0000 0000 0000 7884 047c 8484 8c74 0000
0000 0040 4040 5864 4242 4242 6458 0000
0000 0000 0000 3844 8280 8082 4438 0000
0000 0004 0404 344c 8484 8484 4c34 0000
0000 0000 0000 3844 82fe 8082 4438 0000
0000 0018 2420 7820 2020 2020 2020 0000
0000 0000 0000 3a46 8282 8246 3a82 4438
0000 0040 4040 5864 4242 4242 4242 0000
0000 0010 1000 0010 1010 1010 1010 0000
0000 0008 0800 0008 0808 0808 0808 4830
0000 0040 4040 4244 4850 7048 4442 0000
0000 0030 1010 1010 1010 1010 1010 0000
0000 0000 0000 ec92 9292 9292 9292 0000
0000 0000 0000 5c62 4242 4242 4242 0000
0000 0000 0000 3844 8282 8282 4438 0000
0000 0000 0000 5864 4242 4242 6458 4040
0000 0000 0000 344c 8484 8484 4c34 0404
0000 0000 0000 5864 4040 4040 4040 0000
0000 0000 0000 7c82 807c 0202 827c 0000
0000 0020 2020 f820 2020 2020 2418 0000
0000 0000 0000 8484 8484 8484 8c74 0000
0000 0000 0000 8282 4444 2828 1010 0000
0000 0000 0000 8282 8292 92aa 4444 0000
0000 0000 0000 8244 2810 1028 4482 0000
0000 0000 0000 4242 4242 4222 1408 1060
0000 0000 0000 fe04 0810 2040 80fe 0000
0000 000c 1010 1010 2010 1010 100c 0000
0000 1010 1010 0000 0000 1010 1010 0000
0000 0060 1010 1010 0810 1010 1060 0000
0000 0060 920c 0000 0000 0000 0000 0000
@dst $1000
( addr* label[length] )
@labels