Apple-2-SW/apple2_printm
1
0
Fork 0
mirror of https://github.com/Michaelangel007/apple2_printm.git synced 2025-01-11 15:29:55 +00:00
Code Issues Projects Releases Wiki Activity

Ver 23

Browse Source
This commit is contained in:
Michaelangel007 2016-02-20 01:06:00 -08:00
parent ddcc225bfd
commit c627b2e578
1 changed files with 88 additions and 113 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

199
printm.s
View File

@ -1,7 +1,7 @@
; ca65 ; ca65
.feature c_comments .feature c_comments
/* Version 22 /* Version 23
printm - a modular micro printf replacement for 65C02 printm - a modular micro printf replacement for 65C02
Michael Pohoreski Michael Pohoreski
Copyleft {c} Feb, 2016 Copyleft {c} Feb, 2016
@ -93,7 +93,7 @@ to control the memory footprint since you probably
don't need "every" feature. Seriously, when was the last time don't need "every" feature. Seriously, when was the last time
you _needed_ octal? :-) you _needed_ octal? :-)
With everything enabled printm() takes up $1FF = 511 bytes With everything enabled printm() takes up $1E1 = 481 bytes
(Plus 2 bytes in zero page.) (Plus 2 bytes in zero page.)
Whoa! I thought you said this was micro!? Whoa! I thought you said this was micro!?
@ -174,7 +174,7 @@ Demo + Library text dump:
4118:43 85 FF 20 DA FD AD 20 4118:43 85 FF 20 DA FD AD 20
4120:43 85 FE 20 DA FD 20 BE 4120:43 85 FE 20 DA FD 20 BE
4128:41 20 4F 41 A2 05 A0 43 4128:41 20 4F 41 A2 05 A0 43
4130:20 A2 41 AE C1 43 86 FE 4130:20 A2 41 AE B4 43 86 FE
4138:64 FF 8A 20 DA FD 20 BE 4138:64 FF 8A 20 DA FD 20 BE
4140:41 20 4F 41 A9 8D 4C ED 4140:41 20 4F 41 A9 8D 4C ED
4148:FD 00 00 00 00 00 00 A2 4148:FD 00 00 00 00 00 00 A2
@ -193,7 +193,7 @@ Demo + Library text dump:
41B0:D0 F6 60 A2 08 85 FE 06 41B0:D0 F6 60 A2 08 85 FE 06
41B8:FE 6A CA D0 FA 60 A9 A0 41B8:FE 6A CA D0 FA 60 A9 A0
41C0:4C ED FD 98 20 C1 FB A6 41C0:4C ED FD 98 20 C1 FB A6
41C8:28 A4 29 8E D7 44 8C D8 41C8:28 A4 29 8E B1 44 8C B2
41D0:44 60 D8 BD 23 A0 D9 BD 41D0:44 60 D8 BD 23 A0 D9 BD
41D8:64 A0 A4 BD 78 BA 40 A0 41D8:64 A0 A4 BD 78 BA 40 A0
41E0:25 FE 3F 00 D2 41 27 00 41E0:25 FE 3F 00 D2 41 27 00
@ -236,72 +236,67 @@ Demo + Library text dump:
4308:F4 E5 F3 8D A0 A0 A0 A0 4308:F4 E5 F3 8D A0 A0 A0 A0
4310:AE E6 E5 E1 F4 F5 F2 E5 4310:AE E6 E5 E1 F4 F5 F2 E5
4318:F3 A0 BD A0 A4 A0 A0 00 4318:F3 A0 BD A0 A4 A0 A0 00
4320:07 02 A9 04 D0 16 8E E4 4320:E1 01 A9 04 D0 16 8E BE
4328:44 8C E5 44 9C E2 44 20 4328:44 8C BF 44 9C BC 44 20
4330:DD 44 8E BA 43 8C BB 43 4330:B7 44 8E AD 43 8C AE 43
4338:80 7F A9 02 8D 74 43 20 4338:80 72 A9 02 8D 67 43 20
4340:DD 44 8E FA 44 8C FB 44 4340:B7 44 8E D4 44 8C D5 44
4348:A2 00 AD FA 44 29 0F C9 4348:A2 00 AD D4 44 29 0F C9
4350:0A 90 02 69 06 69 B0 9D 4350:0A 90 02 69 06 69 B0 9D
4358:F4 44 4E FB 44 6E FA 44 4358:CE 44 A0 04 4E D5 44 6E
4360:4E FB 44 6E FA 44 4E FB 4360:D4 44 88 D0 F7 E8 E0 04
4368:44 6E FA 44 4E FB 44 6E 4368:D0 E0 CA 30 37 BD CE 44
4370:FA 44 E8 E0 04 D0 D3 CA 4370:20 B0 44 80 F5 A9 04 D0
4378:30 37 BD F4 44 20 D6 44 4378:02 A9 02 8D 67 43 20 B7
4380:80 F5 A9 04 D0 02 A9 02 4380:44 A0 00 B1 FE AA C8 B1
4388:8D 74 43 20 DD 44 A0 00 4388:FE A8 80 B6 20 B7 44 A0
4390:B1 FE AA C8 B1 FE A8 80 4390:00 B1 FE 10 0A 20 B0 44
4398:A9 20 DD 44 A0 00 B1 FE 4398:C8 D0 F6 E6 FF 80 F2 09
43A0:10 0A 20 D6 44 C8 D0 F6 43A0:80 20 B0 44 EE AD 43 D0
43A8:E6 FF 80 F2 09 80 20 D6 43A8:03 EE AE 43 AD DE C0 F0
43B0:44 EE BA 43 D0 03 EE BB 43B0:12 30 EE A2 0F CA 30 EC
43B8:43 AD DE C0 F0 12 30 EE 43B8:DD D6 44 D0 F8 8A 0A AA
43C0:A2 0F CA 30 EC DD FC 44 43C0:7C E5 44 60 A9 05 D0 06
43C8:D0 F8 8A 0A AA 7C 0B 45 43C8:A9 03 D0 02 A9 02 8D 1F
43D0:60 A9 05 D0 06 A9 03 D0 43D0:44 20 B7 44 8E D4 44 8C
43D8:02 A9 02 8D 3A 44 20 DD 43D8:D5 44 9C CE 44 9C CF 44
43E0:44 8E FA 44 8C FB 44 9C 43E0:9C D0 44 A2 10 F8 0E D4
43E8:F4 44 9C F5 44 9C F6 44 43E8:44 2E D5 44 A0 FD B9 D1
43F0:A2 10 F8 0E FA 44 2E FB 43F0:43 79 D1 43 99 D1 43 C8
43F8:44 AD F4 44 6D F4 44 8D 43F8:D0 F4 CA D0 E9 D8 A2 05
4400:F4 44 AD F5 44 6D F5 44 4400:88 B9 D1 43 4A 4A 4A 4A
4408:8D F5 44 AD F6 44 6D F6 4408:18 69 B0 9D CE 44 CA B9
4410:44 8D F6 44 CA D0 DC D8 4410:D1 43 29 0F 18 69 B0 9D
4418:A2 02 A0 05 BD F4 44 4A 4418:CE 44 88 CA 10 E3 A2 00
4420:4A 4A 4A 18 69 B0 99 F4 4420:4C 6A 43 A9 31 D0 02 A9
4428:44 88 BD F4 44 29 0F 18 4428:B1 8D 39 44 20 B7 44 A0
4430:69 B0 99 F4 44 88 CA 10 4430:08 8A 0A AA A9 B0 90 02
4438:E3 A2 00 4C 77 43 A9 81 4438:A9 B1 20 B0 44 88 D0 F1
4440:D0 02 A9 01 8D 56 44 20 4440:4C A4 43 20 B7 44 8A 10
4448:DD 44 A0 08 8A C9 80 2A 4448:0A A9 AD 20 B0 44 8A 49
4450:AA 29 01 F0 02 A9 81 49 4450:FF AA E8 A0 00 A9 03 8D
4458:B0 20 D6 44 88 D0 ED 4C 4458:1F 44 4C D4 43 A9 06 D0
4460:B1 43 20 DD 44 8A 10 0D 4460:02 A9 03 8D 84 44 20 B7
4468:A9 AD 20 D6 44 8A 49 FF 4468:44 A2 00 A0 03 A5 FE 29
4470:29 7F 18 69 01 AA A0 00 4470:07 18 69 B0 9D CE 44 46
4478:A9 03 8D 3A 44 4C E1 43 4478:FF 66 FE 88 D0 F9 E8 E0
4480:A9 06 D0 02 A9 03 8D AA 4480:06 D0 EA A2 06 4C 6A 43
4488:44 20 DD 44 A2 00 A5 FE 4488:20 B7 44 A0 00 B1 FE F0
4490:29 07 18 69 B0 9D F4 44 4490:AF 20 B0 44 C8 D0 F6 E6
4498:46 FF 66 FE 46 FF 66 FE 4498:FF 80 F2 20 B7 44 A0 00
44A0:46 FF 66 FE E8 E0 06 D0 44A0:B1 FE F0 9C AA C8 B1 FE
44A8:E5 A2 06 4C 77 43 20 DD 44A8:20 B0 44 CA D0 F7 F0 90
44B0:44 A0 00 B1 FE F0 A8 20 44B0:8D DE C0 EE B1 44 60 20
44B8:D6 44 C8 D0 F6 E6 FF 80 44B8:BB 44 AA A0 00 B9 DE C0
44C0:F2 20 DD 44 A0 00 B1 FE 44C0:EE BC 44 D0 03 EE BF 44
44C8:F0 95 AA C8 B1 FE 20 D6 44C8:A8 86 FE 84 FF 60 00 00
44D0:44 CA D0 F7 F0 89 8D DE 44D0:00 00 00 00 00 00 3F 25
44D8:C0 EE D7 44 60 20 E1 44 44D8:62 75 64 23 78 24 26 40
44E0:AA A0 00 B9 DE C0 EE E2 44E0:4F 6F 70 73 61 23 44 27
44E8:44 D0 03 EE E5 44 A8 86 44E8:44 43 44 C4 43 C8 43 CC
44F0:FE 84 FF 60 00 00 00 00 44F0:43 22 43 3A 43 75 43 79
44F8:00 00 00 00 3F 25 62 75 44F8:43 5D 44 61 44 9B 44 88
4500:64 23 78 24 26 40 4F 6F 4500:44 8C 43
4508:70 73 61 3E 44 42 44 62
4510:44 D1 43 D5 43 D9 43 22
4518:43 3A 43 82 43 86 43 80
4520:44 84 44 C1 44 AE 44 99
4528:43
*/ */
@ -975,21 +970,12 @@ __PRINTM
.endif .endif
.if ENABLE_HEX .if ENABLE_HEX
_nHexWidth = HexWidth +1 _nHexWidth = HexWidth +1
; Moved here so NextArg can reach GetFormat
.if USE_HEX_4
DEBUG .sprintf( "PrintHex4() @ %X", * )
PrintHex4:
LDA #4
BNE _PrintHex
.endif
.endif .endif
; Entry Point ; Entry Point
; ====================================================================== ; ======================================================================
; printm( format, args, ... ) ; printm( format, args, ... )
; ====================================================================== ; ======================================================================
PrintM PrintM
STX _pArg+0 STX _pArg+0
STY _pArg+1 STY _pArg+1
@ -1006,6 +992,14 @@ NextArg
; x Hex 4 Byte ; x Hex 4 Byte
; ====================================================================== ; ======================================================================
.if ENABLE_HEX .if ENABLE_HEX
.if USE_HEX_4
DEBUG .sprintf( "PrintHex4() @ %X", * )
PrintHex4:
LDA #4
BNE _PrintHex
.endif
.if USE_HEX_2 .if USE_HEX_2
DEBUG .sprintf( "PrintHex2() @ %X", * ) DEBUG .sprintf( "PrintHex2() @ %X", * )
PrintHex2: PrintHex2:
@ -1032,26 +1026,14 @@ DEBUG .sprintf( "PrintHex2() @ %X", * )
@Hex2Asc: @Hex2Asc:
ADC #'0' + $80 ; inverse=remove #$80 ADC #'0' + $80 ; inverse=remove #$80
STA _bcd, X ; NOTE: Digits are reversed! STA _bcd, X ; NOTE: Digits are reversed!
.if 0
LDY #3 LDY #4
@HexShr: @HexShr:
LSR _val+1 ; 16-bit SHR nibble LSR _val+1 ; 16-bit SHR nibble
ROR _val+0 ROR _val+0
DEY DEY
BNE @HexShr BNE @HexShr
.else
LSR _val+1 ; 16-bit SHR nibble
ROR _val+0
LSR _val+1
ROR _val+0
LSR _val+1
ROR _val+0
LSR _val+1
ROR _val+0
.endif
INX INX
HexWidth: HexWidth:
CPX #4 ; _nHexWidth NOTE: self-modifying! CPX #4 ; _nHexWidth NOTE: self-modifying!
@ -1075,6 +1057,7 @@ PrintReverseBCD
; & Ptr 4 Byte ; & Ptr 4 Byte
; ====================================================================== ; ======================================================================
.if ENABLE_PTR .if ENABLE_PTR
.if USE_PTR_4 .if USE_PTR_4
DEBUG .sprintf( "PrintPtr4() @ %X", * ) DEBUG .sprintf( "PrintPtr4() @ %X", * )
PrintPtr4: PrintPtr4:
@ -1216,47 +1199,39 @@ DEBUG .sprintf( "PrintDec2() @ %X", * )
SED ; "Double Dabble" SED ; "Double Dabble"
_Dec2BCD: ; https://en.wikipedia.org/wiki/Double_dabble _Dec2BCD: ; https://en.wikipedia.org/wiki/Double_dabble
ASL _val+0 ASL _val+0
ROl _val+1 ROL _val+1
LDY #$FC LDY #$FD
@DoubleDabble: @DoubleDabble:
LDA _bcd-$FC,Y LDA _bcd-$FD,Y
ADC _bcd-$FC,Y ADC _bcd-$FD,Y
STA _bcd-$FC,Y STA _bcd-$FD,Y
INY INY
BNE @DoubleDabble BNE @DoubleDabble
; LDA _bcd+1
; ADC _bcd+1
; STA _bcd+1
;
; LDA _bcd+2
; ADC _bcd+2
; STA _bcd+2
DEX DEX
BNE _Dec2BCD BNE _Dec2BCD
CLD CLD
BCD2Char: BCD2Char:
LDX #2 LDX #5 ; was Y
LDY #5 DEY ; $FF - $FD = 2
_BCD2Char: ; NOTE: Digits are reversed! _BCD2Char: ; NOTE: Digits are reversed!
LDA _bcd,X ; __c??? _b_?XX a_YYXX LDA _bcd-$FD,Y ; __c??? _b_?XX a_YYXX
LSR LSR
LSR LSR
LSR LSR
LSR LSR
CLC CLC
ADC #'0'+$80 ADC #'0'+$80
STA _bcd,Y ; __c??X _b_YXX aZYYXX STA _bcd,X ; __c??X _b_YXX aZYYXX
DEY DEX ; was Y
LDA _bcd,X ; __c??X _b_YXX aZYYXX LDA _bcd-$FD,Y ; __c??X _b_YXX aZYYXX
AND #$F AND #$F
CLC CLC
ADC #'0'+$80 ADC #'0'+$80
STA _bcd,Y ; __c?XX _bYYXX ZZYYXX STA _bcd,X ; __c?XX _bYYXX ZZYYXX
DEY DEY
DEX DEX
BPL _BCD2Char BPL _BCD2Char