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

(dos.tal) When in doubt, add flowers

This commit is contained in:
neauoire 2022-01-23 11:18:55 -08:00
parent dacd2ff26c
commit b486d9585b
1 changed files with 36 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
projects/software/dos.tal
View File

@ -37,9 +37,9 @@
%RTN { JMP2r } %RTN { JMP2r }
%WIDTH { #50 } %WIDTH { #40 }
%HEIGHT { #28 } %HEIGHT { #20 }
%PAD { #0020 } %PAD { #0018 }
( devices ) ( devices )
@ -55,15 +55,16 @@
@buffer $80 @buffer $80
@path $40 @path $40
@frame $1
( init ) ( init )
|0100 ( -> ) |0100 ( -> )
( theme ) ( theme )
#0f55 .System/r DEO2 #05f5 .System/r DEO2
#0fc5 .System/g DEO2 #0cf5 .System/g DEO2
#0fa5 .System/b DEO2 #0af5 .System/b DEO2
( vectors ) ( vectors )
;on-button .Controller/vector DEO2 ;on-button .Controller/vector DEO2
@ -90,16 +91,19 @@ BRK
#00 ;draw-input JSR2 #00 ;draw-input JSR2
;validate JSR2 ;validate JSR2
#01 ;draw-input JSR2 #01 ;draw-input JSR2
.frame LDZk INC SWP STZ
&no-enter &no-enter
DUP #08 ! ,&no-backspace JCN DUP #08 ! ,&no-backspace JCN
#00 ;draw-input JSR2 #00 ;draw-input JSR2
;buffer ;spop JSR2 ;buffer ;spop JSR2
#04 ;draw-input JSR2 #04 ;draw-input JSR2
.frame LDZk INC SWP STZ
&no-backspace &no-backspace
DUP STHk #1f > STHr #7b < #0101 !! ,&no-valid JCN DUP STHk #1f > STHr #7b < #0101 !! ,&no-valid JCN
;buffer ;slen JSR2 #007f >> ,&no-valid JCN ;buffer ;slen JSR2 #007f >> ,&no-valid JCN
STHk ;buffer STHr ;sput JSR2 STHk ;buffer STHr ;sput JSR2
#04 ;draw-input JSR2 #04 ;draw-input JSR2
.frame LDZk INC SWP STZ
&no-valid &no-valid
POP POP
@ -177,7 +181,14 @@ RTN
@cmd-rm "rm $1 &docs "remove_file $1 @cmd-rm "rm $1 &docs "remove_file $1
&func &func
;buffer #0003 ++ .File/name DEO2
#01 .File/delete DEO
;&remove-txt #01 ;draw-str JSR2
;buffer #0003 ++ #01 ;draw-str JSR2
RTN RTN
&remove-txt "removed_file: $1
@cmd-tx "tx $1 &docs "display_file_as_text $1 @cmd-tx "tx $1 &docs "display_file_as_text $1
&func &func
@ -303,7 +314,11 @@ RTN
PAD .Screen/x DEO2 PAD .Screen/x DEO2
.Screen/height DEI2 PAD -- .Screen/y DEO2 .Screen/height DEI2 PAD -- .Screen/y DEO2
( marker ) LIT '> #01 ;draw-char JSR2 ( flower )
;flowers-icn #00 .frame LDZ #06 MOD 20** ++ .Screen/addr DEO2
#81 .Screen/sprite DEOk DEO
.Screen/y DEI2 #0010 -- .Screen/y DEO2
.Screen/x DEI2 #0008 ++ .Screen/x DEO2
#20 #00 ;draw-char JSR2 #20 #00 ;draw-char JSR2
@ -491,6 +506,20 @@ JMP2r
aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55
aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55
@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 ( terminus01x02 ) @font ( terminus01x02 )
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 183c 3c3c 1818 1800 1818 0000 0000 0000 183c 3c3c 1818 1800 1818 0000 0000