2016-02-17 20:35:00 +00:00
|
|
|
; ca65
|
|
|
|
.feature c_comments
|
2016-02-20 16:01:00 +00:00
|
|
|
.linecont +
|
|
|
|
.feature labels_without_colons
|
|
|
|
.feature leading_dot_in_identifiers
|
|
|
|
.PC02 ; 65C02
|
2016-02-18 20:34:00 +00:00
|
|
|
|
2016-02-21 03:26:00 +00:00
|
|
|
/* Version 35
|
2016-02-19 21:07:00 +00:00
|
|
|
printm - a modular micro printf replacement for 65C02
|
2016-02-19 01:32:00 +00:00
|
|
|
Michael Pohoreski
|
2016-02-19 21:07:00 +00:00
|
|
|
Copyleft {c} Feb, 2016
|
2016-02-20 07:47:00 +00:00
|
|
|
Special Thanks: Sheldon for his 65C02 printf() source, qkumba optimizations
|
2016-02-18 20:34:00 +00:00
|
|
|
|
|
|
|
Problem:
|
2016-02-19 01:32:00 +00:00
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
Ideally we want to print an 1:1 mapping of input:output text that includes
|
|
|
|
literal and variables. We could do this by using mixed ASCII case:
|
|
|
|
|
|
|
|
- high bit characters would be output "as is"
|
|
|
|
- ASCII characters would be interpreted as a variable output.
|
2016-02-19 01:32:00 +00:00
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
__ ___ ____ __ ________ ________
|
|
|
|
.byte "X=## Y=### $=$$$$:@@ %%%%%%%%~????????"
|
|
|
|
|
|
|
|
Legend:
|
2016-02-18 20:34:00 +00:00
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
# Print Dec Num
|
|
|
|
$ Print Hex Num
|
|
|
|
% Print Bin Num
|
|
|
|
? Print Bin Num but with 1's in inverse
|
|
|
|
@ Print Ptr Val
|
|
|
|
_ Chars with underscore represents ASCII characters
|
|
|
|
|
|
|
|
While originally this gives us a nice 1:1 mapping for input:output ...
|
2016-02-18 20:34:00 +00:00
|
|
|
|
2016-02-19 01:32:00 +00:00
|
|
|
... it has 2 problems:
|
|
|
|
|
|
|
|
a) it has to be constructed in pieces
|
|
|
|
b) and it is bloated.
|
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
Can we fix (a) ?
|
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
Can we use a more compact printf-style format string
|
|
|
|
where we don't waste storing the escape character AND
|
2016-02-19 01:32:00 +00:00
|
|
|
toggle the high bit on characters on/off as needed?
|
|
|
|
|
|
|
|
Yes, if we use a macro!
|
2016-02-18 20:34:00 +00:00
|
|
|
|
2016-02-19 01:32:00 +00:00
|
|
|
PRINTM "X=%# Y=%d $=%x:%@ %%~%?"
|
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
Can we fix (b) ?
|
|
|
|
|
|
|
|
Yes, by using an unique meta character that has the width associated with it.
|
|
|
|
|
|
|
|
This is why the cannonical printf() on the 6502 sucks:
|
2016-02-18 20:34:00 +00:00
|
|
|
|
|
|
|
- is bloated by using a meta-character '%' instead of the high bit
|
|
|
|
- doesn't provide a standard way to print binary *facepalm*
|
2016-02-19 05:58:00 +00:00
|
|
|
- doesn't provide a standard way to print a dereferenced pointer
|
2016-02-18 20:34:00 +00:00
|
|
|
- 2 digit, 3 digit and 5 digit decimals requiring wasting "width" characters
|
|
|
|
e.g. %2d, %3d, %5d
|
|
|
|
When a single character would work instead.
|
2016-02-19 21:07:00 +00:00
|
|
|
- printf() is notorious for being bloated. If you don't use
|
|
|
|
features you can't turn them off to reclaim the memory used
|
|
|
|
by the code (or data)
|
2016-02-18 20:34:00 +00:00
|
|
|
|
|
|
|
Solution:
|
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
Here is a *modular* _micro_ replacement: printm()
|
2016-02-18 20:34:00 +00:00
|
|
|
|
|
|
|
* Literals have the high byte set (APPLE text)
|
|
|
|
* Meta characters have the high bit cleared (ASCII)
|
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
$ Hex - print 2 Byte
|
|
|
|
x Hex - print 4 Byte
|
2016-02-18 20:34:00 +00:00
|
|
|
|
|
|
|
@ Ptr - print hex byte at 16-bit pointer
|
|
|
|
& Ptr - print hex word at 16-bit pointer
|
|
|
|
|
|
|
|
# Dec - Print 1 Byte in decimal (max 2 digits)
|
|
|
|
d Dec - Print 2 Byte in decimal (max 3 digits)
|
|
|
|
u Dec - Print 2 Byte in decimal (max 5 digits)
|
2016-02-19 05:58:00 +00:00
|
|
|
b Dec - Print signed byte in decimal
|
2016-02-18 20:34:00 +00:00
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
% Bin - Print 8 bits
|
|
|
|
? Bin - Print 8 bits but 1's in inverse
|
2016-02-18 20:34:00 +00:00
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
o Oct - Print 1 Byte in octal (max 3 digits)
|
|
|
|
O Oct - Print 2 Byte in octal (max 6 digits)
|
|
|
|
|
2016-02-18 20:34:00 +00:00
|
|
|
a Str - APPLE text (high bit set), last char is ASCII
|
|
|
|
s Str - C string, zero terminated
|
|
|
|
p Str - Pascal string, first character is string length
|
|
|
|
|
2016-02-20 17:17:00 +00:00
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
Each option can individually be enabled / disabled
|
|
|
|
to control the memory footprint since you probably
|
|
|
|
don't need "every" feature. Seriously, when was the last time
|
|
|
|
you _needed_ octal? :-)
|
2016-02-19 05:58:00 +00:00
|
|
|
|
2016-02-20 17:17:00 +00:00
|
|
|
printm() has manually been optimized for size. In gcc parlance, `-Os`.
|
2016-02-21 03:26:00 +00:00
|
|
|
With everything enabled printm() takes up $1C2 = 450 bytes
|
2016-02-19 05:58:00 +00:00
|
|
|
(Plus 2 bytes in zero page.)
|
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
Whoa! I thought you said this was micro!?
|
|
|
|
|
2016-02-21 02:51:00 +00:00
|
|
|
Believe me it is. Here are some of the optimization tricks used:
|
|
|
|
|
|
|
|
1) Using BIT to skip instructions in common entry point
|
|
|
|
|
|
|
|
EntryPointA SEC
|
|
|
|
db BIT_ZP ; skip over next instruction
|
|
|
|
EntryPointB
|
|
|
|
CLC
|
|
|
|
...common set up code...
|
|
|
|
BCC _CodeForA
|
|
|
|
_CodeForB
|
|
|
|
_CodeForA
|
|
|
|
_CodeForAll
|
|
|
|
|
|
|
|
2) Self-modifying code for dynamic width
|
|
|
|
|
|
|
|
EntryPointA LDA n1
|
|
|
|
db BIT_ABS ; skip next instruction
|
|
|
|
EntryPointB LDA n2 ; intentional fall into common code
|
|
|
|
|
|
|
|
_SetWidth STA _DynamicWidth+1
|
|
|
|
LDX #0
|
|
|
|
...code...
|
|
|
|
_DynamicWidth
|
|
|
|
CPX #n
|
|
|
|
|
|
|
|
3) No CMPs to preserve the Carry flag for common entry points
|
|
|
|
|
|
|
|
4) Jump table is 3 bytes/entry, using 65C02: JUMP (FUNCS+1,X)
|
|
|
|
|
|
|
|
char, word_ptr_to_func
|
|
|
|
|
|
|
|
5) A negative buffer offset so that a register will reach zero
|
|
|
|
and we can test for end of processing without using a CMP
|
|
|
|
which would trash the carry:
|
|
|
|
|
|
|
|
LDY #$FD ; $00-$FD=-3 bcd[0] bcd[1] bcd[2] bcd[3]
|
|
|
|
@DoubleDabble: ; Y=FD Y=FE Y=FF Y=00
|
|
|
|
LDA _bcd-$FD,Y
|
|
|
|
ADC _bcd-$FD,Y
|
|
|
|
STA _bcd-$FD,Y
|
|
|
|
INY
|
|
|
|
BNE @DoubleDabble
|
|
|
|
; When Y=0, we'll be at _bcd[3]
|
|
|
|
|
|
|
|
With all 15 features turned OFF the core routines use $60 = 96 bytes.
|
2016-02-19 05:58:00 +00:00
|
|
|
|
2016-02-20 21:08:00 +00:00
|
|
|
With the common setting (default) features:
|
2016-02-19 21:07:00 +00:00
|
|
|
BinAsc, Dec2, Dec3, Dec5, Hex2, Hex4, and StrA
|
2016-02-21 07:21:00 +00:00
|
|
|
the size is $12A = 298 bytes
|
2016-02-18 20:34:00 +00:00
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
To toggle features on / off change USE_* to 0 or 1:
|
2016-02-19 05:58:00 +00:00
|
|
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
; NOTE: The Size *also* includes the core routines
|
|
|
|
; so the actual implementation size for each feature
|
|
|
|
; is actually smaller the size leads you to believe.
|
2016-02-19 21:07:00 +00:00
|
|
|
; Also, "common functionality" is also included in the count..
|
|
|
|
|
|
|
|
; core _PrintDec routine.
|
2016-02-19 05:58:00 +00:00
|
|
|
;
|
2016-02-20 16:01:00 +00:00
|
|
|
; Feature Size Bytes Total Notes
|
2016-02-21 02:51:00 +00:00
|
|
|
USE_BIN_ASC = 1 ; $7C 124 \. $82 (130 bytes)
|
|
|
|
USE_BIN_INV = 1 ; $7C 124 /
|
|
|
|
USE_DEC_2 = 1 ; $D3 211 \
|
|
|
|
USE_DEC_3 = 1 ; $D3 213 \.$FE (254 bytes)
|
2016-02-21 07:21:00 +00:00
|
|
|
USE_DEC_5 = 1 ; $D5 213 /
|
2016-02-21 02:51:00 +00:00
|
|
|
USE_DEC_BYTE = 1 ; $EB 235 / sets ENABLE_DEC
|
2016-02-20 22:13:00 +00:00
|
|
|
USE_HEX_2 = 1 ; $99 153 \. $9E (158 bytes)
|
|
|
|
USE_HEX_4 = 1 ; $99 153 /
|
2016-02-21 02:51:00 +00:00
|
|
|
USE_OCT_3 = 1 ; $92 146 \. $98 (152 bytes)
|
|
|
|
USE_OCT_6 = 1 ; $92 146 /
|
|
|
|
USE_PTR_2 = 1 ; $A8 168 \. $AD (173 bytes) sets ENABLE_HEX
|
|
|
|
USE_PTR_4 = 1 ; $A8 168 /
|
2016-02-20 22:13:00 +00:00
|
|
|
USE_STR_A = 1 ; $78 120 \
|
2016-02-21 02:51:00 +00:00
|
|
|
USE_STR_C = 1 ; $78 120 > $A6 (166 bytes)
|
|
|
|
USE_STR_PASCAL = 1 ; $7A 122 /
|
2016-02-19 05:58:00 +00:00
|
|
|
|
|
|
|
/*
|
2016-02-18 21:45:00 +00:00
|
|
|
|
2016-02-21 07:21:00 +00:00
|
|
|
Demo (All features) + Library text dump:
|
2016-02-18 21:45:00 +00:00
|
|
|
|
2016-02-20 21:08:00 +00:00
|
|
|
4000:20 58 FC A9 20 85 E6 A9
|
|
|
|
4008:D5 8D 00 20 A9 AA 8D 01
|
2016-02-20 22:13:00 +00:00
|
|
|
4010:20 AD D5 41 A2 00 A0 00
|
|
|
|
4018:20 11 F4 18 A5 26 6D D3
|
|
|
|
4020:41 85 26 AA A4 27 8E D7
|
|
|
|
4028:41 8C D8 41 8E D9 41 8C
|
|
|
|
4030:DA 41 AD 00 20 A0 00 91
|
|
|
|
4038:26 8D DB 41 9C DC 41 8D
|
|
|
|
4040:F7 41 8D FB 41 20 A0 41
|
|
|
|
4048:8D DD 41 9C DE 41 A0 00
|
|
|
|
4050:20 B0 41 A2 D1 A0 41 20
|
|
|
|
4058:0F 43 A0 01 20 B0 41 A2
|
|
|
|
4060:F5 A0 41 20 0F 43 A0 02
|
|
|
|
4068:20 B0 41 A2 F9 A0 41 20
|
|
|
|
4070:0F 43 A0 03 20 B0 41 A2
|
|
|
|
4078:24 A0 42 20 0F 43 A0 04
|
|
|
|
4080:20 B0 41 A2 28 A0 42 20
|
|
|
|
4088:0F 43 A0 05 20 B0 41 A2
|
|
|
|
4090:2C A0 42 20 0F 43 A0 06
|
|
|
|
4098:20 B0 41 A2 30 A0 42 20
|
|
|
|
40A0:0F 43 A0 07 20 B0 41 A2
|
|
|
|
40A8:60 A0 42 20 0F 43 A0 08
|
|
|
|
40B0:20 B0 41 A2 64 A0 42 20
|
|
|
|
40B8:0F 43 A0 09 20 B0 41 A2
|
|
|
|
40C0:68 A0 42 20 0F 43 A0 0A
|
|
|
|
40C8:20 B0 41 A2 6E A0 42 20
|
|
|
|
40D0:0F 43 A0 0B 20 B0 41 A2
|
|
|
|
40D8:84 A0 42 20 0F 43 A0 0C
|
|
|
|
40E0:20 B0 41 A2 88 A0 42 20
|
|
|
|
40E8:0F 43 A0 0D 20 B0 41 A2
|
|
|
|
40F0:D8 A0 42 20 0F 43 A0 0E
|
|
|
|
40F8:20 B0 41 A2 D2 A0 42 20
|
|
|
|
4100:0F 43 A0 0F 20 B0 41 A2
|
|
|
|
4108:DC A0 42 20 0F 43 A9 11
|
|
|
|
4110:20 5B FB A2 E0 A0 42 20
|
|
|
|
4118:8F 41 AD 0E 43 85 FF 20
|
|
|
|
4120:DA FD AD 0D 43 85 FE 20
|
|
|
|
4128:DA FD 20 AB 41 20 4D 41
|
|
|
|
4130:A2 F2 A0 42 20 8F 41 AE
|
2016-02-21 02:51:00 +00:00
|
|
|
4138:85 43 86 FE 64 FF 8A 20
|
2016-02-20 22:13:00 +00:00
|
|
|
4140:DA FD 20 AB 41 20 4D 41
|
2016-02-21 02:51:00 +00:00
|
|
|
4148:A9 8D 4C ED FD 9C A1 44
|
|
|
|
4150:9C A2 44 9C A3 44 A2 10
|
2016-02-20 21:08:00 +00:00
|
|
|
4158:F8 06 FE 26 FF A0 FD B9
|
2016-02-21 02:51:00 +00:00
|
|
|
4160:A4 43 79 A4 43 99 A4 43
|
2016-02-20 21:08:00 +00:00
|
|
|
4168:C8 D0 F4 CA D0 EB D8 A2
|
2016-02-21 02:51:00 +00:00
|
|
|
4170:05 88 B9 A4 43 4A 4A 4A
|
2016-02-20 21:08:00 +00:00
|
|
|
4178:4A 18 69 B0 20 ED FD CA
|
2016-02-21 02:51:00 +00:00
|
|
|
4180:B9 A4 43 29 0F 18 69 B0
|
2016-02-20 22:13:00 +00:00
|
|
|
4188:20 ED FD CA 10 E3 60 86
|
|
|
|
4190:FC 84 FD A0 00 B1 FC F0
|
|
|
|
4198:06 20 ED FD C8 D0 F6 60
|
|
|
|
41A0:A2 08 85 FE 06 FE 6A CA
|
|
|
|
41A8:D0 FA 60 A9 A0 4C ED FD
|
|
|
|
41B0:98 20 C1 FB A6 28 A4 29
|
2016-02-21 02:51:00 +00:00
|
|
|
41B8:8E 9B 44 8C 9C 44 60 D8
|
2016-02-20 22:13:00 +00:00
|
|
|
41C0:BD 23 A0 D9 BD 64 A0 A4
|
|
|
|
41C8:BD 78 BA 40 A0 25 FE 3F
|
|
|
|
41D0:00 BF 41 27 00 BF 00 DE
|
|
|
|
41D8:C0 DE C0 1A DA 1A DA C2
|
|
|
|
41E0:E9 EE A0 C1 D3 C3 BA A0
|
|
|
|
41E8:25 00 C2 E9 EE A0 C9 CE
|
|
|
|
41F0:D6 BA A0 3F 00 DF 41 1A
|
|
|
|
41F8:DA EA 41 1A DA C4 E5 E3
|
|
|
|
4200:B2 BA A0 23 00 C4 E5 E3
|
|
|
|
4208:B3 BA A0 64 00 C4 E5 E3
|
|
|
|
4210:B5 BA A0 75 00 C2 F9 F4
|
|
|
|
4218:E5 BD 62 A0 62 A0 62 A0
|
|
|
|
4220:62 A0 62 00 FD 41 63 00
|
|
|
|
4228:05 42 E7 03 0D 42 69 FF
|
|
|
|
4230:15 42 80 00 FF 00 00 00
|
|
|
|
4238:01 00 7F 00 C8 E5 F8 B2
|
|
|
|
4240:BA A0 24 00 C8 E5 F8 B4
|
|
|
|
4248:BA A0 78 00 D0 F4 F2 B2
|
|
|
|
4250:BA A0 78 BA 40 00 D0 F4
|
|
|
|
4258:F2 B4 BA A0 78 BA 26 00
|
|
|
|
4260:3C 42 34 12 44 42 34 12
|
|
|
|
4268:4C 42 00 20 00 20 56 42
|
|
|
|
4270:00 20 00 20 CF E3 F4 B3
|
|
|
|
4278:BA A0 6F 00 CF E3 F4 B6
|
|
|
|
4280:BA A0 4F 00 74 42 B6 01
|
|
|
|
4288:7C 42 DF 32 C8 C5 CC CC
|
|
|
|
4290:CF 00 D7 CF D2 CC C4 00
|
|
|
|
4298:C8 CF CD 45 0D D0 E1 F3
|
|
|
|
42A0:E3 E1 EC A0 CC E5 EE A0
|
|
|
|
42A8:B1 B3 C3 A0 A0 A0 A0 A0
|
|
|
|
42B0:BA A0 A7 73 A7 AC A7 73
|
|
|
|
42B8:A7 00 C1 F0 F0 EC E5 A0
|
|
|
|
42C0:BA A0 A7 61 A7 00 D0 E1
|
|
|
|
42C8:F3 E3 E1 EC BA A0 A7 70
|
|
|
|
42D0:A7 00 AA 42 8C 42 92 42
|
|
|
|
42D8:BA 42 98 42 C6 42 9C 42
|
|
|
|
42E0:F0 F2 E9 EE F4 ED A8 A9
|
|
|
|
42E8:AE F3 E9 FA E5 A0 BD A0
|
|
|
|
42F0:A4 00 A0 E2 F9 F4 E5 F3
|
|
|
|
42F8:8D A0 A0 A0 A0 AE E6 E5
|
|
|
|
4300:E1 F4 F5 F2 E5 F3 A0 BD
|
2016-02-21 02:51:00 +00:00
|
|
|
4308:A0 A4 A0 A0 00 C7 01 8E
|
|
|
|
4310:2A 43 8C 2B 43 9C 28 43
|
|
|
|
4318:20 23 43 8E 7E 43 8C 7F
|
|
|
|
4320:43 80 5A 20 27 43 AA A0
|
|
|
|
4328:00 B9 DE C0 EE 28 43 D0
|
|
|
|
4330:03 EE 2B 43 A8 86 FE 84
|
|
|
|
4338:FF 60 38 A9 18 20 23 43
|
|
|
|
4340:90 03 20 75 44 8A 20 75
|
|
|
|
4348:44 80 2A 38 A9 18 20 23
|
|
|
|
4350:43 A0 00 B1 FE 90 EF AA
|
|
|
|
4358:C8 B1 FE 80 E5 20 23 43
|
|
|
|
4360:A0 00 B1 FE 10 0A 20 9A
|
|
|
|
4368:44 C8 D0 F6 E6 FF 80 F2
|
|
|
|
4370:09 80 20 9A 44 EE 7E 43
|
|
|
|
4378:D0 03 EE 7F 43 AD DE C0
|
|
|
|
4380:F0 B7 30 EE A2 2D CA CA
|
|
|
|
4388:CA 30 EA DD A9 44 D0 F6
|
|
|
|
4390:7C AA 44 A9 02 2C A9 01
|
|
|
|
4398:2C A9 00 8D CC 43 20 23
|
|
|
|
43A0:43 8E A7 44 8C A8 44 9C
|
|
|
|
43A8:A1 44 9C A2 44 9C A3 44
|
|
|
|
43B0:A2 10 F8 0E A7 44 2E A8
|
|
|
|
43B8:44 A0 FD B9 A4 43 79 A4
|
|
|
|
43C0:43 99 A4 43 C8 D0 F4 CA
|
|
|
|
43C8:D0 E9 D8 A0 03 F0 0A B9
|
|
|
|
43D0:A1 44 20 82 44 20 9A 44
|
|
|
|
43D8:88 B9 A1 44 20 75 44 88
|
|
|
|
43E0:10 F7 80 91 A9 31 2C A9
|
|
|
|
43E8:B1 8D F9 43 20 23 43 A0
|
|
|
|
43F0:08 8A 0A AA A9 B0 90 02
|
|
|
|
43F8:A9 B1 20 9A 44 88 D0 F1
|
|
|
|
4400:4C 75 43 20 23 43 8A 10
|
|
|
|
4408:0A A9 AD 20 9A 44 8A 49
|
|
|
|
4410:FF AA E8 A0 00 A9 01 8D
|
|
|
|
4418:CC 43 4C A1 43 A9 06 2C
|
|
|
|
4420:A9 03 8D 3F 44 20 23 43
|
|
|
|
4428:A2 00 A5 FE 29 07 18 69
|
|
|
|
4430:B0 9D A1 44 A0 03 46 FF
|
|
|
|
4438:66 FE 88 D0 F9 E8 E0 06
|
|
|
|
4440:D0 E8 CA 30 BB BD A1 44
|
|
|
|
4448:20 9A 44 80 F5 20 23 43
|
|
|
|
4450:A0 00 B1 FE F0 AA 20 9A
|
|
|
|
4458:44 C8 D0 F6 E6 FF 80 F2
|
|
|
|
4460:20 23 43 A0 00 B1 FE F0
|
|
|
|
4468:97 AA C8 B1 FE 20 9A 44
|
|
|
|
4470:CA D0 F7 F0 8B 20 82 44
|
|
|
|
4478:A5 FE 20 9A 44 A5 FF 4C
|
|
|
|
4480:9A 44 48 4A 4A 4A 4A 20
|
|
|
|
4488:8D 44 85 FE 68 29 0F C9
|
|
|
|
4490:0A 90 02 69 06 69 B0 85
|
|
|
|
4498:FF 60 8D DE C0 EE 9B 44
|
|
|
|
44A0:60 00 00 00 00 00 00 00
|
|
|
|
44A8:00 3F E4 43 25 E7 43 62
|
|
|
|
44B0:03 44 75 93 43 64 96 43
|
|
|
|
44B8:23 99 43 78 3A 43 24 3C
|
|
|
|
44C0:43 26 4B 43 40 4D 43 4F
|
|
|
|
44C8:1D 44 6F 20 44 70 60 44
|
|
|
|
44D0:73 4D 44 61 5D 43
|
2016-02-18 20:34:00 +00:00
|
|
|
|
|
|
|
*/
|
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
|
2016-02-17 20:35:00 +00:00
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
; Assemble-time diagnostic information
|
|
|
|
.macro DEBUG text
|
2016-02-20 16:10:00 +00:00
|
|
|
.if 0
|
2016-02-19 21:07:00 +00:00
|
|
|
.out text
|
|
|
|
.endif
|
|
|
|
.endmacro
|
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
; This will take a printf-style string and compact it. The '%' is the escape
|
|
|
|
; character to output the next byte in ASCII (high bit clear) and print a var.
|
|
|
|
; Otherwise the remaining chars will default to literals having their high bit
|
|
|
|
; set. To output a literal '%' you will need to manually add it
|
|
|
|
; as the %% outputs confusingly enough is a single ASCII '%' which is print binary
|
|
|
|
.macro PRINTM text, endbyte ; text2, text3, text4, text5, text6
|
2016-02-19 01:32:00 +00:00
|
|
|
.local h
|
|
|
|
h .set $80
|
|
|
|
|
|
|
|
.repeat .strlen(text), I
|
|
|
|
.if (.strat(text , I) = '%')
|
|
|
|
; handle special case of last char was %
|
|
|
|
.if( h = $00 )
|
2016-02-19 05:58:00 +00:00
|
|
|
.byte .strat(text, I) ; ASCII % = PrintBin
|
2016-02-19 01:32:00 +00:00
|
|
|
h .set $80
|
|
|
|
.else
|
|
|
|
h .set $00
|
|
|
|
.endif
|
|
|
|
.else
|
|
|
|
.byte .strat(text, I) | h
|
|
|
|
h .set $80
|
|
|
|
.endif
|
|
|
|
.endrep
|
2016-02-19 05:58:00 +00:00
|
|
|
|
|
|
|
.ifnblank endbyte
|
|
|
|
.byte endbyte
|
|
|
|
.endif
|
2016-02-19 01:32:00 +00:00
|
|
|
.endmacro
|
|
|
|
|
2016-02-17 20:35:00 +00:00
|
|
|
; Force APPLE 'text' to have high bit on
|
|
|
|
; Will display as NORMAL characters
|
|
|
|
.macro APPLE text
|
|
|
|
.repeat .strlen(text), I
|
|
|
|
.byte .strat(text, I) | $80
|
|
|
|
.endrep
|
|
|
|
.endmacro
|
|
|
|
|
2016-02-18 20:19:00 +00:00
|
|
|
; Force APPLE 'text' with high bit on but last character has high bit off
|
|
|
|
; Will display as NORMAL characters (last character will appear FLASHING)
|
|
|
|
; Merlin: Macro Assembler -- Dextral Character Inverted
|
|
|
|
.macro DCI text
|
|
|
|
.repeat .strlen(text)-1, I
|
|
|
|
.byte .strat(text, I) | $80
|
|
|
|
.endrep
|
|
|
|
.byte .strat(text, .strlen(text)-1) & $7F
|
|
|
|
.endmacro
|
|
|
|
|
2016-02-17 20:35:00 +00:00
|
|
|
; Force ASCII 'text' to be control chars: $00..$1F
|
|
|
|
; Will display as INVERSE characters
|
|
|
|
.macro CTRL text
|
|
|
|
.repeat .strlen(text), I
|
|
|
|
.byte .strat(text, I) & $1F
|
|
|
|
.endrep
|
|
|
|
.endmacro
|
|
|
|
|
|
|
|
; Force ASCII 'text' to be control chars: $00..$3F
|
|
|
|
; Will display as INVERSE characters
|
|
|
|
.macro INV text
|
|
|
|
.repeat .strlen(text), I
|
|
|
|
.byte .strat(text, I) & $3F
|
|
|
|
.endrep
|
|
|
|
.endmacro
|
|
|
|
|
2016-02-18 20:19:00 +00:00
|
|
|
.macro PASCAL text
|
|
|
|
.byte .strlen(text)
|
|
|
|
APPLE text
|
|
|
|
.endmacro
|
|
|
|
|
2016-02-17 20:35:00 +00:00
|
|
|
.macro db val
|
|
|
|
.byte val
|
|
|
|
.endmacro
|
|
|
|
|
|
|
|
.macro dw val
|
|
|
|
.word val
|
|
|
|
.endmacro
|
|
|
|
|
|
|
|
.macro ds bytes
|
|
|
|
.res bytes
|
|
|
|
.endmacro
|
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
; Include necessary components based on features requested
|
|
|
|
ENABLE_BIN = USE_BIN_ASC || USE_BIN_INV
|
|
|
|
ENABLE_DEC = USE_DEC_2 || USE_DEC_3 || USE_DEC_5 || USE_DEC_BYTE
|
|
|
|
ENABLE_HEX = USE_HEX_2 || USE_HEX_4 || USE_PTR_2 || USE_PTR_4
|
|
|
|
ENABLE_OCT = USE_OCT_3 || USE_OCT_6
|
|
|
|
ENABLE_PTR = USE_PTR_2 || USE_PTR_4
|
|
|
|
ENABLE_STR = USE_STR_A || USE_STR_C || USE_STR_PASCAL
|
|
|
|
|
|
|
|
NumMeta = 0 + \
|
|
|
|
USE_BIN_ASC + \
|
|
|
|
USE_BIN_INV + \
|
|
|
|
USE_DEC_2 + \
|
|
|
|
USE_DEC_3 + \
|
|
|
|
USE_DEC_5 + \
|
|
|
|
USE_DEC_BYTE + \
|
|
|
|
USE_HEX_2 + \
|
|
|
|
USE_HEX_4 + \
|
|
|
|
USE_OCT_3 + \
|
|
|
|
USE_OCT_6 + \
|
|
|
|
USE_PTR_2 + \
|
|
|
|
USE_PTR_4 + \
|
|
|
|
USE_STR_A + \
|
|
|
|
USE_STR_C + \
|
|
|
|
USE_STR_PASCAL
|
|
|
|
DEBUG .sprintf( "Features enabled: %d", NumMeta )
|
|
|
|
|
|
|
|
|
|
|
|
; Only used by demo
|
|
|
|
BASL = $28 ; TXT pointer to cursor
|
|
|
|
BASH = $29
|
|
|
|
GBASL = $26 ; HGR pointer to cursor
|
2016-02-19 05:58:00 +00:00
|
|
|
GBASH = $27
|
2016-02-20 17:17:00 +00:00
|
|
|
HGRPAGE = $E6 ; used by HPOSN
|
2016-02-19 21:07:00 +00:00
|
|
|
HPOSN = $F411 ; A=row, X=col.lo,Y=col.hi, sets GBASL, GBASH
|
|
|
|
BASCALC = $FBC1 ; A=row, sets BASL, BASH
|
2016-02-18 20:19:00 +00:00
|
|
|
HOME = $FC58
|
|
|
|
TABV = $FB5B
|
2016-02-19 05:58:00 +00:00
|
|
|
COUT = $FDED
|
2016-02-19 21:07:00 +00:00
|
|
|
PRBYTE = $FDDA ; print A in hex
|
|
|
|
demoptr = $FC
|
|
|
|
demotmp = $FE
|
2016-02-18 20:19:00 +00:00
|
|
|
|
|
|
|
__MAIN = $4000
|
2016-02-18 15:48:00 +00:00
|
|
|
; DOS3.3 meta -- remove these 2 if running under ProDOS
|
|
|
|
.word __MAIN ; 2 byte BLOAD address
|
|
|
|
.word __END - __MAIN ; 2 byte BLOAD size
|
2016-02-17 20:35:00 +00:00
|
|
|
|
2016-02-18 20:19:00 +00:00
|
|
|
/*
|
|
|
|
|
|
|
|
Output:
|
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
X=39 Y=191 $=3FF7:D5 11010101~10101011
|
|
|
|
Bin ASC: 11010101
|
|
|
|
Bin INV: 11010101
|
2016-02-19 05:58:00 +00:00
|
|
|
Dec2: 99
|
|
|
|
Dec3: 999
|
|
|
|
Dec5: 65385
|
2016-02-18 20:19:00 +00:00
|
|
|
Byte=-128 -001 000 001 127
|
2016-02-19 21:07:00 +00:00
|
|
|
Hex2: 34
|
|
|
|
Hex4: 1234
|
|
|
|
Ptr2: 2000:D5
|
|
|
|
Ptr4: 2000:AAD5
|
|
|
|
Oct3: 666
|
|
|
|
Oct6: 031337
|
2016-02-19 05:58:00 +00:00
|
|
|
Apple : 'HOME'
|
2016-02-19 21:07:00 +00:00
|
|
|
C : 'HELLO','WORLD'
|
2016-02-19 05:58:00 +00:00
|
|
|
Pascal: 'Pascal Len 13'
|
2016-02-18 20:19:00 +00:00
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
printm().size = $0209 000521 bytes
|
|
|
|
.features = $ 0F 000015
|
2016-02-18 20:19:00 +00:00
|
|
|
*/
|
|
|
|
|
2016-02-19 19:57:00 +00:00
|
|
|
.org __MAIN ; .org must come after header else offsets are wrong
|
2016-02-19 05:58:00 +00:00
|
|
|
|
2016-02-18 20:19:00 +00:00
|
|
|
; Demo printm
|
2016-02-17 23:02:00 +00:00
|
|
|
JSR HOME
|
|
|
|
|
2016-02-20 17:17:00 +00:00
|
|
|
LDA #$20
|
|
|
|
STA HGRPAGE
|
|
|
|
|
2016-02-17 23:02:00 +00:00
|
|
|
LDA #$D5
|
2016-02-19 05:58:00 +00:00
|
|
|
STA $2000
|
|
|
|
LDA #$AA
|
|
|
|
STA $2001
|
|
|
|
|
2016-02-19 19:57:00 +00:00
|
|
|
LDA ARGS_DEMO+4 ;HGR Y row
|
|
|
|
LDX #$00 ; HGR x.col_lo = 0
|
|
|
|
LDY #$00 ; x.col_hi = 0
|
2016-02-19 05:58:00 +00:00
|
|
|
JSR HPOSN
|
|
|
|
CLC
|
|
|
|
LDA GBASL
|
2016-02-19 19:57:00 +00:00
|
|
|
ADC ARGS_DEMO+2 ; HGR x col
|
2016-02-19 05:58:00 +00:00
|
|
|
STA GBASL
|
|
|
|
TAX
|
|
|
|
LDY GBASH
|
2016-02-18 20:19:00 +00:00
|
|
|
|
2016-02-19 19:57:00 +00:00
|
|
|
STX ARGS_DEMO+6 ; aArg[3]
|
|
|
|
STY ARGS_DEMO+7
|
|
|
|
STX ARGS_DEMO+8 ; aArg[4]
|
|
|
|
STY ARGS_DEMO+9
|
2016-02-18 20:19:00 +00:00
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
LDA $2000
|
|
|
|
LDY #0
|
|
|
|
STA (GBASL),Y
|
2016-02-19 19:57:00 +00:00
|
|
|
STA ARGS_DEMO+10 ; aArg[5]
|
|
|
|
STZ ARGS_DEMO+11
|
2016-02-19 21:07:00 +00:00
|
|
|
|
2016-02-19 19:57:00 +00:00
|
|
|
STA ARGS_BIN_ASC+2
|
2016-02-19 21:07:00 +00:00
|
|
|
STA ARGS_BIN_INV+2
|
2016-02-18 20:19:00 +00:00
|
|
|
|
2016-02-17 23:02:00 +00:00
|
|
|
JSR ReverseByte
|
2016-02-19 19:57:00 +00:00
|
|
|
STA ARGS_DEMO+12 ; aArg[6]
|
|
|
|
STZ ARGS_DEMO+13
|
2016-02-17 23:02:00 +00:00
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
.if ENABLE_BIN && ENABLE_DEC && ENABLE_HEX
|
2016-02-18 20:19:00 +00:00
|
|
|
LDY #0
|
|
|
|
JSR VTABY
|
2016-02-19 19:57:00 +00:00
|
|
|
LDX #<ARGS_DEMO ; Low Byte of Address
|
|
|
|
LDY #>ARGS_DEMO ; High Byte of Address
|
2016-02-17 23:02:00 +00:00
|
|
|
JSR PrintM
|
2016-02-18 20:48:00 +00:00
|
|
|
.endif
|
2016-02-18 17:56:00 +00:00
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
.if ENABLE_BIN
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG "+BIN"
|
2016-02-19 05:58:00 +00:00
|
|
|
.if USE_BIN_ASC
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG "____:ASC"
|
2016-02-19 05:58:00 +00:00
|
|
|
LDY #1
|
|
|
|
JSR VTABY
|
|
|
|
LDX #<ARGS_BIN_ASC
|
|
|
|
LDY #>ARGS_BIN_ASC
|
|
|
|
JSR PrintM
|
|
|
|
.endif
|
|
|
|
.if USE_BIN_INV
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG "____:INV"
|
2016-02-18 20:19:00 +00:00
|
|
|
LDY #2
|
|
|
|
JSR VTABY
|
2016-02-19 05:58:00 +00:00
|
|
|
LDX #<ARGS_BIN_INV
|
|
|
|
LDY #>ARGS_BIN_INV
|
2016-02-18 17:56:00 +00:00
|
|
|
JSR PrintM
|
2016-02-19 05:58:00 +00:00
|
|
|
.endif
|
|
|
|
.endif
|
2016-02-18 17:56:00 +00:00
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
.if ENABLE_DEC
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG "+DEC"
|
2016-02-19 05:58:00 +00:00
|
|
|
.if USE_DEC_2
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG "____:Dec2"
|
2016-02-19 05:58:00 +00:00
|
|
|
LDY #3
|
|
|
|
JSR VTABY
|
|
|
|
LDX #<ARGS_DEC_2
|
|
|
|
LDY #>ARGS_DEC_2
|
|
|
|
JSR PrintM
|
|
|
|
.endif
|
|
|
|
.if USE_DEC_3
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG "____:Dec3"
|
2016-02-18 20:19:00 +00:00
|
|
|
LDY #4
|
|
|
|
JSR VTABY
|
2016-02-19 05:58:00 +00:00
|
|
|
LDX #<ARGS_DEC_3
|
|
|
|
LDY #>ARGS_DEC_3
|
2016-02-18 20:19:00 +00:00
|
|
|
JSR PrintM
|
2016-02-19 05:58:00 +00:00
|
|
|
.endif
|
|
|
|
.if USE_DEC_5
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG "____:Dec5"
|
2016-02-19 05:58:00 +00:00
|
|
|
LDY #5
|
|
|
|
JSR VTABY
|
|
|
|
LDX #<ARGS_DEC_5
|
|
|
|
LDY #>ARGS_DEC_5
|
|
|
|
JSR PrintM
|
|
|
|
.endif
|
|
|
|
.if USE_DEC_BYTE
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG "____:DecB"
|
2016-02-18 20:19:00 +00:00
|
|
|
LDY #6
|
|
|
|
JSR VTABY
|
2016-02-19 05:58:00 +00:00
|
|
|
LDX #<ARGS_DEC_BYTE
|
|
|
|
LDY #>ARGS_DEC_BYTE
|
2016-02-18 20:19:00 +00:00
|
|
|
JSR PrintM
|
2016-02-19 05:58:00 +00:00
|
|
|
.endif ; USE_DEC_BYTE
|
|
|
|
.endif
|
|
|
|
|
|
|
|
.if ENABLE_HEX
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG "+HEX"
|
2016-02-19 05:58:00 +00:00
|
|
|
.if USE_HEX_2
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG "____:Hex2"
|
2016-02-19 05:58:00 +00:00
|
|
|
LDY #7
|
|
|
|
JSR VTABY
|
|
|
|
LDX #<ARGS_HEX_2
|
|
|
|
LDY #>ARGS_HEX_2
|
|
|
|
JSR PrintM
|
|
|
|
.endif
|
|
|
|
.if USE_HEX_4
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG "____:Hex4"
|
2016-02-19 05:58:00 +00:00
|
|
|
LDY #8
|
|
|
|
JSR VTABY
|
|
|
|
LDX #<ARGS_HEX_4
|
|
|
|
LDY #>ARGS_HEX_4
|
|
|
|
JSR PrintM
|
|
|
|
.endif
|
|
|
|
.if USE_PTR_2
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG "____:Ptr2"
|
2016-02-19 05:58:00 +00:00
|
|
|
LDY #9
|
|
|
|
JSR VTABY
|
|
|
|
LDX #<ARGS_PTR_2
|
|
|
|
LDY #>ARGS_PTR_2
|
|
|
|
JSR PrintM
|
|
|
|
.endif
|
|
|
|
.if USE_PTR_4
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG "____:Ptr4"
|
2016-02-19 05:58:00 +00:00
|
|
|
LDY #10
|
|
|
|
JSR VTABY
|
|
|
|
LDX #<ARGS_PTR_4
|
|
|
|
LDY #>ARGS_PTR_4
|
|
|
|
JSR PrintM
|
|
|
|
.endif
|
|
|
|
.endif
|
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
.if ENABLE_OCT
|
|
|
|
DEBUG "+OCT"
|
|
|
|
.if USE_OCT_3
|
|
|
|
DEBUG "____:Oct3"
|
2016-02-19 05:58:00 +00:00
|
|
|
LDY #11
|
|
|
|
JSR VTABY
|
2016-02-19 21:07:00 +00:00
|
|
|
LDX #<ARGS_OCT_3
|
|
|
|
LDY #>ARGS_OCT_3
|
2016-02-19 05:58:00 +00:00
|
|
|
JSR PrintM
|
|
|
|
.endif
|
2016-02-19 21:07:00 +00:00
|
|
|
.if USE_OCT_6
|
|
|
|
DEBUG "____:Oct6"
|
|
|
|
LDY #12
|
|
|
|
JSR VTABY
|
|
|
|
LDX #<ARGS_OCT_6
|
|
|
|
LDY #>ARGS_OCT_6
|
|
|
|
JSR PrintM
|
|
|
|
.endif
|
|
|
|
.endif
|
|
|
|
|
|
|
|
.if ENABLE_STR
|
|
|
|
DEBUG "+STR"
|
2016-02-19 05:58:00 +00:00
|
|
|
|
|
|
|
.if USE_STR_A
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG "____:StrA"
|
|
|
|
LDY #13
|
2016-02-19 05:58:00 +00:00
|
|
|
JSR VTABY
|
|
|
|
LDX #<ARGS_STR_A
|
|
|
|
LDY #>ARGS_STR_A
|
|
|
|
JSR PrintM
|
|
|
|
.endif
|
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
.if USE_STR_C
|
|
|
|
DEBUG "____:StrC"
|
|
|
|
LDY #14
|
|
|
|
JSR VTABY
|
|
|
|
LDX #<ARGS_STR_C
|
|
|
|
LDY #>ARGS_STR_C
|
|
|
|
JSR PrintM
|
|
|
|
.endif
|
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
.if USE_STR_PASCAL
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG "____:StrP"
|
|
|
|
LDY #15
|
2016-02-19 05:58:00 +00:00
|
|
|
JSR VTABY
|
|
|
|
LDX #<ARGS_STR_PASCAL
|
|
|
|
LDY #>ARGS_STR_PASCAL
|
|
|
|
JSR PrintM
|
|
|
|
.endif
|
2016-02-18 20:48:00 +00:00
|
|
|
.endif ; ENABLE_STR
|
2016-02-18 20:19:00 +00:00
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
LDA #17
|
2016-02-19 05:58:00 +00:00
|
|
|
JSR TABV
|
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
; "old-skool" text/hex printing: use ROM funcs
|
|
|
|
LDX #<PRINTM_TEXT
|
|
|
|
LDY #>PRINTM_TEXT
|
|
|
|
JSR PrintStringZ
|
2016-02-19 05:58:00 +00:00
|
|
|
|
|
|
|
LDA PRINTM_SIZE+1
|
2016-02-19 21:07:00 +00:00
|
|
|
STA demotmp+1
|
2016-02-19 19:57:00 +00:00
|
|
|
JSR PRBYTE
|
2016-02-19 05:58:00 +00:00
|
|
|
LDA PRINTM_SIZE+0
|
2016-02-19 21:07:00 +00:00
|
|
|
STA demotmp+0
|
|
|
|
JSR PRBYTE
|
|
|
|
|
|
|
|
JSR PrintSpc
|
|
|
|
JSR PrintDec
|
|
|
|
|
|
|
|
LDX #<PRINTM_CMDS
|
|
|
|
LDY #>PRINTM_CMDS
|
|
|
|
JSR PrintStringZ
|
|
|
|
|
|
|
|
LDX GetNumFeatures+1
|
|
|
|
STX demotmp+0
|
|
|
|
STZ demotmp+1
|
|
|
|
TXA
|
2016-02-19 05:58:00 +00:00
|
|
|
JSR PRBYTE
|
2016-02-19 21:07:00 +00:00
|
|
|
|
|
|
|
JSR PrintSpc
|
|
|
|
JSR PrintDec
|
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
LDA #$8D
|
|
|
|
JMP COUT
|
2016-02-17 23:02:00 +00:00
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
; ======================================================================
|
|
|
|
|
|
|
|
; ds 256 - <*
|
|
|
|
|
|
|
|
; Print demotmp in Decimal
|
2016-02-20 16:02:00 +00:00
|
|
|
; NOTE: Can't use printm PrintDec5 as it may not be enabled/available
|
2016-02-19 21:07:00 +00:00
|
|
|
PrintDec
|
2016-02-20 16:02:00 +00:00
|
|
|
STZ _bcd+0
|
|
|
|
STZ _bcd+1
|
|
|
|
STZ _bcd+2
|
2016-02-19 21:07:00 +00:00
|
|
|
|
|
|
|
LDX #16 ; 16 bits
|
|
|
|
SED ; Double Dabble
|
2016-02-20 16:02:00 +00:00
|
|
|
@Dec2BCD:
|
2016-02-19 21:07:00 +00:00
|
|
|
ASL demotmp+0
|
|
|
|
ROL demotmp+1
|
|
|
|
|
2016-02-20 16:02:00 +00:00
|
|
|
LDY #$FD
|
|
|
|
@DoubleDabble:
|
|
|
|
LDA _bcd-$FD,Y
|
|
|
|
ADC _bcd-$FD,Y
|
|
|
|
STA _bcd-$FD,Y
|
2016-02-19 21:07:00 +00:00
|
|
|
INY
|
2016-02-20 16:02:00 +00:00
|
|
|
BNE @DoubleDabble
|
2016-02-19 21:07:00 +00:00
|
|
|
|
|
|
|
DEX
|
2016-02-20 16:02:00 +00:00
|
|
|
BNE @Dec2BCD
|
2016-02-19 21:07:00 +00:00
|
|
|
CLD
|
|
|
|
|
2016-02-20 16:02:00 +00:00
|
|
|
LDX #5 ; was Y
|
2016-02-20 17:05:00 +00:00
|
|
|
@BCD2Char: ; NOTE: Digits are reversed!
|
2016-02-20 21:08:00 +00:00
|
|
|
DEY ; $FF - $FD = 2
|
2016-02-20 16:02:00 +00:00
|
|
|
LDA _bcd-$FD,Y ; __c??? _b_?XX a_YYXX
|
2016-02-19 21:07:00 +00:00
|
|
|
LSR
|
|
|
|
LSR
|
|
|
|
LSR
|
|
|
|
LSR
|
|
|
|
CLC
|
|
|
|
ADC #'0'+$80
|
2016-02-20 21:08:00 +00:00
|
|
|
JSR COUT ; __c??X _b_YXX aZYYXX
|
2016-02-20 16:02:00 +00:00
|
|
|
DEX
|
|
|
|
LDA _bcd-$FD,Y ; __c??X _b_YXX aZYYXX
|
2016-02-19 21:07:00 +00:00
|
|
|
AND #$F
|
|
|
|
CLC
|
|
|
|
ADC #'0'+$80
|
2016-02-20 21:08:00 +00:00
|
|
|
JSR COUT ; __c?XX _bYYXX ZZYYXX
|
2016-02-19 21:07:00 +00:00
|
|
|
DEX
|
2016-02-20 17:05:00 +00:00
|
|
|
BPL @BCD2Char
|
2016-02-19 21:07:00 +00:00
|
|
|
RTS
|
|
|
|
|
2016-02-20 16:02:00 +00:00
|
|
|
; NOTE: Can't use printm PrintStr*() as it may not be enabled/available
|
2016-02-19 21:07:00 +00:00
|
|
|
PrintStringZ
|
|
|
|
STX demoptr+0
|
|
|
|
STY demoptr+1
|
|
|
|
LDY #0
|
|
|
|
@_Text
|
|
|
|
LDA (demoptr),Y
|
|
|
|
BEQ @_Done
|
|
|
|
JSR COUT
|
|
|
|
INY
|
|
|
|
BNE @_Text
|
|
|
|
@_Done
|
|
|
|
RTS
|
|
|
|
|
2016-02-17 23:02:00 +00:00
|
|
|
ReverseByte
|
|
|
|
LDX #8
|
2016-02-19 21:07:00 +00:00
|
|
|
STA demotmp ; temp working byte
|
2016-02-17 23:02:00 +00:00
|
|
|
ReverseBit
|
2016-02-19 21:07:00 +00:00
|
|
|
ASL demotmp ; temp working byte
|
2016-02-17 23:02:00 +00:00
|
|
|
ROR
|
|
|
|
DEX
|
|
|
|
BNE ReverseBit
|
|
|
|
RTS
|
2016-02-17 20:35:00 +00:00
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
PrintSpc
|
|
|
|
LDA #' '+$80
|
|
|
|
JMP COUT
|
2016-02-18 20:19:00 +00:00
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
VTABY TYA
|
|
|
|
JSR BASCALC
|
|
|
|
LDX BASL
|
|
|
|
LDY BASH
|
|
|
|
STX PutChar+1
|
|
|
|
STY PutChar+2
|
|
|
|
RTS
|
2016-02-18 20:19:00 +00:00
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
; ______________________________________________________________________
|
|
|
|
|
2016-02-19 19:57:00 +00:00
|
|
|
TEXT_DEMO
|
2016-02-18 17:56:00 +00:00
|
|
|
;byte "X=## Y=ddd $=xxxx:@@ %%%%%%%%~????????"
|
2016-02-19 05:58:00 +00:00
|
|
|
PRINTM "X=%# Y=%d $=%x:%@ %%~%?", 0
|
2016-02-17 20:35:00 +00:00
|
|
|
|
2016-02-19 19:57:00 +00:00
|
|
|
ARGS_DEMO
|
|
|
|
dw TEXT_DEMO; aArg[ 0] text
|
2016-02-17 23:02:00 +00:00
|
|
|
dw 39 ; aArg[ 1] x
|
|
|
|
dw 191 ; aArg[ 2] y
|
2016-02-18 20:19:00 +00:00
|
|
|
dw $C0DE ; aArg[ 3] addr ScreenAddr
|
|
|
|
dw $C0DE ; aArg[ 4] byte ScreenAddr pointer
|
|
|
|
dw $DA1A ; aArg[ 5] bits ScreenByte
|
|
|
|
dw $DA1A ; aArg[ 6] bits ScreenByte reversed
|
2016-02-17 20:35:00 +00:00
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
; ______________________________________________________________________
|
2016-02-18 17:56:00 +00:00
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
TEXT_BIN_ASC PRINTM "Bin ASC: %%", 0
|
|
|
|
TEXT_BIN_INV PRINTM "Bin INV: %?", 0
|
2016-02-18 17:56:00 +00:00
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
ARGS_BIN_ASC
|
|
|
|
dw TEXT_BIN_ASC
|
2016-02-19 19:57:00 +00:00
|
|
|
dw $DA1A
|
2016-02-19 05:58:00 +00:00
|
|
|
|
|
|
|
ARGS_BIN_INV
|
|
|
|
dw TEXT_BIN_INV
|
2016-02-19 19:57:00 +00:00
|
|
|
dw $DA1A
|
2016-02-19 05:58:00 +00:00
|
|
|
|
|
|
|
; ______________________________________________________________________
|
|
|
|
|
|
|
|
TEXT_DEC_2 PRINTM "Dec2: %#", 0
|
|
|
|
TEXT_DEC_3 PRINTM "Dec3: %d", 0
|
|
|
|
TEXT_DEC_5 PRINTM "Dec5: %u", 0
|
|
|
|
TEXT_DEC_BYTE PRINTM "Byte=%b %b %b %b %b", 0
|
2016-02-20 22:05:00 +00:00
|
|
|
;TEXT_DEC_BYTE PRINTM "%b",0
|
2016-02-19 05:58:00 +00:00
|
|
|
|
|
|
|
ARGS_DEC_2
|
|
|
|
dw TEXT_DEC_2
|
|
|
|
dw 99 ;
|
2016-02-18 20:19:00 +00:00
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
ARGS_DEC_3
|
|
|
|
dw TEXT_DEC_3
|
|
|
|
dw 999 ;
|
|
|
|
|
|
|
|
ARGS_DEC_5
|
|
|
|
dw TEXT_DEC_5
|
|
|
|
dw $FF69 ; $FF69 = 65385
|
|
|
|
|
|
|
|
ARGS_DEC_BYTE
|
|
|
|
dw TEXT_DEC_BYTE
|
2016-02-18 17:56:00 +00:00
|
|
|
dw $80 ; -128
|
2016-02-19 19:57:00 +00:00
|
|
|
dw $FF ; -001
|
|
|
|
dw $00 ; 000
|
|
|
|
dw $01 ; +001
|
2016-02-18 17:56:00 +00:00
|
|
|
dw $7F ; +127
|
2016-02-18 20:19:00 +00:00
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
; ______________________________________________________________________
|
2016-02-18 20:19:00 +00:00
|
|
|
|
2016-02-19 19:57:00 +00:00
|
|
|
TEXT_HEX_2 PRINTM "Hex2: %$", 0
|
|
|
|
TEXT_HEX_4 PRINTM "Hex4: %x", 0
|
|
|
|
TEXT_PTR_2 PRINTM "Ptr2: %x:%@", 0
|
|
|
|
TEXT_PTR_4 PRINTM "Ptr4: %x:%&", 0
|
2016-02-19 05:58:00 +00:00
|
|
|
|
|
|
|
ARGS_HEX_2
|
|
|
|
dw TEXT_HEX_2
|
|
|
|
dw $1234
|
|
|
|
|
|
|
|
ARGS_HEX_4
|
|
|
|
dw TEXT_HEX_4
|
|
|
|
dw $1234
|
|
|
|
|
|
|
|
ARGS_PTR_2
|
|
|
|
dw TEXT_PTR_2
|
|
|
|
dw $2000
|
|
|
|
dw $2000
|
|
|
|
|
|
|
|
ARGS_PTR_4
|
|
|
|
dw TEXT_PTR_4
|
|
|
|
dw $2000
|
|
|
|
dw $2000
|
|
|
|
|
|
|
|
; ______________________________________________________________________
|
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
TEXT_OCT_3 PRINTM "Oct3: %o", 0
|
|
|
|
TEXT_OCT_6 PRINTM "Oct6: %O", 0
|
|
|
|
|
|
|
|
ARGS_OCT_3
|
|
|
|
dw TEXT_OCT_3
|
|
|
|
dw 438
|
|
|
|
|
|
|
|
ARGS_OCT_6
|
|
|
|
dw TEXT_OCT_6
|
|
|
|
dw 13023
|
|
|
|
|
|
|
|
; ______________________________________________________________________
|
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
TEXT_HELLO
|
|
|
|
APPLE "HELLO"
|
|
|
|
db 0
|
|
|
|
|
|
|
|
TEXT_WORLD
|
|
|
|
APPLE "WORLD"
|
|
|
|
db 0
|
2016-02-18 17:56:00 +00:00
|
|
|
|
2016-02-18 20:19:00 +00:00
|
|
|
TEXT_DCI
|
|
|
|
DCI "HOME"
|
2016-02-17 20:35:00 +00:00
|
|
|
|
2016-02-18 20:19:00 +00:00
|
|
|
TEXT_PASCAL
|
2016-02-19 05:58:00 +00:00
|
|
|
PASCAL "Pascal Len 13"
|
|
|
|
|
|
|
|
|
|
|
|
TEXT_STR_C
|
|
|
|
PRINTM "C : '%s','%s'", 0
|
|
|
|
TEXT_STR_A
|
|
|
|
PRINTM "Apple : '%a'", 0
|
|
|
|
TEXT_STR_PASCAL
|
|
|
|
PRINTM "Pascal: '%p'", 0
|
2016-02-18 17:56:00 +00:00
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
ARGS_STR_C
|
|
|
|
dw TEXT_STR_C
|
|
|
|
dw TEXT_HELLO
|
|
|
|
dw TEXT_WORLD
|
2016-02-18 20:19:00 +00:00
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
|
|
|
|
ARGS_STR_A
|
|
|
|
dw TEXT_STR_A
|
2016-02-18 20:19:00 +00:00
|
|
|
dw TEXT_DCI
|
2016-02-19 05:58:00 +00:00
|
|
|
|
|
|
|
ARGS_STR_PASCAL
|
|
|
|
dw TEXT_STR_PASCAL
|
2016-02-18 20:19:00 +00:00
|
|
|
dw TEXT_PASCAL
|
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
; ______________________________________________________________________
|
|
|
|
|
2016-02-19 19:57:00 +00:00
|
|
|
PRINTM_TEXT APPLE "printm().size = $"
|
2016-02-19 05:58:00 +00:00
|
|
|
db 0
|
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
PRINTM_CMDS APPLE " bytes"
|
|
|
|
db $8D
|
|
|
|
APPLE " .features = $ "
|
|
|
|
db 0
|
|
|
|
|
|
|
|
__LIB_SIZE = __END - __PRINTM
|
|
|
|
|
|
|
|
PRINTM_SIZE
|
|
|
|
dw __LIB_SIZE
|
2016-02-19 05:58:00 +00:00
|
|
|
|
2016-02-18 20:19:00 +00:00
|
|
|
; Pad until end of page so PrintM starts on new page
|
2016-02-19 21:07:00 +00:00
|
|
|
; ds (256 - <*) & 7
|
|
|
|
; ds (256 - <*) & 15
|
|
|
|
; ds (256 - <*)
|
2016-02-18 15:48:00 +00:00
|
|
|
|
2016-02-17 20:35:00 +00:00
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
; ----------------------------------------------------------------------
|
|
|
|
; ----------------------------------------------------------------------
|
|
|
|
;
|
|
|
|
; printm() library code starts here
|
|
|
|
;
|
|
|
|
; ----------------------------------------------------------------------
|
|
|
|
; ----------------------------------------------------------------------
|
|
|
|
__PRINTM
|
|
|
|
|
|
|
|
; pointer for PrintPtr2, PrintPtr4, PrintStrA, PrintStrC, PrintStrP
|
|
|
|
_temp = $FE
|
2016-02-17 20:35:00 +00:00
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
; self-modifying variable aliases
|
2016-02-17 20:35:00 +00:00
|
|
|
_pScreen = PutChar +1
|
|
|
|
_pFormat = GetFormat +1
|
2016-02-21 02:51:00 +00:00
|
|
|
_pArg = NxtArgByte+1
|
2016-02-18 20:34:00 +00:00
|
|
|
.if ENABLE_DEC
|
2016-02-18 00:47:00 +00:00
|
|
|
_nDecWidth = DecWidth +1
|
2016-02-19 21:07:00 +00:00
|
|
|
.endif
|
|
|
|
.if ENABLE_OCT
|
|
|
|
_nOctWidth = OctWidth +1
|
|
|
|
.endif
|
2016-02-19 05:58:00 +00:00
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
; Entry Point
|
2016-02-18 21:45:00 +00:00
|
|
|
; ======================================================================
|
2016-02-17 20:35:00 +00:00
|
|
|
; printm( format, args, ... )
|
2016-02-18 00:47:00 +00:00
|
|
|
; ======================================================================
|
2016-02-17 20:35:00 +00:00
|
|
|
PrintM
|
|
|
|
STX _pArg+0
|
|
|
|
STY _pArg+1
|
2016-02-21 02:51:00 +00:00
|
|
|
FirstArg
|
2016-02-18 17:56:00 +00:00
|
|
|
JSR NxtArgYX
|
2016-02-17 20:35:00 +00:00
|
|
|
STX _pFormat+0 ; lo
|
|
|
|
STY _pFormat+1 ; hi
|
|
|
|
BRA GetFormat ; always
|
2016-02-17 23:02:00 +00:00
|
|
|
|
2016-02-21 02:51:00 +00:00
|
|
|
; ======================================================================
|
|
|
|
; @return next arg as 16-bit arg value in Y,X
|
|
|
|
NxtArgToTemp
|
|
|
|
NxtArgYX
|
|
|
|
JSR NxtArgByte
|
|
|
|
TAX
|
|
|
|
|
|
|
|
; @return _Arg[ _Num ]
|
|
|
|
NxtArgByte
|
|
|
|
LDA $C0DE ; _pArg NOTE: self-modifying!
|
|
|
|
INC _pArg ;
|
|
|
|
BNE @_SamePage
|
|
|
|
INC _pArg+1 ;
|
|
|
|
@_SamePage
|
|
|
|
TAY
|
|
|
|
|
|
|
|
; Callers of NxtToArgYX don't use _temp
|
|
|
|
_NxtArgToTemp
|
|
|
|
STX _temp+0 ; zero-page for (ZP),Y
|
|
|
|
STY _temp+1
|
|
|
|
|
|
|
|
;XYtoVal
|
|
|
|
; STX _val+0 ; may be tempting to move this to NxtArgYX
|
|
|
|
; STY _val+1 ;
|
|
|
|
_Done
|
|
|
|
RTS
|
|
|
|
|
2016-02-18 20:34:00 +00:00
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
; $ Hex 2 Byte
|
|
|
|
; x Hex 4 Byte
|
2016-02-18 00:47:00 +00:00
|
|
|
; ======================================================================
|
2016-02-19 21:07:00 +00:00
|
|
|
.if ENABLE_HEX
|
2016-02-20 09:06:00 +00:00
|
|
|
|
|
|
|
.if USE_HEX_4
|
|
|
|
DEBUG .sprintf( "PrintHex4() @ %X", * )
|
|
|
|
PrintHex4:
|
2016-02-20 22:05:00 +00:00
|
|
|
SEC
|
2016-02-20 21:08:00 +00:00
|
|
|
.if USE_HEX_2
|
2016-02-20 22:05:00 +00:00
|
|
|
db $A9 ; LDA #imm skip next 1-byte instruction
|
2016-02-20 21:08:00 +00:00
|
|
|
.endif
|
2016-02-20 09:06:00 +00:00
|
|
|
.endif
|
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
.if USE_HEX_2
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG .sprintf( "PrintHex2() @ %X", * )
|
2016-02-19 05:58:00 +00:00
|
|
|
PrintHex2:
|
2016-02-20 22:05:00 +00:00
|
|
|
CLC
|
2016-02-19 05:58:00 +00:00
|
|
|
.endif
|
2016-02-18 15:48:00 +00:00
|
|
|
|
2016-02-20 22:05:00 +00:00
|
|
|
; Print 16-bit Y,X in hex
|
2016-02-19 05:58:00 +00:00
|
|
|
_PrintHex:
|
2016-02-20 22:05:00 +00:00
|
|
|
JSR NxtArgYX ; A=Y= high byte
|
|
|
|
BCC _PrintHexX
|
|
|
|
|
|
|
|
PrintHexAX:
|
|
|
|
;TYA - optimization from NxtArgYX above
|
|
|
|
JSR PrintHexByte
|
|
|
|
_PrintHexX:
|
|
|
|
TXA
|
|
|
|
PrintHexA:
|
|
|
|
JSR PrintHexByte
|
|
|
|
BRA NextFormat
|
2016-02-19 05:58:00 +00:00
|
|
|
|
2016-02-20 22:05:00 +00:00
|
|
|
.if 0
|
2016-02-19 05:58:00 +00:00
|
|
|
; Print 16-bit Y,X in hex
|
|
|
|
; Uses _nHexWidth to limit output width
|
|
|
|
PrintHexYX:
|
|
|
|
STX _val+0 ; may be tempting to move this to NxtArgYX
|
|
|
|
STY _val+1 ; as XYtoVal but others call us
|
|
|
|
|
|
|
|
LDX #0
|
|
|
|
_HexDigit:
|
|
|
|
LDA _val+0
|
|
|
|
AND #$F
|
|
|
|
CMP #$A ; n < 10 ?
|
2016-02-19 21:07:00 +00:00
|
|
|
BCC @Hex2Asc
|
2016-02-19 05:58:00 +00:00
|
|
|
ADC #6 ; n += 6 $A -> +6 + (C=1) = $11
|
2016-02-19 21:07:00 +00:00
|
|
|
@Hex2Asc:
|
2016-02-19 05:58:00 +00:00
|
|
|
ADC #'0' + $80 ; inverse=remove #$80
|
|
|
|
STA _bcd, X ; NOTE: Digits are reversed!
|
2016-02-20 09:06:00 +00:00
|
|
|
|
|
|
|
LDY #4
|
2016-02-19 21:07:00 +00:00
|
|
|
@HexShr:
|
|
|
|
LSR _val+1 ; 16-bit SHR nibble
|
|
|
|
ROR _val+0
|
|
|
|
DEY
|
|
|
|
BNE @HexShr
|
2016-02-19 05:58:00 +00:00
|
|
|
|
|
|
|
INX
|
|
|
|
HexWidth:
|
|
|
|
CPX #4 ; _nHexWidth NOTE: self-modifying!
|
|
|
|
BNE _HexDigit
|
2016-02-20 22:05:00 +00:00
|
|
|
.endif ; OLD_PRINT_HEX
|
2016-02-19 05:58:00 +00:00
|
|
|
.endif
|
2016-02-18 00:47:00 +00:00
|
|
|
|
2016-02-17 23:02:00 +00:00
|
|
|
; @ Ptr 2 Byte
|
|
|
|
; & Ptr 4 Byte
|
2016-02-18 00:47:00 +00:00
|
|
|
; ======================================================================
|
2016-02-19 21:07:00 +00:00
|
|
|
.if ENABLE_PTR
|
2016-02-20 09:06:00 +00:00
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
.if USE_PTR_4
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG .sprintf( "PrintPtr4() @ %X", * )
|
2016-02-19 05:58:00 +00:00
|
|
|
PrintPtr4:
|
2016-02-20 22:05:00 +00:00
|
|
|
SEC
|
2016-02-20 21:08:00 +00:00
|
|
|
.if USE_PTR_2
|
2016-02-20 22:05:00 +00:00
|
|
|
db $A9 ; LDA #imm skip next 1-byte instruction
|
2016-02-20 21:08:00 +00:00
|
|
|
.endif
|
2016-02-19 05:58:00 +00:00
|
|
|
.endif
|
2016-02-18 00:47:00 +00:00
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
.if USE_PTR_2
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG .sprintf( "PrintPtr2() @ %X", * )
|
2016-02-19 05:58:00 +00:00
|
|
|
PrintPtr2:
|
2016-02-20 22:05:00 +00:00
|
|
|
CLC
|
2016-02-19 05:58:00 +00:00
|
|
|
.endif
|
|
|
|
|
|
|
|
_PrintPtr:
|
|
|
|
JSR NxtArgToTemp
|
|
|
|
|
|
|
|
LDY #$0
|
|
|
|
LDA (_temp),Y
|
2016-02-20 22:05:00 +00:00
|
|
|
BCC PrintHexA
|
2016-02-19 05:58:00 +00:00
|
|
|
TAX
|
|
|
|
INY
|
|
|
|
LDA (_temp),Y
|
2016-02-20 22:05:00 +00:00
|
|
|
BRA PrintHexAX ; needs XYtoVal setup
|
2016-02-19 21:07:00 +00:00
|
|
|
.endif ; ENABLE_PTR
|
2016-02-18 20:34:00 +00:00
|
|
|
|
2016-02-17 23:02:00 +00:00
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
; a String (APPLE text, last byte ASCII)
|
|
|
|
; See: DCI
|
2016-02-18 00:47:00 +00:00
|
|
|
; ======================================================================
|
2016-02-19 21:07:00 +00:00
|
|
|
.if ENABLE_STR
|
2016-02-19 05:58:00 +00:00
|
|
|
.if USE_STR_A
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG .sprintf( "PrintStrA() @ %X", * )
|
2016-02-19 05:58:00 +00:00
|
|
|
PrintStrA:
|
|
|
|
JSR NxtArgToTemp
|
|
|
|
|
|
|
|
LDY #$0
|
|
|
|
_PrintStrA:
|
|
|
|
LDA (_temp),Y
|
|
|
|
BPL @_LastChar
|
|
|
|
JSR PutChar
|
|
|
|
INY
|
|
|
|
BNE _PrintStrA
|
|
|
|
INC _temp+1
|
|
|
|
BRA _PrintStrA
|
|
|
|
@_LastChar: ; intentional fall into Print
|
|
|
|
.endif ; USE_STR_A
|
|
|
|
.endif ; ENABLE_STR
|
|
|
|
|
|
|
|
; ======================================================================
|
2016-02-19 21:07:00 +00:00
|
|
|
; Main Read/Eval/Print/Loop of printm()
|
|
|
|
; ======================================================================
|
|
|
|
; Note: The dummy address $C0DE is to force the assembler
|
|
|
|
; to generate a 16-bit address instead of optimizing a ZP operand
|
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
ForceAPPLE
|
2016-02-19 19:57:00 +00:00
|
|
|
ORA #$80
|
2016-02-19 21:07:00 +00:00
|
|
|
Print ; print literal chars
|
2016-02-17 20:35:00 +00:00
|
|
|
JSR PutChar
|
2016-02-19 01:32:00 +00:00
|
|
|
NextFormat ; Adjust pointer to next char in format
|
2016-02-17 23:42:00 +00:00
|
|
|
INC _pFormat+0
|
|
|
|
BNE GetFormat
|
|
|
|
INC _pFormat+1
|
2016-02-17 20:35:00 +00:00
|
|
|
GetFormat
|
|
|
|
LDA $C0DE ; _pFormat NOTE: self-modifying!
|
2016-02-19 01:32:00 +00:00
|
|
|
BEQ _Done ; zero-terminated
|
2016-02-17 20:35:00 +00:00
|
|
|
BMI Print ; neg = literal
|
2016-02-19 05:58:00 +00:00
|
|
|
|
2016-02-19 19:57:00 +00:00
|
|
|
; NOTE: If all features are turned off LDX #-1 ca65 throws Range Error
|
|
|
|
; NumMeta = _MetaCharEnd - MetaChar
|
|
|
|
; LDX #NumMeta-1 ; pos = meta
|
|
|
|
; We can't use this equation since it is not const due to the assembler
|
|
|
|
; not having defined _MetaCharEnd yet
|
|
|
|
; Instead we count the number of features enabled
|
2016-02-19 21:07:00 +00:00
|
|
|
GetNumFeatures
|
2016-02-19 05:58:00 +00:00
|
|
|
.if (NumMeta > 0)
|
2016-02-21 02:51:00 +00:00
|
|
|
LDX #NumMeta*3 ; pos = meta
|
2016-02-19 05:58:00 +00:00
|
|
|
.else
|
|
|
|
.out "INFO: No meta commands, defaulting to text"
|
|
|
|
BRA ForceAPPLE
|
|
|
|
.endif
|
|
|
|
|
2016-02-17 20:35:00 +00:00
|
|
|
FindMeta
|
2016-02-21 02:51:00 +00:00
|
|
|
DEX
|
|
|
|
DEX
|
2016-02-17 20:35:00 +00:00
|
|
|
DEX
|
2016-02-20 07:47:00 +00:00
|
|
|
BMI NextFormat
|
2016-02-21 02:51:00 +00:00
|
|
|
CMP MetaTable,X
|
2016-02-20 07:47:00 +00:00
|
|
|
BNE FindMeta
|
2016-02-17 20:35:00 +00:00
|
|
|
CallMeta
|
2016-02-21 02:51:00 +00:00
|
|
|
JMP (MetaTable+1,X)
|
2016-02-17 20:35:00 +00:00
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
; ______________________________________________________________________
|
2016-02-17 20:35:00 +00:00
|
|
|
|
2016-02-17 23:42:00 +00:00
|
|
|
; # Dec 1 Byte (max 2 digits)
|
|
|
|
; d Dec 2 Byte (max 3 digits)
|
|
|
|
; u Dec 2 Byte (max 5 digits)
|
2016-02-18 00:47:00 +00:00
|
|
|
; ======================================================================
|
2016-02-19 21:07:00 +00:00
|
|
|
.if ENABLE_DEC
|
2016-02-20 22:05:00 +00:00
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
.if USE_DEC_5
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG .sprintf( "PrintDec5() @ %X", * )
|
2016-02-19 05:58:00 +00:00
|
|
|
PrintDec5:
|
2016-02-20 22:05:00 +00:00
|
|
|
LDA #5/2 ; offset into _bcd buffer
|
2016-02-20 21:08:00 +00:00
|
|
|
.if USE_DEC_2 || USE_DEC_3
|
|
|
|
db $2C ; BIT $abs skip next instruction
|
|
|
|
.endif
|
2016-02-19 05:58:00 +00:00
|
|
|
.endif
|
2016-02-17 23:02:00 +00:00
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
.if USE_DEC_3
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG .sprintf( "PrintDec3() @ %X", * )
|
2016-02-19 05:58:00 +00:00
|
|
|
PrintDec3:
|
2016-02-20 22:05:00 +00:00
|
|
|
LDA #3/2 ; offset into bcd buffer
|
2016-02-20 21:08:00 +00:00
|
|
|
.if USE_DEC_2
|
2016-02-20 17:12:00 +00:00
|
|
|
db $2C ; BIT $abs skip next instruction
|
2016-02-20 21:08:00 +00:00
|
|
|
.endif
|
2016-02-19 05:58:00 +00:00
|
|
|
.endif
|
2016-02-17 23:02:00 +00:00
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
.if USE_DEC_2
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG .sprintf( "PrintDec2() @ %X", * )
|
2016-02-19 05:58:00 +00:00
|
|
|
PrintDec2:
|
2016-02-20 22:05:00 +00:00
|
|
|
LDA #0 ; special: print 2 digits
|
2016-02-19 05:58:00 +00:00
|
|
|
.endif
|
2016-02-17 23:17:00 +00:00
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
; no .if USE_DEC_BYTE here because ENABLE_DEC already covers that
|
2016-02-19 05:58:00 +00:00
|
|
|
_PrintDec:
|
|
|
|
STA _nDecWidth
|
|
|
|
JSR NxtArgYX
|
|
|
|
|
|
|
|
PrintDecYX:
|
|
|
|
STZ _bcd+0
|
|
|
|
STZ _bcd+1
|
|
|
|
STZ _bcd+2
|
|
|
|
|
|
|
|
Dec2BCD:
|
2016-02-19 21:07:00 +00:00
|
|
|
LDX #16 ; 16 bits
|
|
|
|
SED ; "Double Dabble"
|
2016-02-20 16:10:00 +00:00
|
|
|
@Dec2BCD: ; https://en.wikipedia.org/wiki/Double_dabble
|
2016-02-21 03:26:00 +00:00
|
|
|
ASL _temp+0
|
|
|
|
ROL _temp+1
|
2016-02-19 05:58:00 +00:00
|
|
|
|
2016-02-21 02:51:00 +00:00
|
|
|
LDY #$FD ; $00-$FD=-3 bcd[0] bcd[1] bcd[2] bcd[3]
|
|
|
|
@DoubleDabble: ; Y=FD Y=FE Y=FF Y=00
|
2016-02-20 09:06:00 +00:00
|
|
|
LDA _bcd-$FD,Y
|
|
|
|
ADC _bcd-$FD,Y
|
|
|
|
STA _bcd-$FD,Y
|
2016-02-20 08:05:00 +00:00
|
|
|
INY
|
|
|
|
BNE @DoubleDabble
|
2016-02-19 05:58:00 +00:00
|
|
|
|
|
|
|
DEX
|
2016-02-20 16:10:00 +00:00
|
|
|
BNE @Dec2BCD
|
2016-02-19 05:58:00 +00:00
|
|
|
CLD
|
|
|
|
|
2016-02-20 17:05:00 +00:00
|
|
|
DecWidth:
|
2016-02-21 07:21:00 +00:00
|
|
|
LDY #3 ; default to 6 digits
|
2016-02-21 02:51:00 +00:00
|
|
|
BEQ @EvenBCD ; special case 0 -> only 2 digits
|
|
|
|
; otherwise have odd digits,
|
|
|
|
; Print low nibble, skip high nibble
|
|
|
|
@OddBCD: ; Y = num digits/2 to print
|
2016-02-20 22:05:00 +00:00
|
|
|
LDA _bcd,Y ; __c??? _b_?XX a_YYXX
|
|
|
|
JSR HexA
|
|
|
|
JSR PutChar
|
|
|
|
DEY
|
|
|
|
@EvenBCD:
|
|
|
|
LDA _bcd,Y ; __c??? _b_?XX a_YYXX
|
|
|
|
JSR PrintHexByte
|
|
|
|
DEY
|
|
|
|
BPL @EvenBCD
|
|
|
|
BRA NextFormat ; always
|
|
|
|
|
2016-02-18 20:34:00 +00:00
|
|
|
.endif ; ENABLE_DEC
|
2016-02-17 23:02:00 +00:00
|
|
|
|
2016-02-20 22:05:00 +00:00
|
|
|
|
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
; ______________________________________________________________________
|
2016-02-17 23:02:00 +00:00
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
; % Bin 1 Byte normal ones, normal zeroes
|
|
|
|
; ? Bin 1 Byte inverse ones, normal zeroes
|
2016-02-18 00:47:00 +00:00
|
|
|
; ======================================================================
|
2016-02-19 21:07:00 +00:00
|
|
|
.if ENABLE_BIN
|
2016-02-19 05:58:00 +00:00
|
|
|
.if USE_BIN_INV
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG .sprintf( "PrintBinI() @ %X", * )
|
2016-02-19 05:58:00 +00:00
|
|
|
PrintBinInv:
|
2016-02-20 07:55:00 +00:00
|
|
|
LDA #$31
|
2016-02-20 21:08:00 +00:00
|
|
|
.if USE_BIN_ASC
|
2016-02-20 17:12:00 +00:00
|
|
|
;BNE _PrintBin
|
|
|
|
db $2C ; BIT $abs skip next instruction
|
2016-02-20 21:08:00 +00:00
|
|
|
.endif
|
2016-02-19 05:58:00 +00:00
|
|
|
.endif ; USE_BIN_INV
|
|
|
|
|
|
|
|
.if USE_BIN_ASC
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG .sprintf( "PrintBinA() @ %X", * )
|
2016-02-19 05:58:00 +00:00
|
|
|
PrintBinAsc:
|
2016-02-20 07:55:00 +00:00
|
|
|
LDA #$B1
|
2016-02-19 05:58:00 +00:00
|
|
|
.endif ; USE_BIN_ASC
|
|
|
|
|
|
|
|
_PrintBin:
|
|
|
|
STA _PrintBit+1
|
2016-02-21 03:26:00 +00:00
|
|
|
JSR NxtArgYX ; X = low byte, Y=A = high byte
|
2016-02-19 05:58:00 +00:00
|
|
|
|
|
|
|
LDY #8 ; print 8 bits
|
|
|
|
_Bit2Asc:
|
|
|
|
TXA
|
2016-02-20 07:55:00 +00:00
|
|
|
ASL ; C= A>=$80
|
2016-02-19 05:58:00 +00:00
|
|
|
TAX
|
2016-02-20 07:55:00 +00:00
|
|
|
LDA #$B0
|
|
|
|
BCC _FlipBit
|
2016-02-19 05:58:00 +00:00
|
|
|
_PrintBit:
|
2016-02-20 07:55:00 +00:00
|
|
|
LDA #$B1 ; 1 -> 31 NOTE: self-modifying!
|
2016-02-19 05:58:00 +00:00
|
|
|
_FlipBit:
|
|
|
|
JSR PutChar
|
|
|
|
DEY
|
|
|
|
BNE _Bit2Asc
|
2016-02-18 20:34:00 +00:00
|
|
|
.endif ; ENABLE_BIN
|
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
; Left as exercise for the reader to optimize the jump size :-)
|
2016-02-17 23:42:00 +00:00
|
|
|
_JumpNextFormat
|
|
|
|
; BRA NextFormat ; always
|
|
|
|
JMP NextFormat ; JMP :-(
|
2016-02-17 23:54:00 +00:00
|
|
|
|
2016-02-18 20:19:00 +00:00
|
|
|
; b Print a signed byte in decimal
|
2016-02-18 17:56:00 +00:00
|
|
|
; ======================================================================
|
2016-02-18 20:34:00 +00:00
|
|
|
.if ENABLE_DEC
|
2016-02-19 05:58:00 +00:00
|
|
|
.if USE_DEC_BYTE
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG .sprintf( "PrintDecB() @ %X", * )
|
2016-02-19 05:58:00 +00:00
|
|
|
PrintByte:
|
2016-02-21 03:26:00 +00:00
|
|
|
JSR NxtArgYX ; X = low byte, Y=A high byte
|
2016-02-19 05:58:00 +00:00
|
|
|
TXA
|
|
|
|
BPL PrintBytePos
|
|
|
|
LDA #'-' + $80 ; X >= $80 --> $80 (-128) .. $FF (-1)
|
|
|
|
JSR PutChar
|
|
|
|
TXA
|
|
|
|
EOR #$FF ; 2's complement
|
|
|
|
TAX
|
2016-02-20 08:06:00 +00:00
|
|
|
INX
|
|
|
|
PrintBytePos:
|
2016-02-21 03:26:00 +00:00
|
|
|
STX _temp+0 ; needs XYtoTemp setup
|
|
|
|
STZ _temp+1 ; 00XX
|
2016-02-20 22:05:00 +00:00
|
|
|
LDA #3/2 ; 3 digits max
|
2016-02-19 05:58:00 +00:00
|
|
|
STA _nDecWidth
|
2016-02-21 03:26:00 +00:00
|
|
|
JMP PrintDecYX
|
2016-02-19 05:58:00 +00:00
|
|
|
.endif ; USE_DEC_BYTE
|
2016-02-18 20:34:00 +00:00
|
|
|
.endif ; ENABLE_DEC
|
2016-02-18 20:19:00 +00:00
|
|
|
|
2016-02-19 05:58:00 +00:00
|
|
|
; ______________________________________________________________________
|
2016-02-18 17:56:00 +00:00
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
; o Print byte in octal (max 3 digits)
|
|
|
|
; O Print word in octal (max 6 digits)
|
|
|
|
; ======================================================================
|
|
|
|
.if ENABLE_OCT
|
|
|
|
.if USE_OCT_6
|
|
|
|
DEBUG .sprintf( "PrintOct6() @ %X", * )
|
|
|
|
PrintOct6:
|
|
|
|
LDA #6
|
2016-02-20 21:08:00 +00:00
|
|
|
.if USE_OCT_3
|
2016-02-20 17:12:00 +00:00
|
|
|
db $2C ; BIT $abs skip next instruction
|
2016-02-20 21:08:00 +00:00
|
|
|
.endif
|
2016-02-19 21:07:00 +00:00
|
|
|
.endif
|
|
|
|
.if USE_OCT_3
|
|
|
|
DEBUG .sprintf( "PrintOct3() @ %X", * )
|
|
|
|
PrintOct3:
|
|
|
|
LDA #3
|
|
|
|
.endif
|
|
|
|
_PrintOct:
|
|
|
|
STA _nOctWidth
|
|
|
|
JSR NxtArgYX ; X = low byte
|
2016-02-18 20:19:00 +00:00
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
LDX #0
|
2016-02-20 22:13:00 +00:00
|
|
|
_Oct2Asc:
|
2016-02-19 21:07:00 +00:00
|
|
|
LDA _temp
|
|
|
|
AND #7
|
|
|
|
CLC
|
|
|
|
ADC #'0'+$80
|
|
|
|
STA _bcd,x ; NOTE: Digits are reversed!
|
|
|
|
|
2016-02-20 16:01:00 +00:00
|
|
|
LDY #3
|
2016-02-20 08:06:00 +00:00
|
|
|
@OctShr:
|
2016-02-19 21:07:00 +00:00
|
|
|
LSR _temp+1
|
|
|
|
ROR _temp+0
|
2016-02-20 08:06:00 +00:00
|
|
|
DEY
|
|
|
|
BNE @OctShr
|
2016-02-19 21:07:00 +00:00
|
|
|
|
|
|
|
INX
|
|
|
|
OctWidth:
|
2016-02-20 22:13:00 +00:00
|
|
|
CPX #6 ; _nOctDigits NOTE: self-modifying!
|
|
|
|
BNE _Oct2Asc ; Intentional fall into reverse BCD
|
2016-02-20 22:05:00 +00:00
|
|
|
|
|
|
|
; On Entry: X number of chars to print in buffer _bcd
|
|
|
|
; ======================================================================
|
|
|
|
PrintReverseBCD
|
|
|
|
DEX
|
|
|
|
BMI _JumpNextFormat
|
|
|
|
LDA _bcd, X
|
|
|
|
JSR PutChar
|
|
|
|
BRA PrintReverseBCD
|
|
|
|
.endif
|
2016-02-19 21:07:00 +00:00
|
|
|
|
|
|
|
; ______________________________________________________________________
|
2016-02-18 20:19:00 +00:00
|
|
|
|
|
|
|
; s String (C,ASCIIZ)
|
|
|
|
; ======================================================================
|
2016-02-19 21:07:00 +00:00
|
|
|
.if ENABLE_STR
|
2016-02-19 05:58:00 +00:00
|
|
|
.if USE_STR_C
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG .sprintf( "PrintStrC() @ %X", * )
|
2016-02-19 05:58:00 +00:00
|
|
|
PrintStrC:
|
|
|
|
JSR NxtArgToTemp
|
|
|
|
|
|
|
|
LDY #$0
|
|
|
|
@_NextByte:
|
|
|
|
LDA (_temp),Y
|
|
|
|
BEQ _JumpNextFormat
|
|
|
|
JSR PutChar
|
|
|
|
INY
|
|
|
|
BNE @_NextByte
|
2016-02-19 21:07:00 +00:00
|
|
|
INC _temp+1 ; support strings > 256 chars
|
2016-02-19 05:58:00 +00:00
|
|
|
BRA @_NextByte
|
|
|
|
.endif
|
2016-02-19 21:07:00 +00:00
|
|
|
.endif
|
2016-02-18 20:19:00 +00:00
|
|
|
|
|
|
|
; p String (Pascal)
|
2016-02-18 17:56:00 +00:00
|
|
|
; ======================================================================
|
2016-02-19 21:07:00 +00:00
|
|
|
.if ENABLE_STR
|
2016-02-19 05:58:00 +00:00
|
|
|
.if USE_STR_PASCAL
|
2016-02-19 21:07:00 +00:00
|
|
|
DEBUG .sprintf( "PrintStrP() @ %X", * )
|
2016-02-19 05:58:00 +00:00
|
|
|
PrintStrP:
|
|
|
|
JSR NxtArgToTemp
|
|
|
|
|
|
|
|
LDY #$0
|
|
|
|
LDA (_temp),Y
|
|
|
|
BEQ _JumpNextFormat
|
|
|
|
TAX
|
|
|
|
_PrintStrP:
|
|
|
|
INY
|
|
|
|
LDA (_temp),Y
|
|
|
|
JSR PutChar
|
|
|
|
DEX
|
|
|
|
BNE _PrintStrP
|
|
|
|
BEQ _JumpNextFormat ; always
|
|
|
|
.endif
|
2016-02-18 20:34:00 +00:00
|
|
|
.endif ; ENABLE_STR
|
2016-02-18 17:56:00 +00:00
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
; ----------------------------------------------------------------------
|
|
|
|
; Utility
|
|
|
|
; ----------------------------------------------------------------------
|
2016-02-17 20:35:00 +00:00
|
|
|
|
2016-02-20 22:13:00 +00:00
|
|
|
.if ENABLE_HEX || ENABLE_DEC
|
2016-02-20 22:05:00 +00:00
|
|
|
; Converts A to Hex digits, prints them
|
|
|
|
PrintHexByte:
|
2016-02-21 07:21:00 +00:00
|
|
|
DEBUG .sprintf( "PrintHexByte @ %X", * )
|
2016-02-20 22:05:00 +00:00
|
|
|
JSR HexA
|
|
|
|
LDA _temp+0
|
|
|
|
JSR PutChar
|
|
|
|
PrintHexBotNib:
|
|
|
|
LDA _temp+1
|
|
|
|
JMP PutChar
|
|
|
|
; Converts A to Hex digits, stores two chars in _temp+0, _temp+1
|
|
|
|
; @return: A will be bottom nibble in ASCII
|
|
|
|
HexA:
|
|
|
|
PHA
|
|
|
|
LSR
|
|
|
|
LSR
|
|
|
|
LSR
|
|
|
|
LSR
|
|
|
|
JSR _HexNib
|
|
|
|
STA _temp+0
|
|
|
|
PLA
|
|
|
|
_HexNib:
|
|
|
|
AND #$F
|
|
|
|
CMP #$A ; n < 10 ?
|
|
|
|
BCC @Hex2Asc
|
|
|
|
ADC #6 ; n += 6 $A -> +6 + (C=1) = $11
|
|
|
|
@Hex2Asc:
|
|
|
|
ADC #'0' + $80 ; inverse=remove #$80
|
|
|
|
STA _temp+1
|
|
|
|
RTS
|
2016-02-20 22:13:00 +00:00
|
|
|
.endif
|
2016-02-20 22:05:00 +00:00
|
|
|
|
2016-02-18 00:47:00 +00:00
|
|
|
; ======================================================================
|
2016-02-19 21:07:00 +00:00
|
|
|
;
|
2016-02-17 20:35:00 +00:00
|
|
|
PutChar
|
2016-02-19 21:07:00 +00:00
|
|
|
.if 1
|
2016-02-18 20:48:00 +00:00
|
|
|
STA $C0DE ; _pScreen NOTE: self-modifying!
|
2016-02-17 20:35:00 +00:00
|
|
|
INC PutChar+1 ; inc lo
|
|
|
|
RTS
|
2016-02-19 21:07:00 +00:00
|
|
|
.else ; Alternatively use the monitor ROM char output
|
|
|
|
JMP COUT
|
|
|
|
.endif
|
2016-02-17 20:35:00 +00:00
|
|
|
|
2016-02-18 20:48:00 +00:00
|
|
|
;
|
2016-02-18 20:19:00 +00:00
|
|
|
; ======================================================================
|
|
|
|
|
2016-02-17 23:02:00 +00:00
|
|
|
_bcd ds 6 ; 6 chars for printing dec
|
2016-02-18 20:34:00 +00:00
|
|
|
_val dw 0 ; PrintHex2 PrintHex4 temp
|
2016-02-17 20:35:00 +00:00
|
|
|
|
2016-02-21 02:51:00 +00:00
|
|
|
MetaTable
|
2016-02-18 20:19:00 +00:00
|
|
|
|
|
|
|
.if ENABLE_BIN
|
2016-02-19 05:58:00 +00:00
|
|
|
.if USE_BIN_INV
|
2016-02-18 20:19:00 +00:00
|
|
|
db '?' ; PrintBinInv NOTE: 1's printed in inverse
|
2016-02-17 20:35:00 +00:00
|
|
|
dw PrintBinInv
|
2016-02-19 05:58:00 +00:00
|
|
|
.endif
|
|
|
|
.if USE_BIN_ASC
|
2016-02-21 02:51:00 +00:00
|
|
|
db '%' ; PrintBinAsc
|
2016-02-17 20:35:00 +00:00
|
|
|
dw PrintBinAsc
|
2016-02-19 05:58:00 +00:00
|
|
|
.endif
|
2016-02-18 20:19:00 +00:00
|
|
|
.endif
|
2016-02-21 02:51:00 +00:00
|
|
|
|
2016-02-18 20:19:00 +00:00
|
|
|
.if ENABLE_DEC
|
2016-02-19 05:58:00 +00:00
|
|
|
.if USE_DEC_BYTE
|
2016-02-21 02:51:00 +00:00
|
|
|
db 'b' ; PrintByte NOTE: Signed -128 .. +127
|
2016-02-18 17:56:00 +00:00
|
|
|
dw PrintByte
|
2016-02-18 20:19:00 +00:00
|
|
|
.endif
|
2016-02-19 05:58:00 +00:00
|
|
|
.if USE_DEC_5
|
2016-02-21 02:51:00 +00:00
|
|
|
db 'u' ; PrintDec5
|
2016-02-17 23:54:00 +00:00
|
|
|
dw PrintDec5
|
2016-02-19 05:58:00 +00:00
|
|
|
.endif
|
|
|
|
.if USE_DEC_3
|
2016-02-21 02:51:00 +00:00
|
|
|
db 'd' ; PrintDec3
|
2016-02-17 23:54:00 +00:00
|
|
|
dw PrintDec3
|
2016-02-19 05:58:00 +00:00
|
|
|
.endif
|
|
|
|
.if USE_DEC_2
|
2016-02-21 02:51:00 +00:00
|
|
|
db '#' ; PrintDec2
|
2016-02-17 20:35:00 +00:00
|
|
|
dw PrintDec2
|
2016-02-19 05:58:00 +00:00
|
|
|
.endif
|
2016-02-18 20:19:00 +00:00
|
|
|
.endif
|
2016-02-21 02:51:00 +00:00
|
|
|
|
2016-02-18 20:19:00 +00:00
|
|
|
.if ENABLE_HEX
|
2016-02-19 05:58:00 +00:00
|
|
|
.if USE_HEX_4
|
2016-02-21 02:51:00 +00:00
|
|
|
db 'x' ; PrintHex4
|
2016-02-17 20:35:00 +00:00
|
|
|
dw PrintHex4
|
2016-02-19 05:58:00 +00:00
|
|
|
.endif
|
|
|
|
.if USE_HEX_2
|
2016-02-21 02:51:00 +00:00
|
|
|
db '$' ; PrintHex2
|
2016-02-18 20:19:00 +00:00
|
|
|
dw PrintHex2
|
2016-02-19 05:58:00 +00:00
|
|
|
.endif
|
|
|
|
.if USE_PTR_4
|
2016-02-21 02:51:00 +00:00
|
|
|
db '&' ; PrintPtr4
|
2016-02-18 20:19:00 +00:00
|
|
|
dw PrintPtr4
|
2016-02-19 05:58:00 +00:00
|
|
|
.endif
|
|
|
|
.if USE_PTR_2
|
2016-02-21 02:51:00 +00:00
|
|
|
db '@' ; PrintPtr2
|
2016-02-18 20:19:00 +00:00
|
|
|
dw PrintPtr2
|
2016-02-18 20:34:00 +00:00
|
|
|
.endif
|
2016-02-18 20:19:00 +00:00
|
|
|
.endif
|
2016-02-21 02:51:00 +00:00
|
|
|
|
2016-02-19 21:07:00 +00:00
|
|
|
.if ENABLE_OCT
|
|
|
|
.if USE_OCT_6
|
2016-02-21 02:51:00 +00:00
|
|
|
db 'O' ; PrintOct6
|
2016-02-19 21:07:00 +00:00
|
|
|
dw PrintOct6
|
|
|
|
.endif
|
|
|
|
.if USE_OCT_3
|
2016-02-21 02:51:00 +00:00
|
|
|
db 'o' ; PrintOct3
|
2016-02-19 21:07:00 +00:00
|
|
|
dw PrintOct3
|
|
|
|
.endif
|
|
|
|
.endif
|
2016-02-18 20:19:00 +00:00
|
|
|
.if ENABLE_STR
|
2016-02-19 05:58:00 +00:00
|
|
|
.if USE_STR_PASCAL
|
2016-02-21 02:51:00 +00:00
|
|
|
db 'p' ; PrintStrP NOTE: Pascal string; C printf 'p' is pointer!
|
2016-02-18 20:19:00 +00:00
|
|
|
dw PrintStrP
|
2016-02-19 05:58:00 +00:00
|
|
|
.endif
|
|
|
|
.if USE_STR_C
|
2016-02-21 02:51:00 +00:00
|
|
|
db 's' ; PrintStrC NOTE: C string, zero terminated
|
2016-02-18 20:19:00 +00:00
|
|
|
dw PrintStrC
|
2016-02-19 05:58:00 +00:00
|
|
|
.endif
|
|
|
|
.if USE_STR_A
|
2016-02-21 02:51:00 +00:00
|
|
|
db 'a' ; PrintStrA NOTE: Last byte is ASCII
|
2016-02-18 20:19:00 +00:00
|
|
|
dw PrintStrA
|
2016-02-19 05:58:00 +00:00
|
|
|
.endif
|
2016-02-18 20:19:00 +00:00
|
|
|
.endif
|
|
|
|
|
2016-02-17 20:35:00 +00:00
|
|
|
__END
|
|
|
|
|
2016-02-21 07:21:00 +00:00
|
|
|
DEBUG .sprintf( "_bcd @ %X", _bcd )
|
2016-02-20 16:10:00 +00:00
|
|
|
DEBUG .sprintf( "Total size: %X (%d bytes)", __END -__MAIN, __END -__MAIN)
|
|
|
|
DEBUG .sprintf( "Demo size: %X (%d bytes)", __PRINTM-__MAIN, __PRINTM-__MAIN)
|
2016-02-21 02:51:00 +00:00
|
|
|
.out .sprintf( "printm size: %X (%d bytes)", __LIB_SIZE , __LIB_SIZE )
|
2016-02-20 07:47:00 +00:00
|
|
|
|