Browse code
(screen.tal) Improved layout
neauoire authored on 27/03/2022 01:29:38
Showing 1 changed files
| ... | ... |
@@ -35,7 +35,7 @@ BRK |
| 35 | 35 |
|
| 36 | 36 |
#01 .Screen/auto DEO |
| 37 | 37 |
.count LDZ2 INC2 [ DUP2 ] .count STZ2 |
| 38 |
- .center/x LDZ2 #0028 ADD2 .Screen/x DEO2 |
|
| 38 |
+ .center/x LDZ2 #0050 ADD2 .Screen/x DEO2 |
|
| 39 | 39 |
.center/y LDZ2 #0048 SUB2 .Screen/y DEO2 |
| 40 | 40 |
;draw-short JSR2 |
| 41 | 41 |
|
| ... | ... |
@@ -43,18 +43,26 @@ BRK |
| 43 | 43 |
|
| 44 | 44 |
@draw-sprites ( -- ) |
| 45 | 45 |
|
| 46 |
- .center/x LDZ2 #0068 SUB2 .Screen/x DEO2 |
|
| 46 |
+ ( horizontal ) |
|
| 47 |
+ .center/x LDZ2 #0060 SUB2 .Screen/x DEO2 |
|
| 47 | 48 |
.center/y LDZ2 #0048 SUB2 .Screen/y DEO2 |
| 48 | 49 |
;font-hex .Screen/addr DEO2 |
| 49 | 50 |
#f6 .Screen/auto DEO |
| 50 | 51 |
#01 .Screen/sprite DEO |
| 52 |
+ ( vertical ) |
|
| 53 |
+ .center/x LDZ2 #0070 SUB2 .Screen/x DEO2 |
|
| 54 |
+ .center/y LDZ2 #0038 SUB2 .Screen/y DEO2 |
|
| 55 |
+ ;font-hex .Screen/addr DEO2 |
|
| 56 |
+ #f5 .Screen/auto DEO |
|
| 57 |
+ #01 .Screen/sprite DEO |
|
| 58 |
+ |
|
| 51 | 59 |
#00 .Screen/auto DEO |
| 52 | 60 |
( table ) |
| 53 | 61 |
;preview_icn .Screen/addr DEO2 |
| 54 | 62 |
#00 #00 |
| 55 | 63 |
&loop |
| 56 | 64 |
( move ) DUP #0f AND #40 SFT #01 SFT #00 SWP |
| 57 |
- .center/x LDZ2 #0068 SUB2 ADD2 .Screen/x DEO2 |
|
| 65 |
+ .center/x LDZ2 #0060 SUB2 ADD2 .Screen/x DEO2 |
|
| 58 | 66 |
( move ) DUP #f0 AND #01 SFT #00 SWP |
| 59 | 67 |
.center/y LDZ2 #0038 SUB2 ADD2 .Screen/y DEO2 |
| 60 | 68 |
( draw ) DUP .Screen/sprite DEO |
| ... | ... |
@@ -71,7 +79,7 @@ JMP2r |
| 71 | 79 |
( y ) DUP #02 SFT [ #00 SWP ] #40 SFT2 |
| 72 | 80 |
[ .center/y LDZ2 #0038 SUB2 ADD2 ] STH2 |
| 73 | 81 |
( x ) DUP #03 AND [ #00 SWP ] #40 SFT2 #0040 ADD2 |
| 74 |
- [ .center/x LDZ2 #0018 SUB2 ADD2 ] |
|
| 82 |
+ [ .center/x LDZ2 #0010 SUB2 ADD2 ] |
|
| 75 | 83 |
STH2r STHr #00 ,draw-circle JSR |
| 76 | 84 |
INC GTHk ,&loop JCN |
| 77 | 85 |
POP2 |
| ... | ... |
@@ -86,7 +94,7 @@ JMP2r |
| 86 | 94 |
( y ) DUP #02 SFT [ #00 SWP ] #40 SFT2 |
| 87 | 95 |
[ .center/y LDZ2 #0008 ADD2 ADD2 ] STH2 |
| 88 | 96 |
( x ) DUP #03 AND [ #00 SWP ] #40 SFT2 #0040 ADD2 |
| 89 |
- [ .center/x LDZ2 #0018 SUB2 ADD2 ] |
|
| 97 |
+ [ .center/x LDZ2 #0010 SUB2 ADD2 ] |
|
| 90 | 98 |
STH2r STHr #80 ,draw-circle JSR |
| 91 | 99 |
INC GTHk ,&loop JCN |
| 92 | 100 |
POP2 |