Dariaceli's Git
Browse code

(gui/label.tal) Use UF2 properly

neauoire authored on 10/01/2022 01:04:54
Showing 3 changed files
projects/examples/demos/font.tal
History View file @ 4657fe2
1 1 
deleted file mode 100644
... ... 
@@ -1,194 +0,0 @@
1 
-(  uxnasm projects/examples/demos/font.tal bin/font.rom && uxnemu bin/font.rom )
2 
-
3 
-%+  { ADD } %-   { SUB }  %*  { MUL }  %/  { DIV }
4 
-%<  { LTH } %>   { GTH }  %=  { EQU }  %!  { NEQ }
5 
-%++ { ADD2 } %-- { SUB2 } %** { MUL2 } %// { DIV2 }
6 
-%<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 }
7 
-
8 
-%RTN { JMP2r }
9 
-%TOS { #00 SWP }
10 
-
11 
-%GET-WIDTH { TOS ;font-data ++ LDA }
12 
-%GET-GLYPH { TOS #50 SFT2 ;font-data/glyphs ++ }
13 
-
14 
-%AUTO-NONE { #00 .Screen/auto DEO }
15 
-%AUTO-X { #01 .Screen/auto DEO }
16 
-%AUTO-Y { #02 .Screen/auto DEO }
17 
-%AUTO-ADDR { #04 .Screen/auto DEO }
18 
-%AUTO-X-ADDR { #05 .Screen/auto DEO }
19 
-%AUTO-Y-ADDR { #06 .Screen/auto DEO }
20 
-
21 
-( devices )
22 
-
23 
-|00 @System  &vector $2 &pad     $6 &r      $2 &g     $2 &b      $2
24 
-|20 @Screen     &vector $2 &width   $2 &height $2 &auto  $1 &pad   $1 &x     $2 &y $2 &addr $2 &pixel $1 &sprite $1
25 
-|a0 @File    &vector $2 &success $2 &stat   $2 &delete $1 &append $1 &name  $2 &length $2 &read $2 &write $2
26 
-
27 
-( variables )
28 
-
29 
-|0000
30 
-
31 
-( init )
32 
-
33 
-|0100 ( -> )
34 
-
35 
-	( theme )
36 
-	#0fa7 .System/r DEO2
37 
-	#0fa7 .System/g DEO2
38 
-	#0fa7 .System/b DEO2
39 
-
40 
-	( load font )
41 
-	#4900 .File/length DEO2
42 
-	;font-path-large .File/name DEO2
43 
-	;font-data .File/read DEO2
44 
-		( draw label )
45 
-		#0020 #0020 ;title #01 ;draw-uf3 JSR2
46 
-
47 
-	( load font )
48 
-	#2100 .File/length DEO2
49 
-	;font-path-medium .File/name DEO2
50 
-	;font-data .File/read DEO2
51 
-		( draw label )
52 
-		#0020 #0048 ;body #02 ;draw-uf2 JSR2
53 
-
54 
-	( load font )
55 
-	#0900 .File/length DEO2
56 
-	;font-path-small .File/name DEO2
57 
-	;font-data .File/read DEO2
58 
-		( draw label )
59 
-		#0030 #00b8 ;footer #03 ;draw-uf1 JSR2
60 
-
61 
-BRK
62 
-
63 
-@draw-uf1 ( x* y* text* color -- )
64 
-
65 
-	STH
66 
-	SWP2 .Screen/y DEO2
67 
-	SWP2 DUP2 .Screen/x DEO2 SWP2
68 
-	&loop
69 
-		LDAk
70 
-		DUP #0a ! ,&no-linebreak JCN
71 
-			( move down ) STH OVR2 .Screen/x DEO2 STHr
72 
-			( incr y ) .Screen/y DEI2 #0010 ++ .Screen/y DEO2
73 
-			POP ,&continue JMP &no-linebreak
74 
-		( get addr ) STHk TOS #30 SFT2 ;font-data #0100 ++ ++ .Screen/addr DEO2
75 
-		( get width ) STHr TOS ;font-data ++ LDA TOS
76 
-		( draw ) STHkr .Screen/sprite DEO
77 
-		( use width ) .Screen/x DEI2 ++ .Screen/x DEO2
78 
-		&continue
79 
-		( incr addr ) INC2
80 
-		LDAk ,&loop JCN
81 
-	POP2 POP2 POPr
82 
-
83 
-RTN
84 
-
85 
-@draw-uf2 ( x* y* text* color -- )
86 
-
87 
-	STH
88 
-	SWP2 .Screen/y DEO2
89 
-	SWP2 .Screen/x DEO2
90 
-	AUTO-Y-ADDR
91 
-	&while
92 
-		LDAk #0a ! ,&no-linebreak JCN
93 
-			( reset ) #0020 .Screen/x DEO2
94 
-			( down ) .Screen/y DEI2k #0010 ++ ROT DEO2
95 
-			,&continue JMP &no-linebreak
96 
-		LDAk STHkr ,&sprite JSR
97 
-		&continue
98 
-		INC2 LDAk ,&while JCN
99 
-	POP2 POPr
100 
-	AUTO-NONE
101 
-	RTN
102 
-
103 
-	&sprite ( char color -- )
104 
-		.Screen/x DEI2 STH2
105 
-		.Screen/y DEI2 STH2
106 
-		( glyph ) OVR GET-GLYPH .Screen/addr DEO2
107 
-		DUP .Screen/sprite DEOk DEO
108 
-		STH2kr .Screen/y DEO2
109 
-		SWP GET-WIDTH
110 
-		DUP #09 < ,&narrow JCN
111 
-			.Screen/x DEI2k #0008 ++ ROT DEO2
112 
-			OVR .Screen/sprite DEOk DEO
113 
-			STH2kr .Screen/y DEO2
114 
-			&narrow
115 
-		POP2r
116 
-		( width ) TOS STH2r ++ .Screen/x DEO2
117 
-		POP
118 
-	RTN
119 
-
120 
-RTN
121 
-
122 
-@draw-uf3 ( x* y* text* color -- )
123 
-
124 
-	STH
125 
-	SWP2 .Screen/y DEO2
126 
-	SWP2 DUP2 .Screen/x DEO2 SWP2
127 
-	&loop
128 
-		LDAk
129 
-		DUP #0a ! ,&no-linebreak JCN
130 
-			( move down ) OVR2 .Screen/x DEO2
131 
-			( incr y ) .Screen/y DEI2 #0010 ++ .Screen/y DEO2
132 
-			POP ,&continue JMP &no-linebreak
133 
-		STHkr ,&sprite JSR
134 
-		&continue
135 
-		( incr addr ) INC2
136 
-		LDAk ,&loop JCN
137 
-	POP2 POP2 POPr
138 
-	RTN
139 
-
140 
-	&sprite ( char color -- )
141 
-		STH
142 
-		( get addr ) DUP TOS #30 SFT2 #30 SFT2k ROT POP ADD2 ;font-data #0100 ++ ++ .Screen/addr DEO2
143 
-		( get width ) TOS ;font-data ++ LDA TOS
144 
-		#0300
145 
-		&ver
146 
-			#0300
147 
-			&hor
148 
-				STHkr .Screen/sprite DEO
149 
-				.Screen/x DEI2 #0008 ++ .Screen/x DEO2
150 
-				.Screen/addr DEI2 #0008 ++ .Screen/addr DEO2
151 
-				INC GTHk ,&hor JCN
152 
-			POP2
153 
-			.Screen/y DEI2 #0008 ++ .Screen/y DEO2
154 
-			.Screen/x DEI2 #0018 -- .Screen/x DEO2
155 
-			INC GTHk ,&ver JCN
156 
-		POP2
157 
-		.Screen/y DEI2 #0018 -- .Screen/y DEO2
158 
-		( use width ) .Screen/x DEI2 ++ .Screen/x DEO2
159 
-		POPr
160 
-	RTN
161 
-
162 
-RTN
163 
-
164 
-@title
165 
-	5468 6520 466f 6720 486f 726e $1
166 
-
167 
-@body
168 
-	4927 6c6c 206d 616b 6520 6120 736f 756e
169 
-	6420 7468 6174 2773 2073 6f20 616c 6f6e
170 
-	6520 0a74 6861 7420 6e6f 206f 6e65 2063
171 
-	616e 206d 6973 7320 6974 2c20 7468 6174
172 
-	2077 686f 6576 6572 200a 6865 6172 7320
173 
-	6974 2077 696c 6c20 7765 6570 2069 6e20
174 
-	7468 6569 7220 736f 756c 732c 200a 616e
175 
-	6420 6865 6172 7468 7320 7769 6c6c 2073
176 
-	6565 6d20 7761 726d 6572 2c20 0a61 6e64
177 
-	2062 6569 6e67 2069 6e73 6964 6520 7769
178 
-	6c6c 2073 6565 6d20 6265 7474 6572 200a
179 
-	746f 2061 6c6c 2077 686f 2068 6561 7220
180 
-	6974 2069 6e20 7468 6520 6469 7374 616e
181 
-	7420 746f 776e 732e 20 $1
182 
-
183 
-@footer
184 
-	2d20 4279 2052 6179 2042 7261 6462 7572
185 
-	79 $1
186 
-
187 
-@font-path-large
188 
-	"projects/fonts/geneva24.uf3 $1
189 
-@font-path-medium
190 
-	"projects/fonts/venice14.uf2 $1
191 
-@font-path-small
192 
-	"projects/fonts/atari8.uf1 $1
193 
-
194 
-@font-data $100 &glyphs
195 0 
\ No newline at end of file
projects/examples/gui/label.tal
History View file @ 4657fe2
... ... 
@@ -1,13 +1,37 @@
1 1 
 ( GUI Labels )
2 2
3 
+%+  { ADD }  %-  { SUB }  %*  { MUL }  %/  { DIV }
4 
+%<  { LTH }  %>  { GTH }  %=  { EQU }  %!  { NEQ }
5 
+%++ { ADD2 } %-- { SUB2 } %** { MUL2 } %// { DIV2 }
6 
+%<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 }
7 
+
8 
+%=~ { EQUk NIP } %!~ { NEQk NIP }
9 
+%<~ { LTHk NIP } %>~ { GTHk NIP }
10 
+
11 
+%2*  { #10 SFT } %2/  { #01 SFT } %2**  { #10 SFT2 } %2//  { #01 SFT2 }
12 
+%4*  { #20 SFT } %4/  { #02 SFT } %4**  { #20 SFT2 } %4//  { #02 SFT2 }
13 
+%8*  { #30 SFT } %8/  { #03 SFT } %8**  { #30 SFT2 } %8//  { #03 SFT2 }
14 
+%10* { #40 SFT } %10/ { #04 SFT } %10** { #40 SFT2 } %10// { #04 SFT2 }
15 
+%20* { #50 SFT } %20/ { #05 SFT } %20** { #50 SFT2 } %20// { #05 SFT2 }
16 
+
17 
+%IS-VALID { DUP #1f > SWP #7f < AND }
18 
+
3 19 
 %RTN { JMP2r }
4 
-%2// { #01 SFT2 }
5 
-%8** { #30 SFT2 }
20 
+%TOS { #00 SWP }
21 
+%AUTO-NONE   { #00 .Screen/auto DEO }
22 
+%AUTO-Y      { #02 .Screen/auto DEO }
23 
+%AUTO-YADDR  { #06 .Screen/auto DEO }
24 
+
25 
+%HALT   { #010f DEO }
26 
+%EMIT   { #18 DEO }
27 
+%PRINT  { ;print-str JSR2 #0a EMIT }
28 
+%DEBUG  { ;print-hex/byte JSR2 #0a EMIT }
29 
+%DEBUG2 { ;print-hex JSR2 #0a EMIT }
6 30
7 31 
 ( devices )
8 32
9 33 
 |00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
10 
-|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
34 
+|20 @Screen     &vector $2 &width    $2 &height $2 &auto   $1 &pad    $1 &x       $2 &y       $2 &addr   $2 &pixel $1 &sprite $1
11 35
12 36 
 ( variables )
13 37
... ... 
@@ -21,118 +45,596 @@
21 45 
 |0100
22 46
23 47 
 	( theme )
24 
-	#0f0f .System/r DEO2
25 
-	#0fff .System/g DEO2
26 
-	#0ff0 .System/b DEO2
48 
+	#f0d7 .System/r DEO2
49 
+	#f0de .System/g DEO2
50 
+	#f0dc .System/b DEO2
27 51
28 52 
 	( find screen center )
29 53 
 	.Screen/width DEI2 2// .center/x STZ2
30 54 
 	.Screen/height DEI2 2// .center/y STZ2
31 55
32 
-	( draw ver line )
33 
-	.center/x LDZ2 .Screen/x DEO2 #0000 .Screen/y DEO2
34 
-	&draw-ver
35 
-		( draw ) #02 .Screen/pixel DEO
36 
-		( incr ) .Screen/y DEI2 #0002 ADD2 .Screen/y DEO2
37 
-		.Screen/y DEI2 .Screen/height DEI2 LTH2 ,&draw-ver JCN
56 
+	( ver )
57 
+	AUTO-Y
58 
+	#0000 .Screen/y DEO2
59 
+	.center/x LDZ2 .Screen/x DEO2
60 
+	.Screen/height DEI2 #0000
61 
+	&ver
62 
+		#43 .Screen/pixel DEO
63 
+		.Screen/y DEI2k INC2 ROT DEO2
64 
+		INC2 GTH2k ,&ver JCN
65 
+	POP2 POP2
38 66
39 
-	.center/x LDZ2 .center/y LDZ2 #0010 SUB2 #0c ;text1 ;draw-label-left JSR2
40 
-	.center/x LDZ2 .center/y LDZ2 #0c ;text2 ;draw-label-middle JSR2
41 
-	.center/x LDZ2 .center/y LDZ2 #0010 ADD2 #0c ;text3 ;draw-label-right JSR2
42 
-	.center/x LDZ2 .center/y LDZ2 #0020 ADD2 #0c ;text4 ;draw-label-middle JSR2
43 
-	.center/x LDZ2 .center/y LDZ2 #0030 ADD2 #0c ;text5 ;draw-label-middle JSR2
67 
+	.center/x LDZ2 .Screen/x DEO2
68 
+	.center/y LDZ2 #0020 -- .Screen/y DEO2
69 
+	;left-txt #09 ;draw-uf2 JSR2
44 70
45 
-RTN
71 
+	.center/x LDZ2 .Screen/x DEO2
72 
+	.center/y LDZ2 .Screen/y DEO2
73 
+	;center-txt #09 ;draw-uf2-center JSR2
74 
+
75 
+	.center/x LDZ2 .Screen/x DEO2
76 
+	.center/y LDZ2 #0020 ++ .Screen/y DEO2
77 
+	;right-txt #09 ;draw-uf2-right JSR2
78 
+
79 
+BRK
46 80
47 
-@draw-label-left ( x y color addr -- )
81 
+@draw-uf2-center ( text* color -- )
48 82
49 
-	( load ) .label/addr STZ2 .label/color STZ .Screen/y DEO2 .Screen/x DEO2
50 
-	.label/addr LDZ2
51 
-	&loop
52 
-		( draw ) LDAk #00 SWP 8** ;font ADD2 .Screen/addr DEO2 .label/color LDZ .Screen/sprite DEO
53 
-		( incr ) INC2
54 
-		( incr ) .Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
55 
-		LDAk ,&loop JCN
56 
-	POP2
83 
+	STH
84 
+	DUP2 ,get-width JSR 2// .Screen/x DEI2 SWP2 -- .Screen/x DEO2
85 
+	STHr ,draw-uf2 JSR
57 86
58 87 
 RTN
59 88
60 
-@draw-label-middle ( x y color addr -- )
61 
-
62 
-	( load ) .label/addr STZ2 .label/color STZ .Screen/y DEO2
63 
-	( align ) .label/addr LDZ2 ;get-text-length JSR2 8** 2// SUB2 .Screen/x DEO2
64 
-	.label/addr LDZ2
65 
-	&loop
66 
-		( draw ) LDAk #00 SWP 8** ;font ADD2 .Screen/addr DEO2 .label/color LDZ .Screen/sprite DEO
67 
-		( incr ) INC2
68 
-		( incr ) .Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
69 
-		LDAk ,&loop JCN
70 
-	POP2
89 
+@draw-uf2-right ( text* color -- )
90 
+
91 
+	STH
92 
+	DUP2 ,get-width JSR .Screen/x DEI2 SWP2 -- .Screen/x DEO2
93 
+	STHr ,draw-uf2 JSR
71 94
72 95 
 RTN
73 96
74 
-@draw-label-right ( x y color addr -- )
75 
-
76 
-	( load ) .label/addr STZ2 .label/color STZ .Screen/y DEO2
77 
-	( align ) .label/addr LDZ2 ;get-text-length JSR2 8** SUB2 .Screen/x DEO2
78 
-	.label/addr LDZ2
79 
-	&loop
80 
-		( draw ) LDAk #00 SWP 8** ;font ADD2 .Screen/addr DEO2 .label/color LDZ .Screen/sprite DEO
81 
-		( incr ) INC2
82 
-		( incr ) .Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
83 
-		LDAk ,&loop JCN
97 
+@get-width ( text* -- width* )
98 
+
99 
+	LIT2r 0000
100 
+	&while
101 
+		LDAk TOS ;font ++ LDA TOS STH2 ADD2r
102 
+		INC2 LDAk ,&while JCN
84 103 
 	POP2
104 
+	STH2r
85 105
86 106 
 RTN
87 107
88 
-@get-text-length ( label* -- length )
89 
-
90 
-	#0000 ( counter )
91 
-	&loop
92 
-		( incr ) INC2 OVR2 OVR2 ADD2
93 
-		LDA ,&loop JCN
94 
-	NIP2
108 
+@draw-uf2 ( text* color -- )
109 
+
110 
+	STH
111 
+	AUTO-YADDR
112 
+	&while
113 
+		LDAk STHkr ,draw-glyph JSR
114 
+		INC2 LDAk ,&while JCN
115 
+	POP2 POPr
116 
+	AUTO-NONE
117 
+
118 
+RTN
119 
+
120 
+@draw-glyph ( char color -- )
121 
+
122 
+	.Screen/x DEI2 STH2
123 
+	.Screen/y DEI2 STH2
124 
+	( glyph ) OVR ,get-glyph JSR .Screen/addr DEO2
125 
+	DUP .Screen/sprite DEOk DEO
126 
+	STH2kr .Screen/y DEO2
127 
+	( get width ) SWP TOS ;font ++ LDA
128 
+	DUP #09 < ,&narrow JCN
129 
+		.Screen/x DEI2k #0008 ++ ROT DEO2
130 
+		OVR .Screen/sprite DEOk DEO
131 
+		STH2kr .Screen/y DEO2
132 
+		&narrow
133 
+	POP2r
134 
+	( width ) TOS STH2r ++ .Screen/x DEO2
135 
+	POP
136 
+
137 
+RTN
138 
+
139 
+@get-glyph ( char -- addr* )
140 
+
141 
+	#09 =~ ,&tab JCN ( tab )
142 
+	#0a =~ ,&linebreak JCN ( linebreak )
143 
+	#0d =~ ,&linebreak JCN ( linebreak )
144 
+	DUP IS-VALID ,&valid JCN
145 
+		POP ;unknown-icn RTN
146 
+	&linebreak
147 
+		POP ;linebreak-icn RTN
148 
+	&tab
149 
+		POP ;tab-icn RTN
150 
+	&valid
151 
+	TOS 20** ;font
152 
+	#0100 ++ ++
95 153
96 154 
 RTN
97 155
98 
-@font ( spectrum-zx font )
99 
-[
100 
-	0000 0000 0000 0000 0000 2400 7e3c 0000 0000 2400 3c42 0000 0000 6c7c 7c38 1000
101 
-	0010 387c 7c38 1000 0038 387c 6c10 3800 0010 387c 7c10 3800 0000 0018 1800 0000
102 
-	007e 4242 4242 7e00 0000 1824 2418 0000 0018 2442 4224 1800 001e 063a 4a48 3000
103 
-	0038 446c 107c 1000 000c 0808 0838 3800 003e 2222 2266 6600 0000 0822 0022 0800
104 
-	0000 1018 1c18 1000 0000 0818 3818 0800 0008 1c00 001c 0800 0028 2828 2800 2800
105 
-	003e 4a4a 3a0a 0a00 000c 3046 620c 3000 0000 0000 0000 ffff 0010 3800 3810 0038
106 
-	0008 1c2a 0808 0800 0008 0808 2a1c 0800 0000 0804 7e04 0800 0000 1020 7e20 1000
107 
-	0000 4040 7e00 0000 0000 0024 6624 0000 0000 1038 7c00 0000 0000 007c 3810 0000
108 
-	0000 0000 0000 0000 0008 0808 0800 0800 0014 1400 0000 0000 0024 7e24 247e 2400
109 
-	0008 1e28 1c0a 3c08 0042 0408 1020 4200 0030 4832 4c44 3a00 0008 1000 0000 0000
110 
-	0004 0808 0808 0400 0010 0808 0808 1000 0000 1408 3e08 1400 0000 0808 3e08 0800
111 
-	0000 0000 0008 0810 0000 0000 3c00 0000 0000 0000 0000 0800 0000 0204 0810 2000
112 
-	003c 464a 5262 3c00 0018 2808 0808 3e00 003c 4202 3c40 7e00 003c 421c 0242 3c00
113 
-	0008 1828 487e 0800 007e 407c 0242 3c00 003c 407c 4242 3c00 007e 0204 0810 1000
114 
-	003c 423c 4242 3c00 003c 4242 3e02 3c00 0000 0008 0000 0800 0000 0800 0008 0810
115 
-	0000 0810 2010 0800 0000 003e 003e 0000 0000 1008 0408 1000 003c 4202 0c00 0800
116 
-	003c 425a 5442 3c00 0018 2442 7e42 4200 007c 427c 4242 7c00 003c 4240 4042 3c00
117 
-	0078 4442 4244 7800 007e 407c 4040 7e00 003e 4040 7c40 4000 003c 4240 4e42 3c00
118 
-	0042 427e 4242 4200 003e 0808 0808 3e00 0002 0202 4242 3c00 0044 4870 4844 4200
119 
-	0040 4040 4040 7e00 0042 665a 4242 4200 0042 6252 4a46 4200 003c 4242 4242 3c00
120 
-	007c 4242 7c40 4000 003c 4242 524a 3c00 007c 4242 7c44 4200 003c 403c 0242 3c00
121 
-	00fe 1010 1010 1000 0042 4242 4242 3c00 0042 4242 4224 1800 0042 4242 5a66 4200
122 
-	0042 2418 1824 4200 0082 4428 1010 1000 007e 0408 1020 7e00 000c 0808 0808 0c00
123 
-	0040 2010 0804 0200 0018 0808 0808 1800 0008 1422 0000 0000 0000 0000 0000 7e00
124 
-	0008 0400 0000 0000 0000 1c02 1e22 1e00 0020 203c 2222 3c00 0000 1e20 2020 1e00
125 
-	0002 021e 2222 1e00 0000 1c22 3c20 1e00 000c 101c 1010 1000 0000 1c22 221e 021c
126 
-	0020 202c 3222 2200 0008 0018 0808 0400 0008 0008 0808 4830 0020 2428 3028 2400
127 
-	0010 1010 1010 0c00 0000 6854 5454 5400 0000 5864 4444 4400 0000 3844 4444 3800
128 
-	0000 7844 4478 4040 0000 3c44 443c 0406 0000 2c30 2020 2000 0000 3840 3804 7800
129 
-	0010 103c 1010 0c00 0000 4444 4444 3800 0000 4444 2828 1000 0000 4454 5454 2800
130 
-	0000 4428 1028 4400 0000 4444 443c 0438 0000 7c08 1020 7c00 000c 0810 1008 0c00
131 
-	0008 0808 0808 0800 0030 1008 0810 3000 0000 0032 4c00 0000 3c42 99a1 a199 423c
132 
-]
133 
-
134 
-@text1 [ "Left 20 "Aligned 00 ]
135 
-@text2 [ "Middle 20 "Aligned 00 ]
136 
-@text3 [ "Right 20 "Aligned 00 ]
137 
-@text4 [ "even 00 ]
138 
-@text5 [ "odd 00 ]
139 156 
\ No newline at end of file
157 
+@print-hex ( value* -- )
158 
+
159 
+	SWP ,&byte JSR
160 
+	&byte ( byte -- )
161 
+		STHk #04 SFT ,&parse JSR #18 DEO
162 
+		STHr #0f AND ,&parse JSR #18 DEO
163 
+	JMP2r
164 
+	&parse ( byte -- char ) DUP #09 GTH ,&above JCN #30 ADD JMP2r
165 
+	&above #57 ADD JMP2r
166 
+
167 
+JMP2r
168 
+
169 
+@left-txt "Left 20 "Aligned 20 "Label $1
170 
+@center-txt "Center 20 "Aligned 20 "Label $1
171 
+@right-txt "Right 20 "Aligned 20 "Label $1
172 
+
173 
+@unknown-icn
174 
+	aa55 aa55 aa55 aa55
175 
+	aa55 aa55 aa55 aa55
176 
+	aa55 aa55 aa55 aa55
177 
+	aa55 aa55 aa55 aa55
178 
+@tab-icn
179 
+	0000 0000 0000 1008
180 
+	1000 0000 0000 0000
181 
+	0000 0000 0000 0000
182 
+	0000 0000 0000 0000
183 
+@linebreak-icn
184 
+	0000 0000 0000 1028
185 
+	1000 0000 0000 0000
186 
+	0000 0000 0000 0000
187 
+	0000 0000 0000 0000
188 
+
189 
+@font ( venice14 )
190 
+	0000 0000 0000 0000 0009 0000 0000 0000
191 
+	0000 0000 0000 0000 0000 0000 0000 0000
192 
+	0505 0809 080c 0d05 0707 0a09 0609 0608
193 
+	0808 0808 0908 0808 0808 0505 0708 0709
194 
+	000d 0a08 0b0a 090a 0c08 070c 090e 0c09
195 
+	0a09 0c08 090b 0a0d 0d0a 0906 0806 0809
196 
+	0509 0807 0a07 0708 0906 0609 050f 0a08
197 
+	0908 0707 060a 090e 0a09 0807 0507 0800
198 
+	0d0d 080a 0c09 0b09 0909 0909 0907 0707
199 
+	0707 0606 0606 0a08 0808 0808 0a0a 0a0a
200 
+	0000 0000 0000 000a 0000 0005 0000 1009
201 
+	0000 0000 0000 0000 0000 0000 0000 0c08
202 
+	0905 0000 0000 000a 0a00 080d 0d09 0e0c
203 
+	090c 0808 0505 0000 0907 0000 0000 0000
204 
+	0000 0000 0000 0000 0000 0000 0000 0000
205 
+	0000 0000 0000 0000 0000 0000 0000 0000
206 
+	0000 0000 0000 0000 0000 0000 0000 0000
207 
+	0000 0000 0000 0000 0000 0000 0000 0000
208 
+	0000 0000 0000 0000 0000 0000 0000 0000
209 
+	0000 0000 0000 0000 0000 0000 0000 0000
210 
+	0000 0000 0000 0000 0000 0000 0000 0000
211 
+	0000 0000 0000 0000 0000 0000 0000 0000
212 
+	0000 0000 0000 0000 0000 0000 0000 0000
213 
+	0000 0000 0000 0000 0000 0000 0000 0000
214 
+	0000 0000 0000 0000 0000 0000 0000 0000
215 
+	0000 0000 0000 0000 0000 0000 0000 0000
216 
+	0000 0000 0000 0000 0000 0000 0000 0000
217 
+	0000 0000 0000 0000 0000 0000 0000 0000
218 
+	0000 0000 0000 0000 0000 0000 0000 0000
219 
+	0000 0000 0000 0000 0000 0000 0000 0000
220 
+	0000 0000 0000 0000 0000 0000 0000 0000
221 
+	0000 0000 0000 0000 0000 0000 0000 0000
222 
+	0000 0000 0000 0000 0000 0000 0000 0000
223 
+	0000 0000 0000 0000 0000 0000 0000 0000
224 
+	0000 0000 0000 0000 0000 0000 0000 0000
225 
+	0000 0000 0000 0000 0000 0000 0000 0000
226 
+	0000 0000 0000 0000 0000 0000 0000 0000
227 
+	0000 0000 0000 0000 0000 0000 0000 0000
228 
+	0000 0000 0000 0000 0000 0000 0000 0000
229 
+	0000 0000 0000 0000 0000 0000 0000 0000
230 
+	0000 0000 0000 0000 0000 0000 0000 0000
231 
+	0000 0000 0000 0000 0000 0000 0000 0000
232 
+	0000 0000 0000 0000 0000 0000 0000 0000
233 
+	0000 0000 0000 0000 0000 0000 0000 0000
234 
+	0000 0000 0000 0000 0000 0000 0000 0000
235 
+	0000 0000 0000 0000 0000 0000 0000 0000
236 
+	0000 0000 0000 0000 0000 0000 0000 0000
237 
+	0000 0000 0000 0000 0000 0000 0000 0000
238 
+	0000 0000 0000 0000 0000 0000 0000 0000
239 
+	0000 0000 0000 0000 0000 0000 0000 0000
240 
+	0000 0000 0000 0000 0000 0000 0000 0000
241 
+	0000 0000 0000 0000 0000 0000 0000 0000
242 
+	0000 0000 0000 0000 0000 0000 0000 0000
243 
+	0000 0000 0000 0000 0000 0000 0000 0000
244 
+	0000 0000 0000 0000 0000 0000 0000 0000
245 
+	0000 0000 0000 0000 0000 0000 0000 0000
246 
+	0000 0000 0000 0000 0000 0000 0000 0000
247 
+	0000 0000 0000 0000 0000 0000 0000 0000
248 
+	0000 0000 0000 0000 0000 0000 0000 0000
249 
+	0000 0000 0000 0000 0000 0000 0000 0000
250 
+	0000 0000 0000 0000 0000 0000 0000 0000
251 
+	0000 0000 0000 0000 0000 0000 0000 0000
252 
+	0000 0000 0000 0000 0000 0000 0000 0000
253 
+	0000 0000 0000 0000 0000 0000 0000 0000
254 
+	0000 0000 0000 0000 0000 0000 0000 0000
255 
+	0000 0000 0000 0000 0000 0000 0000 0000
256 
+	0000 0000 0000 0000 0000 0000 0000 0000
257 
+	0000 0000 0000 0000 0000 0000 0000 0000
258 
+	0000 0000 0000 0000 0000 0000 0000 0000
259 
+	0000 0000 0000 0000 0000 0000 0000 0000
260 
+	0000 0000 0000 0000 0000 0000 0000 0000
261 
+	0000 0000 0000 0000 0000 0000 0000 0000
262 
+	0000 0000 0000 0000 0000 0000 0000 0000
263 
+	0000 0000 0000 0000 0000 0000 0000 0000
264 
+	0000 0000 0000 0000 0000 0000 0000 0000
265 
+	0000 0000 0000 0000 0000 0000 0000 0000
266 
+	0000 0000 0000 0000 0000 0000 0000 0000
267 
+	0000 0000 0000 0000 0000 0000 0000 0000
268 
+	0000 0000 0000 0000 0000 0000 0000 0000
269 
+	0000 0000 0000 0000 0000 0000 0000 0000
270 
+	0000 0000 0000 0000 0000 0000 0000 0000
271 
+	0000 0000 0000 0000 0000 0000 0000 0000
272 
+	0000 3030 3030 3030 3000 3030 0000 0000
273 
+	0000 0000 0000 0000 0000 0000 0000 0000
274 
+	0000 2424 2400 0000 0000 0000 0000 0000
275 
+	0000 0000 0000 0000 0000 0000 0000 0000
276 
+	0000 1212 7f24 24fe 4848 0000 0000 0000
277 
+	0000 0000 0000 0000 0000 0000 0000 0000
278 
+	0000 1038 5450 7038 1c14 5438 1000 0000
279 
+	0000 0000 0000 0000 0000 0000 0000 0000
280 
+	0000 3748 494b 360d 1a32 6241 0000 0000
281 
+	0000 c0c0 8000 0080 4040 4080 0000 0000
282 
+	0000 1c22 261c 1835 6343 463c 0000 0000
283 
+	0000 0000 0000 e090 1020 8060 0000 0000
284 
+	0000 2020 2000 0000 0000 0000 0000 0000
285 
+	0000 0000 0000 0000 0000 0000 0000 0000
286 
+	0008 1030 2060 6060 6020 3010 0800 0000
287 
+	0000 0000 0000 0000 0000 0000 0000 0000
288 
+	0020 1018 080c 0c0c 0c08 1810 2000 0000
289 
+	0000 0000 0000 0000 0000 0000 0000 0000
290 
+	0012 0c3f 0c12 0000 0000 0000 0000 0000
291 
+	0000 0000 0000 0000 0000 0000 0000 0000
292 
+	0000 0008 0808 7f08 0808 0000 0000 0000
293 
+	0000 0000 0000 0000 0000 0000 0000 0000
294 
+	0000 0000 0000 0000 0000 3030 1020 0000
295 
+	0000 0000 0000 0000 0000 0000 0000 0000
296 
+	0000 0000 0000 7f00 0000 0000 0000 0000
297 
+	0000 0000 0000 0000 0000 0000 0000 0000
298 
+	0000 0000 0000 0000 0000 3030 0000 0000
299 
+	0000 0000 0000 0000 0000 0000 0000 0000
300 
+	0000 0206 040c 0818 1030 2060 4000 0000
301 
+	0000 0000 0000 0000 0000 0000 0000 0000
302 
+	0000 3c66 6666 6666 6666 663c 0000 0000
303 
+	0000 0000 0000 0000 0000 0000 0000 0000
304 
+	0000 0818 3818 1818 1818 183c 0000 0000
305 
+	0000 0000 0000 0000 0000 0000 0000 0000
306 
+	0000 3c46 8606 0c18 3060 c2fc 0000 0000
307 
+	0000 0000 0000 0000 0000 0000 0000 0000
308 
+	0000 7e8c 1830 7c06 4686 8c78 0000 0000
309 
+	0000 0000 0000 0000 0000 0000 0000 0000
310 
+	0000 040c 1c2c 4c8d fe0c 0c1e 0000 0000
311 
+	0000 0000 0000 0000 0000 0000 0000 0000
312 
+	0000 7c62 6078 0c06 0606 4c38 0000 0000
313 
+	0000 0000 0000 0000 0000 0000 0000 0000
314 
+	0000 1c22 606c 7666 6666 663c 0000 0000
315 
+	0000 0000 0000 0000 0000 0000 0000 0000
316 
+	0000 7e86 060c 0c18 1830 3030 0000 0000
317 
+	0000 0000 0000 0000 0000 0000 0000 0000
318 
+	0000 3c66 6666 3c66 6666 663c 0000 0000
319 
+	0000 0000 0000 0000 0000 0000 0000 0000
320 
+	0000 3c66 6666 666e 3606 4438 0000 0000
321 
+	0000 0000 0000 0000 0000 0000 0000 0000
322 
+	0000 0000 0030 3000 0000 3030 0000 0000
323 
+	0000 0000 0000 0000 0000 0000 0000 0000
324 
+	0000 0000 0030 3000 0000 3030 1020 0000
325 
+	0000 0000 0000 0000 0000 0000 0000 0000
326 
+	0000 0000 0c18 3060 3018 0c00 0000 0000
327 
+	0000 0000 0000 0000 0000 0000 0000 0000
328 
+	0000 0000 0000 7e00 7e00 0000 0000 0000
329 
+	0000 0000 0000 0000 0000 0000 0000 0000
330 
+	0000 0000 6030 180c 1830 6000 0000 0000
331 
+	0000 0000 0000 0000 0000 0000 0000 0000
332 
+	0000 3c46 0606 0c18 1000 1010 0000 0000
333 
+	0000 0000 0000 0000 0000 0000 0000 0000
334 
+	0000 0000 0000 0000 0000 0000 0000 0000
335 
+	0000 0000 0000 0000 0000 0000 0000 0000
336 
+	0001 0200 0001 0306 7f98 30e0 0000 0000
337 
+	00c0 6060 e0e0 6060 e060 6038 0000 0000
338 
+	0010 7eb3 b333 3e31 3131 31ff 0000 0000
339 
+	0000 0000 0000 0080 8080 8000 0000 0000
340 
+	0000 7cc2 c2c4 c0c0 c0c2 c478 0000 0000
341 
+	0000 0000 0000 0000 0000 0000 0000 0000
342 
+	0010 7fb1 b030 3030 3030 30ff 0000 0000
343 
+	0000 0080 c0c0 c0c0 c0c0 8000 0000 0000
344 
+	0010 7fb0 b030 3e30 3030 30ff 0000 0000
345 
+	0000 8080 0000 0000 0040 8000 0000 0000
346 
+	0010 7fb0 b030 3e30 3030 30e0 0000 0000
347 
+	0000 8080 0000 0000 0000 0000 0000 0000
348 
+	0000 3f61 c2c0 cfc3 c3c7 cb73 0000 0000
349 
+	0000 0000 0000 0000 0040 8000 0000 0000
350 
+	0000 71b1 b131 7fb1 3131 31e1 0000 0000
351 
+	00e0 8080 8080 8080 8090 a0c0 0000 0000
352 
+	0000 7898 9818 1818 1819 1a1c 0000 0000
353 
+	0000 0000 0000 0000 0000 0000 0000 0000
354 
+	0000 7898 9818 1818 1818 1818 1810 20c0
355 
+	0000 0000 0000 0000 0000 0000 0000 0000
356 
+	0000 70b1 b336 3c38 3c36 33e1 0000 0000
357 
+	0000 c080 0000 0000 0010 20c0 0000 0000
358 
+	0000 3860 6060 6060 6060 61fe 0000 0000
359 
+	0000 0000 0000 0000 0080 0000 0000 0000
360 
+	0000 70b8 bd2e 2420 2020 20c0 0000 0000
361 
+	0000 70e0 6060 6060 6064 6870 0000 0000
362 
+	0000 70b8 bc2e 2723 2120 20c0 0000 0000
363 
+	0000 6040 4040 40c0 c0c0 4040 0000 0000
364 
+	0000 3c46 c3c3 c3c3 c3c2 4438 0000 0000
365 
+	0000 0000 0000 0000 0000 0000 0000 0000
366 
+	0000 7fb1 b131 313f 3030 30e0 0000 0000
367 
+	0000 0080 8080 8000 0000 0000 0000 0000
368 
+	0000 3c46 c3c3 c3c3 c3d3 4a3c 0402 0000
369 
+	0000 0000 0000 0000 0000 0000 0000 0000
370 
+	0010 7fb1 b131 313f 3633 31e0 0000 0000
371 
+	0000 0080 8080 8000 0000 90e0 0000 0000
372 
+	0000 7cc2 e470 381c 4e86 c67c 0000 0000
373 
+	0000 0000 0000 0000 0000 0000 0000 0000
374 
+	0000 7f8c 8c0c 0c0c 0c0c 0c38 0000 0000
375 
+	0000 8000 0000 0000 0000 0000 0000 0000
376 
+	0000 61e1 6161 6161 6365 6931 0000 0000
377 
+	0000 8080 8080 8080 80a0 c080 0000 0000
378 
+	0000 61e3 6161 6163 666c 7870 0000 0000
379 
+	0000 0080 8080 8000 0000 0000 0000 0000
380 
+	0000 60e0 6060 6266 6e76 6747 0000 0000
381 
+	0000 2070 3030 3030 60c0 8000 0000 0000
382 
+	0000 60b0 980d 0707 0d18 3060 0000 0000
383 
+	0000 3060 c080 0000 80c8 6830 0000 0000
384 
+	0000 61e1 6161 6161 6163 6539 0101 021c
385 
+	0000 8080 8080 8080 8080 8080 8000 0000
386 
+	0000 7f83 860c 1830 60c0 c1fe 0000 0000
387 
+	0000 0000 0000 0000 0080 0000 0000 0000
388 
+	0078 6060 6060 6060 6060 6060 7800 0000
389 
+	0000 0000 0000 0000 0000 0000 0000 0000
390 
+	0000 4060 2030 1018 080c 0406 0200 0000
391 
+	0000 0000 0000 0000 0000 0000 0000 0000
392 
+	0078 1818 1818 1818 1818 1818 7800 0000
393 
+	0000 0000 0000 0000 0000 0000 0000 0000
394 
+	0000 0010 2844 0000 0000 0000 0000 0000
395 
+	0000 0000 0000 0000 0000 0000 0000 0000
396 
+	0000 0000 0000 0000 0000 00ff 0000 0000
397 
+	0000 0000 0000 0000 0000 0080 0000 0000
398 
+	0040 2010 0000 0000 0000 0000 0000 0000
399 
+	0000 0000 0000 0000 0000 0000 0000 0000
400 
+	0000 0000 007e c6c6 c6ce d766 0000 0000
401 
+	0000 0000 0000 0000 0080 0000 0000 0000
402 
+	0070 c0c0 c0dc e6c6 c6c6 ccf8 0000 0000
403 
+	0000 0000 0000 0000 0000 0000 0000 0000
404 
+	0000 0000 007c c4c0 c0c4 c870 0000 0000
405 
+	0000 0000 0000 0000 0000 0000 0000 0000
406 
+	0003 0606 067e c6c6 c6ce d667 0000 0000
407 
+	0080 0000 0000 0000 0040 8000 0000 0000
408 
+	0000 0000 007c c4c8 d0e2 c478 0000 0000
409 
+	0000 0000 0000 0000 0000 0000 0000 0000
410 
+	001c 3030 3078 3030 3030 3030 3030 20c0
411 
+	0000 0000 0000 0000 0000 0000 0000 0000
412 
+	0000 0000 007e c6c6 c6ce d666 0604 0830
413 
+	0000 0000 0000 0000 0000 0000 0000 0000
414 
+	0070 c0c0 c0ce d6e6 c6c6 c7c6 0000 0000
415 
+	0000 0000 0000 0000 0080 0000 0000 0000
416 
+	0000 2040 0060 e060 6064 6870 0000 0000
417 
+	0000 0000 0000 0000 0000 0000 0000 0000
418 
+	0000 1020 0030 70b0 3030 3030 3020 4080
419 
+	0000 0000 0000 0000 0000 0000 0000 0000
420 
+	0070 c0c0 c0d8 e4c4 f8d8 cdc6 0000 0000
421 
+	0000 0000 0000 0000 0080 0000 0000 0000
422 
+	0070 c0c0 c0c0 c0c0 c0c8 d0e0 0000 0000
423 
+	0000 0000 0000 0000 0000 0000 0000 0000
424 
+	0000 0000 0067 eb73 6363 6363 0000 0000
425 
+	0000 0000 0038 5898 181a 1c18 0000 0000
426 
+	0000 0000 0067 eb73 6363 6363 0000 0000
427 
+	0000 0000 0000 0000 0040 8000 0000 0000
428 
+	0000 0000 007c c6c6 c6c6 cc78 0000 0000
429 
+	0000 0000 0000 0000 0000 0000 0000 0000
430 
+	0000 0000 006e f363 6363 667c 6060 60c0
431 
+	0000 0000 0000 0000 0000 0000 0000 0000
432 
+	0000 0000 007e c6c6 c6ce d666 0606 0706
433 
+	0000 0000 0000 0000 0000 0000 0000 0000
434 
+	0000 0000 006c f060 6060 7060 0000 0000
435 
+	0000 0000 0000 0000 0000 0000 0000 0000
436 
+	0000 0000 0078 c4c0 780c 8c78 0000 0000
437 
+	0000 0000 0000 0000 0000 0000 0000 0000
438 
+	0000 0020 60f8 6060 6064 6870 0000 0000
439 
+	0000 0000 0000 0000 0000 0000 0000 0000
440 
+	0000 0000 0063 e363 6367 6b33 0000 0000
441 
+	0000 0000 0000 0000 0040 8000 0000 0000
442 
+	0000 0000 0042 e763 6264 6870 0000 0000
443 
+	0000 0000 0000 0000 0000 0000 0000 0000
444 
+	0000 0000 0042 e763 676b 7363 0000 0000
445 
+	0000 0000 0010 3818 1020 4080 0000 0000
446 
+	0000 0000 0061 b21c 0c16 2341 0000 0000
447 
+	0000 0000 0000 0000 0000 4080 0000 0000
448 
+	0000 0000 0063 e363 6367 6b33 0302 0438
449 
+	0000 0000 0000 0000 0000 0000 0000 0000
450 
+	0000 0000 007e 860c 1830 61fe 0000 0000
451 
+	0000 0000 0000 0000 0000 0000 0000 0000
452 
+	0000 1830 3030 3060 3030 3030 3018 0000
453 
+	0000 0000 0000 0000 0000 0000 0000 0000
454 
+	0000 2020 2020 2020 2020 2020 2020 0000
455 
+	0000 0000 0000 0000 0000 0000 0000 0000
456 
+	0000 3018 1818 180c 1818 1818 1830 0000
457 
+	0000 0000 0000 0000 0000 0000 0000 0000
458 
+	4c00 0000 0000 0000 0000 0000 0000 0000
459 
+	0000 0000 0000 0000 0000 0000 0000 0000
460 
+	0000 0000 0000 0000 0000 0000 0000 0000
461 
+	0000 0000 0000 0000 0000 0000 0000 0000
462 
+	0001 0200 0001 0306 7f98 30e0 0000 0000
463 
+	00c0 6060 e0e0 6060 e060 6038 0000 0000
464 
+	0001 0200 0001 0306 7f98 30e0 0000 0000
465 
+	c0c0 6060 e0e0 6060 e060 6038 0000 0000
466 
+	0000 7cc2 c2c4 c0c0 c0c2 c478 1010 2000
467 
+	0000 0000 0000 0000 0000 0000 0000 0000
468 
+	0010 7fb0 b030 3e30 3030 30ff 0000 0000
469 
+	0000 8080 0000 0000 0040 8000 0000 0000
470 
+	1300 70b8 bc2e 2723 2120 20c0 0000 0000
471 
+	0000 6040 4040 40c0 c0c0 4040 0000 0000
472 
+	0000 3c46 c3c3 c3c3 c3c2 4438 0000 0000
473 
+	0000 0000 0000 0000 0000 0000 0000 0000
474 
+	0000 61e1 6161 6161 6365 6931 0000 0000
475 
+	0000 8080 8080 8080 80a0 c080 0000 0000
476 
+	0008 1000 007e c6c6 c6ce d766 0000 0000
477 
+	0000 0000 0000 0000 0080 0000 0000 0000
478 
+	0010 0800 007e c6c6 c6ce d766 0000 0000
479 
+	0000 0000 0000 0000 0080 0000 0000 0000
480 
+	1028 4400 007e c6c6 c6ce d766 0000 0000
481 
+	0000 0000 0000 0000 0080 0000 0000 0000
482 
+	0000 2400 007e c6c6 c6ce d766 0000 0000
483 
+	0000 0000 0000 0000 0080 0000 0000 0000
484 
+	0032 4c00 007e c6c6 c6ce d766 0000 0000
485 
+	0000 0000 0000 0000 0080 0000 0000 0000
486 
+	1824 2418 007e c6c6 c6ce d766 0000 0000
487 
+	0000 0000 0000 0000 0080 0000 0000 0000
488 
+	0000 0000 007c c4c0 c0c4 c870 1010 2000
489 
+	0000 0000 0000 0000 0000 0000 0000 0000
490 
+	0008 1000 007c c4c8 d0e2 c478 0000 0000
491 
+	0000 0000 0000 0000 0000 0000 0000 0000
492 
+	0020 1000 007c c4c8 d0e2 c478 0000 0000
493 
+	0000 0000 0000 0000 0000 0000 0000 0000
494 
+	1028 4400 007c c4c8 d0e2 c478 0000 0000
495 
+	0000 0000 0000 0000 0000 0000 0000 0000
496 
+	0000 4800 007c c4c8 d0e2 c478 0000 0000
497 
+	0000 0000 0000 0000 0000 0000 0000 0000
498 
+	0020 4000 0060 e060 6064 6870 0000 0000
499 
+	0000 0000 0000 0000 0000 0000 0000 0000
500 
+	0040 2000 0060 e060 6064 6870 0000 0000
501 
+	0000 0000 0000 0000 0000 0000 0000 0000
502 
+	2050 8800 0060 e060 6064 6870 0000 0000
503 
+	0000 0000 0000 0000 0000 0000 0000 0000
504 
+	0000 9000 0060 e060 6064 6870 0000 0000
505 
+	0000 0000 0000 0000 0000 0000 0000 0000
506 
+	0019 2600 0067 eb73 6363 6363 0000 0000
507 
+	0000 0000 0000 0000 0040 8000 0000 0000
508 
+	0008 1000 007c c6c6 c6c6 cc78 0000 0000
509 
+	0000 0000 0000 0000 0000 0000 0000 0000
510 
+	0020 1000 007c c6c6 c6c6 cc78 0000 0000
511 
+	0000 0000 0000 0000 0000 0000 0000 0000
512 
+	1028 4400 007c c6c6 c6c6 cc78 0000 0000
513 
+	0000 0000 0000 0000 0000 0000 0000 0000
514 
+	0000 2400 007c c6c6 c6c6 cc78 0000 0000
515 
+	0000 0000 0000 0000 0000 0000 0000 0000
516 
+	0032 4c00 007c c6c6 c6c6 cc78 0000 0000
517 
+	0000 0000 0000 0000 0000 0000 0000 0000
518 
+	0008 1000 0063 e363 6367 6b33 0000 0000
519 
+	0000 0000 0000 0000 0040 8000 0000 0000
520 
+	0010 0800 0063 e363 6367 6b33 0000 0000
521 
+	0000 0000 0000 0000 0040 8000 0000 0000
522 
+	0814 2200 0063 e363 6367 6b33 0000 0000
523 
+	0000 0000 0000 0000 0040 8000 0000 0000
524 
+	0000 2400 0063 e363 6367 6b33 0000 0000
525 
+	0000 0000 0000 0000 0040 8000 0000 0000
526 
+	0000 0000 0000 0000 0000 0000 0000 0000
527 
+	0000 0000 0000 0000 0000 0000 0000 0000
528 
+	0000 0000 0000 0000 0000 0000 0000 0000
529 
+	0000 0000 0000 0000 0000 0000 0000 0000
530 
+	0000 0000 0000 0000 0000 0000 0000 0000
531 
+	0000 0000 0000 0000 0000 0000 0000 0000
532 
+	0000 0000 0000 0000 0000 0000 0000 0000
533 
+	0000 0000 0000 0000 0000 0000 0000 0000
534 
+	0000 0000 0000 0000 0000 0000 0000 0000
535 
+	0000 0000 0000 0000 0000 0000 0000 0000
536 
+	0000 0000 0000 0000 0000 0000 0000 0000
537 
+	0000 0000 0000 0000 0000 0000 0000 0000
538 
+	0000 0000 0000 0000 0000 0000 0000 0000
539 
+	0000 0000 0000 0000 0000 0000 0000 0000
540 
+	0000 1e33 3333 3631 3131 33e6 0000 0000
541 
+	0000 0000 0000 0000 8080 0000 0000 0000
542 
+	0000 0000 0000 0000 0000 0000 0000 0000
543 
+	0000 0000 0000 0000 0000 0000 0000 0000
544 
+	0000 0000 0000 0000 0000 0000 0000 0000
545 
+	0000 0000 0000 0000 0000 0000 0000 0000
546 
+	0000 0000 0000 0000 0000 0000 0000 0000
547 
+	0000 0000 0000 0000 0000 0000 0000 0000
548 
+	0010 2040 0000 0000 0000 0000 0000 0000
549 
+	0000 0000 0000 0000 0000 0000 0000 0000
550 
+	0000 0000 0000 0000 0000 0000 0000 0000
551 
+	0000 0000 0000 0000 0000 0000 0000 0000
552 
+	0000 0000 0000 0000 0000 0000 0000 0000
553 
+	0000 0000 0000 0000 0000 0000 0000 0000
554 
+	0001 0200 0001 0306 7f98 30e1 0000 0000
555 
+	00c0 7f61 e0e0 7c60 e060 61fe 0000 0000
556 
+	0000 3d42 c7cb cbd3 d3e2 44b8 0000 0000
557 
+	0000 0000 0000 0000 0000 0000 0000 0000
558 
+	0000 0000 0000 0000 0000 0000 0000 0000
559 
+	0000 0000 0000 0000 0000 0000 0000 0000
560 
+	0000 0000 0000 0000 0000 0000 0000 0000
561 
+	0000 0000 0000 0000 0000 0000 0000 0000
562 
+	0000 0000 0000 0000 0000 0000 0000 0000
563 
+	0000 0000 0000 0000 0000 0000 0000 0000
564 
+	0000 0000 0000 0000 0000 0000 0000 0000
565 
+	0000 0000 0000 0000 0000 0000 0000 0000
566 
+	0000 0000 0000 0000 0000 0000 0000 0000
567 
+	0000 0000 0000 0000 0000 0000 0000 0000
568 
+	0000 0000 0000 0000 0000 0000 0000 0000
569 
+	0000 0000 0000 0000 0000 0000 0000 0000
570 
+	0000 0000 0000 0000 0000 0000 0000 0000
571 
+	0000 0000 0000 0000 0000 0000 0000 0000
572 
+	0000 0000 0000 0000 0000 0000 0000 0000
573 
+	0000 0000 0000 0000 0000 0000 0000 0000
574 
+	0000 0000 0000 0000 0000 0000 0000 0000
575 
+	0000 0000 0000 0000 0000 0000 0000 0000
576 
+	0000 0000 0000 0000 0000 0000 0000 0000
577 
+	0000 0000 0000 0000 0000 0000 0000 0000
578 
+	0000 0000 0000 0000 0000 0000 0000 0000
579 
+	0000 0000 0000 0000 0000 0000 0000 0000
580 
+	0000 0000 0000 0000 0000 0000 0000 0000
581 
+	0000 0000 0000 0000 0000 0000 0000 0000
582 
+	0000 0000 0000 0000 0000 0000 0000 0000
583 
+	0000 0000 0000 0000 0000 0000 0000 0000
584 
+	0000 0000 0000 0000 0000 0000 0000 0000
585 
+	0000 0000 0000 0000 0000 0000 0000 0000
586 
+	0000 0000 007d c6c6 c6cf d663 0000 0000
587 
+	0000 0000 00e0 2040 8010 20c0 0000 0000
588 
+	0000 0000 007c c6ce d6e6 cc78 0000 0000
589 
+	0000 0000 0000 0000 0000 0000 0000 0000
590 
+	0000 0808 0008 1830 6060 623c 0000 0000
591 
+	0000 0000 0000 0000 0000 0000 0000 0000
592 
+	0000 6060 0060 6060 6060 6060 0000 0000
593 
+	0000 0000 0000 0000 0000 0000 0000 0000
594 
+	0000 0000 0000 0000 0000 0000 0000 0000
595 
+	0000 0000 0000 0000 0000 0000 0000 0000
596 
+	0000 0000 0000 0000 0000 0000 0000 0000
597 
+	0000 0000 0000 0000 0000 0000 0000 0000
598 
+	0000 0000 0000 0000 0000 0000 0000 0000
599 
+	0000 0000 0000 0000 0000 0000 0000 0000
600 
+	0000 0000 0000 0000 0000 0000 0000 0000
601 
+	0000 0000 0000 0000 0000 0000 0000 0000
602 
+	0000 0000 0000 0000 0000 0000 0000 0000
603 
+	0000 0000 0000 0000 0000 0000 0000 0000
604 
+	0000 0000 0009 1224 4824 1209 0000 0000
605 
+	0000 0000 0000 0000 0000 0000 0000 0000
606 
+	0000 0000 0024 1209 0409 1224 0000 0000
607 
+	0000 0000 0000 0000 8000 0000 0000 0000
608 
+	0000 0000 0000 0000 0000 0000 0000 0000
609 
+	0000 0000 0000 0000 0000 0000 0000 0000
610 
+	0000 0000 0000 0000 0000 0000 0000 0000
611 
+	0000 0000 0000 0000 0000 0000 0000 0000
612 
+	0001 0200 0001 0306 7f98 30e0 0000 0000
613 
+	00c0 6060 e0e0 6060 e060 6038 0000 0000
614 
+	0001 0200 0001 0306 7f98 30e0 0000 0000
615 
+	00c0 6060 e0e0 6060 e060 6038 0000 0000
616 
+	4c00 3c46 c3c3 c3c3 c3c2 4438 0000 0000
617 
+	0000 0000 0000 0000 0000 0000 0000 0000
618 
+	0000 3f47 c3c3 c3c3 c3c3 473b 0000 0000
619 
+	0000 f808 0000 e000 0004 08f0 0000 0000
620 
+	0000 0000 007d c6c6 c6c7 ce79 0000 0000
621 
+	0000 0000 00e0 2040 8010 20c0 0000 0000
622 
+	0000 0000 0000 7f00 0000 0000 0000 0000
623 
+	0000 0000 0000 0000 0000 0000 0000 0000
624 
+	0000 0000 0000 7f00 0000 0000 0000 0000
625 
+	0000 0000 0000 e000 0000 0000 0000 0000
626 
+	0000 2448 6c6c 0000 0000 0000 0000 0000
627 
+	0000 0000 0000 0000 0000 0000 0000 0000
628 
+	0000 3636 1224 0000 0000 0000 0000 0000
629 
+	0000 0000 0000 0000 0000 0000 0000 0000
630 
+	0000 2040 6060 0000 0000 0000 0000 0000
631 
+	0000 0000 0000 0000 0000 0000 0000 0000
632 
+	0000 3030 1020 0000 0000 0000 0000 0000
633 
+	0000 0000 0000 0000 0000 0000 0000 0000
634 
+	0000 0000 0000 0000 0000 0000 0000 0000
635 
+	0000 0000 0000 0000 0000 0000 0000 0000
636 
+	0000 0000 0000 0000 0000 0000 0000 0000
637 
+	0000 0000 0000 0000 0000 0000 0000 0000
638 
+	0000 2400 0063 e363 6367 6b33 0302 0438
639 
+	0000 0000 0000 0000 0000 0000 0000 0000
640 
+	0000 0000 0000 0070 98ce 6438 0000 0000
641 
+	0000 0000 0000 0000 0000 0000 0000 0000
projects/software/supervisor.tal
History View file @ 4657fe2
... ... 
@@ -148,12 +148,12 @@ RTN
148 148 
 		( working stack )
149 149 
 		#0010 .Screen/y DEO2
150 150 
 		DUP2 #0018 ** #0010 ++ .Screen/x DEO2
151 
-		DUP #fe00 LDA ( ptr ) EQU #41 + STH
151 
+		DUP #fe00 LDA ( ptr ) EQU #4b + STH
152 152 
 		DUP2 #fe01 ++ LDA STHr ;draw-byte JSR2
153 153 
 		( return stack )
154 154 
 		#0028 .Screen/y DEO2
155 155 
 		DUP2 #0018 ** #0010 ++ .Screen/x DEO2
156 
-		DUP #ff00 LDA ( ptr ) EQU #41 + STH
156 
+		DUP #ff00 LDA ( ptr ) EQU #4b + STH
157 157 
 		DUP2 #ff01 ++ LDA STHr ;draw-byte JSR2
158 158 
 		INC2 GTH2k ,&wst JCN
159 159 
 	POP2 POP2