apple2_printm/printm.s

1624 lines
39 KiB
ArmAsm
Raw Normal View History

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-20 22:13:00 +00:00
/* Version 32
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-20 22:13:00 +00:00
With everything enabled printm() takes up $1C9 = 457 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-20 22:13:00 +00:00
With all 15 features turned OFF the core routines use $62 = 98 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-20 21:08:00 +00:00
the size is $13E = 318 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-20 22:13:00 +00:00
USE_BIN_ASC = 1 ; $7E 126 \. $85 (134 bytes)
USE_BIN_INV = 1 ; $7E 126 /
USE_DEC_2 = 1 ; $C7 199 \
USE_DEC_3 = 1 ; $C7 199 \.$F0 (240 bytes)
USE_DEC_5 = 1 ; $C7 199 /
USE_DEC_BYTE = 1 ; $DF 223 / sets ENABLE_DEC
USE_HEX_2 = 1 ; $99 153 \. $9E (158 bytes)
USE_HEX_4 = 1 ; $99 153 /
USE_OCT_3 = 1 ; $97 151 \. $9D (157 bytes)
USE_OCT_6 = 1 ; $97 151 /
USE_PTR_2 = 1 ; $B1 177 \. $B7 (183 bytes) sets ENABLE_HEX
USE_PTR_4 = 1 ; $B1 177 /
USE_STR_A = 1 ; $78 120 \
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
Demo + Library text dump:
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
4138:6E 43 86 FE 64 FF 8A 20
4140:DA FD 20 AB 41 20 4D 41
4148:A9 8D 4C ED FD 9C A3 44
4150:9C A4 44 9C A5 44 A2 10
2016-02-20 21:08:00 +00:00
4158:F8 06 FE 26 FF A0 FD B9
2016-02-20 22:13:00 +00:00
4160:A6 43 79 A6 43 99 A6 43
2016-02-20 21:08:00 +00:00
4168:C8 D0 F4 CA D0 EB D8 A2
2016-02-20 22:13:00 +00:00
4170:05 88 B9 A6 43 4A 4A 4A
2016-02-20 21:08:00 +00:00
4178:4A 18 69 B0 20 ED FD CA
2016-02-20 22:13:00 +00:00
4180:B9 A6 43 29 0F 18 69 B0
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
41B8:8E 86 44 8C 87 44 60 D8
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
4308:A0 A4 A0 A0 00 C9 01 8E
4310:93 44 8C 94 44 9C 91 44
4318:20 8C 44 8E 67 43 8C 68
4320:43 80 43 38 A9 18 20 8C
4328:44 90 03 20 60 44 8A 20
4330:60 44 80 2A 38 A9 18 20
4338:8C 44 A0 00 B1 FE 90 EF
4340:AA C8 B1 FE 80 E5 20 8C
4348:44 A0 00 B1 FE 10 0A 20
4350:85 44 C8 D0 F6 E6 FF 80
4358:F2 09 80 20 85 44 EE 67
4360:43 D0 03 EE 68 43 AD DE
4368:C0 F0 12 30 EE A2 0F CA
4370:30 EC DD AB 44 D0 F8 8A
4378:0A AA 7C BA 44 60 A9 02
4380:2C A9 01 2C A9 00 8D B7
4388:43 20 8C 44 8E A9 44 8C
4390:AA 44 9C A3 44 9C A4 44
4398:9C A5 44 A2 10 F8 0E A9
43A0:44 2E AA 44 A0 FD B9 A6
43A8:43 79 A6 43 99 A6 43 C8
43B0:D0 F4 CA D0 E9 D8 A0 03
43B8:F0 0A B9 A3 44 20 6D 44
43C0:20 85 44 88 B9 A3 44 20
43C8:60 44 88 10 F7 80 8F A9
43D0:31 2C A9 B1 8D E4 43 20
43D8:8C 44 A0 08 8A 0A AA A9
43E0:B0 90 02 A9 B1 20 85 44
43E8:88 D0 F1 4C 5E 43 20 8C
43F0:44 8A 10 0A A9 AD 20 85
43F8:44 8A 49 FF AA E8 A0 00
4400:A9 01 8D B7 43 4C 8C 43
4408:A9 06 2C A9 03 8D 2A 44
4410:20 8C 44 A2 00 A5 FE 29
4418:07 18 69 B0 9D A3 44 A0
4420:03 46 FF 66 FE 88 D0 F9
4428:E8 E0 06 D0 E8 CA 30 BB
4430:BD A3 44 20 85 44 80 F5
4438:20 8C 44 A0 00 B1 FE F0
4440:AA 20 85 44 C8 D0 F6 E6
4448:FF 80 F2 20 8C 44 A0 00
4450:B1 FE F0 97 AA C8 B1 FE
4458:20 85 44 CA D0 F7 F0 8B
4460:20 6D 44 A5 FE 20 85 44
4468:A5 FF 4C 85 44 48 4A 4A
4470:4A 4A 20 78 44 85 FE 68
4478:29 0F C9 0A 90 02 69 06
4480:69 B0 85 FF 60 8D DE C0
4488:EE 86 44 60 20 90 44 AA
4490:A0 00 B9 DE C0 EE 91 44
4498:D0 03 EE 94 44 A8 86 FE
44A0:84 FF 60 00 00 00 00 00
44A8:00 00 00 3F 25 62 75 64
44B0:23 78 24 26 40 4F 6F 70
44B8:73 61 CF 43 D2 43 EE 43
44C0:7E 43 81 43 84 43 23 43
44C8:25 43 34 43 36 43 08 44
44D0:0B 44 4B 44 38 44 46 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
_iArg = NxtArgByte+1
_pArg = IncArg +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-20 22:05:00 +00:00
;.if ENABLE_HEX
; _nHexWidth = HexWidth +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-18 20:48:00 +00:00
STZ _iArg
2016-02-17 20:35:00 +00:00
NextArg
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-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-20 07:47:00 +00:00
LDX #NumMeta ; 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
DEX
2016-02-20 07:47:00 +00:00
BMI NextFormat
CMP MetaChar,X
BNE FindMeta
2016-02-17 20:35:00 +00:00
CallMeta
TXA
ASL
TAX
JMP (MetaFunc,X)
_Done
RTS
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:
STX _val+0 ; may be tempting to move this to NxtArgYX
STY _val+1 ; as XYtoVal but others call us
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-19 05:58:00 +00:00
ASL _val+0
2016-02-20 09:06:00 +00:00
ROL _val+1
2016-02-19 05:58:00 +00:00
2016-02-20 09:06:00 +00:00
LDY #$FD
2016-02-20 08:05:00 +00:00
@DoubleDabble:
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 22:13:00 +00:00
.if 1 ; NEW_PRINT_DEC
2016-02-20 17:05:00 +00:00
DecWidth:
2016-02-20 22:05:00 +00:00
LDY #3 ; was Y, default to 6 digits
BEQ @EvenBCD
; Print low nibble, skip high nibble
@OddBCD: ; X = num digits to print
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
.else
LDX #5 ; was Y, default to 6 digits
2016-02-20 17:05:00 +00:00
@BCD2Char: ; NOTE: Digits are reversed!
2016-02-20 22:05:00 +00:00
LDA _bcd,Y ; __c??? _b_?XX a_YYXX
2016-02-19 05:58:00 +00:00
LSR
LSR
LSR
LSR
CLC
ADC #'0'+$80
2016-02-20 09:06:00 +00:00
STA _bcd,X ; __c??X _b_YXX aZYYXX
DEX ; was Y
2016-02-20 22:05:00 +00:00
@BCDBotNib:
LDA _bcd,Y ; __c??X _b_YXX aZYYXX
2016-02-19 05:58:00 +00:00
AND #$F
CLC
ADC #'0'+$80
2016-02-20 09:06:00 +00:00
STA _bcd,X ; __c?XX _bYYXX ZZYYXX
2016-02-19 05:58:00 +00:00
DEX
2016-02-20 17:05:00 +00:00
BPL @BCD2Char
2016-02-19 05:58:00 +00:00
DecWidth:
2016-02-20 22:05:00 +00:00
LDX #5 ; _nDecDigits NOTE: self-modifying!
2016-02-20 17:05:00 +00:00
.endif
2016-02-20 22:05:00 +00:00
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
JSR NxtArgYX ; X = low byte
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:
JSR NxtArgYX ; X = low byte
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-19 05:58:00 +00:00
LDY #00 ; 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
JMP PrintDecYX ; needs XYtoVal setup
.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
;BNE _PrintOct
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:
.out .sprintf( "PrintHexByte @ %X", * )
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 00:47:00 +00:00
; ======================================================================
2016-02-18 17:56:00 +00:00
; @return next arg as 16-bit arg value in Y,X
2016-02-18 20:19:00 +00:00
NxtArgToTemp
2016-02-18 17:56:00 +00:00
NxtArgYX
JSR NxtArgByte
TAX
2016-02-17 20:35:00 +00:00
; @return _Arg[ _Num ]
NxtArgByte
2016-02-18 20:48:00 +00:00
LDY #00 ; _iArg NOTE: self-modifying!
2016-02-17 20:35:00 +00:00
IncArg
LDA $C0DE,Y ; _pArg NOTE: self-modifying!
2016-02-18 20:48:00 +00:00
INC _iArg ;
2016-02-17 20:35:00 +00:00
BNE @_SamePage
INC _pArg+1 ;
@_SamePage
TAY
2016-02-18 20:19:00 +00:00
; 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 ;
2016-02-17 20:35:00 +00:00
RTS
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
MetaChar
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-19 05:58:00 +00:00
.endif
2016-02-19 21:07:00 +00:00
.if USE_BIN_ASC
2016-02-17 20:35:00 +00:00
db '%' ; PrintBinAsc
2016-02-19 05:58:00 +00:00
.endif
2016-02-18 20:19:00 +00:00
.endif
.if ENABLE_DEC
2016-02-19 05:58:00 +00:00
.if USE_DEC_BYTE
2016-02-18 20:19:00 +00:00
db 'b' ; PrintByte NOTE: Signed -128 .. +127
.endif
2016-02-19 05:58:00 +00:00
.if USE_DEC_5
2016-02-17 23:54:00 +00:00
db 'u' ; PrintDec5
2016-02-19 05:58:00 +00:00
.endif
.if USE_DEC_3
2016-02-17 23:54:00 +00:00
db 'd' ; PrintDec3
2016-02-19 05:58:00 +00:00
.endif
.if USE_DEC_2
2016-02-17 20:35:00 +00:00
db '#' ; PrintDec2
2016-02-19 05:58:00 +00:00
.endif
2016-02-18 20:19:00 +00:00
.endif
.if ENABLE_HEX
2016-02-19 05:58:00 +00:00
.if USE_HEX_4
2016-02-17 23:02:00 +00:00
db 'x' ; PrintHex4
2016-02-19 05:58:00 +00:00
.endif
2016-02-19 19:57:00 +00:00
.if USE_HEX_2
2016-02-18 20:19:00 +00:00
db '$' ; PrintHex2
2016-02-19 05:58:00 +00:00
.endif
2016-02-19 19:57:00 +00:00
.if USE_PTR_4
2016-02-18 20:19:00 +00:00
db '&' ; PrintPtr4
2016-02-19 05:58:00 +00:00
.endif
2016-02-19 19:57:00 +00:00
.if USE_PTR_2
2016-02-18 20:19:00 +00:00
db '@' ; PrintPtr2
2016-02-18 21:45:00 +00:00
.endif
2016-02-18 20:19:00 +00:00
.endif
2016-02-19 21:07:00 +00:00
.if ENABLE_OCT
.if USE_OCT_6
db 'O' ; PrintOct6
.endif
.if USE_OCT_3
db 'o' ; 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-18 20:19:00 +00:00
db 'p' ; PrintStrP NOTE: Pascal string; C printf 'p' is pointer!
2016-02-19 05:58:00 +00:00
.endif
.if USE_STR_C
2016-02-18 20:19:00 +00:00
db 's' ; PrintStrC NOTE: C string, zero terminated
2016-02-19 05:58:00 +00:00
.endif
.if USE_STR_A
2016-02-18 20:19:00 +00:00
db 'a' ; PrintStrA NOTE: Last byte is ASCII
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
_MetaCharEnd
MetaFunc
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-17 20:35:00 +00:00
dw PrintBinInv
2016-02-19 05:58:00 +00:00
.endif
.if USE_BIN_ASC
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
.if ENABLE_DEC
2016-02-19 05:58:00 +00:00
.if USE_DEC_BYTE
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-17 23:54:00 +00:00
dw PrintDec5
2016-02-19 05:58:00 +00:00
.endif
.if USE_DEC_3
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-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
.if ENABLE_HEX
2016-02-19 05:58:00 +00:00
.if USE_HEX_4
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-18 20:19:00 +00:00
dw PrintHex2
2016-02-19 05:58:00 +00:00
.endif
.if USE_PTR_4
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-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-19 21:07:00 +00:00
.if ENABLE_OCT
.if USE_OCT_6
dw PrintOct6
.endif
.if USE_OCT_3
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-18 20:19:00 +00:00
dw PrintStrP
2016-02-19 05:58:00 +00:00
.endif
.if USE_STR_C
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-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-20 22:05:00 +00:00
.out .sprintf( "_bcd @ %X", _bcd )
.out .sprintf( "printm size: %X (%d bytes)", __LIB_SIZE , __LIB_SIZE )
2016-02-17 20:35:00 +00:00
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)
DEBUG .sprintf( "printm size: %X (%d bytes)", __LIB_SIZE , __LIB_SIZE )
2016-02-20 07:47:00 +00:00