/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / mer128.arc / PI.PRINTER.S

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 70 2a 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.p*=====|========|
|00000010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000020| 3d 3d 0d 2a a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 70 69 |==.*....|......pi|
|00000030| 2e 70 72 69 6e 74 65 72 | 0d 2a 3d 3d 3d 3d 3d 3d |.printer|.*======|
|00000040| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000050| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 2a 0d 2a a0 74 48 |========|=.*.*.tH|
|00000060| 49 53 a0 4d 4f 44 55 4c | 45 a0 4f 46 a0 54 48 45 |IS.MODUL|E.OF.THE|
|00000070| a0 70 69 a0 50 52 4f 47 | 52 41 4d a0 43 4f 4e 56 |.pi.PROG|RAM.CONV|
|00000080| 45 52 54 53 a0 54 48 45 | 0d 2a a0 50 52 45 53 45 |ERTS.THE|.*.PRESE|
|00000090| 4e 54 a0 48 45 58 a0 52 | 45 50 52 45 53 45 4e 54 |NT.HEX.R|EPRESENT|
|000000a0| 41 54 49 4f 4e a0 54 4f | a0 44 45 43 49 4d 41 4c |ATION.TO|.DECIMAL|
|000000b0| a0 41 4e 44 0d 2a a0 50 | 52 49 4e 54 53 a0 49 54 |.AND.*.P|RINTS.IT|
|000000c0| a0 4f 55 54 2e a0 a0 74 | 48 49 53 a0 49 53 a0 44 |.OUT...t|HIS.IS.D|
|000000d0| 4f 4e 45 a0 42 59 a0 53 | 55 43 43 45 53 53 49 56 |ONE.BY.S|UCCESSIV|
|000000e0| 45 0d 2a a0 4d 55 4c 54 | 49 50 4c 49 43 41 54 49 |E.*.MULT|IPLICATI|
|000000f0| 4f 4e a0 42 59 a0 31 30 | a0 41 4e 44 a0 53 45 4e |ON.BY.10|.AND.SEN|
|00000100| 44 49 4e 47 a0 54 48 45 | a0 52 45 53 55 4c 54 49 |DING.THE|.RESULTI|
|00000110| 4e 47 0d 2a a0 49 4e 54 | 45 47 45 52 a0 50 41 52 |NG.*.INT|EGER.PAR|
|00000120| 54 a0 28 41 a0 44 49 47 | 49 54 29 2e 0d 0d 20 72 |T.(A.DIG|IT)... r|
|00000130| 65 6c 0d 73 61 76 6f 62 | 6a 20 6b 62 64 20 27 73 |el.savob|j kbd 's|
|00000140| 41 56 45 a0 4f 42 4a 45 | 43 54 a0 43 4f 44 45 3f |AVE.OBJE|CT.CODE?|
|00000150| a0 28 31 3d 79 2c a0 30 | 3d 6e 29 27 0d 20 64 6f |.(1=y,.0|=n)'. do|
|00000160| 20 73 61 76 6f 62 6a 0d | 20 64 73 6b 20 27 50 49 | savobj.| dsk 'PI|
|00000170| 2e 50 52 49 4e 54 45 52 | 27 0d 20 66 69 6e 0d 0d |.PRINTER|'. fin..|
|00000180| 20 74 72 0d 20 65 78 70 | 20 6f 66 66 0d 0d 70 72 | tr. exp| off..pr|
|00000190| 69 6d 6d 20 3d 20 24 66 | 66 37 64 0d 0d 20 75 73 |imm = $f|f7d.. us|
|000001a0| 65 20 27 50 49 2e 4d 41 | 43 52 4f 53 27 0d 0d 70 |e 'PI.MA|CROS'..p|
|000001b0| 72 69 6e 74 20 6d 61 63 | 0d 20 6a 73 72 20 70 72 |rint mac|. jsr pr|
|000001c0| 69 6d 6d 0d 20 69 66 20 | 27 3d 5d 31 0d 20 74 78 |imm. if |'=]1. tx|
|000001d0| 74 20 5d 31 0d 20 65 6c | 73 65 0d 20 68 65 78 20 |t ]1. el|se. hex |
|000001e0| 5d 31 0d 20 74 78 74 20 | 5d 32 0d 20 66 69 6e 0d |]1. txt |]2. fin.|
|000001f0| 20 62 72 6b 0d 20 3c 3c | 3c 0d 0d 73 65 74 72 6f | brk. <<|<..setro|
|00000200| 6d 20 65 78 74 0d 6d 75 | 6c 74 65 6e 20 65 78 74 |m ext.mu|lten ext|
|00000210| 0d 0d 63 72 6f 75 74 20 | 6c 64 61 20 23 24 64 0d |..crout |lda #$d.|
|00000220| 20 6a 6d 70 20 63 68 72 | 6f 75 74 0d 0d 73 70 61 | jmp chr|out..spa|
|00000230| 63 65 20 6c 64 61 20 23 | 27 a0 27 0d 20 6a 6d 70 |ce lda #|'.'. jmp|
|00000240| 20 63 68 72 6f 75 74 0d | 0d 70 72 69 6e 74 70 69 | chrout.|.printpi|
|00000250| 20 65 6e 74 0d 20 6a 73 | 72 20 73 65 74 72 6f 6d | ent. js|r setrom|
|00000260| 20 3b 77 41 4e 54 a0 72 | 6f 6d a0 55 50 a0 4d 4f | ;wANT.r|om.UP.MO|
|00000270| 53 54 a0 4f 46 a0 54 48 | 45 a0 54 49 4d 45 0d 20 |ST.OF.TH|E.TIME. |
|00000280| 6a 73 72 20 63 72 6f 75 | 74 0d 20 6c 64 61 20 23 |jsr crou|t. lda #|
|00000290| 25 30 30 31 30 31 30 30 | 30 20 3b 74 48 49 53 a0 |%0010100|0 ;tHIS.|
|000002a0| 49 53 a0 41 a0 43 4f 55 | 4e 54 45 52 a0 54 4f a0 |IS.A.COU|NTER.TO.|
|000002b0| 53 50 45 45 44 0d 20 73 | 74 61 20 64 65 63 66 6c |SPEED. s|ta decfl|
|000002c0| 61 67 20 3b a0 54 48 45 | a0 50 52 49 4e 54 49 4e |ag ;.THE|.PRINTIN|
|000002d0| 47 a0 55 50 2e a0 a0 28 | 61 53 a0 57 45 0d 20 73 |G.UP...(|aS.WE. s|
|000002e0| 74 61 20 72 61 6d 30 20 | 3b a0 47 45 54 a0 54 4f |ta ram0 |;.GET.TO|
|000002f0| 57 41 52 44 53 a0 54 48 | 45 a0 45 4e 44 a0 46 45 |WARDS.TH|E.END.FE|
|00000300| 57 45 52 0d 20 6c 64 61 | 20 73 75 6d 73 74 72 20 |WER. lda| sumstr |
|00000310| 3b a0 44 49 47 49 54 53 | a0 41 52 45 a0 53 49 47 |;.DIGITS|.ARE.SIG|
|00000320| 4e 49 46 49 43 41 4e 54 | a0 41 4e 44 0d 20 6a 73 |NIFICANT|.AND. js|
|00000330| 72 20 73 65 74 72 6f 6d | 20 3b a0 57 45 a0 57 41 |r setrom| ;.WE.WA|
|00000340| 4e 54 a0 54 4f a0 41 56 | 4f 49 44 a0 54 48 45 a0 |NT.TO.AV|OID.THE.|
|00000350| 45 58 43 45 53 53 0d 20 | 6f 72 61 20 23 27 30 27 |EXCESS. |ora #'0'|
|00000360| 20 3b a0 42 41 47 47 41 | 47 45 2e 0d 20 6a 73 72 | ;.BAGGA|GE.. jsr|
|00000370| 20 63 68 72 6f 75 74 20 | 3b 70 52 49 4e 54 a0 22 | chrout |;pRINT."|
|00000380| 33 2e 22 0d 20 6c 64 61 | 20 23 27 2e 27 0d 20 6a |3.". lda| #'.'. j|
|00000390| 73 72 20 63 68 72 6f 75 | 74 0d 20 6c 64 61 20 23 |sr chrou|t. lda #|
|000003a0| 31 30 0d 20 73 74 61 20 | 73 70 63 6f 75 6e 74 20 |10. sta |spcount |
|000003b0| 3b 63 4f 55 4e 54 a0 46 | 4f 52 a0 54 45 4e a0 44 |;cOUNT.F|OR.TEN.D|
|000003c0| 49 47 49 54 53 0d 20 73 | 74 61 20 6c 69 6e 63 6e |IGITS. s|ta lincn|
|000003d0| 74 20 3b a0 41 4e 44 a0 | 31 30 a0 4c 49 4e 45 53 |t ;.AND.|10.LINES|
|000003e0| a0 42 45 46 4f 52 45 a0 | 42 52 45 41 4b 0d 20 6c |.BEFORE.|BREAK. l|
|000003f0| 73 72 0d 20 73 74 61 20 | 62 6c 6f 63 6b 63 6e 74 |sr. sta |blockcnt|
|00000400| 20 3b 35 a0 4f 46 a0 54 | 48 45 53 45 a0 42 4c 4f | ;5.OF.T|HESE.BLO|
|00000410| 43 4b 53 2f 50 41 47 45 | 0d 20 6c 64 61 20 63 6f |CKS/PAGE|. lda co|
|00000420| 6c 75 6d 6e 73 0d 20 73 | 74 61 20 63 72 63 6f 75 |lumns. s|ta crcou|
|00000430| 6e 74 20 3b 23 a0 4f 46 | a0 43 4f 4c 55 4d 53 a0 |nt ;#.OF|.COLUMS.|
|00000440| 52 45 51 55 45 53 54 45 | 44 0d 20 6c 64 61 20 23 |REQUESTE|D. lda #|
|00000450| 31 0d 20 73 74 61 20 70 | 61 67 65 20 3b 69 4e 49 |1. sta p|age ;iNI|
|00000460| 54 a0 50 41 47 45 a0 43 | 4f 55 4e 54 45 52 0d 20 |T.PAGE.C|OUNTER. |
|00000470| 6c 64 79 20 23 31 30 2a | 32 2d 31 0d 20 6c 64 61 |ldy #10*|2-1. lda|
|00000480| 20 23 30 0d 3a 7a 6c 75 | 70 20 73 74 61 20 64 69 | #0.:zlu|p sta di|
|00000490| 67 69 74 63 6e 74 2c 79 | 20 3b 63 4f 55 4e 54 45 |gitcnt,y| ;cOUNTE|
|000004a0| 52 53 a0 46 4f 52 a0 43 | 4f 55 4e 54 49 4e 47 a0 |RS.FOR.C|OUNTING.|
|000004b0| 54 48 45 0d 20 64 65 79 | 20 3b a0 46 52 45 51 55 |THE. dey| ;.FREQU|
|000004c0| 45 4e 43 59 a0 4f 46 a0 | 45 41 43 48 a0 44 49 47 |ENCY.OF.|EACH.DIG|
|000004d0| 49 54 0d 20 62 70 6c 20 | 3a 7a 6c 75 70 0d 20 73 |IT. bpl |:zlup. s|
|000004e0| 74 61 20 6a 75 73 74 20 | 3b 6a 55 53 54 49 46 59 |ta just |;jUSTIFY|
|000004f0| a0 4c 45 46 54 0d 20 69 | 6e 63 20 64 69 67 69 74 |.LEFT. i|nc digit|
|00000500| 63 6e 74 2b 36 20 3b 63 | 4f 55 4e 54 a0 54 48 45 |cnt+6 ;c|OUNT.THE|
|00000510| a0 49 4e 49 54 49 41 4c | a0 22 33 22 0d 3a 70 72 |.INITIAL|."3".:pr|
|00000520| 6c 6f 6f 70 20 6c 64 79 | 20 23 30 0d 20 73 74 61 |loop ldy| #0. sta|
|00000530| 20 72 61 6d 30 20 3b 72 | 61 6d a0 4f 4e 0d 20 73 | ram0 ;r|am.ON. s|
|00000540| 74 79 20 73 75 6d 73 74 | 72 20 3b 7a 45 52 4f a0 |ty sumst|r ;zERO.|
|00000550| 31 53 54 a0 44 49 47 49 | 54 0d 20 6a 73 72 20 6d |1ST.DIGI|T. jsr m|
|00000560| 75 6c 74 65 6e 20 3b 6d | 55 4c 54 49 50 4c 59 a0 |ulten ;m|ULTIPLY.|
|00000570| 43 55 52 52 45 4e 54 a0 | 4d 41 4e 54 49 53 53 41 |CURRENT.|MANTISSA|
|00000580| a0 59 a0 31 30 0d 20 6c | 64 61 20 73 75 6d 73 74 |.Y.10. l|da sumst|
|00000590| 72 20 3b 67 45 54 a0 49 | 4e 54 45 47 45 52 a0 50 |r ;gET.I|NTEGER.P|
|000005a0| 41 52 54 a0 4f 46 a0 52 | 45 53 55 4c 54 0d 20 70 |ART.OF.R|ESULT. p|
|000005b0| 68 61 0d 20 6a 73 72 20 | 73 65 74 72 6f 6d 20 3b |ha. jsr |setrom ;|
|000005c0| 74 55 52 4e a0 72 6f 6d | a0 4f 4e 0d 20 6f 72 61 |tURN.rom|.ON. ora|
|000005d0| 20 23 27 30 27 0d 20 6a | 73 72 20 63 68 72 6f 75 | #'0'. j|sr chrou|
|000005e0| 74 20 3b 70 52 49 4e 54 | a0 54 48 49 53 a0 44 49 |t ;pRINT|.THIS.DI|
|000005f0| 47 49 54 0d 20 70 6c 61 | 0d 20 61 73 6c 20 3b 67 |GIT. pla|. asl ;g|
|00000600| 45 54 a0 50 4f 49 4e 54 | 45 52 a0 54 4f a0 50 52 |ET.POINT|ER.TO.PR|
|00000610| 4f 50 45 52 0d 20 74 61 | 78 20 3b a0 44 49 47 49 |OPER. ta|x ;.DIGI|
|00000620| 54 a0 43 4f 55 4e 54 0d | 20 69 6e 63 20 64 69 67 |T.COUNT.| inc dig|
|00000630| 69 74 63 6e 74 2c 78 20 | 3b 62 55 4d 50 a0 54 48 |itcnt,x |;bUMP.TH|
|00000640| 45 a0 44 49 47 49 54 a0 | 43 4f 55 4e 54 0d 20 62 |E.DIGIT.|COUNT. b|
|00000650| 6e 65 20 3a 64 73 70 63 | 0d 20 69 6e 63 20 64 69 |ne :dspc|. inc di|
|00000660| 67 69 74 63 6e 74 2b 31 | 2c 78 0d 3a 64 73 70 63 |gitcnt+1|,x.:dspc|
|00000670| 20 64 65 63 20 73 70 63 | 6f 75 6e 74 20 3b 63 4f | dec spc|ount ;cO|
|00000680| 55 4e 54 44 4f 57 4e a0 | 28 31 30 29 a0 54 4f a0 |UNTDOWN.|(10).TO.|
|00000690| 41 a0 53 50 41 43 45 0d | 20 62 6e 65 20 3a 64 63 |A.SPACE.| bne :dc|
|000006a0| 6e 74 0d 20 6a 73 72 20 | 73 70 61 63 65 0d 20 6c |nt. jsr |space. l|
|000006b0| 64 78 20 23 31 30 0d 20 | 73 74 78 20 73 70 63 6f |dx #10. |stx spco|
|000006c0| 75 6e 74 20 3b 73 45 54 | a0 43 4f 55 4e 54 a0 46 |unt ;sET|.COUNT.F|
|000006d0| 4f 52 a0 4e 45 58 54 a0 | 47 52 4f 55 50 0d 20 64 |OR.NEXT.|GROUP. d|
|000006e0| 65 63 20 63 72 63 6f 75 | 6e 74 0d 20 62 6e 65 20 |ec crcou|nt. bne |
|000006f0| 3a 64 63 6e 74 0d 20 64 | 65 63 20 6c 69 6e 63 6e |:dcnt. d|ec lincn|
|00000700| 74 20 3b 63 4f 55 4e 54 | a0 31 30 a0 4c 49 4e 45 |t ;cOUNT|.10.LINE|
|00000710| 53 0d 20 62 6e 65 20 3a | 64 6f 63 72 0d 20 6a 73 |S. bne :|docr. js|
|00000720| 72 20 63 72 6f 75 74 20 | 3b 69 4e 53 45 52 54 a0 |r crout |;iNSERT.|
|00000730| 45 4d 50 54 59 a0 4c 49 | 4e 45 0d 20 73 74 78 20 |EMPTY.LI|NE. stx |
|00000740| 6c 69 6e 63 6e 74 20 3b | a0 41 4e 44 a0 52 45 49 |lincnt ;|.AND.REI|
|00000750| 4e 49 54 a0 43 4f 55 4e | 54 45 52 0d 20 64 65 63 |NIT.COUN|TER. dec|
|00000760| 20 62 6c 6f 63 6b 63 6e | 74 20 3b 63 4f 55 4e 54 | blockcn|t ;cOUNT|
|00000770| a0 35 a0 42 4c 4f 43 4b | 53 a0 4f 46 a0 31 30 a0 |.5.BLOCK|S.OF.10.|
|00000780| 4c 49 4e 45 53 0d 20 62 | 6e 65 20 3a 64 6f 63 72 |LINES. b|ne :docr|
|00000790| 0d 3a 73 6e 64 70 67 30 | 20 6c 64 61 20 23 35 20 |.:sndpg0| lda #5 |
|000007a0| 3b 61 54 a0 45 4e 44 a0 | 4f 46 a0 50 41 47 45 0d |;aT.END.|OF.PAGE.|
|000007b0| 20 73 74 61 20 62 6c 6f | 63 6b 63 6e 74 20 3b 73 | sta blo|ckcnt ;s|
|000007c0| 45 4e 44 a0 41 a0 46 4f | 52 4d 46 45 45 44 a0 41 |END.A.FO|RMFEED.A|
|000007d0| 4e 44 a0 48 45 41 44 45 | 52 0d 20 70 72 69 6e 74 |ND.HEADE|R. print|
|000007e0| 20 30 63 30 64 3b 27 70 | 41 47 45 a0 27 0d 20 6c | 0c0d;'p|AGE.'. l|
|000007f0| 64 61 20 23 30 0d 20 69 | 6e 63 20 70 61 67 65 0d |da #0. i|nc page.|
|00000800| 20 6c 64 78 20 70 61 67 | 65 0d 20 6a 73 72 20 70 | ldx pag|e. jsr p|
|00000810| 72 64 65 63 20 3b 70 52 | 49 4e 54 a0 50 41 47 45 |rdec ;pR|INT.PAGE|
|00000820| a0 4e 55 4d 42 45 52 0d | 20 6a 73 72 20 63 72 6f |.NUMBER.| jsr cro|
|00000830| 75 74 0d 3a 64 6f 63 72 | 20 6a 73 72 20 63 72 6f |ut.:docr| jsr cro|
|00000840| 75 74 0d 20 6a 73 72 20 | 73 70 61 63 65 20 3b 74 |ut. jsr |space ;t|
|00000850| 41 42 a0 4f 56 45 52 a0 | 32 a0 45 58 43 45 50 54 |AB.OVER.|2.EXCEPT|
|00000860| a0 4f 4e a0 31 53 54 a0 | 4c 49 4e 45 0d 20 6a 73 |.ON.1ST.|LINE. js|
|00000870| 72 20 73 70 61 63 65 0d | 20 6c 64 61 20 63 6f 6c |r space.| lda col|
|00000880| 75 6d 6e 73 20 3b 72 45 | 53 45 54 a0 43 4f 4c 55 |umns ;rE|SET.COLU|
|00000890| 4d 4e a0 43 4f 55 4e 54 | 0d 20 73 74 61 20 63 72 |MN.COUNT|. sta cr|
|000008a0| 63 6f 75 6e 74 0d 3a 64 | 63 6e 74 20 6c 64 61 20 |count.:d|cnt lda |
|000008b0| 6e 75 6d 64 65 63 20 3b | 63 4f 55 4e 54 44 4f 57 |numdec ;|cOUNTDOW|
|000008c0| 4e a0 54 48 45 a0 23 a0 | 4f 46 a0 44 49 47 49 54 |N.THE.#.|OF.DIGIT|
|000008d0| 53 0d 20 62 6e 65 20 3a | 6e 64 20 3b a0 52 45 51 |S. bne :|nd ;.REQ|
|000008e0| 55 45 53 54 45 44 0d 20 | 64 65 63 20 6e 75 6d 64 |UESTED. |dec numd|
|000008f0| 65 63 2b 31 0d 3a 6e 64 | 20 64 65 63 20 6e 75 6d |ec+1.:nd| dec num|
|00000900| 64 65 63 0d 20 62 6e 65 | 20 3a 70 72 6c 6f 6f 70 |dec. bne| :prloop|
|00000910| 20 3b 6c 4f 4f 50 a0 54 | 49 4c 4c a0 41 4c 4c a0 | ;lOOP.T|ILL.ALL.|
|00000920| 50 52 49 4e 54 45 44 0d | 20 6c 64 61 20 6e 75 6d |PRINTED.| lda num|
|00000930| 64 65 63 2b 31 0d 20 62 | 6e 65 20 3a 70 72 6c 6f |dec+1. b|ne :prlo|
|00000940| 6f 70 0d 20 6a 73 72 20 | 63 72 6f 75 74 20 3b 61 |op. jsr |crout ;a|
|00000950| 4c 4c a0 44 49 47 49 54 | 53 a0 48 41 56 45 a0 42 |LL.DIGIT|S.HAVE.B|
|00000960| 45 45 4e a0 50 52 49 4e | 54 45 44 0d 20 6c 64 61 |EEN.PRIN|TED. lda|
|00000970| 20 6c 69 6e 63 6e 74 0d | 20 63 6d 70 20 23 36 0d | lincnt.| cmp #6.|
|00000980| 20 62 67 65 20 3a 73 61 | 6d 70 67 20 3b 62 52 41 | bge :sa|mpg ;bRA|
|00000990| 4e 43 48 a0 49 46 a0 52 | 4f 4f 4d a0 46 4f 52 a0 |NCH.IF.R|OOM.FOR.|
|000009a0| 43 4f 55 4e 54 53 0d 20 | 6c 64 78 20 62 6c 6f 63 |COUNTS. |ldx bloc|
|000009b0| 6b 63 6e 74 20 3b a0 4f | 4e a0 54 48 49 53 a0 50 |kcnt ;.O|N.THIS.P|
|000009c0| 41 47 45 0d 20 64 65 78 | 0d 20 62 6e 65 20 3a 73 |AGE. dex|. bne :s|
|000009d0| 61 6d 70 67 0d 20 69 6e | 63 20 6e 75 6d 64 65 63 |ampg. in|c numdec|
|000009e0| 20 3b 74 52 49 43 4b a0 | 53 4f a0 49 54 a0 43 4f | ;tRICK.|SO.IT.CO|
|000009f0| 4d 45 53 a0 52 49 47 48 | 54 a0 42 41 43 4b 0d 20 |MES.RIGH|T.BACK. |
|00000a00| 62 6e 65 20 3a 73 6e 64 | 70 67 30 0d 3a 73 61 6d |bne :snd|pg0.:sam|
|00000a10| 70 67 20 70 72 69 6e 74 | 20 30 64 3b 27 64 49 47 |pg print| 0d;'dIG|
|00000a20| 49 54 a0 43 4f 55 4e 54 | 3a 27 30 64 30 64 0d 20 |IT.COUNT|:'0d0d. |
|00000a30| 6c 64 79 20 23 30 0d 3a | 64 67 6c 75 70 20 73 74 |ldy #0.:|dglup st|
|00000a40| 79 20 64 69 67 69 74 70 | 6e 74 20 3b 70 52 49 4e |y digitp|nt ;pRIN|
|00000a50| 54 a0 54 48 45 a0 46 52 | 45 51 55 45 4e 43 49 45 |T.THE.FR|EQUENCIE|
|00000a60| 53 0d 20 74 79 61 0d 20 | 6f 72 61 20 23 27 30 27 |S. tya. |ora #'0'|
|00000a70| 0d 20 6a 73 72 20 63 68 | 72 6f 75 74 0d 20 6c 64 |. jsr ch|rout. ld|
|00000a80| 61 20 23 27 3a 27 0d 20 | 6a 73 72 20 63 68 72 6f |a #':'. |jsr chro|
|00000a90| 75 74 0d 20 74 79 61 0d | 20 61 73 6c 20 3b 70 4f |ut. tya.| asl ;pO|
|00000aa0| 49 4e 54 45 52 a0 54 4f | a0 54 48 49 53 a0 44 49 |INTER.TO|.THIS.DI|
|00000ab0| 47 49 54 a0 43 4f 55 4e | 54 0d 20 74 61 79 0d 20 |GIT.COUN|T. tay. |
|00000ac0| 6c 64 78 20 64 69 67 69 | 74 63 6e 74 2c 79 0d 20 |ldx digi|tcnt,y. |
|00000ad0| 6c 64 61 20 64 69 67 69 | 74 63 6e 74 2b 31 2c 79 |lda digi|tcnt+1,y|
|00000ae0| 0d 20 6a 73 72 20 70 72 | 64 65 63 0d 20 6a 73 72 |. jsr pr|dec. jsr|
|00000af0| 20 73 70 61 63 65 0d 20 | 6a 73 72 20 73 70 61 63 | space. |jsr spac|
|00000b00| 65 0d 20 6c 64 79 20 64 | 69 67 69 74 70 6e 74 0d |e. ldy d|igitpnt.|
|00000b10| 20 69 6e 79 0d 20 63 70 | 79 20 23 31 30 0d 20 62 | iny. cp|y #10. b|
|00000b20| 6c 74 20 3a 64 67 6c 75 | 70 20 3b 6c 4f 4f 50 a0 |lt :dglu|p ;lOOP.|
|00000b30| 54 49 4c 4c a0 41 4c 4c | a0 31 30 a0 43 4f 55 4e |TILL.ALL|.10.COUN|
|00000b40| 54 53 a0 53 45 4e 54 0d | 20 6a 73 72 20 63 72 6f |TS.SENT.| jsr cro|
|00000b50| 75 74 20 3b 66 49 4e 41 | 4c a0 63 72 0d 20 6c 64 |ut ;fINA|L.cr. ld|
|00000b60| 78 20 23 64 65 63 66 6c | 61 67 2d 32 20 3b 63 4c |x #decfl|ag-2 ;cL|
|00000b70| 45 41 4e a0 54 48 49 4e | 47 53 a0 55 50 a0 41 4e |EAN.THIN|GS.UP.AN|
|00000b80| 44 a0 52 45 54 55 52 4e | 0d 3a 72 65 70 6c 61 63 |D.RETURN|.:replac|
|00000b90| 65 20 6c 64 61 20 73 61 | 76 65 2c 78 0d 20 73 74 |e lda sa|ve,x. st|
|00000ba0| 61 20 32 2c 78 20 3b 72 | 45 50 4c 41 43 45 a0 5a |a 2,x ;r|EPLACE.Z|
|00000bb0| 45 52 4f a0 50 41 47 45 | a0 55 53 41 47 45 0d 20 |ERO.PAGE|.USAGE. |
|00000bc0| 64 65 78 20 3b a0 45 58 | 43 45 50 54 a0 46 4f 52 |dex ;.EX|CEPT.FOR|
|00000bd0| a0 24 66 61 a0 45 54 43 | 2e 0d 20 62 70 6c 20 3a |.$fa.ETC|.. bpl :|
|00000be0| 72 65 70 6c 61 63 65 0d | 20 72 74 73 0d 0d 64 69 |replace.| rts..di|
|00000bf0| 67 69 74 63 6e 74 20 64 | 73 20 31 30 2a 32 0d 0d |gitcnt d|s 10*2..|
|00000c00| 20 70 75 74 20 22 70 72 | 64 65 63 22 0d 0d 20 6c | put "pr|dec".. l|
|00000c10| 73 74 20 6f 66 66 0d    |                         |st off. |        |
+--------+-------------------------+-------------------------+--------+--------+